suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix keymap for change shortcut of disabled menu item

Browse Source 
svn: r1673
This commit is contained in:
Matthew Flatt 2005-12-23 13:54:48 +00:00
parent 6f8eae575a
commit cb02748399
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mred/private/mrmenu.ss
View File

@ -235,8 +235,7 @@
(let-values ([(new-label keymap) (calc-labels l)]) (let-values ([(new-label keymap) (calc-labels l)])
(set! label (string->immutable-string l)) (set! label (string->immutable-string l))
(super-set-label new-label) (super-set-label new-label)
(if (or (super-is-deleted?) (if (super-is-deleted?)
(not (super-is-enabled?)))
(send wx set-keymap keymap) (send wx set-keymap keymap)
(send wx swap-keymap menu keymap)))))]) (send wx swap-keymap menu keymap)))))])
(override (override