Posted to tcl by schelte at Tue Oct 10 08:05:04 GMT 2023view raw

  1. Index: apps/tkchat/tkchat.vfs/bin/tkchat.tcl
  2. ==================================================================
  3. --- apps/tkchat/tkchat.vfs/bin/tkchat.tcl
  4. +++ apps/tkchat/tkchat.vfs/bin/tkchat.tcl
  5. @@ -8830,10 +8830,11 @@
  6. }
  7. return $nick_or_jid
  8. }
  9.  
  10. proc ::tkjabber::query_user {user what} {
  11. + variable jabber
  12. array set q {
  13. version "jabber:iq:version"
  14. last "jabber:iq:last"
  15. time "jabber:iq:time"
  16. discover "http://jabber.org/protocol/disco#info"
  17. @@ -8843,11 +8844,11 @@
  18. [join [array names q] {, }]"
  19. }
  20.  
  21. set jid [get_participant_jid $user]
  22. set xmllist [wrapper::createtag query -attrlist [list xmlns $q($what)]]
  23. - $tkjabber::jabber send_iq get [list $xmllist] -to $jid
  24. + $jabber send_iq get [list $xmllist] -to $jid
  25. return
  26. }
  27.  
  28. proc ::tkjabber::ping {jid} {
  29. set xmllist [wrapper::createtag ping -attrlist [list xmlns urn:xmpp:ping]]
  30. @@ -9567,11 +9568,11 @@
  31. }
  32. set ver ""
  33. if {[info exists data(name)]} { append ver $data(name) }
  34. if {[info exists data(version)]} { append ver " " $data(version) }
  35. if {[info exists data(os)]} { append ver " : $data(os)" }
  36. - set tkchat::OnlineUsers(Jabber-$nick,version) $ver
  37. + set ::tkchat::OnlineUsers(Jabber-$nick,version) $ver
  38. tkchat::addStatus 0 "$nick is using $ver"
  39.  
  40. after idle [list ::tkchat::SetUserTooltip $nick]
  41. # REMOVE 8.6
  42. if {[package vsatisfies [package provide Tk] 8.7-]} {
  43.  
  44.