{ import: Object }
{ import: SDLSurface }
{ include "SDL/SDL.h" }

[
    | window |
    window := Window new: 600,480.
    window add: ((Box newButton: 'Hello' action: [:ev | StdOut nextPutAll: 'Hello!\n']) position: 200,100).
    [window draw; dispatchEvent: window nextEvent] repeat.
]