From ec70c443da0e8a6627fb6d820a3bb7c9106b05a9 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Wed, 28 Jul 2004 14:40:08 +0000
Subject: Fixed the font loading code when compiling for perl 800. The error
 prevented the correct encoding of codes > 127.

---
 generic/Image.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'generic')

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
-- 
cgit v1.1