1 files changed, 7 insertions, 0 deletions
diff --git a/generic/Types.h b/generic/Types.h
index f46a4a0..e044555 100644
--- a/generic/Types.h
+++ b/generic/Types.h
@@ -387,6 +387,13 @@ typedef struct {
 #define CLEAR(var, mask)	((var) &= ~(mask))
 #define ASSIGN(var, mask, bool)	((bool) ? SET((var), (mask)) : CLEAR((var), (mask)))
 
+/*
+ * Macros for Tk8.4/perl/Tk utf compatibility
+ */
+#ifdef PTK
+#define Tcl_NumUtfChars(str, len) ((len)<0?strlen(str):(len))
+#define Tcl_UtfAtIndex(str, index) (&(str)[(index)])
+#endif
 
 #ifdef __CPLUSPLUS__
 }