FileApplicationNoteBook.st
changeset 14819 0248509ac90d
parent 14808 e36c7a43aee4
child 14836 1b64d6930357
--- a/FileApplicationNoteBook.st	Sun Nov 09 11:48:23 2014 +0100
+++ b/FileApplicationNoteBook.st	Mon Nov 10 23:26:08 2014 +0100
@@ -4229,12 +4229,18 @@
     |img fn e|
 
     fn := self fileName.
-    img := Image fromFile:fn.
+    Image badImageFormatQuerySignal handle:[:ex |
+        e := ex description.
+    ] do:[
+        img := Image fromFile:fn.
+    ].
     img isNil ifTrue:[
-        fn exists ifTrue:[
-            e := 'Unknown/unsupported image format'
-        ] ifFalse:[
-            e := 'No such image'
+        e isNil ifTrue:[
+            fn exists ifTrue:[
+                e := 'Unknown/unsupported image format'
+            ] ifFalse:[
+                e := 'No such image'
+            ].
         ].
         Dialog warn:e.
         ^ nil
@@ -7464,10 +7470,10 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.304 2014-10-31 11:19:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.305 2014-11-10 22:26:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.304 2014-10-31 11:19:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.305 2014-11-10 22:26:08 cg Exp $'
 ! !