--- a/Icon.st Sun Jun 06 00:16:36 1999 +0200
+++ b/Icon.st Fri Jun 18 22:36:47 1999 +0200
@@ -176,6 +176,17 @@
!
+constantNamed:aName ifAbsentPutImageFromFile:aFileName
+ "if an image for aName is registered, return it;
+ otherwise, load the image from aFileName (searched in bitmaps directories),
+ register the result and return it."
+
+ self Icon
+ constantNamed:aName
+ ifAbsentPut:[Image fromFile:aFileName]
+
+!
+
constantNamed:aName put:anImage
"register anImage under aName."
@@ -531,6 +542,6 @@
!Icon class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.21 1999-05-25 13:53:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.22 1999-06-18 20:36:47 cg Exp $'
! !
Icon initialize!