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

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

View File

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

View File

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