[Tkabber-dev] r1711 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Wed Mar 11 09:35:50 MSK 2009


Author: sergei
Date: 2009-03-11 09:35:50 +0300 (Wed, 11 Mar 2009)
New Revision: 1711

Modified:
   trunk/tkabber/custom.tcl
Log:
	* custom.tcl: Fixed typo.


Modified: trunk/tkabber/custom.tcl
===================================================================
--- trunk/tkabber/custom.tcl	2009-03-11 06:28:16 UTC (rev 1710)
+++ trunk/tkabber/custom.tcl	2009-03-11 06:35:50 UTC (rev 1711)
@@ -122,6 +122,9 @@
 		set var(type,$fullname) $val
 	    }
 	    -group {
+		if {![info exists group(members,$val)]} {
+		    set group(members,$val) {}
+		}
 		if {[lsearch -exact $group(members,$val) [list var $fullname]] < 0} {
 		    lappend group(members,$val) [list var $fullname]
 		}



More information about the Tkabber-dev mailing list