diff options
author | lecoanet | 2003-03-17 16:07:09 +0000 |
---|---|---|
committer | lecoanet | 2003-03-17 16:07:09 +0000 |
commit | 39d3880bf41ba2da1843f9c6c032d938cdf5e108 (patch) | |
tree | 64125376d0ae34b8ea9941518229c6ffb3f00acd /generic | |
parent | 710bbeaadc5780b33cfd0eee03129e979bbe6279 (diff) | |
download | tkzinc-39d3880bf41ba2da1843f9c6c032d938cdf5e108.zip tkzinc-39d3880bf41ba2da1843f9c6c032d938cdf5e108.tar.gz tkzinc-39d3880bf41ba2da1843f9c6c032d938cdf5e108.tar.bz2 tkzinc-39d3880bf41ba2da1843f9c6c032d938cdf5e108.tar.xz |
Tcl_GetString n'est pas definie en perl. Cette macro compense.
Diffstat (limited to 'generic')
-rw-r--r-- | generic/Types.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/Types.h b/generic/Types.h index 7065c4e..41b1aff 100644 --- a/generic/Types.h +++ b/generic/Types.h @@ -394,6 +394,7 @@ typedef struct { #ifdef PTK #define Tcl_NumUtfChars(str, len) ((len)<0?strlen(str):(len)) #define Tcl_UtfAtIndex(str, index) (&(str)[(index)]) +#define Tcl_GetString(str) (Tcl_GetStringFromObj(str, NULL)) #endif #ifdef __CPLUSPLUS__ |