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 /generic/tkTextWind.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 'generic/tkTextWind.c')
| -rw-r--r-- | generic/tkTextWind.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tkTextWind.c b/generic/tkTextWind.c index 454d198..f258ec7 100644 --- a/generic/tkTextWind.c +++ b/generic/tkTextWind.c @@ -911,10 +911,10 @@ EmbWinLayoutProc( if (dsPtr != NULL) { Tcl_DStringAppend(dsPtr, before, (int) (string-before)); - code = Tcl_GlobalEval(textPtr->interp, Tcl_DStringValue(dsPtr)); + code = Tcl_EvalEx(textPtr->interp, Tcl_DStringValue(dsPtr), -1, TCL_EVAL_GLOBAL); Tcl_DStringFree(dsPtr); } else { - code = Tcl_GlobalEval(textPtr->interp, ewPtr->body.ew.create); + code = Tcl_EvalEx(textPtr->interp, ewPtr->body.ew.create, -1, TCL_EVAL_GLOBAL); } if (code != TCL_OK) { Tcl_BackgroundException(textPtr->interp, code); |