diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | library/console.tcl | 5 |
2 files changed, 9 insertions, 1 deletions
@@ -1,3 +1,8 @@ +2003-10-03 Pat Thoyts <patthoyts@users.sourceforge.net> + + * library/console.tcl: Avoid including the console in the list + of interpreters exposed by [winfo interps]. + 2003-10-01 Daniel Steffen <das@users.sourceforge.net> * macosx/Wish.pbproj/project.pbxproj: 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 |