From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Wed, 7 Mar 2012 03:02:21 +0000 (+0000)
Subject: 	* tkcon.tcl (idebug): better line handling to not use list
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=a7bb6ae085bd26166df9a3b56a3de33d454b53cd;p=tkcon

	* 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 8217631..da25af2 100644
--- 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 573a4e5..ad5c2a6 100755
--- 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