From 440594a93010848523731f8abed23d05fc2aaa32 Mon Sep 17 00:00:00 2001
From: sls <sls>
Date: Fri, 16 Jun 1995 08:35:19 +0000
Subject: [PATCH] Add netscape-like alt-left arrow/right arrow and
 space/backspace/delete bindings.

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

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