Posted to tcl by schelte at Tue Oct 10 08:05:04 GMT 2023view pretty
Index: apps/tkchat/tkchat.vfs/bin/tkchat.tcl ================================================================== --- apps/tkchat/tkchat.vfs/bin/tkchat.tcl +++ apps/tkchat/tkchat.vfs/bin/tkchat.tcl @@ -8830,10 +8830,11 @@ } return $nick_or_jid } proc ::tkjabber::query_user {user what} { + variable jabber array set q { version "jabber:iq:version" last "jabber:iq:last" time "jabber:iq:time" discover "http://jabber.org/protocol/disco#info" @@ -8843,11 +8844,11 @@ [join [array names q] {, }]" } set jid [get_participant_jid $user] set xmllist [wrapper::createtag query -attrlist [list xmlns $q($what)]] - $tkjabber::jabber send_iq get [list $xmllist] -to $jid + $jabber send_iq get [list $xmllist] -to $jid return } proc ::tkjabber::ping {jid} { set xmllist [wrapper::createtag ping -attrlist [list xmlns urn:xmpp:ping]] @@ -9567,11 +9568,11 @@ } set ver "" if {[info exists data(name)]} { append ver $data(name) } if {[info exists data(version)]} { append ver " " $data(version) } if {[info exists data(os)]} { append ver " : $data(os)" } - set tkchat::OnlineUsers(Jabber-$nick,version) $ver + set ::tkchat::OnlineUsers(Jabber-$nick,version) $ver tkchat::addStatus 0 "$nick is using $ver" after idle [list ::tkchat::SetUserTooltip $nick] # REMOVE 8.6 if {[package vsatisfies [package provide Tk] 8.7-]} {