--- a/GraphicsContext.st	Thu May 27 14:27:26 1999 +0200
+++ b/GraphicsContext.st	Thu May 27 17:36:11 1999 +0200
@@ -1034,12 +1034,16 @@
      A general implementation is found here; deviceGC's
      may reimplement this if directly supported by the device"
 
-    |lastX lastY x0 y0|
-
-    "/ oldStyle := lineStyle.
-    "/ self lineStyle:#dotted.
-    "/ self displayRectangleX:x y:y width:w height:h.
-    "/ self lineStyle:oldStyle.
+    |lastX lastY x0 y0 oldStyle|
+
+    ((device platformName ~= 'WIN32')
+    or:[OperatingSystem isMSWINDOWSNTlike]) ifTrue:[
+        oldStyle := lineStyle.
+        self lineStyle:#dotted.
+        self displayRectangleX:x y:y width:w height:h.
+        self lineStyle:oldStyle.
+        ^ self.
+    ].
 
     1 to:w-1 by:2 do:[:o |
         lastX := x + o.
@@ -2127,6 +2131,6 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.73 1999-02-17 22:39:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.74 1999-05-27 15:36:11 cg Exp $'
 ! !
 GraphicsContext initialize!