Posted to tcl by hypnotoad at Mon Jan 07 23:21:10 GMT 2019view pretty

wish% taotk::dialog 
invalid command name "self"
wish% set errorInfo
invalid command name "self"
    while executing
"self"
    (class "::tao::object" destructor line 3)
    invoked from within
"next"
    (class "::taotk::meta::widget" destructor line 10)
    invoked from within
"$tempobj destroy"
    (procedure "taotk::dialog" line 16)
    invoked from within
"taotk::dialog "
    ("uplevel" body line 1)
    invoked from within
"uplevel #0 $cmd"