--- a/ObjectView.st	Thu Apr 03 16:33:38 2014 +0200
+++ b/ObjectView.st	Thu Apr 03 16:36:46 2014 +0200
@@ -1761,7 +1761,7 @@
             gridPixmap displayLineFromX:0 y:gridH-1 toX:gridW-1 y:gridH-1.
         ].
 
-        self graphicsDevice platformName = 'WIN32' ifTrue:[
+        self graphicsDevice isWindowsPlatform ifTrue:[
             "/ kludge - needs a deep form
             colorMap := gridPixmap colorMap.
             devPixmap := Form width:gridW height:gridH depth:self graphicsDevice depth onDevice:self graphicsDevice.
@@ -3532,10 +3532,10 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.142 2014-03-20 17:50:55 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.143 2014-04-03 14:36:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.142 2014-03-20 17:50:55 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.143 2014-04-03 14:36:46 cg Exp $'
 ! !