class: ImageReader
authorStefan Vogel <sv@exept.de>
Mon, 02 Dec 2013 20:04:07 +0100
changeset 6167 baa4c9ec056a
parent 6166 87e576aea243
child 6168 1c9707cfaa48
class: ImageReader changed: #readerClassForFilename: raise exception if there is no known reader (because ther is no mime type)
ImageReader.st
--- a/ImageReader.st	Wed Nov 27 13:27:29 2013 +0100
+++ b/ImageReader.st	Mon Dec 02 20:04:07 2013 +0100
@@ -1418,13 +1418,12 @@
 
     mime notNil ifTrue:[
         reader := MIMETypes imageReaderForType:mime.
-        reader isNil ifTrue:[
-            "answer the reader when proceeding form this error"
-            reader := ConversionError raiseRequestErrorString:' - unsupported image type: ', mime.
-        ].
-        ^ reader
     ].
-    ^ self
+    reader isNil ifTrue:[
+        "answer the reader when proceeding form this error"
+        reader := ConversionError raiseRequestErrorString:(' - unsupported image type: ''%1''' bindWith:(mime ? aStringOrFilename asFilename suffix)).
+    ].
+    ^ reader
 
     "
      self readerClassForFilename:('http://www.foo.bar/helloworld.png' asURL path)
@@ -2029,10 +2028,10 @@
 !ImageReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.107 2013-05-07 09:27:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.108 2013-12-02 19:04:07 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.107 2013-05-07 09:27:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.108 2013-12-02 19:04:07 stefan Exp $'
 ! !