diff options
| author | hobbs <hobbs> | 2005-12-08 18:17:32 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2005-12-08 18:17:32 (GMT) |
| commit | 93ffd1d416a03cd792e06f5251092385ab67f788 (patch) | |
| tree | c88adf27902362ca0727d6edb5d4725009fc2082 /generic/tkTextTag.c | |
| parent | 92c26aee05e92937090c66189ac215a1210f4e37 (diff) | |
| download | tk-93ffd1d416a03cd792e06f5251092385ab67f788.zip tk-93ffd1d416a03cd792e06f5251092385ab67f788.tar.gz tk-93ffd1d416a03cd792e06f5251092385ab67f788.tar.bz2 | |
* generic/tkTextTag.c (TkTextTagCmd): use correct arraySize for
peered text widgets in [$text tag names]. [Bug 1375069 1374935]
Diffstat (limited to 'generic/tkTextTag.c')
| -rw-r--r-- | generic/tkTextTag.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tkTextTag.c b/generic/tkTextTag.c index 900fff6..703a271 100644 --- a/generic/tkTextTag.c +++ b/generic/tkTextTag.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkTextTag.c,v 1.22 2005/11/17 10:57:35 dkf Exp $ + * RCS: @(#) $Id: tkTextTag.c,v 1.23 2005/12/08 18:17:32 hobbs Exp $ */ #include "default.h" @@ -624,7 +624,7 @@ TkTextTagCmd( */ arrayPtr[i] = textPtr->selTagPtr; - arraySize = textPtr->sharedTextPtr->numTags; + arraySize = ++i; } else { if (TkTextGetObjIndex(interp, textPtr, objv[3], &index1) != TCL_OK) { |