added a preference to restore the old run, new tab, and replace keybindings

collects/drracket/private/main.rkt

@@ -116,7 +116,7 @@
                                  ll))))
 
 (drr:set-default 'drracket:module-language-first-line-special? #t boolean?)
-
+(drr:set-default 'drracket:use-old-style-keybindings #f boolean?)
 (drr:set-default 'drracket:defns-popup-sort-by-name? #f boolean?)
 (drr:set-default 'drracket:show-line-numbers? #f boolean?)
 
@@ -329,6 +329,10 @@
 
      (make-check-box 'drracket:module-language-first-line-special?
                      (string-constant ml-always-show-#lang-line)
+                     editor-panel)
+     
+     (make-check-box 'drracket:use-old-style-keybindings
+                     (string-constant old-style-keybindings)
                      editor-panel)))
   
   (preferences:add-to-editor-checkbox-panel

collects/drracket/private/unit.rkt

@@ -3338,7 +3338,7 @@ module browser threading seems wrong.
         (set! file-menu:create-new-tab-item
               (new menu:can-restore-menu-item%
                    (label (string-constant new-tab))
-                   (shortcut #\t)
+                   (shortcut (if (preferences:get 'drracket:use-old-style-keybindings) #\= #\t))
                    (parent file-menu)
                    (callback
                     (λ (x y)
@@ -3417,8 +3417,13 @@ module browser threading seems wrong.
                         (preferences:get 'framework:print-output-mode)))))
         (super file-menu:between-print-and-close file-menu))
       
+      (inherit edit-menu:get-replace-item)
       (define/override (edit-menu:between-find-and-preferences edit-menu)
         (super edit-menu:between-find-and-preferences edit-menu)
+        (when (preferences:get 'drracket:use-old-style-keybindings)
+          (define item (edit-menu:get-replace-item)) 
+          (send item set-shortcut #\r)
+          (send item set-shortcut-prefix (get-default-shortcut-prefix))) 
         (new menu:can-restore-menu-item%
              [label (string-constant complete-word)]
              [shortcut #\/]
@@ -3621,7 +3626,7 @@ module browser threading seems wrong.
                   (string-constant execute-menu-item-label)
                   language-specific-menu
                   (λ (_1 _2) (execute-callback))
-                  #\r
+                  (if (preferences:get 'drracket:use-old-style-keybindings) #\t #\r)
                   (string-constant execute-menu-item-help-string)))
           (make-object menu:can-restore-menu-item%
             (string-constant ask-quit-menu-item-label)

collects/string-constants/private/english-string-constants.rkt

@@ -478,6 +478,7 @@ please adhere to these guidelines:
  (show-interactions-on-execute "Automatically open interactions window when running a program")
  (switch-to-module-language-automatically "Automatically switch to the module language when opening a module")
  (interactions-beside-definitions "Put the interactions window beside the definitions window") ;; in preferences, below the checkbox one line above this one
+ (old-style-keybindings "Old-style keybindings (Run: <menukey>-t; New-tab: <menukey>-=; Replace: <menukey>-r)")
  (show-line-numbers "Show line numbers")
  (show-line-numbers/menu "Show Line &Numbers")  ;; just like the above, but capitalized for appearance in a menu item
  (hide-line-numbers/menu "Hide Line &Numbers")

doc/release-notes/drracket/HISTORY.txt

@@ -2,11 +2,14 @@
         Version 5.2
 ------------------------------
 
-  . changed a few menu keybidings:
+  . changed a three menu keybidings:
       "New Tab" is now <menukey>-t
       "Run" is now <menukey>-r
       "Replace" is now <menukey>-shift-f
 
+    The preferences dialog (general tab) has a checkbox to
+    restore the old behavior.
+
   . added online expansion and check syntax
 
   . 2htdp/image: