Import Tk 8.6.10
This commit is contained in:
@@ -208,7 +208,7 @@ TkpGetString(
|
||||
Tcl_DStringValue(&buf)[len] = '\0';
|
||||
|
||||
if (len == 1) {
|
||||
len = Tcl_UniCharToUtf((unsigned char) Tcl_DStringValue(&buf)[0],
|
||||
len = TkUniCharToUtf((unsigned char) Tcl_DStringValue(&buf)[0],
|
||||
Tcl_DStringValue(dsPtr));
|
||||
Tcl_DStringSetLength(dsPtr, len);
|
||||
} else {
|
||||
|
||||
Reference in New Issue
Block a user