summaryrefslogtreecommitdiffstats
path: root/generic/tkFont.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2016-03-16 09:37:12 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2016-03-16 09:37:12 (GMT)
commit2b27bfdd758f6c35adfaf96148424d06f51c9292 (patch)
tree7465ca15ecd709c305220786dadca2fa2b2acc90 /generic/tkFont.c
parentd7f29e1ccf269fa5f4cb2cd8d02f35193ebc67be (diff)
downloadtk-2b27bfdd758f6c35adfaf96148424d06f51c9292.zip
tk-2b27bfdd758f6c35adfaf96148424d06f51c9292.tar.gz
tk-2b27bfdd758f6c35adfaf96148424d06f51c9292.tar.bz2
Make Tk compile warning-free against TIP-389-enabled Tcl 8.7. No change of functionality, since font-names generally don't contain out-of-BMP Unicode characters (if they do in the future, that still can be fixed then).
Diffstat (limited to 'generic/tkFont.c')
-rw-r--r--generic/tkFont.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tkFont.c b/generic/tkFont.c
index 102fc6e..1ffac16 100644
--- a/generic/tkFont.c
+++ b/generic/tkFont.c
@@ -497,7 +497,7 @@ Tk_FontObjCmd(
const char *s;
Tk_Font tkfont;
Tcl_Obj *optPtr, *charPtr, *resultPtr;
- Tcl_UniChar uniChar = 0;
+ int uniChar = 0;
const TkFontAttributes *faPtr;
TkFontAttributes fa;
@@ -1714,10 +1714,10 @@ Tk_PostscriptFontName(
}
src += Tcl_UtfToUniChar(src, &ch);
if (upper) {
- ch = Tcl_UniCharToUpper(ch);
+ ch = (Tcl_UniChar) Tcl_UniCharToUpper(ch);
upper = 0;
} else {
- ch = Tcl_UniCharToLower(ch);
+ ch = (Tcl_UniChar) Tcl_UniCharToLower(ch);
}
dest += Tcl_UniCharToUtf(ch, dest);
}