Add netscape-like alt-left arrow/right arrow and space/backspace/delete

bindings.

diff --git a/help.tcl b/help.tcl
index 22ee172bf95916b4b4876f31514586365e40e60c..413c5699cd0cf9d430f42788e6b6bd859e5c2f5f 100644 (file)
--- a/help.tcl
+++ b/help.tcl
@@ -38,6 +38,11 @@ dialog help_window {
        pack $self.text -in $self -side bottom -fill both -expand yes
        bind $self <Key-f> "$self forward"
        bind $self <Key-b> "$self back"
+       bind $self <Alt-Right> "$self forward"
+       bind $self <Alt-Left> "$self back"
+       bind $self <Key-space> "$self page_forward"
+       bind $self <Key-BackSpace> "$self page_back"
+       bind $self <Key-Delete> "$self page_back"
     }
     method reconfig {} {
        set m $self.menu.topics.m
@@ -117,4 +122,10 @@ dialog help_window {
            set slot(remaining) $n
        }
     }
+    method page_forward {} {
+       $self.text.t yview scroll 1 pages
+    }
+    method page_back {} {
+       $self.text.t yview scroll -1 pages
+    }
 }