can't read "dlgstate(wnb)": no such element in array
can't read "dlgstate(wnb)": no such element in array
    while executing
"winfo exists $dlgstate(wnb)"
    (procedure "GetActiveChatToken" line 5)
    invoked from within
"GetActiveChatToken $dlgtoken"
    (procedure "::Chat::FocusIn" line 6)
    invoked from within
"::Chat::FocusIn ::Chat::dlg3"
    (command bound to event)