diff options
| author | vincentdarley <vincentdarley@noemail.net> | 2004-02-28 15:59:47 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley@noemail.net> | 2004-02-28 15:59:47 (GMT) |
| commit | c07e2eda30aa747f709c167d4da9fbad6c7630b1 (patch) | |
| tree | ed81cd10ea2c55e2efc507352ed8e243fb021e77 | |
| parent | baed492dc94d7155ca740698f02efc598a5c8d10 (diff) | |
| download | tk-c07e2eda30aa747f709c167d4da9fbad6c7630b1.zip tk-c07e2eda30aa747f709c167d4da9fbad6c7630b1.tar.gz tk-c07e2eda30aa747f709c167d4da9fbad6c7630b1.tar.bz2 | |
remove access to tclInt.h
FossilOrigin-Name: 5d6500acb02600f7f4278050e4bfce2d0f809e96
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | generic/tkTextIndex.c | 7 |
2 files changed, 8 insertions, 4 deletions
@@ -1,3 +1,8 @@ +2004-02-28 Vince Darley <vincentdarley@users.sourceforge.net> + + * generic/tkTextIndex.c: remove use of internal Tcl interface + 'TclUtfToUniChar' + 2004-02-25 Benjamin Riefenstahl <Benjamin.Riefenstahl@epost.de> * library/demos/widget (addFormattedText): Correct off-by-one error. diff --git a/generic/tkTextIndex.c b/generic/tkTextIndex.c index 8588020..41702f1 100644 --- a/generic/tkTextIndex.c +++ b/generic/tkTextIndex.c @@ -10,14 +10,13 @@ * 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.16 2004/01/27 10:09:35 das Exp $ + * RCS: @(#) $Id: tkTextIndex.c,v 1.17 2004/02/28 16:04:43 vincentdarley Exp $ */ #include "default.h" #include "tkPort.h" #include "tkInt.h" #include "tkText.h" -#include <tclInt.h> /* * Index to use to select last character in line (very large integer): @@ -2041,7 +2040,7 @@ StartEnd(textPtr, string, indexPtr) int chSize = 1; if (segPtr->typePtr == &tkTextCharType) { Tcl_UniChar ch; - chSize = TclUtfToUniChar(segPtr->body.chars + offset, &ch); + chSize = Tcl_UtfToUniChar(segPtr->body.chars + offset, &ch); if (!Tcl_UniCharIsWordChar(ch)) { break; } @@ -2083,7 +2082,7 @@ StartEnd(textPtr, string, indexPtr) int chSize = 1; if (segPtr->typePtr == &tkTextCharType) { Tcl_UniChar ch; - TclUtfToUniChar(segPtr->body.chars + offset, &ch); + Tcl_UtfToUniChar(segPtr->body.chars + offset, &ch); if (!Tcl_UniCharIsWordChar(ch)) { break; } |