call Init with eval to break out argv into args

diff --git a/ChangeLog b/ChangeLog
index 348a33e302aaf3853753de65b88de8cae277d68d..8ca92c95d7683362f7a4629a08b301266c77d19d 100644 (file)
--- 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 c4f0706c8ffea65977599236fafeb78f865c363b..09b481f8e7b393f7a854e7fe33816b1e6d501eb3 100755 (executable)
--- 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