--- a/GIFReader.st	Tue Jun 18 17:13:38 1996 +0200
+++ b/GIFReader.st	Tue Jun 18 23:14:24 1996 +0200
@@ -346,7 +346,8 @@
     "get gif89 extension - this is currently ignored"
 
     |type blockSize subBlockSize
-     aspNum aspDen left top width height cWidth cHeight fg bg|
+     aspNum aspDen left top width height cWidth cHeight fg bg
+     animationType animationTime animationMask|
 
     type := aStream nextByte.
     type == $R asciiValue ifTrue:[
@@ -405,8 +406,12 @@
         "/
         "/ graphic control extension
         "/
-        'GIFREADER: plaintext extension ignored' infoPrintCR.
-        [(subBlockSize := aStream nextByte) > 0] whileTrue:[
+        'GIFREADER: graphic control extension ignored' infoPrintCR.
+        subBlockSize := aStream nextByte.
+        animationType := aStream nextByte.
+        animationTime := aStream nextShortMSB:false.
+        animationMask := aStream nextByte.
+       [(subBlockSize := aStream nextByte) > 0] whileTrue:[
             aStream skip:subBlockSize
         ].
         ^ self
@@ -431,12 +436,12 @@
         aStream skip:subBlockSize
     ]
 
-    "Modified: 20.5.1996 / 10:32:32 / cg"
+    "Modified: 18.6.1996 / 23:12:22 / cg"
 ! !
 
 !GIFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.34 1996-05-20 08:48:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.35 1996-06-18 21:14:24 cg Exp $'
 ! !
 GIFReader initialize!