GIFReader.st
changeset 25 b44c5b9d9e7d
parent 23 11c422f6d825
child 26 2fe6294ca833
--- a/GIFReader.st	Fri Aug 05 03:16:30 1994 +0200
+++ b/GIFReader.st	Mon Aug 22 15:16:23 1994 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.8 1994-08-05 01:14:16 claus Exp $
+$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.9 1994-08-22 13:16:23 claus Exp $
 '!
 
 !GIFReader class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.8 1994-08-05 01:14:16 claus Exp $
+$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.9 1994-08-22 13:16:23 claus Exp $
 "
 !
 
@@ -86,7 +86,7 @@
     (id = 'GIF87a') ifFalse:[
         (id startsWith:'GIF') ifFalse:[^ false].
 
-        'GIFRDR: not GIF87a - untested' errorPrintNewline.
+        'GIFReader: not GIF87a - untested' errorPrintNL.
     ].
     ^ true
 ! !
@@ -119,11 +119,11 @@
 
     (id ~= 'GIF87a') ifTrue:[
         (id startsWith:'GIF') ifFalse:[
-            'GIFRDR: not a gif file' errorPrintNewline.
+            'GIFReader: not a gif file' errorPrintNL.
             inStream close.
             ^ nil
         ].
-        'GIFRDR: not a GIF87a file - hope that works' errorPrintNewline.
+        'GIFReader: not a GIF87a file - hope that works' errorPrintNL.
     ].
 
     "get screen dimensions (not used)"
@@ -153,7 +153,7 @@
     "image separator"
     byte := inStream nextByte.
     (byte ~~ 16r2C) ifTrue:[
-        'GIFRDR: corrupted gif file (no imgSep)' errorPrintNewline.
+        'GIFReader: corrupted gif file (no imgSep)' errorPrintNL.
         ^ nil
     ].
 
@@ -202,7 +202,7 @@
     inStream close.
 
     data := ByteArray new:((width + 1) * (height + 1)).
-    Transcript showCr:'decompressing'.
+    'GIFReader: decompressing ...' errorPrintNL.
 
     self class decompressGIFFrom:compressedData
                            count:compressedSize
@@ -268,8 +268,10 @@
         
     colorMap := Array with:redMap with:greenMap with:blueMap.
 
-    "GIFReader fromFile:'../fileIn/bitmaps/claus.gif"
-    "GIFReader fromFile:'../fileIn/bitmaps/garfield.gif'"
+    "
+     GIFReader fromFile:'../fileIn/bitmaps/claus.gif
+     GIFReader fromFile:'../fileIn/bitmaps/garfield.gif'
+    "
 !
 
 readColorMap:colorMapSize