--- a/GraphicsContext.st	Fri Nov 14 17:17:32 2003 +0100
+++ b/GraphicsContext.st	Tue Nov 18 12:00:25 2003 +0100
@@ -2201,6 +2201,13 @@
     self fillRectangleX:left y:top width:(corner x - left) height:(corner y - top)
 
     "Created: 13.4.1996 / 20:58:16 / cg"
+!
+
+fillRectangleOrigin:origin extent:extent
+    "draw a filled rectangle. 
+     Notice: the cornerPoint itself is NOT included"
+
+    self fillRectangleX:(origin x) y:(origin y) width:(extent x) height:(extent y)
 ! !
 
 !GraphicsContext methodsFor:'initialization'!
@@ -2245,7 +2252,7 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.96 2003-05-07 14:31:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.97 2003-11-18 11:00:25 cg Exp $'
 ! !
 
 GraphicsContext initialize!