From f1a4aeedba431f8ed54767dc045e4d2a5282b5a4 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 21 Aug 2012 08:15:41 -0500 Subject: [PATCH] control-alt for menu selections probably shouldn't be used under windows, so just give a menu shortcut under macosx and under windows rely on the underscore thingy --- collects/framework/private/standard-menus-items.rkt | 11 ++++++----- .../private/english-string-constants.rkt | 2 +- 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/collects/framework/private/standard-menus-items.rkt b/collects/framework/private/standard-menus-items.rkt index 1e4ac97ca6..557b3e1c06 100644 --- a/collects/framework/private/standard-menus-items.rkt +++ b/collects/framework/private/standard-menus-items.rkt @@ -363,11 +363,12 @@ (make-an-item 'edit-menu 'find-from-selection '(string-constant find-info) '(λ (item control) (void)) - #\f - '(cons (if (eq? (system-type) 'macosx) - 'option - 'alt ) - (get-default-shortcut-prefix)) + '(if (eq? (system-type) 'macosx) + #\f + #f) + '(if (eq? (system-type) 'macosx) + (cons 'option (get-default-shortcut-prefix)) + (get-default-shortcut-prefix)) '(string-constant find-from-selection-menu-item) edit-menu:edit-target-on-demand #f) diff --git a/collects/string-constants/private/english-string-constants.rkt b/collects/string-constants/private/english-string-constants.rkt index cc865f047c..4cff790ece 100644 --- a/collects/string-constants/private/english-string-constants.rkt +++ b/collects/string-constants/private/english-string-constants.rkt @@ -737,7 +737,7 @@ please adhere to these guidelines: (select-all-menu-item "Select A&ll") (find-menu-item "Find") ;; menu item - (find-from-selection-menu-item "Find From Selection") + (find-from-selection-menu-item "Find From S&election") (find-info "Toggles the keyboard focus between the window being searched and the search bar") (find-next-info "Skip to the next occurrence of the string in the find window")