Add update_self.

diff --git a/windows_list.tcl b/windows_list.tcl
index 3639a150e7917a25edf6e708b0bc9edd12e4b6f8..7b91f78b731ec7ef5cbe1ca0ce8a52c3e3b850bb 100644 (file)
--- a/windows_list.tcl
+++ b/windows_list.tcl
@@ -50,6 +50,10 @@ widget windows_list {
            -variable [object_slotname get_window_info] \
             -label "Get Window Information" -underline 0
     }
+    method update_self {target} {
+       $slot(main) windows_info update $target
+       $self update $target
+    }
     method update {target} {
        if !$slot(get_window_info) return
        $self clear