Posted to tcl by kbk at Mon Sep 03 22:39:36 GMT 2007view raw

  1. invalid command name "GetLastInputInfo"
  2. invalid command name "GetLastInputInfo"
  3. while executing
  4. "GetLastInputInfo"
  5. (procedure "idle::idletime" line 2)
  6. invoked from within
  7. "idle::idletime"
  8. (procedure "autoStatus" line 33)
  9. invoked from within
  10. "autoStatus"
  11. (procedure "::tkjabber::away" line 8)
  12. invoked from within
  13. "::tkjabber::away $status"
  14. ("^/afk" arm line 6)
  15. invoked from within
  16. "switch -re -- $msg {
  17. {^/userinfo} {
  18. ::tkjabber::msgSend $msg
  19. }
  20. {^/last\s+\w+} {
  21. ::tkjabber::msgSend [string range $msg 1 en..."
  22. (procedure "checkCommand" line 113)
  23. invoked from within
  24. "checkCommand $msg"
  25. ("/*" arm line 3)
  26. invoked from within
  27. "switch -glob -- $msg {
  28. "" {
  29. # skip
  30. }
  31. "/*" {
  32. # possible command
  33. checkCommand $msg
  34. }
  35. default {
  36. # check for user defined macro
  37. ..."
  38. (procedure "::tkchat::userPost" line 11)
  39. invoked from within
  40. "::tkchat::userPost"
  41. (command bound to event)