If you add the following binding to the end of Demos/browse.stk you
get a "Goodbye" message when you hit the "Quit" button:
(bind .f.list "<Destroy>"
(lambda () (format (current-error-port) "Goodbye~%")))
However, if you add a window parameter you will get an error:
(bind .f.list "<Destroy>"
(lambda (|W|) (format (current-error-port) "Goodbye~%")))
*** Background error:
unbound variable: .f.list
#### WARNING: error occurred while executing the body of report-error!!
[...]
Please help!
--
David Fox http://hci.ucsd.edu/dsf xoF divaD
UCSD HCI Lab baL ICH DSCU
Received on Fri Feb 26 1999 - 22:38:52 CET