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

avoid taking over control-[ under windows so that overriding the smart opening paren thing is still possible

Browse Source
This commit is contained in:
Robby Findler 2010-12-10 11:44:27 -06:00
parent 32851bddf9
commit 0b54d7f010
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/drracket/private/main.rkt
View File

@ -657,14 +657,24 @@
(send item enable (and frame (> (length (send frame get-tabs)) 1)))))]) (send item enable (and frame (> (length (send frame get-tabs)) 1)))))])
(group:add-to-windows-menu (group:add-to-windows-menu
(λ (windows-menu) (λ (windows-menu)
(define sprefix (if (eq? (system-type) 'windows)
(cons 'shift (get-default-shortcut-prefix))
(get-default-shortcut-prefix)))
(new menu-item% (new menu-item%
[parent windows-menu] [label (string-constant prev-tab)] [shortcut #\[] [parent windows-menu]
[label (string-constant prev-tab)]
[shortcut #\[]
[shortcut-prefix sprefix]
[demand-callback dc] [demand-callback dc]
[callback (λ (item _) [callback (λ (item _)
(let ([frame (find-frame item)]) (let ([frame (find-frame item)])
(when frame (when frame
(send frame prev-tab))))]) (send frame prev-tab))))])
(new menu-item% [parent windows-menu] [label (string-constant next-tab)] [shortcut #\]] (new menu-item%
[parent windows-menu]
[label (string-constant next-tab)]
[shortcut #\]]
[shortcut-prefix sprefix]
[demand-callback dc] [demand-callback dc]
[callback (λ (item _) [callback (λ (item _)
(let ([frame (find-frame item)]) (let ([frame (find-frame item)])