Tcl_GlobalEval    245 ext/tk/tcltklib.c     ret = Tcl_GlobalEval(interp, buf);
Tcl_GlobalEval   5080 ext/tk/tcltklib.c         Tcl_GlobalEval(ip, "catch {destroy .}");
Tcl_GlobalEval   5117 ext/tk/tcltklib.c         Tcl_GlobalEval(ip, finalize_hook_name);
Tcl_GlobalEval   5128 ext/tk/tcltklib.c         Tcl_GlobalEval(ip, "catch {foreach id [after info] {after cancel $id}}");