added shortcut for collapse that works on the mac

svn: r9462
This commit is contained in:
Robby Findler 2008-04-24 19:27:30 +00:00
parent acfcb9878c
commit e3a13be4a0

View File

@ -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%