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 /unix | |
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 'unix')
-rw-r--r-- | unix/tkUnixMenu.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unix/tkUnixMenu.c b/unix/tkUnixMenu.c index 4ae343c..08d45b0 100644 --- a/unix/tkUnixMenu.c +++ b/unix/tkUnixMenu.c @@ -860,13 +860,13 @@ DrawMenuUnderline( if (mePtr->labelPtr != NULL) { int len; - len = Tcl_GetCharLength(mePtr->labelPtr); + len = TkGetCharLength(mePtr->labelPtr); if (mePtr->underline < len && mePtr->underline >= -len) { int activeBorderWidth, leftEdge, ch; const char *label, *start, *end; label = Tcl_GetString(mePtr->labelPtr); - start = Tcl_UtfAtIndex(label, (mePtr->underline < 0) ? mePtr->underline + len : mePtr->underline); + start = TkUtfAtIndex(label, (mePtr->underline < 0) ? mePtr->underline + len : mePtr->underline); end = start + TkUtfToUniChar(start, &ch); Tk_GetPixelsFromObj(NULL, menuPtr->tkwin, |