The teachpack lkup-gui.ss implements three functions:
lkup-gui.ss
control : -> symbol
view : (union string symbol) -> true
modelT = (button% event% -> true)
connect : modelT -> true
Example:
(connect (lambda (e b) (view (control))))