summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2014-09-27 20:59:28 (GMT)
committerfvogel <fvogelnew1@free.fr>2014-09-27 20:59:28 (GMT)
commit8d19c74ded09e7f2537b525b61c2e74e6c26a9aa (patch)
treeff24a9641b27dd3ce19513f925c07f003acfd734
parent17496cdc52a1eddf082c45994393bc3d2649e0aa (diff)
downloadtk-8d19c74ded09e7f2537b525b61c2e74e6c26a9aa.zip
tk-8d19c74ded09e7f2537b525b61c2e74e6c26a9aa.tar.gz
tk-8d19c74ded09e7f2537b525b61c2e74e6c26a9aa.tar.bz2
Fixed failing textDisp-19.11.20 and textDisp-19.11.23 [810c43d789]bug_810c43d789
-rw-r--r--generic/tkTextTag.c8
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) {