From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Sat, 21 Jun 2003 00:19:56 +0000 (+0000)
Subject: 	* version.tcl: Set version to 5.1.6p10
X-Git-Tag: r5_1_6p10
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=7f89f7b8e442a61246ae5967f61e5fc2912a5edd;p=tkinspect

	* version.tcl: Set version to 5.1.6p10
	* about.tcl: Added a list of contributors to the dialog.
	* windows_info.tcl: Namespace qualify more sent commands.
---

diff --git a/ChangeLog b/ChangeLog
index a84c4b5..1df1091 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,10 @@
 Fri Jun 20 23:59:01 2003  Pat Thoyts  <patthoyts@users.sourceforge.net>
 
-	* tkinspect.tcl (set_target): Fix for bug #757926 to fix traces.
-
+	* tkinspect.tcl: Fix for bug #757926 to fix traces.
+	* version.tcl: Set version to 5.1.6p10
+	* about.tcl: Added a list of contributors to the dialog.
+	* windows_info.tcl: Namespace qualify more sent commands.
+	
 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/README b/README
index 37f5075..92442b6 100644
--- a/README
+++ b/README
@@ -1,5 +1,5 @@
-			tkinspect, release 5.1.6p8
-			    (04 Apr 2002)
+			tkinspect, release 5.1.6p10
+			    (21 Jun 2003)
 
 Tkinspect is a Tk program browser originally written by Sam Shen and
 now updated to work with Tcl/Tk 8+, incr Tcl 3+ and to cope with
diff --git a/WhatsNew.html b/WhatsNew.html
index 4b7d95c..ee064d1 100644
--- a/WhatsNew.html
+++ b/WhatsNew.html
@@ -10,6 +10,15 @@
 
     See the <a href="ChangeLog">ChangeLog</a> for more details.
 
+    <h2>Changes in release 5.1.6p10 (21 Jun 2003)</h2>
+
+    <ul>
+    <li>Fixed a bug in tracing variables with dde and winsend</li>
+    <li>Fixed a bug in the windows view that garbled the display.</li>
+    <li>Always namespace qualify commands sent to the target.</li>
+    <li>Fixed a problem formatting the ChangeLog view.
+    </ul>
+
     <h2>Changes in release 5.1.6p9 (10 Oct 2002)</h2>
 
     <ul>
diff --git a/about.tcl b/about.tcl
index 373f67a..cda4e4c 100644
--- a/about.tcl
+++ b/about.tcl
@@ -21,7 +21,10 @@ dialog about {
                       http://sourceforge.net/projects/tkcon/ \n" \
 	    -font $slot(obliqueFont)
 	frame $self.mug -bd 4
-	label $self.mug.l -text "Originally by\nSam Shen <slshen@lbl.gov>"
+	label $self.mug.l -justify left \
+            -text "Originally by Sam Shen\n\Contributions\
+            from:\nPaul Healy\nJohn LoVerso\n\T. Schotanus\nPat Thoyts\n"
+
 	global about_priv
 	if ![info exists about_priv(mug_image)] {
 	    set about_priv(mug_image) \
diff --git a/tkinspect.tcl b/tkinspect.tcl
index d52c664..3a287f8 100644
--- a/tkinspect.tcl
+++ b/tkinspect.tcl
@@ -42,7 +42,11 @@ if {[info commands itcl_info] != ""} {
 wm withdraw .
 
 # Find the tkinspect library - support scripted documents (Steve Landers)
-if {[info exists ::scripdoc::self]} {
+# also supports starkits (Pat Thoyts).
+if {[info exists ::starkit::topdir]} {
+    set tkinspect_library [file join $::starkit::topdir lib tkinspect]
+    lappend auto_path $tkinspect_library
+} elseif {[info exists ::scripdoc::self]} {
     lappend auto_path [file join $::scripdoc::self lib]
     set tkinspect_library [file join $::scripdoc::self lib tkinspect]
     lappend auto_path $tkinspect_library
diff --git a/version.tcl b/version.tcl
index 449e2f0..48bb887 100644
--- a/version.tcl
+++ b/version.tcl
@@ -6,8 +6,8 @@
 
 proc version_init {} {
     global tkinspect tk_version tk_patchLevel
-    set tkinspect(release) 5.1.6p8
-    set tkinspect(release_date) "04 Apr 2002"
+    set tkinspect(release) 5.1.6p10
+    set tkinspect(release_date) "21 Jun 2003"
     scan $tk_version "%d.%d" major minor
     if {$major < 8} {
 	puts stderr \
diff --git a/windows_info.tcl b/windows_info.tcl
index 44558b0..d108190 100644
--- a/windows_info.tcl
+++ b/windows_info.tcl
@@ -18,8 +18,8 @@ object_class windows_info {
     method get_windows {} { return $slot(windows) }
     method append_windows {target result_var parent} {
 	upvar $result_var result
-        set cmd "if {\[::info command winfo\] != {}} {\n\
-                winfo children $parent\n\
+        set cmd "if {\[::info command ::winfo\] != {}} {\n\
+                ::winfo children $parent\n\
             }"
 	foreach w [send $target $cmd] {
 	    lappend slot(windows) $w