author | Claus Gittinger <cg@exept.de> |
Wed, 18 Feb 1998 18:02:44 +0100 | |
changeset 645 | 9f422fbbd801 |
parent 644 | 3a1a1cae7428 |
child 646 | d2fc253819c1 |
DirectoryView.st | file | annotate | diff | comparison | revisions |
--- a/DirectoryView.st Tue Feb 17 20:46:14 1998 +0100 +++ b/DirectoryView.st Wed Feb 18 18:02:44 1998 +0100 @@ -723,10 +723,12 @@ (imageFromFile isNil and: [iconKey == #imageFileIcon]) ifTrue: [icon := self retrieveImageFromFileAndRegisterOn: aGC] ]. - imageFromFile + imageFromFile == true ifFalse: [icon := aGC registerImage: (self class perform: iconKey) key: iconKey] ifTrue: [icon := aGC registeredImageAt: iconKey]. ^icon + + "Modified: / 18.2.1998 / 18:01:52 / cg" ! modified