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/MapInfo.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'generic/MapInfo.c')

diff --git a/generic/MapInfo.c b/generic/MapInfo.c
index 268bd8a..91fc0b7 100644
--- a/generic/MapInfo.c
+++ b/generic/MapInfo.c
@@ -1619,7 +1619,7 @@ ZnMapInfoObjCmd(ClientData	client_data __unused,
   int		  index, index2, result;
   ZnMapInfoMaster *master;
   Tcl_Obj	  *l;
-#ifdef PTK
+#ifdef PTK_800
   static char *sub_cmd_strings[] =
 #else
   static CONST char *sub_cmd_strings[] =
@@ -1628,7 +1628,7 @@ ZnMapInfoObjCmd(ClientData	client_data __unused,
     "add", "count", "create", "delete", "duplicate",
     "get", "remove", "replace", "scale", "translate", NULL
   };
-#ifdef PTK
+#ifdef PTK_800
   static char *e_type_strings[] =
 #else
   static CONST char *e_type_strings[] =
@@ -2098,7 +2098,7 @@ ZnVideomapObjCmd(ClientData	client_data __unused,
   int		index;
   int		*id_array, id_num, i;
   Tcl_Obj	*l;
-#ifdef PTK
+#ifdef PTK_800
   static char *sub_cmd_strings[] =
 #else
   static CONST char *sub_cmd_strings[] =
-- 
cgit v1.1