--- a/DeviceGraphicsContext.st	Fri Dec 30 12:54:36 2011 +0100
+++ b/DeviceGraphicsContext.st	Sat Dec 31 11:35:34 2011 +0100
@@ -3286,6 +3286,25 @@
 
 !DeviceGraphicsContext methodsFor:'filling'!
 
+clearDeviceRectangleX:x y:y width:w height:h
+    "clear a rectangular area to viewBackground -
+     redefined since GraphicsMedium fills with background
+     - not viewBackground as we want here."
+
+    |oldPaint|
+
+    "
+     fill in device coordinates - not logical coordinates
+    "
+    oldPaint := paint.
+    self paint:self viewBackground.
+    self fillDeviceRectangleX:x y:y width:w height:h "with:viewBackground".
+    self paint:oldPaint
+
+    "Modified: / 04-05-1999 / 13:00:34 / cg"
+    "Created: / 30-12-2011 / 14:32:14 / cg"
+!
+
 fillArcX:x y:y width:w height:h from:startAngle angle:angle
     "draw a filled arc; apply transformation if nonNil"
 
@@ -3781,11 +3800,11 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.123 2011-04-14 09:55:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.124 2011-12-31 10:35:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.123 2011-04-14 09:55:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.124 2011-12-31 10:35:34 cg Exp $'
 ! !
 
 DeviceGraphicsContext initialize!