diff -r e06e1c7869fc -r 67ea694c219d Form.st
--- a/Form.st	Wed Apr 23 14:17:10 1997 +0200
+++ b/Form.st	Wed Apr 23 14:17:57 1997 +0200
@@ -816,7 +816,9 @@
      for depth 8 forms, 1 pixel/byte is filled;
      for depth 1 forms, 8 pixels/byte are filled
      for depth 4 forms, 2 pixels/byte are filled.
-     Padding is done to the next byte-boundary 
+     Padding is done row-wise to the next BYTE-boundary 
+     If multiple pixels are contained in a single byte,
+     left bits are in the most significant bit positions.
      (i.e. for width==13 and depth==1 it will return 2 bytes per scanline)"
 
     |bytesPerLine   "{ Class: SmallInteger }"
@@ -865,6 +867,7 @@
             inData replaceFrom:1 to:bytesPerLine * height with:tmpData startingAt:1
         ]
     ].
+
     "
      have to reverse bytes, if not msbFirst ?
     "
@@ -879,6 +882,10 @@
 "/            dstIndex := dstIndex + bytesPerLine
 "/        ]
 "/    ].
+
+    "
+     have to reverse bits, if not msbFirst ?
+    "
     (info at:#bitOrder) ~~ #msbFirst ifTrue:[
         buffer := ByteArray new:bytesPerLine.
         dstIndex := 1.
@@ -893,7 +900,7 @@
 
     ^ inData.
 
-    "Modified: 19.3.1997 / 13:44:20 / cg"
+    "Modified: 23.4.1997 / 14:17:08 / cg"
 !
 
 bits:aByteArray
@@ -1788,6 +1795,6 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.81 1997-04-10 14:51:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.82 1997-04-23 12:17:57 cg Exp $'
 ! !
 Form initialize!