Skip to content

Instantly share code, notes, and snippets.

@spdegabrielle

spdegabrielle/listbox.rkt

Created July 5, 2020 10:41
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save spdegabrielle/c32006baa6d285036bb5bae60600ccde to your computer and use it in GitHub Desktop.
Save spdegabrielle/c32006baa6d285036bb5bae60600ccde to your computer and use it in GitHub Desktop.
Download ZIP
test the list-box%
Raw
listbox.rkt
#lang racket/gui
(define things
'(["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["cat" "cat command"]
["cow" "moo"]
["sheep" "baa"]
["dog" "woof"]
["bunny" "..."]
["deer" "??"]))
(define f (new frame% [width 400] [height 600] [label "test listbox"]))
(define results
(new list-box%
[parent f]
[columns '("command" "description")]
[label ""]
[choices (map car things)]
[callback void]
[stretchable-height #f]
[min-height 680]
[style '(single column-headers)]))
(send results set (map car things) (map cadr things))
(send f show #T)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment