--- a/GraphicsContext.st	Sun Feb 11 20:13:28 2018 +0100
+++ b/GraphicsContext.st	Thu Feb 15 15:57:59 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
@@ -2308,6 +2310,13 @@
     self 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"
+
+    self fillRectangleX:(origin x) y:(origin y) width:w height:h
+!
+
 fillRoundRectangleX:left y:top width:width height:height wCorner:wCorn hCorner:hCorn
     |right bottom wC hC wHalf hHalf|