diff options
| author | fvogel <fvogelnew1@free.fr> | 2014-10-11 20:13:03 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2014-10-11 20:13:03 (GMT) |
| commit | 6b0fb819e1e3cf2ace970c1ba7cbd850a8db4b79 (patch) | |
| tree | e215cf19246ca82a5f36c2ff047d5508ca420f62 | |
| parent | f995e779cf5c0142ea0136713155f875c62cdc1d (diff) | |
| parent | 8d19c74ded09e7f2537b525b61c2e74e6c26a9aa (diff) | |
| download | tk-6b0fb819e1e3cf2ace970c1ba7cbd850a8db4b79.zip tk-6b0fb819e1e3cf2ace970c1ba7cbd850a8db4b79.tar.gz tk-6b0fb819e1e3cf2ace970c1ba7cbd850a8db4b79.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 5162e16..dad03bf 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) { |