GraphicsMedium.st
branchjv
changeset 7855 46203abe7d57
parent 7803 14d6df784ebb
parent 7800 49eed331f9ea
child 8420 76e39223f5ab
--- a/GraphicsMedium.st	Wed Feb 01 21:42:41 2017 +0000
+++ b/GraphicsMedium.st	Wed Feb 01 22:17:58 2017 +0000
@@ -1814,9 +1814,7 @@
 
     left := origin x.
     top := origin y.
-    self displayRectangleX:left y:top
-		     width:(corner x - left)
-		    height:(corner y - top)
+    self displayRectangleX:left y:top width:(corner x - left) height:(corner y - top)
 !
 
 displayRectangleOrigin:origin extent:extent
@@ -2420,7 +2418,7 @@
     "fill the receiver with something;
      something may be a Form, Color or colorIndex"
 
-    gc fillRectangle:self boundingBox color:something
+    gc fillRectangle:(self boundingBox) color:something
 !
 
 fillArc:origin radius:r from:startAngle angle:angle