URL
https://opencores.org/ocsvn/or1k_old/or1k_old/trunk
Subversion Repositories or1k_old
[/] [or1k_old/] [trunk/] [insight/] [tix/] [generic/] [tixItcl.c] - Rev 578
Go to most recent revision | Compare with Previous | Blame | View Log
/* * tixItcl.c -- * * Compatibility functions 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 <tclInt.h> #include <tixInt.h> #include <tixItcl.h> #ifdef TK_8_0_OR_LATER /*---------------------------------------------------------------------- * TixItclSetGlobalNameSp -- * * Set the ITcl scope to the global scope. This way, all the Tix * commands and variables will be defined in the global scope. This * is necessary for Tix to function properly under ITcl. * *---------------------------------------------------------------------- */ int TixItclSetGlobalNameSp(nameSpPtr, interp) TixItclNameSp * nameSpPtr; Tcl_Interp * interp; { nameSpPtr->savedVarFramePtr = nameSpPtr->iPtr->varFramePtr; nameSpPtr->iPtr->varFramePtr = NULL; return 1; } /*---------------------------------------------------------------------- * TixItclRestoreGlobalNameSp -- * * Set the ITcl scope to the scope saved by TixItclSetGlobalNameSp. * *---------------------------------------------------------------------- */ void TixItclRestoreGlobalNameSp(nameSpPtr, interp) TixItclNameSp * nameSpPtr; Tcl_Interp * interp; { nameSpPtr->iPtr->varFramePtr = nameSpPtr->savedVarFramePtr; } #else #ifdef ITCL_2 /*---------------------------------------------------------------------- * TixItclSetGlobalNameSp -- * * Set the ITcl scope to the global scope. This way, all the Tix * commands and variables will be defined in the global scope. This * is necessary for Tix to function properly under ITcl. * *---------------------------------------------------------------------- */ int TixItclSetGlobalNameSp(nameSpPtr, interp) TixItclNameSp * nameSpPtr; Tcl_Interp * interp; { nameSpPtr->savedVarFramePtr = nameSpPtr->iPtr->varFramePtr; nameSpPtr->iPtr->varFramePtr = NULL; nameSpPtr->nsToken = Itcl_ActivateNamesp(interp, (Itcl_Namespace)(nameSpPtr->iPtr->globalNs)); if (nameSpPtr->nsToken == NULL) { return 0; } else { return 1; } } /*---------------------------------------------------------------------- * TixItclRestoreGlobalNameSp -- * * Set the ITcl scope to the scope saved by TixItclSetGlobalNameSp. * *---------------------------------------------------------------------- */ void TixItclRestoreGlobalNameSp(nameSpPtr, interp) TixItclNameSp * nameSpPtr; Tcl_Interp * interp; { if (nameSpPtr->nsToken != NULL) { Itcl_DeactivateNamesp(interp, nameSpPtr->nsToken); } nameSpPtr->iPtr->varFramePtr = nameSpPtr->savedVarFramePtr; } #else /* * Put a dummy symbol here -- some linkers do not like a .o file * with no code and symbols. */ EXTERN void TixItclDummy _ANSI_ARGS_((void)); void TixItclDummy() { } #endif /* #ifdef ITCL_2 */ #endif /* #ifdef TK_8_0_OR_LATER */
Go to most recent revision | Compare with Previous | Blame | View Log