diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-14 08:32:07 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-14 08:32:07 (GMT) |
| commit | fa083c8aaf7ff3d22de606e25adb0b598dba0dd6 (patch) | |
| tree | 51134cd671ebf8759cc2b4ff148cd7d9d3797725 /generic/tkIcu.c | |
| parent | 6eb17d212faf798cf9cd89c85467d8f8893ca614 (diff) | |
| download | tk-fa083c8aaf7ff3d22de606e25adb0b598dba0dd6.zip tk-fa083c8aaf7ff3d22de606e25adb0b598dba0dd6.tar.gz tk-fa083c8aaf7ff3d22de606e25adb0b598dba0dd6.tar.bz2 | |
Better approach, using "Tk" prefix for UTF-32 versions of API
Diffstat (limited to 'generic/tkIcu.c')
| -rw-r--r-- | generic/tkIcu.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tkIcu.c b/generic/tkIcu.c index c11f78a..257003c 100644 --- a/generic/tkIcu.c +++ b/generic/tkIcu.c @@ -92,7 +92,7 @@ startEndOfCmd( str = Tcl_GetStringFromObj(objv[1], &len); Tcl_UtfToChar16DString(str, len, &ds); len = Tcl_DStringLength(&ds)/2; - Tcl_Size ulen = Tcl_GetCharLength(objv[1]); + Tcl_Size ulen = TkGetCharLength(objv[1]); if (TkGetIntForIndex(objv[2], ulen-1, 0, &idx) != TCL_OK) { Tcl_DStringFree(&ds); Tcl_SetObjResult(interp, Tcl_ObjPrintf("bad index \"%s\": must be integer?[+-]integer?, end?[+-]integer?, or \"\"", Tcl_GetString(objv[2]))); |