Macro stepper: refactored display code

svn: r5775 original commit: ac983b32a64be9cf57638f3fe32796539115923d
2007-03-14 21:33:59 +00:00 · 2007-03-14 21:33:59 +00:00 · 2d81e5fc93
commit 2d81e5fc93
parent 627a67a298
1 changed files with 1 additions and 1 deletions
--- a/collects/macro-debugger/view/util.ss
+++ b/collects/macro-debugger/view/util.ss
@ -103,7 +103,7 @@
           (parent parent)
           (checked (send nb get))
           (callback
-            (lambda _ (send nb set (not (send nb get)))))))
+            (lambda _ (send nb set (send menu-item is-checked?))))))
    (send nb listen (lambda (value) (send menu-item check value)))
    menu-item)