GraphicsMedium.st
changeset 7800 49eed331f9ea
parent 7794 1ccbf79e1506
child 7843 c6576fab3e80
child 7855 46203abe7d57
equal deleted inserted replaced
7799:68deff7c0fd9 7800:49eed331f9ea
  1812 
  1812 
  1813     |top left|
  1813     |top left|
  1814 
  1814 
  1815     left := origin x.
  1815     left := origin x.
  1816     top := origin y.
  1816     top := origin y.
  1817     self displayRectangleX:left y:top
  1817     self displayRectangleX:left y:top width:(corner x - left) height:(corner y - top)
  1818 		     width:(corner x - left)
       
  1819 		    height:(corner y - top)
       
  1820 !
  1818 !
  1821 
  1819 
  1822 displayRectangleOrigin:origin extent:extent
  1820 displayRectangleOrigin:origin extent:extent
  1823     "draw a rectangle"
  1821     "draw a rectangle"
  1824 
  1822