gui.ss provides the following operations:
> (create-window (list (list (make-button "QUIT" hide-window))))
A button appears on the screen. Click on the button and it will disappear.
The frame reappears.
; text1 : GUI-ITEM
(make-text "Please enter your name"))
; msg1 : GUI-ITEM
(make-message (string-append "Hello, World" (make-string 33 #\SPACE))))
; Event -> true
; draws the current contents of text1 into msg1, prepended with "Hello, "
(define (respond e)
(draw-message msg1 (string-append "Hello, " (text-contents text1))))
; set up window with three "lines": a text field, a message, and two buttons
; fill in text and click OKAY
(list (make-button "OKAY" respond)
(make-button "QUIT" hide-window))))