* 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 78d760ab653715b62bd482f1cae95421d16617ce..fa8fabb7de606e65cf7ca743c753b07efde9b100 100644 (file)
--- 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 af5105244b6bafa88289be8473893b00164ceb0a..05b9e5d3c0c79710db15d2f4f1d4eccd3eee1e2d 100755 (executable)
--- 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>