Add up/down bindings, page up/page down bindings.

diff --git a/help.tcl b/help.tcl
index 413c5699cd0cf9d430f42788e6b6bd859e5c2f5f..dd1550ea6d8b68e81a6dc06568ca8c16d5e1a72c 100644 (file)
--- a/help.tcl
+++ b/help.tcl
@@ -41,8 +41,12 @@ dialog help_window {
        bind $self <Alt-Right> "$self forward"
        bind $self <Alt-Left> "$self back"
        bind $self <Key-space> "$self page_forward"
+       bind $self <Key-Next> "$self page_forward"
        bind $self <Key-BackSpace> "$self page_back"
+       bind $self <Key-Prior> "$self page_back"
        bind $self <Key-Delete> "$self page_back"
+       bind $self <Key-Down> "$self line_forward"
+       bind $self <Key-Up> "$self line_back"
     }
     method reconfig {} {
        set m $self.menu.topics.m
@@ -128,4 +132,6 @@ dialog help_window {
     method page_back {} {
        $self.text.t yview scroll -1 pages
     }
+    method line_forward {} { $self.text.t yview scroll 1 units }
+    method line_back {} { $self.text.t yview scroll -1 units }
 }