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

dialect "rtobjectdraw"

object {
    inherit graphicApplicationSize(400 @ 400)
    
    windowTitle := "Hello World Program!"
    
    // Make a box and display "hello world" when program begins
    filledRectAt (100 @ 200) size (50 @ 30) on (canvas)
    textAt (90 @ 150) with ("Hello World!") on (canvas)

    startGraphics


















    // Display nested ovals and a line when mouse is pressed
    method onMousePress (point: Point) -> Done {
        framedOvalAt (140 @ 180) size (50 @ 40) on (canvas)
        framedOvalAt (150 @ 190) size (30 @ 20) on (canvas)
        lineFrom (0 @ 400) to (400 @ 0) on (canvas)
    }

}