From 678bb10131164c25e6c3ebdb897dc03c74eb7e63 Mon Sep 17 00:00:00 2001
From: sls <sls>
Date: Wed, 21 Jun 1995 21:06:18 +0000
Subject: [PATCH] Add update_self.

---
 windows_list.tcl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/windows_list.tcl b/windows_list.tcl
index 3639a15..7b91f78 100644
--- 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
-- 
2.23.0