X-Git-Url: http://lists.indexdata.com/cgi-bin?a=blobdiff_plain;f=client.tcl;h=2092bc6895622887d1e88848ad59c3862ea41e94;hb=13d9f750171f21457dd31c119737ef4a8080b04d;hp=91aed378d612c6f9f16aebdeb236646bfffd4b8f;hpb=8359203e61febbf010ecd97e50c9c85fe139daa4;p=ir-tcl-moved-to-github.git

diff --git a/client.tcl b/client.tcl
index 91aed37..2092bc6 100644
--- a/client.tcl
+++ b/client.tcl
@@ -1,10 +1,17 @@
 # IR toolkit for tcl/tk
-# (c) Index Data 1995
+# (c) Index Data 1995-1996
 # See the file LICENSE for details.
 # Sebastian Hammer, Adam Dickmeiss
 #
 # $Log: client.tcl,v $
-# Revision 1.94  1996-07-25 15:55:34  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
 # IrTcl version 1.2 release.
 #
 # Revision 1.93  1996/06/28  08:43:54  adam
@@ -621,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