stefans suggested info/warning/error/fatal
message tagging started.
--- a/GIFReader.st Wed Jan 08 23:45:36 1997 +0100
+++ b/GIFReader.st Fri Jan 10 14:56:15 1997 +0100
@@ -370,7 +370,7 @@
"/
"/ Ratio extension
"/
- 'GIFREADER: ratio extension ignored' infoPrintCR.
+ 'GIFREADER [info]: ratio extension ignored' infoPrintCR.
blockSize := aStream nextByte.
(blockSize == 2) ifTrue:[
aspNum := aStream nextByte.
@@ -390,7 +390,7 @@
"/
"/ comment extension
"/
- 'GIFREADER: comment extension ignored' infoPrintCR.
+ 'GIFREADER [info]: comment extension ignored' infoPrintCR.
[(blockSize := aStream nextByte) ~~ 0] whileTrue:[
aStream skip:blockSize
].
@@ -401,7 +401,7 @@
"/
"/ plaintext extension
"/
- 'GIFREADER: plaintext extension ignored' infoPrintCR.
+ 'GIFREADER [info]: plaintext extension ignored' infoPrintCR.
subBlockSize := aStream nextByte.
left := aStream nextShortMSB:false.
top := aStream nextShortMSB:false.
@@ -422,7 +422,7 @@
"/
"/ graphic control extension
"/
-"/ 'GIFREADER: graphic control extension ignored' infoPrintCR.
+"/ 'GIFREADER [info]: graphic control extension ignored' infoPrintCR.
subBlockSize := aStream nextByte.
"/ type=1 means: animationMask is transparent pixel
@@ -434,7 +434,7 @@
animationType == 1 ifTrue:[
maskPixelValue := animationMask.
-"/ 'GIFREADER: mask: ' infoPrint. (maskPixelValue printStringRadix:16) infoPrintCR.
+"/ 'GIFREADER [info]: mask: ' infoPrint. (maskPixelValue printStringRadix:16) infoPrintCR.
].
[(subBlockSize := aStream nextByte) > 0] whileTrue:[
@@ -447,7 +447,7 @@
"/
"/ application extension
"/
- 'GIFREADER: application extension ignored' infoPrintCR.
+ 'GIFREADER [info]: application extension ignored' infoPrintCR.
[(subBlockSize := aStream nextByte) > 0] whileTrue:[
aStream skip:subBlockSize
].
@@ -457,17 +457,17 @@
"/
"/ unknown extension
"/
- 'GIFREADER: unknown extension ignored' infoPrintCR.
+ 'GIFREADER [info]: unknown extension ignored' infoPrintCR.
[(subBlockSize := aStream nextByte) > 0] whileTrue:[
aStream skip:subBlockSize
]
- "Modified: 21.6.1996 / 12:44:25 / cg"
+ "Modified: 10.1.1997 / 14:55:45 / cg"
! !
!GIFReader class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.43 1996-10-18 12:23:41 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.44 1997-01-10 13:56:15 cg Exp $'
! !
GIFReader initialize!