FileBrowser.st
changeset 1757 8040a544d813
parent 1751 c42e758e842d
child 1758 a429c5b81d47
--- a/FileBrowser.st	Mon Jul 27 19:58:22 1998 +0200
+++ b/FileBrowser.st	Mon Jul 27 20:22:50 1998 +0200
@@ -3581,7 +3581,7 @@
         ].
     ].
 
-    icn := icons at:key ifAbsent:nil.
+    icons notNil ifTrue:[icn := icons at:key ifAbsent:nil].
     icn notNil ifTrue:[
         ^ icn
     ].
@@ -3603,7 +3603,7 @@
     ^ icn
 
     "Modified: / 18.9.1997 / 16:35:28 / stefan"
-    "Modified: / 25.7.1998 / 21:10:42 / cg"
+    "Modified: / 27.7.1998 / 20:21:57 / cg"
 !
 
 stopUpdateProcess
@@ -4045,5 +4045,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.235 1998-07-27 11:09:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.236 1998-07-27 18:22:50 cg Exp $'
 ! !