Tkabber

Check-in [d568a96941]
Login

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

Overview
Comment:Don't show dialog if choices list is empty.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: d568a96941f5f8f500df92056b5d9671ea45f1e8
User & Date: sgolovan 2016-01-25 11:35:01
Context
2016-01-25
14:25
Added a dirty hack which makes Tkabber ignore the MUC invitations to the rooms where the user is an occupant already. check-in: 3cabddedf8 user: sgolovan tags: trunk
11:35
Don't show dialog if choices list is empty. check-in: d568a96941 user: sgolovan tags: trunk
11:32
Show only users missing in roster when displaying add users dialog. check-in: 80f5c7520a user: sgolovan tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to plugins/roster/rosterx.tcl.

49
50
51
52
53
54
55





56
57
58
59
60
61
62
    ::xmpp::xml::split $stanza tag xmlns attrs cdata subels
    foreach c $subels {
        lassign [process_item $c] jid name groups desc
        if {[::roster::find_jid $xlib $jid] eq ""} {
            lappend choices [list $jid $name $groups] $desc
        }
    }





    set d .dlg[incr dlg]
    CbDialog $d [::msgcat::mc "Attached user:"] \
            [list "Ok" \
            [list [namespace current]::process_item_selection $d $xlib $from] \
            [::msgcat::mc "Cancel"] [list destroy $d]] \
            recv_uc $choices $balloons








>
>
>
>
>







49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
    ::xmpp::xml::split $stanza tag xmlns attrs cdata subels
    foreach c $subels {
        lassign [process_item $c] jid name groups desc
        if {[::roster::find_jid $xlib $jid] eq ""} {
            lappend choices [list $jid $name $groups] $desc
        }
    }

    if {[llength $choices] == 0} {
        return {result ""}
    }

    set d .dlg[incr dlg]
    CbDialog $d [::msgcat::mc "Attached user:"] \
            [list "Ok" \
            [list [namespace current]::process_item_selection $d $xlib $from] \
            [::msgcat::mc "Cancel"] [list destroy $d]] \
            recv_uc $choices $balloons