diff options
| author | fvogel <fvogelnew1@free.fr> | 2015-11-19 21:59:11 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2015-11-19 21:59:11 (GMT) |
| commit | 450aa9743dee157400ca5b3227922914f1c434a0 (patch) | |
| tree | 81a1f2e9456e1a7a254971a80110ea5e72c8710a | |
| parent | 811bb84daa1769e2840edf52bdc5922d8370d930 (diff) | |
| download | tk-450aa9743dee157400ca5b3227922914f1c434a0.zip tk-450aa9743dee157400ca5b3227922914f1c434a0.tar.gz tk-450aa9743dee157400ca5b3227922914f1c434a0.tar.bz2 | |
Tcl_Preserve should be first I guess
| -rw-r--r-- | generic/tkTextDisp.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tkTextDisp.c b/generic/tkTextDisp.c index 8f72be0..a8a8f85 100644 --- a/generic/tkTextDisp.c +++ b/generic/tkTextDisp.c @@ -2946,8 +2946,9 @@ AsyncUpdateLineMetrics( */ if (textPtr->afterSyncCmd != NULL) { - int code = Tcl_EvalObjEx(textPtr->interp, textPtr->afterSyncCmd, TCL_EVAL_GLOBAL); + int code; Tcl_Preserve((ClientData)textPtr->interp); + code = Tcl_EvalObjEx(textPtr->interp, textPtr->afterSyncCmd, TCL_EVAL_GLOBAL); if (code != TCL_OK && code != TCL_CONTINUE && code != TCL_BREAK) { Tcl_AddErrorInfo(textPtr->interp, "\n (text yupdate)"); |