1.17 Lookup GUI: "lkup-gui.ss"

The teachpack provides three functions:

procedure
(control index) → symbol?
index : natural-number?

reads out the indexth guess choice, starting with 0

procedure
(view msg) → true/c
msg : (or/c string? symbol?)

displays its msg argument in the message panel

procedure
(connect event-handler) → true/c
event-handler : (-> button% event% true/c)

connects a controller (handler) with the Check button displays frame

Example:

(connect
(lambda (e b)
(view (control))))

This example simply mirrors what the user types in to the message field.

1.1	Manipulating Images: "image.ss"
1.2	Simulations and Animations: "world.ss"
1.3	Converting Temperatures: "convert.ss"
1.4	Guessing Numbers: "guess.ss"
1.5	Master Minding: "master.ss"
1.6	Playing Master Mind: "master-play.ss"
1.7	Simple Drawing: "draw.ss"
1.8	Hangman: "hangman.ss"
1.9	Playing Hangman: "hangman-play.ss"
1.10	Managing Control Arrows: "arrow.ss"
1.11	Manipulating Simple HTML Documents: "docs.ss"
1.12	Working with Files and Directories: "dir.ss"
1.13	Graphing Functions: "graphing.ss"
1.14	Simple Graphical User Interfaces: "gui.ss"
1.15	An Arrow GUI: "arrow-gui.ss"
1.16	Controlling an Elevator: "elevator.ss"
1.17	Lookup GUI: "lkup-gui.ss"
1.18	Guess GUI: "guess-gui.ss"
1.19	Queens: "show-queen.ss"
1.20	Matrix Functions: "matrix.ss"