To remove a binding, you have to pass a null string as binding. For instance:
(pack (button '.b :text "foo"))
(bind .b "<2>" '(format #t "Button 2 pressed\n")))
....
....
(define old-binding (bind .b "<2>"))
(bind .b "<2>" "") ;; kill the binding
....
....
(bind .b "<2>" old-binding) ;; restore it
-- Erick
Received on Fri Sep 30 1994 - 10:08:47 CET
This archive was generated by hypermail 2.3.0
: Mon Jul 21 2014 - 19:38:59 CEST