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

set the save-as menu shortcut to s and the prefix to shift

Browse Source
This commit is contained in:
Robby Findler 2011-03-25 20:17:56 -05:00
parent 00696cbfac
commit 3b4ba31d74
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/private/standard-menus-items.rkt
View File

@ -245,8 +245,8 @@
(make-an-item 'file-menu 'save-as (make-an-item 'file-menu 'save-as
'(string-constant save-as-info) '(string-constant save-as-info)
'(λ (item control) (void)) '(λ (item control) (void))
#f #\s
'(get-default-shortcut-prefix) '(cons 'shift (get-default-shortcut-prefix))
'(string-constant save-as-menu-item) '(string-constant save-as-menu-item)
on-demand-do-nothing on-demand-do-nothing
#f) #f)

4
collects/framework/private/standard-menus.rkt
View File

@ -671,8 +671,8 @@
(let ((file-menu:save-as-callback (let ((file-menu:save-as-callback
(λ (item evt) (file-menu:save-as-callback item evt)))) (λ (item evt) (file-menu:save-as-callback item evt))))
file-menu:save-as-callback)) file-menu:save-as-callback))
(shortcut #f) (shortcut #\s)
(shortcut-prefix (get-default-shortcut-prefix)) (shortcut-prefix (cons 'shift (get-default-shortcut-prefix)))
(help-string (file-menu:save-as-help-string)) (help-string (file-menu:save-as-help-string))
(demand-callback (demand-callback
(λ (menu-item) (file-menu:save-as-on-demand menu-item)))))) (λ (menu-item) (file-menu:save-as-on-demand menu-item))))))