diff options
author | lecoanet | 2004-07-28 14:40:08 +0000 |
---|---|---|
committer | lecoanet | 2004-07-28 14:40:08 +0000 |
commit | ec70c443da0e8a6627fb6d820a3bb7c9106b05a9 (patch) | |
tree | 6de1125c0b8b076dd4ece20cd0634edff7656637 /generic/Image.c | |
parent | 76717db63612de5e645bf00438656ccc6018f8e0 (diff) | |
download | tkzinc-ec70c443da0e8a6627fb6d820a3bb7c9106b05a9.zip tkzinc-ec70c443da0e8a6627fb6d820a3bb7c9106b05a9.tar.gz tkzinc-ec70c443da0e8a6627fb6d820a3bb7c9106b05a9.tar.bz2 tkzinc-ec70c443da0e8a6627fb6d820a3bb7c9106b05a9.tar.xz |
Fixed the font loading code when compiling for perl 800.
The error prevented the correct encoding of codes > 127.
Diffstat (limited to 'generic/Image.c')
-rw-r--r-- | generic/Image.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/Image.c b/generic/Image.c index a99dbb2..2c6639c 100644 --- a/generic/Image.c +++ b/generic/Image.c @@ -1146,7 +1146,7 @@ SuckGlyphsFromServer(ZnWInfo *wi, unsigned int numToGrab, glyph; ZnTexGVI *tgvip; Tk_FontMetrics fm; - CONST char *cur, *next; + CONST unsigned char *cur, *next; #ifndef PTK_800 Tcl_UniChar uni_ch; #endif |