From 84607b057ced2b753987b4bca872e3807ff28281 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 22 Jun 2010 22:29:50 -0500 Subject: [PATCH] changed the shortcut keys in the language dialog to avoid cmd-l --- collects/drracket/private/language-configuration.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/drracket/private/language-configuration.rkt b/collects/drracket/private/language-configuration.rkt index 5bc24bdcea..ef538d275d 100644 --- a/collects/drracket/private/language-configuration.rkt +++ b/collects/drracket/private/language-configuration.rkt @@ -38,9 +38,9 @@ [(option) (send evt get-alt-down)])) shortcut-prefix)) (values (string-append (string-constant use-language-in-source) - (format " (~aM)" menukey-string)) + (format " (~aU)" menukey-string)) (string-append (string-constant choose-a-language) - (format " (~aL)" menukey-string)) + (format " (~aC)" menukey-string)) mouse-event-uses-shortcut-prefix?))) (define sc-lang-in-source-discussion (string-constant lang-in-source-discussion)) @@ -953,13 +953,13 @@ (get/set-selected-language-settings))) (λ (receiver evt) (case (send evt get-key-code) - [(#\m) + [(#\u) (if (mouse-event-uses-shortcut-prefix? evt) (begin (send use-language-in-source-rb set-selection 0) (use-language-in-source-rb-callback) #t) #f)] - [(#\l) + [(#\c) (if (mouse-event-uses-shortcut-prefix? evt) (begin (send use-chosen-language-rb set-selection 0)