--- a/GraphicsContext.st	Mon Jun 13 20:20:09 2005 +0200
+++ b/GraphicsContext.st	Mon Jun 27 12:28:14 2005 +0200
@@ -1980,6 +1980,17 @@
     transformation := sav
 !
 
+displayDeviceRectangleX:x y:y width:w height:h
+    "draw a rectangle in device coordinates"
+
+    |sav|
+
+    sav := transformation.
+    transformation := nil.
+    self displayRectangleX:x y:y width:w height:h.
+    transformation := sav
+!
+
 fillDeviceRectangleX:x y:y width:w height:h
     "fill a rectangle with current paint color (device coordinates)"
 
@@ -2309,7 +2320,7 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.108 2005-06-13 18:20:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.109 2005-06-27 10:28:14 cg Exp $'
 ! !
 
 GraphicsContext initialize!