* library/console.tcl: fixed a few errors where namespace command

	names were used that were not back-ported from 8.4.

1 files changed, 8 insertions, 8 deletions

diff --git a/library/console.tcl b/library/console.tcl
index 79767ca..879a340 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.8.2.2 2001/10/18 20:26:24 hobbs Exp $
+# RCS: @(#) $Id: console.tcl,v 1.8.2.3 2001/10/19 17:33:27 hobbs Exp $
 #
 # Copyright (c) 1998-1999 Scriptics Corp.
 # Copyright (c) 1995-1997 Sun Microsystems, Inc.
@@ -288,6 +288,10 @@ proc tkConsoleBind {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
 
@@ -368,14 +372,14 @@ proc tkConsoleBind {w} {
 
     bind Console <Home> {
 	if {[%W compare insert < promptEnd]} {
-	    tk::TextSetCursor %W {insert linestart}
+	    tkTextSetCursor %W {insert linestart}
 	} else {
-	    tk::TextSetCursor %W promptEnd
+	    tkTextSetCursor %W promptEnd
 	}
     }
     bind Console <Control-a> [bind Console <Home>]
     bind Console <End> {
-	tk::TextSetCursor %W {insert lineend}
+	tkTextSetCursor %W {insert lineend}
     }
     bind Console <Control-e> [bind Console <End>]
     bind Console <Control-d> {
@@ -390,10 +394,6 @@ proc tkConsoleBind {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"