ST80FormReader.st
changeset 1846 d29322944b05
parent 1813 aa74c7bd22ad
child 3587 f6156f8918ea
--- a/ST80FormReader.st	Wed Nov 19 16:27:07 2003 +0100
+++ b/ST80FormReader.st	Wed Nov 19 16:28:36 2003 +0100
@@ -126,6 +126,7 @@
     ].
     offsetX := aStream nextUnsignedShortMSB:true.
     offsetY := aStream nextUnsignedShortMSB:true.
+    self reportDimension.
 
     nBytes := width + 15 // 16 * 2 * height.
     data := ByteArray new:nBytes.
@@ -184,7 +185,7 @@
 !ST80FormReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ST80FormReader.st,v 1.24 2003-09-12 11:40:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ST80FormReader.st,v 1.25 2003-11-19 15:26:11 cg Exp $'
 ! !
 
 ST80FormReader initialize!