Ensure the correct name is registered under X Windows Tk so that

traces work here too.

diff --git a/ChangeLog b/ChangeLog
index 95b7d173cdefd92a330ea381f2ed0e23306e9d91..256bc86370ecbd591950fe274948131770ccb6eb 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Sun Jun 22 22:15:38 2003  Pat Thoyts  <patthoyts@users.sourceforge.net>
+
+       * tkinspect.tcl: Ensure the correct name is registered under X
+       Windows Tk so that traces work here too.
+
 Sat Jun 21 22:35:03 2003  Pat Thoyts  <patthoyts@users.sourceforge.net>
 
        * tkinspect.tcl: Merged in patch for paned views suppplied by

diff --git a/stl-lite/tkhtml.tcl b/stl-lite/tkhtml.tcl
index a5be22b4ac29aad8e7af89e7fe491c4c25a84312..9289e0f11d857cff28110bf4c65e0c9d2625fd54 100644 (file)
--- a/stl-lite/tkhtml.tcl
+++ b/stl-lite/tkhtml.tcl
@@ -241,10 +241,11 @@ proc tkhtml_set_tag {} {
                [list tkhtml_href_click $tkhtml_priv(command) $href]
        }
        $tkhtml_priv(w) tag bind $href_tag <Enter> \
-           [list $tkhtml_priv(w) tag configure $href_tag -foreground red]
+           [list $tkhtml_priv(w) tag configure $href_tag \
+                 -foreground red]
        $tkhtml_priv(w) tag bind $href_tag <Leave> \
            [list $tkhtml_priv(w) tag configure $href_tag \
-            -foreground $tkhtml_priv(color)]
+                 -foreground $tkhtml_priv(color)]
     } else {
        set tags $tag
     }

diff --git a/tkinspect.tcl b/tkinspect.tcl
index 73f97054ef83d859ff37f87ec4a2d3dc5724d2a9..8244e54d717dc87754394181d6f0d288c7672a09 100644 (file)
--- a/tkinspect.tcl
+++ b/tkinspect.tcl
@@ -56,6 +56,11 @@ if {[info exists ::starkit::topdir]} {
     lappend auto_path [set tkinspect_library [file dirname [info script]]]
 }
 
+# If we have Tk send - use it (on windows this has no effect)
+if {[info command tk] != {}} {
+    ::tk appname $tkinspect(title)
+}
+
 # Use the winsend package if available.
 if {[info command send] == {}} {
     if {![catch {package require winsend}]} {