summaryrefslogtreecommitdiffstats
path: root/win/tkWinWm.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-11 11:48:38 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-11 11:48:38 (GMT)
commitcfce00e636e389f48c32d61c5483a913a0a9d656 (patch)
treec9a801ef36f2cf95b58dcb55dd72e10ecfe02f67 /win/tkWinWm.c
parent6b32cafc8e54ed1a7bee854a77191c18186d905e (diff)
parentfa87897c16b0dc6d903c1be0dc80389d9cd072e3 (diff)
downloadtk-cfce00e636e389f48c32d61c5483a913a0a9d656.zip
tk-cfce00e636e389f48c32d61c5483a913a0a9d656.tar.gz
tk-cfce00e636e389f48c32d61c5483a913a0a9d656.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.
Diffstat (limited to 'win/tkWinWm.c')
-rw-r--r--win/tkWinWm.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/win/tkWinWm.c b/win/tkWinWm.c
index dc5d4d9..040a712 100644
--- a/win/tkWinWm.c
+++ b/win/tkWinWm.c
@@ -6615,7 +6615,7 @@ TkWmProtocolEventProc(
Tcl_Preserve(protPtr);
interp = protPtr->interp;
Tcl_Preserve(interp);
- result = Tcl_GlobalEval(interp, protPtr->command);
+ result = Tcl_EvalEx(interp, protPtr->command, -1, TCL_EVAL_GLOBAL);
if (result != TCL_OK) {
Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf(
"\n (command for \"%s\" window manager protocol)",