Index: xotcl/generic/xotcl.h =================================================================== diff -u -r2846921e448d4d4aeb3245ebbfe4381182f0e286 -r1aa7246cc8e44078c9dbd33e03992478615f314f --- xotcl/generic/xotcl.h (.../xotcl.h) (revision 2846921e448d4d4aeb3245ebbfe4381182f0e286) +++ xotcl/generic/xotcl.h (.../xotcl.h) (revision 1aa7246cc8e44078c9dbd33e03992478615f314f) @@ -1,6 +1,6 @@ /* -*- Mode: c++ -*- * - * $Id: xotcl.h,v 1.10 2006/09/25 08:29:04 neumann Exp $ + * $Id: xotcl.h,v 1.11 2006/09/27 08:12:40 neumann Exp $ * * Extended Object Tcl (XOTcl) * @@ -125,7 +125,12 @@ #if TCL_MAJOR_VERSION==8 && TCL_MINOR_VERSION<4 # define PRE84 #endif +#if TCL_MAJOR_VERSION==8 && TCL_MINOR_VERSION<5 +# define PRE85 +#endif +#define XOTCL_NONLEAF_METHOD (ClientData)0x01 + /* * A special definition used to allow this header file to be included * in resource files so that they can get obtain version information from @@ -175,8 +180,8 @@ # ifdef __cplusplus extern "C" # endif -CONST char * -Xotcl_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, char *version, int exact)); +CONST char * +Xotcl_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, CONST char *version, int exact)); #else # define Xotcl_InitStubs(interp, version, exact) \ Tcl_PkgRequire(interp, "XOTcl", version, exact)