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 | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:091f1fb997a2fd2ac0dadad7616c0cc795e188df
User & Date: ancestor 2015-05-15 04:39:12
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to clienticons/clienticons.tcl.

255
256
257
258
259
260
261

262
263
264
265
266
267
268
...
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
...
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
        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
................................................................................
                    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
................................................................................
                    }
                        
                    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]
                }
            }







>







 







|







 







|







255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
...
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
...
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
        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
................................................................................
                    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
................................................................................
                    }
                        
                    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]
                }
            }