* tkcon.tcl (idebug): better line handling to not use list

	functions. [Bug 111462] (goth)
	(tkcon): pass any init args to 'tkcon show'

diff --git a/ChangeLog b/ChangeLog
index 8217631b6b7cb4d82c602ed65cd1eb631d73c297..da25af2e61616955ac52ccb1cf371a2d074e072b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2012-03-06  Jeff Hobbs  <jeffh@>
+
+       * tkcon.tcl (idebug): better line handling to not use list
+       functions. [Bug 111462] (goth)
+       (tkcon): pass any init args to 'tkcon show'
+
 2011-10-28  Jeff Hobbs  <jeffh@ActiveState.com>
 
        * pkgIndex.tcl: update to v2.7

diff --git a/tkcon.tcl b/tkcon.tcl
index 573a4e5f2baa11e6092bdcce84a14ec1d7f8d605..ad5c2a60198964e8c43e42f706a0b926b5662d28 100755 (executable)
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -3671,7 +3671,7 @@ proc tkcon {cmd args} {
                set OPT(exec) ""
            }
            if {![winfo exists $PRIV(root)]} {
-               ::tkcon::Init
+               eval [linsert $args 0 ::tkcon::Init]
            }
            wm deiconify $PRIV(root)
            raise $PRIV(root)
@@ -4359,8 +4359,8 @@ proc idebug {opt args} {
                    }
                }
                if {[string match {} $line]} continue
-               set key [lindex $line 0]
-               if {![regexp {^([#-]?[0-9]+)} [lreplace $line 0 0] lvl]} {
+               set key [regexp -inline {\S+} $line]
+               if {![regexp {^\s*\S+\s+([#-]?[0-9]+)} $line -> lvl]} {
                    set lvl \#$level
                }
                set res {}; set c 0