From 349296f52d7ee17e285f6a27f8827e514d0bab3b Mon Sep 17 00:00:00 2001
From: sls <sls>
Date: Tue, 7 Feb 1995 09:46:47 +0000
Subject: [PATCH] Change to 5.x.y version numbering (5.0.1 now.) Check to make
sure a target has been selected when clicking.
---
tkinspect.tcl | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/tkinspect.tcl b/tkinspect.tcl
index df97161..d2560fa 100644
--- a/tkinspect.tcl
+++ b/tkinspect.tcl
@@ -5,7 +5,7 @@
set tkinspect(counter) -1
set tkinspect(main_window_count) 0
-set tkinspect(release) 5alpha
+set tkinspect(release) 5.0.1
set tkinspect(release_date) "Feb 7, 1995"
set tkinspect(list_classes) "procs_list globals_list windows_list"
@@ -130,8 +130,9 @@ dialog tkinspect_main {
}
method select_list_item {list item} {
set slot(last_list) $list
+ set target [$self target]
$self.value set_value "[$list get_item_name] $item" \
- [$list retrieve $slot(target) $item] \
+ [$list retrieve $target $item] \
[list $self select_list_item $list $item]
$self.value set_send_filter [list $list send_filter]
$self status "Showing \"$item\""
--
2.23.0