diff options
| author | dgp <dgp@noemail.net> | 2002-03-01 00:04:27 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2002-03-01 00:04:27 (GMT) |
| commit | 5473dd64ef30281571d489b024347fc3cf8ec70e (patch) | |
| tree | 9fa79f4e6dc02dd11496fc57512bc6707f1abdc7 /library | |
| parent | 40ebaca7e1fce51ed3a6af635e67ec5596b3e4de (diff) | |
| download | tk-5473dd64ef30281571d489b024347fc3cf8ec70e.zip tk-5473dd64ef30281571d489b024347fc3cf8ec70e.tar.gz tk-5473dd64ef30281571d489b024347fc3cf8ec70e.tar.bz2 | |
* library/console.tcl (ConsoleBind): Corrected console <<Paste>>
binding on Unix platforms.
FossilOrigin-Name: 2187fed2a80ec3c4028328334d16423b87811820
Diffstat (limited to 'library')
| -rw-r--r-- | library/console.tcl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/library/console.tcl b/library/console.tcl index 776e7b4..70c5f51 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.16 2001/11/23 02:04:17 das Exp $ +# RCS: @(#) $Id: console.tcl,v 1.17 2002/03/01 00:04:27 dgp Exp $ # # Copyright (c) 1995-1997 Sun Microsystems, Inc. # Copyright (c) 1998-2000 Ajuba Solutions. @@ -289,8 +289,10 @@ proc ::tk::ConsoleBind {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 |