diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2003-10-10 15:56:22 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2003-10-10 15:56:22 (GMT) |
| commit | 15abaddf877bd0d1e49ece8961091a1ea0cfbc4f (patch) | |
| tree | be593751f801bed7897c2c29968d8a9c9ed17e74 /generic/tkTextIndex.c | |
| parent | 6dbb76edae4b6cd09c48a9b4819f3623d67778cc (diff) | |
| download | tk-15abaddf877bd0d1e49ece8961091a1ea0cfbc4f.zip tk-15abaddf877bd0d1e49ece8961091a1ea0cfbc4f.tar.gz tk-15abaddf877bd0d1e49ece8961091a1ea0cfbc4f.tar.bz2 | |
Register the type of text indices. Also some exported symbol name policing...
Diffstat (limited to 'generic/tkTextIndex.c')
| -rw-r--r-- | generic/tkTextIndex.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tkTextIndex.c b/generic/tkTextIndex.c index cb8cbea..06396db 100644 --- a/generic/tkTextIndex.c +++ b/generic/tkTextIndex.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkTextIndex.c,v 1.7 2003/05/19 13:04:23 vincentdarley Exp $ + * RCS: @(#) $Id: tkTextIndex.c,v 1.8 2003/10/10 15:56:22 dkf Exp $ */ #include "default.h" @@ -56,7 +56,7 @@ static void UpdateStringOfTextIndex _ANSI_ARGS_((Tcl_Obj *objPtr)); * Define the 'textindex' object type, which Tk uses to represent * indices in text widgets internally. */ -Tcl_ObjType tclTextIndexType = { +Tcl_ObjType tkTextIndexType = { "textindex", /* name */ FreeTextIndexInternalRep, /* freeIntRepProc */ DupTextIndexInternalRep, /* dupIntRepProc */ @@ -165,7 +165,7 @@ MakeObjIndex(textPtr, objPtr, origPtr) indexPtr->linePtr = origPtr->linePtr; indexPtr->byteIndex = origPtr->byteIndex; SET_TEXTINDEX(objPtr, indexPtr); - objPtr->typePtr = &tclTextIndexType; + objPtr->typePtr = &tkTextIndexType; indexPtr->textPtr = textPtr; if (textPtr != NULL) { @@ -187,7 +187,7 @@ TkTextGetIndexFromObj(interp, textPtr, objPtr) TkTextIndex *indexPtr = NULL; int cache; - if (objPtr->typePtr == &tclTextIndexType) { + if (objPtr->typePtr == &tkTextIndexType) { int epoch; indexPtr = GET_TEXTINDEX(objPtr); |