--- a/Depth4Image.st	Tue Aug 24 01:07:43 1999 +0200
+++ b/Depth4Image.st	Tue Aug 24 01:08:44 1999 +0200
@@ -186,6 +186,9 @@
 
     bestFormat := self bestSupportedImageFormatFor:aDevice.
     usedDeviceDepth := bestFormat at:#depth.
+    usedDeviceDepth == 1 ifTrue:[
+        ^ self asMonochromeFormOn:aDevice
+    ].
     usedDeviceBitsPerPixel := bestFormat at:#bitsPerPixel.
     usedDevicePadding := bestFormat at:#padding.
 
@@ -235,8 +238,8 @@
                 ((short *)dstPtr)[0] = v;
 #else
 # ifdef xxSWAP_BYTES
-		SWAP_BYTES(v);
-		((short *)dstPtr)[0] = v;
+                SWAP_BYTES(v);
+                ((short *)dstPtr)[0] = v;
 # else
                 dstPtr[0] = (v>>8) & 0xFF;
                 dstPtr[1] = (v) & 0xFF;
@@ -967,5 +970,5 @@
 !Depth4Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth4Image.st,v 1.38 1999-03-19 21:46:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth4Image.st,v 1.39 1999-08-23 23:08:17 cg Exp $'
 ! !