diff options
| author | vincentdarley <vincentdarley> | 2004-02-28 15:59:47 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2004-02-28 15:59:47 (GMT) |
| commit | d151599c49a650c1915a39a60b3c21b5f818f0a3 (patch) | |
| tree | ed81cd10ea2c55e2efc507352ed8e243fb021e77 | |
| parent | a93e58892662874daf3055851c08735c66517cc8 (diff) | |
| download | tk-d151599c49a650c1915a39a60b3c21b5f818f0a3.zip tk-d151599c49a650c1915a39a60b3c21b5f818f0a3.tar.gz tk-d151599c49a650c1915a39a60b3c21b5f818f0a3.tar.bz2 | |
remove access to tclInt.h
| -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; } |