macro stepper: simplified prefs/params, fixed menu bugs

svn: r12681

original commit: 2648a3b03f01c04755469c5341fb380c6838e853
This commit is contained in:
Ryan Culpepper 2008-12-02 19:54:36 +00:00
parent d736df56b9
commit dc41bf0a45

View File

@ -151,10 +151,13 @@
(new checkable-menu-item%
(label label)
(parent parent)
(checked (send nb get))
(demand-callback
(lambda (i)
(send i check (send nb get))))
(callback
(lambda _ (send nb set (send menu-item is-checked?))))))
(send nb listen (lambda (value) (send menu-item check value)))
(lambda _
#;(send nb set (send menu-item is-checked?))
(send nb set (not (send nb get)))))))
menu-item)
(define (check-box/notify-box parent label nb)