care for imageFromFile being uninitialized
authorClaus Gittinger <cg@exept.de>
Wed, 18 Feb 1998 18:02:44 +0100
changeset 645 9f422fbbd801
parent 644 3a1a1cae7428
child 646 d2fc253819c1
care for imageFromFile being uninitialized
DirectoryView.st
--- 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