--- 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