From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Thu, 27 Dec 2012 22:44:53 +0000 (+0000)
Subject: 	* tkcon.tcl (::tkcon::Bindings): minimal patch for 8.6b3+ event
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=2b088cb91b22039c8d47f7823a5216a3e74f6516;p=tkcon

	* tkcon.tcl (::tkcon::Bindings): minimal patch for 8.6b3+ event
	compatibility. Larger patch to come that addresses shift towards
	virtual events in core widgets. [Bug #48] (gollwitzer)
---

diff --git a/ChangeLog b/ChangeLog
index 78d760a..fa8fabb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2012-12-27  Jeff Hobbs  <jeffh@ActiveState.com>
 
+	* tkcon.tcl (::tkcon::Bindings): minimal patch for 8.6b3+ event
+	compatibility. Larger patch to come that addresses shift towards
+	virtual events in core widgets. [Bug #48] (gollwitzer)
+
 	* docs/{dump.man,tkcon.1.man,tkconc.5.man}: make dtplite happy for
 	the docs [Bug #47]
 
diff --git a/tkcon.tcl b/tkcon.tcl
index af51052..05b9e5d 100755
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -5082,6 +5082,11 @@ proc ::tkcon::Bindings {} {
     ## We really didn't want the newline insertion
     bind TkConsole <Control-Key-o> {}
 
+    ## in 8.6b3, the virtual events <<NextLine>> and <<PrevLine>> 
+    #  mess up our history feature
+    bind TkConsole <<NextLine>> {}
+    bind TkConsole <<PrevLine>> {}
+
     ## Now make all our virtual event bindings
     set bindings {
 	<<TkCon_Exit>>		<$PRIV(CTRL)-q>