diff options
| author | fvogel <fvogelnew1@free.fr> | 2014-09-27 20:59:28 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2014-09-27 20:59:28 (GMT) |
| commit | 8d19c74ded09e7f2537b525b61c2e74e6c26a9aa (patch) | |
| tree | ff24a9641b27dd3ce19513f925c07f003acfd734 /generic/tkTextTag.c | |
| parent | 17496cdc52a1eddf082c45994393bc3d2649e0aa (diff) | |
| download | tk-8d19c74ded09e7f2537b525b61c2e74e6c26a9aa.zip tk-8d19c74ded09e7f2537b525b61c2e74e6c26a9aa.tar.gz tk-8d19c74ded09e7f2537b525b61c2e74e6c26a9aa.tar.bz2 | |
Fixed failing textDisp-19.11.20 and textDisp-19.11.23 [810c43d789]bug_810c43d789
Diffstat (limited to 'generic/tkTextTag.c')
| -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) { |