Probably fix for PR 10773

svn: r18264
2010-02-22 18:04:04 +00:00 · 2010-02-22 18:04:04 +00:00 · f1e7c7e4b0
commit f1e7c7e4b0
parent e417da3598
1 changed files with 5 additions and 3 deletions
--- a/collects/framework/private/menu.ss
+++ b/collects/framework/private/menu.ss
@ -33,9 +33,11 @@
    (mixin (labelled-menu-item<%>) (can-restore-underscore<%>)
      (inherit get-label get-plain-label)
      (define/override (set-label nl)
-        (unless dont-save 
-          (set! saved-label nl))
-        (super set-label nl))
+        (super set-label nl)
+        (unless dont-save
+          (set! saved-label nl)
+          (unless (preferences:get 'framework:menu-bindings)
+            (erase-underscores))))
      (define/public (erase-underscores)
        (set! dont-save #t)
        (set-label (get-plain-label))