--- a/GIFReader.st Tue Jun 01 11:28:11 2010 +0200
+++ b/GIFReader.st Wed Jun 02 12:21:55 2010 +0200
@@ -318,7 +318,7 @@
"/
"/ Ratio extension
"/
- 'GIFREADER [info]: ratio extension ignored' infoPrintCR.
+ "/ 'GIFREADER [info]: ratio extension ignored' infoPrintCR.
blockSize := aStream nextByte.
(blockSize == 2) ifTrue:[
aspNum := aStream nextByte.
@@ -326,8 +326,8 @@
] ifFalse:[
aStream skip:blockSize
].
+
"/ eat subblocks
-
[(subBlockSize := aStream nextByte) > 0] whileTrue:[
aStream skip:subBlockSize
].
@@ -338,7 +338,7 @@
"/
"/ plaintext extension
"/
-"/ 'GIFREADER [info]: plaintext extension ignored' infoPrintCR.
+ "/ 'GIFREADER [info]: plaintext extension ignored' infoPrintCR.
subBlockSize := aStream nextByte.
left := aStream nextShortMSB:false.
top := aStream nextShortMSB:false.
@@ -349,6 +349,7 @@
fg := aStream nextByte.
bg := aStream nextByte.
aStream skip:12.
+ "/ eat subblocks
[(subBlockSize := aStream nextByte) > 0] whileTrue:[
aStream skip:subBlockSize
].
@@ -359,7 +360,7 @@
"/
"/ graphic control extension
"/
-"/ 'GIFREADER [info]: graphic control extension' infoPrintCR.
+ "/ 'GIFREADER [info]: graphic control extension' infoPrintCR.
[(subBlockSize := aStream nextByte) ~~ 0 and:[subBlockSize notNil]] whileTrue:[
"/ type bitAnd:1 means: animationMask is transparent pixel
@@ -392,7 +393,7 @@
"/
"/ comment extension
"/
-"/ 'GIFREADER [info]: comment extension ignored' infoPrintCR.
+ "/ 'GIFREADER [info]: comment extension' infoPrintCR.
[(blockSize := aStream nextByte) ~~ 0] whileTrue:[
aStream skip:blockSize
].
@@ -403,6 +404,7 @@
"/
"/ application extension
"/
+ "/ 'GIFREADER [info]: application extension' infoPrintCR.
subBlockSize := aStream nextByte.
appID := (aStream nextBytes:8 ) asString.
appAUTH := aStream nextBytes:3.
@@ -453,7 +455,7 @@
aStream skip:subBlockSize
]
- "Modified: / 1.4.1998 / 15:01:18 / cg"
+ "Modified: / 02-06-2010 / 12:21:53 / cg"
!
readImage:aStream
@@ -986,7 +988,11 @@
!GIFReader class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.96 2009-07-31 08:49:05 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.97 2010-06-02 10:21:55 cg Exp $'
+!
+
+version_CVS
+ ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.97 2010-06-02 10:21:55 cg Exp $'
! !
GIFReader initialize!