From: sls <sls>
Date: Tue, 7 Feb 1995 09:46:47 +0000 (+0000)
Subject: Change to 5.x.y version numbering (5.0.1 now.)  Check to make sure
X-Git-Tag: r5_1_1~68
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=349296f52d7ee17e285f6a27f8827e514d0bab3b;p=tkinspect

Change to 5.x.y version numbering (5.0.1 now.)  Check to make sure
a target has been selected when clicking.
---

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\""