summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2001-10-19 17:43:51 (GMT)
committerhobbs <hobbs>2001-10-19 17:43:51 (GMT)
commit4f139c1a29a68da77a6c97b643b302f098786978 (patch)
tree7a98d88ac02fa434396e104964908b15094fabc6
parent87dd0a8f724902015bfda64b383800ab8781429a (diff)
downloadtk-4f139c1a29a68da77a6c97b643b302f098786978.zip
tk-4f139c1a29a68da77a6c97b643b302f098786978.tar.gz
tk-4f139c1a29a68da77a6c97b643b302f098786978.tar.bz2
* library/console.tcl: removed transpose ability until the console
can get a proper rewrite of tag handling.
-rw-r--r--ChangeLog7
-rw-r--r--library/console.tcl10
2 files changed, 12 insertions, 5 deletions
diff --git a/ChangeLog b/ChangeLog
index 414c4a9..d625a44 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
+2001-10-19 Jeff Hobbs <jeffh@ActiveState.com>
+
+ * library/console.tcl: removed transpose ability until the console
+ can get a proper rewrite of tag handling.
+
2001-10-18 Jeff Hobbs <jeffh@ActiveState.com>
+ * tests/defs.tcl: removed threaded build warning under X.
+
* library/console.tcl (ConsoleOutput): fixed undefined widget
argument.
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"