From 7aa211a9febb24a260408082576cd25e820e8872 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 12 Oct 2001 14:30:36 +0000
Subject: Adaptation pour perl-tk 800.023

---
 generic/tkZinc.h | 15 ++++-----------
 1 file changed, 4 insertions(+), 11 deletions(-)

(limited to 'generic/tkZinc.h')

diff --git a/generic/tkZinc.h b/generic/tkZinc.h
index cd052be..acb4471 100644
--- a/generic/tkZinc.h
+++ b/generic/tkZinc.h
@@ -60,20 +60,13 @@ typedef struct _TagSearch {
   ZnList	item_stack;
 } TagSearch;
 
-#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
+#define NewLongObj	Tcl_NewLongObj
+#define NewBooleanObj	Tcl_NewBooleanObj
+#define NewDoubleObj	Tcl_NewDoubleObj
+
 Tcl_Obj *NewStringObj(char *val);
 void SetStringObj(Tcl_Obj *o, char *val);
-#if 1
 char *Tcl_GetString(Tcl_Obj *obj);
-#endif
      
 int ZnItemWithTagOrId(WidgetInfo *wi, Tcl_Obj *tag_or_id, Item group,
 		      ZnBool recursive, Item *item, TagSearch **search_var);
-- 
cgit v1.1