From 39d3880bf41ba2da1843f9c6c032d938cdf5e108 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Mon, 17 Mar 2003 16:07:09 +0000
Subject: Tcl_GetString n'est pas definie en perl. Cette macro compense.

---
 generic/Types.h | 1 +
 1 file changed, 1 insertion(+)

(limited to 'generic')

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__
-- 
cgit v1.1