diff options
| author | jan.nijtmans <jan.nijtmans@noemail.net> | 2013-01-11 11:48:38 (GMT) |
|---|---|---|
| committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2013-01-11 11:48:38 (GMT) |
| commit | c58228891781cb51f7116259b9eeacef67ff7242 (patch) | |
| tree | c9a801ef36f2cf95b58dcb55dd72e10ecfe02f67 /macosx/tkMacOSXWindowEvent.c | |
| parent | cc0b52b4f1aee3806870e5fc187f90d5c2f53b88 (diff) | |
| parent | 193d33d305b35e2f3fa4413e9a6ae558050e6323 (diff) | |
| download | tk-c58228891781cb51f7116259b9eeacef67ff7242.zip tk-c58228891781cb51f7116259b9eeacef67ff7242.tar.gz tk-c58228891781cb51f7116259b9eeacef67ff7242.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.
FossilOrigin-Name: afce507e083e77c3d737e9de33f662dc1f1de863
Diffstat (limited to 'macosx/tkMacOSXWindowEvent.c')
| -rw-r--r-- | macosx/tkMacOSXWindowEvent.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/macosx/tkMacOSXWindowEvent.c b/macosx/tkMacOSXWindowEvent.c index f8a0d3b..c14c6eb 100644 --- a/macosx/tkMacOSXWindowEvent.c +++ b/macosx/tkMacOSXWindowEvent.c @@ -701,7 +701,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)", |