diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2003-10-02 23:02:36 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2003-10-02 23:02:36 (GMT) |
| commit | 585127a604dc7a5e1ea93742e9833ef869d0acd0 (patch) | |
| tree | d283d2ebb1b0fcac97b79ca1ef9c7e1635cd2280 /library/console.tcl | |
| parent | 48e0e43fbc61a0da6568824965c13e2ec7cb2e38 (diff) | |
| download | tk-585127a604dc7a5e1ea93742e9833ef869d0acd0.zip tk-585127a604dc7a5e1ea93742e9833ef869d0acd0.tar.gz tk-585127a604dc7a5e1ea93742e9833ef869d0acd0.tar.bz2 | |
* library/console.tcl: Avoid including the console in the list
of interpreters exposed by [winfo interps].
Diffstat (limited to 'library/console.tcl')
| -rw-r--r-- | library/console.tcl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/library/console.tcl b/library/console.tcl index 0ad6959..2de77c6 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.23 2003/05/19 14:44:03 dkf Exp $ +# RCS: @(#) $Id: console.tcl,v 1.24 2003/10/02 23:02:36 patthoyts Exp $ # # Copyright (c) 1995-1997 Sun Microsystems, Inc. # Copyright (c) 1998-2000 Ajuba Solutions. @@ -131,6 +131,9 @@ proc ::tk::ConsoleInit {} { focus $con + # Avoid listing this console in [winfo interps] + if {[info command ::send] eq "::send"} {rename ::send {}} + wm protocol . WM_DELETE_WINDOW { wm withdraw . } wm title . [mc "Console"] flush stdout |