--- a/GIFReader.st	Tue Jun 24 22:06:51 1997 +0200
+++ b/GIFReader.st	Tue Jun 24 22:44:29 1997 +0200
@@ -378,7 +378,7 @@
      aspNum aspDen left top width height cWidth cHeight fg bg
      animationType animationTime animationMask
      appID appAUTH
-     iterationCount b|
+     iterationCount b ok|
 
     type := aStream nextByte.
     type == $R asciiValue ifTrue:[
@@ -405,7 +405,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.
@@ -440,7 +440,7 @@
             maskPixelValue := animationMask.
 "/            'GIFREADER [info]: mask: ' infoPrint. (maskPixelValue printStringRadix:16) infoPrintCR.
         ].
-  'GIFREADER [info]: animationTime: ' infoPrint. (animationTime * (1/100)) infoPrintCR.
+"/      'GIFREADER [info]: animationTime: ' infoPrint. (animationTime * (1/100)) infoPrintCR.
 
         [(subBlockSize := aStream nextByte) > 0] whileTrue:[
             aStream skip:subBlockSize
@@ -452,7 +452,7 @@
         "/
         "/ comment extension
         "/
-        'GIFREADER [info]: comment extension ignored' infoPrintCR.
+"/        'GIFREADER [info]: comment extension ignored' infoPrintCR.
         [(blockSize := aStream nextByte) ~~ 0] whileTrue:[
             aStream skip:blockSize
         ].
@@ -469,17 +469,25 @@
 
         subBlockSize := aStream nextByte.
 
+        ok := false.
         appID = 'NETSCAPE' ifTrue:[
             appAUTH asString = '2.0' ifTrue:[
                 subBlockSize == 3 ifTrue:[
                     b := aStream nextByte.
                     iterationCount := aStream nextShortMSB:false.
                     subBlockSize := aStream nextByte.
+                    ok := true.
                 ]
             ]
         ].
+        appID = 'MACGCon' ifTrue:[
+            "/ what is this ?
+        ].
 
-        ('GIFREADER [info]: application extension (' , appID , ') ignored') infoPrintCR.
+        ok ifFalse:[
+            ('GIFREADER [info]: application extension (' , appID , ') ignored') infoPrintCR.
+        ].
+
         [subBlockSize > 0] whileTrue:[
             aStream skip:subBlockSize.
             subBlockSize := aStream nextByte.
@@ -506,12 +514,12 @@
         aStream skip:subBlockSize
     ]
 
-    "Modified: 21.6.1997 / 11:59:05 / cg"
+    "Modified: 24.6.1997 / 22:44:15 / cg"
 ! !
 
 !GIFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.51 1997-06-24 20:04:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.52 1997-06-24 20:44:29 cg Exp $'
 ! !
 GIFReader initialize!