DirectoryView.st
changeset 645 9f422fbbd801
parent 644 3a1a1cae7428
child 652 75644c11d619
equal deleted inserted replaced
644:3a1a1cae7428 645:9f422fbbd801
   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