diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-11 09:51:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-11 09:51:01 (GMT) |
| commit | 0e5b62601e1b369ad78f4eee43d473e74702cbd6 (patch) | |
| tree | e608d2723552872785a3a140b3d4098636edfeae /generic/tkTest.c | |
| parent | 1d53b374aa101c0a5fe079f6e1ead45b64204af9 (diff) | |
| download | tk-0e5b62601e1b369ad78f4eee43d473e74702cbd6.zip tk-0e5b62601e1b369ad78f4eee43d473e74702cbd6.tar.gz tk-0e5b62601e1b369ad78f4eee43d473e74702cbd6.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 'generic/tkTest.c')
| -rw-r--r-- | generic/tkTest.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tkTest.c b/generic/tkTest.c index 78496e6..e8d8d88 100644 --- a/generic/tkTest.c +++ b/generic/tkTest.c @@ -410,7 +410,7 @@ CBindingEvalProc(clientData, interp, eventPtr, tkwin, keySym) cbindPtr = (CBinding *) clientData; - return Tcl_GlobalEval(interp, cbindPtr->command); + return Tcl_EvalEx(interp, cbindPtr->command, -1, TCL_EVAL_GLOBAL); } static void @@ -420,7 +420,7 @@ CBindingFreeProc(clientData) CBinding *cbindPtr = (CBinding *) clientData; if (cbindPtr->delete != NULL) { - Tcl_GlobalEval(cbindPtr->interp, cbindPtr->delete); + Tcl_EvalEx(cbindPtr->interp, cbindPtr->delete, -1, TCL_EVAL_GLOBAL); ckfree((char *) cbindPtr->delete); } ckfree((char *) cbindPtr->command); |