From dbd1261122af9ae8dbddafdc7cd49ddc404eefc1 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 18 Sep 2005 12:47:35 +0000 Subject: [PATCH] extra paging keybindings svn: r874 --- collects/hierlist/hierlist-unit.ss | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/hierlist/hierlist-unit.ss b/collects/hierlist/hierlist-unit.ss index ddf40a7cff..267dfe2d3f 100644 --- a/collects/hierlist/hierlist-unit.ss +++ b/collects/hierlist/hierlist-unit.ss @@ -620,7 +620,11 @@ (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 map-function "esc;v" "page-up") + (send list-keymap map-function "c:v" "page-down") + (send list-keymap map-function "esc;>" "select-last") + (send list-keymap map-function "esc;<" "select-first") + (send list-keymap add-function "toggle-open/closed" (lambda (list event) (send list toggle-open/closed))) (send list-keymap map-function "return" "toggle-open/closed")