1.18 Guess GUI: "guess-gui.ss"

The teachpack provides three functions:

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

reads out the indexth guess choice, starting with 0

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

displays its msg argument in the message panel

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

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

Example:

(connect (lambda (e b)
           (begin
             (printf "0th digit: ~s~n" (control 0))
             (view (control 0)))))

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"