From dde5458c664bf04d1fae2b4d8e830c1ce712cbb1 Mon Sep 17 00:00:00 2001 From: Pat Thoyts Date: Fri, 22 Mar 2002 00:47:29 +0000 Subject: [PATCH] Bug #532909: Fixed 'winfo' error handling in the update command --- ChangeLog | 2 ++ windows_info.tcl | 4 +++- 2 files changed, 5 insertions(+), 1 deletion(-) 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 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 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 -- 2.23.0