[Tcl-bugs] [ tktoolkit-Patches-1375069 ] Fix for Bug 1374935

[SourceForge.net <no...@so...>]

Patches item #1375069, was opened at 2005-12-07 07:03
Message generated for change (Settings changed) made by dkf
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=312997&aid=1375069&group_id=12997

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: 18. [text]
Group: None
Status: Open
Resolution: None
>Priority: 9
Submitted By: Brian Griffin (bgriffin)
>Assigned to: Vince Darley (vincentdarley)
Summary: Fix for Bug 1374935

Initial Comment:
Index: tkTextTag.c
=============================================
======================
RCS file: /cvsroot/tktoolkit/tk/generic/tkTextTag.c,v
retrieving revision 1.22
diff -p -r1.22 tkTextTag.c
*** tkTextTag.c 17 Nov 2005 10:57:35 -0000      1.22
--- tkTextTag.c 7 Dec 2005 06:58:20 -0000
*************** TkTextTagCmd(
*** 623,630 ****
             * The 'sel' tag is not in the hash table.
             */
  
!           arrayPtr[i] = textPtr->selTagPtr;
!           arraySize = textPtr->sharedTextPtr->numTags;
        } else {
            if (TkTextGetObjIndex(interp, textPtr, objv[3],
                    &index1) != TCL_OK) {
--- 623,630 ----
             * The 'sel' tag is not in the hash table.
             */
  
!           arrayPtr[i++] = textPtr->selTagPtr;
!           arraySize = i; /*textPtr->sharedTextPtr->numTags;*/
        } else {
            if (TkTextGetObjIndex(interp, textPtr, objv[3],
                    &index1) != TCL_OK) {


----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=312997&aid=1375069&group_id=12997