[Tkabber-dev] r516 - trunk/plugins/clienticons

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Mon Jun 11 16:58:55 MSK 2012


Author: ancestor
Date: 2012-06-11 16:58:54 +0400 (Mon, 11 Jun 2012)
New Revision: 516

Modified:
   trunk/plugins/clienticons/clienticons.tcl
Log:
1) Added some modifications in clienticons plugin, that allow to show client icons only if metacontact groups and jid groups with multiple resources are collapsed.


Modified: trunk/plugins/clienticons/clienticons.tcl
===================================================================
--- trunk/plugins/clienticons/clienticons.tcl	2012-04-09 21:18:44 UTC (rev 515)
+++ trunk/plugins/clienticons/clienticons.tcl	2012-06-11 12:58:54 UTC (rev 516)
@@ -216,6 +216,7 @@
 proc ::ifacetk::roster::addline {w type text jid group metajids indent {jids {}} {icon ""} {foreground ""}} {
     variable iroster
     variable config
+    variable roster
 
     set c $w.canvas
 
@@ -231,7 +232,7 @@
     set ly [expr {$uy + $lineheight + $config(textuppad) + $config(textdownpad)}]
 
     ::ifacetk::roster::addline_old $w $type $text $jid $group $metajids $indent $jids $icon $foreground
-    
+
     set xlib [lindex $jid 0]
     set mjid [lindex $jid 1]
     set sjid [::xmpp::jid::stripResource $mjid]
@@ -285,7 +286,17 @@
                                 -tag [list jid$tag group$grouptag meta$metatag $type icon afficon]
                         }
                     }
-                        
+                    
+                    if {$type != "metajid"} {
+                        if {[info exists roster(jidcollapsed,$group,$jid)] && !$roster(jidcollapsed,$group,$jid)} {
+                            continue
+                        }
+                    } else {
+                        if {[info exists roster(metacollapsed,$group,$metajids)] && !$roster(metacollapsed,$group,$metajids)} {
+                            continue
+                        }
+                    }
+
                     if {[lsearch [image names] $icon] == -1} {
                         set icon clients/unknown
                     }



More information about the Tkabber-dev mailing list