From f57259e12553132fd3db2720223199ec2018a4df Mon Sep 17 00:00:00 2001
From: sls <sls>
Date: Wed, 21 Jun 1995 22:01:33 +0000
Subject: [PATCH] Add up/down bindings, page up/page down bindings.

---
 help.tcl | 6 ++++++
 1 file changed, 6 insertions(+)

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 }
 }
-- 
2.23.0