From 9e16c8583acf07574a1e6364d8566307839b1e2d Mon Sep 17 00:00:00 2001
From: sls <sls>
Date: Wed, 21 Jun 1995 21:05:44 +0000
Subject: [PATCH] Reduce width to 15.  Add "Update This List" menu item and
 required functionality.

---
 lists.tcl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/lists.tcl b/lists.tcl
index 969787a..5641bb8 100644
--- a/lists.tcl
+++ b/lists.tcl
@@ -132,7 +132,7 @@ dialog list_show {
 widget tkinspect_list {
     param command {}
     param title {}
-    param width 30
+    param width 15
     param height 12
     param main
     param patterns {}
@@ -160,6 +160,8 @@ widget tkinspect_list {
 	    -command "$self search_dialog"
 	$slot(menu) add command -label "Edit Filter..." -underline 0 \
 	    -command "$self edit_filter"
+	$slot(menu) add command -label "Update This List" -underline 0 \
+	    -command "$self do_update_self"
     }
     method reconfig {} {
 	$self.title config -text "$slot(title):"
@@ -199,6 +201,12 @@ widget tkinspect_list {
 	    }
 	}
     }
+    # lists will have 2 methods, update and update_self.  update will
+    # be called when all the lists are updated.  update_self will be
+    # called when just this list is updated.  update_self defaults
+    # to being just update.
+    method update_self {target} { $self update $target }
+    method do_update_self {} { $self update_self [$slot(main) target] }
     method click {x y} {
 	$self run_command [$self.list get @$x,$y]
     }
-- 
2.23.0