diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-16 09:37:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-16 09:37:12 (GMT) |
| commit | 2b27bfdd758f6c35adfaf96148424d06f51c9292 (patch) | |
| tree | 7465ca15ecd709c305220786dadca2fa2b2acc90 /generic/tkFont.c | |
| parent | d7f29e1ccf269fa5f4cb2cd8d02f35193ebc67be (diff) | |
| download | tk-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.c | 6 |
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); } |