summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2014-10-11 20:15:09 (GMT)
committerfvogel <fvogelnew1@free.fr>2014-10-11 20:15:09 (GMT)
commitd866577ab328a56ba71ec8868954c9f3f509a730 (patch)
tree7ab3a157d45207231a331c7ef049acfc07821cb6
parent4d8cae98bed28595c23a57af528ca2c53c18e023 (diff)
parent6b0fb819e1e3cf2ace970c1ba7cbd850a8db4b79 (diff)
downloadtk-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.c8
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) {