From: sls <sls>
Date: Wed, 21 Jun 1995 22:01:33 +0000 (+0000)
Subject: Add up/down bindings, page up/page down bindings.
X-Git-Tag: r_5_1_4~22
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=f57259e12553132fd3db2720223199ec2018a4df;p=tkinspect

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

diff --git a/help.tcl b/help.tcl
index 413c569..dd1550e 100644
--- 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 }
 }