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

Revert "Be wary that the default-shortcut-prefix might be"

Browse Source 
This reverts commit 47b1195502.
This commit is contained in:
Ryan Culpepper 2014-01-03 18:07:49 -05:00
parent 1018b83f0f
commit 0cfeae7a30
2 changed files with 21 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
pkgs/drracket-pkgs/drracket/drracket/private/main.rkt
View File

@ -730,15 +730,14 @@
(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 shortcut? (not (equal? 'shift (get-default-shortcut-prefix))))
(define sprefix (if (eq? (system-type) 'windows) (define sprefix (if (eq? (system-type) 'windows)
(cons 'shift (get-default-shortcut-prefix)) (cons 'shift (get-default-shortcut-prefix))
(get-default-shortcut-prefix))) (get-default-shortcut-prefix)))
(new menu-item% (new menu-item%
[parent windows-menu] [parent windows-menu]
[label (string-constant prev-tab)] [label (string-constant prev-tab)]
[shortcut (and shortcut? #\[)] [shortcut #\[]
[shortcut-prefix (if shortcut? sprefix (get-default-shortcut-prefix))] [shortcut-prefix sprefix]
[demand-callback dc] [demand-callback dc]
[callback (λ (item _) [callback (λ (item _)
(let ([frame (find-frame item)]) (let ([frame (find-frame item)])
@ -755,21 +754,18 @@
(when frame (when frame
(send frame next-tab))))]) (send frame next-tab))))])
(define-values (mprefix use-shortcut?) (define mprefix (case (system-type)
(case (system-type) [(windows unix)
[(windows unix) (list* 'alt 'shift (get-default-shortcut-prefix))]
(if (equal? (get-default-shortcut-prefix) 'ctl) [(macosx)
(values (list* 'alt 'shift (get-default-shortcut-prefix)) #f) (list* 'option (get-default-shortcut-prefix))]))
(values (get-default-shortcut-prefix) #t))]
[(macosx)
(values (cons 'option (get-default-shortcut-prefix)) #t)]))
(new menu-item% (new menu-item%
[parent windows-menu] [parent windows-menu]
[label (string-constant move-current-tab-right)] [label (string-constant move-current-tab-right)]
[demand-callback dc] [demand-callback dc]
[shortcut-prefix mprefix] [shortcut-prefix mprefix]
[shortcut (and use-shortcut? #\])] [shortcut #\]]
[callback (λ (item _) [callback (λ (item _)
(let ([frame (find-frame item)]) (let ([frame (find-frame item)])
(when frame (when frame
@ -779,8 +775,8 @@
[parent windows-menu] [parent windows-menu]
[label (string-constant move-current-tab-left)] [label (string-constant move-current-tab-left)]
[demand-callback dc] [demand-callback dc]
[shortcut-prefix mprefix] [shortcut-prefix mprefix]
[shortcut (and shortcut? #\[)] [shortcut #\[]
[callback (λ (item _) [callback (λ (item _)
(let ([frame (find-frame item)]) (let ([frame (find-frame item)])
(when frame (when frame

36
pkgs/drracket-pkgs/drracket/drracket/private/unit.rkt
View File

@ -3370,12 +3370,8 @@
(λ (mi) (send mi set-label (if (send resizable-panel get-vertical?) (λ (mi) (send mi set-label (if (send resizable-panel get-vertical?)
(string-constant use-horizontal-layout) (string-constant use-horizontal-layout)
(string-constant use-vertical-layout))))] (string-constant use-vertical-layout))))]
[shortcut (if (member 'shift (get-default-shortcut-prefix)) [shortcut #\l]
#f [shortcut-prefix (cons 'shift (get-default-shortcut-prefix))])])
#\l)]
[shortcut-prefix (if (member 'shift (get-default-shortcut-prefix))
(get-default-shortcut-prefix)
(cons 'shift (get-default-shortcut-prefix)))])])
(set-show-menu-sort-key layout-item 103)) (set-show-menu-sort-key layout-item 103))
(let ([overview-menu-item (let ([overview-menu-item
@ -3518,16 +3514,10 @@
(demand-callback (λ (item) (split-demand item))))] (demand-callback (λ (item) (split-demand item))))]
[collapse [collapse
(new menu:can-restore-menu-item% (new menu:can-restore-menu-item%
(shortcut (if (or (equal? (system-type) 'macosx) (shortcut (if (eq? (system-type) 'macosx) #f #\m))
(member 'shift (get-default-shortcut-prefix))) (shortcut-prefix (if (eq? (system-type) 'macosx)
#f (get-default-shortcut-prefix)
#\m)) (cons 'shift (get-default-shortcut-prefix))))
(shortcut-prefix (cond
[(or (equal? (system-type) 'macosx)
(member 'shift (get-default-shortcut-prefix)))
(get-default-shortcut-prefix)]
[else
(cons 'shift (get-default-shortcut-prefix))]))
(label (string-constant collapse-menu-item-label)) (label (string-constant collapse-menu-item-label))
(parent (get-show-menu)) (parent (get-show-menu))
(callback (λ (x y) (collapse))) (callback (λ (x y) (collapse)))
@ -3768,10 +3758,8 @@
(lambda (file-menu) (lambda (file-menu)
(new menu:can-restore-menu-item% (new menu:can-restore-menu-item%
[label (string-constant open-collection-path)] [label (string-constant open-collection-path)]
[shortcut (if (member 'shift (get-default-shortcut-prefix)) #f #\o)] [shortcut #\o]
[shortcut-prefix (if (member 'shift (get-default-shortcut-prefix)) [shortcut-prefix (cons 'shift (get-default-shortcut-prefix))]
(get-default-shortcut-prefix)
(cons 'shift (get-default-shortcut-prefix)))]
[parent file-menu] [parent file-menu]
[callback [callback
(λ (x y) (λ (x y)
@ -3874,12 +3862,8 @@
label) label)
(new menu:can-restore-checkable-menu-item% (new menu:can-restore-checkable-menu-item%
[label label] [label label]
[shortcut (if (member 'shift (get-default-shortcut-prefix)) [shortcut shortcut]
#f [shortcut-prefix (cons 'shift (get-default-shortcut-prefix))]
shortcut)]
[shortcut-prefix (if (member 'shift (get-default-shortcut-prefix))
(get-default-shortcut-prefix)
(cons 'shift (get-default-shortcut-prefix)))]
[parent edit-menu] [parent edit-menu]
[demand-callback [demand-callback
(λ (item) (λ (item)