Improved the dde send implementation and fixed the window title to

show the application name.

diff --git a/ChangeLog b/ChangeLog
index ac9a719f705628c61cccf5cd17396cbaba59ec5e..6b7cb44d03e5d0c80d5c17be2a98e2936d2a1518 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Thu Mar 21 15:27:53 2002  Pat Thoyts <patthoyts@users.sourceforge.net>
+
+       * tkinspect.tcl: Improved the dde send implementation and fixed
+       the window title to show the application name.
+
 Thu Mar 21 00:32:17 2002  Pat Thoyts <patthoyts@users.sourceforge.net>
 
        * tkinspect.tcl: Fixed problem with application not closing

diff --git a/tkinspect.tcl b/tkinspect.tcl
index 43ace19c22d2b758439a798b5254b75309a455d3..96a36a59239ae538b7d7735d75c20578401ea0ad 100644 (file)
--- a/tkinspect.tcl
+++ b/tkinspect.tcl
@@ -5,6 +5,7 @@ exec wish "$0" ${1+"$@"}
 # $Id$
 #
 
+set tkinspect(title) "Tkinspect"
 set tkinspect(counter) -1
 set tkinspect(main_window_count) 0
 set tkinspect(list_classes) {
@@ -45,7 +46,14 @@ if [file exists @tkinspect_library@/tclIndex] {
 # Emulate the 'send' command using the dde package if available.
 if {[info command send] == {}} {
     if {![catch {package require dde}]} {
-        dde servername TkInspect-[pid]
+        array set dde [list count 0 topic $tkinspect(title)]
+        while {[dde services TclEval $dde(topic)] != {}} {
+            incr dde(count)
+            set dde(topic) "$tkinspect(title) #$dde(count)"
+        }
+        dde servername $dde(topic)
+        set tkinspect(title) $dde(topic)
+        unset dde
         proc send {app args} {
             eval dde eval [list $app] $args
         }
@@ -171,8 +179,8 @@ dialog tkinspect_main {
        label $self.status.l -bd 2 -relief sunken -anchor w
        pack $self.status.l -side left -fill x -expand 1
        set slot(windows_info) [object_new windows_info]
-       wm iconname $self "Tkinspect"
-       wm title $self "Tkinspect: $slot(target)"
+       wm iconname $self $tkinspect(title)
+       wm title $self "$tkinspect(title): $slot(target)"
        $self status "Ready."
     }
     method reconfig {} {
@@ -186,6 +194,7 @@ dialog tkinspect_main {
        after 0 destroy $self
     }
     method set_target {target} {
+        global tkinspect
        set slot(target) $target
        $self update_lists
        foreach cmdline $slot(cmdlines) {
@@ -193,7 +202,7 @@ dialog tkinspect_main {
        }
        set name [file tail [send $target set argv0]]
        $self status "Remote interpreter is \"$target\" ($name)"
-       wm title $self "Tkinspect: $target ($name)"
+       wm title $self "$tkinspect(title): $target ($name)"
     }
     method update_lists {} {
        if {$slot(target) == ""} return