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

Add update_self.
---

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