From 3cc8c6e8ad4082561180fa731f758373e59bbdf6 Mon Sep 17 00:00:00 2001
From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Fri, 20 Jun 2003 22:59:12 +0000
Subject: [PATCH] 	* tkinspect.tcl (set_target): Fix for bug #757926 to
 fix traces.

---
 ChangeLog     | 4 ++++
 tkinspect.tcl | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

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) {
-- 
2.23.0