diff options
author | jan.nijtmans <jan.nijtmans@noemail.net> | 2013-01-11 09:51:01 (GMT) |
---|---|---|
committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2013-01-11 09:51:01 (GMT) |
commit | b593720965053a9ddd0434dffc89f204396dc2ab (patch) | |
tree | e608d2723552872785a3a140b3d4098636edfeae /win/tkWinWm.c | |
parent | 0c22d2042c9071e80fdc2df89bf300ca3cb39ccc (diff) | |
download | tk-b593720965053a9ddd0434dffc89f204396dc2ab.zip tk-b593720965053a9ddd0434dffc89f204396dc2ab.tar.gz tk-b593720965053a9ddd0434dffc89f204396dc2ab.tar.bz2 |
Eliminate all usage of deprecated Tcl_EvalObj, Tcl_GlobalEval and Tcl_GlobalEvalObj functions.
Add [file normalize] to pkgIndex.tcl, in order to prevent '..' in file paths.
Remove unused TCLPATCHL, it should be ".0" for all final releases.
FossilOrigin-Name: 202603bf2bfee83e288d8f893a4a113e14c3201e
Diffstat (limited to 'win/tkWinWm.c')
-rw-r--r-- | win/tkWinWm.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/win/tkWinWm.c b/win/tkWinWm.c index 32768cf..b8dfd8d 100644 --- a/win/tkWinWm.c +++ b/win/tkWinWm.c @@ -6123,7 +6123,7 @@ TkWmProtocolEventProc(winPtr, eventPtr) Tcl_Preserve((ClientData) protPtr); interp = protPtr->interp; Tcl_Preserve((ClientData) interp); - result = Tcl_GlobalEval(interp, protPtr->command); + result = Tcl_EvalEx(interp, protPtr->command, -1, TCL_EVAL_GLOBAL); if (result != TCL_OK) { Tcl_AddErrorInfo(interp, "\n (command for \""); Tcl_AddErrorInfo(interp, name); |