The teachpack guess-gui.ss implements three functions:
guess-gui.ss
control : N -> symbol
view : (union string symbol) -> true
modelT = (button% event% -> true)
connect : modelT -> true
Example:
(connect (lambda (e b) (begin (printf "0th digit: ~s~n" (control 0)) (view (control 0)))))