* tkcon.tcl (idebug): allow multi-char patterns as debug id [Lama]

diff --git a/ChangeLog b/ChangeLog
index e22c844294527ad9bd6d23e7a91d992a93aa27bb..666ca94501c9a727086776a9779a6a75327ba4c1 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2014-07-09  Jeff Hobbs  <jeffh@ActiveState.com>
+
+       * tkcon.tcl (idebug): allow multi-char patterns as debug id [Lama]
+
 2013-01-22  Jeff Hobbs  <jeffh@ActiveState.com>
 
        * tkcon.tcl (tkcon show): catch deiconify as it will throw an

diff --git a/tkcon.tcl b/tkcon.tcl
index ee6a6c1e17578f2815570e6d283862c1f46f2ab4..09fd9f4a9ed02d9f23022e00f16cb25354143e4e 100755 (executable)
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -4328,14 +4328,15 @@ proc idebug {opt args} {
     set level [expr {[info level]-1}]
     switch -glob -- $opt {
        on      {
-           if {[llength $args]} { set IDEBUG(id) $args }
+           # id is just arg0 [bug #50]
+           if {[llength $args]} { set IDEBUG(id) [lindex $args 0] }
            return [set IDEBUG(on) 1]
        }
        off     { return [set IDEBUG(on) 0] }
        id  {
            if {![llength $args]} {
                return $IDEBUG(id)
-           } else { return [set IDEBUG(id) $args] }
+           } else { return [set IDEBUG(id) [lindex $args 0]] }
        }
        break {
            if {!$IDEBUG(on) || $IDEBUG(debugging) || \