diff options
| author | lecoanet | 2001-10-12 14:30:36 +0000 |
|---|---|---|
| committer | lecoanet | 2001-10-12 14:30:36 +0000 |
| commit | 7aa211a9febb24a260408082576cd25e820e8872 (patch) | |
| tree | 0e74a4116635bdcb8850404ef1b30221d91ff9d9 /generic/tkZinc.h | |
| parent | e56df0a5f5c1c6a36576827dddfe16b4a0c67001 (diff) | |
| download | tkzinc-7aa211a9febb24a260408082576cd25e820e8872.zip tkzinc-7aa211a9febb24a260408082576cd25e820e8872.tar.gz tkzinc-7aa211a9febb24a260408082576cd25e820e8872.tar.bz2 tkzinc-7aa211a9febb24a260408082576cd25e820e8872.tar.xz | |
Adaptation pour perl-tk 800.023
Diffstat (limited to 'generic/tkZinc.h')
| -rw-r--r-- | generic/tkZinc.h | 15 |
1 files changed, 4 insertions, 11 deletions
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); |