From 2b088cb91b22039c8d47f7823a5216a3e74f6516 Mon Sep 17 00:00:00 2001
From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Thu, 27 Dec 2012 22:44:53 +0000
Subject: [PATCH] 	* 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)

---
 ChangeLog | 4 ++++
 tkcon.tcl | 5 +++++
 2 files changed, 9 insertions(+)

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