From 3d74894221c42ae84b416de25130f42c493a2b50 Mon Sep 17 00:00:00 2001
From: ericm <ericm>
Date: Mon, 6 Mar 2000 19:17:11 +0000
Subject: * 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.

---
 library/package.tcl | 9 +++++----
 1 file 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
 
-- 
cgit v0.12