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-]} {