add a shortcut to file|revert

2013-11-26 14:26:54 -06:00 · 2013-11-26 14:26:54 -06:00 · 6bac145851
commit 6bac145851
parent f5177177bc
1 changed files with 2 additions and 2 deletions
--- a/pkgs/gui-pkgs/gui-lib/framework/private/standard-menus-items.rkt
+++ b/pkgs/gui-pkgs/gui-lib/framework/private/standard-menus-items.rkt
@ -227,8 +227,8 @@
        (make-an-item 'file-menu 'revert
                      '(string-constant revert-info)
                      '(λ (item control) (void))
-                      #f
-                      '(get-default-shortcut-prefix)
+                      #\e
+                      '(cons 'shift (get-default-shortcut-prefix))
                      '(string-constant revert-menu-item)
                      on-demand-do-nothing
                      #f)