From 151b99ff2fa0d77d10f81c48e64fc65fef8b6106 Mon Sep 17 00:00:00 2001
From: sls <sls>
Date: Wed, 21 Jun 1995 21:06:01 +0000
Subject: [PATCH] Add update_self method.

---
 menus_list.tcl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/menus_list.tcl b/menus_list.tcl
index 6ebf071..b230534 100644
--- a/menus_list.tcl
+++ b/menus_list.tcl
@@ -1,11 +1,17 @@
 #
 # $Id$
 #
+# Handles browsing menus.
+#
 
 widget menus_list {
     object_include tkinspect_list
     param title "Menus"
     method get_item_name {} { return menu }
+    method update_self {target} {
+	$slot(main) windows_info update $target
+	$self update $target
+    }
     method update {target} {
 	$self clear
 	foreach w [$slot(main) windows_info get_windows] {
-- 
2.23.0