summaryrefslogtreecommitdiffstats
path: root/win/tkWinScrlbr.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-11 09:51:01 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-11 09:51:01 (GMT)
commitcf1e3870e8f4c1bb96fb0155089bc1fb77ae976c (patch)
treee608d2723552872785a3a140b3d4098636edfeae /win/tkWinScrlbr.c
parent4551ee01fdb87993393cada28619e2dd32762432 (diff)
downloadtk-cf1e3870e8f4c1bb96fb0155089bc1fb77ae976c.zip
tk-cf1e3870e8f4c1bb96fb0155089bc1fb77ae976c.tar.gz
tk-cf1e3870e8f4c1bb96fb0155089bc1fb77ae976c.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 'win/tkWinScrlbr.c')
-rw-r--r--win/tkWinScrlbr.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/win/tkWinScrlbr.c b/win/tkWinScrlbr.c
index 130daa6..2145ff0 100644
--- a/win/tkWinScrlbr.c
+++ b/win/tkWinScrlbr.c
@@ -582,7 +582,7 @@ ScrollbarProc(hwnd, message, wParam, lParam)
}
interp = scrollPtr->info.interp;
- code = Tcl_GlobalEval(interp, cmdString.string);
+ code = Tcl_EvalEx(interp, cmdString.string, -1, TCL_EVAL_GLOBAL);
if (code != TCL_OK && code != TCL_CONTINUE && code != TCL_BREAK) {
Tcl_AddErrorInfo(interp, "\n (scrollbar command)");
Tcl_BackgroundError(interp);