--- a/GIFReader.st Mon May 20 10:40:29 1996 +0200
+++ b/GIFReader.st Mon May 20 10:48:55 1996 +0200
@@ -95,12 +95,12 @@
(id startsWith:'GIF') ifFalse:[^ false].
id ~= 'GIF89a' ifTrue:[
- 'GIFReader: not a GIF87a/GIF89a file - hope that works' infoPrintNL.
+ 'GIFReader: not a GIF87a/GIF89a file - hope that works' infoPrintCR.
]
].
^ true
- "Modified: 7.3.1996 / 19:16:52 / cg"
+ "Modified: 20.5.1996 / 10:32:34 / cg"
! !
!GIFReader methodsFor:'reading from file'!
@@ -151,11 +151,11 @@
isGif89 := false.
(id ~= 'GIF87a') ifTrue:[
(id startsWith:'GIF') ifFalse:[
- 'GIFReader: not a gif file' infoPrintNL.
+ 'GIFReader: not a gif file' infoPrintCR.
^ nil
].
id ~= 'GIF89a' ifTrue:[
- 'GIFReader: not a GIF87a/GIF89a file - hope that works' infoPrintNL.
+ 'GIFReader: not a GIF87a/GIF89a file - hope that works' infoPrintCR.
]
].
@@ -193,7 +193,7 @@
"must now be image separator"
(byte ~~ 16r2C) ifTrue:[
- ('GIFReader: corrupted gif file (no IMAGESEP): ' , (byte printStringRadix:16)) infoPrintNL.
+ ('GIFReader: corrupted gif file (no IMAGESEP): ' , (byte printStringRadix:16)) infoPrintCR.
^ nil
].
@@ -242,7 +242,7 @@
h := height.
data := ByteArray new:((width + 1) * (h + 1)).
-"/ 'GIFReader: decompressing ...' infoPrintNL.
+"/ 'GIFReader: decompressing ...' infoPrintCR.
self class decompressGIFFrom:compressedData
count:compressedSize
@@ -316,7 +316,7 @@
GIFReader fromFile:'../fileIn/bitmaps/garfield.gif'
"
- "Modified: 18.5.1996 / 15:42:17 / cg"
+ "Modified: 20.5.1996 / 10:32:29 / cg"
!
makeGreyscale
@@ -353,7 +353,7 @@
"/
"/ Ratio extension
"/
- 'GIFREADER: ratio extension ignored' infoPrintNL.
+ 'GIFREADER: ratio extension ignored' infoPrintCR.
blockSize := aStream nextByte.
(blockSize == 2) ifTrue:[
aspNum := aStream nextByte.
@@ -373,7 +373,7 @@
"/
"/ comment extension
"/
- 'GIFREADER: comment extension ignored' infoPrintNL.
+ 'GIFREADER: comment extension ignored' infoPrintCR.
[(blockSize := aStream nextByte) ~~ 0] whileTrue:[
aStream skip:blockSize
].
@@ -384,7 +384,7 @@
"/
"/ plaintext extension
"/
- 'GIFREADER: plaintext extension ignored' infoPrintNL.
+ 'GIFREADER: plaintext extension ignored' infoPrintCR.
subBlockSize := aStream nextByte.
left := aStream nextShortMSB:false.
top := aStream nextShortMSB:false.
@@ -405,7 +405,7 @@
"/
"/ graphic control extension
"/
- 'GIFREADER: plaintext extension ignored' infoPrintNL.
+ 'GIFREADER: plaintext extension ignored' infoPrintCR.
[(subBlockSize := aStream nextByte) > 0] whileTrue:[
aStream skip:subBlockSize
].
@@ -416,7 +416,7 @@
"/
"/ application extension
"/
- 'GIFREADER: application extension ignored' infoPrintNL.
+ 'GIFREADER: application extension ignored' infoPrintCR.
[(subBlockSize := aStream nextByte) > 0] whileTrue:[
aStream skip:subBlockSize
].
@@ -426,17 +426,17 @@
"/
"/ unknown extension
"/
- 'GIFREADER: unknown extension ignored' infoPrintNL.
+ 'GIFREADER: unknown extension ignored' infoPrintCR.
[(subBlockSize := aStream nextByte) > 0] whileTrue:[
aStream skip:subBlockSize
]
- "Modified: 2.5.1996 / 17:53:49 / cg"
+ "Modified: 20.5.1996 / 10:32:32 / cg"
! !
!GIFReader class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.33 1996-05-18 13:56:05 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.34 1996-05-20 08:48:55 cg Exp $'
! !
GIFReader initialize!