summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2004-02-28 15:59:47 (GMT)
committervincentdarley <vincentdarley>2004-02-28 15:59:47 (GMT)
commitd151599c49a650c1915a39a60b3c21b5f818f0a3 (patch)
treeed81cd10ea2c55e2efc507352ed8e243fb021e77
parenta93e58892662874daf3055851c08735c66517cc8 (diff)
downloadtk-d151599c49a650c1915a39a60b3c21b5f818f0a3.zip
tk-d151599c49a650c1915a39a60b3c21b5f818f0a3.tar.gz
tk-d151599c49a650c1915a39a60b3c21b5f818f0a3.tar.bz2
remove access to tclInt.h
-rw-r--r--ChangeLog5
-rw-r--r--generic/tkTextIndex.c7
2 files changed, 8 insertions, 4 deletions
diff --git a/ChangeLog b/ChangeLog
index d57ed43..9453897 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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;
}