[Tkabber-dev] r1192 - in trunk/tkabber: . plugins/general

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Aug 18 02:17:03 MSD 2007


Author: sergei
Date: 2007-08-18 02:17:02 +0400 (Sat, 18 Aug 2007)
New Revision: 1192

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/general/xcommands.tcl
Log:
	* plugins/general/xcommands.tcl: Fixed x:data cleanup on completing or
	  cancelling ad-hoc command.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-08-17 20:26:05 UTC (rev 1191)
+++ trunk/tkabber/ChangeLog	2007-08-17 22:17:02 UTC (rev 1192)
@@ -1,3 +1,8 @@
+2007-08-18  Sergei Golovan  <sgolovan at nes.ru>
+
+	* plugins/general/xcommands.tcl: Fixed x:data cleanup on completing or
+	  cancelling ad-hoc command.
+
 2007-08-17  Sergei Golovan  <sgolovan at nes.ru>
 
 	* pubsub.tcl: Added notification support when deleting published item.

Modified: trunk/tkabber/plugins/general/xcommands.tcl
===================================================================
--- trunk/tkabber/plugins/general/xcommands.tcl	2007-08-17 20:26:05 UTC (rev 1191)
+++ trunk/tkabber/plugins/general/xcommands.tcl	2007-08-17 22:17:02 UTC (rev 1192)
@@ -352,6 +352,13 @@
     set xdata [find_xdata $children]
 
     set f [$w.fields getframe]
+
+    foreach cw [winfo children $f] {
+	destroy $cw
+    }
+
+    data::cleanup $f
+
     set nf $w.note
 
     pack_note $nf $type $note
@@ -376,12 +383,18 @@
 	-to $jid \
 	-connection $connid
 
+    set f [$w.fields getframe]
+    data::cleanup $f
+
     destroy $w
 }
 
 ##########################################################################
 
 proc xcommands::close_window {w} {
+    set f [$w.fields getframe]
+    data::cleanup $f
+
     destroy $w
 }
 



More information about the Tkabber-dev mailing list