fix the shortcut for "The Racket Language" in the language dialog

closes PR 13299
This commit is contained in:
Robby Findler 2012-12-01 16:07:43 -06:00
parent cc0a105e21
commit 33ca14a603

View File

@ -1215,7 +1215,7 @@
(get/set-selected-language-settings))) (get/set-selected-language-settings)))
(λ (receiver evt) (λ (receiver evt)
(case (send evt get-key-code) (case (send evt get-key-code)
[(#\u) [(#\r)
(if (mouse-event-uses-shortcut-prefix? evt) (if (mouse-event-uses-shortcut-prefix? evt)
(begin (send use-language-in-source-rb set-selection 0) (begin (send use-language-in-source-rb set-selection 0)
(use-language-in-source-rb-callback) (use-language-in-source-rb-callback)