diff options
| author | jan.nijtmans <jan.nijtmans@noemail.net> | 2012-09-11 09:05:30 (GMT) |
|---|---|---|
| committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2012-09-11 09:05:30 (GMT) |
| commit | 150ae9414739522377aeae9adc55d0c661576986 (patch) | |
| tree | 1336a8c9f0478e05b412e5116bac9c7f7910b68c | |
| parent | 176d1f1c1f0f6e565f2da9b25df6adf594669059 (diff) | |
| download | tk-150ae9414739522377aeae9adc55d0c661576986.zip tk-150ae9414739522377aeae9adc55d0c661576986.tar.gz tk-150ae9414739522377aeae9adc55d0c661576986.tar.bz2 | |
fix <Up> and <Down> binding in windows console
FossilOrigin-Name: 6249d7ae63de5af22930a3dff3910c3c919dcaf5
| -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> { |