From: sls <sls>
Date: Fri, 10 Feb 1995 11:25:12 +0000 (+0000)
Subject: Use uniform add_foo/delete_foo names.  Add delete_list.  Pack lists
X-Git-Tag: r5_1_1~58
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=e6a4500eae65b6fb53d2b4c4af0cba99620543d3;p=tkinspect

Use uniform add_foo/delete_foo names.  Add delete_list.  Pack lists
with -fill both.  Bump version to 5.0.2.
---

diff --git a/tkinspect.tcl b/tkinspect.tcl
index d2560fa..c0576e9 100644
--- a/tkinspect.tcl
+++ b/tkinspect.tcl
@@ -5,8 +5,8 @@
 
 set tkinspect(counter) -1
 set tkinspect(main_window_count) 0
-set tkinspect(release) 5.0.1
-set tkinspect(release_date) "Feb 7, 1995"
+set tkinspect(release) 5.0.2
+set tkinspect(release_date) "Feb 10, 1995"
 set tkinspect(list_classes) "procs_list globals_list windows_list"
 
 wm withdraw .
@@ -169,7 +169,11 @@ dialog tkinspect_main {
 	lappend slot(lists) $list
 	$list_class $list -command "$self select_list_item $list" \
 	    -main $self
-	pack $list -side left -fill y -expand 1
+	pack $list -side left -fill both -expand 1
+    }
+    method delete_list {list} {
+	set ndx [lsearch -exact $slot(lists) $list]
+	set slot(lists) [lreplace $slot(lists) $ndx $ndx]
     }
     method add_menu {name} {
 	set w $self.menu.[string tolower $name]
@@ -178,7 +182,7 @@ dialog tkinspect_main {
 	menu $w.m
 	return $w.m
     }
-    method destroy_menu {name} {
+    method delete_menu {name} {
 	set w $self.menu.[string tolower $name]
 	pack forget $w
 	destroy $w