--- 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