--- 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 $'
! !