* 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 a84c4b53771e4be3cbacc0f8224ceae0223700bc..1df1091bc2a412ab602ecb9827d1fe76224ae567 100644 (file)
--- 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 37f5075ea6e8d4f339a3ad1070d9f45a0ddf94f8..92442b674d390fe001ff3169fb7272ebc8b88b6d 100644 (file)
--- 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 4b7d95cded4b2f1c63bb008d2d43b7bce52958f8..ee064d1d03f1a675d1c7f29a44c7ac032f2c5349 100644 (file)
--- 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 373f67a2d30157ff6e0b8048ecff50ea76b13f84..cda4e4cc6e44edc1d6ba2cb494f62ade6f45aa81 100644 (file)
--- 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 d52c6644fab8d28eedf15807dfe0b10e08dccef4..3a287f8591b5f5dc26403d9ff44f2698b0478be7 100644 (file)
--- 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 449e2f03818809f9e88de0bd76b8528ffbd3126c..48bb8870e0c624a7f3f855f2cfb7e04a422fa7ae 100644 (file)
--- 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 44558b0d2638558ea5ff839d42d8c0e5ffdb5360..d1081905e038ea7e6e04833c06d94ac5f50ab60d 100644 (file)
--- 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