From: sls <sls>
Date: Wed, 21 Jun 1995 21:07:30 +0000 (+0000)
Subject: Fix bug in windows_info:clear.
X-Git-Tag: r_5_1_4~25
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=44175ad8740fefaa5b8b2fdd866d0958dc46d930;p=tkinspect

Fix bug in windows_info:clear.
---

diff --git a/windows_info.tcl b/windows_info.tcl
index be0c399..f005d77 100644
--- a/windows_info.tcl
+++ b/windows_info.tcl
@@ -9,7 +9,9 @@ object_class windows_info {
     member windows {}
     method clear {} {
 	foreach w $slot(windows) {
-	    unset slot($w.class)
+	    if [info exists slot($w.class)] {
+		unset slot($w.class)
+	    }
 	}
 	set slot(windows) {}
     }