From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Fri, 22 Mar 2002 00:47:29 +0000 (+0000)
Subject: Bug #532909: Fixed 'winfo' error handling in the update command
X-Git-Tag: r5_1_6p7~3
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=dde5458c664bf04d1fae2b4d8e830c1ce712cbb1;p=tkinspect

Bug #532909: Fixed 'winfo' error handling in the update command
---

diff --git a/ChangeLog b/ChangeLog
index ce16744..821c6e9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -4,6 +4,8 @@ Thu Mar 21 15:27:53 2002  Pat Thoyts <patthoyts@users.sourceforge.net>
 	the window title to show the application name.
 	* globals_list.tcl: Bug #533164: Fixed the retrieve for empty
 	arrays.
+	* windows_info.tcl: Bug #532909: Fixed 'winfo' error handling for
+	non-Tk applications when using 'comm'
 
 Thu Mar 21 00:32:17 2002  Pat Thoyts <patthoyts@users.sourceforge.net>
 
diff --git a/windows_info.tcl b/windows_info.tcl
index 5c2db3e..a7c782b 100644
--- a/windows_info.tcl
+++ b/windows_info.tcl
@@ -25,7 +25,9 @@ object_class windows_info {
     }
     method update {target} {
 	$self clear
-	set slot(windows) [send $target winfo children .]
+	if {[catch {set slot(windows) [send $target winfo children .]}]} {
+            set slot(windows) {}
+        }
 	feedback .feedback -title "Getting Windows" \
 	    -steps [llength $slot(windows)]
 	.feedback grab