Posted to tcl by mookie at Sun Jul 30 16:52:51 GMT 2023view raw

  1. set spark "profile -> profile.ix"
  2. puts "$spark"
  3.  
  4. namespace eval profile {
  5. ## setup paths
  6. set myModules "[file dirname [file normalize [info script ]]]/modules"
  7.  
  8. set profile_dicts "$myModules/profile/dicts"
  9. set profile_switch "$myModules/profile/switch"
  10. set profile_template "$myModules/profile/html"
  11. ##
  12. }
  13.  
  14. proc profile::hello {} {
  15. puts "Hello"
  16. }
  17.  
  18.  
  19.  
  20. proc profile::display { socket_hexkey args } {
  21. ##
  22. ;# Displays the clients profile information
  23. ##
  24.  
  25. profile::hello
  26. # Procedure "Text:Value:menuOpt" iFramePostTo buttonClass
  27. }
  28.  
  29.