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

diff --git a/ChangeLog b/ChangeLog
index ce16744299f028163ba094d63f155a73964dc8ea..821c6e9b794b022fc717bfa41a7e87390970c72c 100644 (file)
--- 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 5c2db3e36f9afcad60f064c0108695e1aa55f91c..a7c782b07344bb36b3eb683235ec23e29983101a 100644 (file)
--- 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