From 3db1ca0ae24e9cfa8986668b149c7f7b4492e6e3 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Wed, 3 Mar 2004 16:38:18 +0000
Subject: Fixes for perl/Tk 804

---
 generic/Text.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'generic/Text.c')

diff --git a/generic/Text.c b/generic/Text.c
index 5d82e69..b1725cc 100644
--- a/generic/Text.c
+++ b/generic/Text.c
@@ -1108,7 +1108,7 @@ Render(ZnItem	item)
   int		underline_thickness, underline_pos=0, overstrike_pos=0;
   int		sel_first_line=-1, sel_last_line=-1, cursor_line=-1;
   int		sel_start_offset=0, sel_stop_offset=0, cursor_offset=0;
-#ifndef PTK
+#ifndef PTK_800
   Tcl_Encoding	enc;
 #endif
 
@@ -1121,7 +1121,7 @@ Render(ZnItem	item)
       return;
     }
   }
-#ifndef PTK
+#ifndef PTK_800
   enc = ZnTexFontEncoding(text->tfi);
 #endif
 
@@ -1267,7 +1267,7 @@ Render(ZnItem	item)
 	glEnable(GL_TEXTURE_2D);
       }
 
-#ifndef PTK
+#ifndef PTK_800
       /*
        * Temporary ack to fix utf8 display.
        * the malloc should be done once for
@@ -1559,7 +1559,7 @@ PointToChar(TextItem	text,
       n = Tk_MeasureChars(text->font, ti->start, (int) ti->num_bytes,
 			  p.x + 2 - (int) ti->origin_x, TK_PARTIAL_OK,
 			  &dummy);
-#ifdef PTK
+#ifdef PTK_800
       byte_index = (ti->start + n - 1) - text->text;
 #else
       byte_index = Tcl_UtfPrev(ti->start + n, ti->start) - text->text;
-- 
cgit v1.1