summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-09-11 09:05:30 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-09-11 09:05:30 (GMT)
commit54bef7534cc3a3321a7a8087ceb7073bf4ce096f (patch)
tree1336a8c9f0478e05b412e5116bac9c7f7910b68c
parentddb8c75c2fe1fdcf3a024bfdb129eb6d26ac3b24 (diff)
downloadtk-54bef7534cc3a3321a7a8087ceb7073bf4ce096f.zip
tk-54bef7534cc3a3321a7a8087ceb7073bf4ce096f.tar.gz
tk-54bef7534cc3a3321a7a8087ceb7073bf4ce096f.tar.bz2
fix <Up> and <Down> binding in windows console
-rw-r--r--library/console.tcl6
1 files 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> {