* tkinspect.tcl (set_target): Fix for bug #757926 to fix traces.

diff --git a/ChangeLog b/ChangeLog
index 319efad80f3befc590c83bc581d4b1ce419bf5e6..a84c4b53771e4be3cbacc0f8224ceae0223700bc 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Fri Jun 20 23:59:01 2003  Pat Thoyts  <patthoyts@users.sourceforge.net>
+
+       * tkinspect.tcl (set_target): Fix for bug #757926 to fix traces.
+
 Thu Mar 20 10:01:59 2003  Pat Thoyts  <patthoyts@users.sourceforge.net>
 
        * windows_list.tcl: Applied patch from bug #684608 by Achim Bursian

diff --git a/tkinspect.tcl b/tkinspect.tcl
index 09a2deaa63712ecd938fb8b96210e7c3ee0bac0f..d52c6644fab8d28eedf15807dfe0b10e08dccef4 100644 (file)
--- a/tkinspect.tcl
+++ b/tkinspect.tcl
@@ -234,7 +234,7 @@ dialog tkinspect_main {
         if {$type == "comm"} {
             set slot(target,self) [comm::comm self]
         } else {
-            set slot(target,self) [winfo name .]
+            set slot(target,self) $tkinspect(title)
         }
        $self update_lists
        foreach cmdline $slot(cmdlines) {