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 }