The teachpack gui.ss provides the following operations:
gui.ss
show-window : -> true
hide-window : -> true
create-window : (listof (listof gui-item)) -> true
make-button : str (event% -> boolean) -> gui-item
make-message : str -> gui-item
draw-message : gui-item[message%] -> true
make-text : str -> gui-item
text-contents : gui-item[text%] -> str
make-choice : (listof str) -> gui-item
choice-index : gui-item[choice%] -> num
Example:
> (create-frame (list (list (make-button "QUIT" hide-window))))
> (show-window)