--- a/ObjectView.st	Mon May 31 13:06:11 1999 +0200
+++ b/ObjectView.st	Sun Jun 06 01:02:42 1999 +0200
@@ -1376,7 +1376,7 @@
      the numbers are interpreted."
 
     |mmH mmV params showDocumentBoundary gridW gridH 
-     bigStepH bigStepV littleStepH littleStepV hires|
+     bigStepH bigStepV littleStepH littleStepV hires devPixmap colorMap|
 
     mmH := self horizontalPixelPerMillimeter.
     mmV := self verticalPixelPerMillimeter.
@@ -1510,9 +1510,22 @@
             gridPixmap displayLineFromX:gridW-1 y:0 toX:gridW-1 y:gridH-1.
             gridPixmap displayLineFromX:0 y:gridH-1 toX:gridW-1 y:gridH-1.
         ].
+
+        device platformName = 'WIN32' ifTrue:[
+            "/ kludge - needs a deep form
+            colorMap := gridPixmap colorMap.
+            devPixmap := Form width:gridW height:gridH depth:device depth on:device.
+            devPixmap notNil ifTrue:[
+                devPixmap paint:(colorMap at:1).
+                devPixmap fillRectangleX:0 y:0 width:gridW height:gridH.
+                devPixmap foreground:(colorMap at:2) background:(colorMap at:1).
+                devPixmap copyPlaneFrom:gridPixmap x:0 y:0 toX:0 y:0 width:gridW height:gridH.
+                gridPixmap := devPixmap.
+            ]
+        ].
     ]
 
-    "Modified: 14.12.1995 / 20:59:38 / cg"
+    "Modified: / 6.6.1999 / 01:00:16 / cg"
 !
 
 getAlignParameters
@@ -3088,5 +3101,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.68 1999-05-27 11:41:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.69 1999-06-05 23:02:42 cg Exp $'
 ! !