Subversion Repositories or1k

/*
 * tixItcl.h --
 *
 *	Compatibility functions and macros that allow Tix to work
 *	under Incr Tcl.
 *
 * Copyright (c) 1996, Expert Interface Technologies
 *
 * See the file "license.terms" for information on usage and
 * redistribution of this file, and for a DISCLAIMER OF ALL
 * WARRANTIES.
 *
 */
 
/*
 * With Tcl 8.0, namespaces moved from Itcl to Tcl, and so
 * the Tix hacks have to be used in any verison of 8.0,
 * regardless of the presence of Itcl...
 */
 
#include "tix.h"
#ifdef TK_8_0_OR_LATER
 
#ifndef _TCLINT
#include <tclInt.h>
#endif
 
/*
 * Structure to store Tcl 8.0 name space information.
 */
 
typedef struct _TixItclNameSp {
    Interp *iPtr;
    CallFrame *savedVarFramePtr;
} TixItclNameSp;
 
#define DECLARE_ITCL_NAMESP(x,i) \
    TixItclNameSp x; \
    x.iPtr = (Interp*)(i);
 
EXTERN int		TixItclSetGlobalNameSp _ANSI_ARGS_((
			    TixItclNameSp * nameSpPtr, Tcl_Interp * interp));
EXTERN void		TixItclRestoreGlobalNameSp _ANSI_ARGS_((
			    TixItclNameSp * nameSpPtr, Tcl_Interp * interp));
 
#else
#ifdef ITCL_2
 
#ifndef _TCLINT
#include <tclInt.h>
#endif
/*
 * Structure to store ITcl name space information.
 */
typedef struct _TixItclNameSp {
    Interp *iPtr;
    CallFrame *savedVarFramePtr;
    Itcl_ActiveNamespace nsToken;
} TixItclNameSp;
 
#define DECLARE_ITCL_NAMESP(x,i) \
    TixItclNameSp x; \
    x.iPtr = (Interp*)(i); \
    x.nsToken = NULL;
 
EXTERN int		TixItclSetGlobalNameSp _ANSI_ARGS_((
			    TixItclNameSp * nameSpPtr, Tcl_Interp * interp));
EXTERN void		TixItclRestoreGlobalNameSp _ANSI_ARGS_((
			    TixItclNameSp * nameSpPtr, Tcl_Interp * interp));
 
#else
 
#define DECLARE_ITCL_NAMESP(x,i)
#define TixItclSetGlobalNameSp(a,b)     (1)
#define TixItclRestoreGlobalNameSp(a,b)
 
#endif /* ITCL_2 */
#endif /* TK_8_0_OR_LATER */