diff options
| author | fvogelnew1@free.fr <fvogel> | 2014-10-11 20:15:09 (GMT) |
|---|---|---|
| committer | fvogelnew1@free.fr <fvogel> | 2014-10-11 20:15:09 (GMT) |
| commit | f5841af714d0c89247f2de89ea1b6b9d0530ffeb (patch) | |
| tree | 7ab3a157d45207231a331c7ef049acfc07821cb6 /generic | |
| parent | ba0a073448028dc0e91a0b98743dee3b754f5dfe (diff) | |
| parent | 48def52b176cbeeaccda568430cc1420bde9134a (diff) | |
| download | tk-f5841af714d0c89247f2de89ea1b6b9d0530ffeb.zip tk-f5841af714d0c89247f2de89ea1b6b9d0530ffeb.tar.gz tk-f5841af714d0c89247f2de89ea1b6b9d0530ffeb.tar.bz2 | |
Fixed failing textDisp-19.11.20 and textDisp-19.11.23 - Bug [810c43d789]
Diffstat (limited to 'generic')
| -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) { |