You mean that subject shall be sent on FocusOut event on the subject entry widget instead of:
proc ::Chat::OnFocusOutSubject {chattoken} { variable $chattoken upvar 0 $chattoken chatstate
# Reset to previous subject. set chatstate(subject) $chatstate(subjectOld) }
You mean that subject shall be sent on FocusOut event on the subject entry widget instead of:
proc ::Chat: :OnFocusOutSubj ect {chattoken} {
variable $chattoken
upvar 0 $chattoken chatstate
# Reset to previous subject. subjectOld)
set chatstate(subject) $chatstate(
}