GIFReader.st
changeset 1521 3c54279a418c
parent 1429 28c9e0f9d239
child 1711 b3ba13167ee7
--- 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!