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

set spark "profile -> profile.ix"
puts "$spark"

namespace eval profile {
## setup paths
set myModules "[file dirname [file normalize [info script ]]]/modules"

set profile_dicts "$myModules/profile/dicts"
set profile_switch "$myModules/profile/switch"
set profile_template "$myModules/profile/html"
##
}

proc profile::hello {} {
puts "Hello"
}



proc profile::display { socket_hexkey args } {
##
;# Displays the clients profile information
##

profile::hello
# Procedure "Text:Value:menuOpt"    iFramePostTo  buttonClass
}