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}}");