From 54bef7534cc3a3321a7a8087ceb7073bf4ce096f Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Tue, 11 Sep 2012 09:05:30 +0000
Subject: fix <Up> and <Down> binding in windows console

---
 library/console.tcl | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/library/console.tcl b/library/console.tcl
index ab074f5..e93a39d 100644
--- a/library/console.tcl
+++ b/library/console.tcl
@@ -412,8 +412,6 @@ proc ::tk::ConsoleBind {w} {
     bind Console <Control-KeyPress> {# nothing}
 
     foreach {ev key} {
-	<<Console_Prev>>		<Key-Up>
-	<<Console_Next>>		<Key-Down>
 	<<Console_NextImmediate>>	<Control-Key-n>
 	<<Console_PrevImmediate>>	<Control-Key-p>
 	<<Console_PrevSearch>>		<Control-Key-r>
@@ -558,10 +556,10 @@ proc ::tk::ConsoleBind {w} {
 	    %W delete insert {insert wordend}
 	}
     }
-    bind Console <<Console_Prev>> {
+    bind Console <<PrevLine>> {
 	tk::ConsoleHistory prev
     }
-    bind Console <<Console_Next>> {
+    bind Console <<NextLine>> {
 	tk::ConsoleHistory next
     }
     bind Console <Insert> {
-- 
cgit v0.12