diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-09-11 09:05:30 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-09-11 09:05:30 (GMT) |
| commit | 2ced97fca694b19a4d91ca40fe512594590429aa (patch) | |
| tree | 1336a8c9f0478e05b412e5116bac9c7f7910b68c /library/console.tcl | |
| parent | 7e1e6fa29a146442df8b72c47c4622f5836c2ff1 (diff) | |
| download | tk-2ced97fca694b19a4d91ca40fe512594590429aa.zip tk-2ced97fca694b19a4d91ca40fe512594590429aa.tar.gz tk-2ced97fca694b19a4d91ca40fe512594590429aa.tar.bz2 | |
fix <Up> and <Down> binding in windows console
Diffstat (limited to 'library/console.tcl')
| -rw-r--r-- | library/console.tcl | 6 |
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> { |