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

cocoa: fix removal of menu shortcut

Browse Source 
Closes PR 11463
This commit is contained in:
Matthew Flatt 2010-11-28 09:21:16 -07:00
parent d37cc7b3ec
commit 2282cae59a
1 changed files with 19 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mred/private/wx/cocoa/menu-item.rkt
View File

@ -80,7 +80,7 @@
(define (set-menu-item-shortcut item label) (define (set-menu-item-shortcut item label)
(let ([shortcut (regexp-match #rx"\tCut=(.)(.*)" label)]) (let ([shortcut (regexp-match #rx"\tCut=(.)(.*)" label)])
(when shortcut (if shortcut
(let* ([s (string-downcase (string (integer->char (string->number (caddr shortcut)))))] (let* ([s (string-downcase (string (integer->char (string->number (caddr shortcut)))))]
[flags (- (char->integer (string-ref (cadr shortcut) 0)) [flags (- (char->integer (string-ref (cadr shortcut) 0))
(char->integer #\A))] (char->integer #\A))]
@ -97,4 +97,5 @@
0 0
NSCommandKeyMask))]) NSCommandKeyMask))])
(tellv item setKeyEquivalent: #:type _NSString s) (tellv item setKeyEquivalent: #:type _NSString s)
(tellv item setKeyEquivalentModifierMask: #:type _NSUInteger mods))))) (tellv item setKeyEquivalentModifierMask: #:type _NSUInteger mods))
(tellv item setKeyEquivalent: #:type _NSString ""))))