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