diff options
| author | fvogel <fvogelnew1@free.fr> | 2014-10-11 20:15:09 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2014-10-11 20:15:09 (GMT) |
| commit | d866577ab328a56ba71ec8868954c9f3f509a730 (patch) | |
| tree | 7ab3a157d45207231a331c7ef049acfc07821cb6 | |
| parent | 4d8cae98bed28595c23a57af528ca2c53c18e023 (diff) | |
| parent | 6b0fb819e1e3cf2ace970c1ba7cbd850a8db4b79 (diff) | |
| download | tk-d866577ab328a56ba71ec8868954c9f3f509a730.zip tk-d866577ab328a56ba71ec8868954c9f3f509a730.tar.gz tk-d866577ab328a56ba71ec8868954c9f3f509a730.tar.bz2 | |
Fixed failing textDisp-19.11.20 and textDisp-19.11.23 - Bug [810c43d789]
| -rw-r--r-- | generic/tkTextTag.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/generic/tkTextTag.c b/generic/tkTextTag.c index a34b74b..af3f235 100644 --- a/generic/tkTextTag.c +++ b/generic/tkTextTag.c @@ -169,6 +169,14 @@ TkTextTagCmd( return TCL_ERROR; } tagPtr = TkTextCreateTag(textPtr, Tcl_GetString(objv[3]), NULL); + if (tagPtr->elide) { + /* + * Indices are potentially obsolete after adding or removing + * elided character ranges, especially indices having "display" + * or "any" submodifier, therefore increase the epoch. + */ + textPtr->sharedTextPtr->stateEpoch++; + } for (i = 4; i < objc; i += 2) { if (TkTextGetObjIndex(interp, textPtr, objv[i], &index1) != TCL_OK) { |