From: sls <sls>
Date: Fri, 16 Jun 1995 08:35:19 +0000 (+0000)
Subject: Add netscape-like alt-left arrow/right arrow and space/backspace/delete
X-Git-Tag: r_5_1_4~45
X-Git-Url: http://www.privyetmir.co.uk/gitweb?a=commitdiff_plain;h=440594a93010848523731f8abed23d05fc2aaa32;p=tkinspect

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

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