Tcl_GlobalEval 321 ext/tk/tcltklib.c ret = Tcl_GlobalEval(interp, buf); Tcl_GlobalEval 5700 ext/tk/tcltklib.c Tcl_GlobalEval(ip, "catch {destroy .}"); Tcl_GlobalEval 5737 ext/tk/tcltklib.c Tcl_GlobalEval(ip, finalize_hook_name); Tcl_GlobalEval 5748 ext/tk/tcltklib.c Tcl_GlobalEval(ip, "catch {foreach id [after info] {after cancel $id}}");