--- a/GIFReader.st	Thu Oct 11 18:32:49 2001 +0200
+++ b/GIFReader.st	Tue Oct 16 13:25:48 2001 +0200
@@ -91,7 +91,9 @@
     "return true, if anImage can be represented in my file format.
      GIF supports depth 8 images only."
 
-    ^ anImage depth == 8
+    anImage depth == 8 ifTrue:[^ true].
+    Transcript showCR:'GIFReader: images depth is ~~ 8.'.
+
 
     "Created: 17.10.1997 / 20:19:20 / cg"
 !
@@ -1037,6 +1039,6 @@
 !GIFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.77 2000-11-15 15:04:52 martin Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.78 2001-10-16 11:25:43 cg Exp $'
 ! !
 GIFReader initialize!

--- a/XBMReader.st	Thu Oct 11 18:32:49 2001 +0200
+++ b/XBMReader.st	Tue Oct 16 13:25:48 2001 +0200
@@ -73,17 +73,18 @@
 
     |photometric clr0 clr1|
 
-    (anImage depth ~~ 1) ifTrue:[^ false.].
-
-    photometric := anImage photometric.
-    ((photometric == #blackIs0) or:[photometric == #whiteIs0]) ifTrue:[^ true].
+    (anImage depth == 1) ifTrue:[
+        photometric := anImage photometric.
+        ((photometric == #blackIs0) or:[photometric == #whiteIs0]) ifTrue:[^ true].
 
-    photometric == #palette ifTrue:[
-        clr0 := anImage colorFromValue:0.
-        clr1 := anImage colorFromValue:1.
-        (clr0 = Color white and:[clr1 = Color black]) ifTrue:[^true].
-        (clr1 = Color white and:[clr0 = Color black]) ifTrue:[^true].
+        photometric == #palette ifTrue:[
+            clr0 := anImage colorFromValue:0.
+            clr1 := anImage colorFromValue:1.
+            (clr0 = Color white and:[clr1 = Color black]) ifTrue:[^true].
+            (clr1 = Color white and:[clr0 = Color black]) ifTrue:[^true].
+        ].
     ].
+    Transcript showCR:'XBMReader: not a b&w image.'.
     ^ false
 
     "Modified: / 17.8.1998 / 10:17:01 / cg"
@@ -363,6 +364,6 @@
 !XBMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.44 2001-09-21 08:02:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.45 2001-10-16 11:25:48 cg Exp $'
 ! !
 XBMReader initialize!

--- a/XPMReader.st	Thu Oct 11 18:32:49 2001 +0200
+++ b/XPMReader.st	Tue Oct 16 13:25:48 2001 +0200
@@ -92,7 +92,7 @@
         anImage colorMap size < 80 ifTrue:[^ true].
     ].
     anImage usedColors size < 80 ifTrue:[^ true].
-    Transcript showCR:'too many colors in image.'.
+    Transcript showCR:'XPMReader: too many colors in image.'.
     ^ false
 
     "Modified: 27.2.1997 / 12:40:22 / cg"
@@ -554,6 +554,6 @@
 !XPMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.45 2001-09-21 08:02:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.46 2001-10-16 11:25:45 cg Exp $'
 ! !
 XPMReader initialize!