Tkabber contrib

Check-in [b2a8a70812]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:1) A little bit of refactoring in plugin clienticons.tcl
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:b2a8a7081238466d967269176fcad43738f9b1bb
User & Date: ancestor 2015-05-17 17:27:57
Context
2016-02-04
05:26
flip: Fixed joining group with current Tkabber. check-in: 1874531298 user: sgolovan tags: trunk
2015-05-17
17:27
1) A little bit of refactoring in plugin clienticons.tcl check-in: b2a8a70812 user: ancestor tags: trunk
2015-05-15
04:39
1) Fixed wrong images offset near rosters border! check-in: 091f1fb997 user: ancestor tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to clienticons/clienticons.tcl.

278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
                    set icon [::get_client_icon $j]
                    
                    if {$category == "conference"} {
                        if {$::plugins::clienticons::options(show_afficons)} {
                            set offset 7
                            
                            if {$::plugins::clienticons::options(show_clienticons)} {
                                set offset [expr $offset + $boffset + 10]
                            }
                            
                            set role [::muc::get_role $xlib $j]
                            set aff [::muc::get_affiliation $xlib $j]
                            
                            if {$role == "visitor"} {
                                set affi visitor
                            } elseif {$aff == "owner"} {
                                set affi owner
                            } else {
                                set affi $aff
                            }
                            
                            $c create image [expr $x - $offset] $y -image afficons/$affi \
                                -anchor e \
                                -tag [list jid$tag group$grouptag meta$metatag $type icon afficon]
                        }
                    }
                        
                    if {[lsearch [image names] $icon] == -1} {
                        set icon clients/unknown
                    }
                      
                    if {$::plugins::clienticons::options(show_clienticons)} {
                        $c create image [expr $x - $boffset] $y -image $icon \
                            -anchor e \
                            -tags [list jid$tag group$grouptag meta$metatag $type icon clienticon]
                    }
                    
                    incr x [expr ([image height $icon] + 1) * -1]
                }
            }







|













|










|







278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
                    set icon [::get_client_icon $j]
                    
                    if {$category == "conference"} {
                        if {$::plugins::clienticons::options(show_afficons)} {
                            set offset 7
                            
                            if {$::plugins::clienticons::options(show_clienticons)} {
                                set offset [expr {$offset + $boffset + 10}]
                            }
                            
                            set role [::muc::get_role $xlib $j]
                            set aff [::muc::get_affiliation $xlib $j]
                            
                            if {$role == "visitor"} {
                                set affi visitor
                            } elseif {$aff == "owner"} {
                                set affi owner
                            } else {
                                set affi $aff
                            }
                            
                            $c create image [expr {$x - $offset}] $y -image afficons/$affi \
                                -anchor e \
                                -tag [list jid$tag group$grouptag meta$metatag $type icon afficon]
                        }
                    }
                        
                    if {[lsearch [image names] $icon] == -1} {
                        set icon clients/unknown
                    }
                      
                    if {$::plugins::clienticons::options(show_clienticons)} {
                        $c create image [expr {$x - $boffset}] $y -image $icon \
                            -anchor e \
                            -tags [list jid$tag group$grouptag meta$metatag $type icon clienticon]
                    }
                    
                    incr x [expr ([image height $icon] + 1) * -1]
                }
            }