diff options
Diffstat (limited to 'library')
| -rw-r--r-- | library/console.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/library/console.tcl b/library/console.tcl index a9ad8a0..5f4d661 100644 --- a/library/console.tcl +++ b/library/console.tcl @@ -4,7 +4,7 @@ # can be used by non-unix systems that do not have built-in support # for shells. # -# RCS: @(#) $Id: console.tcl,v 1.14 2001/10/18 20:26:42 hobbs Exp $ +# RCS: @(#) $Id: console.tcl,v 1.15 2001/10/19 17:43:52 hobbs Exp $ # # Copyright (c) 1995-1997 Sun Microsystems, Inc. # Copyright (c) 1998-2000 Ajuba Solutions. @@ -292,6 +292,10 @@ proc ::tk::ConsoleBind {w} { ## We really didn't want the newline insertion bind Console <Control-Key-o> {} + # For the moment, transpose isn't enabled until the console + # gets and overhaul of how it handles input -- hobbs + bind Console <Control-Key-t> {} + # Ignore all Alt, Meta, and Control keypresses unless explicitly bound. # Otherwise, if a widget binding for one of these is defined, the @@ -394,10 +398,6 @@ proc ::tk::ConsoleBind {w} { %W delete insert {insert lineend} } } - bind Console <<Console_Transpose>> { - ## Transpose current and previous chars - if {[%W compare insert > promptEnd]} { ::tk::TextTranspose %W } - } bind Console <<Console_Clear>> { ## Clear console display %W delete 1.0 "promptEnd linestart" |