From: sls <sls>
Date: Wed, 21 Jun 1995 21:06:01 +0000 (+0000)
Subject: Add update_self method.
X-Git-Tag: r_5_1_4~29
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=151b99ff2fa0d77d10f81c48e64fc65fef8b6106;p=tkinspect

Add update_self method.
---

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] {