equal
deleted
inserted
replaced
721 [ |
721 [ |
722 self validateAttributes. |
722 self validateAttributes. |
723 (imageFromFile isNil and: [iconKey == #imageFileIcon]) |
723 (imageFromFile isNil and: [iconKey == #imageFileIcon]) |
724 ifTrue: [icon := self retrieveImageFromFileAndRegisterOn: aGC] |
724 ifTrue: [icon := self retrieveImageFromFileAndRegisterOn: aGC] |
725 ]. |
725 ]. |
726 imageFromFile |
726 imageFromFile == true |
727 ifFalse: [icon := aGC registerImage: (self class perform: iconKey) key: iconKey] |
727 ifFalse: [icon := aGC registerImage: (self class perform: iconKey) key: iconKey] |
728 ifTrue: [icon := aGC registeredImageAt: iconKey]. |
728 ifTrue: [icon := aGC registeredImageAt: iconKey]. |
729 ^icon |
729 ^icon |
|
730 |
|
731 "Modified: / 18.2.1998 / 18:01:52 / cg" |
730 ! |
732 ! |
731 |
733 |
732 modified |
734 modified |
733 |
735 |
734 ^modified |
736 ^modified |