Add update_self method.

diff --git a/menus_list.tcl b/menus_list.tcl
index 6ebf071e4a01627c47905d62cbb840055a14fc57..b230534b03a926c86dba0194ebe20bffbf45ae6d 100644 (file)
--- 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] {