diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-12-01 20:52:16 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-12-01 20:52:16 (GMT) |
commit | 002540aedbd100ebc8a00e74568ea17c7f47673a (patch) | |
tree | 5d9d87113e977fec4f8e1fa7709cec718a113caa /generic/tkTextDisp.c | |
parent | f2ecf42d53b17282da36e109e89fe2acd1b55c2c (diff) | |
parent | dc9e0b0355b022c0c543de5b166845fdf3242d0b (diff) | |
download | tk-002540aedbd100ebc8a00e74568ea17c7f47673a.zip tk-002540aedbd100ebc8a00e74568ea17c7f47673a.tar.gz tk-002540aedbd100ebc8a00e74568ea17c7f47673a.tar.bz2 |
merge trunk
Diffstat (limited to 'generic/tkTextDisp.c')
-rw-r--r-- | generic/tkTextDisp.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/generic/tkTextDisp.c b/generic/tkTextDisp.c index 5db96e8..1a31e93 100644 --- a/generic/tkTextDisp.c +++ b/generic/tkTextDisp.c @@ -213,7 +213,7 @@ typedef struct TextStyle { #define LOG(toVar,what) \ if (OK_TO_LOG) \ Tcl_SetVar2(textPtr->interp, toVar, NULL, (what), \ - TCL_GLOBAL_ONLY|TCL_APPEND_VALUE|TCL_LIST_ELEMENT) + TCL_GLOBAL_ONLY|TCL_APPEND_VALUE|TCL_LIST_ELEMENT) #define CLEAR(var) \ if (OK_TO_LOG) \ Tcl_SetVar2(interp, var, NULL, "", TCL_GLOBAL_ONLY) @@ -3135,11 +3135,11 @@ GenerateWidgetViewSyncEvent( * like a mouse click is received. But that extra drawing corrupts the * data that the test suite is trying to collect. */ - + if (!tkTextDebug) { FORCE_DISPLAY(textPtr->tkwin); } - + TkSendVirtualEvent(textPtr->tkwin, "WidgetViewSync", Tcl_NewBooleanObj(InSync)); } @@ -5261,7 +5261,7 @@ TkTextRelayoutWindow( AsyncUpdateLineMetrics, textPtr); inSync = 0; } - + if (!inSync) { GenerateWidgetViewSyncEvent(textPtr, 0); } @@ -6290,7 +6290,8 @@ TkTextPendingsync( TextDInfo *dInfoPtr = textPtr->dInfoPtr; return ( - ((dInfoPtr->metricEpoch == TCL_AUTO_LENGTH) && + (!(dInfoPtr->flags & REDRAW_PENDING) && + (dInfoPtr->metricEpoch == TCL_AUTO_LENGTH) && (dInfoPtr->lastMetricUpdateLine == dInfoPtr->currentMetricUpdateLine)) ? 0 : 1); } |