From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Fri, 20 Jun 2003 22:59:12 +0000 (+0000)
Subject: 	* tkinspect.tcl (set_target): Fix for bug #757926 to fix traces.
X-Git-Tag: r5_1_6p10~1
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=3cc8c6e8ad4082561180fa731f758373e59bbdf6;p=tkinspect

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

diff --git a/ChangeLog b/ChangeLog
index 319efad..a84c4b5 100644
--- 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 09a2dea..d52c664 100644
--- 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) {