From 844fe17da2a39679cd943fb8ebb9b59259e1f0e4 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 original commit: f1a4aeedba431f8ed54767dc045e4d2a5282b5a4 --- collects/framework/private/standard-menus-items.rkt | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/collects/framework/private/standard-menus-items.rkt b/collects/framework/private/standard-menus-items.rkt index 1e4ac97c..557b3e1c 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)