--- a/ObjectView.st	Wed May 30 14:53:22 2007 +0200
+++ b/ObjectView.st	Thu May 31 17:28:54 2007 +0200
@@ -1725,7 +1725,7 @@
         device platformName = 'WIN32' ifTrue:[
             "/ kludge - needs a deep form
             colorMap := gridPixmap colorMap.
-            devPixmap := Form width:gridW height:gridH depth:device depth on:device.
+            devPixmap := Form width:gridW height:gridH depth:device depth onDevice:device.
             devPixmap notNil ifTrue:[
                 devPixmap paint:(colorMap at:1).
                 devPixmap fillRectangleX:0 y:0 width:gridW height:gridH.
@@ -3441,5 +3441,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.124 2006-10-27 15:25:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.125 2007-05-31 15:28:54 stefan Exp $'
 ! !