# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 887821364 -3600
# Node ID 9f422fbbd801305274619f96479e4d20cfa59885
# Parent  3a1a1cae7428ae3be220c066d39974d3e530e6c1
care for imageFromFile being uninitialized

diff -r 3a1a1cae7428 -r 9f422fbbd801 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