summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorhobbs <hobbs>2005-12-08 18:17:32 (GMT)
committerhobbs <hobbs>2005-12-08 18:17:32 (GMT)
commit93ffd1d416a03cd792e06f5251092385ab67f788 (patch)
treec88adf27902362ca0727d6edb5d4725009fc2082 /generic
parent92c26aee05e92937090c66189ac215a1210f4e37 (diff)
downloadtk-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')
-rw-r--r--generic/tkTextTag.c4
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) {