diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-06-08 12:41:00 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-06-08 12:41:00 (GMT) |
commit | 50d501f90b85fcd0a3beaf485da84379975c9504 (patch) | |
tree | 4ed72822f24549fd22069c88ee1fc7d29bbdc45e /generic/tkTextDisp.c | |
parent | 84cfc97d7f9469cb9f4406c0f26a15941de718d6 (diff) | |
download | tk-50d501f90b85fcd0a3beaf485da84379975c9504.zip tk-50d501f90b85fcd0a3beaf485da84379975c9504.tar.gz tk-50d501f90b85fcd0a3beaf485da84379975c9504.tar.bz2 |
Fix [2790615]: "update" performs Tk callbacks in its own stack frame.
by adding TCL_EVAL_GLOBAL in a lot of places.
Diffstat (limited to 'generic/tkTextDisp.c')
-rw-r--r-- | generic/tkTextDisp.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tkTextDisp.c b/generic/tkTextDisp.c index 2deeaf2..93b56aa 100644 --- a/generic/tkTextDisp.c +++ b/generic/tkTextDisp.c @@ -6527,7 +6527,7 @@ GetXView( Tcl_DStringAppend(&buf, textPtr->xScrollCmd, -1); Tcl_DStringAppend(&buf, buf1, -1); Tcl_DStringAppend(&buf, buf2, -1); - code = Tcl_EvalEx(interp, Tcl_DStringValue(&buf), -1, 0); + code = Tcl_EvalEx(interp, Tcl_DStringValue(&buf), -1, TCL_EVAL_GLOBAL); Tcl_DStringFree(&buf); if (code != TCL_OK) { Tcl_AddErrorInfo(interp, @@ -6812,7 +6812,7 @@ GetYView( Tcl_DStringAppend(&buf, textPtr->yScrollCmd, -1); Tcl_DStringAppend(&buf, buf1, -1); Tcl_DStringAppend(&buf, buf2, -1); - code = Tcl_EvalEx(interp, Tcl_DStringValue(&buf), -1, 0); + code = Tcl_EvalEx(interp, Tcl_DStringValue(&buf), -1, TCL_EVAL_GLOBAL); Tcl_DStringFree(&buf); if (code != TCL_OK) { Tcl_AddErrorInfo(interp, |