// Sample CS51 program
// Draw filled rectangle and other graphic items

dialect "rtobjectdraw"

object {
    inherit graphicApplicationSize (400 @ 400)
    
    // dimensions of box
    def boxSize: Point = 50 @ 30
    
    // Display nested ovals and a line when mouse is pressed
    method onMousePress(pt: Point) -> Done {
        filledRectAt (pt) size (boxSize) on (canvas)
    }

    startGraphics
}