--- a/GIFReader.st	Sat Sep 14 11:03:06 1996 +0200
+++ b/GIFReader.st	Sat Sep 14 17:12:08 1996 +0200
@@ -206,6 +206,10 @@
     width := aStream nextShortMSB:false.
     height := aStream nextShortMSB:false.
 
+    dimensionCallBack notNil ifTrue:[
+        dimensionCallBack value:self
+    ].
+
 "
 'width ' print. width printNewline.
 'height ' print. height printNewline.
@@ -328,7 +332,7 @@
     "
 
     "Modified: 5.7.1996 / 17:32:01 / stefan"
-    "Modified: 13.9.1996 / 18:41:06 / cg"
+    "Modified: 14.9.1996 / 17:09:24 / cg"
 !
 
 makeGreyscale
@@ -464,6 +468,6 @@
 !GIFReader  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.41 1996-09-14 08:45:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.42 1996-09-14 15:11:38 cg Exp $'
 ! !
 GIFReader initialize!