summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorericm <ericm>2000-03-06 19:17:11 (GMT)
committerericm <ericm>2000-03-06 19:17:11 (GMT)
commit3d74894221c42ae84b416de25130f42c493a2b50 (patch)
tree3f57c373e839ca25408ee39eeff18598e36cb959
parentde585ccb22c5875225ce54c47c181e75dfa5bf27 (diff)
downloadtcl-3d74894221c42ae84b416de25130f42c493a2b50.zip
tcl-3d74894221c42ae84b416de25130f42c493a2b50.tar.gz
tcl-3d74894221c42ae84b416de25130f42c493a2b50.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.
-rw-r--r--library/package.tcl9
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