From 585127a604dc7a5e1ea93742e9833ef869d0acd0 Mon Sep 17 00:00:00 2001 From: patthoyts Date: Thu, 2 Oct 2003 23:02:36 +0000 Subject: * library/console.tcl: Avoid including the console in the list of interpreters exposed by [winfo interps]. --- ChangeLog | 5 +++++ library/console.tcl | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index d698999..4e69c11 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2003-10-03 Pat Thoyts + + * library/console.tcl: Avoid including the console in the list + of interpreters exposed by [winfo interps]. + 2003-10-01 Daniel Steffen * 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 -- cgit v0.12