added alt-/option-/meta- and cmd- arrow bindings

svn: r417

original commit: 7c44f1efca099a96072dc4d4310687fc1f353abf
This commit is contained in:
Matthew Flatt 2005-07-21 15:35:01 +00:00
parent 861164307b
commit f84ee014d5

View File

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