diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-01-11 09:51:01 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-01-11 09:51:01 (GMT) |
| commit | 4f4f05f4d5a6ec09bd8fb39155c1a8e9ccc8bdb2 (patch) | |
| tree | e608d2723552872785a3a140b3d4098636edfeae /unix/tkUnixWm.c | |
| parent | f77422940daa9a78e2ce01a596f7699f90c363f6 (diff) | |
| download | tk-4f4f05f4d5a6ec09bd8fb39155c1a8e9ccc8bdb2.zip tk-4f4f05f4d5a6ec09bd8fb39155c1a8e9ccc8bdb2.tar.gz tk-4f4f05f4d5a6ec09bd8fb39155c1a8e9ccc8bdb2.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.
Diffstat (limited to 'unix/tkUnixWm.c')
| -rw-r--r-- | unix/tkUnixWm.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/unix/tkUnixWm.c b/unix/tkUnixWm.c index 1fe1174..233c881 100644 --- a/unix/tkUnixWm.c +++ b/unix/tkUnixWm.c @@ -5721,7 +5721,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, protocolName); |