--- a/GraphicsContext.st	Thu Apr 03 16:37:30 2014 +0200
+++ b/GraphicsContext.st	Thu Apr 03 16:37:58 2014 +0200
@@ -1769,7 +1769,7 @@
     "/ (if you change anything under Unix, make it X-platform specific.
     "/ (there seem to be drawing incompatibilities between Win- and XWorkstation)
 
-    isWin32 := device platformName = 'WIN32'.
+    isWin32 := device isWindowsPlatform.
 
     right := left + width-1.
     bottom := top + height-1.
@@ -2403,7 +2403,7 @@
     wHalf := wC / 2.
     hHalf := hC / 2.
 
-    device platformName = #WIN32 ifTrue:[
+    device isWindowsPlatform ifTrue:[
         "/ bug workaround
         "top left arc"
         self fillArcX:left y:top width:wC height:hC from:90 angle:90.
@@ -2512,11 +2512,11 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.134 2014-02-18 16:43:43 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.135 2014-04-03 14:37:58 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.134 2014-02-18 16:43:43 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.135 2014-04-03 14:37:58 cg Exp $'
 ! !