diff options
| author | fvogel <fvogel@noemail.net> | 2015-12-26 20:52:21 (GMT) |
|---|---|---|
| committer | fvogel <fvogel@noemail.net> | 2015-12-26 20:52:21 (GMT) |
| commit | e126c00b0cbde672f52cd8a39ed9114373662eb6 (patch) | |
| tree | 55c638085f078ac4c8f49ae14404e2b35df10162 /generic/tkTextDisp.c | |
| parent | 67e6e1d7d6d5c238aa6b6ecba05f371711412dec (diff) | |
| download | tk-e126c00b0cbde672f52cd8a39ed9114373662eb6.zip tk-e126c00b0cbde672f52cd8a39ed9114373662eb6.tar.gz tk-e126c00b0cbde672f52cd8a39ed9114373662eb6.tar.bz2 | |
[.text sync -command $cmd] schedules execution of $cmd by the event loop at idle time
FossilOrigin-Name: 86e88288a65c057a65da384739b7c7b9d5362fe6
Diffstat (limited to 'generic/tkTextDisp.c')
| -rw-r--r-- | generic/tkTextDisp.c | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/generic/tkTextDisp.c b/generic/tkTextDisp.c index ba584ac..39311a6 100644 --- a/generic/tkTextDisp.c +++ b/generic/tkTextDisp.c @@ -2958,18 +2958,18 @@ AsyncUpdateLineMetrics( * above). If there is a registered aftersync command, run that first. */ - if (textPtr->afterSyncCmd != NULL) { - 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 sync)"); - Tcl_BackgroundError(textPtr->interp); + if (textPtr->afterSyncCmd) { + int code; + Tcl_Preserve((ClientData) textPtr->interp); + code = Tcl_EvalObjEx(textPtr->interp, textPtr->afterSyncCmd, + TCL_EVAL_GLOBAL); + if (code == TCL_ERROR) { + Tcl_AddErrorInfo(textPtr->interp, "\n (text sync)"); + Tcl_BackgroundError(textPtr->interp); } - Tcl_Release((ClientData)textPtr->interp); - Tcl_DecrRefCount(textPtr->afterSyncCmd); - textPtr->afterSyncCmd = 0; + Tcl_Release((ClientData) textPtr->interp); + Tcl_DecrRefCount(textPtr->afterSyncCmd); + textPtr->afterSyncCmd = NULL; } /* |