--- a/Form.st	Wed Mar 19 13:49:48 1997 +0100
+++ b/Form.st	Wed Mar 19 13:58:43 1997 +0100
@@ -781,7 +781,7 @@
 
     bytesPerLine := (width * depth + 31) // 32 * 4.
     inData := ByteArray uninitializedNew:(bytesPerLine * height).
-    info := device getBitsFromPixmap:drawableId x:0 y:0 width:width height:height into:inData. 
+    info := device getBitsFromPixmapId:drawableId x:0 y:0 width:width height:height into:inData. 
     bytesPerLineIn := (info at:#bytesPerLine).                    "what I got"
     bytesPerLine := (width * depth + 7) // 8.                     "what I want"
     (bytesPerLine ~~ bytesPerLineIn) ifTrue:[
@@ -1722,6 +1722,6 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.74 1997-03-19 12:46:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.75 1997-03-19 12:57:29 cg Exp $'
 ! !
 Form initialize!