diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-01 13:03:07 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-01 13:03:07 (GMT) |
| commit | d7354274f34de595efa76a3ce4a5f3225ef176c4 (patch) | |
| tree | c7ae16d597ba5ebf9963fd9e49588de477447971 /generic/tkClipboard.c | |
| parent | 332a310b88f7e2df121be42967755bc600f2c1b2 (diff) | |
| download | tk-d7354274f34de595efa76a3ce4a5f3225ef176c4.zip tk-d7354274f34de595efa76a3ce4a5f3225ef176c4.tar.gz tk-d7354274f34de595efa76a3ce4a5f3225ef176c4.tar.bz2 | |
Eliminate compile warnings, due to the usage of Tcl_ExternalToUtfDString()/Tcl_UtfTExternalDString() macro's in Tcl 9.0
Diffstat (limited to 'generic/tkClipboard.c')
| -rw-r--r-- | generic/tkClipboard.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tkClipboard.c b/generic/tkClipboard.c index 1f4298d..2bf13ff 100644 --- a/generic/tkClipboard.c +++ b/generic/tkClipboard.c @@ -712,7 +712,7 @@ ClipboardGetProc( Tcl_Encoding utf8 = Tcl_GetEncoding(NULL, "utf-8"); Tcl_DString ds; - Tcl_ExternalToUtfDString(utf8, portion, -1, &ds); + Tcl_ExternalToUtfDStringEx(utf8, portion, -1, TCL_ENCODING_NOCOMPLAIN, &ds); Tcl_DStringAppend((Tcl_DString *) clientData, Tcl_DStringValue(&ds), Tcl_DStringLength(&ds)); Tcl_DStringFree(&ds); Tcl_FreeEncoding(utf8); |