From b6132b0ebe5a7ca191b60c9c9a38c198cb708939 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 20 Feb 2005 04:27:14 +0000 Subject: [PATCH] . original commit: 7ab036c322e9137a25381209af7d2092daaabd6d --- collects/mred/private/mrmenu.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/mrmenu.ss b/collects/mred/private/mrmenu.ss index 663196e3..8c494b44 100644 --- a/collects/mred/private/mrmenu.ss +++ b/collects/mred/private/mrmenu.ss @@ -234,14 +234,14 @@ (check-char/false '(method selectable-menu-item<%> set-shortcut) c) (unless (equal? shortcut c) (set! shortcut c) - (do-set-label (super-get-label))))] + (do-set-label label)))] [get-shortcut (lambda () shortcut)] [get-x-shortcut-prefix (lambda () x-prefix)] [set-x-shortcut-prefix (lambda (p) (unless (memq p '(meta alt ctl-m ctl)) (raise-type-error (who->name '(method selectable-menu-item<%> set-x-shortcut-prefix)) "symbol: meta, alt, ctl-m, or ctl" p)) - (set! x-prefix p) (do-set-label (super-get-label)))]) + (set! x-prefix p) (do-set-label label))]) (sequence (set! label (string->immutable-string label)) (let-values ([(new-label keymap) (calc-labels label)])