--- a/DevGC.st	Wed Jan 29 13:20:33 1997 +0100
+++ b/DevGC.st	Wed Jan 29 13:34:56 1997 +0100
@@ -963,13 +963,14 @@
                 width:w 
                 height:h.
             asy ifFalse:[
+                device flush.
                 self waitForExpose
             ]
         ]
     ]
 
     "Created: 29.1.1997 / 13:02:10 / cg"
-    "Modified: 29.1.1997 / 13:16:26 / cg"
+    "Modified: 29.1.1997 / 13:34:33 / cg"
 !
 
 copyPlaneFrom:aDrawable x:srcX y:srcY toX:dstX y:dstY width:w height:h
@@ -3528,6 +3529,6 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevGC.st,v 1.30 1997-01-29 12:18:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevGC.st,v 1.31 1997-01-29 12:34:56 cg Exp $'
 ! !
 DeviceGraphicsContext initialize!

--- a/DeviceGraphicsContext.st	Wed Jan 29 13:20:33 1997 +0100
+++ b/DeviceGraphicsContext.st	Wed Jan 29 13:34:56 1997 +0100
@@ -963,13 +963,14 @@
                 width:w 
                 height:h.
             asy ifFalse:[
+                device flush.
                 self waitForExpose
             ]
         ]
     ]
 
     "Created: 29.1.1997 / 13:02:10 / cg"
-    "Modified: 29.1.1997 / 13:16:26 / cg"
+    "Modified: 29.1.1997 / 13:34:33 / cg"
 !
 
 copyPlaneFrom:aDrawable x:srcX y:srcY toX:dstX y:dstY width:w height:h
@@ -3528,6 +3529,6 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.30 1997-01-29 12:18:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.31 1997-01-29 12:34:56 cg Exp $'
 ! !
 DeviceGraphicsContext initialize!