#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Thu, 15 Feb 2018 15:58:49 +0100
changeset 8291 909a69b193d4
parent 8290 6614502a0390
child 8292 082e3614bf28
#FEATURE by cg class: GraphicsMedium added: #fillRectangleOrigin:width:height:
GraphicsMedium.st
--- a/GraphicsMedium.st	Thu Feb 15 15:57:59 2018 +0100
+++ b/GraphicsMedium.st	Thu Feb 15 15:58:49 2018 +0100
@@ -2327,6 +2327,13 @@
     gc fillRectangleX:(origin x) y:(origin y) width:(extent x) height:(extent y)
 !
 
+fillRectangleOrigin:origin width:w height:h
+    "draw a filled rectangle.
+     Notice: the cornerPoint itself is NOT included"
+
+    gc fillRectangleX:(origin x) y:(origin y) width:w height:h
+!
+
 fillRoundRectangleX:left y:top width:width height:height wCorner:wCorn hCorner:hCorn
     gc fillRoundRectangleX:left y:top width:width height:height wCorner:wCorn hCorner:hCorn