Posted to tcl by kostix at Sun Dec 24 20:34:53 GMT 2006view pretty

    global usetabbar

    if {$usetabbar} {
        foreach page [.nb pages] {
            lappend winids [ifacetk::nbpath $page]
        }
    } 

    set prio 0
    foreach chatid [array names opened] {
        set connid [get_connid $chatid]
        set jid [get_jid $chatid]
        set type $chats(type,$chatid)

        if {$type == "groupchat"} {
            set nick [get_our_groupchat_nick $chatid]
        } else {
            set nick ""
        }

        set user [jlib::connection_user $connid]
        set server [jlib::connection_server $connid]
        set resource [jlib::connection_resource $connid]

        if {$usetabbar} {
            set prio [lsearch $winids [::chat::winid $chatid]]
        }

        lappend session [list $prio $user $server $resource \
            [list [namespace current]::restore_window $jid $type $nick] \
        ]

        incr prio
    }