equal
deleted
inserted
replaced
179 constantNamed:aName ifAbsentPutImageFromFile:aFileName |
179 constantNamed:aName ifAbsentPutImageFromFile:aFileName |
180 "if an image for aName is registered, return it; |
180 "if an image for aName is registered, return it; |
181 otherwise, load the image from aFileName (searched in bitmaps directories), |
181 otherwise, load the image from aFileName (searched in bitmaps directories), |
182 register the result and return it." |
182 register the result and return it." |
183 |
183 |
184 self Icon |
184 ^ self |
185 constantNamed:aName |
185 constantNamed:aName |
186 ifAbsentPut:[Image fromFile:aFileName] |
186 ifAbsentPut:[Image fromFile:aFileName] |
187 |
187 |
188 ! |
188 ! |
189 |
189 |
540 ! ! |
540 ! ! |
541 |
541 |
542 !Icon class methodsFor:'documentation'! |
542 !Icon class methodsFor:'documentation'! |
543 |
543 |
544 version |
544 version |
545 ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.22 1999-06-18 20:36:47 cg Exp $' |
545 ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.23 1999-06-18 22:52:33 cg Exp $' |
546 ! ! |
546 ! ! |
547 Icon initialize! |
547 Icon initialize! |