From e3a13be4a095822c2fcf397919949b95cc9080bb Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 24 Apr 2008 19:27:30 +0000 Subject: [PATCH] added shortcut for collapse that works on the mac svn: r9462 --- collects/drscheme/private/unit.ss | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss index 8cb9599acf..67a1854675 100644 --- a/collects/drscheme/private/unit.ss +++ b/collects/drscheme/private/unit.ss @@ -3125,9 +3125,12 @@ module browser threading seems wrong. (make-object separator-menu-item% (get-show-menu)) (new menu:can-restore-menu-item% - (shortcut (if (eq? (system-type) 'macosx) #f #\m)) + (shortcut (if (eq? (system-type) 'macosx) #\r #\m)) (label (string-constant split-menu-item-label)) (parent (get-show-menu)) + (shortcut-prefix (if (eq? (system-type) 'macosx) + (cons 'shift (get-default-shortcut-prefix)) + (get-default-shortcut-prefix))) (callback (λ (x y) (split))) (demand-callback (λ (item) (split-demand item)))) (new menu:can-restore-menu-item%