FileBrowserV2.st
changeset 18267 47442c2abf83
parent 18247 5930730e844a
child 18287 473d7ade6de8
--- a/FileBrowserV2.st	Fri Jul 13 16:59:25 2018 +0200
+++ b/FileBrowserV2.st	Mon Jul 16 09:54:08 2018 +0200
@@ -2246,7 +2246,7 @@
 
                         shownImage := self selectedImage.
 
-                        lbl := shownImage isNil 
+                        lbl := (shownImage isNil or:[shownImage fileName isNil])
                                     ifTrue:'Preview' 
                                     ifFalse:[ shownImage fileName asFilename baseName ].
 
@@ -2276,6 +2276,7 @@
     ].
 
     "Modified: / 10-09-2017 / 17:51:33 / cg"
+    "Modified: / 13-07-2018 / 22:18:48 / Claus Gittinger"
 !
 
 updateToolVisibility