(define button(new button%

(parentpanel)

(label"Button")))

(define check-box(new check-box%

(parentpanel)

(label"Check Box")

(value#t)))

(define choice(new choice%

(label"Choice")

(parentpanel)

(choices(list "Item 0"))))

(define combo-field(new combo-field%

(label"Combo")

(parentpanel)

(choices(list "Field"))

(init-value"Field")))

(define editor-canvas(new editor-canvas%

(parentpanel)

(label"Editor Canvas")))

(define text(new text% ))

(send textinsert"Editor Canvas")

(send editor-canvasset-editortext)

(define gauge(new gauge%

(label"Gauge")

(parentpanel)

(range 100)))

(send gaugeset-value42)

(define group-box-panel(new group-box-panel%

(parentpanel)

(label"Group Box Panel")))

(define list-box(new list-box%

(label"List Box")

(parent(new horizontal-panel%

(parentpanel)

(style(list 'border))))

(choices(list "Item 0"

"Item 1"

"Item 2"))

(style(list 'single

'column-headers))

(columns(list "First Column"))))

(define menu-bar(new menu-bar%

(parentframe)))

(new menu%

(label"&File")

(parentmenu-bar))

(new menu%

(label"&Edit")

(parentmenu-bar))

(new menu%

(label"&Help")

(parentmenu-bar))

(define message(new message%

(parentpanel)

(label"Message")))

(define a-panel(new panel%

(parentpanel)

(style(list 'border))))

(new message%

(parenta-panel)

(label"Panel"))

(define radio-box(new radio-box%

(label"Radio Box")

(parentpanel)

(choices(list "Button 0"

"Button 1"

"Button 2"))))

(define slider(new slider%

(label"Slider")

(parentpanel)

(min-value0)

(max-value100)

(init-value42)))

(define tab-panel(new tab-panel%

(parentpanel)

(choices(list "Tab 0"

"Tab 1"

"Tab 2"))))

(define text-field(new text-field%

(label"Text")

(parentpanel)

(init-value"Field")))