From cf28235a0d00647d667d1d7093475e432441b6d2 Mon Sep 17 00:00:00 2001
From: Adam Dickmeiss <adam@indexdata.dk>
Date: Fri, 9 Aug 1996 15:30:18 +0000
Subject: [PATCH] Procedure destroyGW modified to handle multiple calls -
 probably an error introduced by tk4.1 patch level 1.

---
 client.tcl |    8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/client.tcl b/client.tcl
index a475d46..2092bc6 100644
--- a/client.tcl
+++ b/client.tcl
@@ -4,7 +4,11 @@
 # Sebastian Hammer, Adam Dickmeiss
 #
 # $Log: client.tcl,v $
-# Revision 1.95  1996-07-26 09:15:08  adam
+# Revision 1.96  1996-08-09 15:30:18  adam
+# Procedure destroyGW modified to handle multiple calls - probably an
+# error introduced by tk4.1 patch level 1.
+#
+# Revision 1.95  1996/07/26  09:15:08  adam
 # IrTcl version 1.2 patch level 1.
 #
 # Revision 1.94  1996/07/25  15:55:34  adam
@@ -624,7 +628,7 @@ proc post-menu {wbutton wmenu} {
 # See also topLevelG.
 proc destroyGW {w} {
     global windowGeometry
-    set windowGeometry($w) [wm geometry $w]
+    catch {set windowGeometry($w) [wm geometry $w]}
 }    
 
 # Procedure topLevelG
-- 
1.7.10.4