#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Wed, 13 Sep 2017 10:15:34 +0200
changeset 4011 0dfddf756e27
parent 4010 3df2676d3e8a
child 4012 af495a29eafa
#UI_ENHANCEMENT by cg class: TIFFReader changed: #writeTiffTag:
TIFFReader.st
--- a/TIFFReader.st	Mon Sep 04 18:35:51 2017 +0200
+++ b/TIFFReader.st	Wed Sep 13 10:15:34 2017 +0200
@@ -4032,7 +4032,7 @@
             (photometric == #blackIs0) ifTrue:[
                 value := 1
             ] ifFalse:[
-                (photometric == #rgb) ifTrue:[
+                ((photometric == #rgb) or:[(photometric == #rgba)]) ifTrue:[
                     value := 2
                 ] ifFalse:[
                     (photometric == #palette) ifTrue:[
@@ -4041,7 +4041,7 @@
                         (photometric == #transparency) ifTrue:[
                             value := 4
                         ] ifFalse:[
-                            self error:'bad photometric' mayProceed:true.
+                            self error:('TIFF-writer: unsupported photometric: ',photometric asString) mayProceed:true.
                         ]
                     ]
                 ]
@@ -4259,7 +4259,7 @@
         ]
     ].
 
-    "Modified: / 28-08-2017 / 00:47:52 / cg"
+    "Modified: / 13-09-2017 / 10:08:52 / cg"
 !
 
 writeUncompressedBits