home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / site / Tk / pTk / tixItcl.h < prev    next >
Encoding:
C/C++ Source or Header  |  1997-08-10  |  1.1 KB  |  47 lines
  1. /*
  2.  * tixItcl.h --
  3.  *
  4.  *    Compatibility functions and macros that allow Tix to work
  5.  *    under Incr Tcl.
  6.  *
  7.  * Copyright (c) 1996, Expert Interface Technologies
  8.  *
  9.  * See the file "license.terms" for information on usage and
  10.  * redistribution of this file, and for a DISCLAIMER OF ALL
  11.  * WARRANTIES.
  12.  *
  13.  */
  14.  
  15. #ifdef ITCL_2
  16.  
  17. #ifndef _TCLINT
  18. #include <tclInt.h>
  19. #endif
  20. /*
  21.  * Structure to store ITcl name space information.
  22.  */
  23. typedef struct _TixItclNameSp {
  24.     Interp *iPtr;
  25.     CallFrame *savedVarFramePtr;
  26.     Itcl_ActiveNamespace nsToken;
  27. } TixItclNameSp;
  28.  
  29. #define DECLARE_ITCL_NAMESP(x,i) \
  30.     TixItclNameSp x; \
  31.     x.iPtr = (Interp*)(i); \
  32.     x.nsToken = NULL;
  33.  
  34. EXTERN int        TixItclSetGlobalNameSp _ANSI_ARGS_((
  35.                 TixItclNameSp * nameSpPtr, Tcl_Interp * interp));
  36. EXTERN void        TixItclRestoreGlobalNameSp _ANSI_ARGS_((
  37.                 TixItclNameSp * nameSpPtr, Tcl_Interp * interp));
  38.  
  39.  
  40. #else
  41.  
  42. #define DECLARE_ITCL_NAMESP(x,i)
  43. #define TixItclSetGlobalNameSp(a,b)     (1)
  44. #define TixItclRestoreGlobalNameSp(a,b)
  45.  
  46. #endif /* ITCL_2 */
  47.