From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Sat, 22 Jun 2002 08:29:00 +0000 (+0000)
Subject: call Init with eval to break out argv into args
X-Git-Tag: tkcon-2-4~26
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=b34f7d9eb88b722222182884611807d855f51968;p=tkcon

call Init with eval to break out argv into args
---

diff --git a/ChangeLog b/ChangeLog
index 348a33e..8ca92c9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-06-22  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* tkcon.tcl: call Init with eval to break out argv into args.
+
 2002-06-04  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* tkcon.tcl (Init): convert env(home) from 'C:' to 'C:/' if necessary.
diff --git a/tkcon.tcl b/tkcon.tcl
index c4f0706..09b481f 100755
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -5306,7 +5306,7 @@ proc ::tkcon::Resource {} {
 if {(![info exists ::tkcon::PRIV(root)] \
 	|| ![winfo exists $::tkcon::PRIV(root)]) \
 	&& (![info exists argv0] || [info script] == $argv0)} {
-    ::tkcon::Init $argv
+    eval ::tkcon::Init $argv
 }
 
 package provide tkcon $::tkcon::VERSION