From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Sun, 22 Jun 2003 21:18:39 +0000 (+0000)
Subject: Ensure the correct name is registered under X Windows Tk so that
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=c2e318398bf87774b10695717a7f83868603938b;p=tkinspect

Ensure the correct name is registered under X Windows Tk so that
traces work here too.
---

diff --git a/ChangeLog b/ChangeLog
index 95b7d17..256bc86 100644
--- 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 a5be22b..9289e0f 100644
--- 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 73f9705..8244e54 100644
--- 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}]} {