From 7f89f7b8e442a61246ae5967f61e5fc2912a5edd Mon Sep 17 00:00:00 2001 From: Pat Thoyts Date: Sat, 21 Jun 2003 00:19:56 +0000 Subject: [PATCH] * 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. --- ChangeLog | 7 +++++-- README | 4 ++-- WhatsNew.html | 9 +++++++++ about.tcl | 5 ++++- tkinspect.tcl | 6 +++++- version.tcl | 4 ++-- windows_info.tcl | 4 ++-- 7 files changed, 29 insertions(+), 10 deletions(-) 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 - * 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 * 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 ChangeLog for more details. +

Changes in release 5.1.6p10 (21 Jun 2003)

+ +
    +
  • Fixed a bug in tracing variables with dde and winsend
  • +
  • Fixed a bug in the windows view that garbled the display.
  • +
  • Always namespace qualify commands sent to the target.
  • +
  • Fixed a problem formatting the ChangeLog view. +
+

Changes in release 5.1.6p9 (10 Oct 2002)

    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 " + 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 -- 2.23.0