diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-09-11 09:05:30 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-09-11 09:05:30 (GMT) |
| commit | 54bef7534cc3a3321a7a8087ceb7073bf4ce096f (patch) | |
| tree | 1336a8c9f0478e05b412e5116bac9c7f7910b68c | |
| parent | ddb8c75c2fe1fdcf3a024bfdb129eb6d26ac3b24 (diff) | |
| download | tk-54bef7534cc3a3321a7a8087ceb7073bf4ce096f.zip tk-54bef7534cc3a3321a7a8087ceb7073bf4ce096f.tar.gz tk-54bef7534cc3a3321a7a8087ceb7073bf4ce096f.tar.bz2 | |
fix <Up> and <Down> binding in windows console
| -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> { |