From 7c44f1efca099a96072dc4d4310687fc1f353abf Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 21 Jul 2005 15:35:01 +0000 Subject: [PATCH] added alt-/option-/meta- and cmd- arrow bindings svn: r417 --- collects/hierlist/hierlist-unit.ss | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/collects/hierlist/hierlist-unit.ss b/collects/hierlist/hierlist-unit.ss index 97679ab1d2..ddf40a7cff 100644 --- a/collects/hierlist/hierlist-unit.ss +++ b/collects/hierlist/hierlist-unit.ss @@ -614,6 +614,12 @@ (send list-keymap map-function "end" "select-last") (send list-keymap map-function "pageup" "page-up") (send list-keymap map-function "pagedown" "page-down") + (send list-keymap map-function "a:up" "page-up") + (send list-keymap map-function "a:down" "page-down") + (send list-keymap map-function "m:up" "page-up") + (send list-keymap map-function "m:down" "page-down") + (send list-keymap map-function "d:up" "select-first") + (send list-keymap map-function "d:down" "select-last") (send list-keymap add-function "toggle-open/closed" (lambda (list event) (send list toggle-open/closed)))