diff options
Diffstat (limited to 'unix')
| -rw-r--r-- | unix/tkUnixFont.c | 2 | ||||
| -rw-r--r-- | unix/tkUnixSelect.c | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/unix/tkUnixFont.c b/unix/tkUnixFont.c index c32518c..56d1797 100644 --- a/unix/tkUnixFont.c +++ b/unix/tkUnixFont.c @@ -1122,7 +1122,7 @@ Tk_MeasureChars( } else { lastSubFontPtr = FindSubFontForChar(fontPtr, ch, NULL); familyPtr = lastSubFontPtr->familyPtr; - Tcl_UtfToExternal(NULL, familyPtr->encoding, p, next - p, 0, NULL, + Tcl_UtfToExternal(NULL, familyPtr->encoding, p, next - p, TCL_ENCODING_PROFILE_TCL8, NULL, (char *)&buf[0].byte1, sizeof(buf), NULL, &dstWrote, NULL); if (familyPtr->isTwoByteFont) { newX += XTextWidth16(lastSubFontPtr->fontStructPtr, diff --git a/unix/tkUnixSelect.c b/unix/tkUnixSelect.c index 9b0437f..db9fa96 100644 --- a/unix/tkUnixSelect.c +++ b/unix/tkUnixSelect.c @@ -377,7 +377,7 @@ TkSelPropProc( * this is the first and/or last chunk. */ - encodingCvtFlags = 0; + encodingCvtFlags = TCL_ENCODING_PROFILE_TCL8; if (incrPtr->converts[i].offset == 0) { encodingCvtFlags |= TCL_ENCODING_START; } @@ -1226,8 +1226,8 @@ SelRcvIncrProc( while (1) { result = Tcl_ExternalToUtf(NULL, encoding, src, srcLen, - retrPtr->encFlags, &retrPtr->encState, - dst, dstLen, &srcRead, &dstWrote, NULL); + TCL_ENCODING_PROFILE_TCL8|retrPtr->encFlags, + &retrPtr->encState, dst, dstLen, &srcRead, &dstWrote, NULL); soFar = dst + dstWrote - Tcl_DStringValue(dstPtr); retrPtr->encFlags &= ~TCL_ENCODING_START; src += srcRead; |