Ticket #22536: blt-2.4z-tcl8.5-fix.patch
File blt-2.4z-tcl8.5-fix.patch, 1.1 KB (added by howarth@…, 15 years ago) |
---|
-
src/bltNsUtil.h
old new 46 46 #define TCL_NAMESPACE_ONLY TCL_GLOBAL_ONLY 47 47 #endif 48 48 49 49 /* 50 50 EXTERN Tcl_Command Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp *interp, 51 51 char *name, Tcl_Namespace *nsPtr, int flags)); 52 52 */ 53 53 #define NS_SEARCH_NONE (0) 54 54 #define NS_SEARCH_CURRENT (1<<0) 55 55 #define NS_SEARCH_GLOBAL (1<<1) … … 64 64 EXTERN Tcl_Namespace *Tcl_GetGlobalNamespace _ANSI_ARGS_((Tcl_Interp *interp)); 65 65 66 66 #if (TCL_MAJOR_VERSION >= 8) 67 /* 67 68 EXTERN Tcl_Namespace *Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp *interp, 68 69 char *name, ClientData clientData, Tcl_NamespaceDeleteProc *nsDelProc)); 69 70 */ 70 71 EXTERN void Tcl_DeleteNamespace _ANSI_ARGS_((Tcl_Namespace *nsPtr)); 71 72 /* 72 73 EXTERN Tcl_Namespace *Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp *interp, 73 74 char *name, Tcl_Namespace *context, int flags)); 74 75 75 76 EXTERN int Tcl_Export _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Namespace *nsPtr, 76 77 char *name, int resetFlag)); 77 78 */ 78 79 EXTERN Tcl_Var Tcl_FindNamespaceVar _ANSI_ARGS_((Tcl_Interp *interp, char *name, 79 80 Tcl_Namespace *contextNsPtr, int flags)); 80 81