▼ |  | The Racket Graphical Interface Toolkit

1 | Windowing
2 | Widget Gallery
3 | Windowing Classes
4 | Windowing Functions
5 | Editors
6 | Snip and Style Classes
7 | Editor Classes
8 | Editor Functions
9 | WXME Decoding
10 | Preferences
11 | Dynamic Loading
12 | Startup Actions
13 | Platform Dependencies
| Index

top ← prev up next →

### 2`` Widget Gallery

This section shows the main widgets available in the Racket Graphical User Interface Toolkit. Each image is a link to the documentation of the relevant widget.

> (define button (new button%
> (parent panel)
> (label "Button")))

> (define check-box (new check-box%
> (parent panel)
> (label "Check Box")
> (value #t)))

> (define choice (new choice%
> (label "Choice")
> (parent panel)
> (choices (list "Item 0"))))

> (define combo-field (new combo-field%
> (label "Combo")
> (parent panel)
> (choices (list "Field"))
> (init-value "Field")))

> (define editor-canvas (new editor-canvas%
> (parent panel)
> (label "Editor Canvas")))
> (define text (new text%))
> (send text insert "Editor Canvas")
> (send editor-canvas set-editor text)

> (define gauge (new gauge%
> (label "Gauge")
> (parent panel)
> (range 100)))
> (send gauge set-value 42)

> (define group-box-panel (new group-box-panel%
> (parent panel)
> (label "Group Box Panel")))

> (define list-box (new list-box%
> (label "List Box")
> (parent (new horizontal-panel%
> (parent panel)
> (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%
> (parent frame)))
> (new menu%
> (label "&File")
> (parent menu-bar))
> (new menu%
> (label "&Edit")
> (parent menu-bar))
> (new menu%
> (label "&Help")
> (parent menu-bar))

> (define message (new message%
> (parent panel)
> (label "Message")))

> (define a-panel (new panel%
> (parent panel)
> (style (list 'border))))
> (new message%
> (parent a-panel)
> (label "Panel"))

> (define radio-box (new radio-box%
> (label "Radio Box")
> (parent panel)
> (choices (list "Button 0"
> "Button 1"
> "Button 2"))))

> (define slider (new slider%
> (label "Slider")
> (parent panel)
> (min-value 0)
> (max-value 100)
> (init-value 42)))

> (define tab-panel (new tab-panel%
> (parent panel)
> (choices (list "Tab 0"
> "Tab 1"
> "Tab 2"))))

> (define text-field (new text-field%
> (label "Text")
> (parent panel)
> (init-value "Field")))

top ← prev up next →