diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | library/console.tcl | 6 |
2 files changed, 9 insertions, 2 deletions
@@ -1,3 +1,8 @@ +2002-02-28 Don Porter <dgp@users.sourceforge.net> + + * library/console.tcl (tkConsoleBind): Corrected console <<Paste>> + binding on Unix platforms. + 2002-02-25 Jeff Hobbs <jeffh@ActiveState.com> * generic/tkText.c (ConfigureText): reenable the blinking cursor diff --git a/library/console.tcl b/library/console.tcl index 7831e7b..396d7d3 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.4 2001/10/19 19:40:17 das Exp $ +# RCS: @(#) $Id: console.tcl,v 1.8.2.5 2002/03/01 00:03:57 dgp Exp $ # # Copyright (c) 1998-1999 Scriptics Corp. # Copyright (c) 1995-1997 Sun Microsystems, Inc. @@ -285,8 +285,10 @@ proc tkConsoleBind {w} { ## Get all Text bindings into Console foreach ev [bind Text] { bind Console $ev [bind Text $ev] } - ## We really didn't want the newline insertion + ## We really didn't want the newline insertion... bind Console <Control-Key-o> {} + ## ...or any Control-v binding (would block <<Paste>>) + bind Console <Control-Key-v> {} # For the moment, transpose isn't enabled until the console # gets and overhaul of how it handles input -- hobbs |