* library/console.tcl: removed transpose ability until the console

	can get a proper rewrite of tag handling.

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"