[Tkabber-dev] r1792 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Thu Apr 23 19:08:36 MSD 2009


Author: sergei
Date: 2009-04-23 19:08:36 +0400 (Thu, 23 Apr 2009)
New Revision: 1792

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/datagathering.tcl
Log:
	* datagathering.tcl: Added check if a window which had
	  sent query still exists.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2009-04-23 15:01:46 UTC (rev 1791)
+++ trunk/tkabber/ChangeLog	2009-04-23 15:08:36 UTC (rev 1792)
@@ -3,7 +3,8 @@
 	* chats.tcl: Added JID argument to chat::opened procedure to make it
 	  possible to return all opened chat windows for a given JID.
 
-	* datagathering.tcl: Fixed typo.
+	* datagathering.tcl: Fixed typo and added check if a window which had
+	  sent query still exists.
 
 2009-04-21  Sergei Golovan  <sgolovan at nes.ru>
 

Modified: trunk/tkabber/datagathering.tcl
===================================================================
--- trunk/tkabber/datagathering.tcl	2009-04-23 15:01:46 UTC (rev 1791)
+++ trunk/tkabber/datagathering.tcl	2009-04-23 15:08:36 UTC (rev 1792)
@@ -515,6 +515,10 @@
 }
 
 proc data::test_error_res {w res child} {
+    if {![info exists $w]} {
+	return
+    }
+
     if {[string equal $res ok]} {
 	destroy $w
 	return



More information about the Tkabber-dev mailing list