From 14af846df5c01a8d5e6edc35e2ba6fa2e3011b56 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Mon, 5 Jun 2000 12:03:13 +0000
Subject: Passage en Tcl_Objs et compilation conditionnelle de GPC

---
 generic/tkZinc.h | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

(limited to 'generic/tkZinc.h')

diff --git a/generic/tkZinc.h b/generic/tkZinc.h
index 6aee547..5bc84e1 100644
--- a/generic/tkZinc.h
+++ b/generic/tkZinc.h
@@ -35,10 +35,24 @@
 #include "List.h"
 #include "MapInfo.h"
 
-
-int ZnItemsWithTagOrId(WidgetInfo *wi, char *tag_or_id, Item *item,
+#ifdef PTK
+Tcl_Obj *NewLongObj(long val);
+Tcl_Obj *NewBooleanObj(ZnBool val);
+Tcl_Obj *NewDoubleObj(ZnReal val);
+#else
+# define NewLongObj	Tcl_NewLongObj
+# define NewBooleanObj	Tcl_NewBooleanObj
+# define NewDoubleObj	Tcl_NewDoubleObj
+#endif
+Tcl_Obj *NewStringObj(char *val);
+void SetStringObj(Tcl_Obj *o, char *val);
+#if 1
+char *Tcl_GetString(Tcl_Obj *obj);
+#endif
+     
+int ZnItemsWithTagOrId(WidgetInfo *wi, Tcl_Obj *tag_or_id, Item *item,
 		       Item **item_list);
-int ParseCoordList(WidgetInfo *wi, Arg arg, ZnPoint **pts,
+int ParseCoordList(WidgetInfo *wi, Tcl_Obj *arg, ZnPoint **pts,
 		   int *num_pts);
 void DoItem(Tcl_Interp *interp, Item item, int part, Tk_Uid tag_uid);
 void ZnNeedRedisplay(WidgetInfo *wi);
-- 
cgit v1.1