0 chars} } 0.0 test textIndex-00.0 {TkTextIndexForwChars} {     # not (charCount < 0)     .t index {0.0 + 0 chars} } 0.0 test textIndex-00.0 {TkTextIndexForwChars: find index} {     # for ( ; segPtr != NULL; segPtr = segPtr->nextPtr)     # 