diff options
| author | ericm <ericm@noemail.net> | 2000-03-06 19:17:10 (GMT) |
|---|---|---|
| committer | ericm <ericm@noemail.net> | 2000-03-06 19:17:10 (GMT) |
| commit | 39e95d917778fe9f7f47105e5aa6ef05fdf9b00e (patch) | |
| tree | 3f57c373e839ca25408ee39eeff18598e36cb959 /library | |
| parent | 3c6b1b9c1528da20cf8024803103836df8fa2d30 (diff) | |
| download | tcl-39e95d917778fe9f7f47105e5aa6ef05fdf9b00e.zip tcl-39e95d917778fe9f7f47105e5aa6ef05fdf9b00e.tar.gz tcl-39e95d917778fe9f7f47105e5aa6ef05fdf9b00e.tar.bz2 | |
* library/package.tcl: Applied patch from Bug: 2570; rather than
setting geometry of slave interp to 0x0 when Tk was loaded, it now
does "wm withdraw .". Both remove the main window from the
display, but the former caused some internal structures to get
initialized to zero, which caused crashes with some extensions.
FossilOrigin-Name: d5871cf1fefe88a6010824ea61b3a379c6be7fb8
Diffstat (limited to 'library')
| -rw-r--r-- | library/package.tcl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/library/package.tcl b/library/package.tcl index f53a5a3..d8ead07 100644 --- a/library/package.tcl +++ b/library/package.tcl @@ -3,7 +3,7 @@ # utility procs formerly in init.tcl which can be loaded on demand # for package management. # -# RCS: @(#) $Id: package.tcl,v 1.12 2000/03/03 02:58:00 hobbs Exp $ +# RCS: @(#) $Id: package.tcl,v 1.13 2000/03/06 19:17:11 ericm Exp $ # # Copyright (c) 1991-1993 The Regents of the University of California. # Copyright (c) 1994-1998 Sun Microsystems, Inc. @@ -152,9 +152,6 @@ proc pkg_mkIndex {args} { if {! [string match $loadPat [lindex $pkg 1]]} { continue } - if {[string equal [lindex $pkg 1] "Tk"]} { - $c eval {set argv {-geometry +0+0}} - } if {[catch { load [lindex $pkg 0] [lindex $pkg 1] $c } err]} { @@ -164,6 +161,10 @@ proc pkg_mkIndex {args} { } elseif {$doVerbose} { tclLog "loaded [lindex $pkg 0] [lindex $pkg 1]" } + if {[string equal [lindex $pkg 1] "Tk"]} { + # Withdraw . if Tk was loaded, to avoid showing a window. + $c eval [list wm withdraw .] + } } cd $dir |