--- a/Form.st	Sun Feb 04 18:11:29 1996 +0100
+++ b/Form.st	Sun Feb 04 18:12:49 1996 +0100
@@ -1445,7 +1445,7 @@
     bytesPerLine := (width * depth + 31) // 32 * 4.
     inData := ByteArray uninitializedNew:(bytesPerLine * height).
     info := device getBitsFrom:drawableId x:0 y:0 width:width height:height into:inData. 
-    bytesPerLineIn := (info at:3).                                "what I got"
+    bytesPerLineIn := (info at:#bytesPerLine).                    "what I got"
     bytesPerLine := (width * depth + 7) // 8.                     "what I want"
     (bytesPerLine ~~ bytesPerLineIn) ifTrue:[
 	"
@@ -1474,7 +1474,7 @@
     "
      have to reverse bytes, if not msbFirst ?
     "
-    (info at:1) == #lsbFirst ifTrue:[
+    (info at:#bitOrder) ~~ #msbFirst ifTrue:[
 	buffer := ByteArray new:bytesPerLine.
 	dstIndex := 1.
 	1 to:height do:[:hi |
@@ -2109,6 +2109,6 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.32 1995-12-07 10:39:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.33 1996-02-04 17:12:49 cg Exp $'
 ! !
 Form initialize!