diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-05-02 15:38:16 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-05-02 15:38:16 (GMT) |
commit | 0971c1b62bb68706f54dc8d736e26e3704b07856 (patch) | |
tree | 8a3942c25a55dec6f47ed25ae61838a7be6eea01 /win | |
parent | b684a0b52b8bdf176a4b6ac34a125ca43e600b9e (diff) | |
download | tk-0971c1b62bb68706f54dc8d736e26e3704b07856.zip tk-0971c1b62bb68706f54dc8d736e26e3704b07856.tar.gz tk-0971c1b62bb68706f54dc8d736e26e3704b07856.tar.bz2 |
Experimental new functions TkUtfPrev/TkUtfNext
Diffstat (limited to 'win')
-rw-r--r-- | win/tkWinMenu.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/win/tkWinMenu.c b/win/tkWinMenu.c index 3cf7c10..d6c011e 100644 --- a/win/tkWinMenu.c +++ b/win/tkWinMenu.c @@ -527,7 +527,7 @@ GetEntryText( if (*p == '&') { Tcl_DStringAppend(&itemString, "&", 1); } - next = Tcl_UtfNext(p); + next = TkUtfNext(p); Tcl_DStringAppend(&itemString, p, (int) (next - p)); } if (mePtr->accelLength > 0) { @@ -536,7 +536,7 @@ GetEntryText( if (*p == '&') { Tcl_DStringAppend(&itemString, "&", 1); } - next = Tcl_UtfNext(p); + next = TkUtfNext(p); Tcl_DStringAppend(&itemString, p, (int) (next - p)); } } @@ -1965,7 +1965,7 @@ DrawMenuUnderline( label = Tcl_GetString(mePtr->labelPtr); start = Tcl_UtfAtIndex(label, mePtr->underline); - end = Tcl_UtfNext(start); + end = TkUtfNext(start); Tk_UnderlineChars(menuPtr->display, d, gc, tkfont, label, x + mePtr->indicatorSpace, y + (height + fmPtr->ascent - fmPtr->descent) / 2, |