diff options
Diffstat (limited to 'tk/mac/tkMacPort.h')
-rw-r--r-- | tk/mac/tkMacPort.h | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/tk/mac/tkMacPort.h b/tk/mac/tkMacPort.h index 739d311ec44..024dc8223c5 100644 --- a/tk/mac/tkMacPort.h +++ b/tk/mac/tkMacPort.h @@ -71,14 +71,14 @@ extern int errno; */ #ifndef panic /* In a stubs-aware setting, this could confuse the #define */ -extern void panic _ANSI_ARGS_(TCL_VARARGS(char *, string)); +EXTERN void panic _ANSI_ARGS_(TCL_VARARGS(char *, string)); #endif #ifndef strcasecmp -extern int strcasecmp _ANSI_ARGS_((CONST char *s1, +EXTERN int strcasecmp _ANSI_ARGS_((CONST char *s1, CONST char *s2)); #endif #ifndef strncasecmp -extern int strncasecmp _ANSI_ARGS_((CONST char *s1, +EXTERN int strncasecmp _ANSI_ARGS_((CONST char *s1, CONST char *s2, size_t n)); #endif /* @@ -120,17 +120,18 @@ extern int strncasecmp _ANSI_ARGS_((CONST char *s1, /* * This macro stores a representation of the window handle in a string. + * This should perhaps use the real size of an XID. */ #define TkpPrintWindowId(buf,w) \ sprintf((buf), "0x%x", (unsigned int) (w)) - + /* * TkpScanWindowId is just an alias for Tcl_GetInt on Unix. */ #define TkpScanWindowId(i,s,wp) \ - Tcl_GetInt((i),(s),(wp)) + Tcl_GetInt((i),(s),(int *)(wp)) /* * Magic pixel values for dynamic (or active) colors. @@ -149,6 +150,13 @@ extern int strncasecmp _ANSI_ARGS_((CONST char *s1, #define MENU_TEXT_PIXEL 51 #define APPEARANCE_PIXEL 52 -#endif /* _TKMACPORT */ +/* + * The following declaration is used to get access to a private Tcl interface + * that is needed for portability reasons. + */ +#ifndef _TCLINT +#include <tclInt.h> +#endif +#endif /* _TKMACPORT */ |