[Tkabber-dev] r1650 - in trunk/tkabber-plugins: . floatingcontact

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Feb 13 20:25:35 MSK 2009


Author: sergei
Date: 2009-02-13 20:25:34 +0300 (Fri, 13 Feb 2009)
New Revision: 1650

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/floatingcontact/floatingcontact.tcl
Log:
	* floatingcontact/floatingcontact.tcl: Slightly optimized roster
	  rendering.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2009-02-13 17:23:25 UTC (rev 1649)
+++ trunk/tkabber-plugins/ChangeLog	2009-02-13 17:25:34 UTC (rev 1650)
@@ -1,3 +1,8 @@
+2009-02-13  Sergei Golovan <sgolovan at nes.ru>
+
+	* floatingcontact/floatingcontact.tcl: Slightly optimized roster
+	  rendering.
+
 2009-02-11  Sergei Golovan <sgolovan at nes.ru>
 
 	* georoster/georoster.tcl: Use private XML storage interface from

Modified: trunk/tkabber-plugins/floatingcontact/floatingcontact.tcl
===================================================================
--- trunk/tkabber-plugins/floatingcontact/floatingcontact.tcl	2009-02-13 17:23:25 UTC (rev 1649)
+++ trunk/tkabber-plugins/floatingcontact/floatingcontact.tcl	2009-02-13 17:25:34 UTC (rev 1650)
@@ -163,17 +163,17 @@
 	set cjid [list $xlib $jid]
 	set jids [get_jids_of_user $xlib $jid]
 	set numjids [llength $jids]
-	addline $w jid [roster::get_label $xlib $jid] $cjid {} 0 $jids
-	changeicon $w $cjid [get_jid_icon $xlib $jid]
-	changeforeground $w $cjid [get_jid_foreground $xlib $jid]
+	addline $w jid [roster::get_label $xlib $jid] $cjid {} {} 0 $jids \
+		       [get_jid_icon $xlib $jid] \
+		       [get_jid_foreground $xlib $jid]
 	if {$numjids > 1} {
 	    foreach subjid $jids {
 		set csubjid [list $xlib $subjid]
 		set subjid_resource [::xmpp::jid::resource $subjid]
 		if {$subjid_resource != ""} {
-		    addline $w jid2 $subjid_resource $csubjid {} 0 [list $subjid]
-		    changeicon $w $csubjid [get_jid_icon $xlib $subjid]
-		    changeforeground $w $csubjid [get_jid_foreground $xlib $subjid]
+		    addline $w jid2 $subjid_resource $csubjid {} {} 0 [list $subjid] \
+				    [get_jid_icon $xlib $subjid] \
+				    [get_jid_foreground $xlib $subjid]
 		}
 	    }
 	}



More information about the Tkabber-dev mailing list