Tkabber contrib

Check-in [091f1fb997]
Login

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

Overview
Comment:1) Fixed wrong images offset near rosters border!
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 091f1fb997a2fd2ac0dadad7616c0cc795e188df
User & Date: ancestor 2015-05-15 04:39:12.661
Context
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
2015-05-10
08:52
Adapted the Chattoolbar plugin to the Ttk based interface. Fixed spelling error. Converted line endings. check-in: 30b23bf2eb user: sgolovan tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to clienticons/clienticons.tcl.
255
256
257
258
259
260
261

262
263
264
265
266
267
268
        lassign [::roster::get_category_and_subtype $xlib $sjid] category subtype
    }

    if {$type == "jid" || $type == "jid2" || $type == "metajid"} {
        if {$category == "conference" && $w == ".roster"} return
            set y [expr {($uy + $ly)/2}]		
            set x [expr [winfo width $c] - 2]

            
            if {$w == ".roster"} {set cjids $jids} else {set cjids [list $mjid]}
            
            if {$type == "metajid"} {
                foreach barejid $cjids {
                    foreach fjid [::get_jids_of_user $xlib $barejid] {
                        lappend tmpjlist $fjid







>







255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
        lassign [::roster::get_category_and_subtype $xlib $sjid] category subtype
    }

    if {$type == "jid" || $type == "jid2" || $type == "metajid"} {
        if {$category == "conference" && $w == ".roster"} return
            set y [expr {($uy + $ly)/2}]		
            set x [expr [winfo width $c] - 2]
            set boffset 7
            
            if {$w == ".roster"} {set cjids $jids} else {set cjids [list $mjid]}
            
            if {$type == "metajid"} {
                foreach barejid $cjids {
                    foreach fjid [::get_jids_of_user $xlib $barejid] {
                        lappend tmpjlist $fjid
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
                    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 + 10]
                            }
                            
                            set role [::muc::get_role $xlib $j]
                            set aff [::muc::get_affiliation $xlib $j]
                            
                            if {$role == "visitor"} {
                                set affi visitor







|







278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
                    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
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
                    }
                        
                    if {[lsearch [image names] $icon] == -1} {
                        set icon clients/unknown
                    }
                      
                    if {$::plugins::clienticons::options(show_clienticons)} {
                        $c create image $x $y -image $icon \
                            -anchor e \
                            -tags [list jid$tag group$grouptag meta$metatag $type icon clienticon]
                    }
                    
                    incr x [expr ([image height $icon] + 1) * -1]
                }
            }







|







303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
                    }
                        
                    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]
                }
            }