--- a/GIFReader.st Fri Apr 11 00:53:07 1997 +0200
+++ b/GIFReader.st Fri Apr 11 00:55:22 1997 +0200
@@ -385,17 +385,6 @@
^ self
].
- type == 16rFE ifTrue:[
- "/
- "/ comment extension
- "/
- 'GIFREADER [info]: comment extension ignored' infoPrintCR.
- [(blockSize := aStream nextByte) ~~ 0] whileTrue:[
- aStream skip:blockSize
- ].
- ^ self
- ].
-
type == 16r01 ifTrue:[
"/
"/ plaintext extension
@@ -442,6 +431,17 @@
^ self
].
+ type == 16rFE ifTrue:[
+ "/
+ "/ comment extension
+ "/
+ 'GIFREADER [info]: comment extension ignored' infoPrintCR.
+ [(blockSize := aStream nextByte) ~~ 0] whileTrue:[
+ aStream skip:blockSize
+ ].
+ ^ self
+ ].
+
type == 16rFF ifTrue:[
"/
"/ application extension
@@ -461,12 +461,12 @@
aStream skip:subBlockSize
]
- "Modified: 10.1.1997 / 14:55:45 / cg"
+ "Modified: 11.4.1997 / 00:55:15 / cg"
! !
!GIFReader class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.46 1997-02-01 14:06:08 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.47 1997-04-10 22:55:22 cg Exp $'
! !
GIFReader initialize!