[Tkabber-dev] r1657 - in trunk/tkabber: . plugins/roster

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Feb 14 22:15:08 MSK 2009


Author: sergei
Date: 2009-02-14 22:15:08 +0300 (Sat, 14 Feb 2009)
New Revision: 1657

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/roster/metacontacts.tcl
Log:
	* plugins/roster/metacontacts.tcl: Fixed bug with deleting metacontact.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2009-02-14 19:05:00 UTC (rev 1656)
+++ trunk/tkabber/ChangeLog	2009-02-14 19:15:08 UTC (rev 1657)
@@ -16,6 +16,8 @@
 	* ifacetk/iroster.tcl: Take into account menu items state when joining
 	  menus for contacts and metacontacts.
 
+	* plugins/roster/metacontacts.tcl: Fixed bug with deleting metacontact.
+
 2009-02-13  Sergei Golovan  <sgolovan at nes.ru>
 
 	* muc.tcl: Move focus and scroll down to 'add new JID' field in MUC

Modified: trunk/tkabber/plugins/roster/metacontacts.tcl
===================================================================
--- trunk/tkabber/plugins/roster/metacontacts.tcl	2009-02-14 19:05:00 UTC (rev 1656)
+++ trunk/tkabber/plugins/roster/metacontacts.tcl	2009-02-14 19:15:08 UTC (rev 1657)
@@ -303,6 +303,9 @@
 	    foreach idx [array names contacts $xlib,tag,*] {
 		if {[set idx1 [lsearch -exact $contacts($idx) $tag]] >= 0} {
 		    set contacts($idx) [lreplace $contacts($idx) $idx1 $idx1]
+		    if {[llength $contacts($idx)] == 0} {
+			unset contacts($idx)
+		    }
 		}
 	    }
 	}



More information about the Tkabber-dev mailing list