diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-11 11:48:38 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-11 11:48:38 (GMT) |
commit | 7e9cd69cb54782aca78dd08297b6e64125d97de1 (patch) | |
tree | c9a801ef36f2cf95b58dcb55dd72e10ecfe02f67 /win/tkWinWm.c | |
parent | 681611312cc92c4d6df78965eb26afdaca1ff53b (diff) | |
parent | a7cf312d4213e088b62257e93b3038e53f3fc31b (diff) | |
download | tk-7e9cd69cb54782aca78dd08297b6e64125d97de1.zip tk-7e9cd69cb54782aca78dd08297b6e64125d97de1.tar.gz tk-7e9cd69cb54782aca78dd08297b6e64125d97de1.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.c | 2 |
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)", |