diff options
author | Karl Berry <karl@freefriends.org> | 2016-04-05 22:27:26 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2016-04-05 22:27:26 +0000 |
commit | b56b320b5e2515160073fa1b469514002688fe11 (patch) | |
tree | 965a7100c5e45fca8ec803d22b8b6ce14fca4633 /Master/tlpkg/tlperl/lib/Tk/pTk | |
parent | d26c206452d2e285c3bbf949f34011e4a55fd8f9 (diff) |
tlperl 5.22.1 from siep
git-svn-id: svn://tug.org/texlive/trunk@40252 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/pTk')
118 files changed, 0 insertions, 43093 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/Lang.h b/Master/tlpkg/tlperl/lib/Tk/pTk/Lang.h deleted file mode 100644 index b09cede6bfb..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/Lang.h +++ /dev/null @@ -1,202 +0,0 @@ -#ifndef _LANG -#define _LANG - -#define STATIC_BUILD - - -#include "tkConfig.h" -#define TCL_NO_DEPRECATED - -#if !defined(WIN32) && defined(USE_XFT_FONTS) -#ifndef TCL_UTF_MAX -#define TCL_UTF_MAX 13 -#endif -#endif - -#define USE_TCLALLOC 1 -#define TCL_MEM_DEBUG -#define USE_COMPAT_CONST -#include "tcl.h" - -#if !defined(__GNUC__) && !defined(_AIX) -#ifdef __STDC__ -#ifndef STRINGIFY -#define STRINGIFY(x) STRINGIFY1(x) -#define STRINGIFY1(x) #x -#endif /* STRINGIFY */ -#define __FUNCTION__ __FILE__ ":" STRINGIFY(__LINE__) -#else /* STDC */ -#define __FUNCTION__ "" -#endif /* STDC */ -#endif /* GNUC or AIX */ - -EXTERN int Tcl_DStringLength _ANSI_ARGS_((Tcl_DString *dString)); -EXTERN char * Tcl_DStringValue _ANSI_ARGS_((Tcl_DString *dString)); - -EXTERN void Tcl_IncrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); -EXTERN void Tcl_DecrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); -EXTERN int Tcl_IsShared _ANSI_ARGS_((Tcl_Obj *objPtr)); - -EXTERN Tcl_ObjType * TclObjGetType _ANSI_ARGS_((Tcl_Obj *objPtr)); -EXTERN int TclObjLength _ANSI_ARGS_((Tcl_Obj *objPtr)); -EXTERN void TclObjSetType _ANSI_ARGS_((Tcl_Obj *objPtr,Tcl_ObjType *newType)); -EXTERN Tcl_InternalRep * TclObjInternal _ANSI_ARGS_((Tcl_Obj *objPtr)); - -#if defined(TCL_EVENT_IMPLEMENT) && !defined(Var) -#include "mTk/tclGeneric/tclInt.h" -#endif -#if !defined(TCL_EVENT_IMPLEMENT) || defined(Var) -#define _TCLINT -typedef void *TclHandle; -extern Tcl_ObjType tclIntType; -#endif - -#ifndef Var -#define Var Tcl_Obj * -#endif -#ifndef LangCallback -#define LangCallback Tcl_Obj -#endif -#define LangStringArg(x) Tcl_NewStringObj(x,-1) - -#define XFree_arg_t void - -EXTERN void LangSetString _ANSI_ARGS_((Tcl_Obj **,CONST char *)); -EXTERN void LangSetDefault _ANSI_ARGS_((Tcl_Obj **,CONST char *)); -EXTERN void LangSetInt _ANSI_ARGS_((Tcl_Obj **,int)); -EXTERN void LangSetDouble _ANSI_ARGS_((Tcl_Obj **,double)); -EXTERN void LangSetObj _ANSI_ARGS_((Tcl_Obj **,Tcl_Obj *)); -EXTERN void LangSetVar _ANSI_ARGS_((Tcl_Obj **,Var)); - -EXTERN int LangCmpArg _ANSI_ARGS_((CONST Tcl_Obj *,CONST Tcl_Obj *)); -EXTERN int LangCmpOpt _ANSI_ARGS_((CONST char *opt,CONST char *arg,size_t length)); - - -/* FIXME: - Tk will set freeProc as for Tcl e.g. NULL for statics & UIDs - and to "free" for Tcl_Merge etc. - Non Tk users *may* be able to use it as a guide, - but it is more likely that they will have to use - their own ref counts. - Perhaps Tcl_Merge should set freeProc and/or Tcl's - LangSetString() deliberately malloc() a copy of the string so we don't need - the freeProc -*/ -EXTERN void LangFreeArg _ANSI_ARGS_((Tcl_Obj *,Tcl_FreeProc *freeProc)); -EXTERN Tcl_Obj *LangCopyArg _ANSI_ARGS_((Tcl_Obj *)); - -EXTERN int LangNull _ANSI_ARGS_((Tcl_Obj *)); - -EXTERN void TclpGetTime _ANSI_ARGS_((Tcl_Time *time)); -EXTERN void TclpAsyncMark _ANSI_ARGS_((Tcl_AsyncHandler async)); - -EXTERN void Lang_SetErrorCode _ANSI_ARGS_((Tcl_Interp *interp,char *code)); -EXTERN char *Lang_GetErrorCode _ANSI_ARGS_((Tcl_Interp *interp)); -EXTERN char *Lang_GetErrorInfo _ANSI_ARGS_((Tcl_Interp *interp)); - -/* Old-config handler for variables */ -EXTERN int LangSaveVar _ANSI_ARGS_((Tcl_Interp *,Tcl_Obj *,Var *,int type)); -EXTERN void LangFreeVar _ANSI_ARGS_((Var)); - -/* New-config handler for objects, variables and callbacks */ -EXTERN int LangConfigObj _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj **save, - Tcl_Obj *obj, int type)); - -EXTERN int LangEventHook _ANSI_ARGS_((int flags)); -EXTERN void Lang_BuildInImages _ANSI_ARGS_((void)); -EXTERN void * TclCalloc _ANSI_ARGS_((size_t n,size_t s)); -EXTERN void LangDebug _ANSI_ARGS_((CONST char *fmt,...)); -EXTERN void LangDumpVec _ANSI_ARGS_((CONST char *tag, int argc, Tcl_Obj **vec)); - -EXTERN void Lang_DeleteObject _ANSI_ARGS_((Tcl_Interp *,Tcl_Command)); -EXTERN Tcl_Command Lang_CreateObject _ANSI_ARGS_((Tcl_Interp *interp, - char *cmdName, Tcl_ObjCmdProc *proc, - ClientData clientData, - Tcl_CmdDeleteProc *deleteProc)); - -EXTERN int Lang_CallWithArgs _ANSI_ARGS_ ((Tcl_Interp *interp, - char *sub, int argc, Tcl_Obj *CONST *argv)); - -EXTERN void Tcl_IntResults _ANSI_ARGS_((Tcl_Interp *interp,int,int,...)); -EXTERN void Tcl_DoubleResults _ANSI_ARGS_((Tcl_Interp *interp,int,int,...)); -EXTERN void Tcl_SprintfResult _ANSI_ARGS_((Tcl_Interp *,char *,...)); - - - -EXTERN int LangDoCallback _ANSI_ARGS_((Tcl_Interp *,LangCallback *,int result,int argc,...)); -EXTERN int LangMethodCall _ANSI_ARGS_((Tcl_Interp *,Tcl_Obj *,char *,int result,int argc,...)); - -EXTERN char *LangLibraryDir _ANSI_ARGS_((void)); -EXTERN void Lang_SetBinaryResult _ANSI_ARGS_((Tcl_Interp *interp, - char *string, int len, Tcl_FreeProc *freeProc)); -EXTERN Tcl_ObjCmdProc *LangOptionCommand; - -typedef char *(Lang_VarTraceProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, Tcl_Obj *part1, CONST char *part2, int flags)); - -EXTERN Tcl_Encoding Lang_CreateEncoding _ANSI_ARGS_(( - CONST char *encodingName, - Tcl_EncodingConvertProc *toUtfProc, - Tcl_EncodingConvertProc *fromUtfProc, - Tcl_EncodingFreeProc *freeProc, - ClientData clientData, - int nullSize)); - -EXTERN int Tcl_AfterObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); - - -EXTERN int Lang_TraceVar _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj *varRef, int flags, - Lang_VarTraceProc * proc, - ClientData clientData)); - -EXTERN void Lang_UntraceVar _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * varRef, int flags, - Lang_VarTraceProc * proc, - ClientData clientData)); - -EXTERN int Tk_PropertyCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj **objv)); - -struct TkFontAttributes; - -EXTERN unsigned int LangFontRank _ANSI_ARGS_((unsigned int suggested, - int ch, CONST char *gotName, - CONST char *wantFoundary, - CONST struct TkFontAttributes *wantAttrib, - CONST char *wantEncoding, - CONST char *gotFoundary, - CONST struct TkFontAttributes *gotAttrib, - CONST char *gotEncoding)); - -EXTERN void Lang_FreeRegExp _ANSI_ARGS_((Tcl_RegExp re)); - -EXTERN long Lang_OSHandle _ANSI_ARGS_((int fd)); -#define TK_LIBRARY LangLibraryDir() - -#ifdef WIN32 -#ifdef __BORLANDC__ -#pragma warn -par /* "parameter 'foo' is never used" */ -#pragma warn -aus /* "'foo' is assigned a value that is never used" */ -#pragma warn -use /* "'foo' is declared but never used" */ -#endif - -#ifdef _MSC_VER -#pragma warning(disable:4101 4102 4244 4018) -#pragma warning(disable:4133) /* init incompatible for xlib */ -#endif -#endif - -#ifndef RC_INVOKED -#include "tkEvent.h" -#if !defined(TCL_EVENT_IMPLEMENT) -#include "tkEvent.m" -#endif -#endif - -#endif /* _LANG */ - - - - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/Lang.m b/Master/tlpkg/tlperl/lib/Tk/pTk/Lang.m deleted file mode 100644 index a7a43aebd54..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/Lang.m +++ /dev/null @@ -1,192 +0,0 @@ -#ifndef _LANG_VM -#define _LANG_VM -#include "Lang_f.h" -#ifndef NO_VTABLES -#define LangOptionCommand (*LangVptr->V_LangOptionCommand) -#define tclIntType (*LangVptr->V_tclIntType) -#ifndef LangCmpArg -# define LangCmpArg (*LangVptr->V_LangCmpArg) -#endif - -#ifndef LangCmpOpt -# define LangCmpOpt (*LangVptr->V_LangCmpOpt) -#endif - -#ifndef LangConfigObj -# define LangConfigObj (*LangVptr->V_LangConfigObj) -#endif - -#ifndef LangCopyArg -# define LangCopyArg (*LangVptr->V_LangCopyArg) -#endif - -#ifndef LangDoCallback -# define LangDoCallback (*LangVptr->V_LangDoCallback) -#endif - -#ifndef LangDumpVec -# define LangDumpVec (*LangVptr->V_LangDumpVec) -#endif - -#ifndef LangEventHook -# define LangEventHook (*LangVptr->V_LangEventHook) -#endif - -#ifndef LangFontRank -# define LangFontRank (*LangVptr->V_LangFontRank) -#endif - -#ifndef LangFreeArg -# define LangFreeArg (*LangVptr->V_LangFreeArg) -#endif - -#ifndef LangFreeVar -# define LangFreeVar (*LangVptr->V_LangFreeVar) -#endif - -#ifndef LangLibraryDir -# define LangLibraryDir (*LangVptr->V_LangLibraryDir) -#endif - -#ifndef LangMethodCall -# define LangMethodCall (*LangVptr->V_LangMethodCall) -#endif - -#ifndef LangNull -# define LangNull (*LangVptr->V_LangNull) -#endif - -#ifndef LangSaveVar -# define LangSaveVar (*LangVptr->V_LangSaveVar) -#endif - -#ifndef LangSetDefault -# define LangSetDefault (*LangVptr->V_LangSetDefault) -#endif - -#ifndef LangSetDouble -# define LangSetDouble (*LangVptr->V_LangSetDouble) -#endif - -#ifndef LangSetInt -# define LangSetInt (*LangVptr->V_LangSetInt) -#endif - -#ifndef LangSetObj -# define LangSetObj (*LangVptr->V_LangSetObj) -#endif - -#ifndef LangSetString -# define LangSetString (*LangVptr->V_LangSetString) -#endif - -#ifndef LangSetVar -# define LangSetVar (*LangVptr->V_LangSetVar) -#endif - -#ifndef Lang_BuildInImages -# define Lang_BuildInImages (*LangVptr->V_Lang_BuildInImages) -#endif - -#ifndef Lang_CallWithArgs -# define Lang_CallWithArgs (*LangVptr->V_Lang_CallWithArgs) -#endif - -#ifndef Lang_CreateEncoding -# define Lang_CreateEncoding (*LangVptr->V_Lang_CreateEncoding) -#endif - -#ifndef Lang_CreateObject -# define Lang_CreateObject (*LangVptr->V_Lang_CreateObject) -#endif - -#ifndef Lang_DeleteObject -# define Lang_DeleteObject (*LangVptr->V_Lang_DeleteObject) -#endif - -#ifndef Lang_FreeRegExp -# define Lang_FreeRegExp (*LangVptr->V_Lang_FreeRegExp) -#endif - -#ifndef Lang_GetErrorCode -# define Lang_GetErrorCode (*LangVptr->V_Lang_GetErrorCode) -#endif - -#ifndef Lang_GetErrorInfo -# define Lang_GetErrorInfo (*LangVptr->V_Lang_GetErrorInfo) -#endif - -#ifndef Lang_SetBinaryResult -# define Lang_SetBinaryResult (*LangVptr->V_Lang_SetBinaryResult) -#endif - -#ifndef Lang_SetErrorCode -# define Lang_SetErrorCode (*LangVptr->V_Lang_SetErrorCode) -#endif - -#ifndef Lang_TraceVar -# define Lang_TraceVar (*LangVptr->V_Lang_TraceVar) -#endif - -#ifndef Lang_UntraceVar -# define Lang_UntraceVar (*LangVptr->V_Lang_UntraceVar) -#endif - -#ifndef TclObjGetType -# define TclObjGetType (*LangVptr->V_TclObjGetType) -#endif - -#ifndef TclObjInternal -# define TclObjInternal (*LangVptr->V_TclObjInternal) -#endif - -#ifndef TclObjLength -# define TclObjLength (*LangVptr->V_TclObjLength) -#endif - -#ifndef TclObjSetType -# define TclObjSetType (*LangVptr->V_TclObjSetType) -#endif - -#ifndef Tcl_AfterObjCmd -# define Tcl_AfterObjCmd (*LangVptr->V_Tcl_AfterObjCmd) -#endif - -#ifndef Tcl_DStringLength -# define Tcl_DStringLength (*LangVptr->V_Tcl_DStringLength) -#endif - -#ifndef Tcl_DStringValue -# define Tcl_DStringValue (*LangVptr->V_Tcl_DStringValue) -#endif - -#ifndef Tcl_DecrRefCount -# define Tcl_DecrRefCount (*LangVptr->V_Tcl_DecrRefCount) -#endif - -#ifndef Tcl_DoubleResults -# define Tcl_DoubleResults (*LangVptr->V_Tcl_DoubleResults) -#endif - -#ifndef Tcl_IncrRefCount -# define Tcl_IncrRefCount (*LangVptr->V_Tcl_IncrRefCount) -#endif - -#ifndef Tcl_IntResults -# define Tcl_IntResults (*LangVptr->V_Tcl_IntResults) -#endif - -#ifndef Tcl_IsShared -# define Tcl_IsShared (*LangVptr->V_Tcl_IsShared) -#endif - -#ifndef Tcl_SprintfResult -# define Tcl_SprintfResult (*LangVptr->V_Tcl_SprintfResult) -#endif - -#ifndef Tk_PropertyCmd -# define Tk_PropertyCmd (*LangVptr->V_Tk_PropertyCmd) -#endif - -#endif /* NO_VTABLES */ -#endif /* _LANG_VM */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/Lang.t b/Master/tlpkg/tlperl/lib/Tk/pTk/Lang.t deleted file mode 100644 index 030a20c1174..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/Lang.t +++ /dev/null @@ -1,217 +0,0 @@ -#ifdef _LANG -VVAR(Tcl_ObjCmdProc *,LangOptionCommand,V_LangOptionCommand) -#if !defined(TCL_EVENT_IMPLEMENT) || defined(Var) -VVAR(Tcl_ObjType,tclIntType,V_tclIntType) -#endif /* #if !defined(TCL_EVENT_IMPLEMENT) || defined(Var) */ -#ifndef LangCmpArg -VFUNC(int,LangCmpArg,V_LangCmpArg,_ANSI_ARGS_((CONST Tcl_Obj *,CONST Tcl_Obj *))) -#endif /* #ifndef LangCmpArg */ - -#ifndef LangCmpOpt -VFUNC(int,LangCmpOpt,V_LangCmpOpt,_ANSI_ARGS_((CONST char *opt,CONST char *arg,size_t length))) -#endif /* #ifndef LangCmpOpt */ - -#ifndef LangConfigObj -VFUNC(int,LangConfigObj,V_LangConfigObj,_ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj **save, - Tcl_Obj *obj, int type))) -#endif /* #ifndef LangConfigObj */ - -#ifndef LangCopyArg -VFUNC(Tcl_Obj *,LangCopyArg,V_LangCopyArg,_ANSI_ARGS_((Tcl_Obj *))) -#endif /* #ifndef LangCopyArg */ - -#ifndef LangDoCallback -VFUNC(int,LangDoCallback,V_LangDoCallback,_ANSI_ARGS_((Tcl_Interp *,LangCallback *,int result,int argc,...))) -#endif /* #ifndef LangDoCallback */ - -#ifndef LangDumpVec -VFUNC(void,LangDumpVec,V_LangDumpVec,_ANSI_ARGS_((CONST char *tag, int argc, Tcl_Obj **vec))) -#endif /* #ifndef LangDumpVec */ - -#ifndef LangEventHook -VFUNC(int,LangEventHook,V_LangEventHook,_ANSI_ARGS_((int flags))) -#endif /* #ifndef LangEventHook */ - -#ifndef LangFontRank -VFUNC(unsigned int,LangFontRank,V_LangFontRank,_ANSI_ARGS_((unsigned int suggested, - int ch, CONST char *gotName, - CONST char *wantFoundary, - CONST struct TkFontAttributes *wantAttrib, - CONST char *wantEncoding, - CONST char *gotFoundary, - CONST struct TkFontAttributes *gotAttrib, - CONST char *gotEncoding))) -#endif /* #ifndef LangFontRank */ - -#ifndef LangFreeArg -VFUNC(void,LangFreeArg,V_LangFreeArg,_ANSI_ARGS_((Tcl_Obj *,Tcl_FreeProc *freeProc))) -#endif /* #ifndef LangFreeArg */ - -#ifndef LangFreeVar -VFUNC(void,LangFreeVar,V_LangFreeVar,_ANSI_ARGS_((Var))) -#endif /* #ifndef LangFreeVar */ - -#ifndef LangLibraryDir -VFUNC(char *,LangLibraryDir,V_LangLibraryDir,_ANSI_ARGS_((void))) -#endif /* #ifndef LangLibraryDir */ - -#ifndef LangMethodCall -VFUNC(int,LangMethodCall,V_LangMethodCall,_ANSI_ARGS_((Tcl_Interp *,Tcl_Obj *,char *,int result,int argc,...))) -#endif /* #ifndef LangMethodCall */ - -#ifndef LangNull -VFUNC(int,LangNull,V_LangNull,_ANSI_ARGS_((Tcl_Obj *))) -#endif /* #ifndef LangNull */ - -#ifndef LangSaveVar -VFUNC(int,LangSaveVar,V_LangSaveVar,_ANSI_ARGS_((Tcl_Interp *,Tcl_Obj *,Var *,int type))) -#endif /* #ifndef LangSaveVar */ - -#ifndef LangSetDefault -VFUNC(void,LangSetDefault,V_LangSetDefault,_ANSI_ARGS_((Tcl_Obj **,CONST char *))) -#endif /* #ifndef LangSetDefault */ - -#ifndef LangSetDouble -VFUNC(void,LangSetDouble,V_LangSetDouble,_ANSI_ARGS_((Tcl_Obj **,double))) -#endif /* #ifndef LangSetDouble */ - -#ifndef LangSetInt -VFUNC(void,LangSetInt,V_LangSetInt,_ANSI_ARGS_((Tcl_Obj **,int))) -#endif /* #ifndef LangSetInt */ - -#ifndef LangSetObj -VFUNC(void,LangSetObj,V_LangSetObj,_ANSI_ARGS_((Tcl_Obj **,Tcl_Obj *))) -#endif /* #ifndef LangSetObj */ - -#ifndef LangSetString -VFUNC(void,LangSetString,V_LangSetString,_ANSI_ARGS_((Tcl_Obj **,CONST char *))) -#endif /* #ifndef LangSetString */ - -#ifndef LangSetVar -VFUNC(void,LangSetVar,V_LangSetVar,_ANSI_ARGS_((Tcl_Obj **,Var))) -#endif /* #ifndef LangSetVar */ - -#ifndef Lang_BuildInImages -VFUNC(void,Lang_BuildInImages,V_Lang_BuildInImages,_ANSI_ARGS_((void))) -#endif /* #ifndef Lang_BuildInImages */ - -#ifndef Lang_CallWithArgs -VFUNC(int,Lang_CallWithArgs,V_Lang_CallWithArgs,_ANSI_ARGS_((Tcl_Interp *interp, - char *sub, int argc, Tcl_Obj *CONST *argv))) -#endif /* #ifndef Lang_CallWithArgs */ - -#ifndef Lang_CreateEncoding -VFUNC(Tcl_Encoding,Lang_CreateEncoding,V_Lang_CreateEncoding,_ANSI_ARGS_(( - CONST char *encodingName, - Tcl_EncodingConvertProc *toUtfProc, - Tcl_EncodingConvertProc *fromUtfProc, - Tcl_EncodingFreeProc *freeProc, - ClientData clientData, - int nullSize))) -#endif /* #ifndef Lang_CreateEncoding */ - -#ifndef Lang_CreateObject -VFUNC(Tcl_Command,Lang_CreateObject,V_Lang_CreateObject,_ANSI_ARGS_((Tcl_Interp *interp, - char *cmdName, Tcl_ObjCmdProc *proc, - ClientData clientData, - Tcl_CmdDeleteProc *deleteProc))) -#endif /* #ifndef Lang_CreateObject */ - -#ifndef Lang_DeleteObject -VFUNC(void,Lang_DeleteObject,V_Lang_DeleteObject,_ANSI_ARGS_((Tcl_Interp *,Tcl_Command))) -#endif /* #ifndef Lang_DeleteObject */ - -#ifndef Lang_FreeRegExp -VFUNC(void,Lang_FreeRegExp,V_Lang_FreeRegExp,_ANSI_ARGS_((Tcl_RegExp re))) -#endif /* #ifndef Lang_FreeRegExp */ - -#ifndef Lang_GetErrorCode -VFUNC(char *,Lang_GetErrorCode,V_Lang_GetErrorCode,_ANSI_ARGS_((Tcl_Interp *interp))) -#endif /* #ifndef Lang_GetErrorCode */ - -#ifndef Lang_GetErrorInfo -VFUNC(char *,Lang_GetErrorInfo,V_Lang_GetErrorInfo,_ANSI_ARGS_((Tcl_Interp *interp))) -#endif /* #ifndef Lang_GetErrorInfo */ - -#ifndef Lang_SetBinaryResult -VFUNC(void,Lang_SetBinaryResult,V_Lang_SetBinaryResult,_ANSI_ARGS_((Tcl_Interp *interp, - char *string, int len, Tcl_FreeProc *freeProc))) -#endif /* #ifndef Lang_SetBinaryResult */ - -#ifndef Lang_SetErrorCode -VFUNC(void,Lang_SetErrorCode,V_Lang_SetErrorCode,_ANSI_ARGS_((Tcl_Interp *interp,char *code))) -#endif /* #ifndef Lang_SetErrorCode */ - -#ifndef Lang_TraceVar -VFUNC(int,Lang_TraceVar,V_Lang_TraceVar,_ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj *varRef, int flags, - Lang_VarTraceProc * proc, - ClientData clientData))) -#endif /* #ifndef Lang_TraceVar */ - -#ifndef Lang_UntraceVar -VFUNC(void,Lang_UntraceVar,V_Lang_UntraceVar,_ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * varRef, int flags, - Lang_VarTraceProc * proc, - ClientData clientData))) -#endif /* #ifndef Lang_UntraceVar */ - -#ifndef TclObjGetType -VFUNC(Tcl_ObjType *,TclObjGetType,V_TclObjGetType,_ANSI_ARGS_((Tcl_Obj *objPtr))) -#endif /* #ifndef TclObjGetType */ - -#ifndef TclObjInternal -VFUNC(Tcl_InternalRep *,TclObjInternal,V_TclObjInternal,_ANSI_ARGS_((Tcl_Obj *objPtr))) -#endif /* #ifndef TclObjInternal */ - -#ifndef TclObjLength -VFUNC(int,TclObjLength,V_TclObjLength,_ANSI_ARGS_((Tcl_Obj *objPtr))) -#endif /* #ifndef TclObjLength */ - -#ifndef TclObjSetType -VFUNC(void,TclObjSetType,V_TclObjSetType,_ANSI_ARGS_((Tcl_Obj *objPtr,Tcl_ObjType *newType))) -#endif /* #ifndef TclObjSetType */ - -#ifndef Tcl_AfterObjCmd -VFUNC(int,Tcl_AfterObjCmd,V_Tcl_AfterObjCmd,_ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]))) -#endif /* #ifndef Tcl_AfterObjCmd */ - -#ifndef Tcl_DStringLength -VFUNC(int,Tcl_DStringLength,V_Tcl_DStringLength,_ANSI_ARGS_((Tcl_DString *dString))) -#endif /* #ifndef Tcl_DStringLength */ - -#ifndef Tcl_DStringValue -VFUNC(char *,Tcl_DStringValue,V_Tcl_DStringValue,_ANSI_ARGS_((Tcl_DString *dString))) -#endif /* #ifndef Tcl_DStringValue */ - -#ifndef Tcl_DecrRefCount -VFUNC(void,Tcl_DecrRefCount,V_Tcl_DecrRefCount,_ANSI_ARGS_((Tcl_Obj *objPtr))) -#endif /* #ifndef Tcl_DecrRefCount */ - -#ifndef Tcl_DoubleResults -VFUNC(void,Tcl_DoubleResults,V_Tcl_DoubleResults,_ANSI_ARGS_((Tcl_Interp *interp,int,int,...))) -#endif /* #ifndef Tcl_DoubleResults */ - -#ifndef Tcl_IncrRefCount -VFUNC(void,Tcl_IncrRefCount,V_Tcl_IncrRefCount,_ANSI_ARGS_((Tcl_Obj *objPtr))) -#endif /* #ifndef Tcl_IncrRefCount */ - -#ifndef Tcl_IntResults -VFUNC(void,Tcl_IntResults,V_Tcl_IntResults,_ANSI_ARGS_((Tcl_Interp *interp,int,int,...))) -#endif /* #ifndef Tcl_IntResults */ - -#ifndef Tcl_IsShared -VFUNC(int,Tcl_IsShared,V_Tcl_IsShared,_ANSI_ARGS_((Tcl_Obj *objPtr))) -#endif /* #ifndef Tcl_IsShared */ - -#ifndef Tcl_SprintfResult -VFUNC(void,Tcl_SprintfResult,V_Tcl_SprintfResult,_ANSI_ARGS_((Tcl_Interp *,char *,...))) -#endif /* #ifndef Tcl_SprintfResult */ - -#ifndef Tk_PropertyCmd -VFUNC(int,Tk_PropertyCmd,V_Tk_PropertyCmd,_ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj **objv))) -#endif /* #ifndef Tk_PropertyCmd */ - -#endif /* _LANG */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/Lang_f.h b/Master/tlpkg/tlperl/lib/Tk/pTk/Lang_f.h deleted file mode 100644 index 37058e76411..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/Lang_f.h +++ /dev/null @@ -1,14 +0,0 @@ -#ifndef LANG_VT -#define LANG_VT -typedef struct LangVtab -{ - unsigned (*tabSize)(void); -#define VFUNC(type,name,mem,args) type (*mem) args; -#define VVAR(type,name,mem) type (*mem); -#include "Lang.t" -#undef VFUNC -#undef VVAR -} LangVtab; -extern LangVtab *LangVptr; -extern LangVtab *LangVGet(void); -#endif /* LANG_VT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/Tcl-pTk b/Master/tlpkg/tlperl/lib/Tk/pTk/Tcl-pTk deleted file mode 100644 index 424d69e5ec2..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/Tcl-pTk +++ /dev/null @@ -1,260 +0,0 @@ -#!/usr/bin/perl -w -use open IO => ':bytes'; # Avoid UTF-8 issues with some perl5.8.0 (RedHat) -use Carp; -my $verbose = 0; - -$SIG{'__WARN__'} = sub { print STDERR $_; Carp::confess(shift) }; - -$src = shift; -$dst = shift; - -die "Usage: $0 <src> <dst> \n" unless (defined $src and defined $dst); - -chmod(0666, $dst); -chmod(0666, "$dst~"); -unlink($dst); -open(DST,">$dst~") || die "Cannot open $dst~: $!"; -select(DST); - -my $copyright; - -@ARGV = ($src); - -undef $undone; - -sub getline -{ - local $_; - if (defined $undone) - { - $_ = $undone; - undef $undone; - } - else - { - $_ = <>; - } - return $_; -} - -sub int_results -{my $fmt = shift; - my $type = shift; - my @fmt = split(/\s+/,$fmt); - my $cnt = @fmt; - # print STDERR "'$fmt' => $cnt\n"; - return "Tcl_${type}Results(interp,$cnt,0"; -} - -sub result -{my ($interp,$value,$tail) = @_; - my $line = &getline; - my $kind = "TCL_STATIC"; - if (defined $line) - { - if ($line =~ /^\s*$interp\s*->\s*freeProc\s*=\s*(.*)\s*;\s*$/) - { - $kind = $1; - } - else - { - $undone = $line if (defined $line); - } - } - return "Tcl_SetResult($interp,$value,$kind)$tail"; -} - -sub complete -{ - my $tail = ""; - until (/;/) - { - my $line = &getline; - last unless defined($line); - s/\s*$//; - $line =~ s/^\s*//; - $_ .= " " . $line; - $tail .= "\n"; - } - $_ .= $tail; -} - -#use Carp; -#$SIG{'INT'} = sub { Carp::confess($_) }; - - -PROCESS: -while ($_ = &getline) - { - s/^\s*#\s*include\s*[<"]tcl\.h[">]\s*$/#include "Lang.h"\n/; - - s/^\s*#\s*include\s*<((tk|tkInt|tkPort|tix|tixInt)\.h)>\s*$/#include "$1"\n/; - - next if (/^\s*extern.*\bpanic\s*\(/); - - s/\(char\s*\*\)\s*NULL\b/ NULL/g; - - if (/^#(define|ifn?def|endif)\b/) - { - print; - while (/\\$/) - { - $_ = &getline; - print; - } - next; - } - - if (m#^ */\*# && !m#\*/#) - { - print; - while (!m#\*/#) - { - $_ = &getline; - print; - } - next; - } - - s/tclStubs\.t(\w+)/TkeventVptr->V_T$1/; - - s/\bpanic\b/Tcl_Panic/g; - - s/\b(\w+Ptr)->internalRep\./TclObjInternal($1)->/g; - - s/(\w+bjPtr)->typePtr\s*=\s*(.*);/TclObjSetType($1,$2);/g; - - s/\b(\w*bjPtr)->typePtr\b/TclObjGetType($1)/g; - - if (/if\s*\(\(c == '.'\)\s*$/) - { - my $line = &getline; - if (defined($line)) - { - s/\s*$//; - $line =~ s/^\s*//; - $_ .= " " . $line . "\n"; - } - } - - if (/Tcl_DeleteCommandFromToken/) - { - if (/Tcl_DeleteCommandFromToken[^;{]*$/) - { - &complete; - redo PROCESS; - } - s/Tcl_DeleteCommandFromToken(.*imageCmd)/Lang_DeleteObject$1/; - s/Tcl_DeleteCommandFromToken(.*widgetCmd)/Lang_DeleteWidget$1/; - } - - if (/Tcl_(Create|Delete)Command/) - { - if (/Tcl_(Create|Delete)Command[^;{]*$/) - { - &complete; - redo PROCESS; - } - s/Tcl_CreateCommand\s*\(\s*((\w+->)*interp)\s*,\s*Tk_PathName\s*\(([^\)]+)\)/Lang_CreateWidget($1,$3/; - s/Tcl_DeleteCommand\s*\(\s*((\w+->)*(\w+\.)?interp)\s*,\s*Tcl_GetCommandName\s*\([^,]+,\s*([^\)]+->(\w+\.style|image)Cmd)\)/Lang_DeleteObject($1,$4/; - s/Tcl_DeleteCommand\s*\(\s*((\w+->)*(\w+\.)?interp)\s*,\s*Tcl_GetCommandName\s*\([^,]+,\s*([^\)]+->widgetCmd)\)/Lang_DeleteWidget($1,$4/; - } - - s/\(char \*\*\)\s*objv\b/objv/g; - -# s/Tcl_Obj\s+\*(CONST\s+)?objv\b/Tcl_Obj *objv/; - if (/\bargv\w*\b/) - { - if (/\bargv\w*\s*\[([^[]*)\]\s*=[^=][^;{]*$/) - { - &complete; - redo PROCESS; - } - s/Tcl_Obj\s+\*(CONST\s+)?argv\b/Tcl_Obj *objv/; - if (/\bchar\b.*\bargv\w*\b/) - { - # convert char *argv[] to char **argv - s/char\s*\*\s*\bargv\s*\[\s*\]/char **argv/; - # convert char **argv to Tcl_Obj **objv - s/(CONST\s+)?char\s*\*\*\s*\bargv\b/Tcl_Obj *CONST *objv/; - # convert char *argv[n] to Tcl_Obj **objv = LangAllocVec(n) - s/char\s*\*\s*\bargv\s*\[\s*([^[]+)\]/Tcl_Obj **objv = LangAllocVec($1)/; - } - else - { - s/([^*])\*(argv\w*(\[[^[]*\])?)/${1}${2}[0]/g; - } - s/\(Tcl_Obj\s\*\)\s*argv\b/objv/g; - s/\bargv\s*\[([^[]*)\]\s*=([^=].*);\s*$/LangSetString(objv+$1,$2);\n/; - s/\bargv\s*\[([^[]*)\]\+\+/objv[$1] = Tcl_NewStringObj(Tcl_GetString(objv[$1])+1,-1)/; - s/\bargv\s*\[([^[]*)\]\+([0-9])/Tcl_NewStringObj(Tcl_GetString(objv[$1])+$2,-1)/; - if (/Tcl_Get(Boolean|Int|Double)/ || /Tk_Get(Cursor)/) - { - s/\bargv(\w*)\b/objv$1/g; - } - s/\bargv\s*(\[[^[]*\])/Tcl_GetString(objv$1)/g; - if (/\bargv\b/) - { - warn "Leak: $_" if ($verbose && !/\bargv\s*\)/); - s/\bargv\b/objv/; - } - } - if (/->\s*result\b/) - { - s/\s*->\s*result\b/->result/g; - - s/\bsprintf\s*\(\s*interp->result\s*,\s*"((\s*%d)+)"/&int_results($1,"Int")/e; - - s/\bsprintf\s*\(\s*interp->result\s*,\s*"((\s*%g)+)"/&int_results($1,"Double")/e; - - s/\bsprintf\s*\(\s*interp->result\b/Tcl_SprintfResult(interp/; - if (/\binterp->result\s*=[^;]*$/) - { - &complete; - redo PROCESS; - } - s/\b((\w+\s*->\s*)*interp)->result\s*=([^;]*);/&result($1,$3,";")/e; - s/\b((\w+\s*->\s*)*interp)->result\s*=(.*);\s*$/&result($1,$3,";\n")/e; - s/\b((\w+\s*->\s*)*interp)->result/Tcl_GetResult($1)/; - } - - if (/\bTcl_SetResult\s*\(/) - { - if (/Tcl_SetResult\s*\([^;{]*$/) - { - &complete; - redo PROCESS; - } - s/Tcl_SetResult\s*\(\s*((\w+->)*interp),\s*"(\d+)",\s*TCL_STATIC\s*\)/Tcl_SetObjResult($1, Tcl_NewIntObj($3))/; - s/Tcl_SetResult\s*\(\s*((\w+->)*interp),\s*Tk_PathName\(([^)]+)\),\s*TCL_STATIC\s*\)/Tcl_SetObjResult($1,LangWidgetObj($1,$3))/; - s/Tcl_SetResult\s*\(\s*((\w+->)*interp),\s*((\w+->)*\w+)->pathName\s*,\s*TCL_STATIC\s*\)/Tcl_SetObjResult($1,LangWidgetObj($1,(Tk_Window)($3)))/; - die $_ if /(Tk_PathName|->pathName)/; - } -# 1 2 3 4 5 6 - s/\(c == '(.)'\)\s*&&\s*(\(?)\(strncmp\(([^,]+),\s*("-\1[^"]*"),\s*(\w+|strlen\(\3\))\s*\)\s*==\s*0\)(\)?)/(c == '$1') && $2 LangCmpOpt($4,$3,$5) == 0 $6/g; - s/\(c == '(.)'\)\s*&&\s*\(strcmp\(([^,]+),\s*("-\1[^"]*")\s*\)\s*==\s*0\)/(c == '$1') && LangCmpOpt($3,$2,0) == 0/g; - - if (defined($copyright) && !/^\s\*\s*Copyright/) - { - print $copyright; - undef $copyright; - } - - s/[^\S\n]+$//; - print; - - if (0 && /^((\s\*)\s*)Copyright/) - { - $copyright = "$2\n$1Modifications Copyright (c) 1994-2003 Nick Ing-Simmons\n"; - } - } - -select(STDOUT); -close(DST) or die "While writing to $dst~: $!"; - -rename "$dst~", $dst or die "Could not rename $dst~ to $dst: $!"; - -chmod(0444,$dst); - -exit 0; - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/Xlib.h b/Master/tlpkg/tlperl/lib/Tk/pTk/Xlib.h deleted file mode 100644 index 6645407459b..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/Xlib.h +++ /dev/null @@ -1,151 +0,0 @@ -#ifndef _XLIB -#define _XLIB -#ifndef _XLIB_H_ -#ifndef _X11_XLIB_H_ -extern XFontStruct *XLoadQueryFont _ANSI_ARGS_((Display *, const char *)); -extern XModifierKeymap *XGetModifierMapping _ANSI_ARGS_((Display *)); -extern XImage *XCreateImage _ANSI_ARGS_((Display *, Visual *, unsigned int, int, int, char *, unsigned int, unsigned int, int, int)); -extern XImage *XGetImage _ANSI_ARGS_((Display *, Drawable, int, int, unsigned int, unsigned int, long unsigned int, int)); -extern Display *XOpenDisplay _ANSI_ARGS_((const char *)); -extern char *XGetAtomName _ANSI_ARGS_((Display *, Atom)); -extern char *XKeysymToString _ANSI_ARGS_((KeySym)); -extern Atom XInternAtom _ANSI_ARGS_((Display *, const char *, int)); -extern Colormap XCreateColormap _ANSI_ARGS_((Display *, Window, Visual *, int)); -extern Cursor XCreatePixmapCursor _ANSI_ARGS_((Display *, Pixmap, Pixmap, XColor *, XColor *, unsigned int, unsigned int)); -extern Cursor XCreateGlyphCursor _ANSI_ARGS_((Display *, Font, Font, unsigned int, unsigned int, XColor const *, XColor const *)); -extern Font XLoadFont _ANSI_ARGS_((Display *, const char *)); -extern GC XCreateGC _ANSI_ARGS_((Display *, Drawable, long unsigned int, XGCValues *)); -extern GContext XGContextFromGC _ANSI_ARGS_((GC)); -extern Pixmap XCreateBitmapFromData _ANSI_ARGS_((Display *, Drawable, const char *, unsigned int, unsigned int)); -extern Window XCreateWindow _ANSI_ARGS_((Display *, Window, int, int, unsigned int, unsigned int, unsigned int, int, unsigned int, Visual *, long unsigned int, XSetWindowAttributes *)); -extern Atom *XListProperties _ANSI_ARGS_((Display *, Window, int *)); -extern XHostAddress *XListHosts _ANSI_ARGS_((Display *, int *, int *)); -extern KeySym XKeycodeToKeysym _ANSI_ARGS_((Display *, unsigned int, int)); -extern KeySym XStringToKeysym _ANSI_ARGS_((const char *)); -extern VisualID XVisualIDFromVisual _ANSI_ARGS_((Visual *)); -extern Window XRootWindow _ANSI_ARGS_((Display *, int)); -extern Visual *XDefaultVisual _ANSI_ARGS_((Display *, int)); -extern Colormap XDefaultColormap _ANSI_ARGS_((Display *, int)); -extern XErrorHandler XSetErrorHandler _ANSI_ARGS_((XErrorHandler)); -extern int XIconifyWindow _ANSI_ARGS_((Display *, Window, int)); -extern int XWithdrawWindow _ANSI_ARGS_((Display *, Window, int)); -extern int XGetWMColormapWindows _ANSI_ARGS_((Display *, Window, Window **, int *)); -extern int XSetWMColormapWindows _ANSI_ARGS_((Display *, Window, Window *, int)); -extern int XSetTransientForHint _ANSI_ARGS_((Display *, Window, Window)); -extern int XAllocColor _ANSI_ARGS_((Display *, Colormap, XColor *)); -extern int XAllocNamedColor _ANSI_ARGS_((Display *, Colormap, const char *, XColor *, XColor *)); -extern int XBell _ANSI_ARGS_((Display *, int)); -extern int XChangeProperty _ANSI_ARGS_((Display *, Window, Atom, Atom, int, int, const unsigned char *, int)); -extern int XChangeWindowAttributes _ANSI_ARGS_((Display *, Window, long unsigned int, XSetWindowAttributes *)); -extern int XCheckIfEvent _ANSI_ARGS_((Display *, XEvent *, int (*) (Display *, XEvent *, char *), char *)); -extern int XCheckWindowEvent _ANSI_ARGS_((Display *, Window, long int, XEvent *)); -extern int XClearWindow _ANSI_ARGS_((Display *, Window)); -extern int XConfigureWindow _ANSI_ARGS_((Display *, Window, unsigned int, XWindowChanges *)); -extern int XConvertSelection _ANSI_ARGS_((Display *, Atom, Atom, Atom, Window, Time)); -extern int XCopyArea _ANSI_ARGS_((Display *, Drawable, Drawable, GC, int, int, unsigned int, unsigned int, int, int)); -extern int XCopyPlane _ANSI_ARGS_((Display *, Drawable, Drawable, GC, int, int, unsigned int, unsigned int, int, int, long unsigned int)); -extern int XDefaultDepth _ANSI_ARGS_((Display *, int)); -extern int XDefaultScreen _ANSI_ARGS_((Display *)); -extern int XDefineCursor _ANSI_ARGS_((Display *, Window, Cursor)); -extern int XDeleteProperty _ANSI_ARGS_((Display *, Window, Atom)); -extern int XDestroyWindow _ANSI_ARGS_((Display *, Window)); -extern int XDrawArc _ANSI_ARGS_((Display *, Drawable, GC, int, int, unsigned int, unsigned int, int, int)); -extern int XDrawLine _ANSI_ARGS_((Display *, Drawable, GC, int, int, int, int)); -extern int XDrawLines _ANSI_ARGS_((Display *, Drawable, GC, XPoint *, int, int)); -extern int XDrawRectangle _ANSI_ARGS_((Display *, Drawable, GC, int, int, unsigned int, unsigned int)); -extern int XDrawString _ANSI_ARGS_((Display *, Drawable, GC, int, int, const char *, int)); -extern int XEventsQueued _ANSI_ARGS_((Display *, int)); -extern int XFillArc _ANSI_ARGS_((Display *, Drawable, GC, int, int, unsigned int, unsigned int, int, int)); -extern int XFillPolygon _ANSI_ARGS_((Display *, Drawable, GC, XPoint *, int, int, int)); -extern int XFillRectangle _ANSI_ARGS_((Display *, Drawable, GC, int, int, unsigned int, unsigned int)); -extern int XFillRectangles _ANSI_ARGS_((Display *, Drawable, GC, XRectangle *, int)); -extern int XFlush _ANSI_ARGS_((Display *)); -extern int XFree _ANSI_ARGS_((XFree_arg_t *)); -extern int XFreeColormap _ANSI_ARGS_((Display *, Colormap)); -extern int XFreeColors _ANSI_ARGS_((Display *, Colormap, long unsigned int *, int, long unsigned int)); -extern int XFreeCursor _ANSI_ARGS_((Display *, Cursor)); -extern int XFreeFont _ANSI_ARGS_((Display *, XFontStruct *)); -extern int XFreeGC _ANSI_ARGS_((Display *, GC)); -extern int XFreeModifiermap _ANSI_ARGS_((XModifierKeymap *)); -extern int XGetFontProperty _ANSI_ARGS_((XFontStruct *, Atom, long unsigned int *)); -extern int XGetGeometry _ANSI_ARGS_((Display *, Drawable, Window *, int *, int *, unsigned int *, unsigned int *, unsigned int *, unsigned int *)); -extern int XGetInputFocus _ANSI_ARGS_((Display *, Window *, int *)); -extern int XGetWindowProperty _ANSI_ARGS_((Display *, Window, Atom, long int, long int, int, Atom, Atom *, int *, long unsigned int *, long unsigned int *, unsigned char **)); -extern int XGetWindowAttributes _ANSI_ARGS_((Display *, Window, XWindowAttributes *)); -extern int XGrabKeyboard _ANSI_ARGS_((Display *, Window, int, int, int, Time)); -extern int XGrabPointer _ANSI_ARGS_((Display *, Window, int, unsigned int, int, int, Window, Cursor, Time)); -extern int XGrabServer _ANSI_ARGS_((Display *)); -extern int XLookupColor _ANSI_ARGS_((Display *, Colormap, const char *, XColor *, XColor *)); -extern int XLowerWindow _ANSI_ARGS_((Display *, Window)); -extern int XMapWindow _ANSI_ARGS_((Display *, Window)); -extern int XMoveResizeWindow _ANSI_ARGS_((Display *, Window, int, int, unsigned int, unsigned int)); -extern int XMoveWindow _ANSI_ARGS_((Display *, Window, int, int)); -extern int XNextEvent _ANSI_ARGS_((Display *, XEvent *)); -extern int XNoOp _ANSI_ARGS_((Display *)); -extern int XParseColor _ANSI_ARGS_((Display *, Colormap, const char *, XColor *)); -extern int XPutBackEvent _ANSI_ARGS_((Display *, XEvent *)); -extern int XPutImage _ANSI_ARGS_((Display *, Drawable, GC, XImage *, int, int, int, int, unsigned int, unsigned int)); -extern int XQueryColors _ANSI_ARGS_((Display *, Colormap, XColor *, int)); -extern int XQueryPointer _ANSI_ARGS_((Display *, Window, Window *, Window *, int *, int *, int *, int *, unsigned int *)); -extern int XQueryTree _ANSI_ARGS_((Display *, Window, Window *, Window *, Window **, unsigned int *)); -extern int XRaiseWindow _ANSI_ARGS_((Display *, Window)); -extern int XReadBitmapFile _ANSI_ARGS_((Display *, Drawable, const char *, unsigned int *, unsigned int *, Pixmap *, int *, int *)); -extern int XRefreshKeyboardMapping _ANSI_ARGS_((XMappingEvent *)); -extern int XResizeWindow _ANSI_ARGS_((Display *, Window, unsigned int, unsigned int)); -extern int XSelectInput _ANSI_ARGS_((Display *, Window, long int)); -extern int XSendEvent _ANSI_ARGS_((Display *, Window, int, long int, XEvent *)); -extern int XSetClipMask _ANSI_ARGS_((Display *, GC, Pixmap)); -extern int XSetClipOrigin _ANSI_ARGS_((Display *, GC, int, int)); -extern int XSetCommand _ANSI_ARGS_((Display *, Window, char **, int)); -extern int XSetDashes _ANSI_ARGS_((Display *, GC, int, const char *, int)); -extern int XSetForeground _ANSI_ARGS_((Display *, GC, long unsigned int)); -extern int XSetIconName _ANSI_ARGS_((Display *, Window, const char *)); -extern int XSetInputFocus _ANSI_ARGS_((Display *, Window, int, Time)); -extern int XSetSelectionOwner _ANSI_ARGS_((Display *, Atom, Window, Time)); -extern int XSetTSOrigin _ANSI_ARGS_((Display *, GC, int, int)); -extern int XSetWindowBackground _ANSI_ARGS_((Display *, Window, long unsigned int)); -extern int XSetWindowBackgroundPixmap _ANSI_ARGS_((Display *, Window, Pixmap)); -extern int XSetWindowBorder _ANSI_ARGS_((Display *, Window, long unsigned int)); -extern int XSetWindowBorderPixmap _ANSI_ARGS_((Display *, Window, Pixmap)); -extern int XSetWindowBorderWidth _ANSI_ARGS_((Display *, Window, unsigned int)); -extern int XSetWindowColormap _ANSI_ARGS_((Display *, Window, Colormap)); -extern int XSync _ANSI_ARGS_((Display *, int)); -extern int XTextExtents _ANSI_ARGS_((XFontStruct *, const char *, int, int *, int *, int *, XCharStruct *)); -extern int XTextWidth _ANSI_ARGS_((XFontStruct *, const char *, int)); -extern int XTranslateCoordinates _ANSI_ARGS_((Display *, Window, Window, int, int, int *, int *, Window *)); -extern int XUngrabKeyboard _ANSI_ARGS_((Display *, Time)); -extern int XUngrabPointer _ANSI_ARGS_((Display *, Time)); -extern int XUngrabServer _ANSI_ARGS_((Display *)); -extern int XUnmapWindow _ANSI_ARGS_((Display *, Window)); -extern int XWindowEvent _ANSI_ARGS_((Display *, Window, long int, XEvent *)); -extern Region XCreateRegion _ANSI_ARGS_((void)); -extern XVisualInfo *XGetVisualInfo _ANSI_ARGS_((Display *, long int, XVisualInfo *, int *)); -extern XSizeHints *XAllocSizeHints _ANSI_ARGS_((void)); -extern XClassHint *XAllocClassHint _ANSI_ARGS_((void)); -extern void XSetWMNormalHints _ANSI_ARGS_((Display *, Window, XSizeHints *)); -extern void XSetWMName _ANSI_ARGS_((Display *, Window, XTextProperty *)); -extern void XSetWMClientMachine _ANSI_ARGS_((Display *, Window, XTextProperty *)); -extern int XStringListToTextProperty _ANSI_ARGS_((char **, int, XTextProperty *)); -extern int XClipBox _ANSI_ARGS_((Region, XRectangle *)); -extern int XDestroyRegion _ANSI_ARGS_((Region)); -extern int XIntersectRegion _ANSI_ARGS_((Region, Region, Region)); -extern int XLookupString _ANSI_ARGS_((XKeyEvent *, char *, int, KeySym *, XComposeStatus *)); -extern int XSetClassHint _ANSI_ARGS_((Display *, Window, XClassHint *)); -extern int XSetWMHints _ANSI_ARGS_((Display *, Window, XWMHints *)); -extern int XSetRegion _ANSI_ARGS_((Display *, GC, Region)); -extern int XUnionRectWithRegion _ANSI_ARGS_((XRectangle *, Region, Region)); -extern int XSetBackground _ANSI_ARGS_((Display *, GC, unsigned long)); -extern int XDrawImageString _ANSI_ARGS_((Display *, Drawable, GC, int, int, const char *, int)); -extern int XWarpPointer _ANSI_ARGS_(( Display *, Window, Window, int, int, unsigned int, unsigned int, int, int )); -extern int XDrawPoints _ANSI_ARGS_(( Display*, Drawable, GC, XPoint*, int, int)); -extern int XChangeGC _ANSI_ARGS_(( Display*, GC, unsigned long, XGCValues *)); -extern char **XListFonts _ANSI_ARGS_(( Display*, const char *, int, int *)); -extern int XFreeFontNames _ANSI_ARGS_((char **)); -extern Window XGetSelectionOwner _ANSI_ARGS_((Display *, Atom)); -extern int XRectInRegion _ANSI_ARGS_((Region,int,int,unsigned,unsigned)); -extern int XSubtractRegion _ANSI_ARGS_((Region, Region, Region)); -#endif /* _X11_XLIB_H_ */ -#endif /* _XLIB_H_ */ -extern int _XInitImageFuncPtrs _ANSI_ARGS_((XImage *image)); -#endif /* _XLIB */ - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/Xlib.m b/Master/tlpkg/tlperl/lib/Tk/pTk/Xlib.m deleted file mode 100644 index 81d863e3d63..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/Xlib.m +++ /dev/null @@ -1,661 +0,0 @@ -#ifndef _XLIB_VM -#define _XLIB_VM -#include "Xlib_f.h" -#ifndef NO_VTABLES -#if (defined(__WIN32__) || defined(__PM__)) && !defined(DO_X_EXCLUDE) -# define DO_X_EXCLUDE -#endif -#ifndef DO_X_EXCLUDE -#ifndef XAllocClassHint -# define XAllocClassHint (*XlibVptr->V_XAllocClassHint) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XAllocColor -# define XAllocColor (*XlibVptr->V_XAllocColor) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XAllocNamedColor -# define XAllocNamedColor (*XlibVptr->V_XAllocNamedColor) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XAllocSizeHints -# define XAllocSizeHints (*XlibVptr->V_XAllocSizeHints) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XBell -# define XBell (*XlibVptr->V_XBell) -#endif - -#ifndef XChangeGC -# define XChangeGC (*XlibVptr->V_XChangeGC) -#endif - -#ifndef XChangeProperty -# define XChangeProperty (*XlibVptr->V_XChangeProperty) -#endif - -#ifndef XChangeWindowAttributes -# define XChangeWindowAttributes (*XlibVptr->V_XChangeWindowAttributes) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XCheckIfEvent -# define XCheckIfEvent (*XlibVptr->V_XCheckIfEvent) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XCheckWindowEvent -# define XCheckWindowEvent (*XlibVptr->V_XCheckWindowEvent) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XClearWindow -# define XClearWindow (*XlibVptr->V_XClearWindow) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XClipBox -# define XClipBox (*XlibVptr->V_XClipBox) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XConfigureWindow -# define XConfigureWindow (*XlibVptr->V_XConfigureWindow) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XConvertSelection -# define XConvertSelection (*XlibVptr->V_XConvertSelection) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XCopyArea -# define XCopyArea (*XlibVptr->V_XCopyArea) -#endif - -#ifndef XCopyPlane -# define XCopyPlane (*XlibVptr->V_XCopyPlane) -#endif - -#ifndef XCreateBitmapFromData -# define XCreateBitmapFromData (*XlibVptr->V_XCreateBitmapFromData) -#endif - -#ifndef XCreateColormap -# define XCreateColormap (*XlibVptr->V_XCreateColormap) -#endif - -#ifndef XCreateGC -# define XCreateGC (*XlibVptr->V_XCreateGC) -#endif - -#ifndef XCreateGlyphCursor -# define XCreateGlyphCursor (*XlibVptr->V_XCreateGlyphCursor) -#endif - -#ifndef XCreateImage -# define XCreateImage (*XlibVptr->V_XCreateImage) -#endif - -#ifndef XCreatePixmapCursor -# define XCreatePixmapCursor (*XlibVptr->V_XCreatePixmapCursor) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XCreateRegion -# define XCreateRegion (*XlibVptr->V_XCreateRegion) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XCreateWindow -# define XCreateWindow (*XlibVptr->V_XCreateWindow) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XDefaultColormap -# define XDefaultColormap (*XlibVptr->V_XDefaultColormap) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XDefaultDepth -# define XDefaultDepth (*XlibVptr->V_XDefaultDepth) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XDefaultScreen -# define XDefaultScreen (*XlibVptr->V_XDefaultScreen) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XDefaultVisual -# define XDefaultVisual (*XlibVptr->V_XDefaultVisual) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XDefineCursor -# define XDefineCursor (*XlibVptr->V_XDefineCursor) -#endif - -#ifndef XDeleteProperty -# define XDeleteProperty (*XlibVptr->V_XDeleteProperty) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XDestroyRegion -# define XDestroyRegion (*XlibVptr->V_XDestroyRegion) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XDestroyWindow -# define XDestroyWindow (*XlibVptr->V_XDestroyWindow) -#endif - -#ifndef XDrawArc -# define XDrawArc (*XlibVptr->V_XDrawArc) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XDrawImageString -# define XDrawImageString (*XlibVptr->V_XDrawImageString) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XDrawLine -# define XDrawLine (*XlibVptr->V_XDrawLine) -#endif - -#ifndef XDrawLines -# define XDrawLines (*XlibVptr->V_XDrawLines) -#endif - -#ifndef XDrawPoints -# define XDrawPoints (*XlibVptr->V_XDrawPoints) -#endif - -#ifndef XDrawRectangle -# define XDrawRectangle (*XlibVptr->V_XDrawRectangle) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XDrawString -# define XDrawString (*XlibVptr->V_XDrawString) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XEventsQueued -# define XEventsQueued (*XlibVptr->V_XEventsQueued) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XFillArc -# define XFillArc (*XlibVptr->V_XFillArc) -#endif - -#ifndef XFillPolygon -# define XFillPolygon (*XlibVptr->V_XFillPolygon) -#endif - -#ifndef XFillRectangle -# define XFillRectangle (*XlibVptr->V_XFillRectangle) -#endif - -#ifndef XFillRectangles -# define XFillRectangles (*XlibVptr->V_XFillRectangles) -#endif - -#ifndef XFlush -# define XFlush (*XlibVptr->V_XFlush) -#endif - -#ifndef XFree -# define XFree (*XlibVptr->V_XFree) -#endif - -#ifndef XFreeColormap -# define XFreeColormap (*XlibVptr->V_XFreeColormap) -#endif - -#ifndef XFreeColors -# define XFreeColors (*XlibVptr->V_XFreeColors) -#endif - -#ifndef XFreeCursor -# define XFreeCursor (*XlibVptr->V_XFreeCursor) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XFreeFont -# define XFreeFont (*XlibVptr->V_XFreeFont) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XFreeFontNames -# define XFreeFontNames (*XlibVptr->V_XFreeFontNames) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XFreeGC -# define XFreeGC (*XlibVptr->V_XFreeGC) -#endif - -#ifndef XFreeModifiermap -# define XFreeModifiermap (*XlibVptr->V_XFreeModifiermap) -#endif - -#ifndef XGContextFromGC -# define XGContextFromGC (*XlibVptr->V_XGContextFromGC) -#endif - -#ifndef XGetAtomName -# define XGetAtomName (*XlibVptr->V_XGetAtomName) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XGetFontProperty -# define XGetFontProperty (*XlibVptr->V_XGetFontProperty) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XGetGeometry -# define XGetGeometry (*XlibVptr->V_XGetGeometry) -#endif - -#ifndef XGetImage -# define XGetImage (*XlibVptr->V_XGetImage) -#endif - -#ifndef XGetInputFocus -# define XGetInputFocus (*XlibVptr->V_XGetInputFocus) -#endif - -#ifndef XGetModifierMapping -# define XGetModifierMapping (*XlibVptr->V_XGetModifierMapping) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XGetSelectionOwner -# define XGetSelectionOwner (*XlibVptr->V_XGetSelectionOwner) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XGetVisualInfo -# define XGetVisualInfo (*XlibVptr->V_XGetVisualInfo) -#endif - -#ifndef XGetWMColormapWindows -# define XGetWMColormapWindows (*XlibVptr->V_XGetWMColormapWindows) -#endif - -#ifndef XGetWindowAttributes -# define XGetWindowAttributes (*XlibVptr->V_XGetWindowAttributes) -#endif - -#ifndef XGetWindowProperty -# define XGetWindowProperty (*XlibVptr->V_XGetWindowProperty) -#endif - -#ifndef XGrabKeyboard -# define XGrabKeyboard (*XlibVptr->V_XGrabKeyboard) -#endif - -#ifndef XGrabPointer -# define XGrabPointer (*XlibVptr->V_XGrabPointer) -#endif - -#ifndef XGrabServer -# define XGrabServer (*XlibVptr->V_XGrabServer) -#endif - -#ifndef XIconifyWindow -# define XIconifyWindow (*XlibVptr->V_XIconifyWindow) -#endif - -#ifndef XInternAtom -# define XInternAtom (*XlibVptr->V_XInternAtom) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XIntersectRegion -# define XIntersectRegion (*XlibVptr->V_XIntersectRegion) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XKeycodeToKeysym -# define XKeycodeToKeysym (*XlibVptr->V_XKeycodeToKeysym) -#endif - -#ifndef XKeysymToString -# define XKeysymToString (*XlibVptr->V_XKeysymToString) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XListFonts -# define XListFonts (*XlibVptr->V_XListFonts) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XListHosts -# define XListHosts (*XlibVptr->V_XListHosts) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XListProperties -# define XListProperties (*XlibVptr->V_XListProperties) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XLoadFont -# define XLoadFont (*XlibVptr->V_XLoadFont) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XLoadQueryFont -# define XLoadQueryFont (*XlibVptr->V_XLoadQueryFont) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XLookupColor -# define XLookupColor (*XlibVptr->V_XLookupColor) -#endif - -#ifndef XLookupString -# define XLookupString (*XlibVptr->V_XLookupString) -#endif - -#ifndef XLowerWindow -# define XLowerWindow (*XlibVptr->V_XLowerWindow) -#endif - -#ifndef XMapWindow -# define XMapWindow (*XlibVptr->V_XMapWindow) -#endif - -#ifndef XMoveResizeWindow -# define XMoveResizeWindow (*XlibVptr->V_XMoveResizeWindow) -#endif - -#ifndef XMoveWindow -# define XMoveWindow (*XlibVptr->V_XMoveWindow) -#endif - -#ifndef XNextEvent -# define XNextEvent (*XlibVptr->V_XNextEvent) -#endif - -#ifndef XNoOp -# define XNoOp (*XlibVptr->V_XNoOp) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XOpenDisplay -# define XOpenDisplay (*XlibVptr->V_XOpenDisplay) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XParseColor -# define XParseColor (*XlibVptr->V_XParseColor) -#endif - -#ifndef XPutBackEvent -# define XPutBackEvent (*XlibVptr->V_XPutBackEvent) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XPutImage -# define XPutImage (*XlibVptr->V_XPutImage) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XQueryColors -# define XQueryColors (*XlibVptr->V_XQueryColors) -#endif - -#ifndef XQueryPointer -# define XQueryPointer (*XlibVptr->V_XQueryPointer) -#endif - -#ifndef XQueryTree -# define XQueryTree (*XlibVptr->V_XQueryTree) -#endif - -#ifndef XRaiseWindow -# define XRaiseWindow (*XlibVptr->V_XRaiseWindow) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XReadBitmapFile -# define XReadBitmapFile (*XlibVptr->V_XReadBitmapFile) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XRectInRegion -# define XRectInRegion (*XlibVptr->V_XRectInRegion) -#endif - -#ifndef XRefreshKeyboardMapping -# define XRefreshKeyboardMapping (*XlibVptr->V_XRefreshKeyboardMapping) -#endif - -#ifndef XResizeWindow -# define XResizeWindow (*XlibVptr->V_XResizeWindow) -#endif - -#ifndef XRootWindow -# define XRootWindow (*XlibVptr->V_XRootWindow) -#endif - -#ifndef XSelectInput -# define XSelectInput (*XlibVptr->V_XSelectInput) -#endif - -#ifndef XSendEvent -# define XSendEvent (*XlibVptr->V_XSendEvent) -#endif - -#ifndef XSetBackground -# define XSetBackground (*XlibVptr->V_XSetBackground) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XSetClassHint -# define XSetClassHint (*XlibVptr->V_XSetClassHint) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XSetClipMask -# define XSetClipMask (*XlibVptr->V_XSetClipMask) -#endif - -#ifndef XSetClipOrigin -# define XSetClipOrigin (*XlibVptr->V_XSetClipOrigin) -#endif - -#ifndef XSetCommand -# define XSetCommand (*XlibVptr->V_XSetCommand) -#endif - -#ifndef XSetDashes -# define XSetDashes (*XlibVptr->V_XSetDashes) -#endif - -#ifndef XSetErrorHandler -# define XSetErrorHandler (*XlibVptr->V_XSetErrorHandler) -#endif - -#ifndef XSetForeground -# define XSetForeground (*XlibVptr->V_XSetForeground) -#endif - -#ifndef XSetIconName -# define XSetIconName (*XlibVptr->V_XSetIconName) -#endif - -#ifndef XSetInputFocus -# define XSetInputFocus (*XlibVptr->V_XSetInputFocus) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XSetRegion -# define XSetRegion (*XlibVptr->V_XSetRegion) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XSetSelectionOwner -# define XSetSelectionOwner (*XlibVptr->V_XSetSelectionOwner) -#endif - -#ifndef XSetTSOrigin -# define XSetTSOrigin (*XlibVptr->V_XSetTSOrigin) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XSetTransientForHint -# define XSetTransientForHint (*XlibVptr->V_XSetTransientForHint) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XSetWMClientMachine -# define XSetWMClientMachine (*XlibVptr->V_XSetWMClientMachine) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XSetWMColormapWindows -# define XSetWMColormapWindows (*XlibVptr->V_XSetWMColormapWindows) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XSetWMHints -# define XSetWMHints (*XlibVptr->V_XSetWMHints) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XSetWMName -# define XSetWMName (*XlibVptr->V_XSetWMName) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XSetWMNormalHints -# define XSetWMNormalHints (*XlibVptr->V_XSetWMNormalHints) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XSetWindowBackground -# define XSetWindowBackground (*XlibVptr->V_XSetWindowBackground) -#endif - -#ifndef XSetWindowBackgroundPixmap -# define XSetWindowBackgroundPixmap (*XlibVptr->V_XSetWindowBackgroundPixmap) -#endif - -#ifndef XSetWindowBorder -# define XSetWindowBorder (*XlibVptr->V_XSetWindowBorder) -#endif - -#ifndef XSetWindowBorderPixmap -# define XSetWindowBorderPixmap (*XlibVptr->V_XSetWindowBorderPixmap) -#endif - -#ifndef XSetWindowBorderWidth -# define XSetWindowBorderWidth (*XlibVptr->V_XSetWindowBorderWidth) -#endif - -#ifndef XSetWindowColormap -# define XSetWindowColormap (*XlibVptr->V_XSetWindowColormap) -#endif - -#ifndef XStringListToTextProperty -# define XStringListToTextProperty (*XlibVptr->V_XStringListToTextProperty) -#endif - -#ifndef XStringToKeysym -# define XStringToKeysym (*XlibVptr->V_XStringToKeysym) -#endif - -#ifndef XSubtractRegion -# define XSubtractRegion (*XlibVptr->V_XSubtractRegion) -#endif - -#ifndef XSync -# define XSync (*XlibVptr->V_XSync) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XTextExtents -# define XTextExtents (*XlibVptr->V_XTextExtents) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XTextWidth -# define XTextWidth (*XlibVptr->V_XTextWidth) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XTranslateCoordinates -# define XTranslateCoordinates (*XlibVptr->V_XTranslateCoordinates) -#endif - -#ifndef XUngrabKeyboard -# define XUngrabKeyboard (*XlibVptr->V_XUngrabKeyboard) -#endif - -#ifndef XUngrabPointer -# define XUngrabPointer (*XlibVptr->V_XUngrabPointer) -#endif - -#ifndef XUngrabServer -# define XUngrabServer (*XlibVptr->V_XUngrabServer) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XUnionRectWithRegion -# define XUnionRectWithRegion (*XlibVptr->V_XUnionRectWithRegion) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XUnmapWindow -# define XUnmapWindow (*XlibVptr->V_XUnmapWindow) -#endif - -#ifndef XVisualIDFromVisual -# define XVisualIDFromVisual (*XlibVptr->V_XVisualIDFromVisual) -#endif - -#ifndef DO_X_EXCLUDE -#ifndef XWarpPointer -# define XWarpPointer (*XlibVptr->V_XWarpPointer) -#endif -#endif /* !DO_X_EXCLUDE */ - -#ifndef XWindowEvent -# define XWindowEvent (*XlibVptr->V_XWindowEvent) -#endif - -#ifndef XWithdrawWindow -# define XWithdrawWindow (*XlibVptr->V_XWithdrawWindow) -#endif - -#ifndef _XInitImageFuncPtrs -# define _XInitImageFuncPtrs (*XlibVptr->V__XInitImageFuncPtrs) -#endif - -#endif /* NO_VTABLES */ -#endif /* _XLIB_VM */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/Xlib.t b/Master/tlpkg/tlperl/lib/Tk/pTk/Xlib.t deleted file mode 100644 index a193fc5e3ee..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/Xlib.t +++ /dev/null @@ -1,657 +0,0 @@ -#ifdef _XLIB -#if (defined(__WIN32__) || defined(__PM__)) && !defined(DO_X_EXCLUDE) -# define DO_X_EXCLUDE -#endif -#ifndef DO_X_EXCLUDE -#ifndef XAllocClassHint -VFUNC(XClassHint *,XAllocClassHint,V_XAllocClassHint,_ANSI_ARGS_((void))) -#endif /* #ifndef XAllocClassHint */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XAllocColor -VFUNC(int,XAllocColor,V_XAllocColor,_ANSI_ARGS_((Display *, Colormap, XColor *))) -#endif /* #ifndef XAllocColor */ - -#ifndef DO_X_EXCLUDE -#ifndef XAllocNamedColor -VFUNC(int,XAllocNamedColor,V_XAllocNamedColor,_ANSI_ARGS_((Display *, Colormap, const char *, XColor *, XColor *))) -#endif /* #ifndef XAllocNamedColor */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XAllocSizeHints -VFUNC(XSizeHints *,XAllocSizeHints,V_XAllocSizeHints,_ANSI_ARGS_((void))) -#endif /* #ifndef XAllocSizeHints */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XBell -VFUNC(int,XBell,V_XBell,_ANSI_ARGS_((Display *, int))) -#endif /* #ifndef XBell */ - -#ifndef XChangeGC -VFUNC(int,XChangeGC,V_XChangeGC,_ANSI_ARGS_(( Display*, GC, unsigned long, XGCValues *))) -#endif /* #ifndef XChangeGC */ - -#ifndef XChangeProperty -VFUNC(int,XChangeProperty,V_XChangeProperty,_ANSI_ARGS_((Display *, Window, Atom, Atom, int, int, const unsigned char *, int))) -#endif /* #ifndef XChangeProperty */ - -#ifndef XChangeWindowAttributes -VFUNC(int,XChangeWindowAttributes,V_XChangeWindowAttributes,_ANSI_ARGS_((Display *, Window, long unsigned int, XSetWindowAttributes *))) -#endif /* #ifndef XChangeWindowAttributes */ - -#ifndef DO_X_EXCLUDE -#ifndef XCheckIfEvent -VFUNC(int,XCheckIfEvent,V_XCheckIfEvent,_ANSI_ARGS_((Display *, XEvent *, int (*) (Display *, XEvent *, char *), char *))) -#endif /* #ifndef XCheckIfEvent */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XCheckWindowEvent -VFUNC(int,XCheckWindowEvent,V_XCheckWindowEvent,_ANSI_ARGS_((Display *, Window, long int, XEvent *))) -#endif /* #ifndef XCheckWindowEvent */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XClearWindow -VFUNC(int,XClearWindow,V_XClearWindow,_ANSI_ARGS_((Display *, Window))) -#endif /* #ifndef XClearWindow */ - -#ifndef DO_X_EXCLUDE -#ifndef XClipBox -VFUNC(int,XClipBox,V_XClipBox,_ANSI_ARGS_((Region, XRectangle *))) -#endif /* #ifndef XClipBox */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XConfigureWindow -VFUNC(int,XConfigureWindow,V_XConfigureWindow,_ANSI_ARGS_((Display *, Window, unsigned int, XWindowChanges *))) -#endif /* #ifndef XConfigureWindow */ - -#ifndef DO_X_EXCLUDE -#ifndef XConvertSelection -VFUNC(int,XConvertSelection,V_XConvertSelection,_ANSI_ARGS_((Display *, Atom, Atom, Atom, Window, Time))) -#endif /* #ifndef XConvertSelection */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XCopyArea -VFUNC(int,XCopyArea,V_XCopyArea,_ANSI_ARGS_((Display *, Drawable, Drawable, GC, int, int, unsigned int, unsigned int, int, int))) -#endif /* #ifndef XCopyArea */ - -#ifndef XCopyPlane -VFUNC(int,XCopyPlane,V_XCopyPlane,_ANSI_ARGS_((Display *, Drawable, Drawable, GC, int, int, unsigned int, unsigned int, int, int, long unsigned int))) -#endif /* #ifndef XCopyPlane */ - -#ifndef XCreateBitmapFromData -VFUNC(Pixmap,XCreateBitmapFromData,V_XCreateBitmapFromData,_ANSI_ARGS_((Display *, Drawable, const char *, unsigned int, unsigned int))) -#endif /* #ifndef XCreateBitmapFromData */ - -#ifndef XCreateColormap -VFUNC(Colormap,XCreateColormap,V_XCreateColormap,_ANSI_ARGS_((Display *, Window, Visual *, int))) -#endif /* #ifndef XCreateColormap */ - -#ifndef XCreateGC -VFUNC(GC,XCreateGC,V_XCreateGC,_ANSI_ARGS_((Display *, Drawable, long unsigned int, XGCValues *))) -#endif /* #ifndef XCreateGC */ - -#ifndef XCreateGlyphCursor -VFUNC(Cursor,XCreateGlyphCursor,V_XCreateGlyphCursor,_ANSI_ARGS_((Display *, Font, Font, unsigned int, unsigned int, XColor const *, XColor const *))) -#endif /* #ifndef XCreateGlyphCursor */ - -#ifndef XCreateImage -VFUNC(XImage *,XCreateImage,V_XCreateImage,_ANSI_ARGS_((Display *, Visual *, unsigned int, int, int, char *, unsigned int, unsigned int, int, int))) -#endif /* #ifndef XCreateImage */ - -#ifndef XCreatePixmapCursor -VFUNC(Cursor,XCreatePixmapCursor,V_XCreatePixmapCursor,_ANSI_ARGS_((Display *, Pixmap, Pixmap, XColor *, XColor *, unsigned int, unsigned int))) -#endif /* #ifndef XCreatePixmapCursor */ - -#ifndef DO_X_EXCLUDE -#ifndef XCreateRegion -VFUNC(Region,XCreateRegion,V_XCreateRegion,_ANSI_ARGS_((void))) -#endif /* #ifndef XCreateRegion */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XCreateWindow -VFUNC(Window,XCreateWindow,V_XCreateWindow,_ANSI_ARGS_((Display *, Window, int, int, unsigned int, unsigned int, unsigned int, int, unsigned int, Visual *, long unsigned int, XSetWindowAttributes *))) -#endif /* #ifndef XCreateWindow */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XDefaultColormap -VFUNC(Colormap,XDefaultColormap,V_XDefaultColormap,_ANSI_ARGS_((Display *, int))) -#endif /* #ifndef XDefaultColormap */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XDefaultDepth -VFUNC(int,XDefaultDepth,V_XDefaultDepth,_ANSI_ARGS_((Display *, int))) -#endif /* #ifndef XDefaultDepth */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XDefaultScreen -VFUNC(int,XDefaultScreen,V_XDefaultScreen,_ANSI_ARGS_((Display *))) -#endif /* #ifndef XDefaultScreen */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XDefaultVisual -VFUNC(Visual *,XDefaultVisual,V_XDefaultVisual,_ANSI_ARGS_((Display *, int))) -#endif /* #ifndef XDefaultVisual */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XDefineCursor -VFUNC(int,XDefineCursor,V_XDefineCursor,_ANSI_ARGS_((Display *, Window, Cursor))) -#endif /* #ifndef XDefineCursor */ - -#ifndef XDeleteProperty -VFUNC(int,XDeleteProperty,V_XDeleteProperty,_ANSI_ARGS_((Display *, Window, Atom))) -#endif /* #ifndef XDeleteProperty */ - -#ifndef DO_X_EXCLUDE -#ifndef XDestroyRegion -VFUNC(int,XDestroyRegion,V_XDestroyRegion,_ANSI_ARGS_((Region))) -#endif /* #ifndef XDestroyRegion */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XDestroyWindow -VFUNC(int,XDestroyWindow,V_XDestroyWindow,_ANSI_ARGS_((Display *, Window))) -#endif /* #ifndef XDestroyWindow */ - -#ifndef XDrawArc -VFUNC(int,XDrawArc,V_XDrawArc,_ANSI_ARGS_((Display *, Drawable, GC, int, int, unsigned int, unsigned int, int, int))) -#endif /* #ifndef XDrawArc */ - -#ifndef DO_X_EXCLUDE -#ifndef XDrawImageString -VFUNC(int,XDrawImageString,V_XDrawImageString,_ANSI_ARGS_((Display *, Drawable, GC, int, int, const char *, int))) -#endif /* #ifndef XDrawImageString */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XDrawLine -VFUNC(int,XDrawLine,V_XDrawLine,_ANSI_ARGS_((Display *, Drawable, GC, int, int, int, int))) -#endif /* #ifndef XDrawLine */ - -#ifndef XDrawLines -VFUNC(int,XDrawLines,V_XDrawLines,_ANSI_ARGS_((Display *, Drawable, GC, XPoint *, int, int))) -#endif /* #ifndef XDrawLines */ - -#ifndef XDrawPoints -VFUNC(int,XDrawPoints,V_XDrawPoints,_ANSI_ARGS_(( Display*, Drawable, GC, XPoint*, int, int))) -#endif /* #ifndef XDrawPoints */ - -#ifndef XDrawRectangle -VFUNC(int,XDrawRectangle,V_XDrawRectangle,_ANSI_ARGS_((Display *, Drawable, GC, int, int, unsigned int, unsigned int))) -#endif /* #ifndef XDrawRectangle */ - -#ifndef DO_X_EXCLUDE -#ifndef XDrawString -VFUNC(int,XDrawString,V_XDrawString,_ANSI_ARGS_((Display *, Drawable, GC, int, int, const char *, int))) -#endif /* #ifndef XDrawString */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XEventsQueued -VFUNC(int,XEventsQueued,V_XEventsQueued,_ANSI_ARGS_((Display *, int))) -#endif /* #ifndef XEventsQueued */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XFillArc -VFUNC(int,XFillArc,V_XFillArc,_ANSI_ARGS_((Display *, Drawable, GC, int, int, unsigned int, unsigned int, int, int))) -#endif /* #ifndef XFillArc */ - -#ifndef XFillPolygon -VFUNC(int,XFillPolygon,V_XFillPolygon,_ANSI_ARGS_((Display *, Drawable, GC, XPoint *, int, int, int))) -#endif /* #ifndef XFillPolygon */ - -#ifndef XFillRectangle -VFUNC(int,XFillRectangle,V_XFillRectangle,_ANSI_ARGS_((Display *, Drawable, GC, int, int, unsigned int, unsigned int))) -#endif /* #ifndef XFillRectangle */ - -#ifndef XFillRectangles -VFUNC(int,XFillRectangles,V_XFillRectangles,_ANSI_ARGS_((Display *, Drawable, GC, XRectangle *, int))) -#endif /* #ifndef XFillRectangles */ - -#ifndef XFlush -VFUNC(int,XFlush,V_XFlush,_ANSI_ARGS_((Display *))) -#endif /* #ifndef XFlush */ - -#ifndef XFree -VFUNC(int,XFree,V_XFree,_ANSI_ARGS_((XFree_arg_t *))) -#endif /* #ifndef XFree */ - -#ifndef XFreeColormap -VFUNC(int,XFreeColormap,V_XFreeColormap,_ANSI_ARGS_((Display *, Colormap))) -#endif /* #ifndef XFreeColormap */ - -#ifndef XFreeColors -VFUNC(int,XFreeColors,V_XFreeColors,_ANSI_ARGS_((Display *, Colormap, long unsigned int *, int, long unsigned int))) -#endif /* #ifndef XFreeColors */ - -#ifndef XFreeCursor -VFUNC(int,XFreeCursor,V_XFreeCursor,_ANSI_ARGS_((Display *, Cursor))) -#endif /* #ifndef XFreeCursor */ - -#ifndef DO_X_EXCLUDE -#ifndef XFreeFont -VFUNC(int,XFreeFont,V_XFreeFont,_ANSI_ARGS_((Display *, XFontStruct *))) -#endif /* #ifndef XFreeFont */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XFreeFontNames -VFUNC(int,XFreeFontNames,V_XFreeFontNames,_ANSI_ARGS_((char **))) -#endif /* #ifndef XFreeFontNames */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XFreeGC -VFUNC(int,XFreeGC,V_XFreeGC,_ANSI_ARGS_((Display *, GC))) -#endif /* #ifndef XFreeGC */ - -#ifndef XFreeModifiermap -VFUNC(int,XFreeModifiermap,V_XFreeModifiermap,_ANSI_ARGS_((XModifierKeymap *))) -#endif /* #ifndef XFreeModifiermap */ - -#ifndef XGContextFromGC -VFUNC(GContext,XGContextFromGC,V_XGContextFromGC,_ANSI_ARGS_((GC))) -#endif /* #ifndef XGContextFromGC */ - -#ifndef XGetAtomName -VFUNC(char *,XGetAtomName,V_XGetAtomName,_ANSI_ARGS_((Display *, Atom))) -#endif /* #ifndef XGetAtomName */ - -#ifndef DO_X_EXCLUDE -#ifndef XGetFontProperty -VFUNC(int,XGetFontProperty,V_XGetFontProperty,_ANSI_ARGS_((XFontStruct *, Atom, long unsigned int *))) -#endif /* #ifndef XGetFontProperty */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XGetGeometry -VFUNC(int,XGetGeometry,V_XGetGeometry,_ANSI_ARGS_((Display *, Drawable, Window *, int *, int *, unsigned int *, unsigned int *, unsigned int *, unsigned int *))) -#endif /* #ifndef XGetGeometry */ - -#ifndef XGetImage -VFUNC(XImage *,XGetImage,V_XGetImage,_ANSI_ARGS_((Display *, Drawable, int, int, unsigned int, unsigned int, long unsigned int, int))) -#endif /* #ifndef XGetImage */ - -#ifndef XGetInputFocus -VFUNC(int,XGetInputFocus,V_XGetInputFocus,_ANSI_ARGS_((Display *, Window *, int *))) -#endif /* #ifndef XGetInputFocus */ - -#ifndef XGetModifierMapping -VFUNC(XModifierKeymap *,XGetModifierMapping,V_XGetModifierMapping,_ANSI_ARGS_((Display *))) -#endif /* #ifndef XGetModifierMapping */ - -#ifndef DO_X_EXCLUDE -#ifndef XGetSelectionOwner -VFUNC(Window,XGetSelectionOwner,V_XGetSelectionOwner,_ANSI_ARGS_((Display *, Atom))) -#endif /* #ifndef XGetSelectionOwner */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XGetVisualInfo -VFUNC(XVisualInfo *,XGetVisualInfo,V_XGetVisualInfo,_ANSI_ARGS_((Display *, long int, XVisualInfo *, int *))) -#endif /* #ifndef XGetVisualInfo */ - -#ifndef XGetWMColormapWindows -VFUNC(int,XGetWMColormapWindows,V_XGetWMColormapWindows,_ANSI_ARGS_((Display *, Window, Window **, int *))) -#endif /* #ifndef XGetWMColormapWindows */ - -#ifndef XGetWindowAttributes -VFUNC(int,XGetWindowAttributes,V_XGetWindowAttributes,_ANSI_ARGS_((Display *, Window, XWindowAttributes *))) -#endif /* #ifndef XGetWindowAttributes */ - -#ifndef XGetWindowProperty -VFUNC(int,XGetWindowProperty,V_XGetWindowProperty,_ANSI_ARGS_((Display *, Window, Atom, long int, long int, int, Atom, Atom *, int *, long unsigned int *, long unsigned int *, unsigned char **))) -#endif /* #ifndef XGetWindowProperty */ - -#ifndef XGrabKeyboard -VFUNC(int,XGrabKeyboard,V_XGrabKeyboard,_ANSI_ARGS_((Display *, Window, int, int, int, Time))) -#endif /* #ifndef XGrabKeyboard */ - -#ifndef XGrabPointer -VFUNC(int,XGrabPointer,V_XGrabPointer,_ANSI_ARGS_((Display *, Window, int, unsigned int, int, int, Window, Cursor, Time))) -#endif /* #ifndef XGrabPointer */ - -#ifndef XGrabServer -VFUNC(int,XGrabServer,V_XGrabServer,_ANSI_ARGS_((Display *))) -#endif /* #ifndef XGrabServer */ - -#ifndef XIconifyWindow -VFUNC(int,XIconifyWindow,V_XIconifyWindow,_ANSI_ARGS_((Display *, Window, int))) -#endif /* #ifndef XIconifyWindow */ - -#ifndef XInternAtom -VFUNC(Atom,XInternAtom,V_XInternAtom,_ANSI_ARGS_((Display *, const char *, int))) -#endif /* #ifndef XInternAtom */ - -#ifndef DO_X_EXCLUDE -#ifndef XIntersectRegion -VFUNC(int,XIntersectRegion,V_XIntersectRegion,_ANSI_ARGS_((Region, Region, Region))) -#endif /* #ifndef XIntersectRegion */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XKeycodeToKeysym -VFUNC(KeySym,XKeycodeToKeysym,V_XKeycodeToKeysym,_ANSI_ARGS_((Display *, unsigned int, int))) -#endif /* #ifndef XKeycodeToKeysym */ - -#ifndef XKeysymToString -VFUNC(char *,XKeysymToString,V_XKeysymToString,_ANSI_ARGS_((KeySym))) -#endif /* #ifndef XKeysymToString */ - -#ifndef DO_X_EXCLUDE -#ifndef XListFonts -VFUNC(char **,XListFonts,V_XListFonts,_ANSI_ARGS_(( Display*, const char *, int, int *))) -#endif /* #ifndef XListFonts */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XListHosts -VFUNC(XHostAddress *,XListHosts,V_XListHosts,_ANSI_ARGS_((Display *, int *, int *))) -#endif /* #ifndef XListHosts */ - -#ifndef DO_X_EXCLUDE -#ifndef XListProperties -VFUNC(Atom *,XListProperties,V_XListProperties,_ANSI_ARGS_((Display *, Window, int *))) -#endif /* #ifndef XListProperties */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XLoadFont -VFUNC(Font,XLoadFont,V_XLoadFont,_ANSI_ARGS_((Display *, const char *))) -#endif /* #ifndef XLoadFont */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XLoadQueryFont -VFUNC(XFontStruct *,XLoadQueryFont,V_XLoadQueryFont,_ANSI_ARGS_((Display *, const char *))) -#endif /* #ifndef XLoadQueryFont */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XLookupColor -VFUNC(int,XLookupColor,V_XLookupColor,_ANSI_ARGS_((Display *, Colormap, const char *, XColor *, XColor *))) -#endif /* #ifndef XLookupColor */ - -#ifndef XLookupString -VFUNC(int,XLookupString,V_XLookupString,_ANSI_ARGS_((XKeyEvent *, char *, int, KeySym *, XComposeStatus *))) -#endif /* #ifndef XLookupString */ - -#ifndef XLowerWindow -VFUNC(int,XLowerWindow,V_XLowerWindow,_ANSI_ARGS_((Display *, Window))) -#endif /* #ifndef XLowerWindow */ - -#ifndef XMapWindow -VFUNC(int,XMapWindow,V_XMapWindow,_ANSI_ARGS_((Display *, Window))) -#endif /* #ifndef XMapWindow */ - -#ifndef XMoveResizeWindow -VFUNC(int,XMoveResizeWindow,V_XMoveResizeWindow,_ANSI_ARGS_((Display *, Window, int, int, unsigned int, unsigned int))) -#endif /* #ifndef XMoveResizeWindow */ - -#ifndef XMoveWindow -VFUNC(int,XMoveWindow,V_XMoveWindow,_ANSI_ARGS_((Display *, Window, int, int))) -#endif /* #ifndef XMoveWindow */ - -#ifndef XNextEvent -VFUNC(int,XNextEvent,V_XNextEvent,_ANSI_ARGS_((Display *, XEvent *))) -#endif /* #ifndef XNextEvent */ - -#ifndef XNoOp -VFUNC(int,XNoOp,V_XNoOp,_ANSI_ARGS_((Display *))) -#endif /* #ifndef XNoOp */ - -#ifndef DO_X_EXCLUDE -#ifndef XOpenDisplay -VFUNC(Display *,XOpenDisplay,V_XOpenDisplay,_ANSI_ARGS_((const char *))) -#endif /* #ifndef XOpenDisplay */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XParseColor -VFUNC(int,XParseColor,V_XParseColor,_ANSI_ARGS_((Display *, Colormap, const char *, XColor *))) -#endif /* #ifndef XParseColor */ - -#ifndef XPutBackEvent -VFUNC(int,XPutBackEvent,V_XPutBackEvent,_ANSI_ARGS_((Display *, XEvent *))) -#endif /* #ifndef XPutBackEvent */ - -#ifndef DO_X_EXCLUDE -#ifndef XPutImage -VFUNC(int,XPutImage,V_XPutImage,_ANSI_ARGS_((Display *, Drawable, GC, XImage *, int, int, int, int, unsigned int, unsigned int))) -#endif /* #ifndef XPutImage */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XQueryColors -VFUNC(int,XQueryColors,V_XQueryColors,_ANSI_ARGS_((Display *, Colormap, XColor *, int))) -#endif /* #ifndef XQueryColors */ - -#ifndef XQueryPointer -VFUNC(int,XQueryPointer,V_XQueryPointer,_ANSI_ARGS_((Display *, Window, Window *, Window *, int *, int *, int *, int *, unsigned int *))) -#endif /* #ifndef XQueryPointer */ - -#ifndef XQueryTree -VFUNC(int,XQueryTree,V_XQueryTree,_ANSI_ARGS_((Display *, Window, Window *, Window *, Window **, unsigned int *))) -#endif /* #ifndef XQueryTree */ - -#ifndef XRaiseWindow -VFUNC(int,XRaiseWindow,V_XRaiseWindow,_ANSI_ARGS_((Display *, Window))) -#endif /* #ifndef XRaiseWindow */ - -#ifndef DO_X_EXCLUDE -#ifndef XReadBitmapFile -VFUNC(int,XReadBitmapFile,V_XReadBitmapFile,_ANSI_ARGS_((Display *, Drawable, const char *, unsigned int *, unsigned int *, Pixmap *, int *, int *))) -#endif /* #ifndef XReadBitmapFile */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XRectInRegion -VFUNC(int,XRectInRegion,V_XRectInRegion,_ANSI_ARGS_((Region,int,int,unsigned,unsigned))) -#endif /* #ifndef XRectInRegion */ - -#ifndef XRefreshKeyboardMapping -VFUNC(int,XRefreshKeyboardMapping,V_XRefreshKeyboardMapping,_ANSI_ARGS_((XMappingEvent *))) -#endif /* #ifndef XRefreshKeyboardMapping */ - -#ifndef XResizeWindow -VFUNC(int,XResizeWindow,V_XResizeWindow,_ANSI_ARGS_((Display *, Window, unsigned int, unsigned int))) -#endif /* #ifndef XResizeWindow */ - -#ifndef XRootWindow -VFUNC(Window,XRootWindow,V_XRootWindow,_ANSI_ARGS_((Display *, int))) -#endif /* #ifndef XRootWindow */ - -#ifndef XSelectInput -VFUNC(int,XSelectInput,V_XSelectInput,_ANSI_ARGS_((Display *, Window, long int))) -#endif /* #ifndef XSelectInput */ - -#ifndef XSendEvent -VFUNC(int,XSendEvent,V_XSendEvent,_ANSI_ARGS_((Display *, Window, int, long int, XEvent *))) -#endif /* #ifndef XSendEvent */ - -#ifndef XSetBackground -VFUNC(int,XSetBackground,V_XSetBackground,_ANSI_ARGS_((Display *, GC, unsigned long))) -#endif /* #ifndef XSetBackground */ - -#ifndef DO_X_EXCLUDE -#ifndef XSetClassHint -VFUNC(int,XSetClassHint,V_XSetClassHint,_ANSI_ARGS_((Display *, Window, XClassHint *))) -#endif /* #ifndef XSetClassHint */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XSetClipMask -VFUNC(int,XSetClipMask,V_XSetClipMask,_ANSI_ARGS_((Display *, GC, Pixmap))) -#endif /* #ifndef XSetClipMask */ - -#ifndef XSetClipOrigin -VFUNC(int,XSetClipOrigin,V_XSetClipOrigin,_ANSI_ARGS_((Display *, GC, int, int))) -#endif /* #ifndef XSetClipOrigin */ - -#ifndef XSetCommand -VFUNC(int,XSetCommand,V_XSetCommand,_ANSI_ARGS_((Display *, Window, char **, int))) -#endif /* #ifndef XSetCommand */ - -#ifndef XSetDashes -VFUNC(int,XSetDashes,V_XSetDashes,_ANSI_ARGS_((Display *, GC, int, const char *, int))) -#endif /* #ifndef XSetDashes */ - -#ifndef XSetErrorHandler -VFUNC(XErrorHandler,XSetErrorHandler,V_XSetErrorHandler,_ANSI_ARGS_((XErrorHandler))) -#endif /* #ifndef XSetErrorHandler */ - -#ifndef XSetForeground -VFUNC(int,XSetForeground,V_XSetForeground,_ANSI_ARGS_((Display *, GC, long unsigned int))) -#endif /* #ifndef XSetForeground */ - -#ifndef XSetIconName -VFUNC(int,XSetIconName,V_XSetIconName,_ANSI_ARGS_((Display *, Window, const char *))) -#endif /* #ifndef XSetIconName */ - -#ifndef XSetInputFocus -VFUNC(int,XSetInputFocus,V_XSetInputFocus,_ANSI_ARGS_((Display *, Window, int, Time))) -#endif /* #ifndef XSetInputFocus */ - -#ifndef DO_X_EXCLUDE -#ifndef XSetRegion -VFUNC(int,XSetRegion,V_XSetRegion,_ANSI_ARGS_((Display *, GC, Region))) -#endif /* #ifndef XSetRegion */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XSetSelectionOwner -VFUNC(int,XSetSelectionOwner,V_XSetSelectionOwner,_ANSI_ARGS_((Display *, Atom, Window, Time))) -#endif /* #ifndef XSetSelectionOwner */ - -#ifndef XSetTSOrigin -VFUNC(int,XSetTSOrigin,V_XSetTSOrigin,_ANSI_ARGS_((Display *, GC, int, int))) -#endif /* #ifndef XSetTSOrigin */ - -#ifndef DO_X_EXCLUDE -#ifndef XSetTransientForHint -VFUNC(int,XSetTransientForHint,V_XSetTransientForHint,_ANSI_ARGS_((Display *, Window, Window))) -#endif /* #ifndef XSetTransientForHint */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XSetWMClientMachine -VFUNC(void,XSetWMClientMachine,V_XSetWMClientMachine,_ANSI_ARGS_((Display *, Window, XTextProperty *))) -#endif /* #ifndef XSetWMClientMachine */ - -#ifndef DO_X_EXCLUDE -#ifndef XSetWMColormapWindows -VFUNC(int,XSetWMColormapWindows,V_XSetWMColormapWindows,_ANSI_ARGS_((Display *, Window, Window *, int))) -#endif /* #ifndef XSetWMColormapWindows */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XSetWMHints -VFUNC(int,XSetWMHints,V_XSetWMHints,_ANSI_ARGS_((Display *, Window, XWMHints *))) -#endif /* #ifndef XSetWMHints */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XSetWMName -VFUNC(void,XSetWMName,V_XSetWMName,_ANSI_ARGS_((Display *, Window, XTextProperty *))) -#endif /* #ifndef XSetWMName */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XSetWMNormalHints -VFUNC(void,XSetWMNormalHints,V_XSetWMNormalHints,_ANSI_ARGS_((Display *, Window, XSizeHints *))) -#endif /* #ifndef XSetWMNormalHints */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XSetWindowBackground -VFUNC(int,XSetWindowBackground,V_XSetWindowBackground,_ANSI_ARGS_((Display *, Window, long unsigned int))) -#endif /* #ifndef XSetWindowBackground */ - -#ifndef XSetWindowBackgroundPixmap -VFUNC(int,XSetWindowBackgroundPixmap,V_XSetWindowBackgroundPixmap,_ANSI_ARGS_((Display *, Window, Pixmap))) -#endif /* #ifndef XSetWindowBackgroundPixmap */ - -#ifndef XSetWindowBorder -VFUNC(int,XSetWindowBorder,V_XSetWindowBorder,_ANSI_ARGS_((Display *, Window, long unsigned int))) -#endif /* #ifndef XSetWindowBorder */ - -#ifndef XSetWindowBorderPixmap -VFUNC(int,XSetWindowBorderPixmap,V_XSetWindowBorderPixmap,_ANSI_ARGS_((Display *, Window, Pixmap))) -#endif /* #ifndef XSetWindowBorderPixmap */ - -#ifndef XSetWindowBorderWidth -VFUNC(int,XSetWindowBorderWidth,V_XSetWindowBorderWidth,_ANSI_ARGS_((Display *, Window, unsigned int))) -#endif /* #ifndef XSetWindowBorderWidth */ - -#ifndef XSetWindowColormap -VFUNC(int,XSetWindowColormap,V_XSetWindowColormap,_ANSI_ARGS_((Display *, Window, Colormap))) -#endif /* #ifndef XSetWindowColormap */ - -#ifndef XStringListToTextProperty -VFUNC(int,XStringListToTextProperty,V_XStringListToTextProperty,_ANSI_ARGS_((char **, int, XTextProperty *))) -#endif /* #ifndef XStringListToTextProperty */ - -#ifndef XStringToKeysym -VFUNC(KeySym,XStringToKeysym,V_XStringToKeysym,_ANSI_ARGS_((const char *))) -#endif /* #ifndef XStringToKeysym */ - -#ifndef XSubtractRegion -VFUNC(int,XSubtractRegion,V_XSubtractRegion,_ANSI_ARGS_((Region, Region, Region))) -#endif /* #ifndef XSubtractRegion */ - -#ifndef XSync -VFUNC(int,XSync,V_XSync,_ANSI_ARGS_((Display *, int))) -#endif /* #ifndef XSync */ - -#ifndef DO_X_EXCLUDE -#ifndef XTextExtents -VFUNC(int,XTextExtents,V_XTextExtents,_ANSI_ARGS_((XFontStruct *, const char *, int, int *, int *, int *, XCharStruct *))) -#endif /* #ifndef XTextExtents */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef DO_X_EXCLUDE -#ifndef XTextWidth -VFUNC(int,XTextWidth,V_XTextWidth,_ANSI_ARGS_((XFontStruct *, const char *, int))) -#endif /* #ifndef XTextWidth */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XTranslateCoordinates -VFUNC(int,XTranslateCoordinates,V_XTranslateCoordinates,_ANSI_ARGS_((Display *, Window, Window, int, int, int *, int *, Window *))) -#endif /* #ifndef XTranslateCoordinates */ - -#ifndef XUngrabKeyboard -VFUNC(int,XUngrabKeyboard,V_XUngrabKeyboard,_ANSI_ARGS_((Display *, Time))) -#endif /* #ifndef XUngrabKeyboard */ - -#ifndef XUngrabPointer -VFUNC(int,XUngrabPointer,V_XUngrabPointer,_ANSI_ARGS_((Display *, Time))) -#endif /* #ifndef XUngrabPointer */ - -#ifndef XUngrabServer -VFUNC(int,XUngrabServer,V_XUngrabServer,_ANSI_ARGS_((Display *))) -#endif /* #ifndef XUngrabServer */ - -#ifndef DO_X_EXCLUDE -#ifndef XUnionRectWithRegion -VFUNC(int,XUnionRectWithRegion,V_XUnionRectWithRegion,_ANSI_ARGS_((XRectangle *, Region, Region))) -#endif /* #ifndef XUnionRectWithRegion */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XUnmapWindow -VFUNC(int,XUnmapWindow,V_XUnmapWindow,_ANSI_ARGS_((Display *, Window))) -#endif /* #ifndef XUnmapWindow */ - -#ifndef XVisualIDFromVisual -VFUNC(VisualID,XVisualIDFromVisual,V_XVisualIDFromVisual,_ANSI_ARGS_((Visual *))) -#endif /* #ifndef XVisualIDFromVisual */ - -#ifndef DO_X_EXCLUDE -#ifndef XWarpPointer -VFUNC(int,XWarpPointer,V_XWarpPointer,_ANSI_ARGS_(( Display *, Window, Window, int, int, unsigned int, unsigned int, int, int ))) -#endif /* #ifndef XWarpPointer */ -#endif /* !DO_X_EXCLUDE */ - -#ifndef XWindowEvent -VFUNC(int,XWindowEvent,V_XWindowEvent,_ANSI_ARGS_((Display *, Window, long int, XEvent *))) -#endif /* #ifndef XWindowEvent */ - -#ifndef XWithdrawWindow -VFUNC(int,XWithdrawWindow,V_XWithdrawWindow,_ANSI_ARGS_((Display *, Window, int))) -#endif /* #ifndef XWithdrawWindow */ - -#ifndef _XInitImageFuncPtrs -VFUNC(int,_XInitImageFuncPtrs,V__XInitImageFuncPtrs,_ANSI_ARGS_((XImage *image))) -#endif /* #ifndef _XInitImageFuncPtrs */ - -#endif /* _XLIB */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/Xlib_f.h b/Master/tlpkg/tlperl/lib/Tk/pTk/Xlib_f.h deleted file mode 100644 index 6c0c3773961..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/Xlib_f.h +++ /dev/null @@ -1,14 +0,0 @@ -#ifndef XLIB_VT -#define XLIB_VT -typedef struct XlibVtab -{ - unsigned (*tabSize)(void); -#define VFUNC(type,name,mem,args) type (*mem) args; -#define VVAR(type,name,mem) type (*mem); -#include "Xlib.t" -#undef VFUNC -#undef VVAR -} XlibVtab; -extern XlibVtab *XlibVptr; -extern XlibVtab *XlibVGet(void); -#endif /* XLIB_VT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/compat/limits.h b/Master/tlpkg/tlperl/lib/Tk/pTk/compat/limits.h deleted file mode 100644 index 66eb54256cf..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/compat/limits.h +++ /dev/null @@ -1,22 +0,0 @@ -/* - * limits.h -- - * - * This is a dummy header file to #include in Tcl when there - * is no limits.h in /usr/include. There are only a few - * definitions here; also see tclPort.h, which already - * #defines some of the things here if they're not arleady - * defined. - * - * Copyright (c) 1991 The Regents of the University of California. - * Copyright (c) 1994 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * SCCS: @(#) limits.h 1.7 96/02/15 14:43:55 - */ - -#define LONG_MIN 0x80000000 -#define LONG_MAX 0x7fffffff -#define INT_MIN 0x80000000 -#define INT_MAX 0x7fffffff diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/compat/stdlib.h b/Master/tlpkg/tlperl/lib/Tk/pTk/compat/stdlib.h deleted file mode 100644 index 548f880a19a..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/compat/stdlib.h +++ /dev/null @@ -1,45 +0,0 @@ -/* - * stdlib.h -- - * - * Declares facilities exported by the "stdlib" portion of - * the C library. This file isn't complete in the ANSI-C - * sense; it only declares things that are needed by Tcl. - * This file is needed even on many systems with their own - * stdlib.h (e.g. SunOS) because not all stdlib.h files - * declare all the procedures needed here (such as strtod). - * - * Copyright (c) 1991 The Regents of the University of California. - * Copyright (c) 1994 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * @(#) stdlib.h 1.9 94/12/17 16:26:20 - */ - -#ifndef _STDLIB -#define _STDLIB - -#include <Lang.h> - -extern void abort _ANSI_ARGS_((void)); -extern double atof _ANSI_ARGS_((CONST char *string)); -extern int atoi _ANSI_ARGS_((CONST char *string)); -extern long atol _ANSI_ARGS_((CONST char *string)); -extern char * calloc _ANSI_ARGS_((unsigned int numElements, - unsigned int size)); -extern void exit _ANSI_ARGS_((int status)); -extern int free _ANSI_ARGS_((char *blockPtr)); -extern char * getenv _ANSI_ARGS_((CONST char *name)); -extern char * malloc _ANSI_ARGS_((unsigned int numBytes)); -extern void qsort _ANSI_ARGS_((VOID *base, int n, int size, - int (*compar)(CONST VOID *element1, CONST VOID - *element2))); -extern char * realloc _ANSI_ARGS_((char *ptr, unsigned int numBytes)); -extern double strtod _ANSI_ARGS_((CONST char *string, char **endPtr)); -extern long strtol _ANSI_ARGS_((CONST char *string, char **endPtr, - int base)); -extern unsigned long strtoul _ANSI_ARGS_((CONST char *string, - char **endPtr, int base)); - -#endif /* _STDLIB */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/compat/unistd.h b/Master/tlpkg/tlperl/lib/Tk/pTk/compat/unistd.h deleted file mode 100644 index 47717e0278c..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/compat/unistd.h +++ /dev/null @@ -1,87 +0,0 @@ -/* - * unistd.h -- - * - * Macros, CONSTants and prototypes for Posix conformance. - * - * Copyright 1989 Regents of the University of California - * Permission to use, copy, modify, and distribute this - * software and its documentation for any purpose and without - * fee is hereby granted, provided that the above copyright - * notice appear in all copies. The University of California - * makes no representations about the suitability of this - * software for any purpose. It is provided "as is" without - * express or implied warranty. - * - * $Header: /home/auspex6/CVSROOT/tcl/compat/unistd.h,v 1.1.1.1 1993/11/29 10:44:47 a904209 Exp $ - */ - -#ifndef _UNISTD -#define _UNISTD - -#include <sys/types.h> -#ifndef _TCL -# include "../Lang.h" -#endif - -#ifndef NULL -#define NULL 0 -#endif - -#ifndef LSEEK_TYPE -#define LSEEK_TYPE long -#endif - -/* - * Strict POSIX stuff goes here. Extensions go down below, in the - * ifndef _POSIX_SOURCE section. - */ - -extern void _exit _ANSI_ARGS_((int status)); -extern int access _ANSI_ARGS_((CONST char *path, int mode)); -extern int chdir _ANSI_ARGS_((CONST char *path)); -extern int chown _ANSI_ARGS_((CONST char *path, uid_t owner, gid_t group)); -extern int close _ANSI_ARGS_((int fd)); -extern int dup _ANSI_ARGS_((int oldfd)); -extern int dup2 _ANSI_ARGS_((int oldfd, int newfd)); -extern int execl _ANSI_ARGS_((CONST char *path, ...)); -extern int execle _ANSI_ARGS_((CONST char *path, ...)); -extern int execlp _ANSI_ARGS_((CONST char *file, ...)); -extern int execv _ANSI_ARGS_((CONST char *path, char **argv)); -extern int execve _ANSI_ARGS_((CONST char *path, char **argv, char **envp)); -extern int execvp _ANSI_ARGS_((CONST char *file, char **argv)); -extern pid_t fork _ANSI_ARGS_((void)); -extern char *getcwd _ANSI_ARGS_((char *buf, size_t size)); -extern gid_t getegid _ANSI_ARGS_((void)); -extern uid_t geteuid _ANSI_ARGS_((void)); -extern gid_t getgid _ANSI_ARGS_((void)); -extern int getgroups _ANSI_ARGS_((int bufSize, int *buffer)); -extern pid_t getpid _ANSI_ARGS_((void)); -extern uid_t getuid _ANSI_ARGS_((void)); -extern int isatty _ANSI_ARGS_((int fd)); -extern long lseek _ANSI_ARGS_((int fd, LSEEK_TYPE offset, int whence)); -extern int pipe _ANSI_ARGS_((int *fildes)); -extern int read _ANSI_ARGS_((int fd, char *buf, size_t size)); -extern int setgid _ANSI_ARGS_((gid_t group)); -extern int setuid _ANSI_ARGS_((uid_t user)); -extern unsigned sleep _ANSI_ARGS_ ((unsigned seconds)); -extern char *ttyname _ANSI_ARGS_((int fd)); -extern int unlink _ANSI_ARGS_((CONST char *path)); -extern int write _ANSI_ARGS_((int fd, CONST char *buf, size_t size)); - -#ifndef _POSIX_SOURCE -extern char *crypt _ANSI_ARGS_((CONST char *, CONST char *)); -extern int fchown _ANSI_ARGS_((int fd, uid_t owner, gid_t group)); -extern int flock _ANSI_ARGS_((int fd, int operation)); -extern int ftruncate _ANSI_ARGS_((int fd, unsigned long length)); -extern int readlink _ANSI_ARGS_((CONST char *path, char *buf, int bufsize)); -extern int setegid _ANSI_ARGS_((gid_t group)); -extern int seteuid _ANSI_ARGS_((uid_t user)); -extern int setreuid _ANSI_ARGS_((int ruid, int euid)); -extern int symlink _ANSI_ARGS_((CONST char *, CONST char *)); -extern int ttyslot _ANSI_ARGS_((void)); -extern int truncate _ANSI_ARGS_((CONST char *path, unsigned long length)); -extern int vfork _ANSI_ARGS_((void)); -#endif /* _POSIX_SOURCE */ - -#endif /* _UNISTD */ - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/default.h b/Master/tlpkg/tlperl/lib/Tk/pTk/default.h deleted file mode 100644 index 5f7f24d546e..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/default.h +++ /dev/null @@ -1,36 +0,0 @@ -/* - * default.h -- - * - * This file defines the defaults for all options for all of - * the Tk widgets. - * - * Copyright (c) 1991-1994 The Regents of the University of California. - * Copyright (c) 1994 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: default.h,v 1.4 2002/08/31 06:12:19 das Exp $ - */ - -#ifndef _DEFAULT -#define _DEFAULT - -#if defined(__WIN32__) || defined(_WIN32) || \ - (defined(__CYGWIN__) && !defined(WINARCH_X)) || defined(__MINGW32__) -# include "tkWinDefault.h" -#else -# if defined(MAC_OSX_TK) -# include "tkMacOSXDefault.h" -# elif defined(MAC_TCL) -# include "tkMacDefault.h" -# else -# ifdef __PM__ -# include "tkOS2Default.h" -# else -# include "tkUnixDefault.h" -# endif -# endif -#endif - -#endif /* _DEFAULT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/img.h b/Master/tlpkg/tlperl/lib/Tk/pTk/img.h deleted file mode 100644 index a1b38a7ebd8..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/img.h +++ /dev/null @@ -1,41 +0,0 @@ -/* img.h */ - -#ifndef _IMG -#define _IMG - -#include "Lang.h" -#include "tk.h" - -#define IMG_MAJOR_VERSION 1 -#define IMG_MINOR_VERSION 2 -#define IMG_RELEASE_LEVEL 1 -#define IMG_RELEASE_SERIAL 2 - -#define IMG_VERSION "1.2" -#define IMG_PATCH_LEVEL "1.2.4" - -#ifndef RESOURCE_INCLUDED - -#if defined(__WIN32__) -# define WIN32_LEAN_AND_MEAN -# include <windows.h> -# undef WIN32_LEAN_AND_MEAN -# if defined(_MSC_VER) -# define EXPORT(a,b) __declspec(dllexport) a b -# else -# if defined(__BORLANDC__) -# define EXPORT(a,b) a _export b -# else -# define EXPORT(a,b) a b -# endif -# endif -#else -# define EXPORT(a,b) a b -#endif - -EXTERN EXPORT(int,Img_Init) _ANSI_ARGS_((Tcl_Interp *interp)); -EXTERN EXPORT(int,Img_SafeInit) _ANSI_ARGS_((Tcl_Interp *interp)); - -#endif /* RESOURCE_INCLUDED */ - -#endif /* _IMG */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/imgInt.h b/Master/tlpkg/tlperl/lib/Tk/pTk/imgInt.h deleted file mode 100644 index 8cca12aa095..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/imgInt.h +++ /dev/null @@ -1,75 +0,0 @@ -/* imgInt.h */ - -#ifndef _IMGINT -#define _IMGINT - -#include "tkInt.h" - -#ifndef RESOURCE_INCLUDED - -#ifdef HAVE_FCNTL_H -#include <fcntl.h> -#endif - -#include "img.h" - -typedef struct { - Tcl_DString *buffer;/* pointer to dynamical string */ - char *data; /* mmencoded source string */ - int c; /* bits left over from previous char */ - int state; /* decoder state (0-4 or IMG_DONE) */ - int length; /* length of phisical line already written */ -} MFile; - -#define IMG_SPECIAL (1<<8) -#define IMG_PAD (IMG_SPECIAL+1) -#define IMG_SPACE (IMG_SPECIAL+2) -#define IMG_BAD (IMG_SPECIAL+3) -#define IMG_DONE (IMG_SPECIAL+4) -#define IMG_CHAN (IMG_SPECIAL+5) -#define IMG_STRING (IMG_SPECIAL+6) - -#define IMG_TCL (1<<9) -#define IMG_OBJS (1<<10) -#define IMG_PERL (1<<11) -#define IMG_UTF (1<<12) - -EXTERN int ImgPhotoPutBlock _ANSI_ARGS_((Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height)); - -EXTERN int ImgLoadLib _ANSI_ARGS_((Tcl_Interp *interp, CONST char *libName, - VOID **handlePtr, char **symbols, int num)); -EXTERN void ImgLoadFailed _ANSI_ARGS_((VOID **handlePtr)); - -EXTERN int ImgObjInit _ANSI_ARGS_((Tcl_Interp *interp)); -EXTERN char *ImgGetStringFromObj _ANSI_ARGS_((Tcl_Obj *objPtr, - int *lengthPtr)); -EXTERN char *ImgGetByteArrayFromObj _ANSI_ARGS_((Tcl_Obj *objPtr, - int *lengthPtr)); -EXTERN int ImgListObjGetElements _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *objPtr, int *argc, Tcl_Obj ***objv)); - -EXTERN int ImgGetc _ANSI_ARGS_((MFile *handle)); -EXTERN int ImgRead _ANSI_ARGS_((MFile *handle, char *dst, int count)); -EXTERN int ImgPutc _ANSI_ARGS_((int c, MFile *handle)); -EXTERN int ImgWrite _ANSI_ARGS_((MFile *handle, CONST char *src, int count)); -EXTERN void ImgWriteInit _ANSI_ARGS_((Tcl_DString *buffer, MFile *handle)); -EXTERN int ImgReadInit _ANSI_ARGS_((Tcl_Obj *data, int c, MFile *handle)); -EXTERN Tcl_Channel ImgOpenFileChannel _ANSI_ARGS_((Tcl_Interp *interp, - CONST char *fileName, int permissions)); -EXTERN void ImgFixChanMatchProc _ANSI_ARGS_((Tcl_Interp **interp, Tcl_Channel *chan, - Tcl_Obj **file, Tcl_Obj **format, int **width, int **height)); -EXTERN void ImgFixObjMatchProc _ANSI_ARGS_((Tcl_Interp **interp, Tcl_Obj **data, - Tcl_Obj **format, int **width, int **height)); -EXTERN void ImgFixStringWriteProc _ANSI_ARGS_((Tcl_DString *data, Tcl_Interp **interp, - Tcl_DString **dataPtr, Tcl_Obj **format, Tk_PhotoImageBlock **blockPtr)); - -EXTERN int ImgInitTIFFzip _ANSI_ARGS_((VOID *, int)); -EXTERN int ImgInitTIFFjpeg _ANSI_ARGS_((VOID *, int)); -EXTERN int ImgInitTIFFpixar _ANSI_ARGS_((VOID *, int)); -EXTERN int ImgLoadJpegLibrary _ANSI_ARGS_((void)); - -#endif /* RESOURCE_INCLUDED */ - -#endif /* _IMGINT */ - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/imgInt.m b/Master/tlpkg/tlperl/lib/Tk/pTk/imgInt.m deleted file mode 100644 index 0ac6a144b4b..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/imgInt.m +++ /dev/null @@ -1,62 +0,0 @@ -#ifndef _IMGINT_VM -#define _IMGINT_VM -#include "imgInt_f.h" -#ifndef NO_VTABLES -#ifndef ImgFixChanMatchProc -# define ImgFixChanMatchProc (*ImgintVptr->V_ImgFixChanMatchProc) -#endif - -#ifndef ImgFixObjMatchProc -# define ImgFixObjMatchProc (*ImgintVptr->V_ImgFixObjMatchProc) -#endif - -#ifndef ImgFixStringWriteProc -# define ImgFixStringWriteProc (*ImgintVptr->V_ImgFixStringWriteProc) -#endif - -#ifndef ImgGetByteArrayFromObj -# define ImgGetByteArrayFromObj (*ImgintVptr->V_ImgGetByteArrayFromObj) -#endif - -#ifndef ImgGetc -# define ImgGetc (*ImgintVptr->V_ImgGetc) -#endif - -#ifndef ImgListObjGetElements -# define ImgListObjGetElements (*ImgintVptr->V_ImgListObjGetElements) -#endif - -#ifndef ImgObjInit -# define ImgObjInit (*ImgintVptr->V_ImgObjInit) -#endif - -#ifndef ImgOpenFileChannel -# define ImgOpenFileChannel (*ImgintVptr->V_ImgOpenFileChannel) -#endif - -#ifndef ImgPhotoPutBlock -# define ImgPhotoPutBlock (*ImgintVptr->V_ImgPhotoPutBlock) -#endif - -#ifndef ImgPutc -# define ImgPutc (*ImgintVptr->V_ImgPutc) -#endif - -#ifndef ImgRead -# define ImgRead (*ImgintVptr->V_ImgRead) -#endif - -#ifndef ImgReadInit -# define ImgReadInit (*ImgintVptr->V_ImgReadInit) -#endif - -#ifndef ImgWrite -# define ImgWrite (*ImgintVptr->V_ImgWrite) -#endif - -#ifndef ImgWriteInit -# define ImgWriteInit (*ImgintVptr->V_ImgWriteInit) -#endif - -#endif /* NO_VTABLES */ -#endif /* _IMGINT_VM */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/imgInt.t b/Master/tlpkg/tlperl/lib/Tk/pTk/imgInt.t deleted file mode 100644 index 6f20d9a332b..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/imgInt.t +++ /dev/null @@ -1,93 +0,0 @@ -#ifdef _IMGINT
-#ifndef ImgFixChanMatchProc
-#ifndef RESOURCE_INCLUDED
-VFUNC(void,ImgFixChanMatchProc,V_ImgFixChanMatchProc,_ANSI_ARGS_((Tcl_Interp **interp, Tcl_Channel *chan,
- Tcl_Obj **file, Tcl_Obj **format, int **width, int **height)))
-#endif /* #ifndef RESOURCE_INCLUDED */
-#endif /* #ifndef ImgFixChanMatchProc */
-
-#ifndef ImgFixObjMatchProc
-#ifndef RESOURCE_INCLUDED
-VFUNC(void,ImgFixObjMatchProc,V_ImgFixObjMatchProc,_ANSI_ARGS_((Tcl_Interp **interp, Tcl_Obj **data,
- Tcl_Obj **format, int **width, int **height)))
-#endif /* #ifndef RESOURCE_INCLUDED */
-#endif /* #ifndef ImgFixObjMatchProc */
-
-#ifndef ImgFixStringWriteProc
-#ifndef RESOURCE_INCLUDED
-VFUNC(void,ImgFixStringWriteProc,V_ImgFixStringWriteProc,_ANSI_ARGS_((Tcl_DString *data, Tcl_Interp **interp,
- Tcl_DString **dataPtr, Tcl_Obj **format, Tk_PhotoImageBlock **blockPtr)))
-#endif /* #ifndef RESOURCE_INCLUDED */
-#endif /* #ifndef ImgFixStringWriteProc */
-
-#ifndef ImgGetByteArrayFromObj
-#ifndef RESOURCE_INCLUDED
-VFUNC(char *,ImgGetByteArrayFromObj,V_ImgGetByteArrayFromObj,_ANSI_ARGS_((Tcl_Obj *objPtr,
- int *lengthPtr)))
-#endif /* #ifndef RESOURCE_INCLUDED */
-#endif /* #ifndef ImgGetByteArrayFromObj */
-
-#ifndef ImgGetc
-#ifndef RESOURCE_INCLUDED
-VFUNC(int,ImgGetc,V_ImgGetc,_ANSI_ARGS_((MFile *handle)))
-#endif /* #ifndef RESOURCE_INCLUDED */
-#endif /* #ifndef ImgGetc */
-
-#ifndef ImgListObjGetElements
-#ifndef RESOURCE_INCLUDED
-VFUNC(int,ImgListObjGetElements,V_ImgListObjGetElements,_ANSI_ARGS_((Tcl_Interp *interp,
- Tcl_Obj *objPtr, int *argc, Tcl_Obj ***objv)))
-#endif /* #ifndef RESOURCE_INCLUDED */
-#endif /* #ifndef ImgListObjGetElements */
-
-#ifndef ImgObjInit
-#ifndef RESOURCE_INCLUDED
-VFUNC(int,ImgObjInit,V_ImgObjInit,_ANSI_ARGS_((Tcl_Interp *interp)))
-#endif /* #ifndef RESOURCE_INCLUDED */
-#endif /* #ifndef ImgObjInit */
-
-#ifndef ImgOpenFileChannel
-#ifndef RESOURCE_INCLUDED
-VFUNC(Tcl_Channel,ImgOpenFileChannel,V_ImgOpenFileChannel,_ANSI_ARGS_((Tcl_Interp *interp,
- CONST char *fileName, int permissions)))
-#endif /* #ifndef RESOURCE_INCLUDED */
-#endif /* #ifndef ImgOpenFileChannel */
-
-#ifndef ImgPhotoPutBlock
-#ifndef RESOURCE_INCLUDED
-VFUNC(int,ImgPhotoPutBlock,V_ImgPhotoPutBlock,_ANSI_ARGS_((Tk_PhotoHandle handle,
- Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height)))
-#endif /* #ifndef RESOURCE_INCLUDED */
-#endif /* #ifndef ImgPhotoPutBlock */
-
-#ifndef ImgPutc
-#ifndef RESOURCE_INCLUDED
-VFUNC(int,ImgPutc,V_ImgPutc,_ANSI_ARGS_((int c, MFile *handle)))
-#endif /* #ifndef RESOURCE_INCLUDED */
-#endif /* #ifndef ImgPutc */
-
-#ifndef ImgRead
-#ifndef RESOURCE_INCLUDED
-VFUNC(int,ImgRead,V_ImgRead,_ANSI_ARGS_((MFile *handle, char *dst, int count)))
-#endif /* #ifndef RESOURCE_INCLUDED */
-#endif /* #ifndef ImgRead */
-
-#ifndef ImgReadInit
-#ifndef RESOURCE_INCLUDED
-VFUNC(int,ImgReadInit,V_ImgReadInit,_ANSI_ARGS_((Tcl_Obj *data, int c, MFile *handle)))
-#endif /* #ifndef RESOURCE_INCLUDED */
-#endif /* #ifndef ImgReadInit */
-
-#ifndef ImgWrite
-#ifndef RESOURCE_INCLUDED
-VFUNC(int,ImgWrite,V_ImgWrite,_ANSI_ARGS_((MFile *handle, CONST char *src, int count)))
-#endif /* #ifndef RESOURCE_INCLUDED */
-#endif /* #ifndef ImgWrite */
-
-#ifndef ImgWriteInit
-#ifndef RESOURCE_INCLUDED
-VFUNC(void,ImgWriteInit,V_ImgWriteInit,_ANSI_ARGS_((Tcl_DString *buffer, MFile *handle)))
-#endif /* #ifndef RESOURCE_INCLUDED */
-#endif /* #ifndef ImgWriteInit */
-
-#endif /* _IMGINT */
diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/imgInt_f.h b/Master/tlpkg/tlperl/lib/Tk/pTk/imgInt_f.h deleted file mode 100644 index 4e05f81a81c..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/imgInt_f.h +++ /dev/null @@ -1,14 +0,0 @@ -#ifndef IMGINT_VT -#define IMGINT_VT -typedef struct ImgintVtab -{ - unsigned (*tabSize)(void); -#define VFUNC(type,name,mem,args) type (*mem) args; -#define VVAR(type,name,mem) type (*mem); -#include "imgInt.t" -#undef VFUNC -#undef VVAR -} ImgintVtab; -extern ImgintVtab *ImgintVptr; -extern ImgintVtab *ImgintVGet(void); -#endif /* IMGINT_VT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/ks_names.h b/Master/tlpkg/tlperl/lib/Tk/pTk/ks_names.h deleted file mode 100644 index e0622ae7319..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/ks_names.h +++ /dev/null @@ -1,925 +0,0 @@ -/* - * This file is generated from $(INCLUDESRC)/keysymdef.h. Do not edit. - * RCS: $Id: ks_names.h,v 1.4 2000/04/15 00:33:08 ericm Exp $ - */ -{ "BackSpace", 0xFF08 }, -{ "Tab", 0xFF09 }, -{ "Linefeed", 0xFF0A }, -{ "Clear", 0xFF0B }, -{ "Return", 0xFF0D }, -{ "Pause", 0xFF13 }, -{ "Scroll_Lock", 0xFF14 }, -{ "Sys_Req", 0xFF15 }, -{ "Escape", 0xFF1B }, -{ "Delete", 0xFFFF }, -{ "Multi_key", 0xFF20 }, -{ "Kanji", 0xFF21 }, -{ "Home", 0xFF50 }, -{ "Left", 0xFF51 }, -{ "Up", 0xFF52 }, -{ "Right", 0xFF53 }, -{ "Down", 0xFF54 }, -{ "Prior", 0xFF55 }, -{ "Next", 0xFF56 }, -{ "End", 0xFF57 }, -{ "Begin", 0xFF58 }, -{ "Win_L", 0xFF5B }, -{ "Win_R", 0xFF5C }, -{ "App", 0xFF5D }, -{ "Select", 0xFF60 }, -{ "Print", 0xFF61 }, -{ "Execute", 0xFF62 }, -{ "Insert", 0xFF63 }, -{ "Undo", 0xFF65 }, -{ "Redo", 0xFF66 }, -{ "Menu", 0xFF67 }, -{ "Find", 0xFF68 }, -{ "Cancel", 0xFF69 }, -{ "Help", 0xFF6A }, -{ "Break", 0xFF6B }, -{ "Mode_switch", 0xFF7E }, -{ "script_switch", 0xFF7E }, -{ "Num_Lock", 0xFF7F }, -{ "KP_Space", 0xFF80 }, -{ "KP_Tab", 0xFF89 }, -{ "KP_Enter", 0xFF8D }, -{ "KP_F1", 0xFF91 }, -{ "KP_F2", 0xFF92 }, -{ "KP_F3", 0xFF93 }, -{ "KP_F4", 0xFF94 }, -{ "KP_Equal", 0xFFBD }, -{ "KP_Multiply", 0xFFAA }, -{ "KP_Add", 0xFFAB }, -{ "KP_Separator", 0xFFAC }, -{ "KP_Subtract", 0xFFAD }, -{ "KP_Decimal", 0xFFAE }, -{ "KP_Divide", 0xFFAF }, -{ "KP_0", 0xFFB0 }, -{ "KP_1", 0xFFB1 }, -{ "KP_2", 0xFFB2 }, -{ "KP_3", 0xFFB3 }, -{ "KP_4", 0xFFB4 }, -{ "KP_5", 0xFFB5 }, -{ "KP_6", 0xFFB6 }, -{ "KP_7", 0xFFB7 }, -{ "KP_8", 0xFFB8 }, -{ "KP_9", 0xFFB9 }, -{ "F1", 0xFFBE }, -{ "F2", 0xFFBF }, -{ "F3", 0xFFC0 }, -{ "F4", 0xFFC1 }, -{ "F5", 0xFFC2 }, -{ "F6", 0xFFC3 }, -{ "F7", 0xFFC4 }, -{ "F8", 0xFFC5 }, -{ "F9", 0xFFC6 }, -{ "F10", 0xFFC7 }, -{ "F11", 0xFFC8 }, -{ "L1", 0xFFC8 }, -{ "F12", 0xFFC9 }, -{ "L2", 0xFFC9 }, -{ "F13", 0xFFCA }, -{ "L3", 0xFFCA }, -{ "F14", 0xFFCB }, -{ "L4", 0xFFCB }, -{ "F15", 0xFFCC }, -{ "L5", 0xFFCC }, -{ "F16", 0xFFCD }, -{ "L6", 0xFFCD }, -{ "F17", 0xFFCE }, -{ "L7", 0xFFCE }, -{ "F18", 0xFFCF }, -{ "L8", 0xFFCF }, -{ "F19", 0xFFD0 }, -{ "L9", 0xFFD0 }, -{ "F20", 0xFFD1 }, -{ "L10", 0xFFD1 }, -{ "F21", 0xFFD2 }, -{ "R1", 0xFFD2 }, -{ "F22", 0xFFD3 }, -{ "R2", 0xFFD3 }, -{ "F23", 0xFFD4 }, -{ "R3", 0xFFD4 }, -{ "F24", 0xFFD5 }, -{ "R4", 0xFFD5 }, -{ "F25", 0xFFD6 }, -{ "R5", 0xFFD6 }, -{ "F26", 0xFFD7 }, -{ "R6", 0xFFD7 }, -{ "F27", 0xFFD8 }, -{ "R7", 0xFFD8 }, -{ "F28", 0xFFD9 }, -{ "R8", 0xFFD9 }, -{ "F29", 0xFFDA }, -{ "R9", 0xFFDA }, -{ "F30", 0xFFDB }, -{ "R10", 0xFFDB }, -{ "F31", 0xFFDC }, -{ "R11", 0xFFDC }, -{ "F32", 0xFFDD }, -{ "R12", 0xFFDD }, -{ "R13", 0xFFDE }, -{ "F33", 0xFFDE }, -{ "F34", 0xFFDF }, -{ "R14", 0xFFDF }, -{ "F35", 0xFFE0 }, -{ "R15", 0xFFE0 }, -{ "Shift_L", 0xFFE1 }, -{ "Shift_R", 0xFFE2 }, -{ "Control_L", 0xFFE3 }, -{ "Control_R", 0xFFE4 }, -{ "Caps_Lock", 0xFFE5 }, -{ "Shift_Lock", 0xFFE6 }, -{ "Meta_L", 0xFFE7 }, -{ "Meta_R", 0xFFE8 }, -{ "Alt_L", 0xFFE9 }, -{ "Alt_R", 0xFFEA }, -{ "Super_L", 0xFFEB }, -{ "Super_R", 0xFFEC }, -{ "Hyper_L", 0xFFED }, -{ "Hyper_R", 0xFFEE }, -{ "space", 0x020 }, -{ "exclam", 0x021 }, -{ "quotedbl", 0x022 }, -{ "numbersign", 0x023 }, -{ "dollar", 0x024 }, -{ "percent", 0x025 }, -{ "ampersand", 0x026 }, -{ "quoteright", 0x027 }, -{ "parenleft", 0x028 }, -{ "parenright", 0x029 }, -{ "asterisk", 0x02a }, -{ "plus", 0x02b }, -{ "comma", 0x02c }, -{ "minus", 0x02d }, -{ "period", 0x02e }, -{ "slash", 0x02f }, -{ "0", 0x030 }, -{ "1", 0x031 }, -{ "2", 0x032 }, -{ "3", 0x033 }, -{ "4", 0x034 }, -{ "5", 0x035 }, -{ "6", 0x036 }, -{ "7", 0x037 }, -{ "8", 0x038 }, -{ "9", 0x039 }, -{ "colon", 0x03a }, -{ "semicolon", 0x03b }, -{ "less", 0x03c }, -{ "equal", 0x03d }, -{ "greater", 0x03e }, -{ "question", 0x03f }, -{ "at", 0x040 }, -{ "A", 0x041 }, -{ "B", 0x042 }, -{ "C", 0x043 }, -{ "D", 0x044 }, -{ "E", 0x045 }, -{ "F", 0x046 }, -{ "G", 0x047 }, -{ "H", 0x048 }, -{ "I", 0x049 }, -{ "J", 0x04a }, -{ "K", 0x04b }, -{ "L", 0x04c }, -{ "M", 0x04d }, -{ "N", 0x04e }, -{ "O", 0x04f }, -{ "P", 0x050 }, -{ "Q", 0x051 }, -{ "R", 0x052 }, -{ "S", 0x053 }, -{ "T", 0x054 }, -{ "U", 0x055 }, -{ "V", 0x056 }, -{ "W", 0x057 }, -{ "X", 0x058 }, -{ "Y", 0x059 }, -{ "Z", 0x05a }, -{ "bracketleft", 0x05b }, -{ "backslash", 0x05c }, -{ "bracketright", 0x05d }, -{ "asciicircum", 0x05e }, -{ "underscore", 0x05f }, -{ "quoteleft", 0x060 }, -{ "a", 0x061 }, -{ "b", 0x062 }, -{ "c", 0x063 }, -{ "d", 0x064 }, -{ "e", 0x065 }, -{ "f", 0x066 }, -{ "g", 0x067 }, -{ "h", 0x068 }, -{ "i", 0x069 }, -{ "j", 0x06a }, -{ "k", 0x06b }, -{ "l", 0x06c }, -{ "m", 0x06d }, -{ "n", 0x06e }, -{ "o", 0x06f }, -{ "p", 0x070 }, -{ "q", 0x071 }, -{ "r", 0x072 }, -{ "s", 0x073 }, -{ "t", 0x074 }, -{ "u", 0x075 }, -{ "v", 0x076 }, -{ "w", 0x077 }, -{ "x", 0x078 }, -{ "y", 0x079 }, -{ "z", 0x07a }, -{ "braceleft", 0x07b }, -{ "bar", 0x07c }, -{ "braceright", 0x07d }, -{ "asciitilde", 0x07e }, -{ "nobreakspace", 0x0a0 }, -{ "exclamdown", 0x0a1 }, -{ "cent", 0x0a2 }, -{ "sterling", 0x0a3 }, -{ "currency", 0x0a4 }, -{ "yen", 0x0a5 }, -{ "brokenbar", 0x0a6 }, -{ "section", 0x0a7 }, -{ "diaeresis", 0x0a8 }, -{ "copyright", 0x0a9 }, -{ "ordfeminine", 0x0aa }, -{ "guillemotleft", 0x0ab }, -{ "notsign", 0x0ac }, -{ "hyphen", 0x0ad }, -{ "registered", 0x0ae }, -{ "macron", 0x0af }, -{ "degree", 0x0b0 }, -{ "plusminus", 0x0b1 }, -{ "twosuperior", 0x0b2 }, -{ "threesuperior", 0x0b3 }, -{ "acute", 0x0b4 }, -{ "mu", 0x0b5 }, -{ "paragraph", 0x0b6 }, -{ "periodcentered", 0x0b7 }, -{ "cedilla", 0x0b8 }, -{ "onesuperior", 0x0b9 }, -{ "masculine", 0x0ba }, -{ "guillemotright", 0x0bb }, -{ "onequarter", 0x0bc }, -{ "onehalf", 0x0bd }, -{ "threequarters", 0x0be }, -{ "questiondown", 0x0bf }, -{ "Agrave", 0x0c0 }, -{ "Aacute", 0x0c1 }, -{ "Acircumflex", 0x0c2 }, -{ "Atilde", 0x0c3 }, -{ "Adiaeresis", 0x0c4 }, -{ "Aring", 0x0c5 }, -{ "AE", 0x0c6 }, -{ "Ccedilla", 0x0c7 }, -{ "Egrave", 0x0c8 }, -{ "Eacute", 0x0c9 }, -{ "Ecircumflex", 0x0ca }, -{ "Ediaeresis", 0x0cb }, -{ "Igrave", 0x0cc }, -{ "Iacute", 0x0cd }, -{ "Icircumflex", 0x0ce }, -{ "Idiaeresis", 0x0cf }, -{ "Eth", 0x0d0 }, -{ "Ntilde", 0x0d1 }, -{ "Ograve", 0x0d2 }, -{ "Oacute", 0x0d3 }, -{ "Ocircumflex", 0x0d4 }, -{ "Otilde", 0x0d5 }, -{ "Odiaeresis", 0x0d6 }, -{ "multiply", 0x0d7 }, -{ "Ooblique", 0x0d8 }, -{ "Ugrave", 0x0d9 }, -{ "Uacute", 0x0da }, -{ "Ucircumflex", 0x0db }, -{ "Udiaeresis", 0x0dc }, -{ "Yacute", 0x0dd }, -{ "Thorn", 0x0de }, -{ "ssharp", 0x0df }, -{ "agrave", 0x0e0 }, -{ "aacute", 0x0e1 }, -{ "acircumflex", 0x0e2 }, -{ "atilde", 0x0e3 }, -{ "adiaeresis", 0x0e4 }, -{ "aring", 0x0e5 }, -{ "ae", 0x0e6 }, -{ "ccedilla", 0x0e7 }, -{ "egrave", 0x0e8 }, -{ "eacute", 0x0e9 }, -{ "ecircumflex", 0x0ea }, -{ "ediaeresis", 0x0eb }, -{ "igrave", 0x0ec }, -{ "iacute", 0x0ed }, -{ "icircumflex", 0x0ee }, -{ "idiaeresis", 0x0ef }, -{ "eth", 0x0f0 }, -{ "ntilde", 0x0f1 }, -{ "ograve", 0x0f2 }, -{ "oacute", 0x0f3 }, -{ "ocircumflex", 0x0f4 }, -{ "otilde", 0x0f5 }, -{ "odiaeresis", 0x0f6 }, -{ "division", 0x0f7 }, -{ "oslash", 0x0f8 }, -{ "ugrave", 0x0f9 }, -{ "uacute", 0x0fa }, -{ "ucircumflex", 0x0fb }, -{ "udiaeresis", 0x0fc }, -{ "yacute", 0x0fd }, -{ "thorn", 0x0fe }, -{ "ydiaeresis", 0x0ff }, -{ "Aogonek", 0x1a1 }, -{ "breve", 0x1a2 }, -{ "Lstroke", 0x1a3 }, -{ "Lcaron", 0x1a5 }, -{ "Sacute", 0x1a6 }, -{ "Scaron", 0x1a9 }, -{ "Scedilla", 0x1aa }, -{ "Tcaron", 0x1ab }, -{ "Zacute", 0x1ac }, -{ "Zcaron", 0x1ae }, -{ "Zabovedot", 0x1af }, -{ "aogonek", 0x1b1 }, -{ "ogonek", 0x1b2 }, -{ "lstroke", 0x1b3 }, -{ "lcaron", 0x1b5 }, -{ "sacute", 0x1b6 }, -{ "caron", 0x1b7 }, -{ "scaron", 0x1b9 }, -{ "scedilla", 0x1ba }, -{ "tcaron", 0x1bb }, -{ "zacute", 0x1bc }, -{ "doubleacute", 0x1bd }, -{ "zcaron", 0x1be }, -{ "zabovedot", 0x1bf }, -{ "Racute", 0x1c0 }, -{ "Abreve", 0x1c3 }, -{ "Cacute", 0x1c6 }, -{ "Ccaron", 0x1c8 }, -{ "Eogonek", 0x1ca }, -{ "Ecaron", 0x1cc }, -{ "Dcaron", 0x1cf }, -{ "Nacute", 0x1d1 }, -{ "Ncaron", 0x1d2 }, -{ "Odoubleacute", 0x1d5 }, -{ "Rcaron", 0x1d8 }, -{ "Uring", 0x1d9 }, -{ "Udoubleacute", 0x1db }, -{ "Tcedilla", 0x1de }, -{ "racute", 0x1e0 }, -{ "abreve", 0x1e3 }, -{ "cacute", 0x1e6 }, -{ "ccaron", 0x1e8 }, -{ "eogonek", 0x1ea }, -{ "ecaron", 0x1ec }, -{ "dcaron", 0x1ef }, -{ "nacute", 0x1f1 }, -{ "ncaron", 0x1f2 }, -{ "odoubleacute", 0x1f5 }, -{ "udoubleacute", 0x1fb }, -{ "rcaron", 0x1f8 }, -{ "uring", 0x1f9 }, -{ "tcedilla", 0x1fe }, -{ "abovedot", 0x1ff }, -{ "Hstroke", 0x2a1 }, -{ "Hcircumflex", 0x2a6 }, -{ "Iabovedot", 0x2a9 }, -{ "Gbreve", 0x2ab }, -{ "Jcircumflex", 0x2ac }, -{ "hstroke", 0x2b1 }, -{ "hcircumflex", 0x2b6 }, -{ "idotless", 0x2b9 }, -{ "gbreve", 0x2bb }, -{ "jcircumflex", 0x2bc }, -{ "Cabovedot", 0x2c5 }, -{ "Ccircumflex", 0x2c6 }, -{ "Gabovedot", 0x2d5 }, -{ "Gcircumflex", 0x2d8 }, -{ "Ubreve", 0x2dd }, -{ "Scircumflex", 0x2de }, -{ "cabovedot", 0x2e5 }, -{ "ccircumflex", 0x2e6 }, -{ "gabovedot", 0x2f5 }, -{ "gcircumflex", 0x2f8 }, -{ "ubreve", 0x2fd }, -{ "scircumflex", 0x2fe }, -{ "kappa", 0x3a2 }, -{ "Rcedilla", 0x3a3 }, -{ "Itilde", 0x3a5 }, -{ "Lcedilla", 0x3a6 }, -{ "Emacron", 0x3aa }, -{ "Gcedilla", 0x3ab }, -{ "Tslash", 0x3ac }, -{ "rcedilla", 0x3b3 }, -{ "itilde", 0x3b5 }, -{ "lcedilla", 0x3b6 }, -{ "emacron", 0x3ba }, -{ "gacute", 0x3bb }, -{ "tslash", 0x3bc }, -{ "ENG", 0x3bd }, -{ "eng", 0x3bf }, -{ "Amacron", 0x3c0 }, -{ "Iogonek", 0x3c7 }, -{ "Eabovedot", 0x3cc }, -{ "Imacron", 0x3cf }, -{ "Ncedilla", 0x3d1 }, -{ "Omacron", 0x3d2 }, -{ "Kcedilla", 0x3d3 }, -{ "Uogonek", 0x3d9 }, -{ "Utilde", 0x3dd }, -{ "Umacron", 0x3de }, -{ "amacron", 0x3e0 }, -{ "iogonek", 0x3e7 }, -{ "eabovedot", 0x3ec }, -{ "imacron", 0x3ef }, -{ "ncedilla", 0x3f1 }, -{ "omacron", 0x3f2 }, -{ "kcedilla", 0x3f3 }, -{ "uogonek", 0x3f9 }, -{ "utilde", 0x3fd }, -{ "umacron", 0x3fe }, -{ "overline", 0x47e }, -{ "kana_fullstop", 0x4a1 }, -{ "kana_openingbracket", 0x4a2 }, -{ "kana_closingbracket", 0x4a3 }, -{ "kana_comma", 0x4a4 }, -{ "kana_middledot", 0x4a5 }, -{ "kana_WO", 0x4a6 }, -{ "kana_a", 0x4a7 }, -{ "kana_i", 0x4a8 }, -{ "kana_u", 0x4a9 }, -{ "kana_e", 0x4aa }, -{ "kana_o", 0x4ab }, -{ "kana_ya", 0x4ac }, -{ "kana_yu", 0x4ad }, -{ "kana_yo", 0x4ae }, -{ "kana_tu", 0x4af }, -{ "prolongedsound", 0x4b0 }, -{ "kana_A", 0x4b1 }, -{ "kana_I", 0x4b2 }, -{ "kana_U", 0x4b3 }, -{ "kana_E", 0x4b4 }, -{ "kana_O", 0x4b5 }, -{ "kana_KA", 0x4b6 }, -{ "kana_KI", 0x4b7 }, -{ "kana_KU", 0x4b8 }, -{ "kana_KE", 0x4b9 }, -{ "kana_KO", 0x4ba }, -{ "kana_SA", 0x4bb }, -{ "kana_SHI", 0x4bc }, -{ "kana_SU", 0x4bd }, -{ "kana_SE", 0x4be }, -{ "kana_SO", 0x4bf }, -{ "kana_TA", 0x4c0 }, -{ "kana_TI", 0x4c1 }, -{ "kana_TU", 0x4c2 }, -{ "kana_TE", 0x4c3 }, -{ "kana_TO", 0x4c4 }, -{ "kana_NA", 0x4c5 }, -{ "kana_NI", 0x4c6 }, -{ "kana_NU", 0x4c7 }, -{ "kana_NE", 0x4c8 }, -{ "kana_NO", 0x4c9 }, -{ "kana_HA", 0x4ca }, -{ "kana_HI", 0x4cb }, -{ "kana_HU", 0x4cc }, -{ "kana_HE", 0x4cd }, -{ "kana_HO", 0x4ce }, -{ "kana_MA", 0x4cf }, -{ "kana_MI", 0x4d0 }, -{ "kana_MU", 0x4d1 }, -{ "kana_ME", 0x4d2 }, -{ "kana_MO", 0x4d3 }, -{ "kana_YA", 0x4d4 }, -{ "kana_YU", 0x4d5 }, -{ "kana_YO", 0x4d6 }, -{ "kana_RA", 0x4d7 }, -{ "kana_RI", 0x4d8 }, -{ "kana_RU", 0x4d9 }, -{ "kana_RE", 0x4da }, -{ "kana_RO", 0x4db }, -{ "kana_WA", 0x4dc }, -{ "kana_N", 0x4dd }, -{ "voicedsound", 0x4de }, -{ "semivoicedsound", 0x4df }, -{ "kana_switch", 0xFF7E }, -{ "Arabic_comma", 0x5ac }, -{ "Arabic_semicolon", 0x5bb }, -{ "Arabic_question_mark", 0x5bf }, -{ "Arabic_hamza", 0x5c1 }, -{ "Arabic_maddaonalef", 0x5c2 }, -{ "Arabic_hamzaonalef", 0x5c3 }, -{ "Arabic_hamzaonwaw", 0x5c4 }, -{ "Arabic_hamzaunderalef", 0x5c5 }, -{ "Arabic_hamzaonyeh", 0x5c6 }, -{ "Arabic_alef", 0x5c7 }, -{ "Arabic_beh", 0x5c8 }, -{ "Arabic_tehmarbuta", 0x5c9 }, -{ "Arabic_teh", 0x5ca }, -{ "Arabic_theh", 0x5cb }, -{ "Arabic_jeem", 0x5cc }, -{ "Arabic_hah", 0x5cd }, -{ "Arabic_khah", 0x5ce }, -{ "Arabic_dal", 0x5cf }, -{ "Arabic_thal", 0x5d0 }, -{ "Arabic_ra", 0x5d1 }, -{ "Arabic_zain", 0x5d2 }, -{ "Arabic_seen", 0x5d3 }, -{ "Arabic_sheen", 0x5d4 }, -{ "Arabic_sad", 0x5d5 }, -{ "Arabic_dad", 0x5d6 }, -{ "Arabic_tah", 0x5d7 }, -{ "Arabic_zah", 0x5d8 }, -{ "Arabic_ain", 0x5d9 }, -{ "Arabic_ghain", 0x5da }, -{ "Arabic_tatweel", 0x5e0 }, -{ "Arabic_feh", 0x5e1 }, -{ "Arabic_qaf", 0x5e2 }, -{ "Arabic_kaf", 0x5e3 }, -{ "Arabic_lam", 0x5e4 }, -{ "Arabic_meem", 0x5e5 }, -{ "Arabic_noon", 0x5e6 }, -{ "Arabic_heh", 0x5e7 }, -{ "Arabic_waw", 0x5e8 }, -{ "Arabic_alefmaksura", 0x5e9 }, -{ "Arabic_yeh", 0x5ea }, -{ "Arabic_fathatan", 0x5eb }, -{ "Arabic_dammatan", 0x5ec }, -{ "Arabic_kasratan", 0x5ed }, -{ "Arabic_fatha", 0x5ee }, -{ "Arabic_damma", 0x5ef }, -{ "Arabic_kasra", 0x5f0 }, -{ "Arabic_shadda", 0x5f1 }, -{ "Arabic_sukun", 0x5f2 }, -{ "Arabic_switch", 0xFF7E }, -{ "Serbian_dje", 0x6a1 }, -{ "Macedonia_gje", 0x6a2 }, -{ "Cyrillic_io", 0x6a3 }, -{ "Ukranian_je", 0x6a4 }, -{ "Macedonia_dse", 0x6a5 }, -{ "Ukranian_i", 0x6a6 }, -{ "Ukranian_yi", 0x6a7 }, -{ "Serbian_je", 0x6a8 }, -{ "Serbian_lje", 0x6a9 }, -{ "Serbian_nje", 0x6aa }, -{ "Serbian_tshe", 0x6ab }, -{ "Macedonia_kje", 0x6ac }, -{ "Byelorussian_shortu", 0x6ae }, -{ "Serbian_dze", 0x6af }, -{ "numerosign", 0x6b0 }, -{ "Serbian_DJE", 0x6b1 }, -{ "Macedonia_GJE", 0x6b2 }, -{ "Cyrillic_IO", 0x6b3 }, -{ "Ukranian_JE", 0x6b4 }, -{ "Macedonia_DSE", 0x6b5 }, -{ "Ukranian_I", 0x6b6 }, -{ "Ukranian_YI", 0x6b7 }, -{ "Serbian_JE", 0x6b8 }, -{ "Serbian_LJE", 0x6b9 }, -{ "Serbian_NJE", 0x6ba }, -{ "Serbian_TSHE", 0x6bb }, -{ "Macedonia_KJE", 0x6bc }, -{ "Byelorussian_SHORTU", 0x6be }, -{ "Serbian_DZE", 0x6bf }, -{ "Cyrillic_yu", 0x6c0 }, -{ "Cyrillic_a", 0x6c1 }, -{ "Cyrillic_be", 0x6c2 }, -{ "Cyrillic_tse", 0x6c3 }, -{ "Cyrillic_de", 0x6c4 }, -{ "Cyrillic_ie", 0x6c5 }, -{ "Cyrillic_ef", 0x6c6 }, -{ "Cyrillic_ghe", 0x6c7 }, -{ "Cyrillic_ha", 0x6c8 }, -{ "Cyrillic_i", 0x6c9 }, -{ "Cyrillic_shorti", 0x6ca }, -{ "Cyrillic_ka", 0x6cb }, -{ "Cyrillic_el", 0x6cc }, -{ "Cyrillic_em", 0x6cd }, -{ "Cyrillic_en", 0x6ce }, -{ "Cyrillic_o", 0x6cf }, -{ "Cyrillic_pe", 0x6d0 }, -{ "Cyrillic_ya", 0x6d1 }, -{ "Cyrillic_er", 0x6d2 }, -{ "Cyrillic_es", 0x6d3 }, -{ "Cyrillic_te", 0x6d4 }, -{ "Cyrillic_u", 0x6d5 }, -{ "Cyrillic_zhe", 0x6d6 }, -{ "Cyrillic_ve", 0x6d7 }, -{ "Cyrillic_softsign", 0x6d8 }, -{ "Cyrillic_yeru", 0x6d9 }, -{ "Cyrillic_ze", 0x6da }, -{ "Cyrillic_sha", 0x6db }, -{ "Cyrillic_e", 0x6dc }, -{ "Cyrillic_shcha", 0x6dd }, -{ "Cyrillic_che", 0x6de }, -{ "Cyrillic_hardsign", 0x6df }, -{ "Cyrillic_YU", 0x6e0 }, -{ "Cyrillic_A", 0x6e1 }, -{ "Cyrillic_BE", 0x6e2 }, -{ "Cyrillic_TSE", 0x6e3 }, -{ "Cyrillic_DE", 0x6e4 }, -{ "Cyrillic_IE", 0x6e5 }, -{ "Cyrillic_EF", 0x6e6 }, -{ "Cyrillic_GHE", 0x6e7 }, -{ "Cyrillic_HA", 0x6e8 }, -{ "Cyrillic_I", 0x6e9 }, -{ "Cyrillic_SHORTI", 0x6ea }, -{ "Cyrillic_KA", 0x6eb }, -{ "Cyrillic_EL", 0x6ec }, -{ "Cyrillic_EM", 0x6ed }, -{ "Cyrillic_EN", 0x6ee }, -{ "Cyrillic_O", 0x6ef }, -{ "Cyrillic_PE", 0x6f0 }, -{ "Cyrillic_YA", 0x6f1 }, -{ "Cyrillic_ER", 0x6f2 }, -{ "Cyrillic_ES", 0x6f3 }, -{ "Cyrillic_TE", 0x6f4 }, -{ "Cyrillic_U", 0x6f5 }, -{ "Cyrillic_ZHE", 0x6f6 }, -{ "Cyrillic_VE", 0x6f7 }, -{ "Cyrillic_SOFTSIGN", 0x6f8 }, -{ "Cyrillic_YERU", 0x6f9 }, -{ "Cyrillic_ZE", 0x6fa }, -{ "Cyrillic_SHA", 0x6fb }, -{ "Cyrillic_E", 0x6fc }, -{ "Cyrillic_SHCHA", 0x6fd }, -{ "Cyrillic_CHE", 0x6fe }, -{ "Cyrillic_HARDSIGN", 0x6ff }, -{ "Greek_ALPHAaccent", 0x7a1 }, -{ "Greek_EPSILONaccent", 0x7a2 }, -{ "Greek_ETAaccent", 0x7a3 }, -{ "Greek_IOTAaccent", 0x7a4 }, -{ "Greek_IOTAdiaeresis", 0x7a5 }, -{ "Greek_IOTAaccentdiaeresis", 0x7a6 }, -{ "Greek_OMICRONaccent", 0x7a7 }, -{ "Greek_UPSILONaccent", 0x7a8 }, -{ "Greek_UPSILONdieresis", 0x7a9 }, -{ "Greek_UPSILONaccentdieresis", 0x7aa }, -{ "Greek_OMEGAaccent", 0x7ab }, -{ "Greek_alphaaccent", 0x7b1 }, -{ "Greek_epsilonaccent", 0x7b2 }, -{ "Greek_etaaccent", 0x7b3 }, -{ "Greek_iotaaccent", 0x7b4 }, -{ "Greek_iotadieresis", 0x7b5 }, -{ "Greek_iotaaccentdieresis", 0x7b6 }, -{ "Greek_omicronaccent", 0x7b7 }, -{ "Greek_upsilonaccent", 0x7b8 }, -{ "Greek_upsilondieresis", 0x7b9 }, -{ "Greek_upsilonaccentdieresis", 0x7ba }, -{ "Greek_omegaaccent", 0x7bb }, -{ "Greek_ALPHA", 0x7c1 }, -{ "Greek_BETA", 0x7c2 }, -{ "Greek_GAMMA", 0x7c3 }, -{ "Greek_DELTA", 0x7c4 }, -{ "Greek_EPSILON", 0x7c5 }, -{ "Greek_ZETA", 0x7c6 }, -{ "Greek_ETA", 0x7c7 }, -{ "Greek_THETA", 0x7c8 }, -{ "Greek_IOTA", 0x7c9 }, -{ "Greek_KAPPA", 0x7ca }, -{ "Greek_LAMBDA", 0x7cb }, -{ "Greek_MU", 0x7cc }, -{ "Greek_NU", 0x7cd }, -{ "Greek_XI", 0x7ce }, -{ "Greek_OMICRON", 0x7cf }, -{ "Greek_PI", 0x7d0 }, -{ "Greek_RHO", 0x7d1 }, -{ "Greek_SIGMA", 0x7d2 }, -{ "Greek_TAU", 0x7d4 }, -{ "Greek_UPSILON", 0x7d5 }, -{ "Greek_PHI", 0x7d6 }, -{ "Greek_CHI", 0x7d7 }, -{ "Greek_PSI", 0x7d8 }, -{ "Greek_OMEGA", 0x7d9 }, -{ "Greek_alpha", 0x7e1 }, -{ "Greek_beta", 0x7e2 }, -{ "Greek_gamma", 0x7e3 }, -{ "Greek_delta", 0x7e4 }, -{ "Greek_epsilon", 0x7e5 }, -{ "Greek_zeta", 0x7e6 }, -{ "Greek_eta", 0x7e7 }, -{ "Greek_theta", 0x7e8 }, -{ "Greek_iota", 0x7e9 }, -{ "Greek_kappa", 0x7ea }, -{ "Greek_lambda", 0x7eb }, -{ "Greek_mu", 0x7ec }, -{ "Greek_nu", 0x7ed }, -{ "Greek_xi", 0x7ee }, -{ "Greek_omicron", 0x7ef }, -{ "Greek_pi", 0x7f0 }, -{ "Greek_rho", 0x7f1 }, -{ "Greek_sigma", 0x7f2 }, -{ "Greek_finalsmallsigma", 0x7f3 }, -{ "Greek_tau", 0x7f4 }, -{ "Greek_upsilon", 0x7f5 }, -{ "Greek_phi", 0x7f6 }, -{ "Greek_chi", 0x7f7 }, -{ "Greek_psi", 0x7f8 }, -{ "Greek_omega", 0x7f9 }, -{ "Greek_switch", 0xFF7E }, -{ "leftradical", 0x8a1 }, -{ "topleftradical", 0x8a2 }, -{ "horizconnector", 0x8a3 }, -{ "topintegral", 0x8a4 }, -{ "botintegral", 0x8a5 }, -{ "vertconnector", 0x8a6 }, -{ "topleftsqbracket", 0x8a7 }, -{ "botleftsqbracket", 0x8a8 }, -{ "toprightsqbracket", 0x8a9 }, -{ "botrightsqbracket", 0x8aa }, -{ "topleftparens", 0x8ab }, -{ "botleftparens", 0x8ac }, -{ "toprightparens", 0x8ad }, -{ "botrightparens", 0x8ae }, -{ "leftmiddlecurlybrace", 0x8af }, -{ "rightmiddlecurlybrace", 0x8b0 }, -{ "topleftsummation", 0x8b1 }, -{ "botleftsummation", 0x8b2 }, -{ "topvertsummationconnector", 0x8b3 }, -{ "botvertsummationconnector", 0x8b4 }, -{ "toprightsummation", 0x8b5 }, -{ "botrightsummation", 0x8b6 }, -{ "rightmiddlesummation", 0x8b7 }, -{ "lessthanequal", 0x8bc }, -{ "notequal", 0x8bd }, -{ "greaterthanequal", 0x8be }, -{ "integral", 0x8bf }, -{ "therefore", 0x8c0 }, -{ "variation", 0x8c1 }, -{ "infinity", 0x8c2 }, -{ "nabla", 0x8c5 }, -{ "approximate", 0x8c8 }, -{ "similarequal", 0x8c9 }, -{ "ifonlyif", 0x8cd }, -{ "implies", 0x8ce }, -{ "identical", 0x8cf }, -{ "radical", 0x8d6 }, -{ "includedin", 0x8da }, -{ "includes", 0x8db }, -{ "intersection", 0x8dc }, -{ "union", 0x8dd }, -{ "logicaland", 0x8de }, -{ "logicalor", 0x8df }, -{ "partialderivative", 0x8ef }, -{ "function", 0x8f6 }, -{ "leftarrow", 0x8fb }, -{ "uparrow", 0x8fc }, -{ "rightarrow", 0x8fd }, -{ "downarrow", 0x8fe }, -{ "blank", 0x9df }, -{ "soliddiamond", 0x9e0 }, -{ "checkerboard", 0x9e1 }, -{ "ht", 0x9e2 }, -{ "ff", 0x9e3 }, -{ "cr", 0x9e4 }, -{ "lf", 0x9e5 }, -{ "nl", 0x9e8 }, -{ "vt", 0x9e9 }, -{ "lowrightcorner", 0x9ea }, -{ "uprightcorner", 0x9eb }, -{ "upleftcorner", 0x9ec }, -{ "lowleftcorner", 0x9ed }, -{ "crossinglines", 0x9ee }, -{ "horizlinescan1", 0x9ef }, -{ "horizlinescan3", 0x9f0 }, -{ "horizlinescan5", 0x9f1 }, -{ "horizlinescan7", 0x9f2 }, -{ "horizlinescan9", 0x9f3 }, -{ "leftt", 0x9f4 }, -{ "rightt", 0x9f5 }, -{ "bott", 0x9f6 }, -{ "topt", 0x9f7 }, -{ "vertbar", 0x9f8 }, -{ "emspace", 0xaa1 }, -{ "enspace", 0xaa2 }, -{ "em3space", 0xaa3 }, -{ "em4space", 0xaa4 }, -{ "digitspace", 0xaa5 }, -{ "punctspace", 0xaa6 }, -{ "thinspace", 0xaa7 }, -{ "hairspace", 0xaa8 }, -{ "emdash", 0xaa9 }, -{ "endash", 0xaaa }, -{ "signifblank", 0xaac }, -{ "ellipsis", 0xaae }, -{ "doubbaselinedot", 0xaaf }, -{ "onethird", 0xab0 }, -{ "twothirds", 0xab1 }, -{ "onefifth", 0xab2 }, -{ "twofifths", 0xab3 }, -{ "threefifths", 0xab4 }, -{ "fourfifths", 0xab5 }, -{ "onesixth", 0xab6 }, -{ "fivesixths", 0xab7 }, -{ "careof", 0xab8 }, -{ "figdash", 0xabb }, -{ "leftanglebracket", 0xabc }, -{ "decimalpoint", 0xabd }, -{ "rightanglebracket", 0xabe }, -{ "marker", 0xabf }, -{ "oneeighth", 0xac3 }, -{ "threeeighths", 0xac4 }, -{ "fiveeighths", 0xac5 }, -{ "seveneighths", 0xac6 }, -{ "trademark", 0xac9 }, -{ "signaturemark", 0xaca }, -{ "trademarkincircle", 0xacb }, -{ "leftopentriangle", 0xacc }, -{ "rightopentriangle", 0xacd }, -{ "emopencircle", 0xace }, -{ "emopenrectangle", 0xacf }, -{ "leftsinglequotemark", 0xad0 }, -{ "rightsinglequotemark", 0xad1 }, -{ "leftdoublequotemark", 0xad2 }, -{ "rightdoublequotemark", 0xad3 }, -{ "prescription", 0xad4 }, -{ "minutes", 0xad6 }, -{ "seconds", 0xad7 }, -{ "latincross", 0xad9 }, -{ "hexagram", 0xada }, -{ "filledrectbullet", 0xadb }, -{ "filledlefttribullet", 0xadc }, -{ "filledrighttribullet", 0xadd }, -{ "emfilledcircle", 0xade }, -{ "emfilledrect", 0xadf }, -{ "enopencircbullet", 0xae0 }, -{ "enopensquarebullet", 0xae1 }, -{ "openrectbullet", 0xae2 }, -{ "opentribulletup", 0xae3 }, -{ "opentribulletdown", 0xae4 }, -{ "openstar", 0xae5 }, -{ "enfilledcircbullet", 0xae6 }, -{ "enfilledsqbullet", 0xae7 }, -{ "filledtribulletup", 0xae8 }, -{ "filledtribulletdown", 0xae9 }, -{ "leftpointer", 0xaea }, -{ "rightpointer", 0xaeb }, -{ "club", 0xaec }, -{ "diamond", 0xaed }, -{ "heart", 0xaee }, -{ "maltesecross", 0xaf0 }, -{ "dagger", 0xaf1 }, -{ "doubledagger", 0xaf2 }, -{ "checkmark", 0xaf3 }, -{ "ballotcross", 0xaf4 }, -{ "musicalsharp", 0xaf5 }, -{ "musicalflat", 0xaf6 }, -{ "malesymbol", 0xaf7 }, -{ "femalesymbol", 0xaf8 }, -{ "telephone", 0xaf9 }, -{ "telephonerecorder", 0xafa }, -{ "phonographcopyright", 0xafb }, -{ "caret", 0xafc }, -{ "singlelowquotemark", 0xafd }, -{ "doublelowquotemark", 0xafe }, -{ "cursor", 0xaff }, -{ "leftcaret", 0xba3 }, -{ "rightcaret", 0xba6 }, -{ "downcaret", 0xba8 }, -{ "upcaret", 0xba9 }, -{ "overbar", 0xbc0 }, -{ "downtack", 0xbc2 }, -{ "upshoe", 0xbc3 }, -{ "downstile", 0xbc4 }, -{ "underbar", 0xbc6 }, -{ "jot", 0xbca }, -{ "quad", 0xbcc }, -{ "uptack", 0xbce }, -{ "circle", 0xbcf }, -{ "upstile", 0xbd3 }, -{ "downshoe", 0xbd6 }, -{ "rightshoe", 0xbd8 }, -{ "leftshoe", 0xbda }, -{ "lefttack", 0xbdc }, -{ "righttack", 0xbfc }, -{ "hebrew_aleph", 0xce0 }, -{ "hebrew_beth", 0xce1 }, -{ "hebrew_gimmel", 0xce2 }, -{ "hebrew_daleth", 0xce3 }, -{ "hebrew_he", 0xce4 }, -{ "hebrew_waw", 0xce5 }, -{ "hebrew_zayin", 0xce6 }, -{ "hebrew_het", 0xce7 }, -{ "hebrew_teth", 0xce8 }, -{ "hebrew_yod", 0xce9 }, -{ "hebrew_finalkaph", 0xcea }, -{ "hebrew_kaph", 0xceb }, -{ "hebrew_lamed", 0xcec }, -{ "hebrew_finalmem", 0xced }, -{ "hebrew_mem", 0xcee }, -{ "hebrew_finalnun", 0xcef }, -{ "hebrew_nun", 0xcf0 }, -{ "hebrew_samekh", 0xcf1 }, -{ "hebrew_ayin", 0xcf2 }, -{ "hebrew_finalpe", 0xcf3 }, -{ "hebrew_pe", 0xcf4 }, -{ "hebrew_finalzadi", 0xcf5 }, -{ "hebrew_zadi", 0xcf6 }, -{ "hebrew_kuf", 0xcf7 }, -{ "hebrew_resh", 0xcf8 }, -{ "hebrew_shin", 0xcf9 }, -{ "hebrew_taf", 0xcfa }, -{ "Hebrew_switch", 0xFF7E }, -{ "ISO_Left_Tab", 0xFE20 }, - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/mkVFunc b/Master/tlpkg/tlperl/lib/Tk/pTk/mkVFunc deleted file mode 100644 index e10a458858a..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/mkVFunc +++ /dev/null @@ -1,433 +0,0 @@ -#!/usr/bin/perl -w -use strict; - - -my %Ignore; -my %Ignored; -my %WinIgnore; -my %Exclude; - -my $oops = 0; - -use Getopt::Std; -my %opt; -getopts('mt',\%opt); -my @Files; - -sub openRO -{ - my ($fh,$file) = @_; - if (-f $file && !-w $file) - { - chmod(0666,$file) || warn "Cannot change permissions on $file:$!"; - } - open($fh,">","$file~") || return 0; - push(@Files,$file); - return 1; -} - -END - { - while (@Files) - { - my $file = pop(@Files); - if (-f $file) - { - chmod(0444,"$file~") || warn "Cannot change permissions on $file:$!"; - if (!rename("$file~",$file)) - { - warn "Cannot rename $file to $file~ ($!), trying again with deleting $file before..."; - unlink($file) || warn "Cannot delete $file:$!"; - rename("$file~",$file) || warn "Cannot rename $file~ to $file ($!), expect major problems now..."; - } - } - } - } - -my $win_arch = shift; -die "Unknown \$win_arch" unless $win_arch eq 'open32' - or $win_arch eq 'pm' - or $win_arch eq 'x' - or $win_arch eq 'MSWin32'; -my $xexcl = <<EOM; -#if (defined(__WIN32__) || defined(__PM__)) && !defined(DO_X_EXCLUDE) -# define DO_X_EXCLUDE -#endif -EOM - -sub Ignore -{ - my $cfile = shift; - if (open(C,"<$cfile")) - { - warn "Ignoring from $cfile\n"; - while (<C>) - { - if (/^([A-Za-z][A-Za-z0-9_]*)/) - { - $Ignore{$1} = $cfile; - } - } - close(C); - } - else - { - warn "Cannot open $cfile:$!"; - } -} - -sub WinIgnore -{ - my $cfile = shift; - if (open(C,"<$cfile")) - { - warn "WinIgnoring from $cfile\n"; - while (<C>) - { - if (/^([A-Za-z][A-Za-z0-9_]*)/) - { - $WinIgnore{$1} = $cfile; - } - } - close(C); - } - else - { - warn "Cannot open $cfile:$!"; - } -} - -sub Exclude -{ - my $cfile = shift; - if (open(C,"<$cfile")) - { - while (<C>) - { - if (/{\s*\"[^\"]+\"\s*,\s*(\w+)\s*}/) - { - $Exclude{$1} = $cfile; - } - } - close(C); - } - else - { - warn "Cannot open $cfile:$!"; - } -} - -sub Vfunc -{ - my $hfile = shift; - my %VFunc = (); - my %VVar = (); - my %VError= (); - my $errors = 0; - my @ifdef = (''); - open(H,"<$hfile") || die "Cannot open $hfile:$!"; - my $gard = "\U$hfile"; - $gard =~ s/\..*$//; - $gard =~ s#/#_#g; - - while (<H>) - { - if (/^\s*#\s*if/) - { - s#//.*##; - s#/\*.*?\*/# #g; - s/\s+$//; - s/^\s*#\s*ifndef\s+_$gard\b.*//; - s/^\s*#\s*ifndef\s+_\w+_H_\b.*//; - warn "'$gard' in '$_'" if /$gard/; - push(@ifdef,$_); - } - elsif (/^\s*#\s*else/) - { - s/\s+$//; - #warn "$hfile:$.:$_\n"; - $ifdef[-1] = $_; - } - elsif (/^\s*#\s*endif\b/) - { - pop(@ifdef); - } - elsif (/^\s*(MOVEXT|COREXT|EXTERN|extern)\s*(.*?)\s*(\w+)\s+_ANSI_ARGS_\s*\((TCL_VARARGS)?\(/) - { - my ($type,$name,$op) = ($2,$3,$4); - if ($1 eq 'MOVEXT' || $1 eq 'COREXT') - { - warn "$1 $name\n"; - $oops++; - $Ignore{$name} = $hfile; - } - $op = "" unless (defined $op); - my $defn = "VFUNC($type,$name,V_$name,_ANSI_ARGS_($op("; - $_ = $'; - until (/\)\);\s*$/) - { - $defn .= $_; - $_ = <H>; - if (/^\S/) - { - chomp($_); - die $_; - } - } - s/\)\);\s*$/\)\)\)\n/; - $defn .= $_; - die "$hfile:$.:$ifdef[-1]\n" if $ifdef[-1] =~ /\belse\b/; - if (exists($VFunc{$name}{$ifdef[-1]}) && $defn ne $VFunc{$name}{$ifdef[-1]}) - { - warn "Function (@ifdef) $name is $defn and $VFunc{$name}{$ifdef[-1]}"; - $errors++; - } - else - { - $VFunc{$name}{$ifdef[-1]} = $defn; - } - } - elsif (/^\s*(MOVEXT|COREXT|EXTERN|extern)\s*(.*?)\s*(\w+)\s*;/) - { - my ($type,$name) = ($2,$3); - if ($1 eq 'MOVEXT' || $1 eq 'COREXT') - { - warn "$1 $name\n"; - $oops++; - $Ignore{$name} = $hfile; - } - my $defn = "VVAR($type,$name,V_$name)\n"; - die "$hfile:$.:$ifdef[-1]\n" if $ifdef[-1] =~ /\belse\b/; - if (exists $VVar{$name}{$ifdef[-1]}) - { - warn "Variable (@ifdef) $name is $defn and $VVar{$name}{$ifdef[-1]}"; - $errors++; - } - else - { - $VVar{$name}{$ifdef[-1]} = $defn; - } - } - elsif (/\b(EXTERN|extern)\s+[\w_]+\s+[\w_]+\[\];$/) - { - - } - elsif (/\b(EXTERN|extern)\s*"C"\s*\{\s*$/) - { - - } - elsif (/\b(EXTERN|extern)\b/) - { - warn "$hfile:$.: $_" unless (/^\s*\#\s*define/); - } - } - close(H); - die "Multiple definitions\n" if $errors; - - - if (keys %VFunc || keys %VVar) - { - my $name = "\u\L${gard}\UV"; - my $fdef = $hfile; - $fdef =~ s/\..*$/.t/; - my $mdef = $hfile; - $mdef =~ s/\..*$/.m/; - - $mdef .= 'dmy' unless $opt{'m'}; - $fdef .= 'dmy' unless $opt{'t'}; - - my $htfile = $hfile; - $htfile =~ s/\..*$/_f.h/; - unless (-r $htfile) - { - openRO(\*C,$htfile) || die "Cannot open $htfile:$!"; - print C "#ifndef ${gard}_VT\n"; - print C "#define ${gard}_VT\n"; - print C "typedef struct ${name}tab\n{\n"; - print C " unsigned (*tabSize)(void);\n"; - print C "#define VFUNC(type,name,mem,args) type (*mem) args;\n"; - print C "#define VVAR(type,name,mem) type (*mem);\n"; - print C "#include \"$fdef\"\n"; - print C "#undef VFUNC\n"; - print C "#undef VVAR\n"; - print C "} ${name}tab;\n"; - print C "extern ${name}tab *${name}ptr;\n"; - print C "extern ${name}tab *${name}Get(void);\n"; - print C "#endif /* ${gard}_VT */\n"; - close(C); - } - - my $cfile = $hfile; - $cfile =~ s/\..*$/_f.c/; - unless (-r $cfile) - { - openRO(\*C,$cfile) || die "Cannot open $cfile:$!"; - print C "#include \"$hfile\"\n"; - print C "#include \"$htfile\"\n"; - print C "static unsigned ${name}Size(void) { return sizeof(${name}tab);}\n"; - print C "static ${name}tab ${name}table =\n{\n"; - print C " ${name}Size,\n"; - print C "#define VFUNC(type,name,mem,args) name,\n"; - print C "#define VVAR(type,name,mem) &name,\n"; - print C "#include \"$fdef\"\n"; - print C "#undef VFUNC\n"; - print C "#undef VVAR\n"; - print C "};\n"; - print C "${name}tab *${name}ptr;\n"; - print C "${name}tab *${name}Get() { return ${name}ptr = &${name}table;}\n"; - close(C); - } - - print STDERR "$gard\n"; - openRO(\*VFUNC,$fdef) || die "Cannot open $fdef:$!"; - openRO(\*VMACRO,$mdef) || die "Cannot open $mdef:$!"; - print VFUNC "#ifdef _$gard\n"; - print VMACRO "#ifndef _${gard}_VM\n"; - print VMACRO "#define _${gard}_VM\n"; - print VMACRO "#include \"$htfile\"\n"; - print VMACRO "#ifndef NO_VTABLES\n"; - print VMACRO $xexcl if %WinIgnore; - print VFUNC $xexcl if %WinIgnore; - foreach my $func (sort keys %VVar) - { - if (!exists($Exclude{$func}) && !exists($Ignore{$func})) - { - foreach my $ifdef (sort keys %{$VVar{$func}}) - { - print VFUNC "$ifdef\n" if ($ifdef); - print VFUNC $VVar{$func}{$ifdef}; - print VFUNC "#endif /* $ifdef */\n" if ($ifdef); - } - print VMACRO "#define $func (*${name}ptr->V_$func)\n"; - } - $Ignored{$func} = delete $Ignore{$func} if exists $Ignore{$func}; - } - foreach my $func (sort keys %VFunc) - { - if (!exists($Exclude{$func}) && !exists($Ignore{$func})) - { - print VFUNC "#ifndef DO_X_EXCLUDE\n" if exists($WinIgnore{$func}); - print VFUNC "#ifndef $func\n"; - foreach my $ifdef (sort keys %{$VFunc{$func}}) - { - print VFUNC "$ifdef\n" if ($ifdef); - print VFUNC $VFunc{$func}{$ifdef}; - print VFUNC "#endif /* $ifdef */\n" if ($ifdef); - } - print VFUNC "#endif /* #ifndef $func */\n"; - print VFUNC "#endif /* !DO_X_EXCLUDE */\n" if exists($WinIgnore{$func}); - print VFUNC "\n"; - - print VMACRO "#ifndef DO_X_EXCLUDE\n" if exists($WinIgnore{$func}); - print VMACRO "#ifndef $func\n"; - print VMACRO "# define $func (*${name}ptr->V_$func)\n"; - print VMACRO "#endif\n"; - print VMACRO "#endif /* !DO_X_EXCLUDE */\n" if exists($WinIgnore{$func}); - print VMACRO "\n"; - } - $Ignored{$func} = delete $Ignore{$func} if exists $Ignore{$func}; - } - print VMACRO "#endif /* NO_VTABLES */\n"; - print VMACRO "#endif /* _${gard}_VM */\n"; - close(VMACRO); - print VFUNC "#endif /* _$gard */\n"; - close(VFUNC); # Close this last - Makefile dependency - - unlink($mdef) unless $opt{'m'}; - unlink($fdef) unless $opt{'t'}; - } - else - { - die "No entries in $hfile\n"; - } -} - -foreach (<tk*Tab.c>) - { - Exclude($_); - } - -die "Usage: $0 <some.h>\n" if (@ARGV != 1); - -my $h = shift; -my $x = $h; -$x =~ s/\.h/.exc/; -Ignore($x) if (-f $x); -$x =~ s/\.exc/.excwin/; -WinIgnore($x) if (-f $x); -Vfunc($h); - -foreach my $s (sort keys %Ignore) - { - warn "$s is not in $h\n"; - $oops++; - } - -if ($oops) - { - $x = $h; - $x =~ s/\.h/.exc/; - rename($x,"$x.old") || die "Cannot rename $x to $x.old:$!"; - open(EXC,">$x") || die "Cannot open $x:$!"; - foreach my $s (sort keys %Ignored) - { - print EXC $s,"\n"; - } - close(EXC); - } - -__END__ - -=head1 NAME - -mkVFunc - Support for "nested" dynamic loading - -=head1 SYNOPSIS - - mkVFunc xxx.h - -=head1 DESCRIPTION - -B<perl/Tk> is designed so that B<Tk> can be dynamically loaded 'on top of' -perl. That is the easy bit. What it also does is allow Tk::Xxxx to be -dynamically loaded 'on top of' the B<perl/Tk> composite. Thus when -you 'require Tk::HList' the shared object F<.../HList.so> needs to be -able to call functions defined in perl I<and> functions defined in loadable -.../Tk.so . Now functions in 'base executable' are a well known problem, -and are solved by DynaLoader. However most of dynamic loading schemes -cannot handle one loadable calling another loadable. - -Thus what Tk does is build a table of functions that should be callable. -This table is auto-generated from the .h file by looking for -'extern' (and EXTERN which is #defined to 'extern'). -Thus any function marked as 'extern' is 'referenced' by the table. -The address of the table is then stored in a perl variable when Tk is loaded. -When HList is loaded it looks in the perl variable (via functions -in perl - the 'base executable') to get the address of the table. - -The same utility that builds the table also builds a set of #define's. -HList.c (and any other .c files which comprise HList) #include these -#define's. So that - - Tk_SomeFunc(x,y,z) - -Is actually compiled as - - (*TkVptr->V_Tk_SomeFunc)(x,y,z) - -Where Tk_ptr is pointer to the table. - -See: - - Tk-b*/pTk/mkVFunc - perl script that produces tables - /tk.h - basis from which table is generated - /tk.m - #define's to include in sub-extension - /tk_f.h - #included both sides. - /tk_f.c - Actual table definition. - /tk.t - 'shared' set of macros which produce table - included in tk_f.c and tk_f.h - /tkVMacro.h - Wrapper to include *.m files - -In addition to /tk* there are /tkInt*, /Lang* and /tix* - -=cut diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/moredefs.h b/Master/tlpkg/tlperl/lib/Tk/pTk/moredefs.h deleted file mode 100644 index f81380aea31..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/moredefs.h +++ /dev/null @@ -1,131 +0,0 @@ -EXTERN int Tk_BellObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_BindCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_BindtagsCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_ButtonCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_CanvasObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST objv[])); -EXTERN int Tk_CheckbuttonCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_ClipboardCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_ChooseColorCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_DestroyCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_EntryCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_EventObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST objv[])); -EXTERN int Tk_FrameCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_FocusObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST objv[])); -EXTERN int Tk_FontObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_GetOpenFileCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_GetSaveFileCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_GrabCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_GridCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_ImageObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST objv[])); -EXTERN int Tk_LabelCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_ListboxCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_LowerCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_MenuCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_MenubuttonCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_MessageBoxCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_MessageCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_OptionCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_PackCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_PlaceCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_PropertyCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_RadiobuttonCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_RaiseCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_ScaleCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_ScrollbarCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_SelectionCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_SendCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_TextCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_TkObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_TkwaitCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_ToplevelCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_UpdateCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_WinfoObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_WmCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); - -EXTERN int TkTileParseProc _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj * value, char *widgRec, - int offset)); -EXTERN Tcl_Obj * TkTilePrintProc _ANSI_ARGS_(( - ClientData clientData, Tk_Window tkwin, - char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr)); -EXTERN int TkOffsetParseProc _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj * value, char *widgRec, - int offset)); -EXTERN Tcl_Obj * TkOffsetPrintProc _ANSI_ARGS_(( - ClientData clientData, Tk_Window tkwin, - char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr)); -EXTERN int TkStateParseProc _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj * value, - char *widgRec, int offset)); -EXTERN Tcl_Obj * TkStatePrintProc _ANSI_ARGS_(( - ClientData clientData, Tk_Window tkwin, - char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr)); -EXTERN int TkOrientParseProc _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj * value, - char *widgRec, int offset)); -EXTERN Tcl_Obj * TkOrientPrintProc _ANSI_ARGS_(( - ClientData clientData, Tk_Window tkwin, - char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr)); -EXTERN int TkPixelParseProc _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj * value, - char *widgRec, int offset)); -EXTERN Tcl_Obj * TkPixelPrintProc _ANSI_ARGS_(( - ClientData clientData, Tk_Window tkwin, - char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr)); diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/port.h b/Master/tlpkg/tlperl/lib/Tk/pTk/port.h deleted file mode 100644 index 7a66a7c2751..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/port.h +++ /dev/null @@ -1,32 +0,0 @@ -/* - * Warning, this file was automatically created by the TIFF configure script - * VERSION: v3.5.5 - * DATE: Sun Jul 16 20:21:17 MET DST 2000 - * TARGET: i386-unknown-linux - * CCOMPILER: /usr/bin/gcc-2.7.2.1 - */ -#ifndef _PORT_ -#define _PORT_ 1 -#ifdef __cplusplus -extern "C" { -#endif -#include <sys/types.h> -#define HOST_FILLORDER FILLORDER_LSB2MSB -#define HOST_BIGENDIAN 0 -#define HAVE_MMAP 1 -#include <stdio.h> -#include <unistd.h> -#include <string.h> -#include <stdlib.h> -#include <fcntl.h> -typedef double dblparam_t; -#ifdef __STRICT_ANSI__ -#define INLINE __inline__ -#else -#define INLINE inline -#endif -#define GLOBALDATA(TYPE,NAME) extern TYPE NAME -#ifdef __cplusplus -} -#endif -#endif diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tcl.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tcl.h deleted file mode 100644 index 2770f572bcc..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tcl.h +++ /dev/null @@ -1,2411 +0,0 @@ -/* - * tcl.h -- - * - * This header file describes the externally-visible facilities - * of the Tcl interpreter. - * - * Copyright (c) 1987-1994 The Regents of the University of California. - * Copyright (c) 1993-1996 Lucent Technologies. - * Copyright (c) 1994-1998 Sun Microsystems, Inc. - * Copyright (c) 1998-2000 by Scriptics Corporation. - * Copyright (c) 2002 by Kevin B. Kenny. All rights reserved. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tcl.h,v 1.153.2.8 2003/10/22 22:35:46 andreas_kupries Exp $ - */ -#ifndef _TCL -#define _TCL - -/* - * For C++ compilers, use extern "C" - */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * The following defines are used to indicate the various release levels. - */ - -#define TCL_ALPHA_RELEASE 0 -#define TCL_BETA_RELEASE 1 -#define TCL_FINAL_RELEASE 2 - -/* - * When version numbers change here, must also go into the following files - * and update the version numbers: - * - * library/init.tcl (only if Major.minor changes, not patchlevel) 1 LOC - * unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) - * win/configure.in (as above) - * win/tcl.m4 (not patchlevel) - * win/makefile.vc (not patchlevel) 2 LOC - * README (sections 0 and 2) - * mac/README (2 LOC, not patchlevel) - * macosx/Tcl.pbproj/project.pbxproj (not patchlevel) 2 LOC - * win/README.binary (sections 0-4) - * win/README (not patchlevel) (sections 0 and 2) - * unix/tcl.spec (2 LOC Major/Minor, 1 LOC patch) - * tests/basic.test (1 LOC M/M, not patchlevel) - * tools/tcl.hpj.in (not patchlevel, for windows installer) - * tools/tcl.wse.in (for windows installer) - * tools/tclSplash.bmp (not patchlevel) - */ -#define TCL_MAJOR_VERSION 8 -#define TCL_MINOR_VERSION 4 -#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE -#define TCL_RELEASE_SERIAL 5 - -#define TCL_VERSION "8.4" -#define TCL_PATCH_LEVEL "8.4.5" - -/* - * The following definitions set up the proper options for Windows - * compilers. We use this method because there is no autoconf equivalent. - */ - -#ifndef __WIN32__ -# if defined(_WIN32) || defined(WIN32) || defined(__MINGW32__) || defined(__BORLANDC__) -# define __WIN32__ -# ifndef WIN32 -# define WIN32 -# endif -# endif -#endif - -/* - * STRICT: See MSDN Article Q83456 - */ -#ifdef __WIN32__ -# ifndef STRICT -# define STRICT -# endif -#endif /* __WIN32__ */ - -/* - * The following definitions set up the proper options for Macintosh - * compilers. We use this method because there is no autoconf equivalent. - */ - -#ifdef MAC_TCL -#include <ConditionalMacros.h> -# ifndef USE_TCLALLOC -# define USE_TCLALLOC 1 -# endif -# ifndef NO_STRERROR -# define NO_STRERROR 1 -# endif -# define INLINE -#endif - - -/* - * Utility macros: STRINGIFY takes an argument and wraps it in "" (double - * quotation marks), JOIN joins two arguments. - */ -#ifndef STRINGIFY -# define STRINGIFY(x) STRINGIFY1(x) -# define STRINGIFY1(x) #x -#endif -#ifndef JOIN -# define JOIN(a,b) JOIN1(a,b) -# define JOIN1(a,b) a##b -#endif - -/* - * A special definition used to allow this header file to be included - * from windows or mac resource files so that they can obtain version - * information. RC_INVOKED is defined by default by the windows RC tool - * and manually set for macintosh. - * - * Resource compilers don't like all the C stuff, like typedefs and - * procedure declarations, that occur below, so block them out. - */ - -#ifndef RC_INVOKED - -/* - * Special macro to define mutexes, that doesn't do anything - * if we are not using threads. - */ - -#ifdef TCL_THREADS -#define TCL_DECLARE_MUTEX(name) static Tcl_Mutex name; -#else -#define TCL_DECLARE_MUTEX(name) -#endif - -/* - * Macros that eliminate the overhead of the thread synchronization - * functions when compiling without thread support. - */ - -#ifndef TCL_THREADS -#define Tcl_MutexLock(mutexPtr) -#define Tcl_MutexUnlock(mutexPtr) -#define Tcl_MutexFinalize(mutexPtr) -#define Tcl_ConditionNotify(condPtr) -#define Tcl_ConditionWait(condPtr, mutexPtr, timePtr) -#define Tcl_ConditionFinalize(condPtr) -#endif /* TCL_THREADS */ - - -#ifndef BUFSIZ -# include <stdio.h> -#endif - - -/* - * Definitions that allow Tcl functions with variable numbers of - * arguments to be used with either varargs.h or stdarg.h. TCL_VARARGS - * is used in procedure prototypes. TCL_VARARGS_DEF is used to declare - * the arguments in a function definiton: it takes the type and name of - * the first argument and supplies the appropriate argument declaration - * string for use in the function definition. TCL_VARARGS_START - * initializes the va_list data structure and returns the first argument. - */ -#if !defined(NO_STDARG) -# include <stdarg.h> -# define TCL_VARARGS(type, name) (type name, ...) -# define TCL_VARARGS_DEF(type, name) (type name, ...) -# define TCL_VARARGS_START(type, name, list) (va_start(list, name), name) -#else -# include <varargs.h> -# define TCL_VARARGS(type, name) () -# define TCL_VARARGS_DEF(type, name) (va_alist) -# define TCL_VARARGS_START(type, name, list) \ - (va_start(list), va_arg(list, type)) -#endif - -/* - * Macros used to declare a function to be exported by a DLL. - * Used by Windows, maps to no-op declarations on non-Windows systems. - * The default build on windows is for a DLL, which causes the DLLIMPORT - * and DLLEXPORT macros to be nonempty. To build a static library, the - * macro STATIC_BUILD should be defined. - */ - -#ifdef STATIC_BUILD -# define DLLIMPORT -# define DLLEXPORT -#else -# if (defined(__WIN32__) && (defined(_MSC_VER) || (__BORLANDC__ >= 0x0550) || (defined(__GNUC__) && defined(__declspec)))) || (defined(MAC_TCL) && FUNCTION_DECLSPEC) -# define DLLIMPORT __declspec(dllimport) -# define DLLEXPORT __declspec(dllexport) -# else -# define DLLIMPORT -# define DLLEXPORT -# endif -#endif - -/* - * These macros are used to control whether functions are being declared for - * import or export. If a function is being declared while it is being built - * to be included in a shared library, then it should have the DLLEXPORT - * storage class. If is being declared for use by a module that is going to - * link against the shared library, then it should have the DLLIMPORT storage - * class. If the symbol is beind declared for a static build or for use from a - * stub library, then the storage class should be empty. - * - * The convention is that a macro called BUILD_xxxx, where xxxx is the - * name of a library we are building, is set on the compile line for sources - * that are to be placed in the library. When this macro is set, the - * storage class will be set to DLLEXPORT. At the end of the header file, the - * storage class will be reset to DLLIMPORT. - */ -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - - -/* - * Definitions that allow this header file to be used either with or - * without ANSI C features like function prototypes. - */ -#undef _ANSI_ARGS_ -#undef CONST -#ifndef INLINE -# define INLINE -#endif - -#ifndef NO_CONST -# define CONST const -#else -# define CONST -#endif - -#ifndef NO_PROTOTYPES -# define _ANSI_ARGS_(x) x -#else -# define _ANSI_ARGS_(x) () -#endif - -#ifdef USE_NON_CONST -# ifdef USE_COMPAT_CONST -# error define at most one of USE_NON_CONST and USE_COMPAT_CONST -# endif -# define CONST84 -# define CONST84_RETURN -#else -# ifdef USE_COMPAT_CONST -# define CONST84 -# define CONST84_RETURN CONST -# else -# define CONST84 CONST -# define CONST84_RETURN CONST -# endif -#endif - - -/* - * Make sure EXTERN isn't defined elsewhere - */ -#ifdef EXTERN -# undef EXTERN -#endif /* EXTERN */ - -#ifdef __cplusplus -# define EXTERN extern "C" TCL_STORAGE_CLASS -#else -# define EXTERN extern TCL_STORAGE_CLASS -#endif - - -/* - * The following code is copied from winnt.h. - * If we don't replicate it here, then <windows.h> can't be included - * after tcl.h, since tcl.h also defines VOID. - * This block is skipped under Cygwin and Mingw. - * - * - */ -#if defined(__WIN32__) && !defined(HAVE_WINNT_IGNORE_VOID) -#ifndef VOID -#define VOID void -typedef char CHAR; -typedef short SHORT; -typedef long LONG; -#endif -#endif /* __WIN32__ && !HAVE_WINNT_IGNORE_VOID */ - -/* - * Macro to use instead of "void" for arguments that must have - * type "void *" in ANSI C; maps them to type "char *" in - * non-ANSI systems. - */ - -#ifndef NO_VOID -# define VOID void -#else -# define VOID char -#endif - -/* - * Miscellaneous declarations. - */ -#ifndef NULL -# define NULL 0 -#endif - -#ifndef _CLIENTDATA -# ifndef NO_VOID - typedef void *ClientData; -# else - typedef int *ClientData; -# endif -# define _CLIENTDATA -#endif - -/* - * Define Tcl_WideInt to be a type that is (at least) 64-bits wide, - * and define Tcl_WideUInt to be the unsigned variant of that type - * (assuming that where we have one, we can have the other.) - * - * Also defines the following macros: - * TCL_WIDE_INT_IS_LONG - if wide ints are really longs (i.e. we're on - * a real 64-bit system.) - * Tcl_WideAsLong - forgetful converter from wideInt to long. - * Tcl_LongAsWide - sign-extending converter from long to wideInt. - * Tcl_WideAsDouble - converter from wideInt to double. - * Tcl_DoubleAsWide - converter from double to wideInt. - * - * The following invariant should hold for any long value 'longVal': - * longVal == Tcl_WideAsLong(Tcl_LongAsWide(longVal)) - * - * Note on converting between Tcl_WideInt and strings. This - * implementation (in tclObj.c) depends on the functions strtoull() - * and sprintf(...,"%" TCL_LL_MODIFIER "d",...). TCL_LL_MODIFIER_SIZE - * is the length of the modifier string, which is "ll" on most 32-bit - * Unix systems. It has to be split up like this to allow for the more - * complex formats sometimes needed (e.g. in the format(n) command.) - */ - -#if !defined(TCL_WIDE_INT_TYPE)&&!defined(TCL_WIDE_INT_IS_LONG) -# if defined(__CYGWIN__) -# define TCL_WIDE_INT_TYPE long long -# define TCL_LL_MODIFIER "L" -typedef struct stat Tcl_StatBuf; -# define TCL_LL_MODIFIER_SIZE 1 -# elif defined(__WIN32__) -# define TCL_WIDE_INT_TYPE __int64 -# ifdef __BORLANDC__ -typedef struct stati64 Tcl_StatBuf; -# define TCL_LL_MODIFIER "L" -# define TCL_LL_MODIFIER_SIZE 1 -# else /* __BORLANDC__ */ -typedef struct _stati64 Tcl_StatBuf; -# define TCL_LL_MODIFIER "I64" -# define TCL_LL_MODIFIER_SIZE 3 -# endif /* __BORLANDC__ */ -# else /* __WIN32__ */ -/* - * Don't know what platform it is and configure hasn't discovered what - * is going on for us. Try to guess... - */ -# ifdef NO_LIMITS_H -# error please define either TCL_WIDE_INT_TYPE or TCL_WIDE_INT_IS_LONG -# else /* !NO_LIMITS_H */ -# include <limits.h> -# if (INT_MAX < LONG_MAX) -# define TCL_WIDE_INT_IS_LONG 1 -# else -# define TCL_WIDE_INT_TYPE long long -# endif -# endif /* NO_LIMITS_H */ -# endif /* __WIN32__ */ -#endif /* !TCL_WIDE_INT_TYPE & !TCL_WIDE_INT_IS_LONG */ -#ifdef TCL_WIDE_INT_IS_LONG -# undef TCL_WIDE_INT_TYPE -# define TCL_WIDE_INT_TYPE long -#endif /* TCL_WIDE_INT_IS_LONG */ - -typedef TCL_WIDE_INT_TYPE Tcl_WideInt; -typedef unsigned TCL_WIDE_INT_TYPE Tcl_WideUInt; - -#ifdef TCL_WIDE_INT_IS_LONG -typedef struct stat Tcl_StatBuf; -# define Tcl_WideAsLong(val) ((long)(val)) -# define Tcl_LongAsWide(val) ((long)(val)) -# define Tcl_WideAsDouble(val) ((double)((long)(val))) -# define Tcl_DoubleAsWide(val) ((long)((double)(val))) -# ifndef TCL_LL_MODIFIER -# define TCL_LL_MODIFIER "l" -# define TCL_LL_MODIFIER_SIZE 1 -# endif /* !TCL_LL_MODIFIER */ -#else /* TCL_WIDE_INT_IS_LONG */ -/* - * The next short section of defines are only done when not running on - * Windows or some other strange platform. - */ -# ifndef TCL_LL_MODIFIER -# ifdef HAVE_STRUCT_STAT64 -typedef struct stat64 Tcl_StatBuf; -# else -typedef struct stat Tcl_StatBuf; -# endif /* HAVE_STRUCT_STAT64 */ -# define TCL_LL_MODIFIER "ll" -# define TCL_LL_MODIFIER_SIZE 2 -# endif /* !TCL_LL_MODIFIER */ -# define Tcl_WideAsLong(val) ((long)((Tcl_WideInt)(val))) -# define Tcl_LongAsWide(val) ((Tcl_WideInt)((long)(val))) -# define Tcl_WideAsDouble(val) ((double)((Tcl_WideInt)(val))) -# define Tcl_DoubleAsWide(val) ((Tcl_WideInt)((double)(val))) -#endif /* TCL_WIDE_INT_IS_LONG */ - - -/* - * This flag controls whether binary compatability is maintained with - * extensions built against a previous version of Tcl. This is true - * by default. - */ -#ifndef TCL_PRESERVE_BINARY_COMPATABILITY -# define TCL_PRESERVE_BINARY_COMPATABILITY 1 -#endif - - -/* - * Data structures defined opaquely in this module. The definitions below - * just provide dummy types. A few fields are made visible in Tcl_Interp - * structures, namely those used for returning a string result from - * commands. Direct access to the result field is discouraged in Tcl 8.0. - * The interpreter result is either an object or a string, and the two - * values are kept consistent unless some C code sets interp->result - * directly. Programmers should use either the procedure Tcl_GetObjResult() - * or Tcl_GetStringResult() to read the interpreter's result. See the - * SetResult man page for details. - * - * Note: any change to the Tcl_Interp definition below must be mirrored - * in the "real" definition in tclInt.h. - * - * Note: Tcl_ObjCmdProc procedures do not directly set result and freeProc. - * Instead, they set a Tcl_Obj member in the "real" structure that can be - * accessed with Tcl_GetObjResult() and Tcl_SetObjResult(). - */ - -#ifndef Tcl_Interp -typedef struct Tcl_Interp -#ifdef USE_TCL_STRUCT -{ - char *result; /* If the last command returned a string - * result, this points to it. */ - void (*freeProc) _ANSI_ARGS_((char *blockPtr)); - /* Zero means the string result is - * statically allocated. TCL_DYNAMIC means - * it was allocated with ckalloc and should - * be freed with ckfree. Other values give - * the address of procedure to invoke to - * free the result. Tcl_Eval must free it - * before executing next command. */ - int errorLine; /* When TCL_ERROR is returned, this gives - * the line number within the command where - * the error occurred (1 if first line). */ -} -#endif -Tcl_Interp; -#endif - -typedef struct Tcl_AsyncHandler_ *Tcl_AsyncHandler; -#ifndef Tcl_Channel -typedef struct Tcl_Channel_ *Tcl_Channel; -#endif -#ifndef Tcl_Command -typedef struct Tcl_Command_ *Tcl_Command; -#endif -typedef struct Tcl_Condition_ *Tcl_Condition; -typedef struct Tcl_EncodingState_ *Tcl_EncodingState; -typedef struct Tcl_Encoding_ *Tcl_Encoding; -typedef struct Tcl_Event Tcl_Event; -typedef struct Tcl_Mutex_ *Tcl_Mutex; -typedef struct Tcl_Pid_ *Tcl_Pid; -#ifndef Tcl_RegExp -typedef struct Tcl_RegExp_ *Tcl_RegExp; -#endif -typedef struct Tcl_ThreadDataKey_ *Tcl_ThreadDataKey; -typedef struct Tcl_ThreadId_ *Tcl_ThreadId; -typedef struct Tcl_TimerToken_ *Tcl_TimerToken; -typedef struct Tcl_Trace_ *Tcl_Trace; -typedef struct Tcl_Var_ *Tcl_Var; -typedef struct Tcl_ChannelTypeVersion_ *Tcl_ChannelTypeVersion; -typedef struct Tcl_LoadHandle_ *Tcl_LoadHandle; - -/* - * Definition of the interface to procedures implementing threads. - * A procedure following this definition is given to each call of - * 'Tcl_CreateThread' and will be called as the main fuction of - * the new thread created by that call. - */ -#ifdef MAC_TCL -typedef pascal void *(Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData)); -#elif defined __WIN32__ -typedef unsigned (__stdcall Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData)); -#else -typedef void (Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData)); -#endif - - -/* - * Threading function return types used for abstracting away platform - * differences when writing a Tcl_ThreadCreateProc. See the NewThread - * function in generic/tclThreadTest.c for it's usage. - */ -#ifdef MAC_TCL -# define Tcl_ThreadCreateType pascal void * -# define TCL_THREAD_CREATE_RETURN return NULL -#elif defined __WIN32__ -# define Tcl_ThreadCreateType unsigned __stdcall -# define TCL_THREAD_CREATE_RETURN return 0 -#else -# define Tcl_ThreadCreateType void -# define TCL_THREAD_CREATE_RETURN -#endif - - -/* - * Definition of values for default stacksize and the possible flags to be - * given to Tcl_CreateThread. - */ -#define TCL_THREAD_STACK_DEFAULT (0) /* Use default size for stack */ -#define TCL_THREAD_NOFLAGS (0000) /* Standard flags, default behaviour */ -#define TCL_THREAD_JOINABLE (0001) /* Mark the thread as joinable */ - -/* - * Flag values passed to Tcl_GetRegExpFromObj. - */ -#define TCL_REG_BASIC 000000 /* BREs (convenience) */ -#define TCL_REG_EXTENDED 000001 /* EREs */ -#define TCL_REG_ADVF 000002 /* advanced features in EREs */ -#define TCL_REG_ADVANCED 000003 /* AREs (which are also EREs) */ -#define TCL_REG_QUOTE 000004 /* no special characters, none */ -#define TCL_REG_NOCASE 000010 /* ignore case */ -#define TCL_REG_NOSUB 000020 /* don't care about subexpressions */ -#define TCL_REG_EXPANDED 000040 /* expanded format, white space & - * comments */ -#define TCL_REG_NLSTOP 000100 /* \n doesn't match . or [^ ] */ -#define TCL_REG_NLANCH 000200 /* ^ matches after \n, $ before */ -#define TCL_REG_NEWLINE 000300 /* newlines are line terminators */ -#define TCL_REG_CANMATCH 001000 /* report details on partial/limited - * matches */ - -/* - * The following flag is experimental and only intended for use by Expect. It - * will probably go away in a later release. - */ -#define TCL_REG_BOSONLY 002000 /* prepend \A to pattern so it only - * matches at the beginning of the - * string. */ - -/* - * Flags values passed to Tcl_RegExpExecObj. - */ -#define TCL_REG_NOTBOL 0001 /* Beginning of string does not match ^. */ -#define TCL_REG_NOTEOL 0002 /* End of string does not match $. */ - -/* - * Structures filled in by Tcl_RegExpInfo. Note that all offset values are - * relative to the start of the match string, not the beginning of the - * entire string. - */ -typedef struct Tcl_RegExpIndices { - long start; /* character offset of first character in match */ - long end; /* character offset of first character after the - * match. */ -} Tcl_RegExpIndices; - -typedef struct Tcl_RegExpInfo { - int nsubs; /* number of subexpressions in the - * compiled expression */ - Tcl_RegExpIndices *matches; /* array of nsubs match offset - * pairs */ - long extendStart; /* The offset at which a subsequent - * match might begin. */ - long reserved; /* Reserved for later use. */ -} Tcl_RegExpInfo; - -/* - * Picky compilers complain if this typdef doesn't appear before the - * struct's reference in tclDecls.h. - */ -typedef Tcl_StatBuf *Tcl_Stat_; -typedef struct stat *Tcl_OldStat_; - -/* - * When a TCL command returns, the interpreter contains a result from the - * command. Programmers are strongly encouraged to use one of the - * procedures Tcl_GetObjResult() or Tcl_GetStringResult() to read the - * interpreter's result. See the SetResult man page for details. Besides - * this result, the command procedure returns an integer code, which is - * one of the following: - * - * TCL_OK Command completed normally; the interpreter's - * result contains the command's result. - * TCL_ERROR The command couldn't be completed successfully; - * the interpreter's result describes what went wrong. - * TCL_RETURN The command requests that the current procedure - * return; the interpreter's result contains the - * procedure's return value. - * TCL_BREAK The command requests that the innermost loop - * be exited; the interpreter's result is meaningless. - * TCL_CONTINUE Go on to the next iteration of the current loop; - * the interpreter's result is meaningless. - */ -#define TCL_OK 0 -#define TCL_ERROR 1 -#define TCL_RETURN 2 -#define TCL_BREAK 3 -#define TCL_CONTINUE 4 - -#define TCL_RESULT_SIZE 200 - -/* - * Flags to control what substitutions are performed by Tcl_SubstObj(): - */ -#define TCL_SUBST_COMMANDS 001 -#define TCL_SUBST_VARIABLES 002 -#define TCL_SUBST_BACKSLASHES 004 -#define TCL_SUBST_ALL 007 - - -/* - * Argument descriptors for math function callbacks in expressions: - */ -typedef enum { - TCL_INT, TCL_DOUBLE, TCL_EITHER, TCL_WIDE_INT -} Tcl_ValueType; -typedef struct Tcl_Value { - Tcl_ValueType type; /* Indicates intValue or doubleValue is - * valid, or both. */ - long intValue; /* Integer value. */ - double doubleValue; /* Double-precision floating value. */ - Tcl_WideInt wideValue; /* Wide (min. 64-bit) integer value. */ -} Tcl_Value; - -/* - * Forward declaration of Tcl_Obj to prevent an error when the forward - * reference to Tcl_Obj is encountered in the procedure types declared - * below. - */ -#ifndef Tcl_Obj -typedef struct Tcl_Obj Tcl_Obj; -#endif - -/* - * Procedure types defined by Tcl: - */ - -typedef int (Tcl_AppInitProc) _ANSI_ARGS_((Tcl_Interp *interp)); -typedef int (Tcl_AsyncProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int code)); -typedef void (Tcl_ChannelProc) _ANSI_ARGS_((ClientData clientData, int mask)); -typedef void (Tcl_CloseProc) _ANSI_ARGS_((ClientData data)); -typedef void (Tcl_CmdDeleteProc) _ANSI_ARGS_((ClientData clientData)); -typedef int (Tcl_CmdProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, CONST84 char *argv[])); -typedef void (Tcl_CmdTraceProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int level, char *command, Tcl_CmdProc *proc, - ClientData cmdClientData, int argc, CONST84 char *argv[])); -typedef int (Tcl_CmdObjTraceProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int level, CONST char *command, - Tcl_Command commandInfo, int objc, Tcl_Obj * CONST * objv)); -typedef void (Tcl_CmdObjTraceDeleteProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_DupInternalRepProc) _ANSI_ARGS_((Tcl_Obj *srcPtr, - Tcl_Obj *dupPtr)); -typedef int (Tcl_EncodingConvertProc)_ANSI_ARGS_((ClientData clientData, - CONST char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, - char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, - int *dstCharsPtr)); -typedef void (Tcl_EncodingFreeProc)_ANSI_ARGS_((ClientData clientData)); -typedef int (Tcl_EventProc) _ANSI_ARGS_((Tcl_Event *evPtr, int flags)); -typedef void (Tcl_EventCheckProc) _ANSI_ARGS_((ClientData clientData, - int flags)); -typedef int (Tcl_EventDeleteProc) _ANSI_ARGS_((Tcl_Event *evPtr, - ClientData clientData)); -typedef void (Tcl_EventSetupProc) _ANSI_ARGS_((ClientData clientData, - int flags)); -typedef void (Tcl_ExitProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_FileProc) _ANSI_ARGS_((ClientData clientData, int mask)); -typedef void (Tcl_FileFreeProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_FreeInternalRepProc) _ANSI_ARGS_((Tcl_Obj *objPtr)); -typedef void (Tcl_FreeProc) _ANSI_ARGS_((char *blockPtr)); -typedef void (Tcl_IdleProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_InterpDeleteProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp)); -typedef int (Tcl_MathProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, Tcl_Value *args, Tcl_Value *resultPtr)); -typedef void (Tcl_NamespaceDeleteProc) _ANSI_ARGS_((ClientData clientData)); -typedef int (Tcl_ObjCmdProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, Tcl_Obj * CONST * objv)); -typedef int (Tcl_PackageInitProc) _ANSI_ARGS_((Tcl_Interp *interp)); -typedef void (Tcl_PanicProc) _ANSI_ARGS_(TCL_VARARGS(CONST char *, format)); -typedef void (Tcl_TcpAcceptProc) _ANSI_ARGS_((ClientData callbackData, - Tcl_Channel chan, char *address, int port)); -typedef void (Tcl_TimerProc) _ANSI_ARGS_((ClientData clientData)); -typedef int (Tcl_SetFromAnyProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *objPtr)); -typedef void (Tcl_UpdateStringProc) _ANSI_ARGS_((Tcl_Obj *objPtr)); -typedef char *(Tcl_VarTraceProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, CONST84 char *part1, CONST84 char *part2, int flags)); -typedef void (Tcl_CommandTraceProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, CONST char *oldName, CONST char *newName, - int flags)); -typedef void (Tcl_CreateFileHandlerProc) _ANSI_ARGS_((int fd, int mask, - Tcl_FileProc *proc, ClientData clientData)); -typedef void (Tcl_DeleteFileHandlerProc) _ANSI_ARGS_((int fd)); -typedef void (Tcl_AlertNotifierProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_ServiceModeHookProc) _ANSI_ARGS_((int mode)); -typedef ClientData (Tcl_InitNotifierProc) _ANSI_ARGS_((VOID)); -typedef void (Tcl_FinalizeNotifierProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_MainLoopProc) _ANSI_ARGS_((void)); - - -/* - * The following structure represents a type of object, which is a - * particular internal representation for an object plus a set of - * procedures that provide standard operations on objects of that type. - */ - -typedef struct Tcl_ObjType -{ - char *name; /* Name of the type, e.g. "int". */ - Tcl_FreeInternalRepProc *freeIntRepProc; - /* Called to free any storage for the type's - * internal rep. NULL if the internal rep - * does not need freeing. */ - Tcl_DupInternalRepProc *dupIntRepProc; - /* Called to create a new object as a copy - * of an existing object. */ - Tcl_UpdateStringProc *updateStringProc; - /* Called to update the string rep from the - * type's internal representation. */ - Tcl_SetFromAnyProc *setFromAnyProc; - /* Called to convert the object's internal - * rep to this type. Frees the internal rep - * of the old type. Returns TCL_ERROR on - * failure. */ -} -Tcl_ObjType; - - -/* - * One of the following structures exists for each object in the Tcl - * system. An object stores a value as either a string, some internal - * representation, or both. - */ - -#ifndef Tcl_Obj -#ifdef USE_TCL_STRUCT -struct Tcl_Obj { - int refCount; /* When 0 the object will be freed. */ - char *bytes; /* This points to the first byte of the - * object's string representation. The array - * must be followed by a null byte (i.e., at - * offset length) but may also contain - * embedded null characters. The array's - * storage is allocated by ckalloc. NULL - * means the string rep is invalid and must - * be regenerated from the internal rep. - * Clients should use Tcl_GetStringFromObj - * or Tcl_GetString to get a pointer to the - * byte array as a readonly value. */ - int length; /* The number of bytes at *bytes, not - * including the terminating null. */ - Tcl_ObjType *typePtr; /* Denotes the object's type. Always - * corresponds to the type of the object's - * internal rep. NULL indicates the object - * has no internal rep (has no type). */ - union { /* The internal representation: */ - long longValue; /* - an long integer value */ - double doubleValue; /* - a double-precision floating value */ - VOID *otherValuePtr; /* - another, type-specific value */ - Tcl_WideInt wideValue; /* - a long long value */ - struct { /* - internal rep as two pointers */ - VOID *ptr1; - VOID *ptr2; - } twoPtrValue; - } internalRep; -}; - -#define TclObjInternal(o) (&((o)->internalRep)) -#define TclObjGetType(o) ((o)->typePtr) -#define TclObjSetType(o,t) ((o)->typePtr = (t)) -#define TclObjLength(o) ((o)->length) - -#endif -#endif - -#ifndef USE_TCL_STRUCT -typedef union { /* The internal representation: */ - long longValue; /* - an long integer value */ - double doubleValue; /* - a double-precision floating value */ - VOID *otherValuePtr; /* - another, type-specific value */ - struct { /* - internal rep as two pointers */ - VOID *ptr1; - VOID *ptr2; - } twoPtrValue; -} Tcl_InternalRep; -#endif - -#ifndef TclObjGetType -EXTERN Tcl_ObjType * TclObjGetType _ANSI_ARGS_((Tcl_Obj *objPtr)); -#endif -#ifndef TclObjLength -EXTERN int TclObjLength _ANSI_ARGS_((Tcl_Obj *objPtr)); -#endif -#ifndef TclObjSetType -EXTERN void TclObjSetType _ANSI_ARGS_((Tcl_Obj *objPtr,Tcl_ObjType *newType)); -#endif -#ifndef TclObjInternal -EXTERN Tcl_InternalRep * TclObjInternal _ANSI_ARGS_((Tcl_Obj *objPtr)); -#endif - - -/* - * Macros to increment and decrement a Tcl_Obj's reference count, and to - * test whether an object is shared (i.e. has reference count > 1). - * Note: clients should use Tcl_DecrRefCount() when they are finished using - * an object, and should never call TclFreeObj() directly. TclFreeObj() is - * only defined and made public in tcl.h to support Tcl_DecrRefCount's macro - * definition. Note also that Tcl_DecrRefCount() refers to the parameter - * "obj" twice. This means that you should avoid calling it with an - * expression that is expensive to compute or has side effects. - */ - -EXTERN void Tcl_IncrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); -EXTERN void Tcl_DecrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); -EXTERN int Tcl_IsShared _ANSI_ARGS_((Tcl_Obj *objPtr)); - -#ifdef USE_TCL_STRUCT -#ifdef TCL_MEM_DEBUG -# define Tcl_IncrRefCount(objPtr) \ - Tcl_DbIncrRefCount(objPtr, __FILE__, __LINE__) -# define Tcl_DecrRefCount(objPtr) \ - Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__) -# define Tcl_IsShared(objPtr) \ - Tcl_DbIsShared(objPtr, __FILE__, __LINE__) -#else -# define Tcl_IncrRefCount(objPtr) \ - ++(objPtr)->refCount -# define Tcl_DecrRefCount(objPtr) \ - if (--(objPtr)->refCount <= 0) TclFreeObj(objPtr) -# define Tcl_IsShared(objPtr) \ - ((objPtr)->refCount > 1) -#endif -#endif - -/* - * Macros and definitions that help to debug the use of Tcl objects. - * When TCL_MEM_DEBUG is defined, the Tcl_New declarations are - * overridden to call debugging versions of the object creation procedures. - */ - -#ifndef _LANG -#ifdef TCL_MEM_DEBUG -# define Tcl_NewBooleanObj(val) \ - Tcl_DbNewBooleanObj(val, __FILE__, __LINE__) -# define Tcl_NewByteArrayObj(bytes, len) \ - Tcl_DbNewByteArrayObj(bytes, len, __FILE__, __LINE__) -# define Tcl_NewDoubleObj(val) \ - Tcl_DbNewDoubleObj(val, __FILE__, __LINE__) -# define Tcl_NewIntObj(val) \ - Tcl_DbNewLongObj(val, __FILE__, __LINE__) -# define Tcl_NewListObj(objc, objv) \ - Tcl_DbNewListObj(objc, objv, __FILE__, __LINE__) -# define Tcl_NewLongObj(val) \ - Tcl_DbNewLongObj(val, __FILE__, __LINE__) -# define Tcl_NewObj() \ - Tcl_DbNewObj(__FILE__, __LINE__) -# define Tcl_NewStringObj(bytes, len) \ - Tcl_DbNewStringObj(bytes, len, __FILE__, __LINE__) -# define Tcl_NewWideIntObj(val) \ - Tcl_DbNewWideIntObj(val, __FILE__, __LINE__) -#endif /* TCL_MEM_DEBUG */ -#endif - - -/* - * The following structure contains the state needed by - * Tcl_SaveResult. No-one outside of Tcl should access any of these - * fields. This structure is typically allocated on the stack. - */ -typedef struct Tcl_SavedResult -#ifdef USE_TCL_STRUCT -{ - char *result; - Tcl_FreeProc *freeProc; - Tcl_Obj *objResultPtr; - char *appendResult; - int appendAvl; - int appendUsed; - char resultSpace[TCL_RESULT_SIZE+1]; -} -#endif -Tcl_SavedResult; - - -/* - * The following definitions support Tcl's namespace facility. - * Note: the first five fields must match exactly the fields in a - * Namespace structure (see tclInt.h). - */ - -typedef struct Tcl_Namespace -#ifdef USE_TCL_STRUCT -{ - char *name; /* The namespace's name within its parent - * namespace. This contains no ::'s. The - * name of the global namespace is "" - * although "::" is an synonym. */ - char *fullName; /* The namespace's fully qualified name. - * This starts with ::. */ - ClientData clientData; /* Arbitrary value associated with this - * namespace. */ - Tcl_NamespaceDeleteProc* deleteProc; - /* Procedure invoked when deleting the - * namespace to, e.g., free clientData. */ - struct Tcl_Namespace* parentPtr; - /* Points to the namespace that contains - * this one. NULL if this is the global - * namespace. */ -} -#endif -Tcl_Namespace; - - -/* - * The following structure represents a call frame, or activation record. - * A call frame defines a naming context for a procedure call: its local - * scope (for local variables) and its namespace scope (used for non-local - * variables; often the global :: namespace). A call frame can also define - * the naming context for a namespace eval or namespace inscope command: - * the namespace in which the command's code should execute. The - * Tcl_CallFrame structures exist only while procedures or namespace - * eval/inscope's are being executed, and provide a Tcl call stack. - * - * A call frame is initialized and pushed using Tcl_PushCallFrame and - * popped using Tcl_PopCallFrame. Storage for a Tcl_CallFrame must be - * provided by the Tcl_PushCallFrame caller, and callers typically allocate - * them on the C call stack for efficiency. For this reason, Tcl_CallFrame - * is defined as a structure and not as an opaque token. However, most - * Tcl_CallFrame fields are hidden since applications should not access - * them directly; others are declared as "dummyX". - * - * WARNING!! The structure definition must be kept consistent with the - * CallFrame structure in tclInt.h. If you change one, change the other. - */ - -typedef struct Tcl_CallFrame -#ifdef USE_TCL_STRUCT -{ - Tcl_Namespace *nsPtr; - int dummy1; - int dummy2; - char *dummy3; - char *dummy4; - char *dummy5; - int dummy6; - char *dummy7; - char *dummy8; - int dummy9; - char* dummy10; -} -#endif -Tcl_CallFrame; - - -/* - * Information about commands that is returned by Tcl_GetCommandInfo and - * passed to Tcl_SetCommandInfo. objProc is an objc/objv object-based - * command procedure while proc is a traditional Tcl argc/argv - * string-based procedure. Tcl_CreateObjCommand and Tcl_CreateCommand - * ensure that both objProc and proc are non-NULL and can be called to - * execute the command. However, it may be faster to call one instead of - * the other. The member isNativeObjectProc is set to 1 if an - * object-based procedure was registered by Tcl_CreateObjCommand, and to - * 0 if a string-based procedure was registered by Tcl_CreateCommand. - * The other procedure is typically set to a compatibility wrapper that - * does string-to-object or object-to-string argument conversions then - * calls the other procedure. - */ - -typedef struct Tcl_CmdInfo { - int isNativeObjectProc; /* 1 if objProc was registered by a call to - * Tcl_CreateObjCommand; 0 otherwise. - * Tcl_SetCmdInfo does not modify this - * field. */ - Tcl_ObjCmdProc *objProc; /* Command's object-based procedure. */ - ClientData objClientData; /* ClientData for object proc. */ - Tcl_CmdProc *proc; /* Command's string-based procedure. */ - ClientData clientData; /* ClientData for string proc. */ - Tcl_CmdDeleteProc *deleteProc; - /* Procedure to call when command is - * deleted. */ - ClientData deleteData; /* Value to pass to deleteProc (usually - * the same as clientData). */ - Tcl_Namespace *namespacePtr; /* Points to the namespace that contains - * this command. Note that Tcl_SetCmdInfo - * will not change a command's namespace; - * use Tcl_RenameCommand to do that. */ - -} Tcl_CmdInfo; - -/* - * The structure defined below is used to hold dynamic strings. The only - * field that clients should use is the string field, accessible via the - * macro Tcl_DStringValue. - */ - -#ifndef Tcl_DString -#define TCL_DSTRING_STATIC_SIZE 200 -#ifdef USE_TCL_STRUCT -typedef struct Tcl_DString { - char *string; /* Points to beginning of string: either - * staticSpace below or a malloced array. */ - int length; /* Number of non-NULL characters in the - * string. */ - int spaceAvl; /* Total number of bytes available for the - * string and its terminating NULL char. */ - char staticSpace[TCL_DSTRING_STATIC_SIZE]; - /* Space to use in common case where string - * is small. */ -} Tcl_DString; -#else -typedef Tcl_Obj *Tcl_DString; -#endif -#endif - -#ifdef USE_TCL_STRUCT -#define Tcl_DStringLength(dsPtr) ((dsPtr)->length) -#define Tcl_DStringValue(dsPtr) ((dsPtr)->string) -#endif -#define Tcl_DStringTrunc Tcl_DStringSetLength - -/* - * Definitions for the maximum number of digits of precision that may - * be specified in the "tcl_precision" variable, and the number of - * bytes of buffer space required by Tcl_PrintDouble. - */ -#define TCL_MAX_PREC 17 -#define TCL_DOUBLE_SPACE (TCL_MAX_PREC+10) - -/* - * Definition for a number of bytes of buffer space sufficient to hold the - * string representation of an integer in base 10 (assuming the existence - * of 64-bit integers). - */ -#define TCL_INTEGER_SPACE 24 - -/* - * Flag that may be passed to Tcl_ConvertElement to force it not to - * output braces (careful! if you change this flag be sure to change - * the definitions at the front of tclUtil.c). - */ -#define TCL_DONT_USE_BRACES 1 - -/* - * Flag that may be passed to Tcl_GetIndexFromObj to force it to disallow - * abbreviated strings. - */ -#define TCL_EXACT 1 - -/* - * Flag values passed to Tcl_RecordAndEval and/or Tcl_EvalObj. - * WARNING: these bit choices must not conflict with the bit choices - * for evalFlag bits in tclInt.h!! - */ -#define TCL_NO_EVAL 0x10000 -#define TCL_EVAL_GLOBAL 0x20000 -#define TCL_EVAL_DIRECT 0x40000 -#define TCL_EVAL_INVOKE 0x80000 - -/* - * Special freeProc values that may be passed to Tcl_SetResult (see - * the man page for details): - */ -#define TCL_VOLATILE ((Tcl_FreeProc *) 1) -#define TCL_STATIC ((Tcl_FreeProc *) 0) -#define TCL_DYNAMIC ((Tcl_FreeProc *) 3) - -/* - * Flag values passed to variable-related procedures. - */ -#define TCL_GLOBAL_ONLY 1 -#define TCL_NAMESPACE_ONLY 2 -#define TCL_APPEND_VALUE 4 -#define TCL_LIST_ELEMENT 8 -#define TCL_TRACE_READS 0x10 -#define TCL_TRACE_WRITES 0x20 -#define TCL_TRACE_UNSETS 0x40 -#define TCL_TRACE_DESTROYED 0x80 -#define TCL_INTERP_DESTROYED 0x100 -#define TCL_LEAVE_ERR_MSG 0x200 -#define TCL_TRACE_ARRAY 0x800 -#ifndef TCL_REMOVE_OBSOLETE_TRACES -/* Required to support old variable/vdelete/vinfo traces */ -#define TCL_TRACE_OLD_STYLE 0x1000 -#endif -/* Indicate the semantics of the result of a trace */ -#define TCL_TRACE_RESULT_DYNAMIC 0x8000 -#define TCL_TRACE_RESULT_OBJECT 0x10000 - -/* - * Flag values passed to command-related procedures. - */ - -#define TCL_TRACE_RENAME 0x2000 -#define TCL_TRACE_DELETE 0x4000 - -#define TCL_ALLOW_INLINE_COMPILATION 0x20000 - -/* - * Flag values passed to Tcl_CreateObjTrace, and used internally - * by command execution traces. Slots 4,8,16 and 32 are - * used internally by execution traces (see tclCmdMZ.c) - */ -#define TCL_TRACE_ENTER_EXEC 1 -#define TCL_TRACE_LEAVE_EXEC 2 - -/* - * The TCL_PARSE_PART1 flag is deprecated and has no effect. - * The part1 is now always parsed whenever the part2 is NULL. - * (This is to avoid a common error when converting code to - * use the new object based APIs and forgetting to give the - * flag) - */ -#ifndef TCL_NO_DEPRECATED -# define TCL_PARSE_PART1 0x400 -#endif - - -/* - * Types for linked variables: - */ -#define TCL_LINK_INT 1 -#define TCL_LINK_DOUBLE 2 -#define TCL_LINK_BOOLEAN 3 -#define TCL_LINK_STRING 4 -#define TCL_LINK_WIDE_INT 5 -#define TCL_LINK_READ_ONLY 0x80 - - -/* - * Forward declarations of Tcl_HashTable and related types. - */ -typedef struct Tcl_HashKeyType Tcl_HashKeyType; -typedef struct Tcl_HashTable Tcl_HashTable; -typedef struct Tcl_HashEntry Tcl_HashEntry; - -typedef unsigned int (Tcl_HashKeyProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, - VOID *keyPtr)); -typedef int (Tcl_CompareHashKeysProc) _ANSI_ARGS_((VOID *keyPtr, - Tcl_HashEntry *hPtr)); -typedef Tcl_HashEntry *(Tcl_AllocHashEntryProc) _ANSI_ARGS_(( - Tcl_HashTable *tablePtr, VOID *keyPtr)); -typedef void (Tcl_FreeHashEntryProc) _ANSI_ARGS_((Tcl_HashEntry *hPtr)); - -/* - * This flag controls whether the hash table stores the hash of a key, or - * recalculates it. There should be no reason for turning this flag off - * as it is completely binary and source compatible unless you directly - * access the bucketPtr member of the Tcl_HashTableEntry structure. This - * member has been removed and the space used to store the hash value. - */ -#ifndef TCL_HASH_KEY_STORE_HASH -# define TCL_HASH_KEY_STORE_HASH 1 -#endif - -/* - * Structure definition for an entry in a hash table. No-one outside - * Tcl should access any of these fields directly; use the macros - * defined below. - */ - -struct Tcl_HashEntry { - Tcl_HashEntry *nextPtr; /* Pointer to next entry in this - * hash bucket, or NULL for end of - * chain. */ - Tcl_HashTable *tablePtr; /* Pointer to table containing entry. */ -#if TCL_HASH_KEY_STORE_HASH -# if TCL_PRESERVE_BINARY_COMPATABILITY - VOID *hash; /* Hash value, stored as pointer to - * ensure that the offsets of the - * fields in this structure are not - * changed. */ -# else - unsigned int hash; /* Hash value. */ -# endif -#else - Tcl_HashEntry **bucketPtr; /* Pointer to bucket that points to - * first entry in this entry's chain: - * used for deleting the entry. */ -#endif - ClientData clientData; /* Application stores something here - * with Tcl_SetHashValue. */ - union { /* Key has one of these forms: */ - char *oneWordValue; /* One-word value for key. */ - Tcl_Obj *objPtr; /* Tcl_Obj * key value. */ - int words[1]; /* Multiple integer words for key. - * The actual size will be as large - * as necessary for this table's - * keys. */ - char string[4]; /* String for key. The actual size - * will be as large as needed to hold - * the key. */ - } key; /* MUST BE LAST FIELD IN RECORD!! */ -}; - -/* - * Flags used in Tcl_HashKeyType. - * - * TCL_HASH_KEY_RANDOMIZE_HASH: - * There are some things, pointers for example - * which don't hash well because they do not use - * the lower bits. If this flag is set then the - * hash table will attempt to rectify this by - * randomising the bits and then using the upper - * N bits as the index into the table. - */ -#define TCL_HASH_KEY_RANDOMIZE_HASH 0x1 - -/* - * Structure definition for the methods associated with a hash table - * key type. - */ -#define TCL_HASH_KEY_TYPE_VERSION 1 -struct Tcl_HashKeyType { - int version; /* Version of the table. If this structure is - * extended in future then the version can be - * used to distinguish between different - * structures. - */ - - int flags; /* Flags, see above for details. */ - - /* Calculates a hash value for the key. If this is NULL then the pointer - * itself is used as a hash value. - */ - Tcl_HashKeyProc *hashKeyProc; - - /* Compares two keys and returns zero if they do not match, and non-zero - * if they do. If this is NULL then the pointers are compared. - */ - Tcl_CompareHashKeysProc *compareKeysProc; - - /* Called to allocate memory for a new entry, i.e. if the key is a - * string then this could allocate a single block which contains enough - * space for both the entry and the string. Only the key field of the - * allocated Tcl_HashEntry structure needs to be filled in. If something - * else needs to be done to the key, i.e. incrementing a reference count - * then that should be done by this function. If this is NULL then Tcl_Alloc - * is used to allocate enough space for a Tcl_HashEntry and the key pointer - * is assigned to key.oneWordValue. - */ - Tcl_AllocHashEntryProc *allocEntryProc; - - /* Called to free memory associated with an entry. If something else needs - * to be done to the key, i.e. decrementing a reference count then that - * should be done by this function. If this is NULL then Tcl_Free is used - * to free the Tcl_HashEntry. - */ - Tcl_FreeHashEntryProc *freeEntryProc; -}; - -/* - * Structure definition for a hash table. Must be in tcl.h so clients - * can allocate space for these structures, but clients should never - * access any fields in this structure. - */ - -#define TCL_SMALL_HASH_TABLE 4 -struct Tcl_HashTable { - Tcl_HashEntry **buckets; /* Pointer to bucket array. Each - * element points to first entry in - * bucket's hash chain, or NULL. */ - Tcl_HashEntry *staticBuckets[TCL_SMALL_HASH_TABLE]; - /* Bucket array used for small tables - * (to avoid mallocs and frees). */ - int numBuckets; /* Total number of buckets allocated - * at **bucketPtr. */ - int numEntries; /* Total number of entries present - * in table. */ - int rebuildSize; /* Enlarge table when numEntries gets - * to be this large. */ - int downShift; /* Shift count used in hashing - * function. Designed to use high- - * order bits of randomized keys. */ - int mask; /* Mask value used in hashing - * function. */ - int keyType; /* Type of keys used in this table. - * It's either TCL_CUSTOM_KEYS, - * TCL_STRING_KEYS, TCL_ONE_WORD_KEYS, - * or an integer giving the number of - * ints that is the size of the key. - */ -#if TCL_PRESERVE_BINARY_COMPATABILITY - Tcl_HashEntry *(*findProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, - CONST char *key)); - Tcl_HashEntry *(*createProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, - CONST char *key, int *newPtr)); -#endif - Tcl_HashKeyType *typePtr; /* Type of the keys used in the - * Tcl_HashTable. */ -}; - -/* - * Structure definition for information used to keep track of searches - * through hash tables: - */ - -typedef struct Tcl_HashSearch { - Tcl_HashTable *tablePtr; /* Table being searched. */ - int nextIndex; /* Index of next bucket to be - * enumerated after present one. */ - Tcl_HashEntry *nextEntryPtr; /* Next entry to be enumerated in the - * the current bucket. */ -} Tcl_HashSearch; - -/* - * Acceptable key types for hash tables: - * - * TCL_STRING_KEYS: The keys are strings, they are copied into - * the entry. - * TCL_ONE_WORD_KEYS: The keys are pointers, the pointer is stored - * in the entry. - * TCL_CUSTOM_TYPE_KEYS: The keys are arbitrary types which are copied - * into the entry. - * TCL_CUSTOM_PTR_KEYS: The keys are pointers to arbitrary types, the - * pointer is stored in the entry. - * - * While maintaining binary compatability the above have to be distinct - * values as they are used to differentiate between old versions of the - * hash table which don't have a typePtr and new ones which do. Once binary - * compatability is discarded in favour of making more wide spread changes - * TCL_STRING_KEYS can be the same as TCL_CUSTOM_TYPE_KEYS, and - * TCL_ONE_WORD_KEYS can be the same as TCL_CUSTOM_PTR_KEYS because they - * simply determine how the key is accessed from the entry and not the - * behaviour. - */ - -#define TCL_STRING_KEYS 0 -#define TCL_ONE_WORD_KEYS 1 - -#if TCL_PRESERVE_BINARY_COMPATABILITY -# define TCL_CUSTOM_TYPE_KEYS -2 -# define TCL_CUSTOM_PTR_KEYS -1 -#else -# define TCL_CUSTOM_TYPE_KEYS TCL_STRING_KEYS -# define TCL_CUSTOM_PTR_KEYS TCL_ONE_WORD_KEYS -#endif - -/* - * Macros for clients to use to access fields of hash entries: - */ - -#define Tcl_GetHashValue(h) ((h)->clientData) -#define Tcl_SetHashValue(h, value) ((h)->clientData = (ClientData) (value)) -#if TCL_PRESERVE_BINARY_COMPATABILITY -# define Tcl_GetHashKey(tablePtr, h) \ - ((char *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS || \ - (tablePtr)->keyType == TCL_CUSTOM_PTR_KEYS) \ - ? (h)->key.oneWordValue \ - : (h)->key.string)) -#else -# define Tcl_GetHashKey(tablePtr, h) \ - ((char *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS) \ - ? (h)->key.oneWordValue \ - : (h)->key.string)) -#endif - -/* - * Macros to use for clients to use to invoke find and create procedures - * for hash tables: - */ - -#if TCL_PRESERVE_BINARY_COMPATABILITY -# define Tcl_FindHashEntry(tablePtr, key) \ - (*((tablePtr)->findProc))(tablePtr, key) -# define Tcl_CreateHashEntry(tablePtr, key, newPtr) \ - (*((tablePtr)->createProc))(tablePtr, key, newPtr) -#else /* !TCL_PRESERVE_BINARY_COMPATABILITY */ -/* - * Macro to use new extended version of Tcl_InitHashTable. - */ -# define Tcl_InitHashTable(tablePtr, keyType) \ - Tcl_InitHashTableEx(tablePtr, keyType, NULL) -#endif /* TCL_PRESERVE_BINARY_COMPATABILITY */ - - -/* - * Flag values to pass to Tcl_DoOneEvent to disable searches - * for some kinds of events: - */ -#define TCL_DONT_WAIT (1<<1) -#define TCL_WINDOW_EVENTS (1<<2) -#define TCL_FILE_EVENTS (1<<3) -#define TCL_TIMER_EVENTS (1<<4) -#define TCL_IDLE_EVENTS (1<<5) /* WAS 0x10 ???? */ -#define TCL_ALL_EVENTS (~TCL_DONT_WAIT) - -/* - * The following structure defines a generic event for the Tcl event - * system. These are the things that are queued in calls to Tcl_QueueEvent - * and serviced later by Tcl_DoOneEvent. There can be many different - * kinds of events with different fields, corresponding to window events, - * timer events, etc. The structure for a particular event consists of - * a Tcl_Event header followed by additional information specific to that - * event. - */ -struct Tcl_Event { - Tcl_EventProc *proc; /* Procedure to call to service this event. */ - struct Tcl_Event *nextPtr; /* Next in list of pending events, or NULL. */ -}; - -/* - * Positions to pass to Tcl_QueueEvent: - */ -typedef enum { - TCL_QUEUE_TAIL, TCL_QUEUE_HEAD, TCL_QUEUE_MARK -} Tcl_QueuePosition; - -/* - * Values to pass to Tcl_SetServiceMode to specify the behavior of notifier - * event routines. - */ -#define TCL_SERVICE_NONE 0 -#define TCL_SERVICE_ALL 1 - - -/* - * The following structure keeps is used to hold a time value, either as - * an absolute time (the number of seconds from the epoch) or as an - * elapsed time. On Unix systems the epoch is Midnight Jan 1, 1970 GMT. - * On Macintosh systems the epoch is Midnight Jan 1, 1904 GMT. - */ -typedef struct Tcl_Time { - long sec; /* Seconds. */ - long usec; /* Microseconds. */ -} Tcl_Time; - -typedef void (Tcl_SetTimerProc) _ANSI_ARGS_((Tcl_Time *timePtr)); -typedef int (Tcl_WaitForEventProc) _ANSI_ARGS_((Tcl_Time *timePtr)); - - -/* - * Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler - * to indicate what sorts of events are of interest: - */ -#define TCL_READABLE (1<<1) -#define TCL_WRITABLE (1<<2) -#define TCL_EXCEPTION (1<<3) - -/* - * Flag values to pass to Tcl_OpenCommandChannel to indicate the - * disposition of the stdio handles. TCL_STDIN, TCL_STDOUT, TCL_STDERR, - * are also used in Tcl_GetStdChannel. - */ -#define TCL_STDIN (1<<1) -#define TCL_STDOUT (1<<2) -#define TCL_STDERR (1<<3) -#define TCL_ENFORCE_MODE (1<<4) - -/* - * Bits passed to Tcl_DriverClose2Proc to indicate which side of a channel - * should be closed. - */ -#define TCL_CLOSE_READ (1<<1) -#define TCL_CLOSE_WRITE (1<<2) - -/* - * Value to use as the closeProc for a channel that supports the - * close2Proc interface. - */ -#define TCL_CLOSE2PROC ((Tcl_DriverCloseProc *)1) - -/* - * Channel version tag. This was introduced in 8.3.2/8.4. - */ -#define TCL_CHANNEL_VERSION_1 ((Tcl_ChannelTypeVersion) 0x1) -#define TCL_CHANNEL_VERSION_2 ((Tcl_ChannelTypeVersion) 0x2) -#define TCL_CHANNEL_VERSION_3 ((Tcl_ChannelTypeVersion) 0x3) - -/* - * Typedefs for the various operations in a channel type: - */ -typedef int (Tcl_DriverBlockModeProc) _ANSI_ARGS_(( - ClientData instanceData, int mode)); -typedef int (Tcl_DriverCloseProc) _ANSI_ARGS_((ClientData instanceData, - Tcl_Interp *interp)); -typedef int (Tcl_DriverClose2Proc) _ANSI_ARGS_((ClientData instanceData, - Tcl_Interp *interp, int flags)); -typedef int (Tcl_DriverInputProc) _ANSI_ARGS_((ClientData instanceData, - char *buf, int toRead, int *errorCodePtr)); -typedef int (Tcl_DriverOutputProc) _ANSI_ARGS_((ClientData instanceData, - CONST84 char *buf, int toWrite, int *errorCodePtr)); -typedef int (Tcl_DriverSeekProc) _ANSI_ARGS_((ClientData instanceData, - long offset, int mode, int *errorCodePtr)); -typedef int (Tcl_DriverSetOptionProc) _ANSI_ARGS_(( - ClientData instanceData, Tcl_Interp *interp, - CONST char *optionName, CONST char *value)); -typedef int (Tcl_DriverGetOptionProc) _ANSI_ARGS_(( - ClientData instanceData, Tcl_Interp *interp, - CONST84 char *optionName, Tcl_DString *dsPtr)); -typedef void (Tcl_DriverWatchProc) _ANSI_ARGS_(( - ClientData instanceData, int mask)); -typedef int (Tcl_DriverGetHandleProc) _ANSI_ARGS_(( - ClientData instanceData, int direction, - ClientData *handlePtr)); -typedef int (Tcl_DriverFlushProc) _ANSI_ARGS_(( - ClientData instanceData)); -typedef int (Tcl_DriverHandlerProc) _ANSI_ARGS_(( - ClientData instanceData, int interestMask)); -typedef Tcl_WideInt (Tcl_DriverWideSeekProc) _ANSI_ARGS_(( - ClientData instanceData, Tcl_WideInt offset, - int mode, int *errorCodePtr)); - - -/* - * The following declarations either map ckalloc and ckfree to - * malloc and free, or they map them to procedures with all sorts - * of debugging hooks defined in tclCkalloc.c. - */ -#ifdef TCL_MEM_DEBUG - -# define ckalloc(x) Tcl_DbCkalloc(x, __FILE__, __LINE__) -# define ckfree(x) Tcl_DbCkfree(x, __FILE__, __LINE__) -# define ckrealloc(x,y) Tcl_DbCkrealloc((x), (y),__FILE__, __LINE__) -# define attemptckalloc(x) Tcl_AttemptDbCkalloc(x, __FILE__, __LINE__) -# define attemptckrealloc(x,y) Tcl_AttemptDbCkrealloc((x), (y), __FILE__, __LINE__) -#else /* !TCL_MEM_DEBUG */ - -/* - * If we are not using the debugging allocator, we should call the - * Tcl_Alloc, et al. routines in order to guarantee that every module - * is using the same memory allocator both inside and outside of the - * Tcl library. - */ -# define ckalloc(x) Tcl_Alloc(x) -# define ckfree(x) Tcl_Free(x) -# define ckrealloc(x,y) Tcl_Realloc(x,y) -# define attemptckalloc(x) Tcl_AttemptAlloc(x) -# define attemptckrealloc(x,y) Tcl_AttemptRealloc(x,y) -# define Tcl_InitMemory(x) -# define Tcl_DumpActiveMemory(x) -# define Tcl_ValidateAllMemory(x,y) - -#endif /* !TCL_MEM_DEBUG */ - -/* - * struct Tcl_ChannelType: - * - * One such structure exists for each type (kind) of channel. - * It collects together in one place all the functions that are - * part of the specific channel type. - * - * It is recommend that the Tcl_Channel* functions are used to access - * elements of this structure, instead of direct accessing. - */ -typedef struct Tcl_ChannelType -#ifdef USE_TCL_STRUCT -{ - char *typeName; /* The name of the channel type in Tcl - * commands. This storage is owned by - * channel type. */ - Tcl_ChannelTypeVersion version; /* Version of the channel type. */ - Tcl_DriverCloseProc *closeProc; /* Procedure to call to close the - * channel, or TCL_CLOSE2PROC if the - * close2Proc should be used - * instead. */ - Tcl_DriverInputProc *inputProc; /* Procedure to call for input - * on channel. */ - Tcl_DriverOutputProc *outputProc; /* Procedure to call for output - * on channel. */ - Tcl_DriverSeekProc *seekProc; /* Procedure to call to seek - * on the channel. May be NULL. */ - Tcl_DriverSetOptionProc *setOptionProc; - /* Set an option on a channel. */ - Tcl_DriverGetOptionProc *getOptionProc; - /* Get an option from a channel. */ - Tcl_DriverWatchProc *watchProc; /* Set up the notifier to watch - * for events on this channel. */ - Tcl_DriverGetHandleProc *getHandleProc; - /* Get an OS handle from the channel - * or NULL if not supported. */ - Tcl_DriverClose2Proc *close2Proc; /* Procedure to call to close the - * channel if the device supports - * closing the read & write sides - * independently. */ - Tcl_DriverBlockModeProc *blockModeProc; - /* Set blocking mode for the - * raw channel. May be NULL. */ - /* - * Only valid in TCL_CHANNEL_VERSION_2 channels or later - */ - Tcl_DriverFlushProc *flushProc; /* Procedure to call to flush a - * channel. May be NULL. */ - Tcl_DriverHandlerProc *handlerProc; /* Procedure to call to handle a - * channel event. This will be passed - * up the stacked channel chain. */ - /* - * Only valid in TCL_CHANNEL_VERSION_3 channels or later - */ - Tcl_DriverWideSeekProc *wideSeekProc; - /* Procedure to call to seek - * on the channel which can - * handle 64-bit offsets. May be - * NULL, and must be NULL if - * seekProc is NULL. */ -} -#endif -Tcl_ChannelType; - -/* - * The following flags determine whether the blockModeProc above should - * set the channel into blocking or nonblocking mode. They are passed - * as arguments to the blockModeProc procedure in the above structure. - */ -#define TCL_MODE_BLOCKING 0 /* Put channel into blocking mode. */ -#define TCL_MODE_NONBLOCKING 1 /* Put channel into nonblocking - * mode. */ - -/* - * Enum for different types of file paths. - */ -typedef enum Tcl_PathType { - TCL_PATH_ABSOLUTE, - TCL_PATH_RELATIVE, - TCL_PATH_VOLUME_RELATIVE -} Tcl_PathType; - - -/* - * The following structure is used to pass glob type data amongst - * the various glob routines and Tcl_FSMatchInDirectory. - */ -typedef struct Tcl_GlobTypeData { - /* Corresponds to bcdpfls as in 'find -t' */ - int type; - /* Corresponds to file permissions */ - int perm; - /* Acceptable mac type */ - Tcl_Obj* macType; - /* Acceptable mac creator */ - Tcl_Obj* macCreator; -} Tcl_GlobTypeData; - -/* - * type and permission definitions for glob command - */ -#define TCL_GLOB_TYPE_BLOCK (1<<0) -#define TCL_GLOB_TYPE_CHAR (1<<1) -#define TCL_GLOB_TYPE_DIR (1<<2) -#define TCL_GLOB_TYPE_PIPE (1<<3) -#define TCL_GLOB_TYPE_FILE (1<<4) -#define TCL_GLOB_TYPE_LINK (1<<5) -#define TCL_GLOB_TYPE_SOCK (1<<6) -#define TCL_GLOB_TYPE_MOUNT (1<<7) - -#define TCL_GLOB_PERM_RONLY (1<<0) -#define TCL_GLOB_PERM_HIDDEN (1<<1) -#define TCL_GLOB_PERM_R (1<<2) -#define TCL_GLOB_PERM_W (1<<3) -#define TCL_GLOB_PERM_X (1<<4) - - -/* - * Typedefs for the various filesystem operations: - */ -typedef int (Tcl_FSStatProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_StatBuf *buf)); -typedef int (Tcl_FSAccessProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, int mode)); -typedef Tcl_Channel (Tcl_FSOpenFileChannelProc) - _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *pathPtr, - int mode, int permissions)); -typedef int (Tcl_FSMatchInDirectoryProc) _ANSI_ARGS_((Tcl_Interp* interp, - Tcl_Obj *result, Tcl_Obj *pathPtr, CONST char *pattern, - Tcl_GlobTypeData * types)); -typedef Tcl_Obj* (Tcl_FSGetCwdProc) _ANSI_ARGS_((Tcl_Interp *interp)); -typedef int (Tcl_FSChdirProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); -typedef int (Tcl_FSLstatProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, - Tcl_StatBuf *buf)); -typedef int (Tcl_FSCreateDirectoryProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); -typedef int (Tcl_FSDeleteFileProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); -typedef int (Tcl_FSCopyDirectoryProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr)); -typedef int (Tcl_FSCopyFileProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr)); -typedef int (Tcl_FSRemoveDirectoryProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, - int recursive, Tcl_Obj **errorPtr)); -typedef int (Tcl_FSRenameFileProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr)); -typedef void (Tcl_FSUnloadFileProc) _ANSI_ARGS_((Tcl_LoadHandle loadHandle)); -typedef Tcl_Obj* (Tcl_FSListVolumesProc) _ANSI_ARGS_((void)); -/* We have to declare the utime structure here. */ -struct utimbuf; -typedef int (Tcl_FSUtimeProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, - struct utimbuf *tval)); -typedef int (Tcl_FSNormalizePathProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *pathPtr, int nextCheckpoint)); -typedef int (Tcl_FSFileAttrsGetProc) _ANSI_ARGS_((Tcl_Interp *interp, - int index, Tcl_Obj *pathPtr, - Tcl_Obj **objPtrRef)); -typedef CONST char** (Tcl_FSFileAttrStringsProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, - Tcl_Obj** objPtrRef)); -typedef int (Tcl_FSFileAttrsSetProc) _ANSI_ARGS_((Tcl_Interp *interp, - int index, Tcl_Obj *pathPtr, - Tcl_Obj *objPtr)); -typedef Tcl_Obj* (Tcl_FSLinkProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, - Tcl_Obj *toPtr, int linkType)); -typedef int (Tcl_FSLoadFileProc) _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj *pathPtr, - Tcl_LoadHandle *handlePtr, - Tcl_FSUnloadFileProc **unloadProcPtr)); -typedef int (Tcl_FSPathInFilesystemProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, - ClientData *clientDataPtr)); -typedef Tcl_Obj* (Tcl_FSFilesystemPathTypeProc) - _ANSI_ARGS_((Tcl_Obj *pathPtr)); -typedef Tcl_Obj* (Tcl_FSFilesystemSeparatorProc) - _ANSI_ARGS_((Tcl_Obj *pathPtr)); -typedef void (Tcl_FSFreeInternalRepProc) _ANSI_ARGS_((ClientData clientData)); -typedef ClientData (Tcl_FSDupInternalRepProc) - _ANSI_ARGS_((ClientData clientData)); -typedef Tcl_Obj* (Tcl_FSInternalToNormalizedProc) - _ANSI_ARGS_((ClientData clientData)); -typedef ClientData (Tcl_FSCreateInternalRepProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); - -typedef struct Tcl_FSVersion_ *Tcl_FSVersion; - -/* - *---------------------------------------------------------------- - * Data structures related to hooking into the filesystem - *---------------------------------------------------------------- - */ - -/* - * Filesystem version tag. This was introduced in 8.4. - */ -#define TCL_FILESYSTEM_VERSION_1 ((Tcl_FSVersion) 0x1) - -/* - * struct Tcl_Filesystem: - * - * One such structure exists for each type (kind) of filesystem. - * It collects together in one place all the functions that are - * part of the specific filesystem. Tcl always accesses the - * filesystem through one of these structures. - * - * Not all entries need be non-NULL; any which are NULL are simply - * ignored. However, a complete filesystem should provide all of - * these functions. The explanations in the structure show - * the importance of each function. - */ - -typedef struct Tcl_Filesystem { - CONST char *typeName; /* The name of the filesystem. */ - int structureLength; /* Length of this structure, so future - * binary compatibility can be assured. */ - Tcl_FSVersion version; - /* Version of the filesystem type. */ - Tcl_FSPathInFilesystemProc *pathInFilesystemProc; - /* Function to check whether a path is in - * this filesystem. This is the most - * important filesystem procedure. */ - Tcl_FSDupInternalRepProc *dupInternalRepProc; - /* Function to duplicate internal fs rep. May - * be NULL (but then fs is less efficient). */ - Tcl_FSFreeInternalRepProc *freeInternalRepProc; - /* Function to free internal fs rep. Must - * be implemented, if internal representations - * need freeing, otherwise it can be NULL. */ - Tcl_FSInternalToNormalizedProc *internalToNormalizedProc; - /* Function to convert internal representation - * to a normalized path. Only required if - * the fs creates pure path objects with no - * string/path representation. */ - Tcl_FSCreateInternalRepProc *createInternalRepProc; - /* Function to create a filesystem-specific - * internal representation. May be NULL - * if paths have no internal representation, - * or if the Tcl_FSPathInFilesystemProc - * for this filesystem always immediately - * creates an internal representation for - * paths it accepts. */ - Tcl_FSNormalizePathProc *normalizePathProc; - /* Function to normalize a path. Should - * be implemented for all filesystems - * which can have multiple string - * representations for the same path - * object. */ - Tcl_FSFilesystemPathTypeProc *filesystemPathTypeProc; - /* Function to determine the type of a - * path in this filesystem. May be NULL. */ - Tcl_FSFilesystemSeparatorProc *filesystemSeparatorProc; - /* Function to return the separator - * character(s) for this filesystem. Must - * be implemented. */ - Tcl_FSStatProc *statProc; - /* - * Function to process a 'Tcl_FSStat()' - * call. Must be implemented for any - * reasonable filesystem. - */ - Tcl_FSAccessProc *accessProc; - /* - * Function to process a 'Tcl_FSAccess()' - * call. Must be implemented for any - * reasonable filesystem. - */ - Tcl_FSOpenFileChannelProc *openFileChannelProc; - /* - * Function to process a - * 'Tcl_FSOpenFileChannel()' call. Must be - * implemented for any reasonable - * filesystem. - */ - Tcl_FSMatchInDirectoryProc *matchInDirectoryProc; - /* Function to process a - * 'Tcl_FSMatchInDirectory()'. If not - * implemented, then glob and recursive - * copy functionality will be lacking in - * the filesystem. */ - Tcl_FSUtimeProc *utimeProc; - /* Function to process a - * 'Tcl_FSUtime()' call. Required to - * allow setting (not reading) of times - * with 'file mtime', 'file atime' and - * the open-r/open-w/fcopy implementation - * of 'file copy'. */ - Tcl_FSLinkProc *linkProc; - /* Function to process a - * 'Tcl_FSLink()' call. Should be - * implemented only if the filesystem supports - * links (reading or creating). */ - Tcl_FSListVolumesProc *listVolumesProc; - /* Function to list any filesystem volumes - * added by this filesystem. Should be - * implemented only if the filesystem adds - * volumes at the head of the filesystem. */ - Tcl_FSFileAttrStringsProc *fileAttrStringsProc; - /* Function to list all attributes strings - * which are valid for this filesystem. - * If not implemented the filesystem will - * not support the 'file attributes' command. - * This allows arbitrary additional information - * to be attached to files in the filesystem. */ - Tcl_FSFileAttrsGetProc *fileAttrsGetProc; - /* Function to process a - * 'Tcl_FSFileAttrsGet()' call, used by - * 'file attributes'. */ - Tcl_FSFileAttrsSetProc *fileAttrsSetProc; - /* Function to process a - * 'Tcl_FSFileAttrsSet()' call, used by - * 'file attributes'. */ - Tcl_FSCreateDirectoryProc *createDirectoryProc; - /* Function to process a - * 'Tcl_FSCreateDirectory()' call. Should - * be implemented unless the FS is - * read-only. */ - Tcl_FSRemoveDirectoryProc *removeDirectoryProc; - /* Function to process a - * 'Tcl_FSRemoveDirectory()' call. Should - * be implemented unless the FS is - * read-only. */ - Tcl_FSDeleteFileProc *deleteFileProc; - /* Function to process a - * 'Tcl_FSDeleteFile()' call. Should - * be implemented unless the FS is - * read-only. */ - Tcl_FSCopyFileProc *copyFileProc; - /* Function to process a - * 'Tcl_FSCopyFile()' call. If not - * implemented Tcl will fall back - * on open-r, open-w and fcopy as - * a copying mechanism, for copying - * actions initiated in Tcl (not C). */ - Tcl_FSRenameFileProc *renameFileProc; - /* Function to process a - * 'Tcl_FSRenameFile()' call. If not - * implemented, Tcl will fall back on - * a copy and delete mechanism, for - * rename actions initiated in Tcl (not C). */ - Tcl_FSCopyDirectoryProc *copyDirectoryProc; - /* Function to process a - * 'Tcl_FSCopyDirectory()' call. If - * not implemented, Tcl will fall back - * on a recursive create-dir, file copy - * mechanism, for copying actions - * initiated in Tcl (not C). */ - Tcl_FSLstatProc *lstatProc; - /* Function to process a - * 'Tcl_FSLstat()' call. If not implemented, - * Tcl will attempt to use the 'statProc' - * defined above instead. */ - Tcl_FSLoadFileProc *loadFileProc; - /* Function to process a - * 'Tcl_FSLoadFile()' call. If not - * implemented, Tcl will fall back on - * a copy to native-temp followed by a - * Tcl_FSLoadFile on that temporary copy. */ - Tcl_FSGetCwdProc *getCwdProc; - /* - * Function to process a 'Tcl_FSGetCwd()' - * call. Most filesystems need not - * implement this. It will usually only be - * called once, if 'getcwd' is called - * before 'chdir'. May be NULL. - */ - Tcl_FSChdirProc *chdirProc; - /* - * Function to process a 'Tcl_FSChdir()' - * call. If filesystems do not implement - * this, it will be emulated by a series of - * directory access checks. Otherwise, - * virtual filesystems which do implement - * it need only respond with a positive - * return result if the dirName is a valid - * directory in their filesystem. They - * need not remember the result, since that - * will be automatically remembered for use - * by GetCwd. Real filesystems should - * carry out the correct action (i.e. call - * the correct system 'chdir' api). If not - * implemented, then 'cd' and 'pwd' will - * fail inside the filesystem. - */ -} Tcl_Filesystem; - -/* - * The following definitions are used as values for the 'linkAction' flag - * to Tcl_FSLink, or the linkProc of any filesystem. Any combination - * of flags can be given. For link creation, the linkProc should create - * a link which matches any of the types given. - * - * TCL_CREATE_SYMBOLIC_LINK: Create a symbolic or soft link. - * TCL_CREATE_HARD_LINK: Create a hard link. - */ -#define TCL_CREATE_SYMBOLIC_LINK 0x01 -#define TCL_CREATE_HARD_LINK 0x02 - -/* - * The following structure represents the Notifier functions that - * you can override with the Tcl_SetNotifier call. - */ -typedef struct Tcl_NotifierProcs { - Tcl_SetTimerProc *setTimerProc; - Tcl_WaitForEventProc *waitForEventProc; - Tcl_CreateFileHandlerProc *createFileHandlerProc; - Tcl_DeleteFileHandlerProc *deleteFileHandlerProc; - Tcl_InitNotifierProc *initNotifierProc; - Tcl_FinalizeNotifierProc *finalizeNotifierProc; - Tcl_AlertNotifierProc *alertNotifierProc; - Tcl_ServiceModeHookProc *serviceModeHookProc; -} Tcl_NotifierProcs; - - -/* - * The following structure represents a user-defined encoding. It collects - * together all the functions that are used by the specific encoding. - */ -typedef struct Tcl_EncodingType -#ifdef USE_TCL_STRUCT -{ - CONST char *encodingName; /* The name of the encoding, e.g. "euc-jp". - * This name is the unique key for this - * encoding type. */ - Tcl_EncodingConvertProc *toUtfProc; - /* Procedure to convert from external - * encoding into UTF-8. */ - Tcl_EncodingConvertProc *fromUtfProc; - /* Procedure to convert from UTF-8 into - * external encoding. */ - Tcl_EncodingFreeProc *freeProc; - /* If non-NULL, procedure to call when this - * encoding is deleted. */ - ClientData clientData; /* Arbitrary value associated with encoding - * type. Passed to conversion procedures. */ - int nullSize; /* Number of zero bytes that signify - * end-of-string in this encoding. This - * number is used to determine the source - * string length when the srcLen argument is - * negative. Must be 1 or 2. */ -} -#endif -Tcl_EncodingType; - -/* - * The following definitions are used as values for the conversion control - * flags argument when converting text from one character set to another: - * - * TCL_ENCODING_START: Signifies that the source buffer is the first - * block in a (potentially multi-block) input - * stream. Tells the conversion procedure to - * reset to an initial state and perform any - * initialization that needs to occur before the - * first byte is converted. If the source - * buffer contains the entire input stream to be - * converted, this flag should be set. - * - * TCL_ENCODING_END: Signifies that the source buffer is the last - * block in a (potentially multi-block) input - * stream. Tells the conversion routine to - * perform any finalization that needs to occur - * after the last byte is converted and then to - * reset to an initial state. If the source - * buffer contains the entire input stream to be - * converted, this flag should be set. - * - * TCL_ENCODING_STOPONERROR: If set, then the converter will return - * immediately upon encountering an invalid - * byte sequence or a source character that has - * no mapping in the target encoding. If clear, - * then the converter will skip the problem, - * substituting one or more "close" characters - * in the destination buffer and then continue - * to sonvert the source. - */ -#define TCL_ENCODING_START 0x01 -#define TCL_ENCODING_END 0x02 -#define TCL_ENCODING_STOPONERROR 0x04 - - -/* - * The following data structures and declarations are for the new Tcl - * parser. - */ - -/* - * For each word of a command, and for each piece of a word such as a - * variable reference, one of the following structures is created to - * describe the token. - */ -typedef struct Tcl_Token -#ifdef USE_TCL_STRUCT -{ - int type; /* Type of token, such as TCL_TOKEN_WORD; - * see below for valid types. */ - CONST char *start; /* First character in token. */ - int size; /* Number of bytes in token. */ - int numComponents; /* If this token is composed of other - * tokens, this field tells how many of - * them there are (including components of - * components, etc.). The component tokens - * immediately follow this one. */ -} -#endif -Tcl_Token; - -/* - * Type values defined for Tcl_Token structures. These values are - * defined as mask bits so that it's easy to check for collections of - * types. - * - * TCL_TOKEN_WORD - The token describes one word of a command, - * from the first non-blank character of - * the word (which may be " or {) up to but - * not including the space, semicolon, or - * bracket that terminates the word. - * NumComponents counts the total number of - * sub-tokens that make up the word. This - * includes, for example, sub-tokens of - * TCL_TOKEN_VARIABLE tokens. - * TCL_TOKEN_SIMPLE_WORD - This token is just like TCL_TOKEN_WORD - * except that the word is guaranteed to - * consist of a single TCL_TOKEN_TEXT - * sub-token. - * TCL_TOKEN_TEXT - The token describes a range of literal - * text that is part of a word. - * NumComponents is always 0. - * TCL_TOKEN_BS - The token describes a backslash sequence - * that must be collapsed. NumComponents - * is always 0. - * TCL_TOKEN_COMMAND - The token describes a command whose result - * must be substituted into the word. The - * token includes the enclosing brackets. - * NumComponents is always 0. - * TCL_TOKEN_VARIABLE - The token describes a variable - * substitution, including the dollar sign, - * variable name, and array index (if there - * is one) up through the right - * parentheses. NumComponents tells how - * many additional tokens follow to - * represent the variable name. The first - * token will be a TCL_TOKEN_TEXT token - * that describes the variable name. If - * the variable is an array reference then - * there will be one or more additional - * tokens, of type TCL_TOKEN_TEXT, - * TCL_TOKEN_BS, TCL_TOKEN_COMMAND, and - * TCL_TOKEN_VARIABLE, that describe the - * array index; numComponents counts the - * total number of nested tokens that make - * up the variable reference, including - * sub-tokens of TCL_TOKEN_VARIABLE tokens. - * TCL_TOKEN_SUB_EXPR - The token describes one subexpression of a - * expression, from the first non-blank - * character of the subexpression up to but not - * including the space, brace, or bracket - * that terminates the subexpression. - * NumComponents counts the total number of - * following subtokens that make up the - * subexpression; this includes all subtokens - * for any nested TCL_TOKEN_SUB_EXPR tokens. - * For example, a numeric value used as a - * primitive operand is described by a - * TCL_TOKEN_SUB_EXPR token followed by a - * TCL_TOKEN_TEXT token. A binary subexpression - * is described by a TCL_TOKEN_SUB_EXPR token - * followed by the TCL_TOKEN_OPERATOR token - * for the operator, then TCL_TOKEN_SUB_EXPR - * tokens for the left then the right operands. - * TCL_TOKEN_OPERATOR - The token describes one expression operator. - * An operator might be the name of a math - * function such as "abs". A TCL_TOKEN_OPERATOR - * token is always preceeded by one - * TCL_TOKEN_SUB_EXPR token for the operator's - * subexpression, and is followed by zero or - * more TCL_TOKEN_SUB_EXPR tokens for the - * operator's operands. NumComponents is - * always 0. - */ -#define TCL_TOKEN_WORD 1 -#define TCL_TOKEN_SIMPLE_WORD 2 -#define TCL_TOKEN_TEXT 4 -#define TCL_TOKEN_BS 8 -#define TCL_TOKEN_COMMAND 16 -#define TCL_TOKEN_VARIABLE 32 -#define TCL_TOKEN_SUB_EXPR 64 -#define TCL_TOKEN_OPERATOR 128 - -/* - * Parsing error types. On any parsing error, one of these values - * will be stored in the error field of the Tcl_Parse structure - * defined below. - */ -#define TCL_PARSE_SUCCESS 0 -#define TCL_PARSE_QUOTE_EXTRA 1 -#define TCL_PARSE_BRACE_EXTRA 2 -#define TCL_PARSE_MISSING_BRACE 3 -#define TCL_PARSE_MISSING_BRACKET 4 -#define TCL_PARSE_MISSING_PAREN 5 -#define TCL_PARSE_MISSING_QUOTE 6 -#define TCL_PARSE_MISSING_VAR_BRACE 7 -#define TCL_PARSE_SYNTAX 8 -#define TCL_PARSE_BAD_NUMBER 9 - -/* - * A structure of the following type is filled in by Tcl_ParseCommand. - * It describes a single command parsed from an input string. - */ -#define NUM_STATIC_TOKENS 20 - -typedef struct Tcl_Parse -#ifdef USE_TCL_STRUCT -{ - CONST char *commentStart; /* Pointer to # that begins the first of - * one or more comments preceding the - * command. */ - int commentSize; /* Number of bytes in comments (up through - * newline character that terminates the - * last comment). If there were no - * comments, this field is 0. */ - CONST char *commandStart; /* First character in first word of command. */ - int commandSize; /* Number of bytes in command, including - * first character of first word, up - * through the terminating newline, - * close bracket, or semicolon. */ - int numWords; /* Total number of words in command. May - * be 0. */ - Tcl_Token *tokenPtr; /* Pointer to first token representing - * the words of the command. Initially - * points to staticTokens, but may change - * to point to malloc-ed space if command - * exceeds space in staticTokens. */ - int numTokens; /* Total number of tokens in command. */ - int tokensAvailable; /* Total number of tokens available at - * *tokenPtr. */ - int errorType; /* One of the parsing error types defined - * above. */ - - /* - * The fields below are intended only for the private use of the - * parser. They should not be used by procedures that invoke - * Tcl_ParseCommand. - */ - - CONST char *string; /* The original command string passed to - * Tcl_ParseCommand. */ - CONST char *end; /* Points to the character just after the - * last one in the command string. */ - Tcl_Interp *interp; /* Interpreter to use for error reporting, - * or NULL. */ - CONST char *term; /* Points to character in string that - * terminated most recent token. Filled in - * by ParseTokens. If an error occurs, - * points to beginning of region where the - * error occurred (e.g. the open brace if - * the close brace is missing). */ - int incomplete; /* This field is set to 1 by Tcl_ParseCommand - * if the command appears to be incomplete. - * This information is used by - * Tcl_CommandComplete. */ - Tcl_Token staticTokens[NUM_STATIC_TOKENS]; - /* Initial space for tokens for command. - * This space should be large enough to - * accommodate most commands; dynamic - * space is allocated for very large - * commands that don't fit here. */ -} -#endif -Tcl_Parse; - -/* - * The following definitions are the error codes returned by the conversion - * routines: - * - * TCL_OK: All characters were converted. - * - * TCL_CONVERT_NOSPACE: The output buffer would not have been large - * enough for all of the converted data; as many - * characters as could fit were converted though. - * - * TCL_CONVERT_MULTIBYTE: The last few bytes in the source string were - * the beginning of a multibyte sequence, but - * more bytes were needed to complete this - * sequence. A subsequent call to the conversion - * routine should pass the beginning of this - * unconverted sequence plus additional bytes - * from the source stream to properly convert - * the formerly split-up multibyte sequence. - * - * TCL_CONVERT_SYNTAX: The source stream contained an invalid - * character sequence. This may occur if the - * input stream has been damaged or if the input - * encoding method was misidentified. This error - * is reported only if TCL_ENCODING_STOPONERROR - * was specified. - * - * TCL_CONVERT_UNKNOWN: The source string contained a character - * that could not be represented in the target - * encoding. This error is reported only if - * TCL_ENCODING_STOPONERROR was specified. - */ -#define TCL_CONVERT_MULTIBYTE -1 -#define TCL_CONVERT_SYNTAX -2 -#define TCL_CONVERT_UNKNOWN -3 -#define TCL_CONVERT_NOSPACE -4 - -/* - * The maximum number of bytes that are necessary to represent a single - * Unicode character in UTF-8. The valid values should be 3 or 6 (or - * perhaps 1 if we want to support a non-unicode enabled core). - * If 3, then Tcl_UniChar must be 2-bytes in size (UCS-2). (default) - * If 6, then Tcl_UniChar must be 4-bytes in size (UCS-4). - * At this time UCS-2 mode is the default and recommended mode. - * UCS-4 is experimental and not recommended. It works for the core, - * but most extensions expect UCS-2. - */ -#ifndef TCL_UTF_MAX -#define TCL_UTF_MAX 3 -#endif - -/* - * This represents a Unicode character. Any changes to this should - * also be reflected in regcustom.h. - */ -#if TCL_UTF_MAX > 3 - /* - * unsigned int isn't 100% accurate as it should be a strict 4-byte - * value (perhaps wchar_t). 64-bit systems may have troubles. The - * size of this value must be reflected correctly in regcustom.h. - */ -typedef unsigned int Tcl_UniChar; -#else -typedef unsigned short Tcl_UniChar; -#endif - - -/* - * Deprecated Tcl procedures: - */ -#ifndef TCL_NO_DEPRECATED -# define Tcl_EvalObj(interp,objPtr) \ - Tcl_EvalObjEx((interp),(objPtr),0) -# define Tcl_GlobalEvalObj(interp,objPtr) \ - Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL) -#endif - - -/* - * These function have been renamed. The old names are deprecated, but we - * define these macros for backwards compatibilty. - */ -#define Tcl_Ckalloc Tcl_Alloc -#define Tcl_Ckfree Tcl_Free -#define Tcl_Ckrealloc Tcl_Realloc -#define Tcl_Return Tcl_SetResult -#define Tcl_TildeSubst Tcl_TranslateFileName -#ifndef _LANG -#define panic Tcl_Panic -#endif -#define panicVA Tcl_PanicVA - - -/* - * The following constant is used to test for older versions of Tcl - * in the stubs tables. - * - * Jan Nijtman's plus patch uses 0xFCA1BACF, so we need to pick a different - * value since the stubs tables don't match. - */ - -#define TCL_STUB_MAGIC ((int)0xFCA3BACF) - -/* - * The following function is required to be defined in all stubs aware - * extensions. The function is actually implemented in the stub - * library, not the main Tcl library, although there is a trivial - * implementation in the main library in case an extension is statically - * linked into an application. - */ - -EXTERN CONST char * Tcl_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, - CONST char *version, int exact)); - -#ifndef USE_TCL_STUBS - -/* - * When not using stubs, make it a macro. - */ - -#define Tcl_InitStubs(interp, version, exact) \ - Tcl_PkgRequire(interp, "Tcl", version, exact) - -#endif - - -/* - * Include the public function declarations that are accessible via - * the stubs table. - */ - -#include "tclDecls.h" - -/* - * Include platform specific public function declarations that are - * accessible via the stubs table. - */ - -/* - * tclPlatDecls.h can't be included here on the Mac, as we need - * Mac specific headers to define the Mac types used in this file, - * but these Mac haders conflict with a number of tk types - * and thus can't be included in the globally read tcl.h - * This header was originally added here as a fix for bug 5241 - * (stub link error for symbols in TclPlatStubs table), as a work- - * around for the bug on the mac, tclMac.h is included immediately - * after tcl.h in the tcl precompiled header (with DLLEXPORT set). - */ - -#if !defined(MAC_TCL) -#include "tclPlatDecls.h" -#endif - -/* - * Public functions that are not accessible via the stubs table. - */ - -EXTERN void Tcl_Main _ANSI_ARGS_((int argc, char **argv, - Tcl_AppInitProc *appInitProc)); - -/* - * Convenience declaration of Tcl_AppInit for backwards compatibility. - * This function is not *implemented* by the tcl library, so the storage - * class is neither DLLEXPORT nor DLLIMPORT - */ -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS - -EXTERN int Tcl_AppInit _ANSI_ARGS_((Tcl_Interp *interp)); - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* RC_INVOKED */ - -/* - * end block for C++ - */ -#ifdef __cplusplus -} -#endif - -#endif /* _TCL */ - - - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls.h deleted file mode 100644 index 6ae47c1d922..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls.h +++ /dev/null @@ -1,4143 +0,0 @@ -/* - * tclDecls.h -- - * - * Declarations of functions in the platform independent public Tcl API. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tclDecls.h,v 1.93.2.1 2003/05/13 09:57:40 mistachkin Exp $ - */ - -#ifndef _TCLDECLS -#define _TCLDECLS - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tcl.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -/* - * Exported function declarations: - */ - -/* 0 */ -EXTERN int Tcl_PkgProvideEx _ANSI_ARGS_((Tcl_Interp* interp, - CONST char* name, CONST char* version, - ClientData clientData)); -/* 1 */ -EXTERN CONST84_RETURN char * Tcl_PkgRequireEx _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * name, - CONST char * version, int exact, - ClientData * clientDataPtr)); -/* 2 */ -EXTERN void Tcl_Panic _ANSI_ARGS_(TCL_VARARGS(CONST char *,format)); -/* 3 */ -EXTERN char * Tcl_Alloc _ANSI_ARGS_((unsigned int size)); -/* 4 */ -EXTERN void Tcl_Free _ANSI_ARGS_((char * ptr)); -/* 5 */ -EXTERN char * Tcl_Realloc _ANSI_ARGS_((char * ptr, - unsigned int size)); -/* 6 */ -EXTERN char * Tcl_DbCkalloc _ANSI_ARGS_((unsigned int size, - CONST char * file, int line)); -/* 7 */ -EXTERN int Tcl_DbCkfree _ANSI_ARGS_((char * ptr, - CONST char * file, int line)); -/* 8 */ -EXTERN char * Tcl_DbCkrealloc _ANSI_ARGS_((char * ptr, - unsigned int size, CONST char * file, - int line)); -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ -/* 9 */ -EXTERN void Tcl_CreateFileHandler _ANSI_ARGS_((int fd, int mask, - Tcl_FileProc * proc, ClientData clientData)); -#endif /* UNIX */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ -/* 10 */ -EXTERN void Tcl_DeleteFileHandler _ANSI_ARGS_((int fd)); -#endif /* UNIX */ -/* 11 */ -EXTERN void Tcl_SetTimer _ANSI_ARGS_((Tcl_Time * timePtr)); -/* 12 */ -EXTERN void Tcl_Sleep _ANSI_ARGS_((int ms)); -/* 13 */ -EXTERN int Tcl_WaitForEvent _ANSI_ARGS_((Tcl_Time * timePtr)); -/* 14 */ -EXTERN int Tcl_AppendAllObjTypes _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * objPtr)); -/* 15 */ -EXTERN void Tcl_AppendStringsToObj _ANSI_ARGS_(TCL_VARARGS(Tcl_Obj *,objPtr)); -/* 16 */ -EXTERN void Tcl_AppendToObj _ANSI_ARGS_((Tcl_Obj* objPtr, - CONST char* bytes, int length)); -/* 17 */ -EXTERN Tcl_Obj * Tcl_ConcatObj _ANSI_ARGS_((int objc, - Tcl_Obj *CONST objv[])); -/* 18 */ -EXTERN int Tcl_ConvertToType _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * objPtr, Tcl_ObjType * typePtr)); -/* 19 */ -EXTERN void Tcl_DbDecrRefCount _ANSI_ARGS_((Tcl_Obj * objPtr, - CONST char * file, int line)); -/* 20 */ -EXTERN void Tcl_DbIncrRefCount _ANSI_ARGS_((Tcl_Obj * objPtr, - CONST char * file, int line)); -/* 21 */ -EXTERN int Tcl_DbIsShared _ANSI_ARGS_((Tcl_Obj * objPtr, - CONST char * file, int line)); -/* 22 */ -EXTERN Tcl_Obj * Tcl_DbNewBooleanObj _ANSI_ARGS_((int boolValue, - CONST char * file, int line)); -/* 23 */ -EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj _ANSI_ARGS_(( - CONST unsigned char * bytes, int length, - CONST char * file, int line)); -/* 24 */ -EXTERN Tcl_Obj * Tcl_DbNewDoubleObj _ANSI_ARGS_((double doubleValue, - CONST char * file, int line)); -/* 25 */ -EXTERN Tcl_Obj * Tcl_DbNewListObj _ANSI_ARGS_((int objc, - Tcl_Obj *CONST * objv, CONST char * file, - int line)); -/* 26 */ -EXTERN Tcl_Obj * Tcl_DbNewLongObj _ANSI_ARGS_((long longValue, - CONST char * file, int line)); -/* 27 */ -EXTERN Tcl_Obj * Tcl_DbNewObj _ANSI_ARGS_((CONST char * file, - int line)); -/* 28 */ -EXTERN Tcl_Obj * Tcl_DbNewStringObj _ANSI_ARGS_((CONST char * bytes, - int length, CONST char * file, int line)); -/* 29 */ -EXTERN Tcl_Obj * Tcl_DuplicateObj _ANSI_ARGS_((Tcl_Obj * objPtr)); -/* 30 */ -EXTERN void TclFreeObj _ANSI_ARGS_((Tcl_Obj * objPtr)); -/* 31 */ -EXTERN int Tcl_GetBoolean _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * str, int * boolPtr)); -/* 32 */ -EXTERN int Tcl_GetBooleanFromObj _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * objPtr, - int * boolPtr)); -/* 33 */ -EXTERN unsigned char * Tcl_GetByteArrayFromObj _ANSI_ARGS_(( - Tcl_Obj * objPtr, int * lengthPtr)); -/* 34 */ -EXTERN int Tcl_GetDouble _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * str, double * doublePtr)); -/* 35 */ -EXTERN int Tcl_GetDoubleFromObj _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * objPtr, - double * doublePtr)); -/* 36 */ -EXTERN int Tcl_GetIndexFromObj _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * objPtr, CONST char ** tablePtr, - CONST char * msg, int flags, int * indexPtr)); -/* 37 */ -EXTERN int Tcl_GetInt _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * str, int * intPtr)); -/* 38 */ -EXTERN int Tcl_GetIntFromObj _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * objPtr, int * intPtr)); -/* 39 */ -EXTERN int Tcl_GetLongFromObj _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * objPtr, long * longPtr)); -/* 40 */ -EXTERN Tcl_ObjType * Tcl_GetObjType _ANSI_ARGS_((CONST char * typeName)); -/* 41 */ -EXTERN char * Tcl_GetStringFromObj _ANSI_ARGS_((Tcl_Obj * objPtr, - int * lengthPtr)); -/* 42 */ -EXTERN void Tcl_InvalidateStringRep _ANSI_ARGS_(( - Tcl_Obj * objPtr)); -/* 43 */ -EXTERN int Tcl_ListObjAppendList _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * listPtr, - Tcl_Obj * elemListPtr)); -/* 44 */ -EXTERN int Tcl_ListObjAppendElement _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * listPtr, - Tcl_Obj * objPtr)); -/* 45 */ -EXTERN int Tcl_ListObjGetElements _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * listPtr, - int * objcPtr, Tcl_Obj *** objvPtr)); -/* 46 */ -EXTERN int Tcl_ListObjIndex _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * listPtr, int index, - Tcl_Obj ** objPtrPtr)); -/* 47 */ -EXTERN int Tcl_ListObjLength _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * listPtr, int * lengthPtr)); -/* 48 */ -EXTERN int Tcl_ListObjReplace _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * listPtr, int first, int count, - int objc, Tcl_Obj *CONST objv[])); -/* 49 */ -EXTERN Tcl_Obj * Tcl_NewBooleanObj _ANSI_ARGS_((int boolValue)); -/* 50 */ -EXTERN Tcl_Obj * Tcl_NewByteArrayObj _ANSI_ARGS_(( - CONST unsigned char* bytes, int length)); -/* 51 */ -EXTERN Tcl_Obj * Tcl_NewDoubleObj _ANSI_ARGS_((double doubleValue)); -/* 52 */ -EXTERN Tcl_Obj * Tcl_NewIntObj _ANSI_ARGS_((int intValue)); -/* 53 */ -EXTERN Tcl_Obj * Tcl_NewListObj _ANSI_ARGS_((int objc, - Tcl_Obj *CONST objv[])); -/* 54 */ -EXTERN Tcl_Obj * Tcl_NewLongObj _ANSI_ARGS_((long longValue)); -/* 55 */ -EXTERN Tcl_Obj * Tcl_NewObj _ANSI_ARGS_((void)); -/* 56 */ -EXTERN Tcl_Obj * Tcl_NewStringObj _ANSI_ARGS_((CONST char * bytes, - int length)); -/* 57 */ -EXTERN void Tcl_SetBooleanObj _ANSI_ARGS_((Tcl_Obj * objPtr, - int boolValue)); -/* 58 */ -EXTERN unsigned char * Tcl_SetByteArrayLength _ANSI_ARGS_((Tcl_Obj * objPtr, - int length)); -/* 59 */ -EXTERN void Tcl_SetByteArrayObj _ANSI_ARGS_((Tcl_Obj * objPtr, - CONST unsigned char * bytes, int length)); -/* 60 */ -EXTERN void Tcl_SetDoubleObj _ANSI_ARGS_((Tcl_Obj * objPtr, - double doubleValue)); -/* 61 */ -EXTERN void Tcl_SetIntObj _ANSI_ARGS_((Tcl_Obj * objPtr, - int intValue)); -/* 62 */ -EXTERN void Tcl_SetListObj _ANSI_ARGS_((Tcl_Obj * objPtr, - int objc, Tcl_Obj *CONST objv[])); -/* 63 */ -EXTERN void Tcl_SetLongObj _ANSI_ARGS_((Tcl_Obj * objPtr, - long longValue)); -/* 64 */ -EXTERN void Tcl_SetObjLength _ANSI_ARGS_((Tcl_Obj * objPtr, - int length)); -/* 65 */ -EXTERN void Tcl_SetStringObj _ANSI_ARGS_((Tcl_Obj* objPtr, - CONST char* bytes, int length)); -/* 66 */ -EXTERN void Tcl_AddErrorInfo _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * message)); -/* 67 */ -EXTERN void Tcl_AddObjErrorInfo _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * message, int length)); -/* 68 */ -EXTERN void Tcl_AllowExceptions _ANSI_ARGS_((Tcl_Interp * interp)); -/* 69 */ -EXTERN void Tcl_AppendElement _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * string)); -/* 70 */ -EXTERN void Tcl_AppendResult _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); -/* 71 */ -EXTERN Tcl_AsyncHandler Tcl_AsyncCreate _ANSI_ARGS_((Tcl_AsyncProc * proc, - ClientData clientData)); -/* 72 */ -EXTERN void Tcl_AsyncDelete _ANSI_ARGS_((Tcl_AsyncHandler async)); -/* 73 */ -EXTERN int Tcl_AsyncInvoke _ANSI_ARGS_((Tcl_Interp * interp, - int code)); -/* 74 */ -EXTERN void Tcl_AsyncMark _ANSI_ARGS_((Tcl_AsyncHandler async)); -/* 75 */ -EXTERN int Tcl_AsyncReady _ANSI_ARGS_((void)); -/* 76 */ -EXTERN void Tcl_BackgroundError _ANSI_ARGS_((Tcl_Interp * interp)); -/* 77 */ -EXTERN char Tcl_Backslash _ANSI_ARGS_((CONST char * src, - int * readPtr)); -/* 78 */ -EXTERN int Tcl_BadChannelOption _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * optionName, - CONST char * optionList)); -/* 79 */ -EXTERN void Tcl_CallWhenDeleted _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_InterpDeleteProc * proc, - ClientData clientData)); -/* 80 */ -EXTERN void Tcl_CancelIdleCall _ANSI_ARGS_(( - Tcl_IdleProc * idleProc, - ClientData clientData)); -/* 81 */ -EXTERN int Tcl_Close _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Channel chan)); -/* 82 */ -EXTERN int Tcl_CommandComplete _ANSI_ARGS_((CONST char * cmd)); -/* 83 */ -EXTERN char * Tcl_Concat _ANSI_ARGS_((int argc, - CONST84 char * CONST * objv)); -/* 84 */ -EXTERN int Tcl_ConvertElement _ANSI_ARGS_((CONST char * src, - char * dst, int flags)); -/* 85 */ -EXTERN int Tcl_ConvertCountedElement _ANSI_ARGS_(( - CONST char * src, int length, char * dst, - int flags)); -/* 86 */ -EXTERN int Tcl_CreateAlias _ANSI_ARGS_((Tcl_Interp * slave, - CONST char * slaveCmd, Tcl_Interp * target, - CONST char * targetCmd, int argc, - CONST84 char * CONST * objv)); -/* 87 */ -EXTERN int Tcl_CreateAliasObj _ANSI_ARGS_((Tcl_Interp * slave, - CONST char * slaveCmd, Tcl_Interp * target, - CONST char * targetCmd, int objc, - Tcl_Obj *CONST objv[])); -/* 88 */ -EXTERN Tcl_Channel Tcl_CreateChannel _ANSI_ARGS_(( - Tcl_ChannelType * typePtr, - CONST char * chanName, - ClientData instanceData, int mask)); -/* 89 */ -EXTERN void Tcl_CreateChannelHandler _ANSI_ARGS_(( - Tcl_Channel chan, int mask, - Tcl_ChannelProc * proc, - ClientData clientData)); -/* 90 */ -EXTERN void Tcl_CreateCloseHandler _ANSI_ARGS_((Tcl_Channel chan, - Tcl_CloseProc * proc, ClientData clientData)); -/* 91 */ -EXTERN Tcl_Command Tcl_CreateCommand _ANSI_ARGS_((Tcl_Interp * interp, CONST char * cmdName, Tcl_CmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc)); - - - -/* 92 */ -EXTERN void Tcl_CreateEventSource _ANSI_ARGS_(( - Tcl_EventSetupProc * setupProc, - Tcl_EventCheckProc * checkProc, - ClientData clientData)); -/* 93 */ -EXTERN void Tcl_CreateExitHandler _ANSI_ARGS_(( - Tcl_ExitProc * proc, ClientData clientData)); -/* 94 */ -EXTERN Tcl_Interp * Tcl_CreateInterp _ANSI_ARGS_((void)); -/* 95 */ -EXTERN void Tcl_CreateMathFunc _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * name, int numArgs, - Tcl_ValueType * argTypes, - Tcl_MathProc * proc, ClientData clientData)); -/* 96 */ -EXTERN Tcl_Command Tcl_CreateObjCommand _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * cmdName, - Tcl_ObjCmdProc * proc, ClientData clientData, - Tcl_CmdDeleteProc * deleteProc)); -/* 97 */ -EXTERN Tcl_Interp * Tcl_CreateSlave _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * slaveName, int isSafe)); -/* 98 */ -EXTERN Tcl_TimerToken Tcl_CreateTimerHandler _ANSI_ARGS_((int milliseconds, - Tcl_TimerProc * proc, ClientData clientData)); -/* 99 */ -EXTERN Tcl_Trace Tcl_CreateTrace _ANSI_ARGS_((Tcl_Interp * interp, - int level, Tcl_CmdTraceProc * proc, - ClientData clientData)); -/* 100 */ -EXTERN void Tcl_DeleteAssocData _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * name)); -/* 101 */ -EXTERN void Tcl_DeleteChannelHandler _ANSI_ARGS_(( - Tcl_Channel chan, Tcl_ChannelProc * proc, - ClientData clientData)); -/* 102 */ -EXTERN void Tcl_DeleteCloseHandler _ANSI_ARGS_((Tcl_Channel chan, - Tcl_CloseProc * proc, ClientData clientData)); -/* 103 */ -EXTERN int Tcl_DeleteCommand _ANSI_ARGS_((Tcl_Interp * interp, CONST char * cmdName)); - -/* 104 */ -EXTERN int Tcl_DeleteCommandFromToken _ANSI_ARGS_(( Tcl_Interp * interp, Tcl_Command command)); - -/* 105 */ -EXTERN void Tcl_DeleteEvents _ANSI_ARGS_(( - Tcl_EventDeleteProc * proc, - ClientData clientData)); -/* 106 */ -EXTERN void Tcl_DeleteEventSource _ANSI_ARGS_(( - Tcl_EventSetupProc * setupProc, - Tcl_EventCheckProc * checkProc, - ClientData clientData)); -/* 107 */ -EXTERN void Tcl_DeleteExitHandler _ANSI_ARGS_(( - Tcl_ExitProc * proc, ClientData clientData)); -/* 108 */ -EXTERN void Tcl_DeleteHashEntry _ANSI_ARGS_(( - Tcl_HashEntry * entryPtr)); -/* 109 */ -EXTERN void Tcl_DeleteHashTable _ANSI_ARGS_(( - Tcl_HashTable * tablePtr)); -/* 110 */ -EXTERN void Tcl_DeleteInterp _ANSI_ARGS_((Tcl_Interp * interp)); -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ -/* 111 */ -EXTERN void Tcl_DetachPids _ANSI_ARGS_((int numPids, - Tcl_Pid * pidPtr)); -#endif /* UNIX */ -#ifdef __WIN32__ -/* 111 */ -EXTERN void Tcl_DetachPids _ANSI_ARGS_((int numPids, - Tcl_Pid * pidPtr)); -#endif /* __WIN32__ */ -/* 112 */ -EXTERN void Tcl_DeleteTimerHandler _ANSI_ARGS_(( - Tcl_TimerToken token)); -/* 113 */ -EXTERN void Tcl_DeleteTrace _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Trace trace)); -/* 114 */ -EXTERN void Tcl_DontCallWhenDeleted _ANSI_ARGS_(( - Tcl_Interp * interp, - Tcl_InterpDeleteProc * proc, - ClientData clientData)); -/* 115 */ -EXTERN int Tcl_DoOneEvent _ANSI_ARGS_((int flags)); -/* 116 */ -EXTERN void Tcl_DoWhenIdle _ANSI_ARGS_((Tcl_IdleProc * proc, - ClientData clientData)); -/* 117 */ -EXTERN char * Tcl_DStringAppend _ANSI_ARGS_((Tcl_DString * dsPtr, - CONST char * str, int length)); -/* 118 */ -EXTERN char * Tcl_DStringAppendElement _ANSI_ARGS_(( - Tcl_DString * dsPtr, CONST char * string)); -/* 119 */ -EXTERN void Tcl_DStringEndSublist _ANSI_ARGS_(( - Tcl_DString * dsPtr)); -/* 120 */ -EXTERN void Tcl_DStringFree _ANSI_ARGS_((Tcl_DString * dsPtr)); -/* 121 */ -EXTERN void Tcl_DStringGetResult _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_DString * dsPtr)); -/* 122 */ -EXTERN void Tcl_DStringInit _ANSI_ARGS_((Tcl_DString * dsPtr)); -/* 123 */ -EXTERN void Tcl_DStringResult _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_DString * dsPtr)); -/* 124 */ -EXTERN void Tcl_DStringSetLength _ANSI_ARGS_(( - Tcl_DString * dsPtr, int length)); -/* 125 */ -EXTERN void Tcl_DStringStartSublist _ANSI_ARGS_(( - Tcl_DString * dsPtr)); -/* 126 */ -EXTERN int Tcl_Eof _ANSI_ARGS_((Tcl_Channel chan)); -/* 127 */ -EXTERN CONST84_RETURN char * Tcl_ErrnoId _ANSI_ARGS_((void)); -/* 128 */ -EXTERN CONST84_RETURN char * Tcl_ErrnoMsg _ANSI_ARGS_((int err)); -/* 129 */ -EXTERN int Tcl_Eval _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * string)); -/* 130 */ -EXTERN int Tcl_EvalFile _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * fileName)); -/* 131 */ -EXTERN int Tcl_EvalObj _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * objPtr)); -/* 132 */ -EXTERN void Tcl_EventuallyFree _ANSI_ARGS_(( - ClientData clientData, - Tcl_FreeProc * freeProc)); -/* 133 */ -EXTERN void Tcl_Exit _ANSI_ARGS_((int status)); -/* 134 */ -EXTERN int Tcl_ExposeCommand _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * hiddenCmdToken, - CONST char * cmdName)); -/* 135 */ -EXTERN int Tcl_ExprBoolean _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * str, int * ptr)); -/* 136 */ -EXTERN int Tcl_ExprBooleanObj _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * objPtr, int * ptr)); -/* 137 */ -EXTERN int Tcl_ExprDouble _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * str, double * ptr)); -/* 138 */ -EXTERN int Tcl_ExprDoubleObj _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * objPtr, double * ptr)); -/* 139 */ -EXTERN int Tcl_ExprLong _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * str, long * ptr)); -/* 140 */ -EXTERN int Tcl_ExprLongObj _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * objPtr, long * ptr)); -/* 141 */ -EXTERN int Tcl_ExprObj _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * objPtr, Tcl_Obj ** resultPtrPtr)); -/* 142 */ -EXTERN int Tcl_ExprString _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * string)); -/* 143 */ -EXTERN void Tcl_Finalize _ANSI_ARGS_((void)); -/* 144 */ -EXTERN void Tcl_FindExecutable _ANSI_ARGS_((CONST char * argv0)); -/* 145 */ -EXTERN Tcl_HashEntry * Tcl_FirstHashEntry _ANSI_ARGS_(( - Tcl_HashTable * tablePtr, - Tcl_HashSearch * searchPtr)); -/* 146 */ -EXTERN int Tcl_Flush _ANSI_ARGS_((Tcl_Channel chan)); -/* 147 */ -EXTERN void Tcl_FreeResult _ANSI_ARGS_((Tcl_Interp * interp)); -/* 148 */ -EXTERN int Tcl_GetAlias _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * slaveCmd, - Tcl_Interp ** targetInterpPtr, - CONST84 char ** targetCmdPtr, int * argcPtr, - CONST84 char *** argvPtr)); -/* 149 */ -EXTERN int Tcl_GetAliasObj _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * slaveCmd, - Tcl_Interp ** targetInterpPtr, - CONST84 char ** targetCmdPtr, int * objcPtr, - Tcl_Obj *** objv)); -/* 150 */ -EXTERN ClientData Tcl_GetAssocData _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * name, - Tcl_InterpDeleteProc ** procPtr)); -/* 151 */ -EXTERN Tcl_Channel Tcl_GetChannel _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * chanName, int * modePtr)); -/* 152 */ -EXTERN int Tcl_GetChannelBufferSize _ANSI_ARGS_(( - Tcl_Channel chan)); -/* 153 */ -EXTERN int Tcl_GetChannelHandle _ANSI_ARGS_((Tcl_Channel chan, - int direction, ClientData * handlePtr)); -/* 154 */ -EXTERN ClientData Tcl_GetChannelInstanceData _ANSI_ARGS_(( - Tcl_Channel chan)); -/* 155 */ -EXTERN int Tcl_GetChannelMode _ANSI_ARGS_((Tcl_Channel chan)); -/* 156 */ -EXTERN CONST84_RETURN char * Tcl_GetChannelName _ANSI_ARGS_(( - Tcl_Channel chan)); -/* 157 */ -EXTERN int Tcl_GetChannelOption _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Channel chan, - CONST char * optionName, Tcl_DString * dsPtr)); -/* 158 */ -EXTERN Tcl_ChannelType * Tcl_GetChannelType _ANSI_ARGS_((Tcl_Channel chan)); -/* 159 */ -EXTERN int Tcl_GetCommandInfo _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * cmdName, Tcl_CmdInfo * infoPtr)); -/* 160 */ -EXTERN CONST84_RETURN char * Tcl_GetCommandName _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Command command)); -/* 161 */ -EXTERN int Tcl_GetErrno _ANSI_ARGS_((void)); -/* 162 */ -EXTERN CONST84_RETURN char * Tcl_GetHostName _ANSI_ARGS_((void)); -/* 163 */ -EXTERN int Tcl_GetInterpPath _ANSI_ARGS_(( - Tcl_Interp * askInterp, - Tcl_Interp * slaveInterp)); -/* 164 */ -EXTERN Tcl_Interp * Tcl_GetMaster _ANSI_ARGS_((Tcl_Interp * interp)); -/* 165 */ -EXTERN CONST char * Tcl_GetNameOfExecutable _ANSI_ARGS_((void)); -/* 166 */ -EXTERN Tcl_Obj * Tcl_GetObjResult _ANSI_ARGS_((Tcl_Interp * interp)); -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ -/* 167 */ -EXTERN int Tcl_GetOpenFile _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * str, int forWriting, - int checkUsage, ClientData * filePtr)); -#endif /* UNIX */ -/* 168 */ -EXTERN Tcl_PathType Tcl_GetPathType _ANSI_ARGS_((CONST char * path)); -/* 169 */ -EXTERN int Tcl_Gets _ANSI_ARGS_((Tcl_Channel chan, - Tcl_DString * dsPtr)); -/* 170 */ -EXTERN int Tcl_GetsObj _ANSI_ARGS_((Tcl_Channel chan, - Tcl_Obj * objPtr)); -/* 171 */ -EXTERN int Tcl_GetServiceMode _ANSI_ARGS_((void)); -/* 172 */ -EXTERN Tcl_Interp * Tcl_GetSlave _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * slaveName)); -/* 173 */ -EXTERN Tcl_Channel Tcl_GetStdChannel _ANSI_ARGS_((int type)); -/* 174 */ -EXTERN CONST84_RETURN char * Tcl_GetStringResult _ANSI_ARGS_(( - Tcl_Interp * interp)); -/* 175 */ -EXTERN CONST84_RETURN char * Tcl_GetVar _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * varName, int flags)); -/* 176 */ -EXTERN CONST84_RETURN char * Tcl_GetVar2 _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * part1, CONST char * part2, - int flags)); -/* 177 */ -EXTERN int Tcl_GlobalEval _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * command)); -/* 178 */ -EXTERN int Tcl_GlobalEvalObj _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * objPtr)); -/* 179 */ -EXTERN int Tcl_HideCommand _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * cmdName, - CONST char * hiddenCmdToken)); -/* 180 */ -EXTERN int Tcl_Init _ANSI_ARGS_((Tcl_Interp * interp)); -/* 181 */ -EXTERN void Tcl_InitHashTable _ANSI_ARGS_(( - Tcl_HashTable * tablePtr, int keyType)); -/* 182 */ -EXTERN int Tcl_InputBlocked _ANSI_ARGS_((Tcl_Channel chan)); -/* 183 */ -EXTERN int Tcl_InputBuffered _ANSI_ARGS_((Tcl_Channel chan)); -/* 184 */ -EXTERN int Tcl_InterpDeleted _ANSI_ARGS_((Tcl_Interp * interp)); -/* 185 */ -EXTERN int Tcl_IsSafe _ANSI_ARGS_((Tcl_Interp * interp)); -/* 186 */ -EXTERN char * Tcl_JoinPath _ANSI_ARGS_((int argc, - CONST84 char * CONST * objv, - Tcl_DString * resultPtr)); -/* 187 */ -EXTERN int Tcl_LinkVar _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * varName, char * addr, int type)); -/* Slot 188 is reserved */ -/* 189 */ -EXTERN Tcl_Channel Tcl_MakeFileChannel _ANSI_ARGS_((ClientData handle, - int mode)); -/* 190 */ -EXTERN int Tcl_MakeSafe _ANSI_ARGS_((Tcl_Interp * interp)); -/* 191 */ -EXTERN Tcl_Channel Tcl_MakeTcpClientChannel _ANSI_ARGS_(( - ClientData tcpSocket)); -/* 192 */ -EXTERN char * Tcl_Merge _ANSI_ARGS_((int argc, - CONST84 char * CONST * objv)); -/* 193 */ -EXTERN Tcl_HashEntry * Tcl_NextHashEntry _ANSI_ARGS_(( - Tcl_HashSearch * searchPtr)); -/* 194 */ -EXTERN void Tcl_NotifyChannel _ANSI_ARGS_((Tcl_Channel channel, - int mask)); -/* 195 */ -EXTERN Tcl_Obj * Tcl_ObjGetVar2 _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, - int flags)); -/* 196 */ -EXTERN Tcl_Obj * Tcl_ObjSetVar2 _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, - Tcl_Obj * newValuePtr, int flags)); -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ -/* 197 */ -EXTERN Tcl_Channel Tcl_OpenCommandChannel _ANSI_ARGS_(( - Tcl_Interp * interp, int argc, - CONST84 Tcl_Obj *CONST *objv, int flags)); -#endif /* UNIX */ -#ifdef __WIN32__ -/* 197 */ -EXTERN Tcl_Channel Tcl_OpenCommandChannel _ANSI_ARGS_(( - Tcl_Interp * interp, int argc, - CONST84 Tcl_Obj *CONST *objv, int flags)); -#endif /* __WIN32__ */ -/* 198 */ -EXTERN Tcl_Channel Tcl_OpenFileChannel _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * fileName, - CONST char * modeString, int permissions)); -/* 199 */ -EXTERN Tcl_Channel Tcl_OpenTcpClient _ANSI_ARGS_((Tcl_Interp * interp, - int port, CONST char * address, - CONST char * myaddr, int myport, int async)); -/* 200 */ -EXTERN Tcl_Channel Tcl_OpenTcpServer _ANSI_ARGS_((Tcl_Interp * interp, - int port, CONST char * host, - Tcl_TcpAcceptProc * acceptProc, - ClientData callbackData)); -/* 201 */ -EXTERN void Tcl_Preserve _ANSI_ARGS_((ClientData data)); -/* 202 */ -EXTERN void Tcl_PrintDouble _ANSI_ARGS_((Tcl_Interp * interp, - double value, char * dst)); -/* 203 */ -EXTERN int Tcl_PutEnv _ANSI_ARGS_((CONST char * string)); -/* 204 */ -EXTERN CONST84_RETURN char * Tcl_PosixError _ANSI_ARGS_((Tcl_Interp * interp)); -/* 205 */ -EXTERN void Tcl_QueueEvent _ANSI_ARGS_((Tcl_Event * evPtr, - Tcl_QueuePosition position)); -/* 206 */ -EXTERN int Tcl_Read _ANSI_ARGS_((Tcl_Channel chan, - char * bufPtr, int toRead)); -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ -/* 207 */ -EXTERN void Tcl_ReapDetachedProcs _ANSI_ARGS_((void)); -#endif /* UNIX */ -#ifdef __WIN32__ -/* 207 */ -EXTERN void Tcl_ReapDetachedProcs _ANSI_ARGS_((void)); -#endif /* __WIN32__ */ -/* 208 */ -EXTERN int Tcl_RecordAndEval _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * cmd, int flags)); -/* 209 */ -EXTERN int Tcl_RecordAndEvalObj _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * cmdPtr, - int flags)); -/* 210 */ -EXTERN void Tcl_RegisterChannel _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Channel chan)); -/* 211 */ -EXTERN void Tcl_RegisterObjType _ANSI_ARGS_(( - Tcl_ObjType * typePtr)); -/* 212 */ -EXTERN Tcl_RegExp Tcl_RegExpCompile _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * string)); -/* 213 */ -EXTERN int Tcl_RegExpExec _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_RegExp regexp, CONST char * str, - CONST char * start)); -/* 214 */ -EXTERN int Tcl_RegExpMatch _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * str, CONST char * pattern)); -/* 215 */ -EXTERN void Tcl_RegExpRange _ANSI_ARGS_((Tcl_RegExp regexp, - int index, CONST84 char ** startPtr, - CONST84 char ** endPtr)); -/* 216 */ -EXTERN void Tcl_Release _ANSI_ARGS_((ClientData clientData)); -/* 217 */ -EXTERN void Tcl_ResetResult _ANSI_ARGS_((Tcl_Interp * interp)); -/* 218 */ -EXTERN int Tcl_ScanElement _ANSI_ARGS_((CONST char * str, - int * flagPtr)); -/* 219 */ -EXTERN int Tcl_ScanCountedElement _ANSI_ARGS_((CONST char * str, - int length, int * flagPtr)); -/* 220 */ -EXTERN int Tcl_SeekOld _ANSI_ARGS_((Tcl_Channel chan, - int offset, int mode)); -/* 221 */ -EXTERN int Tcl_ServiceAll _ANSI_ARGS_((void)); -/* 222 */ -EXTERN int Tcl_ServiceEvent _ANSI_ARGS_((int flags)); -/* 223 */ -EXTERN void Tcl_SetAssocData _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * name, - Tcl_InterpDeleteProc * proc, - ClientData clientData)); -/* 224 */ -EXTERN void Tcl_SetChannelBufferSize _ANSI_ARGS_(( - Tcl_Channel chan, int sz)); -/* 225 */ -EXTERN int Tcl_SetChannelOption _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Channel chan, - CONST char * optionName, - CONST char * newValue)); -/* 226 */ -EXTERN int Tcl_SetCommandInfo _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * cmdName, - CONST Tcl_CmdInfo * infoPtr)); -/* 227 */ -EXTERN void Tcl_SetErrno _ANSI_ARGS_((int err)); -/* 228 */ -EXTERN void Tcl_SetErrorCode _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); -/* 229 */ -EXTERN void Tcl_SetMaxBlockTime _ANSI_ARGS_((Tcl_Time * timePtr)); -/* 230 */ -EXTERN void Tcl_SetPanicProc _ANSI_ARGS_(( - Tcl_PanicProc * panicProc)); -/* 231 */ -EXTERN int Tcl_SetRecursionLimit _ANSI_ARGS_(( - Tcl_Interp * interp, int depth)); -/* 232 */ -EXTERN void Tcl_SetResult _ANSI_ARGS_((Tcl_Interp * interp, - char * str, Tcl_FreeProc * freeProc)); -/* 233 */ -EXTERN int Tcl_SetServiceMode _ANSI_ARGS_((int mode)); -/* 234 */ -EXTERN void Tcl_SetObjErrorCode _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * errorObjPtr)); -/* 235 */ -EXTERN void Tcl_SetObjResult _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * resultObjPtr)); -/* 236 */ -EXTERN void Tcl_SetStdChannel _ANSI_ARGS_((Tcl_Channel channel, - int type)); -/* 237 */ -EXTERN CONST84_RETURN char * Tcl_SetVar _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * varName, CONST char * newValue, - int flags)); -/* 238 */ -EXTERN CONST84_RETURN char * Tcl_SetVar2 _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * part1, CONST char * part2, - CONST char * newValue, int flags)); -/* 239 */ -EXTERN CONST84_RETURN char * Tcl_SignalId _ANSI_ARGS_((int sig)); -/* 240 */ -EXTERN CONST84_RETURN char * Tcl_SignalMsg _ANSI_ARGS_((int sig)); -/* 241 */ -EXTERN void Tcl_SourceRCFile _ANSI_ARGS_((Tcl_Interp * interp)); -/* 242 */ -EXTERN int Tcl_SplitList _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * listStr, int * argcPtr, - CONST84 char *** argvPtr)); -/* 243 */ -EXTERN void Tcl_SplitPath _ANSI_ARGS_((CONST char * path, - int * argcPtr, CONST84 char *** argvPtr)); -/* 244 */ -EXTERN void Tcl_StaticPackage _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * pkgName, - Tcl_PackageInitProc * initProc, - Tcl_PackageInitProc * safeInitProc)); -/* 245 */ -EXTERN int Tcl_StringMatch _ANSI_ARGS_((CONST char * str, - CONST char * pattern)); -/* 246 */ -EXTERN int Tcl_TellOld _ANSI_ARGS_((Tcl_Channel chan)); -/* 247 */ -EXTERN int Tcl_TraceVar _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * varName, int flags, - Tcl_VarTraceProc * proc, - ClientData clientData)); -/* 248 */ -EXTERN int Tcl_TraceVar2 _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * part1, CONST char * part2, - int flags, Tcl_VarTraceProc * proc, - ClientData clientData)); -/* 249 */ -EXTERN char * Tcl_TranslateFileName _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * name, - Tcl_DString * bufferPtr)); -/* 250 */ -EXTERN int Tcl_Ungets _ANSI_ARGS_((Tcl_Channel chan, - CONST char * str, int len, int atHead)); -/* 251 */ -EXTERN void Tcl_UnlinkVar _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * varName)); -/* 252 */ -EXTERN int Tcl_UnregisterChannel _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Channel chan)); -/* 253 */ -EXTERN int Tcl_UnsetVar _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * varName, int flags)); -/* 254 */ -EXTERN int Tcl_UnsetVar2 _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * part1, CONST char * part2, - int flags)); -/* 255 */ -EXTERN void Tcl_UntraceVar _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * varName, int flags, - Tcl_VarTraceProc * proc, - ClientData clientData)); -/* 256 */ -EXTERN void Tcl_UntraceVar2 _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * part1, CONST char * part2, - int flags, Tcl_VarTraceProc * proc, - ClientData clientData)); -/* 257 */ -EXTERN void Tcl_UpdateLinkedVar _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * varName)); -/* 258 */ -EXTERN int Tcl_UpVar _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * frameName, CONST char * varName, - CONST char * localName, int flags)); -/* 259 */ -EXTERN int Tcl_UpVar2 _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * frameName, CONST char * part1, - CONST char * part2, CONST char * localName, - int flags)); -/* 260 */ -EXTERN int Tcl_VarEval _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); -/* 261 */ -EXTERN ClientData Tcl_VarTraceInfo _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * varName, int flags, - Tcl_VarTraceProc * procPtr, - ClientData prevClientData)); -/* 262 */ -EXTERN ClientData Tcl_VarTraceInfo2 _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * part1, CONST char * part2, - int flags, Tcl_VarTraceProc * procPtr, - ClientData prevClientData)); -/* 263 */ -EXTERN int Tcl_Write _ANSI_ARGS_((Tcl_Channel chan, - CONST char * s, int slen)); -/* 264 */ -EXTERN void Tcl_WrongNumArgs _ANSI_ARGS_((Tcl_Interp * interp, - int objc, Tcl_Obj *CONST objv[], - CONST char * message)); -/* 265 */ -EXTERN int Tcl_DumpActiveMemory _ANSI_ARGS_(( - CONST char * fileName)); -/* 266 */ -EXTERN void Tcl_ValidateAllMemory _ANSI_ARGS_((CONST char * file, - int line)); -/* 267 */ -EXTERN void Tcl_AppendResultVA _ANSI_ARGS_((Tcl_Interp * interp, - va_list argList)); -/* 268 */ -EXTERN void Tcl_AppendStringsToObjVA _ANSI_ARGS_(( - Tcl_Obj * objPtr, va_list argList)); -/* 269 */ -EXTERN CONST84_RETURN char * Tcl_HashStats _ANSI_ARGS_(( - Tcl_HashTable * tablePtr)); -/* 270 */ -EXTERN CONST84_RETURN char * Tcl_ParseVar _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * str, CONST84 char ** termPtr)); -/* 271 */ -EXTERN CONST84_RETURN char * Tcl_PkgPresent _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * name, CONST char * version, - int exact)); -/* 272 */ -EXTERN CONST84_RETURN char * Tcl_PkgPresentEx _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * name, - CONST char * version, int exact, - ClientData * clientDataPtr)); -/* 273 */ -EXTERN int Tcl_PkgProvide _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * name, CONST char * version)); -/* 274 */ -EXTERN CONST84_RETURN char * Tcl_PkgRequire _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * name, CONST char * version, - int exact)); -/* 275 */ -EXTERN void Tcl_SetErrorCodeVA _ANSI_ARGS_((Tcl_Interp * interp, - va_list argList)); -/* 276 */ -EXTERN int Tcl_VarEvalVA _ANSI_ARGS_((Tcl_Interp * interp, - va_list argList)); -/* 277 */ -EXTERN Tcl_Pid Tcl_WaitPid _ANSI_ARGS_((Tcl_Pid pid, int * statPtr, - int options)); -/* 278 */ -EXTERN void Tcl_PanicVA _ANSI_ARGS_((CONST char * format, - va_list argList)); -/* 279 */ -EXTERN void Tcl_GetVersion _ANSI_ARGS_((int * major, int * minor, - int * patchLevel, int * type)); -/* 280 */ -EXTERN void Tcl_InitMemory _ANSI_ARGS_((Tcl_Interp * interp)); -/* 281 */ -EXTERN Tcl_Channel Tcl_StackChannel _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_ChannelType * typePtr, - ClientData instanceData, int mask, - Tcl_Channel prevChan)); -/* 282 */ -EXTERN int Tcl_UnstackChannel _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Channel chan)); -/* 283 */ -EXTERN Tcl_Channel Tcl_GetStackedChannel _ANSI_ARGS_((Tcl_Channel chan)); -/* 284 */ -EXTERN void Tcl_SetMainLoop _ANSI_ARGS_((Tcl_MainLoopProc * proc)); -/* Slot 285 is reserved */ -/* 286 */ -EXTERN void Tcl_AppendObjToObj _ANSI_ARGS_((Tcl_Obj * objPtr, - Tcl_Obj * appendObjPtr)); -/* 287 */ -EXTERN Tcl_Encoding Tcl_CreateEncoding _ANSI_ARGS_(( - Tcl_EncodingType * typePtr)); -/* 288 */ -EXTERN void Tcl_CreateThreadExitHandler _ANSI_ARGS_(( - Tcl_ExitProc * proc, ClientData clientData)); -/* 289 */ -EXTERN void Tcl_DeleteThreadExitHandler _ANSI_ARGS_(( - Tcl_ExitProc * proc, ClientData clientData)); -/* 290 */ -EXTERN void Tcl_DiscardResult _ANSI_ARGS_(( - Tcl_SavedResult * statePtr)); -/* 291 */ -EXTERN int Tcl_EvalEx _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * script, int numBytes, int flags)); -/* 292 */ -EXTERN int Tcl_EvalObjv _ANSI_ARGS_((Tcl_Interp * interp, - int objc, Tcl_Obj *CONST objv[], int flags)); -/* 293 */ -EXTERN int Tcl_EvalObjEx _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * objPtr, int flags)); -/* 294 */ -EXTERN void Tcl_ExitThread _ANSI_ARGS_((int status)); -/* 295 */ -EXTERN int Tcl_ExternalToUtf _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Encoding encoding, CONST char * src, - int srcLen, int flags, - Tcl_EncodingState * statePtr, char * dst, - int dstLen, int * srcReadPtr, - int * dstWrotePtr, int * dstCharsPtr)); -/* 296 */ -EXTERN char * Tcl_ExternalToUtfDString _ANSI_ARGS_(( - Tcl_Encoding encoding, CONST char * src, - int srcLen, Tcl_DString * dsPtr)); -/* 297 */ -EXTERN void Tcl_FinalizeThread _ANSI_ARGS_((void)); -/* 298 */ -EXTERN void Tcl_FinalizeNotifier _ANSI_ARGS_(( - ClientData clientData)); -/* 299 */ -EXTERN void Tcl_FreeEncoding _ANSI_ARGS_((Tcl_Encoding encoding)); -/* 300 */ -EXTERN Tcl_ThreadId Tcl_GetCurrentThread _ANSI_ARGS_((void)); -/* 301 */ -EXTERN Tcl_Encoding Tcl_GetEncoding _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * name)); -/* 302 */ -EXTERN CONST84_RETURN char * Tcl_GetEncodingName _ANSI_ARGS_(( - Tcl_Encoding encoding)); -/* 303 */ -EXTERN void Tcl_GetEncodingNames _ANSI_ARGS_(( - Tcl_Interp * interp)); -/* 304 */ -EXTERN int Tcl_GetIndexFromObjStruct _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * objPtr, - CONST VOID * tablePtr, int offset, - CONST char * msg, int flags, int * indexPtr)); -/* 305 */ -EXTERN VOID * Tcl_GetThreadData _ANSI_ARGS_(( - Tcl_ThreadDataKey * keyPtr, int size)); -/* 306 */ -EXTERN Tcl_Obj * Tcl_GetVar2Ex _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * part1, CONST char * part2, - int flags)); -/* 307 */ -EXTERN ClientData Tcl_InitNotifier _ANSI_ARGS_((void)); -/* 308 */ -EXTERN void Tcl_MutexLock _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); -/* 309 */ -EXTERN void Tcl_MutexUnlock _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); -/* 310 */ -EXTERN void Tcl_ConditionNotify _ANSI_ARGS_(( - Tcl_Condition * condPtr)); -/* 311 */ -EXTERN void Tcl_ConditionWait _ANSI_ARGS_(( - Tcl_Condition * condPtr, - Tcl_Mutex * mutexPtr, Tcl_Time * timePtr)); -/* 312 */ -EXTERN int Tcl_NumUtfChars _ANSI_ARGS_((CONST char * src, - int len)); -/* 313 */ -EXTERN int Tcl_ReadChars _ANSI_ARGS_((Tcl_Channel channel, - Tcl_Obj * objPtr, int charsToRead, - int appendFlag)); -/* 314 */ -EXTERN void Tcl_RestoreResult _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_SavedResult * statePtr)); -/* 315 */ -EXTERN void Tcl_SaveResult _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_SavedResult * statePtr)); -/* 316 */ -EXTERN int Tcl_SetSystemEncoding _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * name)); -/* 317 */ -EXTERN Tcl_Obj * Tcl_SetVar2Ex _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * part1, CONST char * part2, - Tcl_Obj * newValuePtr, int flags)); -/* 318 */ -EXTERN void Tcl_ThreadAlert _ANSI_ARGS_((Tcl_ThreadId threadId)); -/* 319 */ -EXTERN void Tcl_ThreadQueueEvent _ANSI_ARGS_(( - Tcl_ThreadId threadId, Tcl_Event* evPtr, - Tcl_QueuePosition position)); -/* 320 */ -EXTERN Tcl_UniChar Tcl_UniCharAtIndex _ANSI_ARGS_((CONST char * src, - int index)); -/* 321 */ -EXTERN Tcl_UniChar Tcl_UniCharToLower _ANSI_ARGS_((int ch)); -/* 322 */ -EXTERN Tcl_UniChar Tcl_UniCharToTitle _ANSI_ARGS_((int ch)); -/* 323 */ -EXTERN Tcl_UniChar Tcl_UniCharToUpper _ANSI_ARGS_((int ch)); -/* 324 */ -EXTERN int Tcl_UniCharToUtf _ANSI_ARGS_((int ch, char * buf)); -/* 325 */ -EXTERN CONST84_RETURN char * Tcl_UtfAtIndex _ANSI_ARGS_((CONST char * src, - int index)); -/* 326 */ -EXTERN int Tcl_UtfCharComplete _ANSI_ARGS_((CONST char * src, - int len)); -/* 327 */ -EXTERN int Tcl_UtfBackslash _ANSI_ARGS_((CONST char * src, - int * readPtr, char * dst)); -/* 328 */ -EXTERN CONST84_RETURN char * Tcl_UtfFindFirst _ANSI_ARGS_((CONST char * src, - int ch)); -/* 329 */ -EXTERN CONST84_RETURN char * Tcl_UtfFindLast _ANSI_ARGS_((CONST char * src, - int ch)); -/* 330 */ -EXTERN CONST84_RETURN char * Tcl_UtfNext _ANSI_ARGS_((CONST char * src)); -/* 331 */ -EXTERN CONST84_RETURN char * Tcl_UtfPrev _ANSI_ARGS_((CONST char * src, - CONST char * start)); -/* 332 */ -EXTERN int Tcl_UtfToExternal _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Encoding encoding, CONST char * src, - int srcLen, int flags, - Tcl_EncodingState * statePtr, char * dst, - int dstLen, int * srcReadPtr, - int * dstWrotePtr, int * dstCharsPtr)); -/* 333 */ -EXTERN char * Tcl_UtfToExternalDString _ANSI_ARGS_(( - Tcl_Encoding encoding, CONST char * src, - int srcLen, Tcl_DString * dsPtr)); -/* 334 */ -EXTERN int Tcl_UtfToLower _ANSI_ARGS_((char * src)); -/* 335 */ -EXTERN int Tcl_UtfToTitle _ANSI_ARGS_((char * src)); -/* 336 */ -EXTERN int Tcl_UtfToUniChar _ANSI_ARGS_((CONST char * src, - Tcl_UniChar * chPtr)); -/* 337 */ -EXTERN int Tcl_UtfToUpper _ANSI_ARGS_((char * src)); -/* 338 */ -EXTERN int Tcl_WriteChars _ANSI_ARGS_((Tcl_Channel chan, - CONST char * src, int srcLen)); -/* 339 */ -EXTERN int Tcl_WriteObj _ANSI_ARGS_((Tcl_Channel chan, - Tcl_Obj * objPtr)); -/* 340 */ -EXTERN char * Tcl_GetString _ANSI_ARGS_((Tcl_Obj * objPtr)); -/* 341 */ -EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir _ANSI_ARGS_((void)); -/* 342 */ -EXTERN void Tcl_SetDefaultEncodingDir _ANSI_ARGS_(( - CONST char * path)); -/* 343 */ -EXTERN void Tcl_AlertNotifier _ANSI_ARGS_((ClientData clientData)); -/* 344 */ -EXTERN void Tcl_ServiceModeHook _ANSI_ARGS_((int mode)); -/* 345 */ -EXTERN int Tcl_UniCharIsAlnum _ANSI_ARGS_((int ch)); -/* 346 */ -EXTERN int Tcl_UniCharIsAlpha _ANSI_ARGS_((int ch)); -/* 347 */ -EXTERN int Tcl_UniCharIsDigit _ANSI_ARGS_((int ch)); -/* 348 */ -EXTERN int Tcl_UniCharIsLower _ANSI_ARGS_((int ch)); -/* 349 */ -EXTERN int Tcl_UniCharIsSpace _ANSI_ARGS_((int ch)); -/* 350 */ -EXTERN int Tcl_UniCharIsUpper _ANSI_ARGS_((int ch)); -/* 351 */ -EXTERN int Tcl_UniCharIsWordChar _ANSI_ARGS_((int ch)); -/* 352 */ -EXTERN int Tcl_UniCharLen _ANSI_ARGS_((CONST Tcl_UniChar * str)); -/* 353 */ -EXTERN int Tcl_UniCharNcmp _ANSI_ARGS_((CONST Tcl_UniChar * cs, - CONST Tcl_UniChar * ct, unsigned long n)); -/* 354 */ -EXTERN char * Tcl_UniCharToUtfDString _ANSI_ARGS_(( - CONST Tcl_UniChar * string, int numChars, - Tcl_DString * dsPtr)); -/* 355 */ -EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString _ANSI_ARGS_(( - CONST char * string, int length, - Tcl_DString * dsPtr)); -/* 356 */ -EXTERN Tcl_RegExp Tcl_GetRegExpFromObj _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * patObj, - int flags)); -/* 357 */ -EXTERN Tcl_Obj * Tcl_EvalTokens _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Token * tokenPtr, int count)); -/* 358 */ -EXTERN void Tcl_FreeParse _ANSI_ARGS_((Tcl_Parse * parsePtr)); -/* 359 */ -EXTERN void Tcl_LogCommandInfo _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * script, CONST char * command, - int length)); -/* 360 */ -EXTERN int Tcl_ParseBraces _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * string, int numBytes, - Tcl_Parse * parsePtr, int append, - CONST84 char ** termPtr)); -/* 361 */ -EXTERN int Tcl_ParseCommand _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * string, int numBytes, - int nested, Tcl_Parse * parsePtr)); -/* 362 */ -EXTERN int Tcl_ParseExpr _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * string, int numBytes, - Tcl_Parse * parsePtr)); -/* 363 */ -EXTERN int Tcl_ParseQuotedString _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * string, - int numBytes, Tcl_Parse * parsePtr, - int append, CONST84 char ** termPtr)); -/* 364 */ -EXTERN int Tcl_ParseVarName _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * string, int numBytes, - Tcl_Parse * parsePtr, int append)); -/* 365 */ -EXTERN char * Tcl_GetCwd _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_DString * cwdPtr)); -/* 366 */ -EXTERN int Tcl_Chdir _ANSI_ARGS_((CONST char * dirName)); -/* 367 */ -EXTERN int Tcl_Access _ANSI_ARGS_((CONST char * path, int mode)); -/* 368 */ -EXTERN int Tcl_Stat _ANSI_ARGS_((CONST char * path, - struct stat * bufPtr)); -/* 369 */ -EXTERN int Tcl_UtfNcmp _ANSI_ARGS_((CONST char * s1, - CONST char * s2, unsigned long n)); -/* 370 */ -EXTERN int Tcl_UtfNcasecmp _ANSI_ARGS_((CONST char * s1, - CONST char * s2, unsigned long n)); -/* 371 */ -EXTERN int Tcl_StringCaseMatch _ANSI_ARGS_((CONST char * str, - CONST char * pattern, int nocase)); -/* 372 */ -EXTERN int Tcl_UniCharIsControl _ANSI_ARGS_((int ch)); -/* 373 */ -EXTERN int Tcl_UniCharIsGraph _ANSI_ARGS_((int ch)); -/* 374 */ -EXTERN int Tcl_UniCharIsPrint _ANSI_ARGS_((int ch)); -/* 375 */ -EXTERN int Tcl_UniCharIsPunct _ANSI_ARGS_((int ch)); -/* 376 */ -EXTERN int Tcl_RegExpExecObj _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_RegExp regexp, Tcl_Obj * objPtr, - int offset, int nmatches, int flags)); -/* 377 */ -EXTERN void Tcl_RegExpGetInfo _ANSI_ARGS_((Tcl_RegExp regexp, - Tcl_RegExpInfo * infoPtr)); -/* 378 */ -EXTERN Tcl_Obj * Tcl_NewUnicodeObj _ANSI_ARGS_(( - CONST Tcl_UniChar * unicode, int numChars)); -/* 379 */ -EXTERN void Tcl_SetUnicodeObj _ANSI_ARGS_((Tcl_Obj * objPtr, - CONST Tcl_UniChar * unicode, int numChars)); -/* 380 */ -EXTERN int Tcl_GetCharLength _ANSI_ARGS_((Tcl_Obj * objPtr)); -/* 381 */ -EXTERN Tcl_UniChar Tcl_GetUniChar _ANSI_ARGS_((Tcl_Obj * objPtr, - int index)); -/* 382 */ -EXTERN Tcl_UniChar * Tcl_GetUnicode _ANSI_ARGS_((Tcl_Obj * objPtr)); -/* 383 */ -EXTERN Tcl_Obj * Tcl_GetRange _ANSI_ARGS_((Tcl_Obj * objPtr, - int first, int last)); -/* 384 */ -EXTERN void Tcl_AppendUnicodeToObj _ANSI_ARGS_((Tcl_Obj * objPtr, - CONST Tcl_UniChar * unicode, int length)); -/* 385 */ -EXTERN int Tcl_RegExpMatchObj _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * stringObj, Tcl_Obj * patternObj)); -/* 386 */ -EXTERN void Tcl_SetNotifier _ANSI_ARGS_(( - Tcl_NotifierProcs * notifierProcPtr)); -/* 387 */ -EXTERN Tcl_Mutex * Tcl_GetAllocMutex _ANSI_ARGS_((void)); -/* 388 */ -EXTERN int Tcl_GetChannelNames _ANSI_ARGS_((Tcl_Interp * interp)); -/* 389 */ -EXTERN int Tcl_GetChannelNamesEx _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * pattern)); -/* 390 */ -EXTERN int Tcl_ProcObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp * interp, int objc, - Tcl_Obj *CONST objv[])); -/* 391 */ -EXTERN void Tcl_ConditionFinalize _ANSI_ARGS_(( - Tcl_Condition * condPtr)); -/* 392 */ -EXTERN void Tcl_MutexFinalize _ANSI_ARGS_((Tcl_Mutex * mutex)); -/* 393 */ -EXTERN int Tcl_CreateThread _ANSI_ARGS_((Tcl_ThreadId * idPtr, - Tcl_ThreadCreateProc proc, - ClientData clientData, int stackSize, - int flags)); -/* 394 */ -EXTERN int Tcl_ReadRaw _ANSI_ARGS_((Tcl_Channel chan, - char * dst, int bytesToRead)); -/* 395 */ -EXTERN int Tcl_WriteRaw _ANSI_ARGS_((Tcl_Channel chan, - CONST char * src, int srcLen)); -/* 396 */ -EXTERN Tcl_Channel Tcl_GetTopChannel _ANSI_ARGS_((Tcl_Channel chan)); -/* 397 */ -EXTERN int Tcl_ChannelBuffered _ANSI_ARGS_((Tcl_Channel chan)); -/* 398 */ -EXTERN CONST84_RETURN char * Tcl_ChannelName _ANSI_ARGS_(( - Tcl_ChannelType * chanTypePtr)); -/* 399 */ -EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion _ANSI_ARGS_(( - Tcl_ChannelType * chanTypePtr)); -/* 400 */ -EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc _ANSI_ARGS_(( - Tcl_ChannelType * chanTypePtr)); -/* 401 */ -EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc _ANSI_ARGS_(( - Tcl_ChannelType * chanTypePtr)); -/* 402 */ -EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc _ANSI_ARGS_(( - Tcl_ChannelType * chanTypePtr)); -/* 403 */ -EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc _ANSI_ARGS_(( - Tcl_ChannelType * chanTypePtr)); -/* 404 */ -EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc _ANSI_ARGS_(( - Tcl_ChannelType * chanTypePtr)); -/* 405 */ -EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc _ANSI_ARGS_(( - Tcl_ChannelType * chanTypePtr)); -/* 406 */ -EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc _ANSI_ARGS_(( - Tcl_ChannelType * chanTypePtr)); -/* 407 */ -EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc _ANSI_ARGS_(( - Tcl_ChannelType * chanTypePtr)); -/* 408 */ -EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc _ANSI_ARGS_(( - Tcl_ChannelType * chanTypePtr)); -/* 409 */ -EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc _ANSI_ARGS_(( - Tcl_ChannelType * chanTypePtr)); -/* 410 */ -EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc _ANSI_ARGS_(( - Tcl_ChannelType * chanTypePtr)); -/* 411 */ -EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc _ANSI_ARGS_(( - Tcl_ChannelType * chanTypePtr)); -/* 412 */ -EXTERN int Tcl_JoinThread _ANSI_ARGS_((Tcl_ThreadId threadId, - int* result)); -/* 413 */ -EXTERN int Tcl_IsChannelShared _ANSI_ARGS_((Tcl_Channel channel)); -/* 414 */ -EXTERN int Tcl_IsChannelRegistered _ANSI_ARGS_(( - Tcl_Interp* interp, Tcl_Channel channel)); -/* 415 */ -EXTERN void Tcl_CutChannel _ANSI_ARGS_((Tcl_Channel channel)); -/* 416 */ -EXTERN void Tcl_SpliceChannel _ANSI_ARGS_((Tcl_Channel channel)); -/* 417 */ -EXTERN void Tcl_ClearChannelHandlers _ANSI_ARGS_(( - Tcl_Channel channel)); -/* 418 */ -EXTERN int Tcl_IsChannelExisting _ANSI_ARGS_(( - CONST char* channelName)); -/* 419 */ -EXTERN int Tcl_UniCharNcasecmp _ANSI_ARGS_(( - CONST Tcl_UniChar * cs, - CONST Tcl_UniChar * ct, unsigned long n)); -/* 420 */ -EXTERN int Tcl_UniCharCaseMatch _ANSI_ARGS_(( - CONST Tcl_UniChar * ustr, - CONST Tcl_UniChar * pattern, int nocase)); -/* 421 */ -EXTERN Tcl_HashEntry * Tcl_FindHashEntry _ANSI_ARGS_(( - Tcl_HashTable * tablePtr, CONST char * key)); -/* 422 */ -EXTERN Tcl_HashEntry * Tcl_CreateHashEntry _ANSI_ARGS_(( - Tcl_HashTable * tablePtr, CONST char * key, - int * newPtr)); -/* 423 */ -EXTERN void Tcl_InitCustomHashTable _ANSI_ARGS_(( - Tcl_HashTable * tablePtr, int keyType, - Tcl_HashKeyType * typePtr)); -/* 424 */ -EXTERN void Tcl_InitObjHashTable _ANSI_ARGS_(( - Tcl_HashTable * tablePtr)); -/* 425 */ -EXTERN ClientData Tcl_CommandTraceInfo _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * varName, - int flags, Tcl_CommandTraceProc * procPtr, - ClientData prevClientData)); -/* 426 */ -EXTERN int Tcl_TraceCommand _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * varName, int flags, - Tcl_CommandTraceProc * proc, - ClientData clientData)); -/* 427 */ -EXTERN void Tcl_UntraceCommand _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * varName, int flags, - Tcl_CommandTraceProc * proc, - ClientData clientData)); -/* 428 */ -EXTERN char * Tcl_AttemptAlloc _ANSI_ARGS_((unsigned int size)); -/* 429 */ -EXTERN char * Tcl_AttemptDbCkalloc _ANSI_ARGS_((unsigned int size, - CONST char * file, int line)); -/* 430 */ -EXTERN char * Tcl_AttemptRealloc _ANSI_ARGS_((char * ptr, - unsigned int size)); -/* 431 */ -EXTERN char * Tcl_AttemptDbCkrealloc _ANSI_ARGS_((char * ptr, - unsigned int size, CONST char * file, - int line)); -/* 432 */ -EXTERN int Tcl_AttemptSetObjLength _ANSI_ARGS_(( - Tcl_Obj * objPtr, int length)); -/* 433 */ -EXTERN Tcl_ThreadId Tcl_GetChannelThread _ANSI_ARGS_(( - Tcl_Channel channel)); -/* 434 */ -EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj _ANSI_ARGS_((Tcl_Obj * objPtr, - int * lengthPtr)); -/* 435 */ -EXTERN int Tcl_GetMathFuncInfo _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * name, int * numArgsPtr, - Tcl_ValueType ** argTypesPtr, - Tcl_MathProc ** procPtr, - ClientData * clientDataPtr)); -/* 436 */ -EXTERN Tcl_Obj * Tcl_ListMathFuncs _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * pattern)); -/* 437 */ -EXTERN Tcl_Obj * Tcl_SubstObj _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * objPtr, int flags)); -/* 438 */ -EXTERN int Tcl_DetachChannel _ANSI_ARGS_((Tcl_Interp* interp, - Tcl_Channel channel)); -/* 439 */ -EXTERN int Tcl_IsStandardChannel _ANSI_ARGS_(( - Tcl_Channel channel)); -/* 440 */ -EXTERN int Tcl_FSCopyFile _ANSI_ARGS_((Tcl_Obj * srcPathPtr, - Tcl_Obj * destPathPtr)); -/* 441 */ -EXTERN int Tcl_FSCopyDirectory _ANSI_ARGS_(( - Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr, - Tcl_Obj ** errorPtr)); -/* 442 */ -EXTERN int Tcl_FSCreateDirectory _ANSI_ARGS_((Tcl_Obj * pathPtr)); -/* 443 */ -EXTERN int Tcl_FSDeleteFile _ANSI_ARGS_((Tcl_Obj * pathPtr)); -/* 444 */ -EXTERN int Tcl_FSLoadFile _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * pathPtr, CONST char * sym1, - CONST char * sym2, - Tcl_PackageInitProc ** proc1Ptr, - Tcl_PackageInitProc ** proc2Ptr, - Tcl_LoadHandle * handlePtr, - Tcl_FSUnloadFileProc ** unloadProcPtr)); -/* 445 */ -EXTERN int Tcl_FSMatchInDirectory _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * result, - Tcl_Obj * pathPtr, CONST char * pattern, - Tcl_GlobTypeData * types)); -/* 446 */ -EXTERN Tcl_Obj * Tcl_FSLink _ANSI_ARGS_((Tcl_Obj * pathPtr, - Tcl_Obj * toPtr, int linkAction)); -/* 447 */ -EXTERN int Tcl_FSRemoveDirectory _ANSI_ARGS_((Tcl_Obj * pathPtr, - int recursive, Tcl_Obj ** errorPtr)); -/* 448 */ -EXTERN int Tcl_FSRenameFile _ANSI_ARGS_((Tcl_Obj * srcPathPtr, - Tcl_Obj * destPathPtr)); -/* 449 */ -EXTERN int Tcl_FSLstat _ANSI_ARGS_((Tcl_Obj * pathPtr, - Tcl_StatBuf * buf)); -/* 450 */ -EXTERN int Tcl_FSUtime _ANSI_ARGS_((Tcl_Obj * pathPtr, - struct utimbuf * tval)); -/* 451 */ -EXTERN int Tcl_FSFileAttrsGet _ANSI_ARGS_((Tcl_Interp * interp, - int index, Tcl_Obj * pathPtr, - Tcl_Obj ** objPtrRef)); -/* 452 */ -EXTERN int Tcl_FSFileAttrsSet _ANSI_ARGS_((Tcl_Interp * interp, - int index, Tcl_Obj * pathPtr, - Tcl_Obj * objPtr)); -/* 453 */ -EXTERN CONST char ** Tcl_FSFileAttrStrings _ANSI_ARGS_((Tcl_Obj * pathPtr, - Tcl_Obj ** objPtrRef)); -/* 454 */ -EXTERN int Tcl_FSStat _ANSI_ARGS_((Tcl_Obj * pathPtr, - Tcl_StatBuf * buf)); -/* 455 */ -EXTERN int Tcl_FSAccess _ANSI_ARGS_((Tcl_Obj * pathPtr, - int mode)); -/* 456 */ -EXTERN Tcl_Channel Tcl_FSOpenFileChannel _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * pathPtr, - CONST char * modeString, int permissions)); -/* 457 */ -EXTERN Tcl_Obj* Tcl_FSGetCwd _ANSI_ARGS_((Tcl_Interp * interp)); -/* 458 */ -EXTERN int Tcl_FSChdir _ANSI_ARGS_((Tcl_Obj * pathPtr)); -/* 459 */ -EXTERN int Tcl_FSConvertToPathType _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * pathPtr)); -/* 460 */ -EXTERN Tcl_Obj* Tcl_FSJoinPath _ANSI_ARGS_((Tcl_Obj * listObj, - int elements)); -/* 461 */ -EXTERN Tcl_Obj* Tcl_FSSplitPath _ANSI_ARGS_((Tcl_Obj* pathPtr, - int * lenPtr)); -/* 462 */ -EXTERN int Tcl_FSEqualPaths _ANSI_ARGS_((Tcl_Obj* firstPtr, - Tcl_Obj* secondPtr)); -/* 463 */ -EXTERN Tcl_Obj* Tcl_FSGetNormalizedPath _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj* pathObjPtr)); -/* 464 */ -EXTERN Tcl_Obj* Tcl_FSJoinToPath _ANSI_ARGS_((Tcl_Obj * basePtr, - int objc, Tcl_Obj *CONST objv[])); -/* 465 */ -EXTERN ClientData Tcl_FSGetInternalRep _ANSI_ARGS_(( - Tcl_Obj* pathObjPtr, Tcl_Filesystem * fsPtr)); -/* 466 */ -EXTERN Tcl_Obj* Tcl_FSGetTranslatedPath _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj* pathPtr)); -/* 467 */ -EXTERN int Tcl_FSEvalFile _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * fileName)); -/* 468 */ -EXTERN Tcl_Obj* Tcl_FSNewNativePath _ANSI_ARGS_(( - Tcl_Filesystem* fromFilesystem, - ClientData clientData)); -/* 469 */ -EXTERN CONST char* Tcl_FSGetNativePath _ANSI_ARGS_((Tcl_Obj* pathObjPtr)); -/* 470 */ -EXTERN Tcl_Obj* Tcl_FSFileSystemInfo _ANSI_ARGS_(( - Tcl_Obj* pathObjPtr)); -/* 471 */ -EXTERN Tcl_Obj* Tcl_FSPathSeparator _ANSI_ARGS_((Tcl_Obj* pathObjPtr)); -/* 472 */ -EXTERN Tcl_Obj* Tcl_FSListVolumes _ANSI_ARGS_((void)); -/* 473 */ -EXTERN int Tcl_FSRegister _ANSI_ARGS_((ClientData clientData, - Tcl_Filesystem * fsPtr)); -/* 474 */ -EXTERN int Tcl_FSUnregister _ANSI_ARGS_((Tcl_Filesystem * fsPtr)); -/* 475 */ -EXTERN ClientData Tcl_FSData _ANSI_ARGS_((Tcl_Filesystem * fsPtr)); -/* 476 */ -EXTERN CONST char* Tcl_FSGetTranslatedStringPath _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj* pathPtr)); -/* 477 */ -EXTERN Tcl_Filesystem* Tcl_FSGetFileSystemForPath _ANSI_ARGS_(( - Tcl_Obj* pathObjPtr)); -/* 478 */ -EXTERN Tcl_PathType Tcl_FSGetPathType _ANSI_ARGS_((Tcl_Obj * pathObjPtr)); -/* 479 */ -EXTERN int Tcl_OutputBuffered _ANSI_ARGS_((Tcl_Channel chan)); -/* 480 */ -EXTERN void Tcl_FSMountsChanged _ANSI_ARGS_(( - Tcl_Filesystem * fsPtr)); -/* 481 */ -EXTERN int Tcl_EvalTokensStandard _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Token * tokenPtr, - int count)); -/* 482 */ -EXTERN void Tcl_GetTime _ANSI_ARGS_((Tcl_Time* timeBuf)); -/* 483 */ -EXTERN Tcl_Trace Tcl_CreateObjTrace _ANSI_ARGS_((Tcl_Interp* interp, - int level, int flags, - Tcl_CmdObjTraceProc* objProc, - ClientData clientData, - Tcl_CmdObjTraceDeleteProc* delProc)); -/* 484 */ -EXTERN int Tcl_GetCommandInfoFromToken _ANSI_ARGS_(( - Tcl_Command token, Tcl_CmdInfo* infoPtr)); -/* 485 */ -EXTERN int Tcl_SetCommandInfoFromToken _ANSI_ARGS_(( - Tcl_Command token, - CONST Tcl_CmdInfo* infoPtr)); -/* 486 */ -EXTERN Tcl_Obj * Tcl_DbNewWideIntObj _ANSI_ARGS_(( - Tcl_WideInt wideValue, CONST char * file, - int line)); -/* 487 */ -EXTERN int Tcl_GetWideIntFromObj _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * objPtr, - Tcl_WideInt * widePtr)); -/* 488 */ -EXTERN Tcl_Obj * Tcl_NewWideIntObj _ANSI_ARGS_((Tcl_WideInt wideValue)); -/* 489 */ -EXTERN void Tcl_SetWideIntObj _ANSI_ARGS_((Tcl_Obj * objPtr, - Tcl_WideInt wideValue)); -/* 490 */ -EXTERN Tcl_StatBuf * Tcl_AllocStatBuf _ANSI_ARGS_((void)); -/* 491 */ -EXTERN Tcl_WideInt Tcl_Seek _ANSI_ARGS_((Tcl_Channel chan, - Tcl_WideInt offset, int mode)); -/* 492 */ -EXTERN Tcl_WideInt Tcl_Tell _ANSI_ARGS_((Tcl_Channel chan)); -/* 493 */ -EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc _ANSI_ARGS_(( - Tcl_ChannelType * chanTypePtr)); - -typedef struct TclStubHooks { - struct TclPlatStubs *tclPlatStubs; - struct TclIntStubs *tclIntStubs; - struct TclIntPlatStubs *tclIntPlatStubs; -} TclStubHooks; - -typedef struct TclStubs { - int magic; - struct TclStubHooks *hooks; - - int (*tcl_PkgProvideEx) _ANSI_ARGS_((Tcl_Interp* interp, CONST char* name, CONST char* version, ClientData clientData)); /* 0 */ - CONST84_RETURN char * (*tcl_PkgRequireEx) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, CONST char * version, int exact, ClientData * clientDataPtr)); /* 1 */ - void (*tcl_Panic) _ANSI_ARGS_(TCL_VARARGS(CONST char *,format)); /* 2 */ - char * (*tcl_Alloc) _ANSI_ARGS_((unsigned int size)); /* 3 */ - void (*tcl_Free) _ANSI_ARGS_((char * ptr)); /* 4 */ - char * (*tcl_Realloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 5 */ - char * (*tcl_DbCkalloc) _ANSI_ARGS_((unsigned int size, CONST char * file, int line)); /* 6 */ - int (*tcl_DbCkfree) _ANSI_ARGS_((char * ptr, CONST char * file, int line)); /* 7 */ - char * (*tcl_DbCkrealloc) _ANSI_ARGS_((char * ptr, unsigned int size, CONST char * file, int line)); /* 8 */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - void (*tcl_CreateFileHandler) _ANSI_ARGS_((int fd, int mask, Tcl_FileProc * proc, ClientData clientData)); /* 9 */ -#endif /* UNIX */ -#ifdef __WIN32__ - void *reserved9; -#endif /* __WIN32__ */ -#ifdef MAC_TCL - void *reserved9; -#endif /* MAC_TCL */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - void (*tcl_DeleteFileHandler) _ANSI_ARGS_((int fd)); /* 10 */ -#endif /* UNIX */ -#ifdef __WIN32__ - void *reserved10; -#endif /* __WIN32__ */ -#ifdef MAC_TCL - void *reserved10; -#endif /* MAC_TCL */ - void (*tcl_SetTimer) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 11 */ - void (*tcl_Sleep) _ANSI_ARGS_((int ms)); /* 12 */ - int (*tcl_WaitForEvent) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 13 */ - int (*tcl_AppendAllObjTypes) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 14 */ - void (*tcl_AppendStringsToObj) _ANSI_ARGS_(TCL_VARARGS(Tcl_Obj *,objPtr)); /* 15 */ - void (*tcl_AppendToObj) _ANSI_ARGS_((Tcl_Obj* objPtr, CONST char* bytes, int length)); /* 16 */ - Tcl_Obj * (*tcl_ConcatObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST objv[])); /* 17 */ - int (*tcl_ConvertToType) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_ObjType * typePtr)); /* 18 */ - void (*tcl_DbDecrRefCount) _ANSI_ARGS_((Tcl_Obj * objPtr, CONST char * file, int line)); /* 19 */ - void (*tcl_DbIncrRefCount) _ANSI_ARGS_((Tcl_Obj * objPtr, CONST char * file, int line)); /* 20 */ - int (*tcl_DbIsShared) _ANSI_ARGS_((Tcl_Obj * objPtr, CONST char * file, int line)); /* 21 */ - Tcl_Obj * (*tcl_DbNewBooleanObj) _ANSI_ARGS_((int boolValue, CONST char * file, int line)); /* 22 */ - Tcl_Obj * (*tcl_DbNewByteArrayObj) _ANSI_ARGS_((CONST unsigned char * bytes, int length, CONST char * file, int line)); /* 23 */ - Tcl_Obj * (*tcl_DbNewDoubleObj) _ANSI_ARGS_((double doubleValue, CONST char * file, int line)); /* 24 */ - Tcl_Obj * (*tcl_DbNewListObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST * objv, CONST char * file, int line)); /* 25 */ - Tcl_Obj * (*tcl_DbNewLongObj) _ANSI_ARGS_((long longValue, CONST char * file, int line)); /* 26 */ - Tcl_Obj * (*tcl_DbNewObj) _ANSI_ARGS_((CONST char * file, int line)); /* 27 */ - Tcl_Obj * (*tcl_DbNewStringObj) _ANSI_ARGS_((CONST char * bytes, int length, CONST char * file, int line)); /* 28 */ - Tcl_Obj * (*tcl_DuplicateObj) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 29 */ - void (*tclFreeObj) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 30 */ - int (*tcl_GetBoolean) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, int * boolPtr)); /* 31 */ - int (*tcl_GetBooleanFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int * boolPtr)); /* 32 */ - unsigned char * (*tcl_GetByteArrayFromObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int * lengthPtr)); /* 33 */ - int (*tcl_GetDouble) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, double * doublePtr)); /* 34 */ - int (*tcl_GetDoubleFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, double * doublePtr)); /* 35 */ - int (*tcl_GetIndexFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, CONST84 char ** tablePtr, CONST char * msg, int flags, int * indexPtr)); /* 36 */ - int (*tcl_GetInt) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, int * intPtr)); /* 37 */ - int (*tcl_GetIntFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int * intPtr)); /* 38 */ - int (*tcl_GetLongFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, long * longPtr)); /* 39 */ - Tcl_ObjType * (*tcl_GetObjType) _ANSI_ARGS_((CONST char * typeName)); /* 40 */ - char * (*tcl_GetStringFromObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int * lengthPtr)); /* 41 */ - void (*tcl_InvalidateStringRep) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 42 */ - int (*tcl_ListObjAppendList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Obj * elemListPtr)); /* 43 */ - int (*tcl_ListObjAppendElement) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Obj * objPtr)); /* 44 */ - int (*tcl_ListObjGetElements) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int * objcPtr, Tcl_Obj *** objvPtr)); /* 45 */ - int (*tcl_ListObjIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int index, Tcl_Obj ** objPtrPtr)); /* 46 */ - int (*tcl_ListObjLength) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int * lengthPtr)); /* 47 */ - int (*tcl_ListObjReplace) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int first, int count, int objc, Tcl_Obj *CONST objv[])); /* 48 */ - Tcl_Obj * (*tcl_NewBooleanObj) _ANSI_ARGS_((int boolValue)); /* 49 */ - Tcl_Obj * (*tcl_NewByteArrayObj) _ANSI_ARGS_((CONST unsigned char* bytes, int length)); /* 50 */ - Tcl_Obj * (*tcl_NewDoubleObj) _ANSI_ARGS_((double doubleValue)); /* 51 */ - Tcl_Obj * (*tcl_NewIntObj) _ANSI_ARGS_((int intValue)); /* 52 */ - Tcl_Obj * (*tcl_NewListObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST objv[])); /* 53 */ - Tcl_Obj * (*tcl_NewLongObj) _ANSI_ARGS_((long longValue)); /* 54 */ - Tcl_Obj * (*tcl_NewObj) _ANSI_ARGS_((void)); /* 55 */ - Tcl_Obj * (*tcl_NewStringObj) _ANSI_ARGS_((CONST char * bytes, int length)); /* 56 */ - void (*tcl_SetBooleanObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int boolValue)); /* 57 */ - unsigned char * (*tcl_SetByteArrayLength) _ANSI_ARGS_((Tcl_Obj * objPtr, int length)); /* 58 */ - void (*tcl_SetByteArrayObj) _ANSI_ARGS_((Tcl_Obj * objPtr, CONST unsigned char * bytes, int length)); /* 59 */ - void (*tcl_SetDoubleObj) _ANSI_ARGS_((Tcl_Obj * objPtr, double doubleValue)); /* 60 */ - void (*tcl_SetIntObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int intValue)); /* 61 */ - void (*tcl_SetListObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int objc, Tcl_Obj *CONST objv[])); /* 62 */ - void (*tcl_SetLongObj) _ANSI_ARGS_((Tcl_Obj * objPtr, long longValue)); /* 63 */ - void (*tcl_SetObjLength) _ANSI_ARGS_((Tcl_Obj * objPtr, int length)); /* 64 */ - void (*tcl_SetStringObj) _ANSI_ARGS_((Tcl_Obj* objPtr, CONST char* bytes, int length)); /* 65 */ - void (*tcl_AddErrorInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * message)); /* 66 */ - void (*tcl_AddObjErrorInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * message, int length)); /* 67 */ - void (*tcl_AllowExceptions) _ANSI_ARGS_((Tcl_Interp * interp)); /* 68 */ - void (*tcl_AppendElement) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * string)); /* 69 */ - void (*tcl_AppendResult) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); /* 70 */ - Tcl_AsyncHandler (*tcl_AsyncCreate) _ANSI_ARGS_((Tcl_AsyncProc * proc, ClientData clientData)); /* 71 */ - void (*tcl_AsyncDelete) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 72 */ - int (*tcl_AsyncInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int code)); /* 73 */ - void (*tcl_AsyncMark) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 74 */ - int (*tcl_AsyncReady) _ANSI_ARGS_((void)); /* 75 */ - void (*tcl_BackgroundError) _ANSI_ARGS_((Tcl_Interp * interp)); /* 76 */ - char (*tcl_Backslash) _ANSI_ARGS_((CONST char * src, int * readPtr)); /* 77 */ - int (*tcl_BadChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * optionName, CONST char * optionList)); /* 78 */ - void (*tcl_CallWhenDeleted) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_InterpDeleteProc * proc, ClientData clientData)); /* 79 */ - void (*tcl_CancelIdleCall) _ANSI_ARGS_((Tcl_IdleProc * idleProc, ClientData clientData)); /* 80 */ - int (*tcl_Close) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 81 */ - int (*tcl_CommandComplete) _ANSI_ARGS_((CONST char * cmd)); /* 82 */ - char * (*tcl_Concat) _ANSI_ARGS_((int argc, CONST84 char * CONST * objv)); /* 83 */ - int (*tcl_ConvertElement) _ANSI_ARGS_((CONST char * src, char * dst, int flags)); /* 84 */ - int (*tcl_ConvertCountedElement) _ANSI_ARGS_((CONST char * src, int length, char * dst, int flags)); /* 85 */ - int (*tcl_CreateAlias) _ANSI_ARGS_((Tcl_Interp * slave, CONST char * slaveCmd, Tcl_Interp * target, CONST char * targetCmd, int argc, CONST84 char * CONST * objv)); /* 86 */ - int (*tcl_CreateAliasObj) _ANSI_ARGS_((Tcl_Interp * slave, CONST char * slaveCmd, Tcl_Interp * target, CONST char * targetCmd, int objc, Tcl_Obj *CONST objv[])); /* 87 */ - Tcl_Channel (*tcl_CreateChannel) _ANSI_ARGS_((Tcl_ChannelType * typePtr, CONST char * chanName, ClientData instanceData, int mask)); /* 88 */ - void (*tcl_CreateChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, int mask, Tcl_ChannelProc * proc, ClientData clientData)); /* 89 */ - void (*tcl_CreateCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_CloseProc * proc, ClientData clientData)); /* 90 */ - Tcl_Command (*tcl_CreateCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * cmdName, Tcl_CmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc)); /* 91 */ - void (*tcl_CreateEventSource) _ANSI_ARGS_((Tcl_EventSetupProc * setupProc, Tcl_EventCheckProc * checkProc, ClientData clientData)); /* 92 */ - void (*tcl_CreateExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientData clientData)); /* 93 */ - Tcl_Interp * (*tcl_CreateInterp) _ANSI_ARGS_((void)); /* 94 */ - void (*tcl_CreateMathFunc) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, int numArgs, Tcl_ValueType * argTypes, Tcl_MathProc * proc, ClientData clientData)); /* 95 */ - Tcl_Command (*tcl_CreateObjCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * cmdName, Tcl_ObjCmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc)); /* 96 */ - Tcl_Interp * (*tcl_CreateSlave) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * slaveName, int isSafe)); /* 97 */ - Tcl_TimerToken (*tcl_CreateTimerHandler) _ANSI_ARGS_((int milliseconds, Tcl_TimerProc * proc, ClientData clientData)); /* 98 */ - Tcl_Trace (*tcl_CreateTrace) _ANSI_ARGS_((Tcl_Interp * interp, int level, Tcl_CmdTraceProc * proc, ClientData clientData)); /* 99 */ - void (*tcl_DeleteAssocData) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name)); /* 100 */ - void (*tcl_DeleteChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_ChannelProc * proc, ClientData clientData)); /* 101 */ - void (*tcl_DeleteCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_CloseProc * proc, ClientData clientData)); /* 102 */ - int (*tcl_DeleteCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * cmdName)); /* 103 */ - int (*tcl_DeleteCommandFromToken) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command)); /* 104 */ - void (*tcl_DeleteEvents) _ANSI_ARGS_((Tcl_EventDeleteProc * proc, ClientData clientData)); /* 105 */ - void (*tcl_DeleteEventSource) _ANSI_ARGS_((Tcl_EventSetupProc * setupProc, Tcl_EventCheckProc * checkProc, ClientData clientData)); /* 106 */ - void (*tcl_DeleteExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientData clientData)); /* 107 */ - void (*tcl_DeleteHashEntry) _ANSI_ARGS_((Tcl_HashEntry * entryPtr)); /* 108 */ - void (*tcl_DeleteHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr)); /* 109 */ - void (*tcl_DeleteInterp) _ANSI_ARGS_((Tcl_Interp * interp)); /* 110 */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - void (*tcl_DetachPids) _ANSI_ARGS_((int numPids, Tcl_Pid * pidPtr)); /* 111 */ -#endif /* UNIX */ -#ifdef __WIN32__ - void (*tcl_DetachPids) _ANSI_ARGS_((int numPids, Tcl_Pid * pidPtr)); /* 111 */ -#endif /* __WIN32__ */ -#ifdef MAC_TCL - void *reserved111; -#endif /* MAC_TCL */ - void (*tcl_DeleteTimerHandler) _ANSI_ARGS_((Tcl_TimerToken token)); /* 112 */ - void (*tcl_DeleteTrace) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Trace trace)); /* 113 */ - void (*tcl_DontCallWhenDeleted) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_InterpDeleteProc * proc, ClientData clientData)); /* 114 */ - int (*tcl_DoOneEvent) _ANSI_ARGS_((int flags)); /* 115 */ - void (*tcl_DoWhenIdle) _ANSI_ARGS_((Tcl_IdleProc * proc, ClientData clientData)); /* 116 */ - char * (*tcl_DStringAppend) _ANSI_ARGS_((Tcl_DString * dsPtr, CONST char * str, int length)); /* 117 */ - char * (*tcl_DStringAppendElement) _ANSI_ARGS_((Tcl_DString * dsPtr, CONST char * string)); /* 118 */ - void (*tcl_DStringEndSublist) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 119 */ - void (*tcl_DStringFree) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 120 */ - void (*tcl_DStringGetResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * dsPtr)); /* 121 */ - void (*tcl_DStringInit) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 122 */ - void (*tcl_DStringResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * dsPtr)); /* 123 */ - void (*tcl_DStringSetLength) _ANSI_ARGS_((Tcl_DString * dsPtr, int length)); /* 124 */ - void (*tcl_DStringStartSublist) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 125 */ - int (*tcl_Eof) _ANSI_ARGS_((Tcl_Channel chan)); /* 126 */ - CONST84_RETURN char * (*tcl_ErrnoId) _ANSI_ARGS_((void)); /* 127 */ - CONST84_RETURN char * (*tcl_ErrnoMsg) _ANSI_ARGS_((int err)); /* 128 */ - int (*tcl_Eval) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * string)); /* 129 */ - int (*tcl_EvalFile) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * fileName)); /* 130 */ - int (*tcl_EvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 131 */ - void (*tcl_EventuallyFree) _ANSI_ARGS_((ClientData clientData, Tcl_FreeProc * freeProc)); /* 132 */ - void (*tcl_Exit) _ANSI_ARGS_((int status)); /* 133 */ - int (*tcl_ExposeCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * hiddenCmdToken, CONST char * cmdName)); /* 134 */ - int (*tcl_ExprBoolean) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, int * ptr)); /* 135 */ - int (*tcl_ExprBooleanObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int * ptr)); /* 136 */ - int (*tcl_ExprDouble) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, double * ptr)); /* 137 */ - int (*tcl_ExprDoubleObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, double * ptr)); /* 138 */ - int (*tcl_ExprLong) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, long * ptr)); /* 139 */ - int (*tcl_ExprLongObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, long * ptr)); /* 140 */ - int (*tcl_ExprObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Obj ** resultPtrPtr)); /* 141 */ - int (*tcl_ExprString) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * string)); /* 142 */ - void (*tcl_Finalize) _ANSI_ARGS_((void)); /* 143 */ - void (*tcl_FindExecutable) _ANSI_ARGS_((CONST char * argv0)); /* 144 */ - Tcl_HashEntry * (*tcl_FirstHashEntry) _ANSI_ARGS_((Tcl_HashTable * tablePtr, Tcl_HashSearch * searchPtr)); /* 145 */ - int (*tcl_Flush) _ANSI_ARGS_((Tcl_Channel chan)); /* 146 */ - void (*tcl_FreeResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 147 */ - int (*tcl_GetAlias) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * slaveCmd, Tcl_Interp ** targetInterpPtr, CONST84 char ** targetCmdPtr, int * argcPtr, CONST84 char *** argvPtr)); /* 148 */ - int (*tcl_GetAliasObj) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * slaveCmd, Tcl_Interp ** targetInterpPtr, CONST84 char ** targetCmdPtr, int * objcPtr, Tcl_Obj *** objv)); /* 149 */ - ClientData (*tcl_GetAssocData) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_InterpDeleteProc ** procPtr)); /* 150 */ - Tcl_Channel (*tcl_GetChannel) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * chanName, int * modePtr)); /* 151 */ - int (*tcl_GetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan)); /* 152 */ - int (*tcl_GetChannelHandle) _ANSI_ARGS_((Tcl_Channel chan, int direction, ClientData * handlePtr)); /* 153 */ - ClientData (*tcl_GetChannelInstanceData) _ANSI_ARGS_((Tcl_Channel chan)); /* 154 */ - int (*tcl_GetChannelMode) _ANSI_ARGS_((Tcl_Channel chan)); /* 155 */ - CONST84_RETURN char * (*tcl_GetChannelName) _ANSI_ARGS_((Tcl_Channel chan)); /* 156 */ - int (*tcl_GetChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, CONST char * optionName, Tcl_DString * dsPtr)); /* 157 */ - Tcl_ChannelType * (*tcl_GetChannelType) _ANSI_ARGS_((Tcl_Channel chan)); /* 158 */ - int (*tcl_GetCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * cmdName, Tcl_CmdInfo * infoPtr)); /* 159 */ - CONST84_RETURN char * (*tcl_GetCommandName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command)); /* 160 */ - int (*tcl_GetErrno) _ANSI_ARGS_((void)); /* 161 */ - CONST84_RETURN char * (*tcl_GetHostName) _ANSI_ARGS_((void)); /* 162 */ - int (*tcl_GetInterpPath) _ANSI_ARGS_((Tcl_Interp * askInterp, Tcl_Interp * slaveInterp)); /* 163 */ - Tcl_Interp * (*tcl_GetMaster) _ANSI_ARGS_((Tcl_Interp * interp)); /* 164 */ - CONST char * (*tcl_GetNameOfExecutable) _ANSI_ARGS_((void)); /* 165 */ - Tcl_Obj * (*tcl_GetObjResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 166 */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - int (*tcl_GetOpenFile) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, int forWriting, int checkUsage, ClientData * filePtr)); /* 167 */ -#endif /* UNIX */ -#ifdef __WIN32__ - void *reserved167; -#endif /* __WIN32__ */ -#ifdef MAC_TCL - void *reserved167; -#endif /* MAC_TCL */ - Tcl_PathType (*tcl_GetPathType) _ANSI_ARGS_((CONST char * path)); /* 168 */ - int (*tcl_Gets) _ANSI_ARGS_((Tcl_Channel chan, Tcl_DString * dsPtr)); /* 169 */ - int (*tcl_GetsObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj * objPtr)); /* 170 */ - int (*tcl_GetServiceMode) _ANSI_ARGS_((void)); /* 171 */ - Tcl_Interp * (*tcl_GetSlave) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * slaveName)); /* 172 */ - Tcl_Channel (*tcl_GetStdChannel) _ANSI_ARGS_((int type)); /* 173 */ - CONST84_RETURN char * (*tcl_GetStringResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 174 */ - CONST84_RETURN char * (*tcl_GetVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varName, int flags)); /* 175 */ - CONST84_RETURN char * (*tcl_GetVar2) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags)); /* 176 */ - int (*tcl_GlobalEval) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * command)); /* 177 */ - int (*tcl_GlobalEvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 178 */ - int (*tcl_HideCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * cmdName, CONST char * hiddenCmdToken)); /* 179 */ - int (*tcl_Init) _ANSI_ARGS_((Tcl_Interp * interp)); /* 180 */ - void (*tcl_InitHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr, int keyType)); /* 181 */ - int (*tcl_InputBlocked) _ANSI_ARGS_((Tcl_Channel chan)); /* 182 */ - int (*tcl_InputBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 183 */ - int (*tcl_InterpDeleted) _ANSI_ARGS_((Tcl_Interp * interp)); /* 184 */ - int (*tcl_IsSafe) _ANSI_ARGS_((Tcl_Interp * interp)); /* 185 */ - char * (*tcl_JoinPath) _ANSI_ARGS_((int argc, CONST84 char * CONST * objv, Tcl_DString * resultPtr)); /* 186 */ - int (*tcl_LinkVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varName, char * addr, int type)); /* 187 */ - void *reserved188; - Tcl_Channel (*tcl_MakeFileChannel) _ANSI_ARGS_((ClientData handle, int mode)); /* 189 */ - int (*tcl_MakeSafe) _ANSI_ARGS_((Tcl_Interp * interp)); /* 190 */ - Tcl_Channel (*tcl_MakeTcpClientChannel) _ANSI_ARGS_((ClientData tcpSocket)); /* 191 */ - char * (*tcl_Merge) _ANSI_ARGS_((int argc, CONST84 char * CONST * objv)); /* 192 */ - Tcl_HashEntry * (*tcl_NextHashEntry) _ANSI_ARGS_((Tcl_HashSearch * searchPtr)); /* 193 */ - void (*tcl_NotifyChannel) _ANSI_ARGS_((Tcl_Channel channel, int mask)); /* 194 */ - Tcl_Obj * (*tcl_ObjGetVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, int flags)); /* 195 */ - Tcl_Obj * (*tcl_ObjSetVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, Tcl_Obj * newValuePtr, int flags)); /* 196 */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - Tcl_Channel (*tcl_OpenCommandChannel) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST84 Tcl_Obj *CONST *objv, int flags)); /* 197 */ -#endif /* UNIX */ -#ifdef __WIN32__ - Tcl_Channel (*tcl_OpenCommandChannel) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST84 Tcl_Obj *CONST *objv, int flags)); /* 197 */ -#endif /* __WIN32__ */ -#ifdef MAC_TCL - void *reserved197; -#endif /* MAC_TCL */ - Tcl_Channel (*tcl_OpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * fileName, CONST char * modeString, int permissions)); /* 198 */ - Tcl_Channel (*tcl_OpenTcpClient) _ANSI_ARGS_((Tcl_Interp * interp, int port, CONST char * address, CONST char * myaddr, int myport, int async)); /* 199 */ - Tcl_Channel (*tcl_OpenTcpServer) _ANSI_ARGS_((Tcl_Interp * interp, int port, CONST char * host, Tcl_TcpAcceptProc * acceptProc, ClientData callbackData)); /* 200 */ - void (*tcl_Preserve) _ANSI_ARGS_((ClientData data)); /* 201 */ - void (*tcl_PrintDouble) _ANSI_ARGS_((Tcl_Interp * interp, double value, char * dst)); /* 202 */ - int (*tcl_PutEnv) _ANSI_ARGS_((CONST char * string)); /* 203 */ - CONST84_RETURN char * (*tcl_PosixError) _ANSI_ARGS_((Tcl_Interp * interp)); /* 204 */ - void (*tcl_QueueEvent) _ANSI_ARGS_((Tcl_Event * evPtr, Tcl_QueuePosition position)); /* 205 */ - int (*tcl_Read) _ANSI_ARGS_((Tcl_Channel chan, char * bufPtr, int toRead)); /* 206 */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - void (*tcl_ReapDetachedProcs) _ANSI_ARGS_((void)); /* 207 */ -#endif /* UNIX */ -#ifdef __WIN32__ - void (*tcl_ReapDetachedProcs) _ANSI_ARGS_((void)); /* 207 */ -#endif /* __WIN32__ */ -#ifdef MAC_TCL - void *reserved207; -#endif /* MAC_TCL */ - int (*tcl_RecordAndEval) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * cmd, int flags)); /* 208 */ - int (*tcl_RecordAndEvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * cmdPtr, int flags)); /* 209 */ - void (*tcl_RegisterChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 210 */ - void (*tcl_RegisterObjType) _ANSI_ARGS_((Tcl_ObjType * typePtr)); /* 211 */ - Tcl_RegExp (*tcl_RegExpCompile) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * string)); /* 212 */ - int (*tcl_RegExpExec) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp regexp, CONST char * str, CONST char * start)); /* 213 */ - int (*tcl_RegExpMatch) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, CONST char * pattern)); /* 214 */ - void (*tcl_RegExpRange) _ANSI_ARGS_((Tcl_RegExp regexp, int index, CONST84 char ** startPtr, CONST84 char ** endPtr)); /* 215 */ - void (*tcl_Release) _ANSI_ARGS_((ClientData clientData)); /* 216 */ - void (*tcl_ResetResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 217 */ - int (*tcl_ScanElement) _ANSI_ARGS_((CONST char * str, int * flagPtr)); /* 218 */ - int (*tcl_ScanCountedElement) _ANSI_ARGS_((CONST char * str, int length, int * flagPtr)); /* 219 */ - int (*tcl_SeekOld) _ANSI_ARGS_((Tcl_Channel chan, int offset, int mode)); /* 220 */ - int (*tcl_ServiceAll) _ANSI_ARGS_((void)); /* 221 */ - int (*tcl_ServiceEvent) _ANSI_ARGS_((int flags)); /* 222 */ - void (*tcl_SetAssocData) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_InterpDeleteProc * proc, ClientData clientData)); /* 223 */ - void (*tcl_SetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan, int sz)); /* 224 */ - int (*tcl_SetChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, CONST char * optionName, CONST char * newValue)); /* 225 */ - int (*tcl_SetCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * cmdName, CONST Tcl_CmdInfo * infoPtr)); /* 226 */ - void (*tcl_SetErrno) _ANSI_ARGS_((int err)); /* 227 */ - void (*tcl_SetErrorCode) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); /* 228 */ - void (*tcl_SetMaxBlockTime) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 229 */ - void (*tcl_SetPanicProc) _ANSI_ARGS_((Tcl_PanicProc * panicProc)); /* 230 */ - int (*tcl_SetRecursionLimit) _ANSI_ARGS_((Tcl_Interp * interp, int depth)); /* 231 */ - void (*tcl_SetResult) _ANSI_ARGS_((Tcl_Interp * interp, char * str, Tcl_FreeProc * freeProc)); /* 232 */ - int (*tcl_SetServiceMode) _ANSI_ARGS_((int mode)); /* 233 */ - void (*tcl_SetObjErrorCode) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * errorObjPtr)); /* 234 */ - void (*tcl_SetObjResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * resultObjPtr)); /* 235 */ - void (*tcl_SetStdChannel) _ANSI_ARGS_((Tcl_Channel channel, int type)); /* 236 */ - CONST84_RETURN char * (*tcl_SetVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varName, CONST char * newValue, int flags)); /* 237 */ - CONST84_RETURN char * (*tcl_SetVar2) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * part1, CONST char * part2, CONST char * newValue, int flags)); /* 238 */ - CONST84_RETURN char * (*tcl_SignalId) _ANSI_ARGS_((int sig)); /* 239 */ - CONST84_RETURN char * (*tcl_SignalMsg) _ANSI_ARGS_((int sig)); /* 240 */ - void (*tcl_SourceRCFile) _ANSI_ARGS_((Tcl_Interp * interp)); /* 241 */ - int (*tcl_SplitList) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * listStr, int * argcPtr, CONST84 char *** argvPtr)); /* 242 */ - void (*tcl_SplitPath) _ANSI_ARGS_((CONST char * path, int * argcPtr, CONST84 char *** argvPtr)); /* 243 */ - void (*tcl_StaticPackage) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * pkgName, Tcl_PackageInitProc * initProc, Tcl_PackageInitProc * safeInitProc)); /* 244 */ - int (*tcl_StringMatch) _ANSI_ARGS_((CONST char * str, CONST char * pattern)); /* 245 */ - int (*tcl_TellOld) _ANSI_ARGS_((Tcl_Channel chan)); /* 246 */ - int (*tcl_TraceVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varName, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* 247 */ - int (*tcl_TraceVar2) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* 248 */ - char * (*tcl_TranslateFileName) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_DString * bufferPtr)); /* 249 */ - int (*tcl_Ungets) _ANSI_ARGS_((Tcl_Channel chan, CONST char * str, int len, int atHead)); /* 250 */ - void (*tcl_UnlinkVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varName)); /* 251 */ - int (*tcl_UnregisterChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 252 */ - int (*tcl_UnsetVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varName, int flags)); /* 253 */ - int (*tcl_UnsetVar2) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags)); /* 254 */ - void (*tcl_UntraceVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varName, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* 255 */ - void (*tcl_UntraceVar2) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* 256 */ - void (*tcl_UpdateLinkedVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varName)); /* 257 */ - int (*tcl_UpVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * frameName, CONST char * varName, CONST char * localName, int flags)); /* 258 */ - int (*tcl_UpVar2) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * frameName, CONST char * part1, CONST char * part2, CONST char * localName, int flags)); /* 259 */ - int (*tcl_VarEval) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); /* 260 */ - ClientData (*tcl_VarTraceInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varName, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClientData)); /* 261 */ - ClientData (*tcl_VarTraceInfo2) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClientData)); /* 262 */ - int (*tcl_Write) _ANSI_ARGS_((Tcl_Channel chan, CONST char * s, int slen)); /* 263 */ - void (*tcl_WrongNumArgs) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], CONST char * message)); /* 264 */ - int (*tcl_DumpActiveMemory) _ANSI_ARGS_((CONST char * fileName)); /* 265 */ - void (*tcl_ValidateAllMemory) _ANSI_ARGS_((CONST char * file, int line)); /* 266 */ - void (*tcl_AppendResultVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list argList)); /* 267 */ - void (*tcl_AppendStringsToObjVA) _ANSI_ARGS_((Tcl_Obj * objPtr, va_list argList)); /* 268 */ - CONST84_RETURN char * (*tcl_HashStats) _ANSI_ARGS_((Tcl_HashTable * tablePtr)); /* 269 */ - CONST84_RETURN char * (*tcl_ParseVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, CONST84 char ** termPtr)); /* 270 */ - CONST84_RETURN char * (*tcl_PkgPresent) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, CONST char * version, int exact)); /* 271 */ - CONST84_RETURN char * (*tcl_PkgPresentEx) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, CONST char * version, int exact, ClientData * clientDataPtr)); /* 272 */ - int (*tcl_PkgProvide) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, CONST char * version)); /* 273 */ - CONST84_RETURN char * (*tcl_PkgRequire) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, CONST char * version, int exact)); /* 274 */ - void (*tcl_SetErrorCodeVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list argList)); /* 275 */ - int (*tcl_VarEvalVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list argList)); /* 276 */ - Tcl_Pid (*tcl_WaitPid) _ANSI_ARGS_((Tcl_Pid pid, int * statPtr, int options)); /* 277 */ - void (*tcl_PanicVA) _ANSI_ARGS_((CONST char * format, va_list argList)); /* 278 */ - void (*tcl_GetVersion) _ANSI_ARGS_((int * major, int * minor, int * patchLevel, int * type)); /* 279 */ - void (*tcl_InitMemory) _ANSI_ARGS_((Tcl_Interp * interp)); /* 280 */ - Tcl_Channel (*tcl_StackChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_ChannelType * typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan)); /* 281 */ - int (*tcl_UnstackChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 282 */ - Tcl_Channel (*tcl_GetStackedChannel) _ANSI_ARGS_((Tcl_Channel chan)); /* 283 */ - void (*tcl_SetMainLoop) _ANSI_ARGS_((Tcl_MainLoopProc * proc)); /* 284 */ - void *reserved285; - void (*tcl_AppendObjToObj) _ANSI_ARGS_((Tcl_Obj * objPtr, Tcl_Obj * appendObjPtr)); /* 286 */ - Tcl_Encoding (*tcl_CreateEncoding) _ANSI_ARGS_((Tcl_EncodingType * typePtr)); /* 287 */ - void (*tcl_CreateThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientData clientData)); /* 288 */ - void (*tcl_DeleteThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientData clientData)); /* 289 */ - void (*tcl_DiscardResult) _ANSI_ARGS_((Tcl_SavedResult * statePtr)); /* 290 */ - int (*tcl_EvalEx) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * script, int numBytes, int flags)); /* 291 */ - int (*tcl_EvalObjv) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 292 */ - int (*tcl_EvalObjEx) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int flags)); /* 293 */ - void (*tcl_ExitThread) _ANSI_ARGS_((int status)); /* 294 */ - int (*tcl_ExternalToUtf) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Encoding encoding, CONST char * src, int srcLen, int flags, Tcl_EncodingState * statePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * dstCharsPtr)); /* 295 */ - char * (*tcl_ExternalToUtfDString) _ANSI_ARGS_((Tcl_Encoding encoding, CONST char * src, int srcLen, Tcl_DString * dsPtr)); /* 296 */ - void (*tcl_FinalizeThread) _ANSI_ARGS_((void)); /* 297 */ - void (*tcl_FinalizeNotifier) _ANSI_ARGS_((ClientData clientData)); /* 298 */ - void (*tcl_FreeEncoding) _ANSI_ARGS_((Tcl_Encoding encoding)); /* 299 */ - Tcl_ThreadId (*tcl_GetCurrentThread) _ANSI_ARGS_((void)); /* 300 */ - Tcl_Encoding (*tcl_GetEncoding) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name)); /* 301 */ - CONST84_RETURN char * (*tcl_GetEncodingName) _ANSI_ARGS_((Tcl_Encoding encoding)); /* 302 */ - void (*tcl_GetEncodingNames) _ANSI_ARGS_((Tcl_Interp * interp)); /* 303 */ - int (*tcl_GetIndexFromObjStruct) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, CONST VOID * tablePtr, int offset, CONST char * msg, int flags, int * indexPtr)); /* 304 */ - VOID * (*tcl_GetThreadData) _ANSI_ARGS_((Tcl_ThreadDataKey * keyPtr, int size)); /* 305 */ - Tcl_Obj * (*tcl_GetVar2Ex) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags)); /* 306 */ - ClientData (*tcl_InitNotifier) _ANSI_ARGS_((void)); /* 307 */ - void (*tcl_MutexLock) _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); /* 308 */ - void (*tcl_MutexUnlock) _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); /* 309 */ - void (*tcl_ConditionNotify) _ANSI_ARGS_((Tcl_Condition * condPtr)); /* 310 */ - void (*tcl_ConditionWait) _ANSI_ARGS_((Tcl_Condition * condPtr, Tcl_Mutex * mutexPtr, Tcl_Time * timePtr)); /* 311 */ - int (*tcl_NumUtfChars) _ANSI_ARGS_((CONST char * src, int len)); /* 312 */ - int (*tcl_ReadChars) _ANSI_ARGS_((Tcl_Channel channel, Tcl_Obj * objPtr, int charsToRead, int appendFlag)); /* 313 */ - void (*tcl_RestoreResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_SavedResult * statePtr)); /* 314 */ - void (*tcl_SaveResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_SavedResult * statePtr)); /* 315 */ - int (*tcl_SetSystemEncoding) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name)); /* 316 */ - Tcl_Obj * (*tcl_SetVar2Ex) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * part1, CONST char * part2, Tcl_Obj * newValuePtr, int flags)); /* 317 */ - void (*tcl_ThreadAlert) _ANSI_ARGS_((Tcl_ThreadId threadId)); /* 318 */ - void (*tcl_ThreadQueueEvent) _ANSI_ARGS_((Tcl_ThreadId threadId, Tcl_Event* evPtr, Tcl_QueuePosition position)); /* 319 */ - Tcl_UniChar (*tcl_UniCharAtIndex) _ANSI_ARGS_((CONST char * src, int index)); /* 320 */ - Tcl_UniChar (*tcl_UniCharToLower) _ANSI_ARGS_((int ch)); /* 321 */ - Tcl_UniChar (*tcl_UniCharToTitle) _ANSI_ARGS_((int ch)); /* 322 */ - Tcl_UniChar (*tcl_UniCharToUpper) _ANSI_ARGS_((int ch)); /* 323 */ - int (*tcl_UniCharToUtf) _ANSI_ARGS_((int ch, char * buf)); /* 324 */ - CONST84_RETURN char * (*tcl_UtfAtIndex) _ANSI_ARGS_((CONST char * src, int index)); /* 325 */ - int (*tcl_UtfCharComplete) _ANSI_ARGS_((CONST char * src, int len)); /* 326 */ - int (*tcl_UtfBackslash) _ANSI_ARGS_((CONST char * src, int * readPtr, char * dst)); /* 327 */ - CONST84_RETURN char * (*tcl_UtfFindFirst) _ANSI_ARGS_((CONST char * src, int ch)); /* 328 */ - CONST84_RETURN char * (*tcl_UtfFindLast) _ANSI_ARGS_((CONST char * src, int ch)); /* 329 */ - CONST84_RETURN char * (*tcl_UtfNext) _ANSI_ARGS_((CONST char * src)); /* 330 */ - CONST84_RETURN char * (*tcl_UtfPrev) _ANSI_ARGS_((CONST char * src, CONST char * start)); /* 331 */ - int (*tcl_UtfToExternal) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Encoding encoding, CONST char * src, int srcLen, int flags, Tcl_EncodingState * statePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * dstCharsPtr)); /* 332 */ - char * (*tcl_UtfToExternalDString) _ANSI_ARGS_((Tcl_Encoding encoding, CONST char * src, int srcLen, Tcl_DString * dsPtr)); /* 333 */ - int (*tcl_UtfToLower) _ANSI_ARGS_((char * src)); /* 334 */ - int (*tcl_UtfToTitle) _ANSI_ARGS_((char * src)); /* 335 */ - int (*tcl_UtfToUniChar) _ANSI_ARGS_((CONST char * src, Tcl_UniChar * chPtr)); /* 336 */ - int (*tcl_UtfToUpper) _ANSI_ARGS_((char * src)); /* 337 */ - int (*tcl_WriteChars) _ANSI_ARGS_((Tcl_Channel chan, CONST char * src, int srcLen)); /* 338 */ - int (*tcl_WriteObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj * objPtr)); /* 339 */ - char * (*tcl_GetString) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 340 */ - CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) _ANSI_ARGS_((void)); /* 341 */ - void (*tcl_SetDefaultEncodingDir) _ANSI_ARGS_((CONST char * path)); /* 342 */ - void (*tcl_AlertNotifier) _ANSI_ARGS_((ClientData clientData)); /* 343 */ - void (*tcl_ServiceModeHook) _ANSI_ARGS_((int mode)); /* 344 */ - int (*tcl_UniCharIsAlnum) _ANSI_ARGS_((int ch)); /* 345 */ - int (*tcl_UniCharIsAlpha) _ANSI_ARGS_((int ch)); /* 346 */ - int (*tcl_UniCharIsDigit) _ANSI_ARGS_((int ch)); /* 347 */ - int (*tcl_UniCharIsLower) _ANSI_ARGS_((int ch)); /* 348 */ - int (*tcl_UniCharIsSpace) _ANSI_ARGS_((int ch)); /* 349 */ - int (*tcl_UniCharIsUpper) _ANSI_ARGS_((int ch)); /* 350 */ - int (*tcl_UniCharIsWordChar) _ANSI_ARGS_((int ch)); /* 351 */ - int (*tcl_UniCharLen) _ANSI_ARGS_((CONST Tcl_UniChar * str)); /* 352 */ - int (*tcl_UniCharNcmp) _ANSI_ARGS_((CONST Tcl_UniChar * cs, CONST Tcl_UniChar * ct, unsigned long n)); /* 353 */ - char * (*tcl_UniCharToUtfDString) _ANSI_ARGS_((CONST Tcl_UniChar * string, int numChars, Tcl_DString * dsPtr)); /* 354 */ - Tcl_UniChar * (*tcl_UtfToUniCharDString) _ANSI_ARGS_((CONST char * string, int length, Tcl_DString * dsPtr)); /* 355 */ - Tcl_RegExp (*tcl_GetRegExpFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * patObj, int flags)); /* 356 */ - Tcl_Obj * (*tcl_EvalTokens) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Token * tokenPtr, int count)); /* 357 */ - void (*tcl_FreeParse) _ANSI_ARGS_((Tcl_Parse * parsePtr)); /* 358 */ - void (*tcl_LogCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * script, CONST char * command, int length)); /* 359 */ - int (*tcl_ParseBraces) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * string, int numBytes, Tcl_Parse * parsePtr, int append, CONST84 char ** termPtr)); /* 360 */ - int (*tcl_ParseCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * string, int numBytes, int nested, Tcl_Parse * parsePtr)); /* 361 */ - int (*tcl_ParseExpr) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * string, int numBytes, Tcl_Parse * parsePtr)); /* 362 */ - int (*tcl_ParseQuotedString) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * string, int numBytes, Tcl_Parse * parsePtr, int append, CONST84 char ** termPtr)); /* 363 */ - int (*tcl_ParseVarName) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * string, int numBytes, Tcl_Parse * parsePtr, int append)); /* 364 */ - char * (*tcl_GetCwd) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * cwdPtr)); /* 365 */ - int (*tcl_Chdir) _ANSI_ARGS_((CONST char * dirName)); /* 366 */ - int (*tcl_Access) _ANSI_ARGS_((CONST char * path, int mode)); /* 367 */ - int (*tcl_Stat) _ANSI_ARGS_((CONST char * path, struct stat * bufPtr)); /* 368 */ - int (*tcl_UtfNcmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, unsigned long n)); /* 369 */ - int (*tcl_UtfNcasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, unsigned long n)); /* 370 */ - int (*tcl_StringCaseMatch) _ANSI_ARGS_((CONST char * str, CONST char * pattern, int nocase)); /* 371 */ - int (*tcl_UniCharIsControl) _ANSI_ARGS_((int ch)); /* 372 */ - int (*tcl_UniCharIsGraph) _ANSI_ARGS_((int ch)); /* 373 */ - int (*tcl_UniCharIsPrint) _ANSI_ARGS_((int ch)); /* 374 */ - int (*tcl_UniCharIsPunct) _ANSI_ARGS_((int ch)); /* 375 */ - int (*tcl_RegExpExecObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp regexp, Tcl_Obj * objPtr, int offset, int nmatches, int flags)); /* 376 */ - void (*tcl_RegExpGetInfo) _ANSI_ARGS_((Tcl_RegExp regexp, Tcl_RegExpInfo * infoPtr)); /* 377 */ - Tcl_Obj * (*tcl_NewUnicodeObj) _ANSI_ARGS_((CONST Tcl_UniChar * unicode, int numChars)); /* 378 */ - void (*tcl_SetUnicodeObj) _ANSI_ARGS_((Tcl_Obj * objPtr, CONST Tcl_UniChar * unicode, int numChars)); /* 379 */ - int (*tcl_GetCharLength) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 380 */ - Tcl_UniChar (*tcl_GetUniChar) _ANSI_ARGS_((Tcl_Obj * objPtr, int index)); /* 381 */ - Tcl_UniChar * (*tcl_GetUnicode) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 382 */ - Tcl_Obj * (*tcl_GetRange) _ANSI_ARGS_((Tcl_Obj * objPtr, int first, int last)); /* 383 */ - void (*tcl_AppendUnicodeToObj) _ANSI_ARGS_((Tcl_Obj * objPtr, CONST Tcl_UniChar * unicode, int length)); /* 384 */ - int (*tcl_RegExpMatchObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * stringObj, Tcl_Obj * patternObj)); /* 385 */ - void (*tcl_SetNotifier) _ANSI_ARGS_((Tcl_NotifierProcs * notifierProcPtr)); /* 386 */ - Tcl_Mutex * (*tcl_GetAllocMutex) _ANSI_ARGS_((void)); /* 387 */ - int (*tcl_GetChannelNames) _ANSI_ARGS_((Tcl_Interp * interp)); /* 388 */ - int (*tcl_GetChannelNamesEx) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * pattern)); /* 389 */ - int (*tcl_ProcObjCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 390 */ - void (*tcl_ConditionFinalize) _ANSI_ARGS_((Tcl_Condition * condPtr)); /* 391 */ - void (*tcl_MutexFinalize) _ANSI_ARGS_((Tcl_Mutex * mutex)); /* 392 */ - int (*tcl_CreateThread) _ANSI_ARGS_((Tcl_ThreadId * idPtr, Tcl_ThreadCreateProc proc, ClientData clientData, int stackSize, int flags)); /* 393 */ - int (*tcl_ReadRaw) _ANSI_ARGS_((Tcl_Channel chan, char * dst, int bytesToRead)); /* 394 */ - int (*tcl_WriteRaw) _ANSI_ARGS_((Tcl_Channel chan, CONST char * src, int srcLen)); /* 395 */ - Tcl_Channel (*tcl_GetTopChannel) _ANSI_ARGS_((Tcl_Channel chan)); /* 396 */ - int (*tcl_ChannelBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 397 */ - CONST84_RETURN char * (*tcl_ChannelName) _ANSI_ARGS_((Tcl_ChannelType * chanTypePtr)); /* 398 */ - Tcl_ChannelTypeVersion (*tcl_ChannelVersion) _ANSI_ARGS_((Tcl_ChannelType * chanTypePtr)); /* 399 */ - Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) _ANSI_ARGS_((Tcl_ChannelType * chanTypePtr)); /* 400 */ - Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) _ANSI_ARGS_((Tcl_ChannelType * chanTypePtr)); /* 401 */ - Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) _ANSI_ARGS_((Tcl_ChannelType * chanTypePtr)); /* 402 */ - Tcl_DriverInputProc * (*tcl_ChannelInputProc) _ANSI_ARGS_((Tcl_ChannelType * chanTypePtr)); /* 403 */ - Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) _ANSI_ARGS_((Tcl_ChannelType * chanTypePtr)); /* 404 */ - Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) _ANSI_ARGS_((Tcl_ChannelType * chanTypePtr)); /* 405 */ - Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) _ANSI_ARGS_((Tcl_ChannelType * chanTypePtr)); /* 406 */ - Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) _ANSI_ARGS_((Tcl_ChannelType * chanTypePtr)); /* 407 */ - Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) _ANSI_ARGS_((Tcl_ChannelType * chanTypePtr)); /* 408 */ - Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) _ANSI_ARGS_((Tcl_ChannelType * chanTypePtr)); /* 409 */ - Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) _ANSI_ARGS_((Tcl_ChannelType * chanTypePtr)); /* 410 */ - Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) _ANSI_ARGS_((Tcl_ChannelType * chanTypePtr)); /* 411 */ - int (*tcl_JoinThread) _ANSI_ARGS_((Tcl_ThreadId threadId, int* result)); /* 412 */ - int (*tcl_IsChannelShared) _ANSI_ARGS_((Tcl_Channel channel)); /* 413 */ - int (*tcl_IsChannelRegistered) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_Channel channel)); /* 414 */ - void (*tcl_CutChannel) _ANSI_ARGS_((Tcl_Channel channel)); /* 415 */ - void (*tcl_SpliceChannel) _ANSI_ARGS_((Tcl_Channel channel)); /* 416 */ - void (*tcl_ClearChannelHandlers) _ANSI_ARGS_((Tcl_Channel channel)); /* 417 */ - int (*tcl_IsChannelExisting) _ANSI_ARGS_((CONST char* channelName)); /* 418 */ - int (*tcl_UniCharNcasecmp) _ANSI_ARGS_((CONST Tcl_UniChar * cs, CONST Tcl_UniChar * ct, unsigned long n)); /* 419 */ - int (*tcl_UniCharCaseMatch) _ANSI_ARGS_((CONST Tcl_UniChar * ustr, CONST Tcl_UniChar * pattern, int nocase)); /* 420 */ - Tcl_HashEntry * (*tcl_FindHashEntry) _ANSI_ARGS_((Tcl_HashTable * tablePtr, CONST char * key)); /* 421 */ - Tcl_HashEntry * (*tcl_CreateHashEntry) _ANSI_ARGS_((Tcl_HashTable * tablePtr, CONST char * key, int * newPtr)); /* 422 */ - void (*tcl_InitCustomHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr, int keyType, Tcl_HashKeyType * typePtr)); /* 423 */ - void (*tcl_InitObjHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr)); /* 424 */ - ClientData (*tcl_CommandTraceInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varName, int flags, Tcl_CommandTraceProc * procPtr, ClientData prevClientData)); /* 425 */ - int (*tcl_TraceCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varName, int flags, Tcl_CommandTraceProc * proc, ClientData clientData)); /* 426 */ - void (*tcl_UntraceCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varName, int flags, Tcl_CommandTraceProc * proc, ClientData clientData)); /* 427 */ - char * (*tcl_AttemptAlloc) _ANSI_ARGS_((unsigned int size)); /* 428 */ - char * (*tcl_AttemptDbCkalloc) _ANSI_ARGS_((unsigned int size, CONST char * file, int line)); /* 429 */ - char * (*tcl_AttemptRealloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 430 */ - char * (*tcl_AttemptDbCkrealloc) _ANSI_ARGS_((char * ptr, unsigned int size, CONST char * file, int line)); /* 431 */ - int (*tcl_AttemptSetObjLength) _ANSI_ARGS_((Tcl_Obj * objPtr, int length)); /* 432 */ - Tcl_ThreadId (*tcl_GetChannelThread) _ANSI_ARGS_((Tcl_Channel channel)); /* 433 */ - Tcl_UniChar * (*tcl_GetUnicodeFromObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int * lengthPtr)); /* 434 */ - int (*tcl_GetMathFuncInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, int * numArgsPtr, Tcl_ValueType ** argTypesPtr, Tcl_MathProc ** procPtr, ClientData * clientDataPtr)); /* 435 */ - Tcl_Obj * (*tcl_ListMathFuncs) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * pattern)); /* 436 */ - Tcl_Obj * (*tcl_SubstObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int flags)); /* 437 */ - int (*tcl_DetachChannel) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_Channel channel)); /* 438 */ - int (*tcl_IsStandardChannel) _ANSI_ARGS_((Tcl_Channel channel)); /* 439 */ - int (*tcl_FSCopyFile) _ANSI_ARGS_((Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr)); /* 440 */ - int (*tcl_FSCopyDirectory) _ANSI_ARGS_((Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr, Tcl_Obj ** errorPtr)); /* 441 */ - int (*tcl_FSCreateDirectory) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 442 */ - int (*tcl_FSDeleteFile) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 443 */ - int (*tcl_FSLoadFile) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * pathPtr, CONST char * sym1, CONST char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr, Tcl_LoadHandle * handlePtr, Tcl_FSUnloadFileProc ** unloadProcPtr)); /* 444 */ - int (*tcl_FSMatchInDirectory) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * result, Tcl_Obj * pathPtr, CONST char * pattern, Tcl_GlobTypeData * types)); /* 445 */ - Tcl_Obj * (*tcl_FSLink) _ANSI_ARGS_((Tcl_Obj * pathPtr, Tcl_Obj * toPtr, int linkAction)); /* 446 */ - int (*tcl_FSRemoveDirectory) _ANSI_ARGS_((Tcl_Obj * pathPtr, int recursive, Tcl_Obj ** errorPtr)); /* 447 */ - int (*tcl_FSRenameFile) _ANSI_ARGS_((Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr)); /* 448 */ - int (*tcl_FSLstat) _ANSI_ARGS_((Tcl_Obj * pathPtr, Tcl_StatBuf * buf)); /* 449 */ - int (*tcl_FSUtime) _ANSI_ARGS_((Tcl_Obj * pathPtr, struct utimbuf * tval)); /* 450 */ - int (*tcl_FSFileAttrsGet) _ANSI_ARGS_((Tcl_Interp * interp, int index, Tcl_Obj * pathPtr, Tcl_Obj ** objPtrRef)); /* 451 */ - int (*tcl_FSFileAttrsSet) _ANSI_ARGS_((Tcl_Interp * interp, int index, Tcl_Obj * pathPtr, Tcl_Obj * objPtr)); /* 452 */ - CONST char ** (*tcl_FSFileAttrStrings) _ANSI_ARGS_((Tcl_Obj * pathPtr, Tcl_Obj ** objPtrRef)); /* 453 */ - int (*tcl_FSStat) _ANSI_ARGS_((Tcl_Obj * pathPtr, Tcl_StatBuf * buf)); /* 454 */ - int (*tcl_FSAccess) _ANSI_ARGS_((Tcl_Obj * pathPtr, int mode)); /* 455 */ - Tcl_Channel (*tcl_FSOpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * pathPtr, CONST char * modeString, int permissions)); /* 456 */ - Tcl_Obj* (*tcl_FSGetCwd) _ANSI_ARGS_((Tcl_Interp * interp)); /* 457 */ - int (*tcl_FSChdir) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 458 */ - int (*tcl_FSConvertToPathType) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * pathPtr)); /* 459 */ - Tcl_Obj* (*tcl_FSJoinPath) _ANSI_ARGS_((Tcl_Obj * listObj, int elements)); /* 460 */ - Tcl_Obj* (*tcl_FSSplitPath) _ANSI_ARGS_((Tcl_Obj* pathPtr, int * lenPtr)); /* 461 */ - int (*tcl_FSEqualPaths) _ANSI_ARGS_((Tcl_Obj* firstPtr, Tcl_Obj* secondPtr)); /* 462 */ - Tcl_Obj* (*tcl_FSGetNormalizedPath) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj* pathObjPtr)); /* 463 */ - Tcl_Obj* (*tcl_FSJoinToPath) _ANSI_ARGS_((Tcl_Obj * basePtr, int objc, Tcl_Obj *CONST objv[])); /* 464 */ - ClientData (*tcl_FSGetInternalRep) _ANSI_ARGS_((Tcl_Obj* pathObjPtr, Tcl_Filesystem * fsPtr)); /* 465 */ - Tcl_Obj* (*tcl_FSGetTranslatedPath) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj* pathPtr)); /* 466 */ - int (*tcl_FSEvalFile) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * fileName)); /* 467 */ - Tcl_Obj* (*tcl_FSNewNativePath) _ANSI_ARGS_((Tcl_Filesystem* fromFilesystem, ClientData clientData)); /* 468 */ - CONST char* (*tcl_FSGetNativePath) _ANSI_ARGS_((Tcl_Obj* pathObjPtr)); /* 469 */ - Tcl_Obj* (*tcl_FSFileSystemInfo) _ANSI_ARGS_((Tcl_Obj* pathObjPtr)); /* 470 */ - Tcl_Obj* (*tcl_FSPathSeparator) _ANSI_ARGS_((Tcl_Obj* pathObjPtr)); /* 471 */ - Tcl_Obj* (*tcl_FSListVolumes) _ANSI_ARGS_((void)); /* 472 */ - int (*tcl_FSRegister) _ANSI_ARGS_((ClientData clientData, Tcl_Filesystem * fsPtr)); /* 473 */ - int (*tcl_FSUnregister) _ANSI_ARGS_((Tcl_Filesystem * fsPtr)); /* 474 */ - ClientData (*tcl_FSData) _ANSI_ARGS_((Tcl_Filesystem * fsPtr)); /* 475 */ - CONST char* (*tcl_FSGetTranslatedStringPath) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj* pathPtr)); /* 476 */ - Tcl_Filesystem* (*tcl_FSGetFileSystemForPath) _ANSI_ARGS_((Tcl_Obj* pathObjPtr)); /* 477 */ - Tcl_PathType (*tcl_FSGetPathType) _ANSI_ARGS_((Tcl_Obj * pathObjPtr)); /* 478 */ - int (*tcl_OutputBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 479 */ - void (*tcl_FSMountsChanged) _ANSI_ARGS_((Tcl_Filesystem * fsPtr)); /* 480 */ - int (*tcl_EvalTokensStandard) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Token * tokenPtr, int count)); /* 481 */ - void (*tcl_GetTime) _ANSI_ARGS_((Tcl_Time* timeBuf)); /* 482 */ - Tcl_Trace (*tcl_CreateObjTrace) _ANSI_ARGS_((Tcl_Interp* interp, int level, int flags, Tcl_CmdObjTraceProc* objProc, ClientData clientData, Tcl_CmdObjTraceDeleteProc* delProc)); /* 483 */ - int (*tcl_GetCommandInfoFromToken) _ANSI_ARGS_((Tcl_Command token, Tcl_CmdInfo* infoPtr)); /* 484 */ - int (*tcl_SetCommandInfoFromToken) _ANSI_ARGS_((Tcl_Command token, CONST Tcl_CmdInfo* infoPtr)); /* 485 */ - Tcl_Obj * (*tcl_DbNewWideIntObj) _ANSI_ARGS_((Tcl_WideInt wideValue, CONST char * file, int line)); /* 486 */ - int (*tcl_GetWideIntFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_WideInt * widePtr)); /* 487 */ - Tcl_Obj * (*tcl_NewWideIntObj) _ANSI_ARGS_((Tcl_WideInt wideValue)); /* 488 */ - void (*tcl_SetWideIntObj) _ANSI_ARGS_((Tcl_Obj * objPtr, Tcl_WideInt wideValue)); /* 489 */ - Tcl_StatBuf * (*tcl_AllocStatBuf) _ANSI_ARGS_((void)); /* 490 */ - Tcl_WideInt (*tcl_Seek) _ANSI_ARGS_((Tcl_Channel chan, Tcl_WideInt offset, int mode)); /* 491 */ - Tcl_WideInt (*tcl_Tell) _ANSI_ARGS_((Tcl_Channel chan)); /* 492 */ - Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) _ANSI_ARGS_((Tcl_ChannelType * chanTypePtr)); /* 493 */ -} TclStubs; - -#ifdef __cplusplus -extern "C" { -#endif -extern TclStubs *tclStubsPtr; -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifndef Tcl_PkgProvideEx -#define Tcl_PkgProvideEx \ - (tclStubsPtr->tcl_PkgProvideEx) /* 0 */ -#endif -#ifndef Tcl_PkgRequireEx -#define Tcl_PkgRequireEx \ - (tclStubsPtr->tcl_PkgRequireEx) /* 1 */ -#endif -#ifndef Tcl_Panic -#define Tcl_Panic \ - (tclStubsPtr->tcl_Panic) /* 2 */ -#endif -#ifndef Tcl_Alloc -#define Tcl_Alloc \ - (tclStubsPtr->tcl_Alloc) /* 3 */ -#endif -#ifndef Tcl_Free -#define Tcl_Free \ - (tclStubsPtr->tcl_Free) /* 4 */ -#endif -#ifndef Tcl_Realloc -#define Tcl_Realloc \ - (tclStubsPtr->tcl_Realloc) /* 5 */ -#endif -#ifndef Tcl_DbCkalloc -#define Tcl_DbCkalloc \ - (tclStubsPtr->tcl_DbCkalloc) /* 6 */ -#endif -#ifndef Tcl_DbCkfree -#define Tcl_DbCkfree \ - (tclStubsPtr->tcl_DbCkfree) /* 7 */ -#endif -#ifndef Tcl_DbCkrealloc -#define Tcl_DbCkrealloc \ - (tclStubsPtr->tcl_DbCkrealloc) /* 8 */ -#endif -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ -#ifndef Tcl_CreateFileHandler -#define Tcl_CreateFileHandler \ - (tclStubsPtr->tcl_CreateFileHandler) /* 9 */ -#endif -#endif /* UNIX */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ -#ifndef Tcl_DeleteFileHandler -#define Tcl_DeleteFileHandler \ - (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */ -#endif -#endif /* UNIX */ -#ifndef Tcl_SetTimer -#define Tcl_SetTimer \ - (tclStubsPtr->tcl_SetTimer) /* 11 */ -#endif -#ifndef Tcl_Sleep -#define Tcl_Sleep \ - (tclStubsPtr->tcl_Sleep) /* 12 */ -#endif -#ifndef Tcl_WaitForEvent -#define Tcl_WaitForEvent \ - (tclStubsPtr->tcl_WaitForEvent) /* 13 */ -#endif -#ifndef Tcl_AppendAllObjTypes -#define Tcl_AppendAllObjTypes \ - (tclStubsPtr->tcl_AppendAllObjTypes) /* 14 */ -#endif -#ifndef Tcl_AppendStringsToObj -#define Tcl_AppendStringsToObj \ - (tclStubsPtr->tcl_AppendStringsToObj) /* 15 */ -#endif -#ifndef Tcl_AppendToObj -#define Tcl_AppendToObj \ - (tclStubsPtr->tcl_AppendToObj) /* 16 */ -#endif -#ifndef Tcl_ConcatObj -#define Tcl_ConcatObj \ - (tclStubsPtr->tcl_ConcatObj) /* 17 */ -#endif -#ifndef Tcl_ConvertToType -#define Tcl_ConvertToType \ - (tclStubsPtr->tcl_ConvertToType) /* 18 */ -#endif -#ifndef Tcl_DbDecrRefCount -#define Tcl_DbDecrRefCount \ - (tclStubsPtr->tcl_DbDecrRefCount) /* 19 */ -#endif -#ifndef Tcl_DbIncrRefCount -#define Tcl_DbIncrRefCount \ - (tclStubsPtr->tcl_DbIncrRefCount) /* 20 */ -#endif -#ifndef Tcl_DbIsShared -#define Tcl_DbIsShared \ - (tclStubsPtr->tcl_DbIsShared) /* 21 */ -#endif -#ifndef Tcl_DbNewBooleanObj -#define Tcl_DbNewBooleanObj \ - (tclStubsPtr->tcl_DbNewBooleanObj) /* 22 */ -#endif -#ifndef Tcl_DbNewByteArrayObj -#define Tcl_DbNewByteArrayObj \ - (tclStubsPtr->tcl_DbNewByteArrayObj) /* 23 */ -#endif -#ifndef Tcl_DbNewDoubleObj -#define Tcl_DbNewDoubleObj \ - (tclStubsPtr->tcl_DbNewDoubleObj) /* 24 */ -#endif -#ifndef Tcl_DbNewListObj -#define Tcl_DbNewListObj \ - (tclStubsPtr->tcl_DbNewListObj) /* 25 */ -#endif -#ifndef Tcl_DbNewLongObj -#define Tcl_DbNewLongObj \ - (tclStubsPtr->tcl_DbNewLongObj) /* 26 */ -#endif -#ifndef Tcl_DbNewObj -#define Tcl_DbNewObj \ - (tclStubsPtr->tcl_DbNewObj) /* 27 */ -#endif -#ifndef Tcl_DbNewStringObj -#define Tcl_DbNewStringObj \ - (tclStubsPtr->tcl_DbNewStringObj) /* 28 */ -#endif -#ifndef Tcl_DuplicateObj -#define Tcl_DuplicateObj \ - (tclStubsPtr->tcl_DuplicateObj) /* 29 */ -#endif -#ifndef TclFreeObj -#define TclFreeObj \ - (tclStubsPtr->tclFreeObj) /* 30 */ -#endif -#ifndef Tcl_GetBoolean -#define Tcl_GetBoolean \ - (tclStubsPtr->tcl_GetBoolean) /* 31 */ -#endif -#ifndef Tcl_GetBooleanFromObj -#define Tcl_GetBooleanFromObj \ - (tclStubsPtr->tcl_GetBooleanFromObj) /* 32 */ -#endif -#ifndef Tcl_GetByteArrayFromObj -#define Tcl_GetByteArrayFromObj \ - (tclStubsPtr->tcl_GetByteArrayFromObj) /* 33 */ -#endif -#ifndef Tcl_GetDouble -#define Tcl_GetDouble \ - (tclStubsPtr->tcl_GetDouble) /* 34 */ -#endif -#ifndef Tcl_GetDoubleFromObj -#define Tcl_GetDoubleFromObj \ - (tclStubsPtr->tcl_GetDoubleFromObj) /* 35 */ -#endif -#ifndef Tcl_GetIndexFromObj -#define Tcl_GetIndexFromObj \ - (tclStubsPtr->tcl_GetIndexFromObj) /* 36 */ -#endif -#ifndef Tcl_GetInt -#define Tcl_GetInt \ - (tclStubsPtr->tcl_GetInt) /* 37 */ -#endif -#ifndef Tcl_GetIntFromObj -#define Tcl_GetIntFromObj \ - (tclStubsPtr->tcl_GetIntFromObj) /* 38 */ -#endif -#ifndef Tcl_GetLongFromObj -#define Tcl_GetLongFromObj \ - (tclStubsPtr->tcl_GetLongFromObj) /* 39 */ -#endif -#ifndef Tcl_GetObjType -#define Tcl_GetObjType \ - (tclStubsPtr->tcl_GetObjType) /* 40 */ -#endif -#ifndef Tcl_GetStringFromObj -#define Tcl_GetStringFromObj \ - (tclStubsPtr->tcl_GetStringFromObj) /* 41 */ -#endif -#ifndef Tcl_InvalidateStringRep -#define Tcl_InvalidateStringRep \ - (tclStubsPtr->tcl_InvalidateStringRep) /* 42 */ -#endif -#ifndef Tcl_ListObjAppendList -#define Tcl_ListObjAppendList \ - (tclStubsPtr->tcl_ListObjAppendList) /* 43 */ -#endif -#ifndef Tcl_ListObjAppendElement -#define Tcl_ListObjAppendElement \ - (tclStubsPtr->tcl_ListObjAppendElement) /* 44 */ -#endif -#ifndef Tcl_ListObjGetElements -#define Tcl_ListObjGetElements \ - (tclStubsPtr->tcl_ListObjGetElements) /* 45 */ -#endif -#ifndef Tcl_ListObjIndex -#define Tcl_ListObjIndex \ - (tclStubsPtr->tcl_ListObjIndex) /* 46 */ -#endif -#ifndef Tcl_ListObjLength -#define Tcl_ListObjLength \ - (tclStubsPtr->tcl_ListObjLength) /* 47 */ -#endif -#ifndef Tcl_ListObjReplace -#define Tcl_ListObjReplace \ - (tclStubsPtr->tcl_ListObjReplace) /* 48 */ -#endif -#ifndef Tcl_NewBooleanObj -#define Tcl_NewBooleanObj \ - (tclStubsPtr->tcl_NewBooleanObj) /* 49 */ -#endif -#ifndef Tcl_NewByteArrayObj -#define Tcl_NewByteArrayObj \ - (tclStubsPtr->tcl_NewByteArrayObj) /* 50 */ -#endif -#ifndef Tcl_NewDoubleObj -#define Tcl_NewDoubleObj \ - (tclStubsPtr->tcl_NewDoubleObj) /* 51 */ -#endif -#ifndef Tcl_NewIntObj -#define Tcl_NewIntObj \ - (tclStubsPtr->tcl_NewIntObj) /* 52 */ -#endif -#ifndef Tcl_NewListObj -#define Tcl_NewListObj \ - (tclStubsPtr->tcl_NewListObj) /* 53 */ -#endif -#ifndef Tcl_NewLongObj -#define Tcl_NewLongObj \ - (tclStubsPtr->tcl_NewLongObj) /* 54 */ -#endif -#ifndef Tcl_NewObj -#define Tcl_NewObj \ - (tclStubsPtr->tcl_NewObj) /* 55 */ -#endif -#ifndef Tcl_NewStringObj -#define Tcl_NewStringObj \ - (tclStubsPtr->tcl_NewStringObj) /* 56 */ -#endif -#ifndef Tcl_SetBooleanObj -#define Tcl_SetBooleanObj \ - (tclStubsPtr->tcl_SetBooleanObj) /* 57 */ -#endif -#ifndef Tcl_SetByteArrayLength -#define Tcl_SetByteArrayLength \ - (tclStubsPtr->tcl_SetByteArrayLength) /* 58 */ -#endif -#ifndef Tcl_SetByteArrayObj -#define Tcl_SetByteArrayObj \ - (tclStubsPtr->tcl_SetByteArrayObj) /* 59 */ -#endif -#ifndef Tcl_SetDoubleObj -#define Tcl_SetDoubleObj \ - (tclStubsPtr->tcl_SetDoubleObj) /* 60 */ -#endif -#ifndef Tcl_SetIntObj -#define Tcl_SetIntObj \ - (tclStubsPtr->tcl_SetIntObj) /* 61 */ -#endif -#ifndef Tcl_SetListObj -#define Tcl_SetListObj \ - (tclStubsPtr->tcl_SetListObj) /* 62 */ -#endif -#ifndef Tcl_SetLongObj -#define Tcl_SetLongObj \ - (tclStubsPtr->tcl_SetLongObj) /* 63 */ -#endif -#ifndef Tcl_SetObjLength -#define Tcl_SetObjLength \ - (tclStubsPtr->tcl_SetObjLength) /* 64 */ -#endif -#ifndef Tcl_SetStringObj -#define Tcl_SetStringObj \ - (tclStubsPtr->tcl_SetStringObj) /* 65 */ -#endif -#ifndef Tcl_AddErrorInfo -#define Tcl_AddErrorInfo \ - (tclStubsPtr->tcl_AddErrorInfo) /* 66 */ -#endif -#ifndef Tcl_AddObjErrorInfo -#define Tcl_AddObjErrorInfo \ - (tclStubsPtr->tcl_AddObjErrorInfo) /* 67 */ -#endif -#ifndef Tcl_AllowExceptions -#define Tcl_AllowExceptions \ - (tclStubsPtr->tcl_AllowExceptions) /* 68 */ -#endif -#ifndef Tcl_AppendElement -#define Tcl_AppendElement \ - (tclStubsPtr->tcl_AppendElement) /* 69 */ -#endif -#ifndef Tcl_AppendResult -#define Tcl_AppendResult \ - (tclStubsPtr->tcl_AppendResult) /* 70 */ -#endif -#ifndef Tcl_AsyncCreate -#define Tcl_AsyncCreate \ - (tclStubsPtr->tcl_AsyncCreate) /* 71 */ -#endif -#ifndef Tcl_AsyncDelete -#define Tcl_AsyncDelete \ - (tclStubsPtr->tcl_AsyncDelete) /* 72 */ -#endif -#ifndef Tcl_AsyncInvoke -#define Tcl_AsyncInvoke \ - (tclStubsPtr->tcl_AsyncInvoke) /* 73 */ -#endif -#ifndef Tcl_AsyncMark -#define Tcl_AsyncMark \ - (tclStubsPtr->tcl_AsyncMark) /* 74 */ -#endif -#ifndef Tcl_AsyncReady -#define Tcl_AsyncReady \ - (tclStubsPtr->tcl_AsyncReady) /* 75 */ -#endif -#ifndef Tcl_BackgroundError -#define Tcl_BackgroundError \ - (tclStubsPtr->tcl_BackgroundError) /* 76 */ -#endif -#ifndef Tcl_Backslash -#define Tcl_Backslash \ - (tclStubsPtr->tcl_Backslash) /* 77 */ -#endif -#ifndef Tcl_BadChannelOption -#define Tcl_BadChannelOption \ - (tclStubsPtr->tcl_BadChannelOption) /* 78 */ -#endif -#ifndef Tcl_CallWhenDeleted -#define Tcl_CallWhenDeleted \ - (tclStubsPtr->tcl_CallWhenDeleted) /* 79 */ -#endif -#ifndef Tcl_CancelIdleCall -#define Tcl_CancelIdleCall \ - (tclStubsPtr->tcl_CancelIdleCall) /* 80 */ -#endif -#ifndef Tcl_Close -#define Tcl_Close \ - (tclStubsPtr->tcl_Close) /* 81 */ -#endif -#ifndef Tcl_CommandComplete -#define Tcl_CommandComplete \ - (tclStubsPtr->tcl_CommandComplete) /* 82 */ -#endif -#ifndef Tcl_Concat -#define Tcl_Concat \ - (tclStubsPtr->tcl_Concat) /* 83 */ -#endif -#ifndef Tcl_ConvertElement -#define Tcl_ConvertElement \ - (tclStubsPtr->tcl_ConvertElement) /* 84 */ -#endif -#ifndef Tcl_ConvertCountedElement -#define Tcl_ConvertCountedElement \ - (tclStubsPtr->tcl_ConvertCountedElement) /* 85 */ -#endif -#ifndef Tcl_CreateAlias -#define Tcl_CreateAlias \ - (tclStubsPtr->tcl_CreateAlias) /* 86 */ -#endif -#ifndef Tcl_CreateAliasObj -#define Tcl_CreateAliasObj \ - (tclStubsPtr->tcl_CreateAliasObj) /* 87 */ -#endif -#ifndef Tcl_CreateChannel -#define Tcl_CreateChannel \ - (tclStubsPtr->tcl_CreateChannel) /* 88 */ -#endif -#ifndef Tcl_CreateChannelHandler -#define Tcl_CreateChannelHandler \ - (tclStubsPtr->tcl_CreateChannelHandler) /* 89 */ -#endif -#ifndef Tcl_CreateCloseHandler -#define Tcl_CreateCloseHandler \ - (tclStubsPtr->tcl_CreateCloseHandler) /* 90 */ -#endif -#ifndef Tcl_CreateCommand -#define Tcl_CreateCommand \ - (tclStubsPtr->tcl_CreateCommand) /* 91 */ -#endif -#ifndef Tcl_CreateEventSource -#define Tcl_CreateEventSource \ - (tclStubsPtr->tcl_CreateEventSource) /* 92 */ -#endif -#ifndef Tcl_CreateExitHandler -#define Tcl_CreateExitHandler \ - (tclStubsPtr->tcl_CreateExitHandler) /* 93 */ -#endif -#ifndef Tcl_CreateInterp -#define Tcl_CreateInterp \ - (tclStubsPtr->tcl_CreateInterp) /* 94 */ -#endif -#ifndef Tcl_CreateMathFunc -#define Tcl_CreateMathFunc \ - (tclStubsPtr->tcl_CreateMathFunc) /* 95 */ -#endif -#ifndef Tcl_CreateObjCommand -#define Tcl_CreateObjCommand \ - (tclStubsPtr->tcl_CreateObjCommand) /* 96 */ -#endif -#ifndef Tcl_CreateSlave -#define Tcl_CreateSlave \ - (tclStubsPtr->tcl_CreateSlave) /* 97 */ -#endif -#ifndef Tcl_CreateTimerHandler -#define Tcl_CreateTimerHandler \ - (tclStubsPtr->tcl_CreateTimerHandler) /* 98 */ -#endif -#ifndef Tcl_CreateTrace -#define Tcl_CreateTrace \ - (tclStubsPtr->tcl_CreateTrace) /* 99 */ -#endif -#ifndef Tcl_DeleteAssocData -#define Tcl_DeleteAssocData \ - (tclStubsPtr->tcl_DeleteAssocData) /* 100 */ -#endif -#ifndef Tcl_DeleteChannelHandler -#define Tcl_DeleteChannelHandler \ - (tclStubsPtr->tcl_DeleteChannelHandler) /* 101 */ -#endif -#ifndef Tcl_DeleteCloseHandler -#define Tcl_DeleteCloseHandler \ - (tclStubsPtr->tcl_DeleteCloseHandler) /* 102 */ -#endif -#ifndef Tcl_DeleteCommand -#define Tcl_DeleteCommand \ - (tclStubsPtr->tcl_DeleteCommand) /* 103 */ -#endif -#ifndef Tcl_DeleteCommandFromToken -#define Tcl_DeleteCommandFromToken \ - (tclStubsPtr->tcl_DeleteCommandFromToken) /* 104 */ -#endif -#ifndef Tcl_DeleteEvents -#define Tcl_DeleteEvents \ - (tclStubsPtr->tcl_DeleteEvents) /* 105 */ -#endif -#ifndef Tcl_DeleteEventSource -#define Tcl_DeleteEventSource \ - (tclStubsPtr->tcl_DeleteEventSource) /* 106 */ -#endif -#ifndef Tcl_DeleteExitHandler -#define Tcl_DeleteExitHandler \ - (tclStubsPtr->tcl_DeleteExitHandler) /* 107 */ -#endif -#ifndef Tcl_DeleteHashEntry -#define Tcl_DeleteHashEntry \ - (tclStubsPtr->tcl_DeleteHashEntry) /* 108 */ -#endif -#ifndef Tcl_DeleteHashTable -#define Tcl_DeleteHashTable \ - (tclStubsPtr->tcl_DeleteHashTable) /* 109 */ -#endif -#ifndef Tcl_DeleteInterp -#define Tcl_DeleteInterp \ - (tclStubsPtr->tcl_DeleteInterp) /* 110 */ -#endif -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ -#ifndef Tcl_DetachPids -#define Tcl_DetachPids \ - (tclStubsPtr->tcl_DetachPids) /* 111 */ -#endif -#endif /* UNIX */ -#ifdef __WIN32__ -#ifndef Tcl_DetachPids -#define Tcl_DetachPids \ - (tclStubsPtr->tcl_DetachPids) /* 111 */ -#endif -#endif /* __WIN32__ */ -#ifndef Tcl_DeleteTimerHandler -#define Tcl_DeleteTimerHandler \ - (tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */ -#endif -#ifndef Tcl_DeleteTrace -#define Tcl_DeleteTrace \ - (tclStubsPtr->tcl_DeleteTrace) /* 113 */ -#endif -#ifndef Tcl_DontCallWhenDeleted -#define Tcl_DontCallWhenDeleted \ - (tclStubsPtr->tcl_DontCallWhenDeleted) /* 114 */ -#endif -#ifndef Tcl_DoOneEvent -#define Tcl_DoOneEvent \ - (tclStubsPtr->tcl_DoOneEvent) /* 115 */ -#endif -#ifndef Tcl_DoWhenIdle -#define Tcl_DoWhenIdle \ - (tclStubsPtr->tcl_DoWhenIdle) /* 116 */ -#endif -#ifndef Tcl_DStringAppend -#define Tcl_DStringAppend \ - (tclStubsPtr->tcl_DStringAppend) /* 117 */ -#endif -#ifndef Tcl_DStringAppendElement -#define Tcl_DStringAppendElement \ - (tclStubsPtr->tcl_DStringAppendElement) /* 118 */ -#endif -#ifndef Tcl_DStringEndSublist -#define Tcl_DStringEndSublist \ - (tclStubsPtr->tcl_DStringEndSublist) /* 119 */ -#endif -#ifndef Tcl_DStringFree -#define Tcl_DStringFree \ - (tclStubsPtr->tcl_DStringFree) /* 120 */ -#endif -#ifndef Tcl_DStringGetResult -#define Tcl_DStringGetResult \ - (tclStubsPtr->tcl_DStringGetResult) /* 121 */ -#endif -#ifndef Tcl_DStringInit -#define Tcl_DStringInit \ - (tclStubsPtr->tcl_DStringInit) /* 122 */ -#endif -#ifndef Tcl_DStringResult -#define Tcl_DStringResult \ - (tclStubsPtr->tcl_DStringResult) /* 123 */ -#endif -#ifndef Tcl_DStringSetLength -#define Tcl_DStringSetLength \ - (tclStubsPtr->tcl_DStringSetLength) /* 124 */ -#endif -#ifndef Tcl_DStringStartSublist -#define Tcl_DStringStartSublist \ - (tclStubsPtr->tcl_DStringStartSublist) /* 125 */ -#endif -#ifndef Tcl_Eof -#define Tcl_Eof \ - (tclStubsPtr->tcl_Eof) /* 126 */ -#endif -#ifndef Tcl_ErrnoId -#define Tcl_ErrnoId \ - (tclStubsPtr->tcl_ErrnoId) /* 127 */ -#endif -#ifndef Tcl_ErrnoMsg -#define Tcl_ErrnoMsg \ - (tclStubsPtr->tcl_ErrnoMsg) /* 128 */ -#endif -#ifndef Tcl_Eval -#define Tcl_Eval \ - (tclStubsPtr->tcl_Eval) /* 129 */ -#endif -#ifndef Tcl_EvalFile -#define Tcl_EvalFile \ - (tclStubsPtr->tcl_EvalFile) /* 130 */ -#endif -#ifndef Tcl_EvalObj -#define Tcl_EvalObj \ - (tclStubsPtr->tcl_EvalObj) /* 131 */ -#endif -#ifndef Tcl_EventuallyFree -#define Tcl_EventuallyFree \ - (tclStubsPtr->tcl_EventuallyFree) /* 132 */ -#endif -#ifndef Tcl_Exit -#define Tcl_Exit \ - (tclStubsPtr->tcl_Exit) /* 133 */ -#endif -#ifndef Tcl_ExposeCommand -#define Tcl_ExposeCommand \ - (tclStubsPtr->tcl_ExposeCommand) /* 134 */ -#endif -#ifndef Tcl_ExprBoolean -#define Tcl_ExprBoolean \ - (tclStubsPtr->tcl_ExprBoolean) /* 135 */ -#endif -#ifndef Tcl_ExprBooleanObj -#define Tcl_ExprBooleanObj \ - (tclStubsPtr->tcl_ExprBooleanObj) /* 136 */ -#endif -#ifndef Tcl_ExprDouble -#define Tcl_ExprDouble \ - (tclStubsPtr->tcl_ExprDouble) /* 137 */ -#endif -#ifndef Tcl_ExprDoubleObj -#define Tcl_ExprDoubleObj \ - (tclStubsPtr->tcl_ExprDoubleObj) /* 138 */ -#endif -#ifndef Tcl_ExprLong -#define Tcl_ExprLong \ - (tclStubsPtr->tcl_ExprLong) /* 139 */ -#endif -#ifndef Tcl_ExprLongObj -#define Tcl_ExprLongObj \ - (tclStubsPtr->tcl_ExprLongObj) /* 140 */ -#endif -#ifndef Tcl_ExprObj -#define Tcl_ExprObj \ - (tclStubsPtr->tcl_ExprObj) /* 141 */ -#endif -#ifndef Tcl_ExprString -#define Tcl_ExprString \ - (tclStubsPtr->tcl_ExprString) /* 142 */ -#endif -#ifndef Tcl_Finalize -#define Tcl_Finalize \ - (tclStubsPtr->tcl_Finalize) /* 143 */ -#endif -#ifndef Tcl_FindExecutable -#define Tcl_FindExecutable \ - (tclStubsPtr->tcl_FindExecutable) /* 144 */ -#endif -#ifndef Tcl_FirstHashEntry -#define Tcl_FirstHashEntry \ - (tclStubsPtr->tcl_FirstHashEntry) /* 145 */ -#endif -#ifndef Tcl_Flush -#define Tcl_Flush \ - (tclStubsPtr->tcl_Flush) /* 146 */ -#endif -#ifndef Tcl_FreeResult -#define Tcl_FreeResult \ - (tclStubsPtr->tcl_FreeResult) /* 147 */ -#endif -#ifndef Tcl_GetAlias -#define Tcl_GetAlias \ - (tclStubsPtr->tcl_GetAlias) /* 148 */ -#endif -#ifndef Tcl_GetAliasObj -#define Tcl_GetAliasObj \ - (tclStubsPtr->tcl_GetAliasObj) /* 149 */ -#endif -#ifndef Tcl_GetAssocData -#define Tcl_GetAssocData \ - (tclStubsPtr->tcl_GetAssocData) /* 150 */ -#endif -#ifndef Tcl_GetChannel -#define Tcl_GetChannel \ - (tclStubsPtr->tcl_GetChannel) /* 151 */ -#endif -#ifndef Tcl_GetChannelBufferSize -#define Tcl_GetChannelBufferSize \ - (tclStubsPtr->tcl_GetChannelBufferSize) /* 152 */ -#endif -#ifndef Tcl_GetChannelHandle -#define Tcl_GetChannelHandle \ - (tclStubsPtr->tcl_GetChannelHandle) /* 153 */ -#endif -#ifndef Tcl_GetChannelInstanceData -#define Tcl_GetChannelInstanceData \ - (tclStubsPtr->tcl_GetChannelInstanceData) /* 154 */ -#endif -#ifndef Tcl_GetChannelMode -#define Tcl_GetChannelMode \ - (tclStubsPtr->tcl_GetChannelMode) /* 155 */ -#endif -#ifndef Tcl_GetChannelName -#define Tcl_GetChannelName \ - (tclStubsPtr->tcl_GetChannelName) /* 156 */ -#endif -#ifndef Tcl_GetChannelOption -#define Tcl_GetChannelOption \ - (tclStubsPtr->tcl_GetChannelOption) /* 157 */ -#endif -#ifndef Tcl_GetChannelType -#define Tcl_GetChannelType \ - (tclStubsPtr->tcl_GetChannelType) /* 158 */ -#endif -#ifndef Tcl_GetCommandInfo -#define Tcl_GetCommandInfo \ - (tclStubsPtr->tcl_GetCommandInfo) /* 159 */ -#endif -#ifndef Tcl_GetCommandName -#define Tcl_GetCommandName \ - (tclStubsPtr->tcl_GetCommandName) /* 160 */ -#endif -#ifndef Tcl_GetErrno -#define Tcl_GetErrno \ - (tclStubsPtr->tcl_GetErrno) /* 161 */ -#endif -#ifndef Tcl_GetHostName -#define Tcl_GetHostName \ - (tclStubsPtr->tcl_GetHostName) /* 162 */ -#endif -#ifndef Tcl_GetInterpPath -#define Tcl_GetInterpPath \ - (tclStubsPtr->tcl_GetInterpPath) /* 163 */ -#endif -#ifndef Tcl_GetMaster -#define Tcl_GetMaster \ - (tclStubsPtr->tcl_GetMaster) /* 164 */ -#endif -#ifndef Tcl_GetNameOfExecutable -#define Tcl_GetNameOfExecutable \ - (tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */ -#endif -#ifndef Tcl_GetObjResult -#define Tcl_GetObjResult \ - (tclStubsPtr->tcl_GetObjResult) /* 166 */ -#endif -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ -#ifndef Tcl_GetOpenFile -#define Tcl_GetOpenFile \ - (tclStubsPtr->tcl_GetOpenFile) /* 167 */ -#endif -#endif /* UNIX */ -#ifndef Tcl_GetPathType -#define Tcl_GetPathType \ - (tclStubsPtr->tcl_GetPathType) /* 168 */ -#endif -#ifndef Tcl_Gets -#define Tcl_Gets \ - (tclStubsPtr->tcl_Gets) /* 169 */ -#endif -#ifndef Tcl_GetsObj -#define Tcl_GetsObj \ - (tclStubsPtr->tcl_GetsObj) /* 170 */ -#endif -#ifndef Tcl_GetServiceMode -#define Tcl_GetServiceMode \ - (tclStubsPtr->tcl_GetServiceMode) /* 171 */ -#endif -#ifndef Tcl_GetSlave -#define Tcl_GetSlave \ - (tclStubsPtr->tcl_GetSlave) /* 172 */ -#endif -#ifndef Tcl_GetStdChannel -#define Tcl_GetStdChannel \ - (tclStubsPtr->tcl_GetStdChannel) /* 173 */ -#endif -#ifndef Tcl_GetStringResult -#define Tcl_GetStringResult \ - (tclStubsPtr->tcl_GetStringResult) /* 174 */ -#endif -#ifndef Tcl_GetVar -#define Tcl_GetVar \ - (tclStubsPtr->tcl_GetVar) /* 175 */ -#endif -#ifndef Tcl_GetVar2 -#define Tcl_GetVar2 \ - (tclStubsPtr->tcl_GetVar2) /* 176 */ -#endif -#ifndef Tcl_GlobalEval -#define Tcl_GlobalEval \ - (tclStubsPtr->tcl_GlobalEval) /* 177 */ -#endif -#ifndef Tcl_GlobalEvalObj -#define Tcl_GlobalEvalObj \ - (tclStubsPtr->tcl_GlobalEvalObj) /* 178 */ -#endif -#ifndef Tcl_HideCommand -#define Tcl_HideCommand \ - (tclStubsPtr->tcl_HideCommand) /* 179 */ -#endif -#ifndef Tcl_Init -#define Tcl_Init \ - (tclStubsPtr->tcl_Init) /* 180 */ -#endif -#ifndef Tcl_InitHashTable -#define Tcl_InitHashTable \ - (tclStubsPtr->tcl_InitHashTable) /* 181 */ -#endif -#ifndef Tcl_InputBlocked -#define Tcl_InputBlocked \ - (tclStubsPtr->tcl_InputBlocked) /* 182 */ -#endif -#ifndef Tcl_InputBuffered -#define Tcl_InputBuffered \ - (tclStubsPtr->tcl_InputBuffered) /* 183 */ -#endif -#ifndef Tcl_InterpDeleted -#define Tcl_InterpDeleted \ - (tclStubsPtr->tcl_InterpDeleted) /* 184 */ -#endif -#ifndef Tcl_IsSafe -#define Tcl_IsSafe \ - (tclStubsPtr->tcl_IsSafe) /* 185 */ -#endif -#ifndef Tcl_JoinPath -#define Tcl_JoinPath \ - (tclStubsPtr->tcl_JoinPath) /* 186 */ -#endif -#ifndef Tcl_LinkVar -#define Tcl_LinkVar \ - (tclStubsPtr->tcl_LinkVar) /* 187 */ -#endif -/* Slot 188 is reserved */ -#ifndef Tcl_MakeFileChannel -#define Tcl_MakeFileChannel \ - (tclStubsPtr->tcl_MakeFileChannel) /* 189 */ -#endif -#ifndef Tcl_MakeSafe -#define Tcl_MakeSafe \ - (tclStubsPtr->tcl_MakeSafe) /* 190 */ -#endif -#ifndef Tcl_MakeTcpClientChannel -#define Tcl_MakeTcpClientChannel \ - (tclStubsPtr->tcl_MakeTcpClientChannel) /* 191 */ -#endif -#ifndef Tcl_Merge -#define Tcl_Merge \ - (tclStubsPtr->tcl_Merge) /* 192 */ -#endif -#ifndef Tcl_NextHashEntry -#define Tcl_NextHashEntry \ - (tclStubsPtr->tcl_NextHashEntry) /* 193 */ -#endif -#ifndef Tcl_NotifyChannel -#define Tcl_NotifyChannel \ - (tclStubsPtr->tcl_NotifyChannel) /* 194 */ -#endif -#ifndef Tcl_ObjGetVar2 -#define Tcl_ObjGetVar2 \ - (tclStubsPtr->tcl_ObjGetVar2) /* 195 */ -#endif -#ifndef Tcl_ObjSetVar2 -#define Tcl_ObjSetVar2 \ - (tclStubsPtr->tcl_ObjSetVar2) /* 196 */ -#endif -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ -#ifndef Tcl_OpenCommandChannel -#define Tcl_OpenCommandChannel \ - (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */ -#endif -#endif /* UNIX */ -#ifdef __WIN32__ -#ifndef Tcl_OpenCommandChannel -#define Tcl_OpenCommandChannel \ - (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */ -#endif -#endif /* __WIN32__ */ -#ifndef Tcl_OpenFileChannel -#define Tcl_OpenFileChannel \ - (tclStubsPtr->tcl_OpenFileChannel) /* 198 */ -#endif -#ifndef Tcl_OpenTcpClient -#define Tcl_OpenTcpClient \ - (tclStubsPtr->tcl_OpenTcpClient) /* 199 */ -#endif -#ifndef Tcl_OpenTcpServer -#define Tcl_OpenTcpServer \ - (tclStubsPtr->tcl_OpenTcpServer) /* 200 */ -#endif -#ifndef Tcl_Preserve -#define Tcl_Preserve \ - (tclStubsPtr->tcl_Preserve) /* 201 */ -#endif -#ifndef Tcl_PrintDouble -#define Tcl_PrintDouble \ - (tclStubsPtr->tcl_PrintDouble) /* 202 */ -#endif -#ifndef Tcl_PutEnv -#define Tcl_PutEnv \ - (tclStubsPtr->tcl_PutEnv) /* 203 */ -#endif -#ifndef Tcl_PosixError -#define Tcl_PosixError \ - (tclStubsPtr->tcl_PosixError) /* 204 */ -#endif -#ifndef Tcl_QueueEvent -#define Tcl_QueueEvent \ - (tclStubsPtr->tcl_QueueEvent) /* 205 */ -#endif -#ifndef Tcl_Read -#define Tcl_Read \ - (tclStubsPtr->tcl_Read) /* 206 */ -#endif -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ -#ifndef Tcl_ReapDetachedProcs -#define Tcl_ReapDetachedProcs \ - (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */ -#endif -#endif /* UNIX */ -#ifdef __WIN32__ -#ifndef Tcl_ReapDetachedProcs -#define Tcl_ReapDetachedProcs \ - (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */ -#endif -#endif /* __WIN32__ */ -#ifndef Tcl_RecordAndEval -#define Tcl_RecordAndEval \ - (tclStubsPtr->tcl_RecordAndEval) /* 208 */ -#endif -#ifndef Tcl_RecordAndEvalObj -#define Tcl_RecordAndEvalObj \ - (tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */ -#endif -#ifndef Tcl_RegisterChannel -#define Tcl_RegisterChannel \ - (tclStubsPtr->tcl_RegisterChannel) /* 210 */ -#endif -#ifndef Tcl_RegisterObjType -#define Tcl_RegisterObjType \ - (tclStubsPtr->tcl_RegisterObjType) /* 211 */ -#endif -#ifndef Tcl_RegExpCompile -#define Tcl_RegExpCompile \ - (tclStubsPtr->tcl_RegExpCompile) /* 212 */ -#endif -#ifndef Tcl_RegExpExec -#define Tcl_RegExpExec \ - (tclStubsPtr->tcl_RegExpExec) /* 213 */ -#endif -#ifndef Tcl_RegExpMatch -#define Tcl_RegExpMatch \ - (tclStubsPtr->tcl_RegExpMatch) /* 214 */ -#endif -#ifndef Tcl_RegExpRange -#define Tcl_RegExpRange \ - (tclStubsPtr->tcl_RegExpRange) /* 215 */ -#endif -#ifndef Tcl_Release -#define Tcl_Release \ - (tclStubsPtr->tcl_Release) /* 216 */ -#endif -#ifndef Tcl_ResetResult -#define Tcl_ResetResult \ - (tclStubsPtr->tcl_ResetResult) /* 217 */ -#endif -#ifndef Tcl_ScanElement -#define Tcl_ScanElement \ - (tclStubsPtr->tcl_ScanElement) /* 218 */ -#endif -#ifndef Tcl_ScanCountedElement -#define Tcl_ScanCountedElement \ - (tclStubsPtr->tcl_ScanCountedElement) /* 219 */ -#endif -#ifndef Tcl_SeekOld -#define Tcl_SeekOld \ - (tclStubsPtr->tcl_SeekOld) /* 220 */ -#endif -#ifndef Tcl_ServiceAll -#define Tcl_ServiceAll \ - (tclStubsPtr->tcl_ServiceAll) /* 221 */ -#endif -#ifndef Tcl_ServiceEvent -#define Tcl_ServiceEvent \ - (tclStubsPtr->tcl_ServiceEvent) /* 222 */ -#endif -#ifndef Tcl_SetAssocData -#define Tcl_SetAssocData \ - (tclStubsPtr->tcl_SetAssocData) /* 223 */ -#endif -#ifndef Tcl_SetChannelBufferSize -#define Tcl_SetChannelBufferSize \ - (tclStubsPtr->tcl_SetChannelBufferSize) /* 224 */ -#endif -#ifndef Tcl_SetChannelOption -#define Tcl_SetChannelOption \ - (tclStubsPtr->tcl_SetChannelOption) /* 225 */ -#endif -#ifndef Tcl_SetCommandInfo -#define Tcl_SetCommandInfo \ - (tclStubsPtr->tcl_SetCommandInfo) /* 226 */ -#endif -#ifndef Tcl_SetErrno -#define Tcl_SetErrno \ - (tclStubsPtr->tcl_SetErrno) /* 227 */ -#endif -#ifndef Tcl_SetErrorCode -#define Tcl_SetErrorCode \ - (tclStubsPtr->tcl_SetErrorCode) /* 228 */ -#endif -#ifndef Tcl_SetMaxBlockTime -#define Tcl_SetMaxBlockTime \ - (tclStubsPtr->tcl_SetMaxBlockTime) /* 229 */ -#endif -#ifndef Tcl_SetPanicProc -#define Tcl_SetPanicProc \ - (tclStubsPtr->tcl_SetPanicProc) /* 230 */ -#endif -#ifndef Tcl_SetRecursionLimit -#define Tcl_SetRecursionLimit \ - (tclStubsPtr->tcl_SetRecursionLimit) /* 231 */ -#endif -#ifndef Tcl_SetResult -#define Tcl_SetResult \ - (tclStubsPtr->tcl_SetResult) /* 232 */ -#endif -#ifndef Tcl_SetServiceMode -#define Tcl_SetServiceMode \ - (tclStubsPtr->tcl_SetServiceMode) /* 233 */ -#endif -#ifndef Tcl_SetObjErrorCode -#define Tcl_SetObjErrorCode \ - (tclStubsPtr->tcl_SetObjErrorCode) /* 234 */ -#endif -#ifndef Tcl_SetObjResult -#define Tcl_SetObjResult \ - (tclStubsPtr->tcl_SetObjResult) /* 235 */ -#endif -#ifndef Tcl_SetStdChannel -#define Tcl_SetStdChannel \ - (tclStubsPtr->tcl_SetStdChannel) /* 236 */ -#endif -#ifndef Tcl_SetVar -#define Tcl_SetVar \ - (tclStubsPtr->tcl_SetVar) /* 237 */ -#endif -#ifndef Tcl_SetVar2 -#define Tcl_SetVar2 \ - (tclStubsPtr->tcl_SetVar2) /* 238 */ -#endif -#ifndef Tcl_SignalId -#define Tcl_SignalId \ - (tclStubsPtr->tcl_SignalId) /* 239 */ -#endif -#ifndef Tcl_SignalMsg -#define Tcl_SignalMsg \ - (tclStubsPtr->tcl_SignalMsg) /* 240 */ -#endif -#ifndef Tcl_SourceRCFile -#define Tcl_SourceRCFile \ - (tclStubsPtr->tcl_SourceRCFile) /* 241 */ -#endif -#ifndef Tcl_SplitList -#define Tcl_SplitList \ - (tclStubsPtr->tcl_SplitList) /* 242 */ -#endif -#ifndef Tcl_SplitPath -#define Tcl_SplitPath \ - (tclStubsPtr->tcl_SplitPath) /* 243 */ -#endif -#ifndef Tcl_StaticPackage -#define Tcl_StaticPackage \ - (tclStubsPtr->tcl_StaticPackage) /* 244 */ -#endif -#ifndef Tcl_StringMatch -#define Tcl_StringMatch \ - (tclStubsPtr->tcl_StringMatch) /* 245 */ -#endif -#ifndef Tcl_TellOld -#define Tcl_TellOld \ - (tclStubsPtr->tcl_TellOld) /* 246 */ -#endif -#ifndef Tcl_TraceVar -#define Tcl_TraceVar \ - (tclStubsPtr->tcl_TraceVar) /* 247 */ -#endif -#ifndef Tcl_TraceVar2 -#define Tcl_TraceVar2 \ - (tclStubsPtr->tcl_TraceVar2) /* 248 */ -#endif -#ifndef Tcl_TranslateFileName -#define Tcl_TranslateFileName \ - (tclStubsPtr->tcl_TranslateFileName) /* 249 */ -#endif -#ifndef Tcl_Ungets -#define Tcl_Ungets \ - (tclStubsPtr->tcl_Ungets) /* 250 */ -#endif -#ifndef Tcl_UnlinkVar -#define Tcl_UnlinkVar \ - (tclStubsPtr->tcl_UnlinkVar) /* 251 */ -#endif -#ifndef Tcl_UnregisterChannel -#define Tcl_UnregisterChannel \ - (tclStubsPtr->tcl_UnregisterChannel) /* 252 */ -#endif -#ifndef Tcl_UnsetVar -#define Tcl_UnsetVar \ - (tclStubsPtr->tcl_UnsetVar) /* 253 */ -#endif -#ifndef Tcl_UnsetVar2 -#define Tcl_UnsetVar2 \ - (tclStubsPtr->tcl_UnsetVar2) /* 254 */ -#endif -#ifndef Tcl_UntraceVar -#define Tcl_UntraceVar \ - (tclStubsPtr->tcl_UntraceVar) /* 255 */ -#endif -#ifndef Tcl_UntraceVar2 -#define Tcl_UntraceVar2 \ - (tclStubsPtr->tcl_UntraceVar2) /* 256 */ -#endif -#ifndef Tcl_UpdateLinkedVar -#define Tcl_UpdateLinkedVar \ - (tclStubsPtr->tcl_UpdateLinkedVar) /* 257 */ -#endif -#ifndef Tcl_UpVar -#define Tcl_UpVar \ - (tclStubsPtr->tcl_UpVar) /* 258 */ -#endif -#ifndef Tcl_UpVar2 -#define Tcl_UpVar2 \ - (tclStubsPtr->tcl_UpVar2) /* 259 */ -#endif -#ifndef Tcl_VarEval -#define Tcl_VarEval \ - (tclStubsPtr->tcl_VarEval) /* 260 */ -#endif -#ifndef Tcl_VarTraceInfo -#define Tcl_VarTraceInfo \ - (tclStubsPtr->tcl_VarTraceInfo) /* 261 */ -#endif -#ifndef Tcl_VarTraceInfo2 -#define Tcl_VarTraceInfo2 \ - (tclStubsPtr->tcl_VarTraceInfo2) /* 262 */ -#endif -#ifndef Tcl_Write -#define Tcl_Write \ - (tclStubsPtr->tcl_Write) /* 263 */ -#endif -#ifndef Tcl_WrongNumArgs -#define Tcl_WrongNumArgs \ - (tclStubsPtr->tcl_WrongNumArgs) /* 264 */ -#endif -#ifndef Tcl_DumpActiveMemory -#define Tcl_DumpActiveMemory \ - (tclStubsPtr->tcl_DumpActiveMemory) /* 265 */ -#endif -#ifndef Tcl_ValidateAllMemory -#define Tcl_ValidateAllMemory \ - (tclStubsPtr->tcl_ValidateAllMemory) /* 266 */ -#endif -#ifndef Tcl_AppendResultVA -#define Tcl_AppendResultVA \ - (tclStubsPtr->tcl_AppendResultVA) /* 267 */ -#endif -#ifndef Tcl_AppendStringsToObjVA -#define Tcl_AppendStringsToObjVA \ - (tclStubsPtr->tcl_AppendStringsToObjVA) /* 268 */ -#endif -#ifndef Tcl_HashStats -#define Tcl_HashStats \ - (tclStubsPtr->tcl_HashStats) /* 269 */ -#endif -#ifndef Tcl_ParseVar -#define Tcl_ParseVar \ - (tclStubsPtr->tcl_ParseVar) /* 270 */ -#endif -#ifndef Tcl_PkgPresent -#define Tcl_PkgPresent \ - (tclStubsPtr->tcl_PkgPresent) /* 271 */ -#endif -#ifndef Tcl_PkgPresentEx -#define Tcl_PkgPresentEx \ - (tclStubsPtr->tcl_PkgPresentEx) /* 272 */ -#endif -#ifndef Tcl_PkgProvide -#define Tcl_PkgProvide \ - (tclStubsPtr->tcl_PkgProvide) /* 273 */ -#endif -#ifndef Tcl_PkgRequire -#define Tcl_PkgRequire \ - (tclStubsPtr->tcl_PkgRequire) /* 274 */ -#endif -#ifndef Tcl_SetErrorCodeVA -#define Tcl_SetErrorCodeVA \ - (tclStubsPtr->tcl_SetErrorCodeVA) /* 275 */ -#endif -#ifndef Tcl_VarEvalVA -#define Tcl_VarEvalVA \ - (tclStubsPtr->tcl_VarEvalVA) /* 276 */ -#endif -#ifndef Tcl_WaitPid -#define Tcl_WaitPid \ - (tclStubsPtr->tcl_WaitPid) /* 277 */ -#endif -#ifndef Tcl_PanicVA -#define Tcl_PanicVA \ - (tclStubsPtr->tcl_PanicVA) /* 278 */ -#endif -#ifndef Tcl_GetVersion -#define Tcl_GetVersion \ - (tclStubsPtr->tcl_GetVersion) /* 279 */ -#endif -#ifndef Tcl_InitMemory -#define Tcl_InitMemory \ - (tclStubsPtr->tcl_InitMemory) /* 280 */ -#endif -#ifndef Tcl_StackChannel -#define Tcl_StackChannel \ - (tclStubsPtr->tcl_StackChannel) /* 281 */ -#endif -#ifndef Tcl_UnstackChannel -#define Tcl_UnstackChannel \ - (tclStubsPtr->tcl_UnstackChannel) /* 282 */ -#endif -#ifndef Tcl_GetStackedChannel -#define Tcl_GetStackedChannel \ - (tclStubsPtr->tcl_GetStackedChannel) /* 283 */ -#endif -#ifndef Tcl_SetMainLoop -#define Tcl_SetMainLoop \ - (tclStubsPtr->tcl_SetMainLoop) /* 284 */ -#endif -/* Slot 285 is reserved */ -#ifndef Tcl_AppendObjToObj -#define Tcl_AppendObjToObj \ - (tclStubsPtr->tcl_AppendObjToObj) /* 286 */ -#endif -#ifndef Tcl_CreateEncoding -#define Tcl_CreateEncoding \ - (tclStubsPtr->tcl_CreateEncoding) /* 287 */ -#endif -#ifndef Tcl_CreateThreadExitHandler -#define Tcl_CreateThreadExitHandler \ - (tclStubsPtr->tcl_CreateThreadExitHandler) /* 288 */ -#endif -#ifndef Tcl_DeleteThreadExitHandler -#define Tcl_DeleteThreadExitHandler \ - (tclStubsPtr->tcl_DeleteThreadExitHandler) /* 289 */ -#endif -#ifndef Tcl_DiscardResult -#define Tcl_DiscardResult \ - (tclStubsPtr->tcl_DiscardResult) /* 290 */ -#endif -#ifndef Tcl_EvalEx -#define Tcl_EvalEx \ - (tclStubsPtr->tcl_EvalEx) /* 291 */ -#endif -#ifndef Tcl_EvalObjv -#define Tcl_EvalObjv \ - (tclStubsPtr->tcl_EvalObjv) /* 292 */ -#endif -#ifndef Tcl_EvalObjEx -#define Tcl_EvalObjEx \ - (tclStubsPtr->tcl_EvalObjEx) /* 293 */ -#endif -#ifndef Tcl_ExitThread -#define Tcl_ExitThread \ - (tclStubsPtr->tcl_ExitThread) /* 294 */ -#endif -#ifndef Tcl_ExternalToUtf -#define Tcl_ExternalToUtf \ - (tclStubsPtr->tcl_ExternalToUtf) /* 295 */ -#endif -#ifndef Tcl_ExternalToUtfDString -#define Tcl_ExternalToUtfDString \ - (tclStubsPtr->tcl_ExternalToUtfDString) /* 296 */ -#endif -#ifndef Tcl_FinalizeThread -#define Tcl_FinalizeThread \ - (tclStubsPtr->tcl_FinalizeThread) /* 297 */ -#endif -#ifndef Tcl_FinalizeNotifier -#define Tcl_FinalizeNotifier \ - (tclStubsPtr->tcl_FinalizeNotifier) /* 298 */ -#endif -#ifndef Tcl_FreeEncoding -#define Tcl_FreeEncoding \ - (tclStubsPtr->tcl_FreeEncoding) /* 299 */ -#endif -#ifndef Tcl_GetCurrentThread -#define Tcl_GetCurrentThread \ - (tclStubsPtr->tcl_GetCurrentThread) /* 300 */ -#endif -#ifndef Tcl_GetEncoding -#define Tcl_GetEncoding \ - (tclStubsPtr->tcl_GetEncoding) /* 301 */ -#endif -#ifndef Tcl_GetEncodingName -#define Tcl_GetEncodingName \ - (tclStubsPtr->tcl_GetEncodingName) /* 302 */ -#endif -#ifndef Tcl_GetEncodingNames -#define Tcl_GetEncodingNames \ - (tclStubsPtr->tcl_GetEncodingNames) /* 303 */ -#endif -#ifndef Tcl_GetIndexFromObjStruct -#define Tcl_GetIndexFromObjStruct \ - (tclStubsPtr->tcl_GetIndexFromObjStruct) /* 304 */ -#endif -#ifndef Tcl_GetThreadData -#define Tcl_GetThreadData \ - (tclStubsPtr->tcl_GetThreadData) /* 305 */ -#endif -#ifndef Tcl_GetVar2Ex -#define Tcl_GetVar2Ex \ - (tclStubsPtr->tcl_GetVar2Ex) /* 306 */ -#endif -#ifndef Tcl_InitNotifier -#define Tcl_InitNotifier \ - (tclStubsPtr->tcl_InitNotifier) /* 307 */ -#endif -#ifndef Tcl_MutexLock -#define Tcl_MutexLock \ - (tclStubsPtr->tcl_MutexLock) /* 308 */ -#endif -#ifndef Tcl_MutexUnlock -#define Tcl_MutexUnlock \ - (tclStubsPtr->tcl_MutexUnlock) /* 309 */ -#endif -#ifndef Tcl_ConditionNotify -#define Tcl_ConditionNotify \ - (tclStubsPtr->tcl_ConditionNotify) /* 310 */ -#endif -#ifndef Tcl_ConditionWait -#define Tcl_ConditionWait \ - (tclStubsPtr->tcl_ConditionWait) /* 311 */ -#endif -#ifndef Tcl_NumUtfChars -#define Tcl_NumUtfChars \ - (tclStubsPtr->tcl_NumUtfChars) /* 312 */ -#endif -#ifndef Tcl_ReadChars -#define Tcl_ReadChars \ - (tclStubsPtr->tcl_ReadChars) /* 313 */ -#endif -#ifndef Tcl_RestoreResult -#define Tcl_RestoreResult \ - (tclStubsPtr->tcl_RestoreResult) /* 314 */ -#endif -#ifndef Tcl_SaveResult -#define Tcl_SaveResult \ - (tclStubsPtr->tcl_SaveResult) /* 315 */ -#endif -#ifndef Tcl_SetSystemEncoding -#define Tcl_SetSystemEncoding \ - (tclStubsPtr->tcl_SetSystemEncoding) /* 316 */ -#endif -#ifndef Tcl_SetVar2Ex -#define Tcl_SetVar2Ex \ - (tclStubsPtr->tcl_SetVar2Ex) /* 317 */ -#endif -#ifndef Tcl_ThreadAlert -#define Tcl_ThreadAlert \ - (tclStubsPtr->tcl_ThreadAlert) /* 318 */ -#endif -#ifndef Tcl_ThreadQueueEvent -#define Tcl_ThreadQueueEvent \ - (tclStubsPtr->tcl_ThreadQueueEvent) /* 319 */ -#endif -#ifndef Tcl_UniCharAtIndex -#define Tcl_UniCharAtIndex \ - (tclStubsPtr->tcl_UniCharAtIndex) /* 320 */ -#endif -#ifndef Tcl_UniCharToLower -#define Tcl_UniCharToLower \ - (tclStubsPtr->tcl_UniCharToLower) /* 321 */ -#endif -#ifndef Tcl_UniCharToTitle -#define Tcl_UniCharToTitle \ - (tclStubsPtr->tcl_UniCharToTitle) /* 322 */ -#endif -#ifndef Tcl_UniCharToUpper -#define Tcl_UniCharToUpper \ - (tclStubsPtr->tcl_UniCharToUpper) /* 323 */ -#endif -#ifndef Tcl_UniCharToUtf -#define Tcl_UniCharToUtf \ - (tclStubsPtr->tcl_UniCharToUtf) /* 324 */ -#endif -#ifndef Tcl_UtfAtIndex -#define Tcl_UtfAtIndex \ - (tclStubsPtr->tcl_UtfAtIndex) /* 325 */ -#endif -#ifndef Tcl_UtfCharComplete -#define Tcl_UtfCharComplete \ - (tclStubsPtr->tcl_UtfCharComplete) /* 326 */ -#endif -#ifndef Tcl_UtfBackslash -#define Tcl_UtfBackslash \ - (tclStubsPtr->tcl_UtfBackslash) /* 327 */ -#endif -#ifndef Tcl_UtfFindFirst -#define Tcl_UtfFindFirst \ - (tclStubsPtr->tcl_UtfFindFirst) /* 328 */ -#endif -#ifndef Tcl_UtfFindLast -#define Tcl_UtfFindLast \ - (tclStubsPtr->tcl_UtfFindLast) /* 329 */ -#endif -#ifndef Tcl_UtfNext -#define Tcl_UtfNext \ - (tclStubsPtr->tcl_UtfNext) /* 330 */ -#endif -#ifndef Tcl_UtfPrev -#define Tcl_UtfPrev \ - (tclStubsPtr->tcl_UtfPrev) /* 331 */ -#endif -#ifndef Tcl_UtfToExternal -#define Tcl_UtfToExternal \ - (tclStubsPtr->tcl_UtfToExternal) /* 332 */ -#endif -#ifndef Tcl_UtfToExternalDString -#define Tcl_UtfToExternalDString \ - (tclStubsPtr->tcl_UtfToExternalDString) /* 333 */ -#endif -#ifndef Tcl_UtfToLower -#define Tcl_UtfToLower \ - (tclStubsPtr->tcl_UtfToLower) /* 334 */ -#endif -#ifndef Tcl_UtfToTitle -#define Tcl_UtfToTitle \ - (tclStubsPtr->tcl_UtfToTitle) /* 335 */ -#endif -#ifndef Tcl_UtfToUniChar -#define Tcl_UtfToUniChar \ - (tclStubsPtr->tcl_UtfToUniChar) /* 336 */ -#endif -#ifndef Tcl_UtfToUpper -#define Tcl_UtfToUpper \ - (tclStubsPtr->tcl_UtfToUpper) /* 337 */ -#endif -#ifndef Tcl_WriteChars -#define Tcl_WriteChars \ - (tclStubsPtr->tcl_WriteChars) /* 338 */ -#endif -#ifndef Tcl_WriteObj -#define Tcl_WriteObj \ - (tclStubsPtr->tcl_WriteObj) /* 339 */ -#endif -#ifndef Tcl_GetString -#define Tcl_GetString \ - (tclStubsPtr->tcl_GetString) /* 340 */ -#endif -#ifndef Tcl_GetDefaultEncodingDir -#define Tcl_GetDefaultEncodingDir \ - (tclStubsPtr->tcl_GetDefaultEncodingDir) /* 341 */ -#endif -#ifndef Tcl_SetDefaultEncodingDir -#define Tcl_SetDefaultEncodingDir \ - (tclStubsPtr->tcl_SetDefaultEncodingDir) /* 342 */ -#endif -#ifndef Tcl_AlertNotifier -#define Tcl_AlertNotifier \ - (tclStubsPtr->tcl_AlertNotifier) /* 343 */ -#endif -#ifndef Tcl_ServiceModeHook -#define Tcl_ServiceModeHook \ - (tclStubsPtr->tcl_ServiceModeHook) /* 344 */ -#endif -#ifndef Tcl_UniCharIsAlnum -#define Tcl_UniCharIsAlnum \ - (tclStubsPtr->tcl_UniCharIsAlnum) /* 345 */ -#endif -#ifndef Tcl_UniCharIsAlpha -#define Tcl_UniCharIsAlpha \ - (tclStubsPtr->tcl_UniCharIsAlpha) /* 346 */ -#endif -#ifndef Tcl_UniCharIsDigit -#define Tcl_UniCharIsDigit \ - (tclStubsPtr->tcl_UniCharIsDigit) /* 347 */ -#endif -#ifndef Tcl_UniCharIsLower -#define Tcl_UniCharIsLower \ - (tclStubsPtr->tcl_UniCharIsLower) /* 348 */ -#endif -#ifndef Tcl_UniCharIsSpace -#define Tcl_UniCharIsSpace \ - (tclStubsPtr->tcl_UniCharIsSpace) /* 349 */ -#endif -#ifndef Tcl_UniCharIsUpper -#define Tcl_UniCharIsUpper \ - (tclStubsPtr->tcl_UniCharIsUpper) /* 350 */ -#endif -#ifndef Tcl_UniCharIsWordChar -#define Tcl_UniCharIsWordChar \ - (tclStubsPtr->tcl_UniCharIsWordChar) /* 351 */ -#endif -#ifndef Tcl_UniCharLen -#define Tcl_UniCharLen \ - (tclStubsPtr->tcl_UniCharLen) /* 352 */ -#endif -#ifndef Tcl_UniCharNcmp -#define Tcl_UniCharNcmp \ - (tclStubsPtr->tcl_UniCharNcmp) /* 353 */ -#endif -#ifndef Tcl_UniCharToUtfDString -#define Tcl_UniCharToUtfDString \ - (tclStubsPtr->tcl_UniCharToUtfDString) /* 354 */ -#endif -#ifndef Tcl_UtfToUniCharDString -#define Tcl_UtfToUniCharDString \ - (tclStubsPtr->tcl_UtfToUniCharDString) /* 355 */ -#endif -#ifndef Tcl_GetRegExpFromObj -#define Tcl_GetRegExpFromObj \ - (tclStubsPtr->tcl_GetRegExpFromObj) /* 356 */ -#endif -#ifndef Tcl_EvalTokens -#define Tcl_EvalTokens \ - (tclStubsPtr->tcl_EvalTokens) /* 357 */ -#endif -#ifndef Tcl_FreeParse -#define Tcl_FreeParse \ - (tclStubsPtr->tcl_FreeParse) /* 358 */ -#endif -#ifndef Tcl_LogCommandInfo -#define Tcl_LogCommandInfo \ - (tclStubsPtr->tcl_LogCommandInfo) /* 359 */ -#endif -#ifndef Tcl_ParseBraces -#define Tcl_ParseBraces \ - (tclStubsPtr->tcl_ParseBraces) /* 360 */ -#endif -#ifndef Tcl_ParseCommand -#define Tcl_ParseCommand \ - (tclStubsPtr->tcl_ParseCommand) /* 361 */ -#endif -#ifndef Tcl_ParseExpr -#define Tcl_ParseExpr \ - (tclStubsPtr->tcl_ParseExpr) /* 362 */ -#endif -#ifndef Tcl_ParseQuotedString -#define Tcl_ParseQuotedString \ - (tclStubsPtr->tcl_ParseQuotedString) /* 363 */ -#endif -#ifndef Tcl_ParseVarName -#define Tcl_ParseVarName \ - (tclStubsPtr->tcl_ParseVarName) /* 364 */ -#endif -#ifndef Tcl_GetCwd -#define Tcl_GetCwd \ - (tclStubsPtr->tcl_GetCwd) /* 365 */ -#endif -#ifndef Tcl_Chdir -#define Tcl_Chdir \ - (tclStubsPtr->tcl_Chdir) /* 366 */ -#endif -#ifndef Tcl_Access -#define Tcl_Access \ - (tclStubsPtr->tcl_Access) /* 367 */ -#endif -#ifndef Tcl_Stat -#define Tcl_Stat \ - (tclStubsPtr->tcl_Stat) /* 368 */ -#endif -#ifndef Tcl_UtfNcmp -#define Tcl_UtfNcmp \ - (tclStubsPtr->tcl_UtfNcmp) /* 369 */ -#endif -#ifndef Tcl_UtfNcasecmp -#define Tcl_UtfNcasecmp \ - (tclStubsPtr->tcl_UtfNcasecmp) /* 370 */ -#endif -#ifndef Tcl_StringCaseMatch -#define Tcl_StringCaseMatch \ - (tclStubsPtr->tcl_StringCaseMatch) /* 371 */ -#endif -#ifndef Tcl_UniCharIsControl -#define Tcl_UniCharIsControl \ - (tclStubsPtr->tcl_UniCharIsControl) /* 372 */ -#endif -#ifndef Tcl_UniCharIsGraph -#define Tcl_UniCharIsGraph \ - (tclStubsPtr->tcl_UniCharIsGraph) /* 373 */ -#endif -#ifndef Tcl_UniCharIsPrint -#define Tcl_UniCharIsPrint \ - (tclStubsPtr->tcl_UniCharIsPrint) /* 374 */ -#endif -#ifndef Tcl_UniCharIsPunct -#define Tcl_UniCharIsPunct \ - (tclStubsPtr->tcl_UniCharIsPunct) /* 375 */ -#endif -#ifndef Tcl_RegExpExecObj -#define Tcl_RegExpExecObj \ - (tclStubsPtr->tcl_RegExpExecObj) /* 376 */ -#endif -#ifndef Tcl_RegExpGetInfo -#define Tcl_RegExpGetInfo \ - (tclStubsPtr->tcl_RegExpGetInfo) /* 377 */ -#endif -#ifndef Tcl_NewUnicodeObj -#define Tcl_NewUnicodeObj \ - (tclStubsPtr->tcl_NewUnicodeObj) /* 378 */ -#endif -#ifndef Tcl_SetUnicodeObj -#define Tcl_SetUnicodeObj \ - (tclStubsPtr->tcl_SetUnicodeObj) /* 379 */ -#endif -#ifndef Tcl_GetCharLength -#define Tcl_GetCharLength \ - (tclStubsPtr->tcl_GetCharLength) /* 380 */ -#endif -#ifndef Tcl_GetUniChar -#define Tcl_GetUniChar \ - (tclStubsPtr->tcl_GetUniChar) /* 381 */ -#endif -#ifndef Tcl_GetUnicode -#define Tcl_GetUnicode \ - (tclStubsPtr->tcl_GetUnicode) /* 382 */ -#endif -#ifndef Tcl_GetRange -#define Tcl_GetRange \ - (tclStubsPtr->tcl_GetRange) /* 383 */ -#endif -#ifndef Tcl_AppendUnicodeToObj -#define Tcl_AppendUnicodeToObj \ - (tclStubsPtr->tcl_AppendUnicodeToObj) /* 384 */ -#endif -#ifndef Tcl_RegExpMatchObj -#define Tcl_RegExpMatchObj \ - (tclStubsPtr->tcl_RegExpMatchObj) /* 385 */ -#endif -#ifndef Tcl_SetNotifier -#define Tcl_SetNotifier \ - (tclStubsPtr->tcl_SetNotifier) /* 386 */ -#endif -#ifndef Tcl_GetAllocMutex -#define Tcl_GetAllocMutex \ - (tclStubsPtr->tcl_GetAllocMutex) /* 387 */ -#endif -#ifndef Tcl_GetChannelNames -#define Tcl_GetChannelNames \ - (tclStubsPtr->tcl_GetChannelNames) /* 388 */ -#endif -#ifndef Tcl_GetChannelNamesEx -#define Tcl_GetChannelNamesEx \ - (tclStubsPtr->tcl_GetChannelNamesEx) /* 389 */ -#endif -#ifndef Tcl_ProcObjCmd -#define Tcl_ProcObjCmd \ - (tclStubsPtr->tcl_ProcObjCmd) /* 390 */ -#endif -#ifndef Tcl_ConditionFinalize -#define Tcl_ConditionFinalize \ - (tclStubsPtr->tcl_ConditionFinalize) /* 391 */ -#endif -#ifndef Tcl_MutexFinalize -#define Tcl_MutexFinalize \ - (tclStubsPtr->tcl_MutexFinalize) /* 392 */ -#endif -#ifndef Tcl_CreateThread -#define Tcl_CreateThread \ - (tclStubsPtr->tcl_CreateThread) /* 393 */ -#endif -#ifndef Tcl_ReadRaw -#define Tcl_ReadRaw \ - (tclStubsPtr->tcl_ReadRaw) /* 394 */ -#endif -#ifndef Tcl_WriteRaw -#define Tcl_WriteRaw \ - (tclStubsPtr->tcl_WriteRaw) /* 395 */ -#endif -#ifndef Tcl_GetTopChannel -#define Tcl_GetTopChannel \ - (tclStubsPtr->tcl_GetTopChannel) /* 396 */ -#endif -#ifndef Tcl_ChannelBuffered -#define Tcl_ChannelBuffered \ - (tclStubsPtr->tcl_ChannelBuffered) /* 397 */ -#endif -#ifndef Tcl_ChannelName -#define Tcl_ChannelName \ - (tclStubsPtr->tcl_ChannelName) /* 398 */ -#endif -#ifndef Tcl_ChannelVersion -#define Tcl_ChannelVersion \ - (tclStubsPtr->tcl_ChannelVersion) /* 399 */ -#endif -#ifndef Tcl_ChannelBlockModeProc -#define Tcl_ChannelBlockModeProc \ - (tclStubsPtr->tcl_ChannelBlockModeProc) /* 400 */ -#endif -#ifndef Tcl_ChannelCloseProc -#define Tcl_ChannelCloseProc \ - (tclStubsPtr->tcl_ChannelCloseProc) /* 401 */ -#endif -#ifndef Tcl_ChannelClose2Proc -#define Tcl_ChannelClose2Proc \ - (tclStubsPtr->tcl_ChannelClose2Proc) /* 402 */ -#endif -#ifndef Tcl_ChannelInputProc -#define Tcl_ChannelInputProc \ - (tclStubsPtr->tcl_ChannelInputProc) /* 403 */ -#endif -#ifndef Tcl_ChannelOutputProc -#define Tcl_ChannelOutputProc \ - (tclStubsPtr->tcl_ChannelOutputProc) /* 404 */ -#endif -#ifndef Tcl_ChannelSeekProc -#define Tcl_ChannelSeekProc \ - (tclStubsPtr->tcl_ChannelSeekProc) /* 405 */ -#endif -#ifndef Tcl_ChannelSetOptionProc -#define Tcl_ChannelSetOptionProc \ - (tclStubsPtr->tcl_ChannelSetOptionProc) /* 406 */ -#endif -#ifndef Tcl_ChannelGetOptionProc -#define Tcl_ChannelGetOptionProc \ - (tclStubsPtr->tcl_ChannelGetOptionProc) /* 407 */ -#endif -#ifndef Tcl_ChannelWatchProc -#define Tcl_ChannelWatchProc \ - (tclStubsPtr->tcl_ChannelWatchProc) /* 408 */ -#endif -#ifndef Tcl_ChannelGetHandleProc -#define Tcl_ChannelGetHandleProc \ - (tclStubsPtr->tcl_ChannelGetHandleProc) /* 409 */ -#endif -#ifndef Tcl_ChannelFlushProc -#define Tcl_ChannelFlushProc \ - (tclStubsPtr->tcl_ChannelFlushProc) /* 410 */ -#endif -#ifndef Tcl_ChannelHandlerProc -#define Tcl_ChannelHandlerProc \ - (tclStubsPtr->tcl_ChannelHandlerProc) /* 411 */ -#endif -#ifndef Tcl_JoinThread -#define Tcl_JoinThread \ - (tclStubsPtr->tcl_JoinThread) /* 412 */ -#endif -#ifndef Tcl_IsChannelShared -#define Tcl_IsChannelShared \ - (tclStubsPtr->tcl_IsChannelShared) /* 413 */ -#endif -#ifndef Tcl_IsChannelRegistered -#define Tcl_IsChannelRegistered \ - (tclStubsPtr->tcl_IsChannelRegistered) /* 414 */ -#endif -#ifndef Tcl_CutChannel -#define Tcl_CutChannel \ - (tclStubsPtr->tcl_CutChannel) /* 415 */ -#endif -#ifndef Tcl_SpliceChannel -#define Tcl_SpliceChannel \ - (tclStubsPtr->tcl_SpliceChannel) /* 416 */ -#endif -#ifndef Tcl_ClearChannelHandlers -#define Tcl_ClearChannelHandlers \ - (tclStubsPtr->tcl_ClearChannelHandlers) /* 417 */ -#endif -#ifndef Tcl_IsChannelExisting -#define Tcl_IsChannelExisting \ - (tclStubsPtr->tcl_IsChannelExisting) /* 418 */ -#endif -#ifndef Tcl_UniCharNcasecmp -#define Tcl_UniCharNcasecmp \ - (tclStubsPtr->tcl_UniCharNcasecmp) /* 419 */ -#endif -#ifndef Tcl_UniCharCaseMatch -#define Tcl_UniCharCaseMatch \ - (tclStubsPtr->tcl_UniCharCaseMatch) /* 420 */ -#endif -#ifndef Tcl_FindHashEntry -#define Tcl_FindHashEntry \ - (tclStubsPtr->tcl_FindHashEntry) /* 421 */ -#endif -#ifndef Tcl_CreateHashEntry -#define Tcl_CreateHashEntry \ - (tclStubsPtr->tcl_CreateHashEntry) /* 422 */ -#endif -#ifndef Tcl_InitCustomHashTable -#define Tcl_InitCustomHashTable \ - (tclStubsPtr->tcl_InitCustomHashTable) /* 423 */ -#endif -#ifndef Tcl_InitObjHashTable -#define Tcl_InitObjHashTable \ - (tclStubsPtr->tcl_InitObjHashTable) /* 424 */ -#endif -#ifndef Tcl_CommandTraceInfo -#define Tcl_CommandTraceInfo \ - (tclStubsPtr->tcl_CommandTraceInfo) /* 425 */ -#endif -#ifndef Tcl_TraceCommand -#define Tcl_TraceCommand \ - (tclStubsPtr->tcl_TraceCommand) /* 426 */ -#endif -#ifndef Tcl_UntraceCommand -#define Tcl_UntraceCommand \ - (tclStubsPtr->tcl_UntraceCommand) /* 427 */ -#endif -#ifndef Tcl_AttemptAlloc -#define Tcl_AttemptAlloc \ - (tclStubsPtr->tcl_AttemptAlloc) /* 428 */ -#endif -#ifndef Tcl_AttemptDbCkalloc -#define Tcl_AttemptDbCkalloc \ - (tclStubsPtr->tcl_AttemptDbCkalloc) /* 429 */ -#endif -#ifndef Tcl_AttemptRealloc -#define Tcl_AttemptRealloc \ - (tclStubsPtr->tcl_AttemptRealloc) /* 430 */ -#endif -#ifndef Tcl_AttemptDbCkrealloc -#define Tcl_AttemptDbCkrealloc \ - (tclStubsPtr->tcl_AttemptDbCkrealloc) /* 431 */ -#endif -#ifndef Tcl_AttemptSetObjLength -#define Tcl_AttemptSetObjLength \ - (tclStubsPtr->tcl_AttemptSetObjLength) /* 432 */ -#endif -#ifndef Tcl_GetChannelThread -#define Tcl_GetChannelThread \ - (tclStubsPtr->tcl_GetChannelThread) /* 433 */ -#endif -#ifndef Tcl_GetUnicodeFromObj -#define Tcl_GetUnicodeFromObj \ - (tclStubsPtr->tcl_GetUnicodeFromObj) /* 434 */ -#endif -#ifndef Tcl_GetMathFuncInfo -#define Tcl_GetMathFuncInfo \ - (tclStubsPtr->tcl_GetMathFuncInfo) /* 435 */ -#endif -#ifndef Tcl_ListMathFuncs -#define Tcl_ListMathFuncs \ - (tclStubsPtr->tcl_ListMathFuncs) /* 436 */ -#endif -#ifndef Tcl_SubstObj -#define Tcl_SubstObj \ - (tclStubsPtr->tcl_SubstObj) /* 437 */ -#endif -#ifndef Tcl_DetachChannel -#define Tcl_DetachChannel \ - (tclStubsPtr->tcl_DetachChannel) /* 438 */ -#endif -#ifndef Tcl_IsStandardChannel -#define Tcl_IsStandardChannel \ - (tclStubsPtr->tcl_IsStandardChannel) /* 439 */ -#endif -#ifndef Tcl_FSCopyFile -#define Tcl_FSCopyFile \ - (tclStubsPtr->tcl_FSCopyFile) /* 440 */ -#endif -#ifndef Tcl_FSCopyDirectory -#define Tcl_FSCopyDirectory \ - (tclStubsPtr->tcl_FSCopyDirectory) /* 441 */ -#endif -#ifndef Tcl_FSCreateDirectory -#define Tcl_FSCreateDirectory \ - (tclStubsPtr->tcl_FSCreateDirectory) /* 442 */ -#endif -#ifndef Tcl_FSDeleteFile -#define Tcl_FSDeleteFile \ - (tclStubsPtr->tcl_FSDeleteFile) /* 443 */ -#endif -#ifndef Tcl_FSLoadFile -#define Tcl_FSLoadFile \ - (tclStubsPtr->tcl_FSLoadFile) /* 444 */ -#endif -#ifndef Tcl_FSMatchInDirectory -#define Tcl_FSMatchInDirectory \ - (tclStubsPtr->tcl_FSMatchInDirectory) /* 445 */ -#endif -#ifndef Tcl_FSLink -#define Tcl_FSLink \ - (tclStubsPtr->tcl_FSLink) /* 446 */ -#endif -#ifndef Tcl_FSRemoveDirectory -#define Tcl_FSRemoveDirectory \ - (tclStubsPtr->tcl_FSRemoveDirectory) /* 447 */ -#endif -#ifndef Tcl_FSRenameFile -#define Tcl_FSRenameFile \ - (tclStubsPtr->tcl_FSRenameFile) /* 448 */ -#endif -#ifndef Tcl_FSLstat -#define Tcl_FSLstat \ - (tclStubsPtr->tcl_FSLstat) /* 449 */ -#endif -#ifndef Tcl_FSUtime -#define Tcl_FSUtime \ - (tclStubsPtr->tcl_FSUtime) /* 450 */ -#endif -#ifndef Tcl_FSFileAttrsGet -#define Tcl_FSFileAttrsGet \ - (tclStubsPtr->tcl_FSFileAttrsGet) /* 451 */ -#endif -#ifndef Tcl_FSFileAttrsSet -#define Tcl_FSFileAttrsSet \ - (tclStubsPtr->tcl_FSFileAttrsSet) /* 452 */ -#endif -#ifndef Tcl_FSFileAttrStrings -#define Tcl_FSFileAttrStrings \ - (tclStubsPtr->tcl_FSFileAttrStrings) /* 453 */ -#endif -#ifndef Tcl_FSStat -#define Tcl_FSStat \ - (tclStubsPtr->tcl_FSStat) /* 454 */ -#endif -#ifndef Tcl_FSAccess -#define Tcl_FSAccess \ - (tclStubsPtr->tcl_FSAccess) /* 455 */ -#endif -#ifndef Tcl_FSOpenFileChannel -#define Tcl_FSOpenFileChannel \ - (tclStubsPtr->tcl_FSOpenFileChannel) /* 456 */ -#endif -#ifndef Tcl_FSGetCwd -#define Tcl_FSGetCwd \ - (tclStubsPtr->tcl_FSGetCwd) /* 457 */ -#endif -#ifndef Tcl_FSChdir -#define Tcl_FSChdir \ - (tclStubsPtr->tcl_FSChdir) /* 458 */ -#endif -#ifndef Tcl_FSConvertToPathType -#define Tcl_FSConvertToPathType \ - (tclStubsPtr->tcl_FSConvertToPathType) /* 459 */ -#endif -#ifndef Tcl_FSJoinPath -#define Tcl_FSJoinPath \ - (tclStubsPtr->tcl_FSJoinPath) /* 460 */ -#endif -#ifndef Tcl_FSSplitPath -#define Tcl_FSSplitPath \ - (tclStubsPtr->tcl_FSSplitPath) /* 461 */ -#endif -#ifndef Tcl_FSEqualPaths -#define Tcl_FSEqualPaths \ - (tclStubsPtr->tcl_FSEqualPaths) /* 462 */ -#endif -#ifndef Tcl_FSGetNormalizedPath -#define Tcl_FSGetNormalizedPath \ - (tclStubsPtr->tcl_FSGetNormalizedPath) /* 463 */ -#endif -#ifndef Tcl_FSJoinToPath -#define Tcl_FSJoinToPath \ - (tclStubsPtr->tcl_FSJoinToPath) /* 464 */ -#endif -#ifndef Tcl_FSGetInternalRep -#define Tcl_FSGetInternalRep \ - (tclStubsPtr->tcl_FSGetInternalRep) /* 465 */ -#endif -#ifndef Tcl_FSGetTranslatedPath -#define Tcl_FSGetTranslatedPath \ - (tclStubsPtr->tcl_FSGetTranslatedPath) /* 466 */ -#endif -#ifndef Tcl_FSEvalFile -#define Tcl_FSEvalFile \ - (tclStubsPtr->tcl_FSEvalFile) /* 467 */ -#endif -#ifndef Tcl_FSNewNativePath -#define Tcl_FSNewNativePath \ - (tclStubsPtr->tcl_FSNewNativePath) /* 468 */ -#endif -#ifndef Tcl_FSGetNativePath -#define Tcl_FSGetNativePath \ - (tclStubsPtr->tcl_FSGetNativePath) /* 469 */ -#endif -#ifndef Tcl_FSFileSystemInfo -#define Tcl_FSFileSystemInfo \ - (tclStubsPtr->tcl_FSFileSystemInfo) /* 470 */ -#endif -#ifndef Tcl_FSPathSeparator -#define Tcl_FSPathSeparator \ - (tclStubsPtr->tcl_FSPathSeparator) /* 471 */ -#endif -#ifndef Tcl_FSListVolumes -#define Tcl_FSListVolumes \ - (tclStubsPtr->tcl_FSListVolumes) /* 472 */ -#endif -#ifndef Tcl_FSRegister -#define Tcl_FSRegister \ - (tclStubsPtr->tcl_FSRegister) /* 473 */ -#endif -#ifndef Tcl_FSUnregister -#define Tcl_FSUnregister \ - (tclStubsPtr->tcl_FSUnregister) /* 474 */ -#endif -#ifndef Tcl_FSData -#define Tcl_FSData \ - (tclStubsPtr->tcl_FSData) /* 475 */ -#endif -#ifndef Tcl_FSGetTranslatedStringPath -#define Tcl_FSGetTranslatedStringPath \ - (tclStubsPtr->tcl_FSGetTranslatedStringPath) /* 476 */ -#endif -#ifndef Tcl_FSGetFileSystemForPath -#define Tcl_FSGetFileSystemForPath \ - (tclStubsPtr->tcl_FSGetFileSystemForPath) /* 477 */ -#endif -#ifndef Tcl_FSGetPathType -#define Tcl_FSGetPathType \ - (tclStubsPtr->tcl_FSGetPathType) /* 478 */ -#endif -#ifndef Tcl_OutputBuffered -#define Tcl_OutputBuffered \ - (tclStubsPtr->tcl_OutputBuffered) /* 479 */ -#endif -#ifndef Tcl_FSMountsChanged -#define Tcl_FSMountsChanged \ - (tclStubsPtr->tcl_FSMountsChanged) /* 480 */ -#endif -#ifndef Tcl_EvalTokensStandard -#define Tcl_EvalTokensStandard \ - (tclStubsPtr->tcl_EvalTokensStandard) /* 481 */ -#endif -#ifndef Tcl_GetTime -#define Tcl_GetTime \ - (tclStubsPtr->tcl_GetTime) /* 482 */ -#endif -#ifndef Tcl_CreateObjTrace -#define Tcl_CreateObjTrace \ - (tclStubsPtr->tcl_CreateObjTrace) /* 483 */ -#endif -#ifndef Tcl_GetCommandInfoFromToken -#define Tcl_GetCommandInfoFromToken \ - (tclStubsPtr->tcl_GetCommandInfoFromToken) /* 484 */ -#endif -#ifndef Tcl_SetCommandInfoFromToken -#define Tcl_SetCommandInfoFromToken \ - (tclStubsPtr->tcl_SetCommandInfoFromToken) /* 485 */ -#endif -#ifndef Tcl_DbNewWideIntObj -#define Tcl_DbNewWideIntObj \ - (tclStubsPtr->tcl_DbNewWideIntObj) /* 486 */ -#endif -#ifndef Tcl_GetWideIntFromObj -#define Tcl_GetWideIntFromObj \ - (tclStubsPtr->tcl_GetWideIntFromObj) /* 487 */ -#endif -#ifndef Tcl_NewWideIntObj -#define Tcl_NewWideIntObj \ - (tclStubsPtr->tcl_NewWideIntObj) /* 488 */ -#endif -#ifndef Tcl_SetWideIntObj -#define Tcl_SetWideIntObj \ - (tclStubsPtr->tcl_SetWideIntObj) /* 489 */ -#endif -#ifndef Tcl_AllocStatBuf -#define Tcl_AllocStatBuf \ - (tclStubsPtr->tcl_AllocStatBuf) /* 490 */ -#endif -#ifndef Tcl_Seek -#define Tcl_Seek \ - (tclStubsPtr->tcl_Seek) /* 491 */ -#endif -#ifndef Tcl_Tell -#define Tcl_Tell \ - (tclStubsPtr->tcl_Tell) /* 492 */ -#endif -#ifndef Tcl_ChannelWideSeekProc -#define Tcl_ChannelWideSeekProc \ - (tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */ -#endif - -#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#endif /* _TCLDECLS */ - - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls.m b/Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls.m deleted file mode 100644 index bc3a0953890..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls.m +++ /dev/null @@ -1,538 +0,0 @@ -#ifndef _TCLDECLS_VM -#define _TCLDECLS_VM -#include "tclDecls_f.h" -#ifndef NO_VTABLES -#ifndef Tcl_AddErrorInfo -# define Tcl_AddErrorInfo (*TcldeclsVptr->V_Tcl_AddErrorInfo) -#endif - -#ifndef Tcl_AllowExceptions -# define Tcl_AllowExceptions (*TcldeclsVptr->V_Tcl_AllowExceptions) -#endif - -#ifndef Tcl_AppendElement -# define Tcl_AppendElement (*TcldeclsVptr->V_Tcl_AppendElement) -#endif - -#ifndef Tcl_AppendObjToObj -# define Tcl_AppendObjToObj (*TcldeclsVptr->V_Tcl_AppendObjToObj) -#endif - -#ifndef Tcl_AppendResult -# define Tcl_AppendResult (*TcldeclsVptr->V_Tcl_AppendResult) -#endif - -#ifndef Tcl_AppendStringsToObj -# define Tcl_AppendStringsToObj (*TcldeclsVptr->V_Tcl_AppendStringsToObj) -#endif - -#ifndef Tcl_AppendToObj -# define Tcl_AppendToObj (*TcldeclsVptr->V_Tcl_AppendToObj) -#endif - -#ifndef Tcl_BackgroundError -# define Tcl_BackgroundError (*TcldeclsVptr->V_Tcl_BackgroundError) -#endif - -#ifndef Tcl_CallWhenDeleted -# define Tcl_CallWhenDeleted (*TcldeclsVptr->V_Tcl_CallWhenDeleted) -#endif - -#ifndef Tcl_CancelIdleCall -# define Tcl_CancelIdleCall (*TcldeclsVptr->V_Tcl_CancelIdleCall) -#endif - -#ifndef Tcl_Close -# define Tcl_Close (*TcldeclsVptr->V_Tcl_Close) -#endif - -#ifndef Tcl_ConcatObj -# define Tcl_ConcatObj (*TcldeclsVptr->V_Tcl_ConcatObj) -#endif - -#ifndef Tcl_CreateEventSource -# define Tcl_CreateEventSource (*TcldeclsVptr->V_Tcl_CreateEventSource) -#endif - -#ifndef Tcl_CreateExitHandler -# define Tcl_CreateExitHandler (*TcldeclsVptr->V_Tcl_CreateExitHandler) -#endif - -#ifndef Tcl_CreateFileHandler -# define Tcl_CreateFileHandler (*TcldeclsVptr->V_Tcl_CreateFileHandler) -#endif - -#ifndef Tcl_CreateInterp -# define Tcl_CreateInterp (*TcldeclsVptr->V_Tcl_CreateInterp) -#endif - -#ifndef Tcl_CreateObjCommand -# define Tcl_CreateObjCommand (*TcldeclsVptr->V_Tcl_CreateObjCommand) -#endif - -#ifndef Tcl_CreateTimerHandler -# define Tcl_CreateTimerHandler (*TcldeclsVptr->V_Tcl_CreateTimerHandler) -#endif - -#ifndef Tcl_DStringAppend -# define Tcl_DStringAppend (*TcldeclsVptr->V_Tcl_DStringAppend) -#endif - -#ifndef Tcl_DStringAppendElement -# define Tcl_DStringAppendElement (*TcldeclsVptr->V_Tcl_DStringAppendElement) -#endif - -#ifndef Tcl_DStringFree -# define Tcl_DStringFree (*TcldeclsVptr->V_Tcl_DStringFree) -#endif - -#ifndef Tcl_DStringInit -# define Tcl_DStringInit (*TcldeclsVptr->V_Tcl_DStringInit) -#endif - -#ifndef Tcl_DStringResult -# define Tcl_DStringResult (*TcldeclsVptr->V_Tcl_DStringResult) -#endif - -#ifndef Tcl_DStringSetLength -# define Tcl_DStringSetLength (*TcldeclsVptr->V_Tcl_DStringSetLength) -#endif - -#ifndef Tcl_DeleteEventSource -# define Tcl_DeleteEventSource (*TcldeclsVptr->V_Tcl_DeleteEventSource) -#endif - -#ifndef Tcl_DeleteFileHandler -# define Tcl_DeleteFileHandler (*TcldeclsVptr->V_Tcl_DeleteFileHandler) -#endif - -#ifndef Tcl_DeleteHashEntry -# define Tcl_DeleteHashEntry (*TcldeclsVptr->V_Tcl_DeleteHashEntry) -#endif - -#ifndef Tcl_DeleteHashTable -# define Tcl_DeleteHashTable (*TcldeclsVptr->V_Tcl_DeleteHashTable) -#endif - -#ifndef Tcl_DeleteInterp -# define Tcl_DeleteInterp (*TcldeclsVptr->V_Tcl_DeleteInterp) -#endif - -#ifndef Tcl_DeleteTimerHandler -# define Tcl_DeleteTimerHandler (*TcldeclsVptr->V_Tcl_DeleteTimerHandler) -#endif - -#ifndef Tcl_DoOneEvent -# define Tcl_DoOneEvent (*TcldeclsVptr->V_Tcl_DoOneEvent) -#endif - -#ifndef Tcl_DoWhenIdle -# define Tcl_DoWhenIdle (*TcldeclsVptr->V_Tcl_DoWhenIdle) -#endif - -#ifndef Tcl_DuplicateObj -# define Tcl_DuplicateObj (*TcldeclsVptr->V_Tcl_DuplicateObj) -#endif - -#ifndef Tcl_Eof -# define Tcl_Eof (*TcldeclsVptr->V_Tcl_Eof) -#endif - -#ifndef Tcl_EvalObjEx -# define Tcl_EvalObjEx (*TcldeclsVptr->V_Tcl_EvalObjEx) -#endif - -#ifndef Tcl_EvalObjv -# define Tcl_EvalObjv (*TcldeclsVptr->V_Tcl_EvalObjv) -#endif - -#ifndef Tcl_EventuallyFree -# define Tcl_EventuallyFree (*TcldeclsVptr->V_Tcl_EventuallyFree) -#endif - -#ifndef Tcl_ExternalToUtf -# define Tcl_ExternalToUtf (*TcldeclsVptr->V_Tcl_ExternalToUtf) -#endif - -#ifndef Tcl_ExternalToUtfDString -# define Tcl_ExternalToUtfDString (*TcldeclsVptr->V_Tcl_ExternalToUtfDString) -#endif - -#ifndef Tcl_FirstHashEntry -# define Tcl_FirstHashEntry (*TcldeclsVptr->V_Tcl_FirstHashEntry) -#endif - -#ifndef Tcl_FreeEncoding -# define Tcl_FreeEncoding (*TcldeclsVptr->V_Tcl_FreeEncoding) -#endif - -#ifndef Tcl_GetAssocData -# define Tcl_GetAssocData (*TcldeclsVptr->V_Tcl_GetAssocData) -#endif - -#ifndef Tcl_GetBooleanFromObj -# define Tcl_GetBooleanFromObj (*TcldeclsVptr->V_Tcl_GetBooleanFromObj) -#endif - -#ifndef Tcl_GetChannel -# define Tcl_GetChannel (*TcldeclsVptr->V_Tcl_GetChannel) -#endif - -#ifndef Tcl_GetCommandInfo -# define Tcl_GetCommandInfo (*TcldeclsVptr->V_Tcl_GetCommandInfo) -#endif - -#ifndef Tcl_GetDouble -# define Tcl_GetDouble (*TcldeclsVptr->V_Tcl_GetDouble) -#endif - -#ifndef Tcl_GetDoubleFromObj -# define Tcl_GetDoubleFromObj (*TcldeclsVptr->V_Tcl_GetDoubleFromObj) -#endif - -#ifndef Tcl_GetEncoding -# define Tcl_GetEncoding (*TcldeclsVptr->V_Tcl_GetEncoding) -#endif - -#ifndef Tcl_GetEncodingName -# define Tcl_GetEncodingName (*TcldeclsVptr->V_Tcl_GetEncodingName) -#endif - -#ifndef Tcl_GetIndexFromObj -# define Tcl_GetIndexFromObj (*TcldeclsVptr->V_Tcl_GetIndexFromObj) -#endif - -#ifndef Tcl_GetInt -# define Tcl_GetInt (*TcldeclsVptr->V_Tcl_GetInt) -#endif - -#ifndef Tcl_GetIntFromObj -# define Tcl_GetIntFromObj (*TcldeclsVptr->V_Tcl_GetIntFromObj) -#endif - -#ifndef Tcl_GetLongFromObj -# define Tcl_GetLongFromObj (*TcldeclsVptr->V_Tcl_GetLongFromObj) -#endif - -#ifndef Tcl_GetObjResult -# define Tcl_GetObjResult (*TcldeclsVptr->V_Tcl_GetObjResult) -#endif - -#ifndef Tcl_GetObjType -# define Tcl_GetObjType (*TcldeclsVptr->V_Tcl_GetObjType) -#endif - -#ifndef Tcl_GetRegExpFromObj -# define Tcl_GetRegExpFromObj (*TcldeclsVptr->V_Tcl_GetRegExpFromObj) -#endif - -#ifndef Tcl_GetStdChannel -# define Tcl_GetStdChannel (*TcldeclsVptr->V_Tcl_GetStdChannel) -#endif - -#ifndef Tcl_GetString -# define Tcl_GetString (*TcldeclsVptr->V_Tcl_GetString) -#endif - -#ifndef Tcl_GetStringFromObj -# define Tcl_GetStringFromObj (*TcldeclsVptr->V_Tcl_GetStringFromObj) -#endif - -#ifndef Tcl_GetStringResult -# define Tcl_GetStringResult (*TcldeclsVptr->V_Tcl_GetStringResult) -#endif - -#ifndef Tcl_GetThreadData -# define Tcl_GetThreadData (*TcldeclsVptr->V_Tcl_GetThreadData) -#endif - -#ifndef Tcl_GetTime -# define Tcl_GetTime (*TcldeclsVptr->V_Tcl_GetTime) -#endif - -#ifndef Tcl_GetVar -# define Tcl_GetVar (*TcldeclsVptr->V_Tcl_GetVar) -#endif - -#ifndef Tcl_GetVar2 -# define Tcl_GetVar2 (*TcldeclsVptr->V_Tcl_GetVar2) -#endif - -#ifndef Tcl_GetVar2Ex -# define Tcl_GetVar2Ex (*TcldeclsVptr->V_Tcl_GetVar2Ex) -#endif - -#ifndef Tcl_GlobalEval -# define Tcl_GlobalEval (*TcldeclsVptr->V_Tcl_GlobalEval) -#endif - -#ifndef Tcl_HideCommand -# define Tcl_HideCommand (*TcldeclsVptr->V_Tcl_HideCommand) -#endif - -#ifndef Tcl_InitHashTable -# define Tcl_InitHashTable (*TcldeclsVptr->V_Tcl_InitHashTable) -#endif - -#ifndef Tcl_IsSafe -# define Tcl_IsSafe (*TcldeclsVptr->V_Tcl_IsSafe) -#endif - -#ifndef Tcl_LinkVar -# define Tcl_LinkVar (*TcldeclsVptr->V_Tcl_LinkVar) -#endif - -#ifndef Tcl_ListObjAppendElement -# define Tcl_ListObjAppendElement (*TcldeclsVptr->V_Tcl_ListObjAppendElement) -#endif - -#ifndef Tcl_ListObjGetElements -# define Tcl_ListObjGetElements (*TcldeclsVptr->V_Tcl_ListObjGetElements) -#endif - -#ifndef Tcl_ListObjIndex -# define Tcl_ListObjIndex (*TcldeclsVptr->V_Tcl_ListObjIndex) -#endif - -#ifndef Tcl_ListObjLength -# define Tcl_ListObjLength (*TcldeclsVptr->V_Tcl_ListObjLength) -#endif - -#ifndef Tcl_ListObjReplace -# define Tcl_ListObjReplace (*TcldeclsVptr->V_Tcl_ListObjReplace) -#endif - -#ifndef Tcl_NewBooleanObj -# define Tcl_NewBooleanObj (*TcldeclsVptr->V_Tcl_NewBooleanObj) -#endif - -#ifndef Tcl_NewDoubleObj -# define Tcl_NewDoubleObj (*TcldeclsVptr->V_Tcl_NewDoubleObj) -#endif - -#ifndef Tcl_NewIntObj -# define Tcl_NewIntObj (*TcldeclsVptr->V_Tcl_NewIntObj) -#endif - -#ifndef Tcl_NewListObj -# define Tcl_NewListObj (*TcldeclsVptr->V_Tcl_NewListObj) -#endif - -#ifndef Tcl_NewLongObj -# define Tcl_NewLongObj (*TcldeclsVptr->V_Tcl_NewLongObj) -#endif - -#ifndef Tcl_NewObj -# define Tcl_NewObj (*TcldeclsVptr->V_Tcl_NewObj) -#endif - -#ifndef Tcl_NewStringObj -# define Tcl_NewStringObj (*TcldeclsVptr->V_Tcl_NewStringObj) -#endif - -#ifndef Tcl_NextHashEntry -# define Tcl_NextHashEntry (*TcldeclsVptr->V_Tcl_NextHashEntry) -#endif - -#ifndef Tcl_NumUtfChars -# define Tcl_NumUtfChars (*TcldeclsVptr->V_Tcl_NumUtfChars) -#endif - -#ifndef Tcl_ObjGetVar2 -# define Tcl_ObjGetVar2 (*TcldeclsVptr->V_Tcl_ObjGetVar2) -#endif - -#ifndef Tcl_ObjSetVar2 -# define Tcl_ObjSetVar2 (*TcldeclsVptr->V_Tcl_ObjSetVar2) -#endif - -#ifndef Tcl_OpenFileChannel -# define Tcl_OpenFileChannel (*TcldeclsVptr->V_Tcl_OpenFileChannel) -#endif - -#ifndef Tcl_Panic -# define Tcl_Panic (*TcldeclsVptr->V_Tcl_Panic) -#endif - -#ifndef Tcl_PosixError -# define Tcl_PosixError (*TcldeclsVptr->V_Tcl_PosixError) -#endif - -#ifndef Tcl_Preserve -# define Tcl_Preserve (*TcldeclsVptr->V_Tcl_Preserve) -#endif - -#ifndef Tcl_Read -# define Tcl_Read (*TcldeclsVptr->V_Tcl_Read) -#endif - -#ifndef Tcl_RegExpExec -# define Tcl_RegExpExec (*TcldeclsVptr->V_Tcl_RegExpExec) -#endif - -#ifndef Tcl_RegExpRange -# define Tcl_RegExpRange (*TcldeclsVptr->V_Tcl_RegExpRange) -#endif - -#ifndef Tcl_Release -# define Tcl_Release (*TcldeclsVptr->V_Tcl_Release) -#endif - -#ifndef Tcl_ResetResult -# define Tcl_ResetResult (*TcldeclsVptr->V_Tcl_ResetResult) -#endif - -#ifndef Tcl_Seek -# define Tcl_Seek (*TcldeclsVptr->V_Tcl_Seek) -#endif - -#ifndef Tcl_ServiceEvent -# define Tcl_ServiceEvent (*TcldeclsVptr->V_Tcl_ServiceEvent) -#endif - -#ifndef Tcl_SetAssocData -# define Tcl_SetAssocData (*TcldeclsVptr->V_Tcl_SetAssocData) -#endif - -#ifndef Tcl_SetBooleanObj -# define Tcl_SetBooleanObj (*TcldeclsVptr->V_Tcl_SetBooleanObj) -#endif - -#ifndef Tcl_SetChannelOption -# define Tcl_SetChannelOption (*TcldeclsVptr->V_Tcl_SetChannelOption) -#endif - -#ifndef Tcl_SetCommandInfo -# define Tcl_SetCommandInfo (*TcldeclsVptr->V_Tcl_SetCommandInfo) -#endif - -#ifndef Tcl_SetDoubleObj -# define Tcl_SetDoubleObj (*TcldeclsVptr->V_Tcl_SetDoubleObj) -#endif - -#ifndef Tcl_SetIntObj -# define Tcl_SetIntObj (*TcldeclsVptr->V_Tcl_SetIntObj) -#endif - -#ifndef Tcl_SetListObj -# define Tcl_SetListObj (*TcldeclsVptr->V_Tcl_SetListObj) -#endif - -#ifndef Tcl_SetLongObj -# define Tcl_SetLongObj (*TcldeclsVptr->V_Tcl_SetLongObj) -#endif - -#ifndef Tcl_SetMaxBlockTime -# define Tcl_SetMaxBlockTime (*TcldeclsVptr->V_Tcl_SetMaxBlockTime) -#endif - -#ifndef Tcl_SetObjErrorCode -# define Tcl_SetObjErrorCode (*TcldeclsVptr->V_Tcl_SetObjErrorCode) -#endif - -#ifndef Tcl_SetObjResult -# define Tcl_SetObjResult (*TcldeclsVptr->V_Tcl_SetObjResult) -#endif - -#ifndef Tcl_SetResult -# define Tcl_SetResult (*TcldeclsVptr->V_Tcl_SetResult) -#endif - -#ifndef Tcl_SetStringObj -# define Tcl_SetStringObj (*TcldeclsVptr->V_Tcl_SetStringObj) -#endif - -#ifndef Tcl_SetVar -# define Tcl_SetVar (*TcldeclsVptr->V_Tcl_SetVar) -#endif - -#ifndef Tcl_Sleep -# define Tcl_Sleep (*TcldeclsVptr->V_Tcl_Sleep) -#endif - -#ifndef Tcl_StringMatch -# define Tcl_StringMatch (*TcldeclsVptr->V_Tcl_StringMatch) -#endif - -#ifndef Tcl_TranslateFileName -# define Tcl_TranslateFileName (*TcldeclsVptr->V_Tcl_TranslateFileName) -#endif - -#ifndef Tcl_UniCharIsAlpha -# define Tcl_UniCharIsAlpha (*TcldeclsVptr->V_Tcl_UniCharIsAlpha) -#endif - -#ifndef Tcl_UniCharIsSpace -# define Tcl_UniCharIsSpace (*TcldeclsVptr->V_Tcl_UniCharIsSpace) -#endif - -#ifndef Tcl_UniCharIsUpper -# define Tcl_UniCharIsUpper (*TcldeclsVptr->V_Tcl_UniCharIsUpper) -#endif - -#ifndef Tcl_UniCharIsWordChar -# define Tcl_UniCharIsWordChar (*TcldeclsVptr->V_Tcl_UniCharIsWordChar) -#endif - -#ifndef Tcl_UniCharToLower -# define Tcl_UniCharToLower (*TcldeclsVptr->V_Tcl_UniCharToLower) -#endif - -#ifndef Tcl_UniCharToUpper -# define Tcl_UniCharToUpper (*TcldeclsVptr->V_Tcl_UniCharToUpper) -#endif - -#ifndef Tcl_UniCharToUtf -# define Tcl_UniCharToUtf (*TcldeclsVptr->V_Tcl_UniCharToUtf) -#endif - -#ifndef Tcl_UnlinkVar -# define Tcl_UnlinkVar (*TcldeclsVptr->V_Tcl_UnlinkVar) -#endif - -#ifndef Tcl_UtfAtIndex -# define Tcl_UtfAtIndex (*TcldeclsVptr->V_Tcl_UtfAtIndex) -#endif - -#ifndef Tcl_UtfCharComplete -# define Tcl_UtfCharComplete (*TcldeclsVptr->V_Tcl_UtfCharComplete) -#endif - -#ifndef Tcl_UtfNext -# define Tcl_UtfNext (*TcldeclsVptr->V_Tcl_UtfNext) -#endif - -#ifndef Tcl_UtfPrev -# define Tcl_UtfPrev (*TcldeclsVptr->V_Tcl_UtfPrev) -#endif - -#ifndef Tcl_UtfToExternal -# define Tcl_UtfToExternal (*TcldeclsVptr->V_Tcl_UtfToExternal) -#endif - -#ifndef Tcl_UtfToExternalDString -# define Tcl_UtfToExternalDString (*TcldeclsVptr->V_Tcl_UtfToExternalDString) -#endif - -#ifndef Tcl_UtfToLower -# define Tcl_UtfToLower (*TcldeclsVptr->V_Tcl_UtfToLower) -#endif - -#ifndef Tcl_UtfToUniChar -# define Tcl_UtfToUniChar (*TcldeclsVptr->V_Tcl_UtfToUniChar) -#endif - -#ifndef Tcl_Write -# define Tcl_Write (*TcldeclsVptr->V_Tcl_Write) -#endif - -#ifndef Tcl_WriteChars -# define Tcl_WriteChars (*TcldeclsVptr->V_Tcl_WriteChars) -#endif - -#ifndef Tcl_WrongNumArgs -# define Tcl_WrongNumArgs (*TcldeclsVptr->V_Tcl_WrongNumArgs) -#endif - -#endif /* NO_VTABLES */ -#endif /* _TCLDECLS_VM */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls.t b/Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls.t deleted file mode 100644 index e54ecbb64ed..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls.t +++ /dev/null @@ -1,675 +0,0 @@ -#ifdef _TCLDECLS
-#ifndef Tcl_AddErrorInfo
-VFUNC(void,Tcl_AddErrorInfo,V_Tcl_AddErrorInfo,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * message)))
-#endif /* #ifndef Tcl_AddErrorInfo */
-
-#ifndef Tcl_AllowExceptions
-VFUNC(void,Tcl_AllowExceptions,V_Tcl_AllowExceptions,_ANSI_ARGS_((Tcl_Interp * interp)))
-#endif /* #ifndef Tcl_AllowExceptions */
-
-#ifndef Tcl_AppendElement
-VFUNC(void,Tcl_AppendElement,V_Tcl_AppendElement,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * string)))
-#endif /* #ifndef Tcl_AppendElement */
-
-#ifndef Tcl_AppendObjToObj
-VFUNC(void,Tcl_AppendObjToObj,V_Tcl_AppendObjToObj,_ANSI_ARGS_((Tcl_Obj * objPtr,
- Tcl_Obj * appendObjPtr)))
-#endif /* #ifndef Tcl_AppendObjToObj */
-
-#ifndef Tcl_AppendResult
-VFUNC(void,Tcl_AppendResult,V_Tcl_AppendResult,_ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)))
-#endif /* #ifndef Tcl_AppendResult */
-
-#ifndef Tcl_AppendStringsToObj
-VFUNC(void,Tcl_AppendStringsToObj,V_Tcl_AppendStringsToObj,_ANSI_ARGS_(TCL_VARARGS(Tcl_Obj *,objPtr)))
-#endif /* #ifndef Tcl_AppendStringsToObj */
-
-#ifndef Tcl_AppendToObj
-VFUNC(void,Tcl_AppendToObj,V_Tcl_AppendToObj,_ANSI_ARGS_((Tcl_Obj* objPtr,
- CONST char* bytes, int length)))
-#endif /* #ifndef Tcl_AppendToObj */
-
-#ifndef Tcl_BackgroundError
-VFUNC(void,Tcl_BackgroundError,V_Tcl_BackgroundError,_ANSI_ARGS_((Tcl_Interp * interp)))
-#endif /* #ifndef Tcl_BackgroundError */
-
-#ifndef Tcl_CallWhenDeleted
-VFUNC(void,Tcl_CallWhenDeleted,V_Tcl_CallWhenDeleted,_ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_InterpDeleteProc * proc,
- ClientData clientData)))
-#endif /* #ifndef Tcl_CallWhenDeleted */
-
-#ifndef Tcl_CancelIdleCall
-VFUNC(void,Tcl_CancelIdleCall,V_Tcl_CancelIdleCall,_ANSI_ARGS_((
- Tcl_IdleProc * idleProc,
- ClientData clientData)))
-#endif /* #ifndef Tcl_CancelIdleCall */
-
-#ifndef Tcl_Close
-VFUNC(int,Tcl_Close,V_Tcl_Close,_ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Channel chan)))
-#endif /* #ifndef Tcl_Close */
-
-#ifndef Tcl_ConcatObj
-VFUNC(Tcl_Obj *,Tcl_ConcatObj,V_Tcl_ConcatObj,_ANSI_ARGS_((int objc,
- Tcl_Obj *CONST objv[])))
-#endif /* #ifndef Tcl_ConcatObj */
-
-#ifndef Tcl_CreateEventSource
-VFUNC(void,Tcl_CreateEventSource,V_Tcl_CreateEventSource,_ANSI_ARGS_((
- Tcl_EventSetupProc * setupProc,
- Tcl_EventCheckProc * checkProc,
- ClientData clientData)))
-#endif /* #ifndef Tcl_CreateEventSource */
-
-#ifndef Tcl_CreateExitHandler
-VFUNC(void,Tcl_CreateExitHandler,V_Tcl_CreateExitHandler,_ANSI_ARGS_((
- Tcl_ExitProc * proc, ClientData clientData)))
-#endif /* #ifndef Tcl_CreateExitHandler */
-
-#ifndef Tcl_CreateFileHandler
-#if !defined(__WIN32__) && !defined(MAC_TCL)
-VFUNC(void,Tcl_CreateFileHandler,V_Tcl_CreateFileHandler,_ANSI_ARGS_((int fd, int mask,
- Tcl_FileProc * proc, ClientData clientData)))
-#endif /* #if !defined(__WIN32__) && !defined(MAC_TCL) */
-#endif /* #ifndef Tcl_CreateFileHandler */
-
-#ifndef Tcl_CreateInterp
-VFUNC(Tcl_Interp *,Tcl_CreateInterp,V_Tcl_CreateInterp,_ANSI_ARGS_((void)))
-#endif /* #ifndef Tcl_CreateInterp */
-
-#ifndef Tcl_CreateObjCommand
-VFUNC(Tcl_Command,Tcl_CreateObjCommand,V_Tcl_CreateObjCommand,_ANSI_ARGS_((
- Tcl_Interp * interp, CONST char * cmdName,
- Tcl_ObjCmdProc * proc, ClientData clientData,
- Tcl_CmdDeleteProc * deleteProc)))
-#endif /* #ifndef Tcl_CreateObjCommand */
-
-#ifndef Tcl_CreateTimerHandler
-VFUNC(Tcl_TimerToken,Tcl_CreateTimerHandler,V_Tcl_CreateTimerHandler,_ANSI_ARGS_((int milliseconds,
- Tcl_TimerProc * proc, ClientData clientData)))
-#endif /* #ifndef Tcl_CreateTimerHandler */
-
-#ifndef Tcl_DStringAppend
-VFUNC(char *,Tcl_DStringAppend,V_Tcl_DStringAppend,_ANSI_ARGS_((Tcl_DString * dsPtr,
- CONST char * str, int length)))
-#endif /* #ifndef Tcl_DStringAppend */
-
-#ifndef Tcl_DStringAppendElement
-VFUNC(char *,Tcl_DStringAppendElement,V_Tcl_DStringAppendElement,_ANSI_ARGS_((
- Tcl_DString * dsPtr, CONST char * string)))
-#endif /* #ifndef Tcl_DStringAppendElement */
-
-#ifndef Tcl_DStringFree
-VFUNC(void,Tcl_DStringFree,V_Tcl_DStringFree,_ANSI_ARGS_((Tcl_DString * dsPtr)))
-#endif /* #ifndef Tcl_DStringFree */
-
-#ifndef Tcl_DStringInit
-VFUNC(void,Tcl_DStringInit,V_Tcl_DStringInit,_ANSI_ARGS_((Tcl_DString * dsPtr)))
-#endif /* #ifndef Tcl_DStringInit */
-
-#ifndef Tcl_DStringResult
-VFUNC(void,Tcl_DStringResult,V_Tcl_DStringResult,_ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_DString * dsPtr)))
-#endif /* #ifndef Tcl_DStringResult */
-
-#ifndef Tcl_DStringSetLength
-VFUNC(void,Tcl_DStringSetLength,V_Tcl_DStringSetLength,_ANSI_ARGS_((
- Tcl_DString * dsPtr, int length)))
-#endif /* #ifndef Tcl_DStringSetLength */
-
-#ifndef Tcl_DeleteEventSource
-VFUNC(void,Tcl_DeleteEventSource,V_Tcl_DeleteEventSource,_ANSI_ARGS_((
- Tcl_EventSetupProc * setupProc,
- Tcl_EventCheckProc * checkProc,
- ClientData clientData)))
-#endif /* #ifndef Tcl_DeleteEventSource */
-
-#ifndef Tcl_DeleteFileHandler
-#if !defined(__WIN32__) && !defined(MAC_TCL)
-VFUNC(void,Tcl_DeleteFileHandler,V_Tcl_DeleteFileHandler,_ANSI_ARGS_((int fd)))
-#endif /* #if !defined(__WIN32__) && !defined(MAC_TCL) */
-#endif /* #ifndef Tcl_DeleteFileHandler */
-
-#ifndef Tcl_DeleteHashEntry
-VFUNC(void,Tcl_DeleteHashEntry,V_Tcl_DeleteHashEntry,_ANSI_ARGS_((
- Tcl_HashEntry * entryPtr)))
-#endif /* #ifndef Tcl_DeleteHashEntry */
-
-#ifndef Tcl_DeleteHashTable
-VFUNC(void,Tcl_DeleteHashTable,V_Tcl_DeleteHashTable,_ANSI_ARGS_((
- Tcl_HashTable * tablePtr)))
-#endif /* #ifndef Tcl_DeleteHashTable */
-
-#ifndef Tcl_DeleteInterp
-VFUNC(void,Tcl_DeleteInterp,V_Tcl_DeleteInterp,_ANSI_ARGS_((Tcl_Interp * interp)))
-#endif /* #ifndef Tcl_DeleteInterp */
-
-#ifndef Tcl_DeleteTimerHandler
-VFUNC(void,Tcl_DeleteTimerHandler,V_Tcl_DeleteTimerHandler,_ANSI_ARGS_((
- Tcl_TimerToken token)))
-#endif /* #ifndef Tcl_DeleteTimerHandler */
-
-#ifndef Tcl_DoOneEvent
-VFUNC(int,Tcl_DoOneEvent,V_Tcl_DoOneEvent,_ANSI_ARGS_((int flags)))
-#endif /* #ifndef Tcl_DoOneEvent */
-
-#ifndef Tcl_DoWhenIdle
-VFUNC(void,Tcl_DoWhenIdle,V_Tcl_DoWhenIdle,_ANSI_ARGS_((Tcl_IdleProc * proc,
- ClientData clientData)))
-#endif /* #ifndef Tcl_DoWhenIdle */
-
-#ifndef Tcl_DuplicateObj
-VFUNC(Tcl_Obj *,Tcl_DuplicateObj,V_Tcl_DuplicateObj,_ANSI_ARGS_((Tcl_Obj * objPtr)))
-#endif /* #ifndef Tcl_DuplicateObj */
-
-#ifndef Tcl_Eof
-VFUNC(int,Tcl_Eof,V_Tcl_Eof,_ANSI_ARGS_((Tcl_Channel chan)))
-#endif /* #ifndef Tcl_Eof */
-
-#ifndef Tcl_EvalObjEx
-VFUNC(int,Tcl_EvalObjEx,V_Tcl_EvalObjEx,_ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Obj * objPtr, int flags)))
-#endif /* #ifndef Tcl_EvalObjEx */
-
-#ifndef Tcl_EvalObjv
-VFUNC(int,Tcl_EvalObjv,V_Tcl_EvalObjv,_ANSI_ARGS_((Tcl_Interp * interp,
- int objc, Tcl_Obj *CONST objv[], int flags)))
-#endif /* #ifndef Tcl_EvalObjv */
-
-#ifndef Tcl_EventuallyFree
-VFUNC(void,Tcl_EventuallyFree,V_Tcl_EventuallyFree,_ANSI_ARGS_((
- ClientData clientData,
- Tcl_FreeProc * freeProc)))
-#endif /* #ifndef Tcl_EventuallyFree */
-
-#ifndef Tcl_ExternalToUtf
-VFUNC(int,Tcl_ExternalToUtf,V_Tcl_ExternalToUtf,_ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Encoding encoding, CONST char * src,
- int srcLen, int flags,
- Tcl_EncodingState * statePtr, char * dst,
- int dstLen, int * srcReadPtr,
- int * dstWrotePtr, int * dstCharsPtr)))
-#endif /* #ifndef Tcl_ExternalToUtf */
-
-#ifndef Tcl_ExternalToUtfDString
-VFUNC(char *,Tcl_ExternalToUtfDString,V_Tcl_ExternalToUtfDString,_ANSI_ARGS_((
- Tcl_Encoding encoding, CONST char * src,
- int srcLen, Tcl_DString * dsPtr)))
-#endif /* #ifndef Tcl_ExternalToUtfDString */
-
-#ifndef Tcl_FirstHashEntry
-VFUNC(Tcl_HashEntry *,Tcl_FirstHashEntry,V_Tcl_FirstHashEntry,_ANSI_ARGS_((
- Tcl_HashTable * tablePtr,
- Tcl_HashSearch * searchPtr)))
-#endif /* #ifndef Tcl_FirstHashEntry */
-
-#ifndef Tcl_FreeEncoding
-VFUNC(void,Tcl_FreeEncoding,V_Tcl_FreeEncoding,_ANSI_ARGS_((Tcl_Encoding encoding)))
-#endif /* #ifndef Tcl_FreeEncoding */
-
-#ifndef Tcl_GetAssocData
-VFUNC(ClientData,Tcl_GetAssocData,V_Tcl_GetAssocData,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * name,
- Tcl_InterpDeleteProc ** procPtr)))
-#endif /* #ifndef Tcl_GetAssocData */
-
-#ifndef Tcl_GetBooleanFromObj
-VFUNC(int,Tcl_GetBooleanFromObj,V_Tcl_GetBooleanFromObj,_ANSI_ARGS_((
- Tcl_Interp * interp, Tcl_Obj * objPtr,
- int * boolPtr)))
-#endif /* #ifndef Tcl_GetBooleanFromObj */
-
-#ifndef Tcl_GetChannel
-VFUNC(Tcl_Channel,Tcl_GetChannel,V_Tcl_GetChannel,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * chanName, int * modePtr)))
-#endif /* #ifndef Tcl_GetChannel */
-
-#ifndef Tcl_GetCommandInfo
-VFUNC(int,Tcl_GetCommandInfo,V_Tcl_GetCommandInfo,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * cmdName, Tcl_CmdInfo * infoPtr)))
-#endif /* #ifndef Tcl_GetCommandInfo */
-
-#ifndef Tcl_GetDouble
-VFUNC(int,Tcl_GetDouble,V_Tcl_GetDouble,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * str, double * doublePtr)))
-#endif /* #ifndef Tcl_GetDouble */
-
-#ifndef Tcl_GetDoubleFromObj
-VFUNC(int,Tcl_GetDoubleFromObj,V_Tcl_GetDoubleFromObj,_ANSI_ARGS_((
- Tcl_Interp * interp, Tcl_Obj * objPtr,
- double * doublePtr)))
-#endif /* #ifndef Tcl_GetDoubleFromObj */
-
-#ifndef Tcl_GetEncoding
-VFUNC(Tcl_Encoding,Tcl_GetEncoding,V_Tcl_GetEncoding,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * name)))
-#endif /* #ifndef Tcl_GetEncoding */
-
-#ifndef Tcl_GetEncodingName
-VFUNC(CONST84_RETURN char *,Tcl_GetEncodingName,V_Tcl_GetEncodingName,_ANSI_ARGS_((
- Tcl_Encoding encoding)))
-#endif /* #ifndef Tcl_GetEncodingName */
-
-#ifndef Tcl_GetIndexFromObj
-VFUNC(int,Tcl_GetIndexFromObj,V_Tcl_GetIndexFromObj,_ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Obj * objPtr, CONST char ** tablePtr,
- CONST char * msg, int flags, int * indexPtr)))
-#endif /* #ifndef Tcl_GetIndexFromObj */
-
-#ifndef Tcl_GetInt
-VFUNC(int,Tcl_GetInt,V_Tcl_GetInt,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * str, int * intPtr)))
-#endif /* #ifndef Tcl_GetInt */
-
-#ifndef Tcl_GetIntFromObj
-VFUNC(int,Tcl_GetIntFromObj,V_Tcl_GetIntFromObj,_ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Obj * objPtr, int * intPtr)))
-#endif /* #ifndef Tcl_GetIntFromObj */
-
-#ifndef Tcl_GetLongFromObj
-VFUNC(int,Tcl_GetLongFromObj,V_Tcl_GetLongFromObj,_ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Obj * objPtr, long * longPtr)))
-#endif /* #ifndef Tcl_GetLongFromObj */
-
-#ifndef Tcl_GetObjResult
-VFUNC(Tcl_Obj *,Tcl_GetObjResult,V_Tcl_GetObjResult,_ANSI_ARGS_((Tcl_Interp * interp)))
-#endif /* #ifndef Tcl_GetObjResult */
-
-#ifndef Tcl_GetObjType
-VFUNC(Tcl_ObjType *,Tcl_GetObjType,V_Tcl_GetObjType,_ANSI_ARGS_((CONST char * typeName)))
-#endif /* #ifndef Tcl_GetObjType */
-
-#ifndef Tcl_GetRegExpFromObj
-VFUNC(Tcl_RegExp,Tcl_GetRegExpFromObj,V_Tcl_GetRegExpFromObj,_ANSI_ARGS_((
- Tcl_Interp * interp, Tcl_Obj * patObj,
- int flags)))
-#endif /* #ifndef Tcl_GetRegExpFromObj */
-
-#ifndef Tcl_GetStdChannel
-VFUNC(Tcl_Channel,Tcl_GetStdChannel,V_Tcl_GetStdChannel,_ANSI_ARGS_((int type)))
-#endif /* #ifndef Tcl_GetStdChannel */
-
-#ifndef Tcl_GetString
-VFUNC(char *,Tcl_GetString,V_Tcl_GetString,_ANSI_ARGS_((Tcl_Obj * objPtr)))
-#endif /* #ifndef Tcl_GetString */
-
-#ifndef Tcl_GetStringFromObj
-VFUNC(char *,Tcl_GetStringFromObj,V_Tcl_GetStringFromObj,_ANSI_ARGS_((Tcl_Obj * objPtr,
- int * lengthPtr)))
-#endif /* #ifndef Tcl_GetStringFromObj */
-
-#ifndef Tcl_GetStringResult
-VFUNC(CONST84_RETURN char *,Tcl_GetStringResult,V_Tcl_GetStringResult,_ANSI_ARGS_((
- Tcl_Interp * interp)))
-#endif /* #ifndef Tcl_GetStringResult */
-
-#ifndef Tcl_GetThreadData
-VFUNC(VOID *,Tcl_GetThreadData,V_Tcl_GetThreadData,_ANSI_ARGS_((
- Tcl_ThreadDataKey * keyPtr, int size)))
-#endif /* #ifndef Tcl_GetThreadData */
-
-#ifndef Tcl_GetTime
-VFUNC(void,Tcl_GetTime,V_Tcl_GetTime,_ANSI_ARGS_((Tcl_Time* timeBuf)))
-#endif /* #ifndef Tcl_GetTime */
-
-#ifndef Tcl_GetVar
-VFUNC(CONST84_RETURN char *,Tcl_GetVar,V_Tcl_GetVar,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * varName, int flags)))
-#endif /* #ifndef Tcl_GetVar */
-
-#ifndef Tcl_GetVar2
-VFUNC(CONST84_RETURN char *,Tcl_GetVar2,V_Tcl_GetVar2,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * part1, CONST char * part2,
- int flags)))
-#endif /* #ifndef Tcl_GetVar2 */
-
-#ifndef Tcl_GetVar2Ex
-VFUNC(Tcl_Obj *,Tcl_GetVar2Ex,V_Tcl_GetVar2Ex,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * part1, CONST char * part2,
- int flags)))
-#endif /* #ifndef Tcl_GetVar2Ex */
-
-#ifndef Tcl_GlobalEval
-VFUNC(int,Tcl_GlobalEval,V_Tcl_GlobalEval,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * command)))
-#endif /* #ifndef Tcl_GlobalEval */
-
-#ifndef Tcl_HideCommand
-VFUNC(int,Tcl_HideCommand,V_Tcl_HideCommand,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * cmdName,
- CONST char * hiddenCmdToken)))
-#endif /* #ifndef Tcl_HideCommand */
-
-#ifndef Tcl_InitHashTable
-VFUNC(void,Tcl_InitHashTable,V_Tcl_InitHashTable,_ANSI_ARGS_((
- Tcl_HashTable * tablePtr, int keyType)))
-#endif /* #ifndef Tcl_InitHashTable */
-
-#ifndef Tcl_IsSafe
-VFUNC(int,Tcl_IsSafe,V_Tcl_IsSafe,_ANSI_ARGS_((Tcl_Interp * interp)))
-#endif /* #ifndef Tcl_IsSafe */
-
-#ifndef Tcl_LinkVar
-VFUNC(int,Tcl_LinkVar,V_Tcl_LinkVar,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * varName, char * addr, int type)))
-#endif /* #ifndef Tcl_LinkVar */
-
-#ifndef Tcl_ListObjAppendElement
-VFUNC(int,Tcl_ListObjAppendElement,V_Tcl_ListObjAppendElement,_ANSI_ARGS_((
- Tcl_Interp * interp, Tcl_Obj * listPtr,
- Tcl_Obj * objPtr)))
-#endif /* #ifndef Tcl_ListObjAppendElement */
-
-#ifndef Tcl_ListObjGetElements
-VFUNC(int,Tcl_ListObjGetElements,V_Tcl_ListObjGetElements,_ANSI_ARGS_((
- Tcl_Interp * interp, Tcl_Obj * listPtr,
- int * objcPtr, Tcl_Obj *** objvPtr)))
-#endif /* #ifndef Tcl_ListObjGetElements */
-
-#ifndef Tcl_ListObjIndex
-VFUNC(int,Tcl_ListObjIndex,V_Tcl_ListObjIndex,_ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Obj * listPtr, int index,
- Tcl_Obj ** objPtrPtr)))
-#endif /* #ifndef Tcl_ListObjIndex */
-
-#ifndef Tcl_ListObjLength
-VFUNC(int,Tcl_ListObjLength,V_Tcl_ListObjLength,_ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Obj * listPtr, int * lengthPtr)))
-#endif /* #ifndef Tcl_ListObjLength */
-
-#ifndef Tcl_ListObjReplace
-VFUNC(int,Tcl_ListObjReplace,V_Tcl_ListObjReplace,_ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Obj * listPtr, int first, int count,
- int objc, Tcl_Obj *CONST objv[])))
-#endif /* #ifndef Tcl_ListObjReplace */
-
-#ifndef Tcl_NewBooleanObj
-VFUNC(Tcl_Obj *,Tcl_NewBooleanObj,V_Tcl_NewBooleanObj,_ANSI_ARGS_((int boolValue)))
-#endif /* #ifndef Tcl_NewBooleanObj */
-
-#ifndef Tcl_NewDoubleObj
-VFUNC(Tcl_Obj *,Tcl_NewDoubleObj,V_Tcl_NewDoubleObj,_ANSI_ARGS_((double doubleValue)))
-#endif /* #ifndef Tcl_NewDoubleObj */
-
-#ifndef Tcl_NewIntObj
-VFUNC(Tcl_Obj *,Tcl_NewIntObj,V_Tcl_NewIntObj,_ANSI_ARGS_((int intValue)))
-#endif /* #ifndef Tcl_NewIntObj */
-
-#ifndef Tcl_NewListObj
-VFUNC(Tcl_Obj *,Tcl_NewListObj,V_Tcl_NewListObj,_ANSI_ARGS_((int objc,
- Tcl_Obj *CONST objv[])))
-#endif /* #ifndef Tcl_NewListObj */
-
-#ifndef Tcl_NewLongObj
-VFUNC(Tcl_Obj *,Tcl_NewLongObj,V_Tcl_NewLongObj,_ANSI_ARGS_((long longValue)))
-#endif /* #ifndef Tcl_NewLongObj */
-
-#ifndef Tcl_NewObj
-VFUNC(Tcl_Obj *,Tcl_NewObj,V_Tcl_NewObj,_ANSI_ARGS_((void)))
-#endif /* #ifndef Tcl_NewObj */
-
-#ifndef Tcl_NewStringObj
-VFUNC(Tcl_Obj *,Tcl_NewStringObj,V_Tcl_NewStringObj,_ANSI_ARGS_((CONST char * bytes,
- int length)))
-#endif /* #ifndef Tcl_NewStringObj */
-
-#ifndef Tcl_NextHashEntry
-VFUNC(Tcl_HashEntry *,Tcl_NextHashEntry,V_Tcl_NextHashEntry,_ANSI_ARGS_((
- Tcl_HashSearch * searchPtr)))
-#endif /* #ifndef Tcl_NextHashEntry */
-
-#ifndef Tcl_NumUtfChars
-VFUNC(int,Tcl_NumUtfChars,V_Tcl_NumUtfChars,_ANSI_ARGS_((CONST char * src,
- int len)))
-#endif /* #ifndef Tcl_NumUtfChars */
-
-#ifndef Tcl_ObjGetVar2
-VFUNC(Tcl_Obj *,Tcl_ObjGetVar2,V_Tcl_ObjGetVar2,_ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr,
- int flags)))
-#endif /* #ifndef Tcl_ObjGetVar2 */
-
-#ifndef Tcl_ObjSetVar2
-VFUNC(Tcl_Obj *,Tcl_ObjSetVar2,V_Tcl_ObjSetVar2,_ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr,
- Tcl_Obj * newValuePtr, int flags)))
-#endif /* #ifndef Tcl_ObjSetVar2 */
-
-#ifndef Tcl_OpenFileChannel
-VFUNC(Tcl_Channel,Tcl_OpenFileChannel,V_Tcl_OpenFileChannel,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * fileName,
- CONST char * modeString, int permissions)))
-#endif /* #ifndef Tcl_OpenFileChannel */
-
-#ifndef Tcl_Panic
-VFUNC(void,Tcl_Panic,V_Tcl_Panic,_ANSI_ARGS_(TCL_VARARGS(CONST char *,format)))
-#endif /* #ifndef Tcl_Panic */
-
-#ifndef Tcl_PosixError
-VFUNC(CONST84_RETURN char *,Tcl_PosixError,V_Tcl_PosixError,_ANSI_ARGS_((Tcl_Interp * interp)))
-#endif /* #ifndef Tcl_PosixError */
-
-#ifndef Tcl_Preserve
-VFUNC(void,Tcl_Preserve,V_Tcl_Preserve,_ANSI_ARGS_((ClientData data)))
-#endif /* #ifndef Tcl_Preserve */
-
-#ifndef Tcl_Read
-VFUNC(int,Tcl_Read,V_Tcl_Read,_ANSI_ARGS_((Tcl_Channel chan,
- char * bufPtr, int toRead)))
-#endif /* #ifndef Tcl_Read */
-
-#ifndef Tcl_RegExpExec
-VFUNC(int,Tcl_RegExpExec,V_Tcl_RegExpExec,_ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_RegExp regexp, CONST char * str,
- CONST char * start)))
-#endif /* #ifndef Tcl_RegExpExec */
-
-#ifndef Tcl_RegExpRange
-VFUNC(void,Tcl_RegExpRange,V_Tcl_RegExpRange,_ANSI_ARGS_((Tcl_RegExp regexp,
- int index, CONST84 char ** startPtr,
- CONST84 char ** endPtr)))
-#endif /* #ifndef Tcl_RegExpRange */
-
-#ifndef Tcl_Release
-VFUNC(void,Tcl_Release,V_Tcl_Release,_ANSI_ARGS_((ClientData clientData)))
-#endif /* #ifndef Tcl_Release */
-
-#ifndef Tcl_ResetResult
-VFUNC(void,Tcl_ResetResult,V_Tcl_ResetResult,_ANSI_ARGS_((Tcl_Interp * interp)))
-#endif /* #ifndef Tcl_ResetResult */
-
-#ifndef Tcl_Seek
-VFUNC(Tcl_WideInt,Tcl_Seek,V_Tcl_Seek,_ANSI_ARGS_((Tcl_Channel chan,
- Tcl_WideInt offset, int mode)))
-#endif /* #ifndef Tcl_Seek */
-
-#ifndef Tcl_ServiceEvent
-VFUNC(int,Tcl_ServiceEvent,V_Tcl_ServiceEvent,_ANSI_ARGS_((int flags)))
-#endif /* #ifndef Tcl_ServiceEvent */
-
-#ifndef Tcl_SetAssocData
-VFUNC(void,Tcl_SetAssocData,V_Tcl_SetAssocData,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * name,
- Tcl_InterpDeleteProc * proc,
- ClientData clientData)))
-#endif /* #ifndef Tcl_SetAssocData */
-
-#ifndef Tcl_SetBooleanObj
-VFUNC(void,Tcl_SetBooleanObj,V_Tcl_SetBooleanObj,_ANSI_ARGS_((Tcl_Obj * objPtr,
- int boolValue)))
-#endif /* #ifndef Tcl_SetBooleanObj */
-
-#ifndef Tcl_SetChannelOption
-VFUNC(int,Tcl_SetChannelOption,V_Tcl_SetChannelOption,_ANSI_ARGS_((
- Tcl_Interp * interp, Tcl_Channel chan,
- CONST char * optionName,
- CONST char * newValue)))
-#endif /* #ifndef Tcl_SetChannelOption */
-
-#ifndef Tcl_SetCommandInfo
-VFUNC(int,Tcl_SetCommandInfo,V_Tcl_SetCommandInfo,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * cmdName,
- CONST Tcl_CmdInfo * infoPtr)))
-#endif /* #ifndef Tcl_SetCommandInfo */
-
-#ifndef Tcl_SetDoubleObj
-VFUNC(void,Tcl_SetDoubleObj,V_Tcl_SetDoubleObj,_ANSI_ARGS_((Tcl_Obj * objPtr,
- double doubleValue)))
-#endif /* #ifndef Tcl_SetDoubleObj */
-
-#ifndef Tcl_SetIntObj
-VFUNC(void,Tcl_SetIntObj,V_Tcl_SetIntObj,_ANSI_ARGS_((Tcl_Obj * objPtr,
- int intValue)))
-#endif /* #ifndef Tcl_SetIntObj */
-
-#ifndef Tcl_SetListObj
-VFUNC(void,Tcl_SetListObj,V_Tcl_SetListObj,_ANSI_ARGS_((Tcl_Obj * objPtr,
- int objc, Tcl_Obj *CONST objv[])))
-#endif /* #ifndef Tcl_SetListObj */
-
-#ifndef Tcl_SetLongObj
-VFUNC(void,Tcl_SetLongObj,V_Tcl_SetLongObj,_ANSI_ARGS_((Tcl_Obj * objPtr,
- long longValue)))
-#endif /* #ifndef Tcl_SetLongObj */
-
-#ifndef Tcl_SetMaxBlockTime
-VFUNC(void,Tcl_SetMaxBlockTime,V_Tcl_SetMaxBlockTime,_ANSI_ARGS_((Tcl_Time * timePtr)))
-#endif /* #ifndef Tcl_SetMaxBlockTime */
-
-#ifndef Tcl_SetObjErrorCode
-VFUNC(void,Tcl_SetObjErrorCode,V_Tcl_SetObjErrorCode,_ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Obj * errorObjPtr)))
-#endif /* #ifndef Tcl_SetObjErrorCode */
-
-#ifndef Tcl_SetObjResult
-VFUNC(void,Tcl_SetObjResult,V_Tcl_SetObjResult,_ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Obj * resultObjPtr)))
-#endif /* #ifndef Tcl_SetObjResult */
-
-#ifndef Tcl_SetResult
-VFUNC(void,Tcl_SetResult,V_Tcl_SetResult,_ANSI_ARGS_((Tcl_Interp * interp,
- char * str, Tcl_FreeProc * freeProc)))
-#endif /* #ifndef Tcl_SetResult */
-
-#ifndef Tcl_SetStringObj
-VFUNC(void,Tcl_SetStringObj,V_Tcl_SetStringObj,_ANSI_ARGS_((Tcl_Obj* objPtr,
- CONST char* bytes, int length)))
-#endif /* #ifndef Tcl_SetStringObj */
-
-#ifndef Tcl_SetVar
-VFUNC(CONST84_RETURN char *,Tcl_SetVar,V_Tcl_SetVar,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * varName, CONST char * newValue,
- int flags)))
-#endif /* #ifndef Tcl_SetVar */
-
-#ifndef Tcl_Sleep
-VFUNC(void,Tcl_Sleep,V_Tcl_Sleep,_ANSI_ARGS_((int ms)))
-#endif /* #ifndef Tcl_Sleep */
-
-#ifndef Tcl_StringMatch
-VFUNC(int,Tcl_StringMatch,V_Tcl_StringMatch,_ANSI_ARGS_((CONST char * str,
- CONST char * pattern)))
-#endif /* #ifndef Tcl_StringMatch */
-
-#ifndef Tcl_TranslateFileName
-VFUNC(char *,Tcl_TranslateFileName,V_Tcl_TranslateFileName,_ANSI_ARGS_((
- Tcl_Interp * interp, CONST char * name,
- Tcl_DString * bufferPtr)))
-#endif /* #ifndef Tcl_TranslateFileName */
-
-#ifndef Tcl_UniCharIsAlpha
-VFUNC(int,Tcl_UniCharIsAlpha,V_Tcl_UniCharIsAlpha,_ANSI_ARGS_((int ch)))
-#endif /* #ifndef Tcl_UniCharIsAlpha */
-
-#ifndef Tcl_UniCharIsSpace
-VFUNC(int,Tcl_UniCharIsSpace,V_Tcl_UniCharIsSpace,_ANSI_ARGS_((int ch)))
-#endif /* #ifndef Tcl_UniCharIsSpace */
-
-#ifndef Tcl_UniCharIsUpper
-VFUNC(int,Tcl_UniCharIsUpper,V_Tcl_UniCharIsUpper,_ANSI_ARGS_((int ch)))
-#endif /* #ifndef Tcl_UniCharIsUpper */
-
-#ifndef Tcl_UniCharIsWordChar
-VFUNC(int,Tcl_UniCharIsWordChar,V_Tcl_UniCharIsWordChar,_ANSI_ARGS_((int ch)))
-#endif /* #ifndef Tcl_UniCharIsWordChar */
-
-#ifndef Tcl_UniCharToLower
-VFUNC(Tcl_UniChar,Tcl_UniCharToLower,V_Tcl_UniCharToLower,_ANSI_ARGS_((int ch)))
-#endif /* #ifndef Tcl_UniCharToLower */
-
-#ifndef Tcl_UniCharToUpper
-VFUNC(Tcl_UniChar,Tcl_UniCharToUpper,V_Tcl_UniCharToUpper,_ANSI_ARGS_((int ch)))
-#endif /* #ifndef Tcl_UniCharToUpper */
-
-#ifndef Tcl_UniCharToUtf
-VFUNC(int,Tcl_UniCharToUtf,V_Tcl_UniCharToUtf,_ANSI_ARGS_((int ch, char * buf)))
-#endif /* #ifndef Tcl_UniCharToUtf */
-
-#ifndef Tcl_UnlinkVar
-VFUNC(void,Tcl_UnlinkVar,V_Tcl_UnlinkVar,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * varName)))
-#endif /* #ifndef Tcl_UnlinkVar */
-
-#ifndef Tcl_UtfAtIndex
-VFUNC(CONST84_RETURN char *,Tcl_UtfAtIndex,V_Tcl_UtfAtIndex,_ANSI_ARGS_((CONST char * src,
- int index)))
-#endif /* #ifndef Tcl_UtfAtIndex */
-
-#ifndef Tcl_UtfCharComplete
-VFUNC(int,Tcl_UtfCharComplete,V_Tcl_UtfCharComplete,_ANSI_ARGS_((CONST char * src,
- int len)))
-#endif /* #ifndef Tcl_UtfCharComplete */
-
-#ifndef Tcl_UtfNext
-VFUNC(CONST84_RETURN char *,Tcl_UtfNext,V_Tcl_UtfNext,_ANSI_ARGS_((CONST char * src)))
-#endif /* #ifndef Tcl_UtfNext */
-
-#ifndef Tcl_UtfPrev
-VFUNC(CONST84_RETURN char *,Tcl_UtfPrev,V_Tcl_UtfPrev,_ANSI_ARGS_((CONST char * src,
- CONST char * start)))
-#endif /* #ifndef Tcl_UtfPrev */
-
-#ifndef Tcl_UtfToExternal
-VFUNC(int,Tcl_UtfToExternal,V_Tcl_UtfToExternal,_ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Encoding encoding, CONST char * src,
- int srcLen, int flags,
- Tcl_EncodingState * statePtr, char * dst,
- int dstLen, int * srcReadPtr,
- int * dstWrotePtr, int * dstCharsPtr)))
-#endif /* #ifndef Tcl_UtfToExternal */
-
-#ifndef Tcl_UtfToExternalDString
-VFUNC(char *,Tcl_UtfToExternalDString,V_Tcl_UtfToExternalDString,_ANSI_ARGS_((
- Tcl_Encoding encoding, CONST char * src,
- int srcLen, Tcl_DString * dsPtr)))
-#endif /* #ifndef Tcl_UtfToExternalDString */
-
-#ifndef Tcl_UtfToLower
-VFUNC(int,Tcl_UtfToLower,V_Tcl_UtfToLower,_ANSI_ARGS_((char * src)))
-#endif /* #ifndef Tcl_UtfToLower */
-
-#ifndef Tcl_UtfToUniChar
-VFUNC(int,Tcl_UtfToUniChar,V_Tcl_UtfToUniChar,_ANSI_ARGS_((CONST char * src,
- Tcl_UniChar * chPtr)))
-#endif /* #ifndef Tcl_UtfToUniChar */
-
-#ifndef Tcl_Write
-VFUNC(int,Tcl_Write,V_Tcl_Write,_ANSI_ARGS_((Tcl_Channel chan,
- CONST char * s, int slen)))
-#endif /* #ifndef Tcl_Write */
-
-#ifndef Tcl_WriteChars
-VFUNC(int,Tcl_WriteChars,V_Tcl_WriteChars,_ANSI_ARGS_((Tcl_Channel chan,
- CONST char * src, int srcLen)))
-#endif /* #ifndef Tcl_WriteChars */
-
-#ifndef Tcl_WrongNumArgs
-VFUNC(void,Tcl_WrongNumArgs,V_Tcl_WrongNumArgs,_ANSI_ARGS_((Tcl_Interp * interp,
- int objc, Tcl_Obj *CONST objv[],
- CONST char * message)))
-#endif /* #ifndef Tcl_WrongNumArgs */
-
-#endif /* _TCLDECLS */
diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls_f.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls_f.h deleted file mode 100644 index b150c471937..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls_f.h +++ /dev/null @@ -1,14 +0,0 @@ -#ifndef TCLDECLS_VT -#define TCLDECLS_VT -typedef struct TcldeclsVtab -{ - unsigned (*tabSize)(void); -#define VFUNC(type,name,mem,args) type (*mem) args; -#define VVAR(type,name,mem) type (*mem); -#include "tclDecls.t" -#undef VFUNC -#undef VVAR -} TcldeclsVtab; -extern TcldeclsVtab *TcldeclsVptr; -extern TcldeclsVtab *TcldeclsVGet(void); -#endif /* TCLDECLS_VT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tclIntDecls.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tclIntDecls.h deleted file mode 100644 index 4e3c6afd400..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tclIntDecls.h +++ /dev/null @@ -1,1324 +0,0 @@ -/* - * tclIntDecls.h -- - * - * This file contains the declarations for all unsupported - * functions that are exported by the Tcl library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tclIntDecls.h,v 1.49 2003/02/18 02:25:45 hobbs Exp $ - */ - -#ifndef _TCLINTDECLS -#define _TCLINTDECLS - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tclInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -/* - * Exported function declarations: - */ - -/* Slot 0 is reserved */ -/* 1 */ -EXTERN int TclAccessDeleteProc _ANSI_ARGS_(( - TclAccessProc_ * proc)); -/* 2 */ -EXTERN int TclAccessInsertProc _ANSI_ARGS_(( - TclAccessProc_ * proc)); -/* 3 */ -EXTERN void TclAllocateFreeObjects _ANSI_ARGS_((void)); -/* Slot 4 is reserved */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ -/* 5 */ -EXTERN int TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp, - int numPids, Tcl_Pid * pidPtr, - Tcl_Channel errorChan)); -#endif /* UNIX */ -#ifdef __WIN32__ -/* 5 */ -EXTERN int TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp, - int numPids, Tcl_Pid * pidPtr, - Tcl_Channel errorChan)); -#endif /* __WIN32__ */ -/* 6 */ -EXTERN void TclCleanupCommand _ANSI_ARGS_((Command * cmdPtr)); -/* 7 */ -EXTERN int TclCopyAndCollapse _ANSI_ARGS_((int count, - CONST char * src, char * dst)); -/* 8 */ -EXTERN int TclCopyChannel _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Channel inChan, Tcl_Channel outChan, - int toRead, Tcl_Obj * cmdPtr)); -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ -/* 9 */ -EXTERN int TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp, - int argc, Tcl_Obj *CONST *objv, - Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, - TclFile * outPipePtr, TclFile * errFilePtr)); -#endif /* UNIX */ -#ifdef __WIN32__ -/* 9 */ -EXTERN int TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp, - int argc, Tcl_Obj *CONST *objv, - Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, - TclFile * outPipePtr, TclFile * errFilePtr)); -#endif /* __WIN32__ */ -/* 10 */ -EXTERN int TclCreateProc _ANSI_ARGS_((Tcl_Interp * interp, - Namespace * nsPtr, CONST char * procName, - Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, - Proc ** procPtrPtr)); -/* 11 */ -EXTERN void TclDeleteCompiledLocalVars _ANSI_ARGS_(( - Interp * iPtr, CallFrame * framePtr)); -/* 12 */ -EXTERN void TclDeleteVars _ANSI_ARGS_((Interp * iPtr, - Tcl_HashTable * tablePtr)); -/* 13 */ -EXTERN int TclDoGlob _ANSI_ARGS_((Tcl_Interp * interp, - char * separators, Tcl_DString * headPtr, - char * tail, Tcl_GlobTypeData * types)); -/* 14 */ -EXTERN void TclDumpMemoryInfo _ANSI_ARGS_((FILE * outFile)); -/* Slot 15 is reserved */ -/* 16 */ -EXTERN void TclExprFloatError _ANSI_ARGS_((Tcl_Interp * interp, - double value)); -/* Slot 17 is reserved */ -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -/* 22 */ -EXTERN int TclFindElement _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * listStr, int listLength, - CONST char ** elementPtr, - CONST char ** nextPtr, int * sizePtr, - int * bracePtr)); -/* 23 */ -EXTERN Proc * TclFindProc _ANSI_ARGS_((Interp * iPtr, - CONST char * procName)); -/* 24 */ -EXTERN int TclFormatInt _ANSI_ARGS_((char * buffer, long n)); -/* 25 */ -EXTERN void TclFreePackageInfo _ANSI_ARGS_((Interp * iPtr)); -/* Slot 26 is reserved */ -/* 27 */ -EXTERN int TclGetDate _ANSI_ARGS_((char * p, unsigned long now, - long zone, unsigned long * timePtr)); -/* 28 */ -EXTERN Tcl_Channel TclpGetDefaultStdChannel _ANSI_ARGS_((int type)); -/* Slot 29 is reserved */ -/* Slot 30 is reserved */ -/* 31 */ -EXTERN char * TclGetExtension _ANSI_ARGS_((char * name)); -/* 32 */ -EXTERN int TclGetFrame _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * str, CallFrame ** framePtrPtr)); -/* 33 */ -EXTERN TclCmdProcType TclGetInterpProc _ANSI_ARGS_((void)); -/* 34 */ -EXTERN int TclGetIntForIndex _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * objPtr, int endValue, - int * indexPtr)); -/* Slot 35 is reserved */ -/* 36 */ -EXTERN int TclGetLong _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * str, long * longPtr)); -/* 37 */ -EXTERN int TclGetLoadedPackages _ANSI_ARGS_(( - Tcl_Interp * interp, char * targetName)); -/* 38 */ -EXTERN int TclGetNamespaceForQualName _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * qualName, - Namespace * cxtNsPtr, int flags, - Namespace ** nsPtrPtr, - Namespace ** altNsPtrPtr, - Namespace ** actualCxtPtrPtr, - CONST char ** simpleNamePtr)); -/* 39 */ -EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void)); -/* 40 */ -EXTERN int TclGetOpenMode _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * str, int * seekFlagPtr)); -/* 41 */ -EXTERN Tcl_Command TclGetOriginalCommand _ANSI_ARGS_(( - Tcl_Command command)); -/* 42 */ -EXTERN char * TclpGetUserHome _ANSI_ARGS_((CONST char * name, - Tcl_DString * bufferPtr)); -/* 43 */ -EXTERN int TclGlobalInvoke _ANSI_ARGS_((Tcl_Interp * interp, - int argc, CONST84 Tcl_Obj *CONST *objv, int flags)); -/* 44 */ -EXTERN int TclGuessPackageName _ANSI_ARGS_(( - CONST char * fileName, Tcl_DString * bufPtr)); -/* 45 */ -EXTERN int TclHideUnsafeCommands _ANSI_ARGS_(( - Tcl_Interp * interp)); -/* 46 */ -EXTERN int TclInExit _ANSI_ARGS_((void)); -/* Slot 47 is reserved */ -/* Slot 48 is reserved */ -/* 49 */ -EXTERN Tcl_Obj * TclIncrVar2 _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, - long incrAmount, int part1NotParsed)); -/* 50 */ -EXTERN void TclInitCompiledLocals _ANSI_ARGS_(( - Tcl_Interp * interp, CallFrame * framePtr, - Namespace * nsPtr)); -/* 51 */ -EXTERN int TclInterpInit _ANSI_ARGS_((Tcl_Interp * interp)); -/* 52 */ -EXTERN int TclInvoke _ANSI_ARGS_((Tcl_Interp * interp, int argc, - CONST84 Tcl_Obj *CONST *objv, int flags)); -/* 53 */ -EXTERN int TclInvokeObjectCommand _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp * interp, - int argc, CONST84 Tcl_Obj *CONST *objv)); -/* 54 */ -EXTERN int TclInvokeStringCommand _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp * interp, - int objc, Tcl_Obj *CONST objv[])); -/* 55 */ -EXTERN Proc * TclIsProc _ANSI_ARGS_((Command * cmdPtr)); -/* Slot 56 is reserved */ -/* Slot 57 is reserved */ -/* 58 */ -EXTERN Var * TclLookupVar _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * part1, CONST char * part2, - int flags, CONST char * msg, int createPart1, - int createPart2, Var ** arrayPtrPtr)); -/* Slot 59 is reserved */ -/* 60 */ -EXTERN int TclNeedSpace _ANSI_ARGS_((CONST char * start, - CONST char * end)); -/* 61 */ -EXTERN Tcl_Obj * TclNewProcBodyObj _ANSI_ARGS_((Proc * procPtr)); -/* 62 */ -EXTERN int TclObjCommandComplete _ANSI_ARGS_((Tcl_Obj * cmdPtr)); -/* 63 */ -EXTERN int TclObjInterpProc _ANSI_ARGS_((ClientData clientData, - Tcl_Interp * interp, int objc, - Tcl_Obj *CONST objv[])); -/* 64 */ -EXTERN int TclObjInvoke _ANSI_ARGS_((Tcl_Interp * interp, - int objc, Tcl_Obj *CONST objv[], int flags)); -/* 65 */ -EXTERN int TclObjInvokeGlobal _ANSI_ARGS_((Tcl_Interp * interp, - int objc, Tcl_Obj *CONST objv[], int flags)); -/* 66 */ -EXTERN int TclOpenFileChannelDeleteProc _ANSI_ARGS_(( - TclOpenFileChannelProc_ * proc)); -/* 67 */ -EXTERN int TclOpenFileChannelInsertProc _ANSI_ARGS_(( - TclOpenFileChannelProc_ * proc)); -/* Slot 68 is reserved */ -/* 69 */ -EXTERN char * TclpAlloc _ANSI_ARGS_((unsigned int size)); -/* Slot 70 is reserved */ -/* Slot 71 is reserved */ -/* Slot 72 is reserved */ -/* Slot 73 is reserved */ -/* 74 */ -EXTERN void TclpFree _ANSI_ARGS_((char * ptr)); -/* 75 */ -EXTERN unsigned long TclpGetClicks _ANSI_ARGS_((void)); -/* 76 */ -EXTERN unsigned long TclpGetSeconds _ANSI_ARGS_((void)); -/* 77 */ -EXTERN void TclpGetTime _ANSI_ARGS_((Tcl_Time * time)); -/* 78 */ -EXTERN int TclpGetTimeZone _ANSI_ARGS_((unsigned long time)); -/* Slot 79 is reserved */ -/* Slot 80 is reserved */ -/* 81 */ -EXTERN char * TclpRealloc _ANSI_ARGS_((char * ptr, - unsigned int size)); -/* Slot 82 is reserved */ -/* Slot 83 is reserved */ -/* Slot 84 is reserved */ -/* Slot 85 is reserved */ -/* Slot 86 is reserved */ -/* Slot 87 is reserved */ -/* 88 */ -EXTERN char * TclPrecTraceProc _ANSI_ARGS_((ClientData clientData, - Tcl_Interp * interp, CONST char * name1, - CONST char * name2, int flags)); -/* 89 */ -EXTERN int TclPreventAliasLoop _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Interp * cmdInterp, Tcl_Command cmd)); -/* Slot 90 is reserved */ -/* 91 */ -EXTERN void TclProcCleanupProc _ANSI_ARGS_((Proc * procPtr)); -/* 92 */ -EXTERN int TclProcCompileProc _ANSI_ARGS_((Tcl_Interp * interp, - Proc * procPtr, Tcl_Obj * bodyPtr, - Namespace * nsPtr, CONST char * description, - CONST char * procName)); -/* 93 */ -EXTERN void TclProcDeleteProc _ANSI_ARGS_((ClientData clientData)); -/* 94 */ -EXTERN int TclProcInterpProc _ANSI_ARGS_((ClientData clientData, - Tcl_Interp * interp, int argc, - CONST84 Tcl_Obj *CONST *objv)); -/* Slot 95 is reserved */ -/* 96 */ -EXTERN int TclRenameCommand _ANSI_ARGS_((Tcl_Interp * interp, - char * oldName, char * newName)); -/* 97 */ -EXTERN void TclResetShadowedCmdRefs _ANSI_ARGS_(( - Tcl_Interp * interp, Command * newCmdPtr)); -/* 98 */ -EXTERN int TclServiceIdle _ANSI_ARGS_((void)); -/* Slot 99 is reserved */ -/* Slot 100 is reserved */ -/* 101 */ -EXTERN char * TclSetPreInitScript _ANSI_ARGS_((char * string)); -/* 102 */ -EXTERN void TclSetupEnv _ANSI_ARGS_((Tcl_Interp * interp)); -/* 103 */ -EXTERN int TclSockGetPort _ANSI_ARGS_((Tcl_Interp * interp, - char * str, char * proto, int * portPtr)); -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ -/* 104 */ -EXTERN int TclSockMinimumBuffers _ANSI_ARGS_((int sock, - int size)); -#endif /* UNIX */ -#ifdef __WIN32__ -/* 104 */ -EXTERN int TclSockMinimumBuffers _ANSI_ARGS_((int sock, - int size)); -#endif /* __WIN32__ */ -/* Slot 105 is reserved */ -/* 106 */ -EXTERN int TclStatDeleteProc _ANSI_ARGS_((TclStatProc_ * proc)); -/* 107 */ -EXTERN int TclStatInsertProc _ANSI_ARGS_((TclStatProc_ * proc)); -/* 108 */ -EXTERN void TclTeardownNamespace _ANSI_ARGS_((Namespace * nsPtr)); -/* 109 */ -EXTERN int TclUpdateReturnInfo _ANSI_ARGS_((Interp * iPtr)); -/* Slot 110 is reserved */ -/* 111 */ -EXTERN void Tcl_AddInterpResolvers _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * name, - Tcl_ResolveCmdProc * cmdProc, - Tcl_ResolveVarProc * varProc, - Tcl_ResolveCompiledVarProc * compiledVarProc)); -/* 112 */ -EXTERN int Tcl_AppendExportList _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Namespace * nsPtr, - Tcl_Obj * objPtr)); -/* 113 */ -EXTERN Tcl_Namespace * Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * name, ClientData clientData, - Tcl_NamespaceDeleteProc * deleteProc)); -/* 114 */ -EXTERN void Tcl_DeleteNamespace _ANSI_ARGS_(( - Tcl_Namespace * nsPtr)); -/* 115 */ -EXTERN int Tcl_Export _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Namespace * nsPtr, CONST char * pattern, - int resetListFirst)); -/* 116 */ -EXTERN Tcl_Command Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * name, - Tcl_Namespace * contextNsPtr, int flags)); -/* 117 */ -EXTERN Tcl_Namespace * Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * name, - Tcl_Namespace * contextNsPtr, int flags)); -/* 118 */ -EXTERN int Tcl_GetInterpResolvers _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * name, - Tcl_ResolverInfo * resInfo)); -/* 119 */ -EXTERN int Tcl_GetNamespaceResolvers _ANSI_ARGS_(( - Tcl_Namespace * namespacePtr, - Tcl_ResolverInfo * resInfo)); -/* 120 */ -EXTERN Tcl_Var Tcl_FindNamespaceVar _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * name, - Tcl_Namespace * contextNsPtr, int flags)); -/* 121 */ -EXTERN int Tcl_ForgetImport _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Namespace * nsPtr, CONST char * pattern)); -/* 122 */ -EXTERN Tcl_Command Tcl_GetCommandFromObj _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * objPtr)); -/* 123 */ -EXTERN void Tcl_GetCommandFullName _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Command command, - Tcl_Obj * objPtr)); -/* 124 */ -EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace _ANSI_ARGS_(( - Tcl_Interp * interp)); -/* 125 */ -EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace _ANSI_ARGS_(( - Tcl_Interp * interp)); -/* 126 */ -EXTERN void Tcl_GetVariableFullName _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Var variable, - Tcl_Obj * objPtr)); -/* 127 */ -EXTERN int Tcl_Import _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Namespace * nsPtr, CONST char * pattern, - int allowOverwrite)); -/* 128 */ -EXTERN void Tcl_PopCallFrame _ANSI_ARGS_((Tcl_Interp* interp)); -/* 129 */ -EXTERN int Tcl_PushCallFrame _ANSI_ARGS_((Tcl_Interp* interp, - Tcl_CallFrame * framePtr, - Tcl_Namespace * nsPtr, int isProcCallFrame)); -/* 130 */ -EXTERN int Tcl_RemoveInterpResolvers _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * name)); -/* 131 */ -EXTERN void Tcl_SetNamespaceResolvers _ANSI_ARGS_(( - Tcl_Namespace * namespacePtr, - Tcl_ResolveCmdProc * cmdProc, - Tcl_ResolveVarProc * varProc, - Tcl_ResolveCompiledVarProc * compiledVarProc)); -/* 132 */ -EXTERN int TclpHasSockets _ANSI_ARGS_((Tcl_Interp * interp)); -/* 133 */ -EXTERN struct tm * TclpGetDate _ANSI_ARGS_((TclpTime_t time, int useGMT)); -/* 134 */ -EXTERN size_t TclpStrftime _ANSI_ARGS_((char * s, size_t maxsize, - CONST char * format, CONST struct tm * t, - int useGMT)); -/* 135 */ -EXTERN int TclpCheckStackSpace _ANSI_ARGS_((void)); -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -/* 138 */ -EXTERN CONST84_RETURN char * TclGetEnv _ANSI_ARGS_((CONST char * name, - Tcl_DString * valuePtr)); -/* Slot 139 is reserved */ -/* 140 */ -EXTERN int TclLooksLikeInt _ANSI_ARGS_((CONST char * bytes, - int length)); -/* 141 */ -EXTERN CONST84_RETURN char * TclpGetCwd _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_DString * cwdPtr)); -/* 142 */ -EXTERN int TclSetByteCodeFromAny _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * objPtr, - CompileHookProc * hookProc, - ClientData clientData)); -/* 143 */ -EXTERN int TclAddLiteralObj _ANSI_ARGS_(( - struct CompileEnv * envPtr, Tcl_Obj * objPtr, - LiteralEntry ** litPtrPtr)); -/* 144 */ -EXTERN void TclHideLiteral _ANSI_ARGS_((Tcl_Interp * interp, - struct CompileEnv * envPtr, int index)); -/* 145 */ -EXTERN struct AuxDataType * TclGetAuxDataType _ANSI_ARGS_((char * typeName)); -/* 146 */ -EXTERN TclHandle TclHandleCreate _ANSI_ARGS_((VOID * ptr)); -/* 147 */ -EXTERN void TclHandleFree _ANSI_ARGS_((TclHandle handle)); -/* 148 */ -EXTERN TclHandle TclHandlePreserve _ANSI_ARGS_((TclHandle handle)); -/* 149 */ -EXTERN void TclHandleRelease _ANSI_ARGS_((TclHandle handle)); -/* 150 */ -EXTERN int TclRegAbout _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_RegExp re)); -/* 151 */ -EXTERN void TclRegExpRangeUniChar _ANSI_ARGS_((Tcl_RegExp re, - int index, int * startPtr, int * endPtr)); -/* 152 */ -EXTERN void TclSetLibraryPath _ANSI_ARGS_((Tcl_Obj * pathPtr)); -/* 153 */ -EXTERN Tcl_Obj * TclGetLibraryPath _ANSI_ARGS_((void)); -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -/* 156 */ -EXTERN void TclRegError _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * msg, int status)); -/* 157 */ -EXTERN Var * TclVarTraceExists _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * varName)); -/* 158 */ -EXTERN void TclSetStartupScriptFileName _ANSI_ARGS_(( - CONST char * filename)); -/* 159 */ -EXTERN CONST84_RETURN char * TclGetStartupScriptFileName _ANSI_ARGS_((void)); -/* Slot 160 is reserved */ -/* 161 */ -EXTERN int TclChannelTransform _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Channel chan, Tcl_Obj * cmdObjPtr)); -/* 162 */ -EXTERN void TclChannelEventScriptInvoker _ANSI_ARGS_(( - ClientData clientData, int flags)); -/* 163 */ -EXTERN void * TclGetInstructionTable _ANSI_ARGS_((void)); -/* 164 */ -EXTERN void TclExpandCodeArray _ANSI_ARGS_((void * envPtr)); -/* 165 */ -EXTERN void TclpSetInitialEncodings _ANSI_ARGS_((void)); -/* 166 */ -EXTERN int TclListObjSetElement _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * listPtr, - int index, Tcl_Obj * valuePtr)); -/* 167 */ -EXTERN void TclSetStartupScriptPath _ANSI_ARGS_(( - Tcl_Obj * pathPtr)); -/* 168 */ -EXTERN Tcl_Obj * TclGetStartupScriptPath _ANSI_ARGS_((void)); -/* 169 */ -EXTERN int TclpUtfNcmp2 _ANSI_ARGS_((CONST char * s1, - CONST char * s2, unsigned long n)); -/* 170 */ -EXTERN int TclCheckInterpTraces _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * command, - int numChars, Command * cmdPtr, int result, - int traceFlags, int objc, - Tcl_Obj *CONST objv[])); -/* 171 */ -EXTERN int TclCheckExecutionTraces _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * command, - int numChars, Command * cmdPtr, int result, - int traceFlags, int objc, - Tcl_Obj *CONST objv[])); -/* 172 */ -EXTERN int TclInThreadExit _ANSI_ARGS_((void)); -/* 173 */ -EXTERN int TclUniCharMatch _ANSI_ARGS_(( - CONST Tcl_UniChar * string, int strLen, - CONST Tcl_UniChar * pattern, int ptnLen, - int nocase)); - -typedef struct TclIntStubs { - int magic; - struct TclIntStubHooks *hooks; - - void *reserved0; - int (*tclAccessDeleteProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 1 */ - int (*tclAccessInsertProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 2 */ - void (*tclAllocateFreeObjects) _ANSI_ARGS_((void)); /* 3 */ - void *reserved4; -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */ -#endif /* UNIX */ -#ifdef __WIN32__ - int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */ -#endif /* __WIN32__ */ -#ifdef MAC_TCL - void *reserved5; -#endif /* MAC_TCL */ - void (*tclCleanupCommand) _ANSI_ARGS_((Command * cmdPtr)); /* 6 */ - int (*tclCopyAndCollapse) _ANSI_ARGS_((int count, CONST char * src, char * dst)); /* 7 */ - int (*tclCopyChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj * cmdPtr)); /* 8 */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, Tcl_Obj *CONST *objv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */ -#endif /* UNIX */ -#ifdef __WIN32__ - int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, Tcl_Obj *CONST *objv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */ -#endif /* __WIN32__ */ -#ifdef MAC_TCL - void *reserved9; -#endif /* MAC_TCL */ - int (*tclCreateProc) _ANSI_ARGS_((Tcl_Interp * interp, Namespace * nsPtr, CONST char * procName, Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, Proc ** procPtrPtr)); /* 10 */ - void (*tclDeleteCompiledLocalVars) _ANSI_ARGS_((Interp * iPtr, CallFrame * framePtr)); /* 11 */ - void (*tclDeleteVars) _ANSI_ARGS_((Interp * iPtr, Tcl_HashTable * tablePtr)); /* 12 */ - int (*tclDoGlob) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * headPtr, char * tail, Tcl_GlobTypeData * types)); /* 13 */ - void (*tclDumpMemoryInfo) _ANSI_ARGS_((FILE * outFile)); /* 14 */ - void *reserved15; - void (*tclExprFloatError) _ANSI_ARGS_((Tcl_Interp * interp, double value)); /* 16 */ - void *reserved17; - void *reserved18; - void *reserved19; - void *reserved20; - void *reserved21; - int (*tclFindElement) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * listStr, int listLength, CONST char ** elementPtr, CONST char ** nextPtr, int * sizePtr, int * bracePtr)); /* 22 */ - Proc * (*tclFindProc) _ANSI_ARGS_((Interp * iPtr, CONST char * procName)); /* 23 */ - int (*tclFormatInt) _ANSI_ARGS_((char * buffer, long n)); /* 24 */ - void (*tclFreePackageInfo) _ANSI_ARGS_((Interp * iPtr)); /* 25 */ - void *reserved26; - int (*tclGetDate) _ANSI_ARGS_((char * p, unsigned long now, long zone, unsigned long * timePtr)); /* 27 */ - Tcl_Channel (*tclpGetDefaultStdChannel) _ANSI_ARGS_((int type)); /* 28 */ - void *reserved29; - void *reserved30; - char * (*tclGetExtension) _ANSI_ARGS_((char * name)); /* 31 */ - int (*tclGetFrame) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, CallFrame ** framePtrPtr)); /* 32 */ - TclCmdProcType (*tclGetInterpProc) _ANSI_ARGS_((void)); /* 33 */ - int (*tclGetIntForIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr)); /* 34 */ - void *reserved35; - int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, long * longPtr)); /* 36 */ - int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName)); /* 37 */ - int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, CONST char ** simpleNamePtr)); /* 38 */ - TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void)); /* 39 */ - int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, int * seekFlagPtr)); /* 40 */ - Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command)); /* 41 */ - char * (*tclpGetUserHome) _ANSI_ARGS_((CONST char * name, Tcl_DString * bufferPtr)); /* 42 */ - int (*tclGlobalInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST84 Tcl_Obj *CONST *objv, int flags)); /* 43 */ - int (*tclGuessPackageName) _ANSI_ARGS_((CONST char * fileName, Tcl_DString * bufPtr)); /* 44 */ - int (*tclHideUnsafeCommands) _ANSI_ARGS_((Tcl_Interp * interp)); /* 45 */ - int (*tclInExit) _ANSI_ARGS_((void)); /* 46 */ - void *reserved47; - void *reserved48; - Tcl_Obj * (*tclIncrVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed)); /* 49 */ - void (*tclInitCompiledLocals) _ANSI_ARGS_((Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr)); /* 50 */ - int (*tclInterpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 51 */ - int (*tclInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST84 Tcl_Obj *CONST *objv, int flags)); /* 52 */ - int (*tclInvokeObjectCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, CONST84 Tcl_Obj *CONST *objv)); /* 53 */ - int (*tclInvokeStringCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 54 */ - Proc * (*tclIsProc) _ANSI_ARGS_((Command * cmdPtr)); /* 55 */ - void *reserved56; - void *reserved57; - Var * (*tclLookupVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags, CONST char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr)); /* 58 */ - void *reserved59; - int (*tclNeedSpace) _ANSI_ARGS_((CONST char * start, CONST char * end)); /* 60 */ - Tcl_Obj * (*tclNewProcBodyObj) _ANSI_ARGS_((Proc * procPtr)); /* 61 */ - int (*tclObjCommandComplete) _ANSI_ARGS_((Tcl_Obj * cmdPtr)); /* 62 */ - int (*tclObjInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 63 */ - int (*tclObjInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 64 */ - int (*tclObjInvokeGlobal) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 65 */ - int (*tclOpenFileChannelDeleteProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 66 */ - int (*tclOpenFileChannelInsertProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 67 */ - void *reserved68; - char * (*tclpAlloc) _ANSI_ARGS_((unsigned int size)); /* 69 */ - void *reserved70; - void *reserved71; - void *reserved72; - void *reserved73; - void (*tclpFree) _ANSI_ARGS_((char * ptr)); /* 74 */ - unsigned long (*tclpGetClicks) _ANSI_ARGS_((void)); /* 75 */ - unsigned long (*tclpGetSeconds) _ANSI_ARGS_((void)); /* 76 */ - void (*tclpGetTime) _ANSI_ARGS_((Tcl_Time * time)); /* 77 */ - int (*tclpGetTimeZone) _ANSI_ARGS_((unsigned long time)); /* 78 */ - void *reserved79; - void *reserved80; - char * (*tclpRealloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 81 */ - void *reserved82; - void *reserved83; - void *reserved84; - void *reserved85; - void *reserved86; - void *reserved87; - char * (*tclPrecTraceProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, CONST char * name1, CONST char * name2, int flags)); /* 88 */ - int (*tclPreventAliasLoop) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd)); /* 89 */ - void *reserved90; - void (*tclProcCleanupProc) _ANSI_ARGS_((Proc * procPtr)); /* 91 */ - int (*tclProcCompileProc) _ANSI_ARGS_((Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName)); /* 92 */ - void (*tclProcDeleteProc) _ANSI_ARGS_((ClientData clientData)); /* 93 */ - int (*tclProcInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, CONST84 Tcl_Obj *CONST *objv)); /* 94 */ - void *reserved95; - int (*tclRenameCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * oldName, char * newName)); /* 96 */ - void (*tclResetShadowedCmdRefs) _ANSI_ARGS_((Tcl_Interp * interp, Command * newCmdPtr)); /* 97 */ - int (*tclServiceIdle) _ANSI_ARGS_((void)); /* 98 */ - void *reserved99; - void *reserved100; - char * (*tclSetPreInitScript) _ANSI_ARGS_((char * string)); /* 101 */ - void (*tclSetupEnv) _ANSI_ARGS_((Tcl_Interp * interp)); /* 102 */ - int (*tclSockGetPort) _ANSI_ARGS_((Tcl_Interp * interp, char * str, char * proto, int * portPtr)); /* 103 */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */ -#endif /* UNIX */ -#ifdef __WIN32__ - int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */ -#endif /* __WIN32__ */ -#ifdef MAC_TCL - void *reserved104; -#endif /* MAC_TCL */ - void *reserved105; - int (*tclStatDeleteProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 106 */ - int (*tclStatInsertProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 107 */ - void (*tclTeardownNamespace) _ANSI_ARGS_((Namespace * nsPtr)); /* 108 */ - int (*tclUpdateReturnInfo) _ANSI_ARGS_((Interp * iPtr)); /* 109 */ - void *reserved110; - void (*tcl_AddInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 111 */ - int (*tcl_AppendExportList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr)); /* 112 */ - Tcl_Namespace * (*tcl_CreateNamespace) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc)); /* 113 */ - void (*tcl_DeleteNamespace) _ANSI_ARGS_((Tcl_Namespace * nsPtr)); /* 114 */ - int (*tcl_Export) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int resetListFirst)); /* 115 */ - Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 116 */ - Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 117 */ - int (*tcl_GetInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_ResolverInfo * resInfo)); /* 118 */ - int (*tcl_GetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo)); /* 119 */ - Tcl_Var (*tcl_FindNamespaceVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 120 */ - int (*tcl_ForgetImport) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern)); /* 121 */ - Tcl_Command (*tcl_GetCommandFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 122 */ - void (*tcl_GetCommandFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr)); /* 123 */ - Tcl_Namespace * (*tcl_GetCurrentNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 124 */ - Tcl_Namespace * (*tcl_GetGlobalNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 125 */ - void (*tcl_GetVariableFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr)); /* 126 */ - int (*tcl_Import) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int allowOverwrite)); /* 127 */ - void (*tcl_PopCallFrame) _ANSI_ARGS_((Tcl_Interp* interp)); /* 128 */ - int (*tcl_PushCallFrame) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame)); /* 129 */ - int (*tcl_RemoveInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name)); /* 130 */ - void (*tcl_SetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 131 */ - int (*tclpHasSockets) _ANSI_ARGS_((Tcl_Interp * interp)); /* 132 */ - struct tm * (*tclpGetDate) _ANSI_ARGS_((TclpTime_t time, int useGMT)); /* 133 */ - size_t (*tclpStrftime) _ANSI_ARGS_((char * s, size_t maxsize, CONST char * format, CONST struct tm * t, int useGMT)); /* 134 */ - int (*tclpCheckStackSpace) _ANSI_ARGS_((void)); /* 135 */ - void *reserved136; - void *reserved137; - CONST84_RETURN char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name, Tcl_DString * valuePtr)); /* 138 */ - void *reserved139; - int (*tclLooksLikeInt) _ANSI_ARGS_((CONST char * bytes, int length)); /* 140 */ - CONST84_RETURN char * (*tclpGetCwd) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * cwdPtr)); /* 141 */ - int (*tclSetByteCodeFromAny) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, CompileHookProc * hookProc, ClientData clientData)); /* 142 */ - int (*tclAddLiteralObj) _ANSI_ARGS_((struct CompileEnv * envPtr, Tcl_Obj * objPtr, LiteralEntry ** litPtrPtr)); /* 143 */ - void (*tclHideLiteral) _ANSI_ARGS_((Tcl_Interp * interp, struct CompileEnv * envPtr, int index)); /* 144 */ - struct AuxDataType * (*tclGetAuxDataType) _ANSI_ARGS_((char * typeName)); /* 145 */ - TclHandle (*tclHandleCreate) _ANSI_ARGS_((VOID * ptr)); /* 146 */ - void (*tclHandleFree) _ANSI_ARGS_((TclHandle handle)); /* 147 */ - TclHandle (*tclHandlePreserve) _ANSI_ARGS_((TclHandle handle)); /* 148 */ - void (*tclHandleRelease) _ANSI_ARGS_((TclHandle handle)); /* 149 */ - int (*tclRegAbout) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp re)); /* 150 */ - void (*tclRegExpRangeUniChar) _ANSI_ARGS_((Tcl_RegExp re, int index, int * startPtr, int * endPtr)); /* 151 */ - void (*tclSetLibraryPath) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 152 */ - Tcl_Obj * (*tclGetLibraryPath) _ANSI_ARGS_((void)); /* 153 */ - void *reserved154; - void *reserved155; - void (*tclRegError) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * msg, int status)); /* 156 */ - Var * (*tclVarTraceExists) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varName)); /* 157 */ - void (*tclSetStartupScriptFileName) _ANSI_ARGS_((CONST char * filename)); /* 158 */ - CONST84_RETURN char * (*tclGetStartupScriptFileName) _ANSI_ARGS_((void)); /* 159 */ - void *reserved160; - int (*tclChannelTransform) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, Tcl_Obj * cmdObjPtr)); /* 161 */ - void (*tclChannelEventScriptInvoker) _ANSI_ARGS_((ClientData clientData, int flags)); /* 162 */ - void * (*tclGetInstructionTable) _ANSI_ARGS_((void)); /* 163 */ - void (*tclExpandCodeArray) _ANSI_ARGS_((void * envPtr)); /* 164 */ - void (*tclpSetInitialEncodings) _ANSI_ARGS_((void)); /* 165 */ - int (*tclListObjSetElement) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int index, Tcl_Obj * valuePtr)); /* 166 */ - void (*tclSetStartupScriptPath) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 167 */ - Tcl_Obj * (*tclGetStartupScriptPath) _ANSI_ARGS_((void)); /* 168 */ - int (*tclpUtfNcmp2) _ANSI_ARGS_((CONST char * s1, CONST char * s2, unsigned long n)); /* 169 */ - int (*tclCheckInterpTraces) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * command, int numChars, Command * cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[])); /* 170 */ - int (*tclCheckExecutionTraces) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * command, int numChars, Command * cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[])); /* 171 */ - int (*tclInThreadExit) _ANSI_ARGS_((void)); /* 172 */ - int (*tclUniCharMatch) _ANSI_ARGS_((CONST Tcl_UniChar * string, int strLen, CONST Tcl_UniChar * pattern, int ptnLen, int nocase)); /* 173 */ -} TclIntStubs; - -#ifdef __cplusplus -extern "C" { -#endif -extern TclIntStubs *tclIntStubsPtr; -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) - -/* - * Inline function declarations: - */ - -/* Slot 0 is reserved */ -#ifndef TclAccessDeleteProc -#define TclAccessDeleteProc \ - (tclIntStubsPtr->tclAccessDeleteProc) /* 1 */ -#endif -#ifndef TclAccessInsertProc -#define TclAccessInsertProc \ - (tclIntStubsPtr->tclAccessInsertProc) /* 2 */ -#endif -#ifndef TclAllocateFreeObjects -#define TclAllocateFreeObjects \ - (tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */ -#endif -/* Slot 4 is reserved */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ -#ifndef TclCleanupChildren -#define TclCleanupChildren \ - (tclIntStubsPtr->tclCleanupChildren) /* 5 */ -#endif -#endif /* UNIX */ -#ifdef __WIN32__ -#ifndef TclCleanupChildren -#define TclCleanupChildren \ - (tclIntStubsPtr->tclCleanupChildren) /* 5 */ -#endif -#endif /* __WIN32__ */ -#ifndef TclCleanupCommand -#define TclCleanupCommand \ - (tclIntStubsPtr->tclCleanupCommand) /* 6 */ -#endif -#ifndef TclCopyAndCollapse -#define TclCopyAndCollapse \ - (tclIntStubsPtr->tclCopyAndCollapse) /* 7 */ -#endif -#ifndef TclCopyChannel -#define TclCopyChannel \ - (tclIntStubsPtr->tclCopyChannel) /* 8 */ -#endif -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ -#ifndef TclCreatePipeline -#define TclCreatePipeline \ - (tclIntStubsPtr->tclCreatePipeline) /* 9 */ -#endif -#endif /* UNIX */ -#ifdef __WIN32__ -#ifndef TclCreatePipeline -#define TclCreatePipeline \ - (tclIntStubsPtr->tclCreatePipeline) /* 9 */ -#endif -#endif /* __WIN32__ */ -#ifndef TclCreateProc -#define TclCreateProc \ - (tclIntStubsPtr->tclCreateProc) /* 10 */ -#endif -#ifndef TclDeleteCompiledLocalVars -#define TclDeleteCompiledLocalVars \ - (tclIntStubsPtr->tclDeleteCompiledLocalVars) /* 11 */ -#endif -#ifndef TclDeleteVars -#define TclDeleteVars \ - (tclIntStubsPtr->tclDeleteVars) /* 12 */ -#endif -#ifndef TclDoGlob -#define TclDoGlob \ - (tclIntStubsPtr->tclDoGlob) /* 13 */ -#endif -#ifndef TclDumpMemoryInfo -#define TclDumpMemoryInfo \ - (tclIntStubsPtr->tclDumpMemoryInfo) /* 14 */ -#endif -/* Slot 15 is reserved */ -#ifndef TclExprFloatError -#define TclExprFloatError \ - (tclIntStubsPtr->tclExprFloatError) /* 16 */ -#endif -/* Slot 17 is reserved */ -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -#ifndef TclFindElement -#define TclFindElement \ - (tclIntStubsPtr->tclFindElement) /* 22 */ -#endif -#ifndef TclFindProc -#define TclFindProc \ - (tclIntStubsPtr->tclFindProc) /* 23 */ -#endif -#ifndef TclFormatInt -#define TclFormatInt \ - (tclIntStubsPtr->tclFormatInt) /* 24 */ -#endif -#ifndef TclFreePackageInfo -#define TclFreePackageInfo \ - (tclIntStubsPtr->tclFreePackageInfo) /* 25 */ -#endif -/* Slot 26 is reserved */ -#ifndef TclGetDate -#define TclGetDate \ - (tclIntStubsPtr->tclGetDate) /* 27 */ -#endif -#ifndef TclpGetDefaultStdChannel -#define TclpGetDefaultStdChannel \ - (tclIntStubsPtr->tclpGetDefaultStdChannel) /* 28 */ -#endif -/* Slot 29 is reserved */ -/* Slot 30 is reserved */ -#ifndef TclGetExtension -#define TclGetExtension \ - (tclIntStubsPtr->tclGetExtension) /* 31 */ -#endif -#ifndef TclGetFrame -#define TclGetFrame \ - (tclIntStubsPtr->tclGetFrame) /* 32 */ -#endif -#ifndef TclGetInterpProc -#define TclGetInterpProc \ - (tclIntStubsPtr->tclGetInterpProc) /* 33 */ -#endif -#ifndef TclGetIntForIndex -#define TclGetIntForIndex \ - (tclIntStubsPtr->tclGetIntForIndex) /* 34 */ -#endif -/* Slot 35 is reserved */ -#ifndef TclGetLong -#define TclGetLong \ - (tclIntStubsPtr->tclGetLong) /* 36 */ -#endif -#ifndef TclGetLoadedPackages -#define TclGetLoadedPackages \ - (tclIntStubsPtr->tclGetLoadedPackages) /* 37 */ -#endif -#ifndef TclGetNamespaceForQualName -#define TclGetNamespaceForQualName \ - (tclIntStubsPtr->tclGetNamespaceForQualName) /* 38 */ -#endif -#ifndef TclGetObjInterpProc -#define TclGetObjInterpProc \ - (tclIntStubsPtr->tclGetObjInterpProc) /* 39 */ -#endif -#ifndef TclGetOpenMode -#define TclGetOpenMode \ - (tclIntStubsPtr->tclGetOpenMode) /* 40 */ -#endif -#ifndef TclGetOriginalCommand -#define TclGetOriginalCommand \ - (tclIntStubsPtr->tclGetOriginalCommand) /* 41 */ -#endif -#ifndef TclpGetUserHome -#define TclpGetUserHome \ - (tclIntStubsPtr->tclpGetUserHome) /* 42 */ -#endif -#ifndef TclGlobalInvoke -#define TclGlobalInvoke \ - (tclIntStubsPtr->tclGlobalInvoke) /* 43 */ -#endif -#ifndef TclGuessPackageName -#define TclGuessPackageName \ - (tclIntStubsPtr->tclGuessPackageName) /* 44 */ -#endif -#ifndef TclHideUnsafeCommands -#define TclHideUnsafeCommands \ - (tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */ -#endif -#ifndef TclInExit -#define TclInExit \ - (tclIntStubsPtr->tclInExit) /* 46 */ -#endif -/* Slot 47 is reserved */ -/* Slot 48 is reserved */ -#ifndef TclIncrVar2 -#define TclIncrVar2 \ - (tclIntStubsPtr->tclIncrVar2) /* 49 */ -#endif -#ifndef TclInitCompiledLocals -#define TclInitCompiledLocals \ - (tclIntStubsPtr->tclInitCompiledLocals) /* 50 */ -#endif -#ifndef TclInterpInit -#define TclInterpInit \ - (tclIntStubsPtr->tclInterpInit) /* 51 */ -#endif -#ifndef TclInvoke -#define TclInvoke \ - (tclIntStubsPtr->tclInvoke) /* 52 */ -#endif -#ifndef TclInvokeObjectCommand -#define TclInvokeObjectCommand \ - (tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */ -#endif -#ifndef TclInvokeStringCommand -#define TclInvokeStringCommand \ - (tclIntStubsPtr->tclInvokeStringCommand) /* 54 */ -#endif -#ifndef TclIsProc -#define TclIsProc \ - (tclIntStubsPtr->tclIsProc) /* 55 */ -#endif -/* Slot 56 is reserved */ -/* Slot 57 is reserved */ -#ifndef TclLookupVar -#define TclLookupVar \ - (tclIntStubsPtr->tclLookupVar) /* 58 */ -#endif -/* Slot 59 is reserved */ -#ifndef TclNeedSpace -#define TclNeedSpace \ - (tclIntStubsPtr->tclNeedSpace) /* 60 */ -#endif -#ifndef TclNewProcBodyObj -#define TclNewProcBodyObj \ - (tclIntStubsPtr->tclNewProcBodyObj) /* 61 */ -#endif -#ifndef TclObjCommandComplete -#define TclObjCommandComplete \ - (tclIntStubsPtr->tclObjCommandComplete) /* 62 */ -#endif -#ifndef TclObjInterpProc -#define TclObjInterpProc \ - (tclIntStubsPtr->tclObjInterpProc) /* 63 */ -#endif -#ifndef TclObjInvoke -#define TclObjInvoke \ - (tclIntStubsPtr->tclObjInvoke) /* 64 */ -#endif -#ifndef TclObjInvokeGlobal -#define TclObjInvokeGlobal \ - (tclIntStubsPtr->tclObjInvokeGlobal) /* 65 */ -#endif -#ifndef TclOpenFileChannelDeleteProc -#define TclOpenFileChannelDeleteProc \ - (tclIntStubsPtr->tclOpenFileChannelDeleteProc) /* 66 */ -#endif -#ifndef TclOpenFileChannelInsertProc -#define TclOpenFileChannelInsertProc \ - (tclIntStubsPtr->tclOpenFileChannelInsertProc) /* 67 */ -#endif -/* Slot 68 is reserved */ -#ifndef TclpAlloc -#define TclpAlloc \ - (tclIntStubsPtr->tclpAlloc) /* 69 */ -#endif -/* Slot 70 is reserved */ -/* Slot 71 is reserved */ -/* Slot 72 is reserved */ -/* Slot 73 is reserved */ -#ifndef TclpFree -#define TclpFree \ - (tclIntStubsPtr->tclpFree) /* 74 */ -#endif -#ifndef TclpGetClicks -#define TclpGetClicks \ - (tclIntStubsPtr->tclpGetClicks) /* 75 */ -#endif -#ifndef TclpGetSeconds -#define TclpGetSeconds \ - (tclIntStubsPtr->tclpGetSeconds) /* 76 */ -#endif -#ifndef TclpGetTime -#define TclpGetTime \ - (tclIntStubsPtr->tclpGetTime) /* 77 */ -#endif -#ifndef TclpGetTimeZone -#define TclpGetTimeZone \ - (tclIntStubsPtr->tclpGetTimeZone) /* 78 */ -#endif -/* Slot 79 is reserved */ -/* Slot 80 is reserved */ -#ifndef TclpRealloc -#define TclpRealloc \ - (tclIntStubsPtr->tclpRealloc) /* 81 */ -#endif -/* Slot 82 is reserved */ -/* Slot 83 is reserved */ -/* Slot 84 is reserved */ -/* Slot 85 is reserved */ -/* Slot 86 is reserved */ -/* Slot 87 is reserved */ -#ifndef TclPrecTraceProc -#define TclPrecTraceProc \ - (tclIntStubsPtr->tclPrecTraceProc) /* 88 */ -#endif -#ifndef TclPreventAliasLoop -#define TclPreventAliasLoop \ - (tclIntStubsPtr->tclPreventAliasLoop) /* 89 */ -#endif -/* Slot 90 is reserved */ -#ifndef TclProcCleanupProc -#define TclProcCleanupProc \ - (tclIntStubsPtr->tclProcCleanupProc) /* 91 */ -#endif -#ifndef TclProcCompileProc -#define TclProcCompileProc \ - (tclIntStubsPtr->tclProcCompileProc) /* 92 */ -#endif -#ifndef TclProcDeleteProc -#define TclProcDeleteProc \ - (tclIntStubsPtr->tclProcDeleteProc) /* 93 */ -#endif -#ifndef TclProcInterpProc -#define TclProcInterpProc \ - (tclIntStubsPtr->tclProcInterpProc) /* 94 */ -#endif -/* Slot 95 is reserved */ -#ifndef TclRenameCommand -#define TclRenameCommand \ - (tclIntStubsPtr->tclRenameCommand) /* 96 */ -#endif -#ifndef TclResetShadowedCmdRefs -#define TclResetShadowedCmdRefs \ - (tclIntStubsPtr->tclResetShadowedCmdRefs) /* 97 */ -#endif -#ifndef TclServiceIdle -#define TclServiceIdle \ - (tclIntStubsPtr->tclServiceIdle) /* 98 */ -#endif -/* Slot 99 is reserved */ -/* Slot 100 is reserved */ -#ifndef TclSetPreInitScript -#define TclSetPreInitScript \ - (tclIntStubsPtr->tclSetPreInitScript) /* 101 */ -#endif -#ifndef TclSetupEnv -#define TclSetupEnv \ - (tclIntStubsPtr->tclSetupEnv) /* 102 */ -#endif -#ifndef TclSockGetPort -#define TclSockGetPort \ - (tclIntStubsPtr->tclSockGetPort) /* 103 */ -#endif -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ -#ifndef TclSockMinimumBuffers -#define TclSockMinimumBuffers \ - (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */ -#endif -#endif /* UNIX */ -#ifdef __WIN32__ -#ifndef TclSockMinimumBuffers -#define TclSockMinimumBuffers \ - (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */ -#endif -#endif /* __WIN32__ */ -/* Slot 105 is reserved */ -#ifndef TclStatDeleteProc -#define TclStatDeleteProc \ - (tclIntStubsPtr->tclStatDeleteProc) /* 106 */ -#endif -#ifndef TclStatInsertProc -#define TclStatInsertProc \ - (tclIntStubsPtr->tclStatInsertProc) /* 107 */ -#endif -#ifndef TclTeardownNamespace -#define TclTeardownNamespace \ - (tclIntStubsPtr->tclTeardownNamespace) /* 108 */ -#endif -#ifndef TclUpdateReturnInfo -#define TclUpdateReturnInfo \ - (tclIntStubsPtr->tclUpdateReturnInfo) /* 109 */ -#endif -/* Slot 110 is reserved */ -#ifndef Tcl_AddInterpResolvers -#define Tcl_AddInterpResolvers \ - (tclIntStubsPtr->tcl_AddInterpResolvers) /* 111 */ -#endif -#ifndef Tcl_AppendExportList -#define Tcl_AppendExportList \ - (tclIntStubsPtr->tcl_AppendExportList) /* 112 */ -#endif -#ifndef Tcl_CreateNamespace -#define Tcl_CreateNamespace \ - (tclIntStubsPtr->tcl_CreateNamespace) /* 113 */ -#endif -#ifndef Tcl_DeleteNamespace -#define Tcl_DeleteNamespace \ - (tclIntStubsPtr->tcl_DeleteNamespace) /* 114 */ -#endif -#ifndef Tcl_Export -#define Tcl_Export \ - (tclIntStubsPtr->tcl_Export) /* 115 */ -#endif -#ifndef Tcl_FindCommand -#define Tcl_FindCommand \ - (tclIntStubsPtr->tcl_FindCommand) /* 116 */ -#endif -#ifndef Tcl_FindNamespace -#define Tcl_FindNamespace \ - (tclIntStubsPtr->tcl_FindNamespace) /* 117 */ -#endif -#ifndef Tcl_GetInterpResolvers -#define Tcl_GetInterpResolvers \ - (tclIntStubsPtr->tcl_GetInterpResolvers) /* 118 */ -#endif -#ifndef Tcl_GetNamespaceResolvers -#define Tcl_GetNamespaceResolvers \ - (tclIntStubsPtr->tcl_GetNamespaceResolvers) /* 119 */ -#endif -#ifndef Tcl_FindNamespaceVar -#define Tcl_FindNamespaceVar \ - (tclIntStubsPtr->tcl_FindNamespaceVar) /* 120 */ -#endif -#ifndef Tcl_ForgetImport -#define Tcl_ForgetImport \ - (tclIntStubsPtr->tcl_ForgetImport) /* 121 */ -#endif -#ifndef Tcl_GetCommandFromObj -#define Tcl_GetCommandFromObj \ - (tclIntStubsPtr->tcl_GetCommandFromObj) /* 122 */ -#endif -#ifndef Tcl_GetCommandFullName -#define Tcl_GetCommandFullName \ - (tclIntStubsPtr->tcl_GetCommandFullName) /* 123 */ -#endif -#ifndef Tcl_GetCurrentNamespace -#define Tcl_GetCurrentNamespace \ - (tclIntStubsPtr->tcl_GetCurrentNamespace) /* 124 */ -#endif -#ifndef Tcl_GetGlobalNamespace -#define Tcl_GetGlobalNamespace \ - (tclIntStubsPtr->tcl_GetGlobalNamespace) /* 125 */ -#endif -#ifndef Tcl_GetVariableFullName -#define Tcl_GetVariableFullName \ - (tclIntStubsPtr->tcl_GetVariableFullName) /* 126 */ -#endif -#ifndef Tcl_Import -#define Tcl_Import \ - (tclIntStubsPtr->tcl_Import) /* 127 */ -#endif -#ifndef Tcl_PopCallFrame -#define Tcl_PopCallFrame \ - (tclIntStubsPtr->tcl_PopCallFrame) /* 128 */ -#endif -#ifndef Tcl_PushCallFrame -#define Tcl_PushCallFrame \ - (tclIntStubsPtr->tcl_PushCallFrame) /* 129 */ -#endif -#ifndef Tcl_RemoveInterpResolvers -#define Tcl_RemoveInterpResolvers \ - (tclIntStubsPtr->tcl_RemoveInterpResolvers) /* 130 */ -#endif -#ifndef Tcl_SetNamespaceResolvers -#define Tcl_SetNamespaceResolvers \ - (tclIntStubsPtr->tcl_SetNamespaceResolvers) /* 131 */ -#endif -#ifndef TclpHasSockets -#define TclpHasSockets \ - (tclIntStubsPtr->tclpHasSockets) /* 132 */ -#endif -#ifndef TclpGetDate -#define TclpGetDate \ - (tclIntStubsPtr->tclpGetDate) /* 133 */ -#endif -#ifndef TclpStrftime -#define TclpStrftime \ - (tclIntStubsPtr->tclpStrftime) /* 134 */ -#endif -#ifndef TclpCheckStackSpace -#define TclpCheckStackSpace \ - (tclIntStubsPtr->tclpCheckStackSpace) /* 135 */ -#endif -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -#ifndef TclGetEnv -#define TclGetEnv \ - (tclIntStubsPtr->tclGetEnv) /* 138 */ -#endif -/* Slot 139 is reserved */ -#ifndef TclLooksLikeInt -#define TclLooksLikeInt \ - (tclIntStubsPtr->tclLooksLikeInt) /* 140 */ -#endif -#ifndef TclpGetCwd -#define TclpGetCwd \ - (tclIntStubsPtr->tclpGetCwd) /* 141 */ -#endif -#ifndef TclSetByteCodeFromAny -#define TclSetByteCodeFromAny \ - (tclIntStubsPtr->tclSetByteCodeFromAny) /* 142 */ -#endif -#ifndef TclAddLiteralObj -#define TclAddLiteralObj \ - (tclIntStubsPtr->tclAddLiteralObj) /* 143 */ -#endif -#ifndef TclHideLiteral -#define TclHideLiteral \ - (tclIntStubsPtr->tclHideLiteral) /* 144 */ -#endif -#ifndef TclGetAuxDataType -#define TclGetAuxDataType \ - (tclIntStubsPtr->tclGetAuxDataType) /* 145 */ -#endif -#ifndef TclHandleCreate -#define TclHandleCreate \ - (tclIntStubsPtr->tclHandleCreate) /* 146 */ -#endif -#ifndef TclHandleFree -#define TclHandleFree \ - (tclIntStubsPtr->tclHandleFree) /* 147 */ -#endif -#ifndef TclHandlePreserve -#define TclHandlePreserve \ - (tclIntStubsPtr->tclHandlePreserve) /* 148 */ -#endif -#ifndef TclHandleRelease -#define TclHandleRelease \ - (tclIntStubsPtr->tclHandleRelease) /* 149 */ -#endif -#ifndef TclRegAbout -#define TclRegAbout \ - (tclIntStubsPtr->tclRegAbout) /* 150 */ -#endif -#ifndef TclRegExpRangeUniChar -#define TclRegExpRangeUniChar \ - (tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */ -#endif -#ifndef TclSetLibraryPath -#define TclSetLibraryPath \ - (tclIntStubsPtr->tclSetLibraryPath) /* 152 */ -#endif -#ifndef TclGetLibraryPath -#define TclGetLibraryPath \ - (tclIntStubsPtr->tclGetLibraryPath) /* 153 */ -#endif -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -#ifndef TclRegError -#define TclRegError \ - (tclIntStubsPtr->tclRegError) /* 156 */ -#endif -#ifndef TclVarTraceExists -#define TclVarTraceExists \ - (tclIntStubsPtr->tclVarTraceExists) /* 157 */ -#endif -#ifndef TclSetStartupScriptFileName -#define TclSetStartupScriptFileName \ - (tclIntStubsPtr->tclSetStartupScriptFileName) /* 158 */ -#endif -#ifndef TclGetStartupScriptFileName -#define TclGetStartupScriptFileName \ - (tclIntStubsPtr->tclGetStartupScriptFileName) /* 159 */ -#endif -/* Slot 160 is reserved */ -#ifndef TclChannelTransform -#define TclChannelTransform \ - (tclIntStubsPtr->tclChannelTransform) /* 161 */ -#endif -#ifndef TclChannelEventScriptInvoker -#define TclChannelEventScriptInvoker \ - (tclIntStubsPtr->tclChannelEventScriptInvoker) /* 162 */ -#endif -#ifndef TclGetInstructionTable -#define TclGetInstructionTable \ - (tclIntStubsPtr->tclGetInstructionTable) /* 163 */ -#endif -#ifndef TclExpandCodeArray -#define TclExpandCodeArray \ - (tclIntStubsPtr->tclExpandCodeArray) /* 164 */ -#endif -#ifndef TclpSetInitialEncodings -#define TclpSetInitialEncodings \ - (tclIntStubsPtr->tclpSetInitialEncodings) /* 165 */ -#endif -#ifndef TclListObjSetElement -#define TclListObjSetElement \ - (tclIntStubsPtr->tclListObjSetElement) /* 166 */ -#endif -#ifndef TclSetStartupScriptPath -#define TclSetStartupScriptPath \ - (tclIntStubsPtr->tclSetStartupScriptPath) /* 167 */ -#endif -#ifndef TclGetStartupScriptPath -#define TclGetStartupScriptPath \ - (tclIntStubsPtr->tclGetStartupScriptPath) /* 168 */ -#endif -#ifndef TclpUtfNcmp2 -#define TclpUtfNcmp2 \ - (tclIntStubsPtr->tclpUtfNcmp2) /* 169 */ -#endif -#ifndef TclCheckInterpTraces -#define TclCheckInterpTraces \ - (tclIntStubsPtr->tclCheckInterpTraces) /* 170 */ -#endif -#ifndef TclCheckExecutionTraces -#define TclCheckExecutionTraces \ - (tclIntStubsPtr->tclCheckExecutionTraces) /* 171 */ -#endif -#ifndef TclInThreadExit -#define TclInThreadExit \ - (tclIntStubsPtr->tclInThreadExit) /* 172 */ -#endif -#ifndef TclUniCharMatch -#define TclUniCharMatch \ - (tclIntStubsPtr->tclUniCharMatch) /* 173 */ -#endif - -#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#endif /* _TCLINTDECLS */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tclIntPlatDecls.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tclIntPlatDecls.h deleted file mode 100644 index d69d3e9eead..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tclIntPlatDecls.h +++ /dev/null @@ -1,585 +0,0 @@ -/* - * tclIntPlatDecls.h -- - * - * This file contains the declarations for all platform dependent - * unsupported functions that are exported by the Tcl library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - * - * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.19 2002/12/06 23:22:59 hobbs Exp $ - */ - -#ifndef _TCLINTPLATDECLS -#define _TCLINTPLATDECLS - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tclInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -/* - * Exported function declarations: - */ - -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ -/* 0 */ -EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Channel chan)); -/* 1 */ -EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file)); -/* 2 */ -EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_(( - TclFile readFile, TclFile writeFile, - TclFile errorFile, int numPids, - Tcl_Pid * pidPtr)); -/* 3 */ -EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, - TclFile * writePipe)); -/* 4 */ -EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, - int argc, Tcl_Obj *CONST *objv, - TclFile inputFile, TclFile outputFile, - TclFile errorFile, Tcl_Pid * pidPtr)); -/* Slot 5 is reserved */ -/* 6 */ -EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, - int direction)); -/* 7 */ -EXTERN TclFile TclpOpenFile _ANSI_ARGS_((CONST char * fname, - int mode)); -/* 8 */ -EXTERN int TclUnixWaitForFile _ANSI_ARGS_((int fd, int mask, - int timeout)); -/* 9 */ -EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_(( - CONST char * contents)); -/* 10 */ -EXTERN Tcl_DirEntry * TclpReaddir _ANSI_ARGS_((DIR * dir)); -/* 11 */ -EXTERN struct tm * TclpLocaltime _ANSI_ARGS_((time_t * clock)); -/* 12 */ -EXTERN struct tm * TclpGmtime _ANSI_ARGS_((time_t * clock)); -/* 13 */ -EXTERN char * TclpInetNtoa _ANSI_ARGS_((struct in_addr addr)); -#endif /* UNIX */ -#ifdef __WIN32__ -/* 0 */ -EXTERN void TclWinConvertError _ANSI_ARGS_((DWORD errCode)); -/* 1 */ -EXTERN void TclWinConvertWSAError _ANSI_ARGS_((DWORD errCode)); -/* 2 */ -EXTERN struct servent * TclWinGetServByName _ANSI_ARGS_((CONST char * nm, - CONST char * proto)); -/* 3 */ -EXTERN int TclWinGetSockOpt _ANSI_ARGS_((SOCKET s, int level, - int optname, char FAR * optval, - int FAR * optlen)); -/* 4 */ -EXTERN HINSTANCE TclWinGetTclInstance _ANSI_ARGS_((void)); -/* Slot 5 is reserved */ -/* 6 */ -EXTERN u_short TclWinNToHS _ANSI_ARGS_((u_short ns)); -/* 7 */ -EXTERN int TclWinSetSockOpt _ANSI_ARGS_((SOCKET s, int level, - int optname, CONST char FAR * optval, - int optlen)); -/* 8 */ -EXTERN unsigned long TclpGetPid _ANSI_ARGS_((Tcl_Pid pid)); -/* 9 */ -EXTERN int TclWinGetPlatformId _ANSI_ARGS_((void)); -/* Slot 10 is reserved */ -/* 11 */ -EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Channel chan)); -/* 12 */ -EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file)); -/* 13 */ -EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_(( - TclFile readFile, TclFile writeFile, - TclFile errorFile, int numPids, - Tcl_Pid * pidPtr)); -/* 14 */ -EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, - TclFile * writePipe)); -/* 15 */ -EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, - int argc, Tcl_Obj *CONST *objv, - TclFile inputFile, TclFile outputFile, - TclFile errorFile, Tcl_Pid * pidPtr)); -/* Slot 16 is reserved */ -/* Slot 17 is reserved */ -/* 18 */ -EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, - int direction)); -/* 19 */ -EXTERN TclFile TclpOpenFile _ANSI_ARGS_((CONST char * fname, - int mode)); -/* 20 */ -EXTERN void TclWinAddProcess _ANSI_ARGS_((HANDLE hProcess, - DWORD id)); -/* Slot 21 is reserved */ -/* 22 */ -EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_(( - CONST char * contents)); -/* 23 */ -EXTERN char * TclpGetTZName _ANSI_ARGS_((int isdst)); -/* 24 */ -EXTERN char * TclWinNoBackslash _ANSI_ARGS_((char * path)); -/* 25 */ -EXTERN TclPlatformType * TclWinGetPlatform _ANSI_ARGS_((void)); -/* 26 */ -EXTERN void TclWinSetInterfaces _ANSI_ARGS_((int wide)); -/* 27 */ -EXTERN void TclWinFlushDirtyChannels _ANSI_ARGS_((void)); -/* 28 */ -EXTERN void TclWinResetInterfaces _ANSI_ARGS_((void)); -#endif /* __WIN32__ */ -#ifdef MAC_TCL -/* 0 */ -EXTERN VOID * TclpSysAlloc _ANSI_ARGS_((long size, int isBin)); -/* 1 */ -EXTERN void TclpSysFree _ANSI_ARGS_((VOID * ptr)); -/* 2 */ -EXTERN VOID * TclpSysRealloc _ANSI_ARGS_((VOID * cp, - unsigned int size)); -/* 3 */ -EXTERN void TclpExit _ANSI_ARGS_((int status)); -/* 4 */ -EXTERN int FSpGetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec)); -/* 5 */ -EXTERN int FSpSetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec)); -/* 6 */ -EXTERN OSErr FSpFindFolder _ANSI_ARGS_((short vRefNum, - OSType folderType, Boolean createFolder, - FSSpec * spec)); -/* 7 */ -EXTERN void GetGlobalMouseTcl _ANSI_ARGS_((Point * mouse)); -/* 8 */ -EXTERN pascal OSErr FSpGetDirectoryIDTcl _ANSI_ARGS_(( - CONST FSSpec * spec, long * theDirID, - Boolean * isDirectory)); -/* 9 */ -EXTERN pascal short FSpOpenResFileCompatTcl _ANSI_ARGS_(( - CONST FSSpec * spec, SignedByte permission)); -/* 10 */ -EXTERN pascal void FSpCreateResFileCompatTcl _ANSI_ARGS_(( - CONST FSSpec * spec, OSType creator, - OSType fileType, ScriptCode scriptTag)); -/* 11 */ -EXTERN int FSpLocationFromPath _ANSI_ARGS_((int length, - CONST char * path, FSSpecPtr theSpec)); -/* 12 */ -EXTERN OSErr FSpPathFromLocation _ANSI_ARGS_((FSSpecPtr theSpec, - int * length, Handle * fullPath)); -/* 13 */ -EXTERN void TclMacExitHandler _ANSI_ARGS_((void)); -/* 14 */ -EXTERN void TclMacInitExitToShell _ANSI_ARGS_((int usePatch)); -/* 15 */ -EXTERN OSErr TclMacInstallExitToShellPatch _ANSI_ARGS_(( - ExitToShellProcPtr newProc)); -/* 16 */ -EXTERN int TclMacOSErrorToPosixError _ANSI_ARGS_((int error)); -/* 17 */ -EXTERN void TclMacRemoveTimer _ANSI_ARGS_((void * timerToken)); -/* 18 */ -EXTERN void * TclMacStartTimer _ANSI_ARGS_((long ms)); -/* 19 */ -EXTERN int TclMacTimerExpired _ANSI_ARGS_((void * timerToken)); -/* 20 */ -EXTERN int TclMacRegisterResourceFork _ANSI_ARGS_(( - short fileRef, Tcl_Obj * tokenPtr, - int insert)); -/* 21 */ -EXTERN short TclMacUnRegisterResourceFork _ANSI_ARGS_(( - char * tokenPtr, Tcl_Obj * resultPtr)); -/* 22 */ -EXTERN int TclMacCreateEnv _ANSI_ARGS_((void)); -/* 23 */ -EXTERN FILE * TclMacFOpenHack _ANSI_ARGS_((CONST char * path, - CONST char * mode)); -/* 24 */ -EXTERN char * TclpGetTZName _ANSI_ARGS_((int isdst)); -/* 25 */ -EXTERN int TclMacChmod _ANSI_ARGS_((CONST char * path, int mode)); -/* 26 */ -EXTERN int FSpLLocationFromPath _ANSI_ARGS_((int length, - CONST char * path, FSSpecPtr theSpec)); -#endif /* MAC_TCL */ - -typedef struct TclIntPlatStubs { - int magic; - struct TclIntPlatStubHooks *hooks; - -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 0 */ - int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 1 */ - Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 2 */ - int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 3 */ - int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, Tcl_Obj *CONST *objv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 4 */ - void *reserved5; - TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 6 */ - TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 7 */ - int (*tclUnixWaitForFile) _ANSI_ARGS_((int fd, int mask, int timeout)); /* 8 */ - TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 9 */ - Tcl_DirEntry * (*tclpReaddir) _ANSI_ARGS_((DIR * dir)); /* 10 */ - struct tm * (*tclpLocaltime) _ANSI_ARGS_((time_t * clock)); /* 11 */ - struct tm * (*tclpGmtime) _ANSI_ARGS_((time_t * clock)); /* 12 */ - char * (*tclpInetNtoa) _ANSI_ARGS_((struct in_addr addr)); /* 13 */ -#endif /* UNIX */ -#ifdef __WIN32__ - void (*tclWinConvertError) _ANSI_ARGS_((DWORD errCode)); /* 0 */ - void (*tclWinConvertWSAError) _ANSI_ARGS_((DWORD errCode)); /* 1 */ - struct servent * (*tclWinGetServByName) _ANSI_ARGS_((CONST char * nm, CONST char * proto)); /* 2 */ - int (*tclWinGetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, char FAR * optval, int FAR * optlen)); /* 3 */ - HINSTANCE (*tclWinGetTclInstance) _ANSI_ARGS_((void)); /* 4 */ - void *reserved5; - u_short (*tclWinNToHS) _ANSI_ARGS_((u_short ns)); /* 6 */ - int (*tclWinSetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, CONST char FAR * optval, int optlen)); /* 7 */ - unsigned long (*tclpGetPid) _ANSI_ARGS_((Tcl_Pid pid)); /* 8 */ - int (*tclWinGetPlatformId) _ANSI_ARGS_((void)); /* 9 */ - void *reserved10; - void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 11 */ - int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 12 */ - Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 13 */ - int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 14 */ - int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, Tcl_Obj *CONST *objv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 15 */ - void *reserved16; - void *reserved17; - TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 18 */ - TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 19 */ - void (*tclWinAddProcess) _ANSI_ARGS_((HANDLE hProcess, DWORD id)); /* 20 */ - void *reserved21; - TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 22 */ - char * (*tclpGetTZName) _ANSI_ARGS_((int isdst)); /* 23 */ - char * (*tclWinNoBackslash) _ANSI_ARGS_((char * path)); /* 24 */ - TclPlatformType * (*tclWinGetPlatform) _ANSI_ARGS_((void)); /* 25 */ - void (*tclWinSetInterfaces) _ANSI_ARGS_((int wide)); /* 26 */ - void (*tclWinFlushDirtyChannels) _ANSI_ARGS_((void)); /* 27 */ - void (*tclWinResetInterfaces) _ANSI_ARGS_((void)); /* 28 */ -#endif /* __WIN32__ */ -#ifdef MAC_TCL - VOID * (*tclpSysAlloc) _ANSI_ARGS_((long size, int isBin)); /* 0 */ - void (*tclpSysFree) _ANSI_ARGS_((VOID * ptr)); /* 1 */ - VOID * (*tclpSysRealloc) _ANSI_ARGS_((VOID * cp, unsigned int size)); /* 2 */ - void (*tclpExit) _ANSI_ARGS_((int status)); /* 3 */ - int (*fSpGetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 4 */ - int (*fSpSetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 5 */ - OSErr (*fSpFindFolder) _ANSI_ARGS_((short vRefNum, OSType folderType, Boolean createFolder, FSSpec * spec)); /* 6 */ - void (*getGlobalMouseTcl) _ANSI_ARGS_((Point * mouse)); /* 7 */ - pascal OSErr (*fSpGetDirectoryIDTcl) _ANSI_ARGS_((CONST FSSpec * spec, long * theDirID, Boolean * isDirectory)); /* 8 */ - pascal short (*fSpOpenResFileCompatTcl) _ANSI_ARGS_((CONST FSSpec * spec, SignedByte permission)); /* 9 */ - pascal void (*fSpCreateResFileCompatTcl) _ANSI_ARGS_((CONST FSSpec * spec, OSType creator, OSType fileType, ScriptCode scriptTag)); /* 10 */ - int (*fSpLocationFromPath) _ANSI_ARGS_((int length, CONST char * path, FSSpecPtr theSpec)); /* 11 */ - OSErr (*fSpPathFromLocation) _ANSI_ARGS_((FSSpecPtr theSpec, int * length, Handle * fullPath)); /* 12 */ - void (*tclMacExitHandler) _ANSI_ARGS_((void)); /* 13 */ - void (*tclMacInitExitToShell) _ANSI_ARGS_((int usePatch)); /* 14 */ - OSErr (*tclMacInstallExitToShellPatch) _ANSI_ARGS_((ExitToShellProcPtr newProc)); /* 15 */ - int (*tclMacOSErrorToPosixError) _ANSI_ARGS_((int error)); /* 16 */ - void (*tclMacRemoveTimer) _ANSI_ARGS_((void * timerToken)); /* 17 */ - void * (*tclMacStartTimer) _ANSI_ARGS_((long ms)); /* 18 */ - int (*tclMacTimerExpired) _ANSI_ARGS_((void * timerToken)); /* 19 */ - int (*tclMacRegisterResourceFork) _ANSI_ARGS_((short fileRef, Tcl_Obj * tokenPtr, int insert)); /* 20 */ - short (*tclMacUnRegisterResourceFork) _ANSI_ARGS_((char * tokenPtr, Tcl_Obj * resultPtr)); /* 21 */ - int (*tclMacCreateEnv) _ANSI_ARGS_((void)); /* 22 */ - FILE * (*tclMacFOpenHack) _ANSI_ARGS_((CONST char * path, CONST char * mode)); /* 23 */ - char * (*tclpGetTZName) _ANSI_ARGS_((int isdst)); /* 24 */ - int (*tclMacChmod) _ANSI_ARGS_((CONST char * path, int mode)); /* 25 */ - int (*fSpLLocationFromPath) _ANSI_ARGS_((int length, CONST char * path, FSSpecPtr theSpec)); /* 26 */ -#endif /* MAC_TCL */ -} TclIntPlatStubs; - -#ifdef __cplusplus -extern "C" { -#endif -extern TclIntPlatStubs *tclIntPlatStubsPtr; -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ -#ifndef TclGetAndDetachPids -#define TclGetAndDetachPids \ - (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */ -#endif -#ifndef TclpCloseFile -#define TclpCloseFile \ - (tclIntPlatStubsPtr->tclpCloseFile) /* 1 */ -#endif -#ifndef TclpCreateCommandChannel -#define TclpCreateCommandChannel \ - (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */ -#endif -#ifndef TclpCreatePipe -#define TclpCreatePipe \ - (tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */ -#endif -#ifndef TclpCreateProcess -#define TclpCreateProcess \ - (tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */ -#endif -/* Slot 5 is reserved */ -#ifndef TclpMakeFile -#define TclpMakeFile \ - (tclIntPlatStubsPtr->tclpMakeFile) /* 6 */ -#endif -#ifndef TclpOpenFile -#define TclpOpenFile \ - (tclIntPlatStubsPtr->tclpOpenFile) /* 7 */ -#endif -#ifndef TclUnixWaitForFile -#define TclUnixWaitForFile \ - (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */ -#endif -#ifndef TclpCreateTempFile -#define TclpCreateTempFile \ - (tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */ -#endif -#ifndef TclpReaddir -#define TclpReaddir \ - (tclIntPlatStubsPtr->tclpReaddir) /* 10 */ -#endif -#ifndef TclpLocaltime -#define TclpLocaltime \ - (tclIntPlatStubsPtr->tclpLocaltime) /* 11 */ -#endif -#ifndef TclpGmtime -#define TclpGmtime \ - (tclIntPlatStubsPtr->tclpGmtime) /* 12 */ -#endif -#ifndef TclpInetNtoa -#define TclpInetNtoa \ - (tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */ -#endif -#endif /* UNIX */ -#ifdef __WIN32__ -#ifndef TclWinConvertError -#define TclWinConvertError \ - (tclIntPlatStubsPtr->tclWinConvertError) /* 0 */ -#endif -#ifndef TclWinConvertWSAError -#define TclWinConvertWSAError \ - (tclIntPlatStubsPtr->tclWinConvertWSAError) /* 1 */ -#endif -#ifndef TclWinGetServByName -#define TclWinGetServByName \ - (tclIntPlatStubsPtr->tclWinGetServByName) /* 2 */ -#endif -#ifndef TclWinGetSockOpt -#define TclWinGetSockOpt \ - (tclIntPlatStubsPtr->tclWinGetSockOpt) /* 3 */ -#endif -#ifndef TclWinGetTclInstance -#define TclWinGetTclInstance \ - (tclIntPlatStubsPtr->tclWinGetTclInstance) /* 4 */ -#endif -/* Slot 5 is reserved */ -#ifndef TclWinNToHS -#define TclWinNToHS \ - (tclIntPlatStubsPtr->tclWinNToHS) /* 6 */ -#endif -#ifndef TclWinSetSockOpt -#define TclWinSetSockOpt \ - (tclIntPlatStubsPtr->tclWinSetSockOpt) /* 7 */ -#endif -#ifndef TclpGetPid -#define TclpGetPid \ - (tclIntPlatStubsPtr->tclpGetPid) /* 8 */ -#endif -#ifndef TclWinGetPlatformId -#define TclWinGetPlatformId \ - (tclIntPlatStubsPtr->tclWinGetPlatformId) /* 9 */ -#endif -/* Slot 10 is reserved */ -#ifndef TclGetAndDetachPids -#define TclGetAndDetachPids \ - (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 11 */ -#endif -#ifndef TclpCloseFile -#define TclpCloseFile \ - (tclIntPlatStubsPtr->tclpCloseFile) /* 12 */ -#endif -#ifndef TclpCreateCommandChannel -#define TclpCreateCommandChannel \ - (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 13 */ -#endif -#ifndef TclpCreatePipe -#define TclpCreatePipe \ - (tclIntPlatStubsPtr->tclpCreatePipe) /* 14 */ -#endif -#ifndef TclpCreateProcess -#define TclpCreateProcess \ - (tclIntPlatStubsPtr->tclpCreateProcess) /* 15 */ -#endif -/* Slot 16 is reserved */ -/* Slot 17 is reserved */ -#ifndef TclpMakeFile -#define TclpMakeFile \ - (tclIntPlatStubsPtr->tclpMakeFile) /* 18 */ -#endif -#ifndef TclpOpenFile -#define TclpOpenFile \ - (tclIntPlatStubsPtr->tclpOpenFile) /* 19 */ -#endif -#ifndef TclWinAddProcess -#define TclWinAddProcess \ - (tclIntPlatStubsPtr->tclWinAddProcess) /* 20 */ -#endif -/* Slot 21 is reserved */ -#ifndef TclpCreateTempFile -#define TclpCreateTempFile \ - (tclIntPlatStubsPtr->tclpCreateTempFile) /* 22 */ -#endif -#ifndef TclpGetTZName -#define TclpGetTZName \ - (tclIntPlatStubsPtr->tclpGetTZName) /* 23 */ -#endif -#ifndef TclWinNoBackslash -#define TclWinNoBackslash \ - (tclIntPlatStubsPtr->tclWinNoBackslash) /* 24 */ -#endif -#ifndef TclWinGetPlatform -#define TclWinGetPlatform \ - (tclIntPlatStubsPtr->tclWinGetPlatform) /* 25 */ -#endif -#ifndef TclWinSetInterfaces -#define TclWinSetInterfaces \ - (tclIntPlatStubsPtr->tclWinSetInterfaces) /* 26 */ -#endif -#ifndef TclWinFlushDirtyChannels -#define TclWinFlushDirtyChannels \ - (tclIntPlatStubsPtr->tclWinFlushDirtyChannels) /* 27 */ -#endif -#ifndef TclWinResetInterfaces -#define TclWinResetInterfaces \ - (tclIntPlatStubsPtr->tclWinResetInterfaces) /* 28 */ -#endif -#endif /* __WIN32__ */ -#ifdef MAC_TCL -#ifndef TclpSysAlloc -#define TclpSysAlloc \ - (tclIntPlatStubsPtr->tclpSysAlloc) /* 0 */ -#endif -#ifndef TclpSysFree -#define TclpSysFree \ - (tclIntPlatStubsPtr->tclpSysFree) /* 1 */ -#endif -#ifndef TclpSysRealloc -#define TclpSysRealloc \ - (tclIntPlatStubsPtr->tclpSysRealloc) /* 2 */ -#endif -#ifndef TclpExit -#define TclpExit \ - (tclIntPlatStubsPtr->tclpExit) /* 3 */ -#endif -#ifndef FSpGetDefaultDir -#define FSpGetDefaultDir \ - (tclIntPlatStubsPtr->fSpGetDefaultDir) /* 4 */ -#endif -#ifndef FSpSetDefaultDir -#define FSpSetDefaultDir \ - (tclIntPlatStubsPtr->fSpSetDefaultDir) /* 5 */ -#endif -#ifndef FSpFindFolder -#define FSpFindFolder \ - (tclIntPlatStubsPtr->fSpFindFolder) /* 6 */ -#endif -#ifndef GetGlobalMouseTcl -#define GetGlobalMouseTcl \ - (tclIntPlatStubsPtr->getGlobalMouseTcl) /* 7 */ -#endif -#ifndef FSpGetDirectoryIDTcl -#define FSpGetDirectoryIDTcl \ - (tclIntPlatStubsPtr->fSpGetDirectoryIDTcl) /* 8 */ -#endif -#ifndef FSpOpenResFileCompatTcl -#define FSpOpenResFileCompatTcl \ - (tclIntPlatStubsPtr->fSpOpenResFileCompatTcl) /* 9 */ -#endif -#ifndef FSpCreateResFileCompatTcl -#define FSpCreateResFileCompatTcl \ - (tclIntPlatStubsPtr->fSpCreateResFileCompatTcl) /* 10 */ -#endif -#ifndef FSpLocationFromPath -#define FSpLocationFromPath \ - (tclIntPlatStubsPtr->fSpLocationFromPath) /* 11 */ -#endif -#ifndef FSpPathFromLocation -#define FSpPathFromLocation \ - (tclIntPlatStubsPtr->fSpPathFromLocation) /* 12 */ -#endif -#ifndef TclMacExitHandler -#define TclMacExitHandler \ - (tclIntPlatStubsPtr->tclMacExitHandler) /* 13 */ -#endif -#ifndef TclMacInitExitToShell -#define TclMacInitExitToShell \ - (tclIntPlatStubsPtr->tclMacInitExitToShell) /* 14 */ -#endif -#ifndef TclMacInstallExitToShellPatch -#define TclMacInstallExitToShellPatch \ - (tclIntPlatStubsPtr->tclMacInstallExitToShellPatch) /* 15 */ -#endif -#ifndef TclMacOSErrorToPosixError -#define TclMacOSErrorToPosixError \ - (tclIntPlatStubsPtr->tclMacOSErrorToPosixError) /* 16 */ -#endif -#ifndef TclMacRemoveTimer -#define TclMacRemoveTimer \ - (tclIntPlatStubsPtr->tclMacRemoveTimer) /* 17 */ -#endif -#ifndef TclMacStartTimer -#define TclMacStartTimer \ - (tclIntPlatStubsPtr->tclMacStartTimer) /* 18 */ -#endif -#ifndef TclMacTimerExpired -#define TclMacTimerExpired \ - (tclIntPlatStubsPtr->tclMacTimerExpired) /* 19 */ -#endif -#ifndef TclMacRegisterResourceFork -#define TclMacRegisterResourceFork \ - (tclIntPlatStubsPtr->tclMacRegisterResourceFork) /* 20 */ -#endif -#ifndef TclMacUnRegisterResourceFork -#define TclMacUnRegisterResourceFork \ - (tclIntPlatStubsPtr->tclMacUnRegisterResourceFork) /* 21 */ -#endif -#ifndef TclMacCreateEnv -#define TclMacCreateEnv \ - (tclIntPlatStubsPtr->tclMacCreateEnv) /* 22 */ -#endif -#ifndef TclMacFOpenHack -#define TclMacFOpenHack \ - (tclIntPlatStubsPtr->tclMacFOpenHack) /* 23 */ -#endif -#ifndef TclpGetTZName -#define TclpGetTZName \ - (tclIntPlatStubsPtr->tclpGetTZName) /* 24 */ -#endif -#ifndef TclMacChmod -#define TclMacChmod \ - (tclIntPlatStubsPtr->tclMacChmod) /* 25 */ -#endif -#ifndef FSpLLocationFromPath -#define FSpLLocationFromPath \ - (tclIntPlatStubsPtr->fSpLLocationFromPath) /* 26 */ -#endif -#endif /* MAC_TCL */ - -#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#endif /* _TCLINTPLATDECLS */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tclMath.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tclMath.h deleted file mode 100644 index ee1a02e375f..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tclMath.h +++ /dev/null @@ -1,27 +0,0 @@ -/* - * tclMath.h -- - * - * This file is necessary because of Metrowerks CodeWarrior Pro 1 - * on the Macintosh. With 8-byte doubles turned on, the definitions of - * sin, cos, acos, etc., are screwed up. They are fine as long as - * they are used as function calls, but if the function pointers - * are passed around and used, they will crash hard on the 68K. - * - * Copyright (c) 1997 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tclMath.h,v 1.2 1998/09/14 18:40:01 stanton Exp $ - */ - -#ifndef _TCLMATH -#define _TCLMATH - -#if defined(MAC_TCL) -# include "tclMacMath.h" -#else -# include <math.h> -#endif - -#endif /* _TCLMATH */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tclPlatDecls.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tclPlatDecls.h deleted file mode 100644 index 3b567dbeb95..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tclPlatDecls.h +++ /dev/null @@ -1,197 +0,0 @@ -/* - * tclPlatDecls.h -- - * - * Declarations of platform specific Tcl APIs. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - * - * RCS: @(#) $Id: tclPlatDecls.h,v 1.18.2.1 2003/05/13 08:41:26 das Exp $ - */ - -#ifndef _TCLPLATDECLS -#define _TCLPLATDECLS - -/* - * Pull in the typedef of TCHAR for windows. - */ -#if defined(__CYGWIN__) - typedef char TCHAR; -#elif defined(__WIN32__) && !defined(_TCHAR_DEFINED) -# include <tchar.h> -# ifndef _TCHAR_DEFINED - /* Borland seems to forget to set this. */ - typedef _TCHAR TCHAR; -# define _TCHAR_DEFINED -# endif -# if defined(_MSC_VER) && defined(__STDC__) - /* MSVC++ misses this. */ - typedef _TCHAR TCHAR; -# endif -#endif - -/* !BEGIN!: Do not edit below this line. */ - -/* - * Exported function declarations: - */ - -#ifdef __WIN32__ -/* 0 */ -EXTERN TCHAR * Tcl_WinUtfToTChar _ANSI_ARGS_((CONST char * str, - int len, Tcl_DString * dsPtr)); -/* 1 */ -EXTERN char * Tcl_WinTCharToUtf _ANSI_ARGS_((CONST TCHAR * str, - int len, Tcl_DString * dsPtr)); -#endif /* __WIN32__ */ -#ifdef MAC_TCL -/* 0 */ -EXTERN void Tcl_MacSetEventProc _ANSI_ARGS_(( - Tcl_MacConvertEventPtr procPtr)); -/* 1 */ -EXTERN char * Tcl_MacConvertTextResource _ANSI_ARGS_(( - Handle resource)); -/* 2 */ -EXTERN int Tcl_MacEvalResource _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * resourceName, - int resourceNumber, CONST char * fileName)); -/* 3 */ -EXTERN Handle Tcl_MacFindResource _ANSI_ARGS_((Tcl_Interp * interp, - long resourceType, CONST char * resourceName, - int resourceNumber, CONST char * resFileRef, - int * releaseIt)); -/* 4 */ -EXTERN int Tcl_GetOSTypeFromObj _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * objPtr, - OSType * osTypePtr)); -/* 5 */ -EXTERN void Tcl_SetOSTypeObj _ANSI_ARGS_((Tcl_Obj * objPtr, - OSType osType)); -/* 6 */ -EXTERN Tcl_Obj * Tcl_NewOSTypeObj _ANSI_ARGS_((OSType osType)); -/* 7 */ -EXTERN int strncasecmp _ANSI_ARGS_((CONST char * s1, - CONST char * s2, size_t n)); -/* 8 */ -EXTERN int strcasecmp _ANSI_ARGS_((CONST char * s1, - CONST char * s2)); -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TCL -/* 0 */ -EXTERN int Tcl_MacOSXOpenBundleResources _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * bundleName, - int hasResourceFile, int maxPathLen, - char * libraryPath)); -/* 1 */ -EXTERN int Tcl_MacOSXOpenVersionedBundleResources _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * bundleName, - CONST char * bundleVersion, - int hasResourceFile, int maxPathLen, - char * libraryPath)); -#endif /* MAC_OSX_TCL */ - -typedef struct TclPlatStubs { - int magic; - struct TclPlatStubHooks *hooks; - -#ifdef __WIN32__ - TCHAR * (*tcl_WinUtfToTChar) _ANSI_ARGS_((CONST char * str, int len, Tcl_DString * dsPtr)); /* 0 */ - char * (*tcl_WinTCharToUtf) _ANSI_ARGS_((CONST TCHAR * str, int len, Tcl_DString * dsPtr)); /* 1 */ -#endif /* __WIN32__ */ -#ifdef MAC_TCL - void (*tcl_MacSetEventProc) _ANSI_ARGS_((Tcl_MacConvertEventPtr procPtr)); /* 0 */ - char * (*tcl_MacConvertTextResource) _ANSI_ARGS_((Handle resource)); /* 1 */ - int (*tcl_MacEvalResource) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * resourceName, int resourceNumber, CONST char * fileName)); /* 2 */ - Handle (*tcl_MacFindResource) _ANSI_ARGS_((Tcl_Interp * interp, long resourceType, CONST char * resourceName, int resourceNumber, CONST char * resFileRef, int * releaseIt)); /* 3 */ - int (*tcl_GetOSTypeFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, OSType * osTypePtr)); /* 4 */ - void (*tcl_SetOSTypeObj) _ANSI_ARGS_((Tcl_Obj * objPtr, OSType osType)); /* 5 */ - Tcl_Obj * (*tcl_NewOSTypeObj) _ANSI_ARGS_((OSType osType)); /* 6 */ - int (*strncasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, size_t n)); /* 7 */ - int (*strcasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2)); /* 8 */ -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TCL - int (*tcl_MacOSXOpenBundleResources) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * bundleName, int hasResourceFile, int maxPathLen, char * libraryPath)); /* 0 */ - int (*tcl_MacOSXOpenVersionedBundleResources) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * bundleName, CONST char * bundleVersion, int hasResourceFile, int maxPathLen, char * libraryPath)); /* 1 */ -#endif /* MAC_OSX_TCL */ -} TclPlatStubs; - -#ifdef __cplusplus -extern "C" { -#endif -extern TclPlatStubs *tclPlatStubsPtr; -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifdef __WIN32__ -#ifndef Tcl_WinUtfToTChar -#define Tcl_WinUtfToTChar \ - (tclPlatStubsPtr->tcl_WinUtfToTChar) /* 0 */ -#endif -#ifndef Tcl_WinTCharToUtf -#define Tcl_WinTCharToUtf \ - (tclPlatStubsPtr->tcl_WinTCharToUtf) /* 1 */ -#endif -#endif /* __WIN32__ */ -#ifdef MAC_TCL -#ifndef Tcl_MacSetEventProc -#define Tcl_MacSetEventProc \ - (tclPlatStubsPtr->tcl_MacSetEventProc) /* 0 */ -#endif -#ifndef Tcl_MacConvertTextResource -#define Tcl_MacConvertTextResource \ - (tclPlatStubsPtr->tcl_MacConvertTextResource) /* 1 */ -#endif -#ifndef Tcl_MacEvalResource -#define Tcl_MacEvalResource \ - (tclPlatStubsPtr->tcl_MacEvalResource) /* 2 */ -#endif -#ifndef Tcl_MacFindResource -#define Tcl_MacFindResource \ - (tclPlatStubsPtr->tcl_MacFindResource) /* 3 */ -#endif -#ifndef Tcl_GetOSTypeFromObj -#define Tcl_GetOSTypeFromObj \ - (tclPlatStubsPtr->tcl_GetOSTypeFromObj) /* 4 */ -#endif -#ifndef Tcl_SetOSTypeObj -#define Tcl_SetOSTypeObj \ - (tclPlatStubsPtr->tcl_SetOSTypeObj) /* 5 */ -#endif -#ifndef Tcl_NewOSTypeObj -#define Tcl_NewOSTypeObj \ - (tclPlatStubsPtr->tcl_NewOSTypeObj) /* 6 */ -#endif -#ifndef strncasecmp -#define strncasecmp \ - (tclPlatStubsPtr->strncasecmp) /* 7 */ -#endif -#ifndef strcasecmp -#define strcasecmp \ - (tclPlatStubsPtr->strcasecmp) /* 8 */ -#endif -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TCL -#ifndef Tcl_MacOSXOpenBundleResources -#define Tcl_MacOSXOpenBundleResources \ - (tclPlatStubsPtr->tcl_MacOSXOpenBundleResources) /* 0 */ -#endif -#ifndef Tcl_MacOSXOpenVersionedBundleResources -#define Tcl_MacOSXOpenVersionedBundleResources \ - (tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */ -#endif -#endif /* MAC_OSX_TCL */ - -#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#endif /* _TCLPLATDECLS */ - - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tclWinInt.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tclWinInt.h deleted file mode 100644 index 3248ac88f27..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tclWinInt.h +++ /dev/null @@ -1,145 +0,0 @@ -/* - * tclWinInt.h -- - * - * Declarations of Windows-specific shared variables and procedures. - * - * Copyright (c) 1994-1996 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tclWinInt.h,v 1.20.2.1 2003/04/14 15:46:01 vincentdarley Exp $ - */ - -#ifndef _TCLWININT -#define _TCLWININT - -#ifndef _TCLINT -#include "tclInt.h" -#endif -#ifndef _TCLPORT -#include "tclPort.h" -#endif - -/* - * The following specifies how much stack space TclpCheckStackSpace() - * ensures is available. TclpCheckStackSpace() is called by Tcl_EvalObj() - * to help avoid overflowing the stack in the case of infinite recursion. - */ - -#define TCL_WIN_STACK_THRESHOLD 0x2000 - -#ifdef BUILD_tcl -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * Some versions of Borland C have a define for the OSVERSIONINFO for - * Win32s and for NT, but not for Windows 95. - */ - -#ifndef VER_PLATFORM_WIN32_WINDOWS -#define VER_PLATFORM_WIN32_WINDOWS 1 -#endif - -/* - * The following structure keeps track of whether we are using the - * multi-byte or the wide-character interfaces to the operating system. - * System calls should be made through the following function table. - */ - -typedef union { - WIN32_FIND_DATAA a; - WIN32_FIND_DATAW w; -} WIN32_FIND_DATAT; - -typedef struct TclWinProcs { - int useWide; - - BOOL (WINAPI *buildCommDCBProc)(CONST TCHAR *, LPDCB); - TCHAR *(WINAPI *charLowerProc)(TCHAR *); - BOOL (WINAPI *copyFileProc)(CONST TCHAR *, CONST TCHAR *, BOOL); - BOOL (WINAPI *createDirectoryProc)(CONST TCHAR *, LPSECURITY_ATTRIBUTES); - HANDLE (WINAPI *createFileProc)(CONST TCHAR *, DWORD, DWORD, - LPSECURITY_ATTRIBUTES, DWORD, DWORD, HANDLE); - BOOL (WINAPI *createProcessProc)(CONST TCHAR *, TCHAR *, - LPSECURITY_ATTRIBUTES, LPSECURITY_ATTRIBUTES, BOOL, DWORD, - LPVOID, CONST TCHAR *, LPSTARTUPINFOA, LPPROCESS_INFORMATION); - BOOL (WINAPI *deleteFileProc)(CONST TCHAR *); - HANDLE (WINAPI *findFirstFileProc)(CONST TCHAR *, WIN32_FIND_DATAT *); - BOOL (WINAPI *findNextFileProc)(HANDLE, WIN32_FIND_DATAT *); - BOOL (WINAPI *getComputerNameProc)(WCHAR *, LPDWORD); - DWORD (WINAPI *getCurrentDirectoryProc)(DWORD, WCHAR *); - DWORD (WINAPI *getFileAttributesProc)(CONST TCHAR *); - DWORD (WINAPI *getFullPathNameProc)(CONST TCHAR *, DWORD nBufferLength, - WCHAR *, TCHAR **); - DWORD (WINAPI *getModuleFileNameProc)(HMODULE, WCHAR *, int); - DWORD (WINAPI *getShortPathNameProc)(CONST TCHAR *, WCHAR *, DWORD); - UINT (WINAPI *getTempFileNameProc)(CONST TCHAR *, CONST TCHAR *, UINT, - WCHAR *); - DWORD (WINAPI *getTempPathProc)(DWORD, WCHAR *); - BOOL (WINAPI *getVolumeInformationProc)(CONST TCHAR *, WCHAR *, DWORD, - LPDWORD, LPDWORD, LPDWORD, WCHAR *, DWORD); - HINSTANCE (WINAPI *loadLibraryProc)(CONST TCHAR *); - TCHAR (WINAPI *lstrcpyProc)(WCHAR *, CONST TCHAR *); - BOOL (WINAPI *moveFileProc)(CONST TCHAR *, CONST TCHAR *); - BOOL (WINAPI *removeDirectoryProc)(CONST TCHAR *); - DWORD (WINAPI *searchPathProc)(CONST TCHAR *, CONST TCHAR *, - CONST TCHAR *, DWORD, WCHAR *, TCHAR **); - BOOL (WINAPI *setCurrentDirectoryProc)(CONST TCHAR *); - BOOL (WINAPI *setFileAttributesProc)(CONST TCHAR *, DWORD); - /* - * These two function pointers will only be set when - * Tcl_FindExecutable is called. If you don't ever call that - * function, the application will crash whenever WinTcl tries to call - * functions through these null pointers. That is not a bug in Tcl - * -- Tcl_FindExecutable is obligatory in recent Tcl releases. - */ - BOOL (WINAPI *getFileAttributesExProc)(CONST TCHAR *, - GET_FILEEX_INFO_LEVELS, LPVOID); - BOOL (WINAPI *createHardLinkProc)(CONST TCHAR*, CONST TCHAR*, - LPSECURITY_ATTRIBUTES); - - INT (__cdecl *utimeProc)(CONST TCHAR*, struct _utimbuf *); - /* These two are also NULL at start; see comment above */ - HANDLE (WINAPI *findFirstFileExProc)(CONST TCHAR*, UINT, - LPVOID, UINT, - LPVOID, DWORD); - BOOL (WINAPI *getVolumeNameForVMPProc)(CONST TCHAR*, TCHAR*, DWORD); -} TclWinProcs; - -EXTERN TclWinProcs *tclWinProcs; - -/* - * Declarations of functions that are not accessible by way of the - * stubs table. - */ - -EXTERN void TclWinEncodingsCleanup(); -EXTERN void TclWinResetInterfaceEncodings(); -EXTERN void TclWinInit(HINSTANCE hInst); -EXTERN int TclWinSymLinkCopyDirectory(CONST TCHAR* LinkOriginal, - CONST TCHAR* LinkCopy); -EXTERN int TclWinSymLinkDelete(CONST TCHAR* LinkOriginal, - int linkOnly); -EXTERN char TclWinDriveLetterForVolMountPoint(CONST WCHAR *mountPoint); -#if defined(TCL_THREADS) && defined(USE_THREAD_ALLOC) -EXTERN void TclWinFreeAllocCache(void); -EXTERN void TclFreeAllocCache(void *); -EXTERN Tcl_Mutex *TclpNewAllocMutex(void); -EXTERN void *TclpGetAllocCache(void); -EXTERN void TclpSetAllocCache(void *); -#endif /* TCL_THREADS */ - -/* Needed by tclWinFile.c and tclWinFCmd.c */ -#ifndef FILE_ATTRIBUTE_REPARSE_POINT -#define FILE_ATTRIBUTE_REPARSE_POINT 0x00000400 -#endif - -#include "tclIntPlatDecls.h" - -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TCLWININT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tix.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tix.h deleted file mode 100644 index ce5a411e8f7..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tix.h +++ /dev/null @@ -1,512 +0,0 @@ - -/* $Id: tix.h,v 1.4.2.2 2001/12/09 03:10:49 idiscovery Exp $ */ - -/* - * tix.h -- - * - * This is the standard header file for all tix C code. It - * defines many macros and utility functions to make it easier to - * write TCL commands and TK widgets in C. No more needs to write - * 2000 line functions! - * - * 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. - * - */ -#ifndef _TIX_PORT_H_ -#include "tixPort.h" -#endif -#ifndef _TIX -#define _TIX -#define _TIX_H_ - -#ifndef TIX_VERSION -#define TIX_VERSION "8.1" -#endif -#define TIX_PATCHLEVEL "8.1.4" -#define TIX_PATCH_LEVEL TIX_PATCHLEVEL - -#define TIX_RELEASE "8.1.4" - -#ifndef _TK -#include "tk.h" -#endif - - -#if defined(__WIN32__) || defined(_WIN32) || defined (__BORLAND) || defined(_Windows) -#ifndef _WINDOWS -#define _WINDOWS -#endif -#endif - -/* - * When building Tix itself, BUILD_tix should be defined by the makefile - * so that all EXTERN declarations get DLLEXPORT; when building apps - * using Tix, BUILD_tix should NOT be defined so that all EXTERN - * declarations get DLLIMPORT as defined in tcl.h - * - * NOTE: This ifdef MUST appear after the include of tcl.h and tk.h - * because the EXTERN declarations in those files need DLLIMPORT. - */ -/* - * These macros are used to control whether functions are being declared for - * import or export. If a function is being declared while it is being built - * to be included in a shared library, then it should have the DLLEXPORT - * storage class. If is being declared for use by a module that is going to - * link against the shared library, then it should have the DLLIMPORT storage - * class. If the symbol is beind declared for a static build or for use from a - * stub library, then the storage class should be empty. - * - * The convention is that a macro called BUILD_xxxx, where xxxx is the - * name of a library we are building, is set on the compile line for sources - * that are to be placed in the library. When this macro is set, the - * storage class will be set to DLLEXPORT. At the end of the header file, the - * storage class will be reset to DLLIMPORt. - */ - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tix -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -#ifdef __cplusplus -extern "C" { -#endif - -#if (TCL_MAJOR_VERSION > 7) -# define TCL_7_5_OR_LATER -#else -# if ((TCL_MAJOR_VERSION == 7) && (TCL_MINOR_VERSION >= 5)) -# define TCL_7_5_OR_LATER -# endif -#endif - - -#if (TK_MAJOR_VERSION > 4) -# define TK_4_1_OR_LATER -#else -# if ((TK_MAJOR_VERSION == 4) && (TK_MINOR_VERSION >= 1)) -# define TK_4_1_OR_LATER -# endif -#endif /* TK_MAJOR_VERSION ... */ - -#if (TK_MAJOR_VERSION >= 8) -# define TK_8_0_OR_LATER -#endif - -#ifdef TK_4_1_OR_LATER - /* TK 4.1 or later */ -# define Tix_FreeProc Tcl_FreeProc - -#else - /* TK 4.0 */ -# define Tix_FreeProc Tk_FreeProc - - /* These portable features were not defined in previous versions of - * TK but are used in Tix. Let's define them here. - */ -# define TkPutImage(a, b, c, d, e, f, g, h, i, j, k, l) \ - XPutImage(c, d, e, f, g, h, i, j, k, l) - -# define TkStringToKeysym XStringToKeysym - -#endif /* TK_4_1_OR_LATER */ - - -#define TIX_STDIN_ALWAYS 0 -#define TIX_STDIN_OPTIONAL 1 -#define TIX_STDIN_NONE 2 - -typedef struct { - char *name; /* Name of command. */ - int (*cmdProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, - int argc, Tcl_Obj *CONST *objv)); - /* Command procedure. */ -} Tix_TclCmd; - - -/*---------------------------------------------------------------------- - * - * - * SUB-COMMAND HANDLING - * - * - *---------------------------------------------------------------------- - */ -typedef int (*Tix_CmdProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -typedef int (*Tix_SubCmdProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -typedef int (*Tix_CheckArgvProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); - -typedef struct _Tix_CmdInfo { - int numSubCmds; - int minargc; - int maxargc; - char * info; -} Tix_CmdInfo; - -typedef struct _Tix_SubCmdInfo { - int namelen; - char * name; - int minargc; - int maxargc; - Tix_SubCmdProc proc; - char * info; - Tix_CheckArgvProc checkArgvProc; -} Tix_SubCmdInfo; - -/* - * Tix_ArraySize -- - * - * Find out the number of elements inside a C array. The argument "x" - * must be a valid C array. Pointers don't work. - */ -#define Tix_ArraySize(x) (sizeof(x) / sizeof(x[0])) - -/* - * This is used for Tix_CmdInfo.maxargc and Tix_SubCmdInfo.maxargc, - * indicating that this command takes a variable number of arguments. - */ -#define TIX_VAR_ARGS -1 - -/* - * TIX_DEFAULT_LEN -- - * - * Use this for Tix_SubCmdInfo.namelen and Tix_ExecSubCmds() will try to - * determine the length of the subcommand name for you. - */ -#define TIX_DEFAULT_LEN -1 - -/* - * TIX_DEFAULT_SUB_CMD -- - * - * Use this for Tix_SubCmdInfo.name. This will match any subcommand name, - * including the empty string, when Tix_ExecSubCmds() finds a subcommand - * to execute. - */ -#define TIX_DEFAULT_SUBCMD 0 - -/* - * TIX_DECLARE_CMD -- - * - * This is just a handy macro to declare a C function to use as a - * command function. - */ -#define TIX_DECLARE_CMD(func) \ - int func _ANSI_ARGS_((ClientData clientData,\ - Tcl_Interp *interp, int argc, Tcl_Obj *CONST objv[])) - -/* - * TIX_DECLARE_SUBCMD -- - * - * This is just a handy macro to declare a C function to use as a - * sub command function. - */ -#define TIX_DECLARE_SUBCMD(func) \ - int func _ANSI_ARGS_((ClientData clientData,\ - Tcl_Interp *interp, int argc, Tcl_Obj *CONST objv[])) - -/* - * TIX_DEFINE_CMD -- - * - * This is just a handy macro to define a C function to use as a - * command function. - */ -#define TIX_DEFINE_CMD(func) \ -int func(clientData, interp, argc, argv) \ - ClientData clientData; /* Main window associated with \ - * interpreter. */ \ - Tcl_Interp *interp; /* Current interpreter. */ \ - int argc; /* Number of arguments. */ \ - Tcl_Obj *objv[]; /* Argument strings. */ - - - -/*---------------------------------------------------------------------- - * Link-list functions -- - * - * These functions makes it easy to use link lists in C code. - * - *---------------------------------------------------------------------- - */ -typedef struct Tix_ListInfo { - int nextOffset; /* offset of the "next" pointer in a list - * item */ - int prevOffset; /* offset of the "next" pointer in a list - * item */ -} Tix_ListInfo; - - -/* Singly-linked list */ -typedef struct Tix_LinkList { - int numItems; /* number of items in this list */ - char * head; /* (general pointer) head of the list */ - char * tail; /* (general pointer) tail of the list */ -} Tix_LinkList; - -typedef struct Tix_ListIterator { - char * last; - char * curr; - unsigned int started : 1; /* True if the search operation has - * already started for this list */ - unsigned int deleted : 1; /* True if a delete operation has been - * performed on the current item (in this - * case the curr pointer has already been - * adjusted - */ -} Tix_ListIterator; - -#define Tix_IsLinkListEmpty(list) ((list.numItems) == 0) -#define TIX_UNIQUE 1 -#define TIX_UNDEFINED -1 - -/*---------------------------------------------------------------------- - * General Single Link List -- - * - * The next pointer can be anywhere inside a link. - *---------------------------------------------------------------------- - */ - -EXTERN void Tix_LinkListInit _ANSI_ARGS_((Tix_LinkList * lPtr)); -EXTERN void Tix_LinkListAppend _ANSI_ARGS_((Tix_ListInfo * infoPtr, - Tix_LinkList * lPtr, char * itemPtr, int flags)); -EXTERN void Tix_LinkListStart _ANSI_ARGS_((Tix_ListInfo * infoPtr, - Tix_LinkList * lPtr, Tix_ListIterator * liPtr)); -EXTERN void Tix_LinkListNext _ANSI_ARGS_((Tix_ListInfo * infoPtr, - Tix_LinkList * lPtr, Tix_ListIterator * liPtr)); -EXTERN void Tix_LinkListDelete _ANSI_ARGS_((Tix_ListInfo * infoPtr, - Tix_LinkList * lPtr, Tix_ListIterator * liPtr)); -EXTERN int Tix_LinkListDeleteRange _ANSI_ARGS_(( - Tix_ListInfo * infoPtr, Tix_LinkList * lPtr, - char * fromPtr, char * toPtr, - Tix_ListIterator * liPtr)); -EXTERN int Tix_LinkListFind _ANSI_ARGS_(( - Tix_ListInfo * infoPtr, Tix_LinkList * lPtr, - char * itemPtr, Tix_ListIterator * liPtr)); -EXTERN int Tix_LinkListFindAndDelete _ANSI_ARGS_(( - Tix_ListInfo * infoPtr, Tix_LinkList * lPtr, - char * itemPtr, Tix_ListIterator * liPtr)); -EXTERN void Tix_LinkListInsert _ANSI_ARGS_(( - Tix_ListInfo * infoPtr, - Tix_LinkList * lPtr, char * itemPtr, - Tix_ListIterator * liPtr)); -EXTERN void Tix_LinkListIteratorInit _ANSI_ARGS_(( Tix_ListIterator * liPtr)); - -#define Tix_LinkListDone(liPtr) ((liPtr)->curr == NULL) - - -/*---------------------------------------------------------------------- - * Simple Single Link List -- - * - * The next pointer is always offset 0 in the link structure. - *---------------------------------------------------------------------- - */ - -EXTERN void Tix_SimpleListInit _ANSI_ARGS_((Tix_LinkList * lPtr)); -EXTERN void Tix_SimpleListAppend _ANSI_ARGS_(( - Tix_LinkList * lPtr, char * itemPtr, int flags)); -EXTERN void Tix_SimpleListStart _ANSI_ARGS_(( - Tix_LinkList * lPtr, Tix_ListIterator * liPtr)); -EXTERN void Tix_SimpleListNext _ANSI_ARGS_(( - Tix_LinkList * lPtr, Tix_ListIterator * liPtr)); -EXTERN void Tix_SimpleListDelete _ANSI_ARGS_(( - Tix_LinkList * lPtr, Tix_ListIterator * liPtr)); -EXTERN int Tix_SimpleListDeleteRange _ANSI_ARGS_(( - Tix_LinkList * lPtr, - char * fromPtr, char * toPtr, - Tix_ListIterator * liPtr)); -EXTERN int Tix_SimpleListFind _ANSI_ARGS_(( - Tix_LinkList * lPtr, - char * itemPtr, Tix_ListIterator * liPtr)); -EXTERN int Tix_SimpleListFindAndDelete _ANSI_ARGS_(( - Tix_LinkList * lPtr, char * itemPtr, - Tix_ListIterator * liPtr)); -EXTERN void Tix_SimpleListInsert _ANSI_ARGS_(( - Tix_LinkList * lPtr, char * itemPtr, - Tix_ListIterator * liPtr)); -EXTERN void Tix_SimpleListIteratorInit _ANSI_ARGS_(( - Tix_ListIterator * liPtr)); - -#define Tix_SimpleListDone(liPtr) ((liPtr)->curr == NULL) - -/*---------------------------------------------------------------------- - * - * - * - * CUSTOM CONFIG OPTIONS - * - * - *---------------------------------------------------------------------- - */ -#define TIX_RELIEF_RAISED 1 -#define TIX_RELIEF_FLAT 2 -#define TIX_RELIEF_SUNKEN 4 -#define TIX_RELIEF_GROOVE 8 -#define TIX_RELIEF_RIDGE 16 -#define TIX_RELIEF_SOLID 32 - -typedef int Tix_Relief; - -EXTERN Tk_CustomOption tixConfigItemType; -EXTERN Tk_CustomOption tixConfigItemStyle; -EXTERN Tk_CustomOption tixConfigRelief; - - -/* - * C functions exported by Tix - */ - -EXTERN int Tix_ArgcError _ANSI_ARGS_((Tcl_Interp *interp, - int argc, Tcl_Obj *CONST *objv, int prefixCount, - char *message)); -EXTERN void Tix_CreateCommands _ANSI_ARGS_(( - Tcl_Interp *interp, Tix_TclCmd *commands, - ClientData clientData, - Tcl_CmdDeleteProc *deleteProc)); -EXTERN Tk_Window Tix_CreateSubWindow _ANSI_ARGS_(( - Tcl_Interp * interp, Tk_Window tkwin, - char * subPath)); -EXTERN int Tix_DefinePixmap _ANSI_ARGS_(( - Tcl_Interp * interp, Tk_Uid name, char **data)); -EXTERN void Tix_DrawAnchorLines _ANSI_ARGS_(( - Display *display, Drawable drawable, - GC gc, int x, int y, int w, int h)); -EXTERN int Tix_EvalArgv _ANSI_ARGS_(( - Tcl_Interp * interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tix_ExistMethod _ANSI_ARGS_((Tcl_Interp *interp, - char *context, char *method)); -EXTERN void Tix_Exit _ANSI_ARGS_((Tcl_Interp * interp, int code)); -EXTERN Pixmap Tix_GetRenderBuffer _ANSI_ARGS_((Display *display, - Drawable d, int width, int height, int depth)); - -#ifdef TCL_VARARGS -/* - * The TCL_VARARGS macro is only defined in Tcl 7.5 or later - */ -EXTERN int Tix_GlobalVarEval _ANSI_ARGS_( - TCL_VARARGS(Tcl_Interp *,interp)); -#else -EXTERN int Tix_GlobalVarEval _ANSI_ARGS_( - VARARGS(Tcl_Interp *interp)); -#endif - -EXTERN int Tix_HandleSubCmds _ANSI_ARGS_(( - Tix_CmdInfo * cmdInfo, - Tix_SubCmdInfo * subCmdInfo, - ClientData clientData, Tcl_Interp *interp, - int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tix_Init _ANSI_ARGS_((Tcl_Interp *interp)); - -EXTERN int Tix_LoadTclLibrary _ANSI_ARGS_(( - Tcl_Interp *interp, char *envName, - char *tclName, char *initFile, - char *defDir, char * appName)); -EXTERN void Tix_OpenStdin _ANSI_ARGS_((Tcl_Interp *interp)); -EXTERN void Tix_SetArgv _ANSI_ARGS_((Tcl_Interp *interp, - int argc, Tcl_Obj *CONST *objv)); -EXTERN void Tix_SetRcFileName _ANSI_ARGS_(( - Tcl_Interp * interp, char * rcFileName)); -EXTERN char * TixGetStringFromObj _ANSI_ARGS_(( - char *objPtr,int *lengthPtr)); - -/* - * Entry points for Tk_CONFIG_CUSTOM stubs to call - */ - -EXTERN int TixDItemParseProc _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj * value, - char *widRec, int offset)); - -EXTERN Tcl_Obj * TixDItemPrintProc _ANSI_ARGS_(( - ClientData clientData, Tk_Window tkwin, char *widRec, - int offset, Tcl_FreeProc **freeProcPtr)); - -EXTERN int TixDItemStyleParseProc _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj * value, - char *widRec, int offset)); - -EXTERN Tcl_Obj * TixDItemStylePrintProc _ANSI_ARGS_(( - ClientData clientData, Tk_Window tkwin, char *widRec, - int offset, Tcl_FreeProc **freeProcPtr)); - - -/* - * Commands exported by Tix - * - */ - -extern TIX_DECLARE_CMD(Tix_CallMethodCmd); -extern TIX_DECLARE_CMD(Tix_ChainMethodCmd); -extern TIX_DECLARE_CMD(Tix_ClassCmd); -extern TIX_DECLARE_CMD(Tix_DoWhenIdleCmd); -extern TIX_DECLARE_CMD(Tix_DoWhenMappedCmd); -extern TIX_DECLARE_CMD(Tix_FalseCmd); -extern TIX_DECLARE_CMD(Tix_FileCmd); -extern TIX_DECLARE_CMD(Tix_FlushXCmd); -extern TIX_DECLARE_CMD(Tix_FormCmd); -extern TIX_DECLARE_CMD(Tix_GridCmd); -extern TIX_DECLARE_CMD(Tix_GeometryRequestCmd); -extern TIX_DECLARE_CMD(Tix_Get3DBorderCmd); -extern TIX_DECLARE_CMD(Tix_GetBooleanCmd); -extern TIX_DECLARE_CMD(Tix_GetIntCmd); -extern TIX_DECLARE_CMD(Tix_GetMethodCmd); -extern TIX_DECLARE_CMD(Tix_HListCmd); -extern TIX_DECLARE_CMD(Tix_HandleOptionsCmd); -extern TIX_DECLARE_CMD(Tix_InputOnlyCmd); -extern TIX_DECLARE_CMD(Tix_ItemStyleCmd); -extern TIX_DECLARE_CMD(Tix_ManageGeometryCmd); -extern TIX_DECLARE_CMD(Tix_MapWindowCmd); -extern TIX_DECLARE_CMD(Tix_MoveResizeWindowCmd); -extern TIX_DECLARE_CMD(Tix_NoteBookFrameCmd); -extern TIX_DECLARE_CMD(Tix_RaiseWindowCmd); -extern TIX_DECLARE_CMD(Tix_ShellInputCmd); -extern TIX_DECLARE_CMD(Tix_StringSubCmd); -extern TIX_DECLARE_CMD(Tix_StrEqCmd); -extern TIX_DECLARE_CMD(Tix_TListCmd); -extern TIX_DECLARE_CMD(Tix_TmpLineCmd); -extern TIX_DECLARE_CMD(Tix_TrueCmd); -extern TIX_DECLARE_CMD(Tix_UnmapWindowCmd); -extern TIX_DECLARE_CMD(Tix_MwmCmd); -extern TIX_DECLARE_CMD(Tix_CreateWidgetCmd); - -#define SET_RECORD(interp, record, var, value) \ - Tcl_SetVar2(interp, record, var, value, TCL_GLOBAL_ONLY) - -#define GET_RECORD(interp, record, var) \ - Tcl_GetVar2(interp, record, var, TCL_GLOBAL_ONLY) - - -#define TIX_HASHKEY(k) ((sizeof(k)>sizeof(int))?((char*)&(k)):((char*)(k))) - -/*---------------------------------------------------------------------- - * Compatibility section - *---------------------------------------------------------------------- */ - - -#ifdef _WINDOWS -/* This is the way win/tkWinPort.h in tk8.0.5 defines it */ -#ifndef strcasecmp -#define strcasecmp stricmp -#endif -#endif - - -#ifdef __cplusplus -} -#endif - - -#endif /* _TIX */ - - - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tix.m b/Master/tlpkg/tlperl/lib/Tk/pTk/tix.m deleted file mode 100644 index 92b9f74eb3f..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tix.m +++ /dev/null @@ -1,126 +0,0 @@ -#ifndef _TIX_VM -#define _TIX_VM -#include "tix_f.h" -#ifndef NO_VTABLES -#ifndef TixDItemParseProc -# define TixDItemParseProc (*TixVptr->V_TixDItemParseProc) -#endif - -#ifndef TixDItemPrintProc -# define TixDItemPrintProc (*TixVptr->V_TixDItemPrintProc) -#endif - -#ifndef TixDItemStyleParseProc -# define TixDItemStyleParseProc (*TixVptr->V_TixDItemStyleParseProc) -#endif - -#ifndef TixDItemStylePrintProc -# define TixDItemStylePrintProc (*TixVptr->V_TixDItemStylePrintProc) -#endif - -#ifndef TixGetStringFromObj -# define TixGetStringFromObj (*TixVptr->V_TixGetStringFromObj) -#endif - -#ifndef Tix_ArgcError -# define Tix_ArgcError (*TixVptr->V_Tix_ArgcError) -#endif - -#ifndef Tix_CreateSubWindow -# define Tix_CreateSubWindow (*TixVptr->V_Tix_CreateSubWindow) -#endif - -#ifndef Tix_DrawAnchorLines -# define Tix_DrawAnchorLines (*TixVptr->V_Tix_DrawAnchorLines) -#endif - -#ifndef Tix_GetRenderBuffer -# define Tix_GetRenderBuffer (*TixVptr->V_Tix_GetRenderBuffer) -#endif - -#ifndef Tix_HandleSubCmds -# define Tix_HandleSubCmds (*TixVptr->V_Tix_HandleSubCmds) -#endif - -#ifndef Tix_LinkListAppend -# define Tix_LinkListAppend (*TixVptr->V_Tix_LinkListAppend) -#endif - -#ifndef Tix_LinkListDelete -# define Tix_LinkListDelete (*TixVptr->V_Tix_LinkListDelete) -#endif - -#ifndef Tix_LinkListDeleteRange -# define Tix_LinkListDeleteRange (*TixVptr->V_Tix_LinkListDeleteRange) -#endif - -#ifndef Tix_LinkListFind -# define Tix_LinkListFind (*TixVptr->V_Tix_LinkListFind) -#endif - -#ifndef Tix_LinkListFindAndDelete -# define Tix_LinkListFindAndDelete (*TixVptr->V_Tix_LinkListFindAndDelete) -#endif - -#ifndef Tix_LinkListInit -# define Tix_LinkListInit (*TixVptr->V_Tix_LinkListInit) -#endif - -#ifndef Tix_LinkListInsert -# define Tix_LinkListInsert (*TixVptr->V_Tix_LinkListInsert) -#endif - -#ifndef Tix_LinkListIteratorInit -# define Tix_LinkListIteratorInit (*TixVptr->V_Tix_LinkListIteratorInit) -#endif - -#ifndef Tix_LinkListNext -# define Tix_LinkListNext (*TixVptr->V_Tix_LinkListNext) -#endif - -#ifndef Tix_LinkListStart -# define Tix_LinkListStart (*TixVptr->V_Tix_LinkListStart) -#endif - -#ifndef Tix_SimpleListAppend -# define Tix_SimpleListAppend (*TixVptr->V_Tix_SimpleListAppend) -#endif - -#ifndef Tix_SimpleListDelete -# define Tix_SimpleListDelete (*TixVptr->V_Tix_SimpleListDelete) -#endif - -#ifndef Tix_SimpleListDeleteRange -# define Tix_SimpleListDeleteRange (*TixVptr->V_Tix_SimpleListDeleteRange) -#endif - -#ifndef Tix_SimpleListFind -# define Tix_SimpleListFind (*TixVptr->V_Tix_SimpleListFind) -#endif - -#ifndef Tix_SimpleListFindAndDelete -# define Tix_SimpleListFindAndDelete (*TixVptr->V_Tix_SimpleListFindAndDelete) -#endif - -#ifndef Tix_SimpleListInit -# define Tix_SimpleListInit (*TixVptr->V_Tix_SimpleListInit) -#endif - -#ifndef Tix_SimpleListInsert -# define Tix_SimpleListInsert (*TixVptr->V_Tix_SimpleListInsert) -#endif - -#ifndef Tix_SimpleListIteratorInit -# define Tix_SimpleListIteratorInit (*TixVptr->V_Tix_SimpleListIteratorInit) -#endif - -#ifndef Tix_SimpleListNext -# define Tix_SimpleListNext (*TixVptr->V_Tix_SimpleListNext) -#endif - -#ifndef Tix_SimpleListStart -# define Tix_SimpleListStart (*TixVptr->V_Tix_SimpleListStart) -#endif - -#endif /* NO_VTABLES */ -#endif /* _TIX_VM */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tix.t b/Master/tlpkg/tlperl/lib/Tk/pTk/tix.t deleted file mode 100644 index 08379729f4f..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tix.t +++ /dev/null @@ -1,170 +0,0 @@ -#ifdef _TIX
-#ifndef TixDItemParseProc
-VFUNC(int,TixDItemParseProc,V_TixDItemParseProc,_ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj * value,
- char *widRec, int offset)))
-#endif /* #ifndef TixDItemParseProc */
-
-#ifndef TixDItemPrintProc
-VFUNC(Tcl_Obj *,TixDItemPrintProc,V_TixDItemPrintProc,_ANSI_ARGS_((
- ClientData clientData, Tk_Window tkwin, char *widRec,
- int offset, Tcl_FreeProc **freeProcPtr)))
-#endif /* #ifndef TixDItemPrintProc */
-
-#ifndef TixDItemStyleParseProc
-VFUNC(int,TixDItemStyleParseProc,V_TixDItemStyleParseProc,_ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj * value,
- char *widRec, int offset)))
-#endif /* #ifndef TixDItemStyleParseProc */
-
-#ifndef TixDItemStylePrintProc
-VFUNC(Tcl_Obj *,TixDItemStylePrintProc,V_TixDItemStylePrintProc,_ANSI_ARGS_((
- ClientData clientData, Tk_Window tkwin, char *widRec,
- int offset, Tcl_FreeProc **freeProcPtr)))
-#endif /* #ifndef TixDItemStylePrintProc */
-
-#ifndef TixGetStringFromObj
-VFUNC(char *,TixGetStringFromObj,V_TixGetStringFromObj,_ANSI_ARGS_((
- char *objPtr,int *lengthPtr)))
-#endif /* #ifndef TixGetStringFromObj */
-
-#ifndef Tix_ArgcError
-VFUNC(int,Tix_ArgcError,V_Tix_ArgcError,_ANSI_ARGS_((Tcl_Interp *interp,
- int argc, Tcl_Obj *CONST *objv, int prefixCount,
- char *message)))
-#endif /* #ifndef Tix_ArgcError */
-
-#ifndef Tix_CreateSubWindow
-VFUNC(Tk_Window,Tix_CreateSubWindow,V_Tix_CreateSubWindow,_ANSI_ARGS_((
- Tcl_Interp * interp, Tk_Window tkwin,
- char * subPath)))
-#endif /* #ifndef Tix_CreateSubWindow */
-
-#ifndef Tix_DrawAnchorLines
-VFUNC(void,Tix_DrawAnchorLines,V_Tix_DrawAnchorLines,_ANSI_ARGS_((
- Display *display, Drawable drawable,
- GC gc, int x, int y, int w, int h)))
-#endif /* #ifndef Tix_DrawAnchorLines */
-
-#ifndef Tix_GetRenderBuffer
-VFUNC(Pixmap,Tix_GetRenderBuffer,V_Tix_GetRenderBuffer,_ANSI_ARGS_((Display *display,
- Drawable d, int width, int height, int depth)))
-#endif /* #ifndef Tix_GetRenderBuffer */
-
-#ifndef Tix_HandleSubCmds
-VFUNC(int,Tix_HandleSubCmds,V_Tix_HandleSubCmds,_ANSI_ARGS_((
- Tix_CmdInfo * cmdInfo,
- Tix_SubCmdInfo * subCmdInfo,
- ClientData clientData, Tcl_Interp *interp,
- int argc, Tcl_Obj *CONST *objv)))
-#endif /* #ifndef Tix_HandleSubCmds */
-
-#ifndef Tix_LinkListAppend
-VFUNC(void,Tix_LinkListAppend,V_Tix_LinkListAppend,_ANSI_ARGS_((Tix_ListInfo * infoPtr,
- Tix_LinkList * lPtr, char * itemPtr, int flags)))
-#endif /* #ifndef Tix_LinkListAppend */
-
-#ifndef Tix_LinkListDelete
-VFUNC(void,Tix_LinkListDelete,V_Tix_LinkListDelete,_ANSI_ARGS_((Tix_ListInfo * infoPtr,
- Tix_LinkList * lPtr, Tix_ListIterator * liPtr)))
-#endif /* #ifndef Tix_LinkListDelete */
-
-#ifndef Tix_LinkListDeleteRange
-VFUNC(int,Tix_LinkListDeleteRange,V_Tix_LinkListDeleteRange,_ANSI_ARGS_((
- Tix_ListInfo * infoPtr, Tix_LinkList * lPtr,
- char * fromPtr, char * toPtr,
- Tix_ListIterator * liPtr)))
-#endif /* #ifndef Tix_LinkListDeleteRange */
-
-#ifndef Tix_LinkListFind
-VFUNC(int,Tix_LinkListFind,V_Tix_LinkListFind,_ANSI_ARGS_((
- Tix_ListInfo * infoPtr, Tix_LinkList * lPtr,
- char * itemPtr, Tix_ListIterator * liPtr)))
-#endif /* #ifndef Tix_LinkListFind */
-
-#ifndef Tix_LinkListFindAndDelete
-VFUNC(int,Tix_LinkListFindAndDelete,V_Tix_LinkListFindAndDelete,_ANSI_ARGS_((
- Tix_ListInfo * infoPtr, Tix_LinkList * lPtr,
- char * itemPtr, Tix_ListIterator * liPtr)))
-#endif /* #ifndef Tix_LinkListFindAndDelete */
-
-#ifndef Tix_LinkListInit
-VFUNC(void,Tix_LinkListInit,V_Tix_LinkListInit,_ANSI_ARGS_((Tix_LinkList * lPtr)))
-#endif /* #ifndef Tix_LinkListInit */
-
-#ifndef Tix_LinkListInsert
-VFUNC(void,Tix_LinkListInsert,V_Tix_LinkListInsert,_ANSI_ARGS_((
- Tix_ListInfo * infoPtr,
- Tix_LinkList * lPtr, char * itemPtr,
- Tix_ListIterator * liPtr)))
-#endif /* #ifndef Tix_LinkListInsert */
-
-#ifndef Tix_LinkListIteratorInit
-VFUNC(void,Tix_LinkListIteratorInit,V_Tix_LinkListIteratorInit,_ANSI_ARGS_(( Tix_ListIterator * liPtr)))
-#endif /* #ifndef Tix_LinkListIteratorInit */
-
-#ifndef Tix_LinkListNext
-VFUNC(void,Tix_LinkListNext,V_Tix_LinkListNext,_ANSI_ARGS_((Tix_ListInfo * infoPtr,
- Tix_LinkList * lPtr, Tix_ListIterator * liPtr)))
-#endif /* #ifndef Tix_LinkListNext */
-
-#ifndef Tix_LinkListStart
-VFUNC(void,Tix_LinkListStart,V_Tix_LinkListStart,_ANSI_ARGS_((Tix_ListInfo * infoPtr,
- Tix_LinkList * lPtr, Tix_ListIterator * liPtr)))
-#endif /* #ifndef Tix_LinkListStart */
-
-#ifndef Tix_SimpleListAppend
-VFUNC(void,Tix_SimpleListAppend,V_Tix_SimpleListAppend,_ANSI_ARGS_((
- Tix_LinkList * lPtr, char * itemPtr, int flags)))
-#endif /* #ifndef Tix_SimpleListAppend */
-
-#ifndef Tix_SimpleListDelete
-VFUNC(void,Tix_SimpleListDelete,V_Tix_SimpleListDelete,_ANSI_ARGS_((
- Tix_LinkList * lPtr, Tix_ListIterator * liPtr)))
-#endif /* #ifndef Tix_SimpleListDelete */
-
-#ifndef Tix_SimpleListDeleteRange
-VFUNC(int,Tix_SimpleListDeleteRange,V_Tix_SimpleListDeleteRange,_ANSI_ARGS_((
- Tix_LinkList * lPtr,
- char * fromPtr, char * toPtr,
- Tix_ListIterator * liPtr)))
-#endif /* #ifndef Tix_SimpleListDeleteRange */
-
-#ifndef Tix_SimpleListFind
-VFUNC(int,Tix_SimpleListFind,V_Tix_SimpleListFind,_ANSI_ARGS_((
- Tix_LinkList * lPtr,
- char * itemPtr, Tix_ListIterator * liPtr)))
-#endif /* #ifndef Tix_SimpleListFind */
-
-#ifndef Tix_SimpleListFindAndDelete
-VFUNC(int,Tix_SimpleListFindAndDelete,V_Tix_SimpleListFindAndDelete,_ANSI_ARGS_((
- Tix_LinkList * lPtr, char * itemPtr,
- Tix_ListIterator * liPtr)))
-#endif /* #ifndef Tix_SimpleListFindAndDelete */
-
-#ifndef Tix_SimpleListInit
-VFUNC(void,Tix_SimpleListInit,V_Tix_SimpleListInit,_ANSI_ARGS_((Tix_LinkList * lPtr)))
-#endif /* #ifndef Tix_SimpleListInit */
-
-#ifndef Tix_SimpleListInsert
-VFUNC(void,Tix_SimpleListInsert,V_Tix_SimpleListInsert,_ANSI_ARGS_((
- Tix_LinkList * lPtr, char * itemPtr,
- Tix_ListIterator * liPtr)))
-#endif /* #ifndef Tix_SimpleListInsert */
-
-#ifndef Tix_SimpleListIteratorInit
-VFUNC(void,Tix_SimpleListIteratorInit,V_Tix_SimpleListIteratorInit,_ANSI_ARGS_((
- Tix_ListIterator * liPtr)))
-#endif /* #ifndef Tix_SimpleListIteratorInit */
-
-#ifndef Tix_SimpleListNext
-VFUNC(void,Tix_SimpleListNext,V_Tix_SimpleListNext,_ANSI_ARGS_((
- Tix_LinkList * lPtr, Tix_ListIterator * liPtr)))
-#endif /* #ifndef Tix_SimpleListNext */
-
-#ifndef Tix_SimpleListStart
-VFUNC(void,Tix_SimpleListStart,V_Tix_SimpleListStart,_ANSI_ARGS_((
- Tix_LinkList * lPtr, Tix_ListIterator * liPtr)))
-#endif /* #ifndef Tix_SimpleListStart */
-
-#endif /* _TIX */
diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tixBitmaps.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tixBitmaps.h deleted file mode 100644 index 4e9885cb7e8..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tixBitmaps.h +++ /dev/null @@ -1,618 +0,0 @@ - -/* $Id: tixBitmaps.h,v 1.1.1.1 2000/05/17 11:08:42 idiscovery Exp $ */ - -{ -#define maximize_width 15 -#define maximize_height 15 -static UNSIGNED_CHAR maximize_bits[] = { - 0x00, 0x00, 0x00, 0x00, 0xfc, 0x1f, 0x04, 0x10, 0x04, 0x70, 0x04, 0x70, - 0x04, 0x70, 0x04, 0x70, 0x04, 0x70, 0x04, 0x70, 0x04, 0x70, 0x04, 0x70, - 0xfc, 0x7f, 0xf0, 0x7f, 0xf0, 0x7f}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("maximize"), (char*)maximize_bits, maximize_width, maximize_height); -} -{ -#define act_fold_width 16 -#define act_fold_height 10 -static UNSIGNED_CHAR act_fold_bits[] = { - 0xfc, 0x00, 0xaa, 0x0f, 0x55, 0x15, 0xeb, 0xff, 0x15, 0x80, 0x0b, 0x40, - 0x05, 0x20, 0x03, 0x10, 0x01, 0x08, 0xff, 0x07}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("act_fold"), (char*)act_fold_bits, act_fold_width, act_fold_height); -} -{ -/* XPM */ -static char * act_fold_xpm[] = { -/* width height num_colors chars_per_pixel */ -"16 12 4 1", -/* colors */ -" s None c None", -". c black", -"X c yellow", -"o c #5B5B57574646", -/* pixels */ -" .... ", -" .XXXX. ", -" .XXXXXX. ", -"............. ", -".oXoXoXoXoXo. ", -".XoX............", -".oX.XXXXXXXXXXX.", -".Xo.XXXXXXXXXX. ", -".o.XXXXXXXXXXX. ", -".X.XXXXXXXXXXX. ", -"..XXXXXXXXXX.. ", -"............. "}; -Tix_DefinePixmap(Et_Interp, Tk_GetUid("act_fold"), act_fold_xpm); -} -{ -#define balarrow_width 6 -#define balarrow_height 6 -static UNSIGNED_CHAR balarrow_bits[] = { - 0x1f, 0x07, 0x07, 0x09, 0x11, 0x20}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("balarrow"), (char*)balarrow_bits, balarrow_width, balarrow_height); -} -{ -#define cbxarrow_width 11 -#define cbxarrow_height 14 -static UNSIGNED_CHAR cbxarrow_bits[] = { - 0x00, 0x00, 0x70, 0x00, 0x70, 0x00, 0x70, 0x00, 0x70, 0x00, 0x70, 0x00, - 0xfe, 0x03, 0xfc, 0x01, 0xf8, 0x00, 0x70, 0x00, 0x20, 0x00, 0x00, 0x00, - 0xfe, 0x03, 0xfe, 0x03}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("cbxarrow"), (char*)cbxarrow_bits, cbxarrow_width, cbxarrow_height); -} -{ -#define ck_def_width 13 -#define ck_def_height 13 -static UNSIGNED_CHAR ck_def_bits[] = { - 0xff, 0x1f, 0x01, 0x10, 0x55, 0x15, 0x01, 0x10, 0x55, 0x15, 0x01, 0x10, - 0x55, 0x15, 0x01, 0x10, 0x55, 0x15, 0x01, 0x10, 0x55, 0x15, 0x01, 0x10, - 0xff, 0x1f}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("ck_def"), (char*)ck_def_bits, ck_def_width, ck_def_height); -} -{ -#define ck_off_width 13 -#define ck_off_height 13 -static UNSIGNED_CHAR ck_off_bits[] = { - 0xff, 0x1f, 0x01, 0x10, 0x01, 0x10, 0x01, 0x10, 0x01, 0x10, 0x01, 0x10, - 0x01, 0x10, 0x01, 0x10, 0x01, 0x10, 0x01, 0x10, 0x01, 0x10, 0x01, 0x10, - 0xff, 0x1f}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("ck_off"), (char*)ck_off_bits, ck_off_width, ck_off_height); -} -{ -#define ck_on_width 13 -#define ck_on_height 13 -static UNSIGNED_CHAR ck_on_bits[] = { - 0xff, 0x1f, 0x01, 0x10, 0x01, 0x10, 0x01, 0x14, 0x01, 0x16, 0x01, 0x17, - 0x89, 0x13, 0xdd, 0x11, 0xf9, 0x10, 0x71, 0x10, 0x21, 0x10, 0x01, 0x10, - 0xff, 0x1f}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("ck_on"), (char*)ck_on_bits, ck_on_width, ck_on_height); -} -{ -#define cross_width 14 -#define cross_height 14 -static UNSIGNED_CHAR cross_bits[] = { - 0x00, 0x00, 0x00, 0x00, 0x06, 0x18, 0x0e, 0x1c, 0x1c, 0x0e, 0x38, 0x07, - 0xf0, 0x03, 0xe0, 0x01, 0xe0, 0x01, 0xf0, 0x03, 0x38, 0x07, 0x1c, 0x0e, - 0x0e, 0x1c, 0x06, 0x18}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("cross"), (char*)cross_bits, cross_width, cross_height); -} -{ -#define decr_width 7 -#define decr_height 4 -static UNSIGNED_CHAR decr_bits[] = { - 0x7f, 0x3e, 0x1c, 0x08}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("decr"), (char*)decr_bits, decr_width, decr_height); -} -{ -#define drop_width 16 -#define drop_height 16 -#define drop_x_hot 6 -#define drop_y_hot 4 -static UNSIGNED_CHAR drop_bits[] = { - 0x00, 0x00, 0xfe, 0x07, 0x02, 0x04, 0x02, 0x04, 0x42, 0x04, 0xc2, 0x04, - 0xc2, 0x05, 0xc2, 0x07, 0xc2, 0x07, 0xc2, 0x0f, 0xfe, 0x1f, 0xc0, 0x07, - 0xc0, 0x06, 0x00, 0x0c, 0x00, 0x1c, 0x00, 0x08}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("drop"), (char*)drop_bits, drop_width, drop_height); -} -{ -#define file_width 12 -#define file_height 12 -static UNSIGNED_CHAR file_bits[] = { - 0xfe, 0x00, 0x02, 0x03, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, - 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0xfe, 0x03}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("file"), (char*)file_bits, file_width, file_height); -} -{ -/* XPM */ -static char * file_xpm[] = { -"12 12 3 1", -" s None c None", -". c black", -"X c #FFFFFFFFF3CE", -" ........ ", -" .XXXXXX. ", -" .XXXXXX... ", -" .XXXXXXXX. ", -" .XXXXXXXX. ", -" .XXXXXXXX. ", -" .XXXXXXXX. ", -" .XXXXXXXX. ", -" .XXXXXXXX. ", -" .XXXXXXXX. ", -" .XXXXXXXX. ", -" .......... "}; -Tix_DefinePixmap(Et_Interp, Tk_GetUid("file"), file_xpm); -} -{ -#define folder_width 16 -#define folder_height 10 -static UNSIGNED_CHAR folder_bits[] = { - 0xfc, 0x00, 0x02, 0x07, 0x01, 0x08, 0x01, 0x08, 0x01, 0x08, 0x01, 0x08, - 0x01, 0x08, 0x01, 0x08, 0x01, 0x08, 0xff, 0x07}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("folder"), (char*)folder_bits, folder_width, folder_height); -} -{ -/* XPM */ -static char * folder_foo_xpm[] = { -/* width height num_colors chars_per_pixel */ -"16 12 3 1", -/* colors */ -" s None c None", -". c black", -"X c #f0ff80", -/* pixels */ -" .... ", -" .XXXX. ", -" .XXXXXX. ", -"............. ", -".XXXXXXXXXXX. ", -".XXXXXXXXXXX. ", -".XXXXXXXXXXX. ", -".XXXXXXXXXXX. ", -".XXXXXXXXXXX. ", -".XXXXXXXXXXX. ", -".XXXXXXXXXXX. ", -"............. "}; -Tix_DefinePixmap(Et_Interp, Tk_GetUid("folder"), folder_foo_xpm); -} -{ -#define harddisk_width 32 -#define harddisk_height 32 -static UNSIGNED_CHAR harddisk_bits[] = { - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, - 0xf8, 0xff, 0xff, 0x1f, 0x08, 0x00, 0x00, 0x18, 0xa8, 0xaa, 0xaa, 0x1a, - 0x48, 0x55, 0xd5, 0x1d, 0xa8, 0xaa, 0xaa, 0x1b, 0x48, 0x55, 0x55, 0x1d, - 0xa8, 0xfa, 0xaf, 0x1a, 0xc8, 0xff, 0xff, 0x1d, 0xa8, 0xfa, 0xaf, 0x1a, - 0x48, 0x55, 0x55, 0x1d, 0xa8, 0xaa, 0xaa, 0x1a, 0x48, 0x55, 0x55, 0x1d, - 0xa8, 0xaa, 0xaa, 0x1a, 0xf8, 0xff, 0xff, 0x1f, 0xf8, 0xff, 0xff, 0x1f, - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("harddisk"), (char*)harddisk_bits, harddisk_width, harddisk_height); -} -{ -#define hourglass_width 32 -#define hourglas_height 32 -#define hourglas_x_hot 16 -#define hourglas_y_hot 15 -static UNSIGNED_CHAR hourglas_bits[] = { - 0xfe, 0xff, 0xff, 0xff, 0xfe, 0xff, 0xff, 0xff, 0xfe, 0xff, 0xff, 0xff, - 0x7c, 0x00, 0x00, 0x7c, 0x7c, 0x00, 0x00, 0x7c, 0x7c, 0x00, 0x00, 0x7c, - 0xfc, 0x00, 0x00, 0x7e, 0xfc, 0x00, 0x00, 0x7e, 0xfc, 0x00, 0x00, 0x7e, - 0xbc, 0x01, 0x00, 0x7b, 0xbc, 0xfd, 0x7e, 0x7b, 0x3c, 0xfb, 0xbf, 0x79, - 0x3c, 0xe6, 0xcf, 0x78, 0x3c, 0xdc, 0x77, 0x78, 0x3c, 0x38, 0x39, 0x78, - 0x3c, 0x60, 0x0d, 0x78, 0x3c, 0x38, 0x38, 0x78, 0x3c, 0x1c, 0x71, 0x78, - 0x3c, 0x06, 0xc1, 0x78, 0x3c, 0x03, 0x80, 0x79, 0xbc, 0x01, 0x00, 0x7b, - 0xbc, 0x01, 0x00, 0x7b, 0xfc, 0x00, 0x01, 0x7e, 0xfc, 0x00, 0x01, 0x7e, - 0xfc, 0x80, 0x03, 0x7e, 0x7c, 0xc0, 0x07, 0x7c, 0x7c, 0xf0, 0x1f, 0x7c, - 0x7c, 0xfe, 0xff, 0x7c, 0xfe, 0xff, 0xff, 0x7f, 0xfe, 0xff, 0xff, 0xff, - 0xfe, 0xff, 0xff, 0xff, 0xfe, 0xff, 0xff, 0xff}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("hourglas"), (char*)hourglas_bits, hourglass_width, hourglas_height); -} -{ -#define incr_width 7 -#define incr_height 4 -static UNSIGNED_CHAR incr_bits[] = { - 0x08, 0x1c, 0x3e, 0x7f}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("incr"), (char*)incr_bits, incr_width, incr_height); -} -{ -/* XPM */ -static char * info_xpm[] = { -"32 32 3 1", -" s None c None", -". c #000000000000", -"X c white", -" ", -" ......... ", -" ...XXXXXXXXX... ", -" .XXXXXXXXXXXXXXX. ", -" ..XXXXXXXXXXXXXXXXX.. ", -" .XXXXXXXXXXXXXXXXXXXXX. ", -" .XXXXXXXXXX...XXXXXXXXXX. ", -" .XXXXXXXXX.....XXXXXXXXX. ", -" .XXXXXXXXX.......XXXXXXXXX. ", -" .XXXXXXXXXX.......XXXXXXXXXX. ", -" .XXXXXXXXXX.......XXXXXXXXXX. ", -" .XXXXXXXXXXX.....XXXXXXXXXXX. ", -".XXXXXXXXXXXXX...XXXXXXXXXXXXX. ", -".XXXXXXXXXXXXXXXXXXXXXXXXXXXXX. ", -".XXXXXXXXXXXXXXXXXXXXXXXXXXXXX. ", -".XXXXXXXXXXX.......XXXXXXXXXXX. ", -".XXXXXXXXXXX.......XXXXXXXXXXX. ", -".XXXXXXXXXXX.......XXXXXXXXXXX. ", -".XXXXXXXXXXX.......XXXXXXXXXXX. ", -".XXXXXXXXXXX.......XXXXXXXXXXX. ", -".XXXXXXXXXXX.......XXXXXXXXXXX. ", -" .XXXXXXXXXX.......XXXXXXXXXX. ", -" .XXXXXXXXXX.......XXXXXXXXXX. ", -" .XXXXXXXXXX.......XXXXXXXXXX. ", -" .XXXXXXXXX.......XXXXXXXXX. ", -" .XXXXXXXX.......XXXXXXXX. ", -" .XXXXXXXX.......XXXXXXXX. ", -" .XXXXXXXXXXXXXXXXXXXXX. ", -" ..XXXXXXXXXXXXXXXXX.. ", -" .XXXXXXXXXXXXXXX. ", -" ...XXXXXXXXX... ", -" ......... "}; -Tix_DefinePixmap(Et_Interp, Tk_GetUid("info"), info_xpm); -} -{ -#define minimize_width 15 -#define minimize_height 15 -static UNSIGNED_CHAR minimize_bits[] = { - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x01, - 0x20, 0x03, 0x20, 0x03, 0xe0, 0x03, 0xc0, 0x03, 0x00, 0x00, 0x00, 0x00, - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("minimize"), (char*)minimize_bits, minimize_width, minimize_height); -} -{ -#define minus_width 9 -#define minus_height 9 -static UNSIGNED_CHAR minus_bits[] = { - 0xff, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x7d, 0x01, 0x01, 0x01, - 0x01, 0x01, 0x01, 0x01, 0xff, 0x01}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("minus"), (char*)minus_bits, minus_width, minus_height); -} -{ -/* XPM */ -static char * minus_xpm[] = { -"9 9 2 1", -". s None c None", -" c black", -" ", -" ....... ", -" ....... ", -" ....... ", -" . . ", -" ....... ", -" ....... ", -" ....... ", -" "}; -Tix_DefinePixmap(Et_Interp, Tk_GetUid("minus"), minus_xpm); -} -{ -#define minusarm_width 9 -#define minusarm_height 9 -static UNSIGNED_CHAR minusarm_bits[] = { - 0xff, 0x01, 0x01, 0x01, 0x7d, 0x01, 0x7d, 0x01, 0x01, 0x01, 0x7d, 0x01, - 0x7d, 0x01, 0x01, 0x01, 0xff, 0x01}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("minusarm"), (char*)minusarm_bits, minusarm_width, minusarm_height); -} -{ -/* XPM */ -static char * minusarm_xpm[] = { -"9 9 3 1", -" c black", -". c yellow", -"X c #808080808080", -" ", -" ....... ", -" ....... ", -" .XXXXX. ", -" .X X. ", -" .XXXXX. ", -" ....... ", -" ....... ", -" "}; -Tix_DefinePixmap(Et_Interp, Tk_GetUid("minusarm"), minusarm_xpm); -} -{ -#define network_width 32 -#define network_height 32 -static UNSIGNED_CHAR network_bits[] = { - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfe, 0x7f, 0x00, 0x00, 0x02, 0x40, - 0x00, 0x00, 0xfa, 0x5f, 0x00, 0x00, 0x0a, 0x50, 0x00, 0x00, 0x0a, 0x52, - 0x00, 0x00, 0x0a, 0x52, 0x00, 0x00, 0x8a, 0x51, 0x00, 0x00, 0x0a, 0x50, - 0x00, 0x00, 0x4a, 0x50, 0x00, 0x00, 0x0a, 0x50, 0x00, 0x00, 0x0a, 0x50, - 0x00, 0x00, 0xfa, 0x5f, 0x00, 0x00, 0x02, 0x40, 0xfe, 0x7f, 0x52, 0x55, - 0x02, 0x40, 0xaa, 0x6a, 0xfa, 0x5f, 0xfe, 0x7f, 0x0a, 0x50, 0xfe, 0x7f, - 0x0a, 0x52, 0x80, 0x00, 0x0a, 0x52, 0x80, 0x00, 0x8a, 0x51, 0x80, 0x00, - 0x0a, 0x50, 0x80, 0x00, 0x4a, 0x50, 0x80, 0x00, 0x0a, 0x50, 0xe0, 0x03, - 0x0a, 0x50, 0x20, 0x02, 0xfa, 0xdf, 0x3f, 0x03, 0x02, 0x40, 0xa0, 0x02, - 0x52, 0x55, 0xe0, 0x03, 0xaa, 0x6a, 0x00, 0x00, 0xfe, 0x7f, 0x00, 0x00, - 0xfe, 0x7f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("network"), (char*)network_bits, network_width, network_height); -} -{ -/* XPM */ -static char * no_entry_xpm[] = { -"32 32 4 1", -" s None c None", -". c #000000000000", -"X c red", -"o c yellow", -" ", -" ......... ", -" ...XXXXXXXXX... ", -" .XXXXXXXXXXXXXXX. ", -" ..XXXXXXXXXXXXXXXXX.. ", -" .XXXXXXXXXXXXXXXXXXXXX. ", -" .XXXXXXXXXXXXXXXXXXXXXXX. ", -" .XXXXXXXXXXXXXXXXXXXXXXX. ", -" .XXXXXXXXXXXXXXXXXXXXXXXXX. ", -" .XXXXXXXXXXXXXXXXXXXXXXXXXXX. ", -" .XXXXXXXXXXXXXXXXXXXXXXXXXXX. ", -" .XXXXXXXXXXXXXXXXXXXXXXXXXXX. ", -".XXXXXXXXXXXXXXXXXXXXXXXXXXXXX. ", -".XXX.......................XXX. ", -".XXX.ooooooooooooooooooooo.XXX. ", -".XXX.ooooooooooooooooooooo.XXX. ", -".XXX.ooooooooooooooooooooo.XXX. ", -".XXX.ooooooooooooooooooooo.XXX. ", -".XXX.ooooooooooooooooooooo.XXX. ", -".XXX.ooooooooooooooooooooo.XXX. ", -".XXX.......................XXX. ", -" .XXXXXXXXXXXXXXXXXXXXXXXXXXX. ", -" .XXXXXXXXXXXXXXXXXXXXXXXXXXX. ", -" .XXXXXXXXXXXXXXXXXXXXXXXXXXX. ", -" .XXXXXXXXXXXXXXXXXXXXXXXXX. ", -" .XXXXXXXXXXXXXXXXXXXXXXX. ", -" .XXXXXXXXXXXXXXXXXXXXXXX. ", -" .XXXXXXXXXXXXXXXXXXXXX. ", -" ..XXXXXXXXXXXXXXXXX.. ", -" .XXXXXXXXXXXXXXX. ", -" ...XXXXXXXXX... ", -" ......... "}; -Tix_DefinePixmap(Et_Interp, Tk_GetUid("no_entry"), no_entry_xpm); -} -{ -#define openfile_width 16 -#define openfile_height 10 -static UNSIGNED_CHAR openfile_bits[] = { - 0xf8, 0x01, 0x04, 0x06, 0x02, 0x08, 0x02, 0x10, 0xe2, 0xff, 0x52, 0x55, - 0xaa, 0x2a, 0x56, 0x15, 0xaa, 0x0a, 0xfe, 0x07}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("openfile"), (char*)openfile_bits, openfile_width, openfile_height); -} -{ -#define openfold_width 16 -#define openfold_height 10 -static UNSIGNED_CHAR openfold_bits[] = { - 0xfc, 0x00, 0x02, 0x07, 0x01, 0x08, 0xc1, 0xff, 0x21, 0x80, 0x11, 0x40, - 0x09, 0x20, 0x05, 0x10, 0x03, 0x08, 0xff, 0x07}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("openfold"), (char*)openfold_bits, openfold_width, openfold_height); -} -{ -/* XPM */ -static char * openfolder_xpm[] = { -/* width height num_colors chars_per_pixel */ -"16 12 3 1", -/* colors */ -" s None c None", -". c black", -"X c #f0ff80", -/* pixels */ -" .... ", -" .XXXX. ", -" .XXXXXX. ", -"............. ", -".XXXXXXXXXXX. ", -".XXX............", -".XX.XXXXXXXXXXX.", -".XX.XXXXXXXXXX. ", -".X.XXXXXXXXXXX. ", -".X.XXXXXXXXXXX. ", -"..XXXXXXXXXX.. ", -"............. "}; -Tix_DefinePixmap(Et_Interp, Tk_GetUid("openfold"), openfolder_xpm); -} -{ -#define plus_width 9 -#define plus_height 9 -static UNSIGNED_CHAR plus_bits[] = { - 0xff, 0x01, 0x01, 0x01, 0x11, 0x01, 0x11, 0x01, 0x7d, 0x01, 0x11, 0x01, - 0x11, 0x01, 0x01, 0x01, 0xff, 0x01}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("plus"), (char*)plus_bits, plus_width, plus_height); -} -{ -/* XPM */ -static char * plus_xpm[] = { -"9 9 2 1", -". s None c None", -" c black", -" ", -" ....... ", -" ... ... ", -" ... ... ", -" . . ", -" ... ... ", -" ... ... ", -" ....... ", -" "}; -Tix_DefinePixmap(Et_Interp, Tk_GetUid("plus"), plus_xpm); -} -{ -#define plusarm_width 9 -#define plusarm_height 9 -static UNSIGNED_CHAR plusarm_bits[] = { - 0xff, 0x01, 0x01, 0x01, 0x6d, 0x01, 0x6d, 0x01, 0x01, 0x01, 0x6d, 0x01, - 0x6d, 0x01, 0x01, 0x01, 0xff, 0x01}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("plusarm"), (char*)plusarm_bits, plusarm_width, plusarm_height); -} -{ -/* XPM */ -static char * plusarm_xpm[] = { -"9 9 3 1", -" c black", -". c yellow", -"X c gray40", -" ", -" ....... ", -" ... ... ", -" ..X X.. ", -" . X . ", -" ..X X.. ", -" ... ... ", -" ....... ", -" "}; -Tix_DefinePixmap(Et_Interp, Tk_GetUid("plusarm"), plusarm_xpm); -} -{ -#define resize1_width 13 -#define resize1_height 13 -#define resize1_x_hot 6 -#define resize1_y_hot 6 -static UNSIGNED_CHAR resize1_bits[] = { - 0x7f, 0x00, 0x21, 0x00, 0x11, 0x00, 0x31, 0x00, 0x6d, 0x00, 0xdb, 0x00, - 0xb1, 0x11, 0x60, 0x1b, 0xc0, 0x16, 0x80, 0x11, 0x00, 0x11, 0x80, 0x10, - 0xc0, 0x1f}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("resize1"),(char*) resize1_bits, resize1_width, resize1_height); -} -{ -#define resize2_width 13 -#define resize2_height 13 -#define resize2_x_hot 6 -#define resize2_y_hot 6 -static UNSIGNED_CHAR resize2_bits[] = { - 0xc0, 0x1f, 0x80, 0x10, 0x00, 0x11, 0x80, 0x11, 0xc0, 0x16, 0x60, 0x1b, - 0xb1, 0x11, 0xdb, 0x00, 0x6d, 0x00, 0x31, 0x00, 0x11, 0x00, 0x21, 0x00, - 0x7f, 0x00}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("resize2"), (char*)resize2_bits, resize2_width, resize2_height); -} -{ -#define restore_width 15 -#define restore_height 15 -static UNSIGNED_CHAR restore_bits[] = { - 0x00, 0x00, 0x80, 0x00, 0xc0, 0x01, 0xe0, 0x03, 0xf0, 0x07, 0xf8, 0x0f, - 0xfc, 0x1f, 0x00, 0x00, 0xfc, 0x1f, 0xf8, 0x0f, 0xf0, 0x07, 0xe0, 0x03, - 0xc0, 0x01, 0x80, 0x00, 0x00, 0x00}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("restore"), (char*)restore_bits, restore_width, restore_height); -} -{ -#define srcfile_width 12 -#define srcfile_height 12 -static UNSIGNED_CHAR srcfile_bits[] = { - 0xfe, 0x01, 0x02, 0x01, 0x02, 0x07, 0x02, 0x04, 0x72, 0x04, 0x8a, 0x04, - 0x0a, 0x04, 0x0a, 0x04, 0x8a, 0x04, 0x72, 0x04, 0x02, 0x04, 0xfe, 0x07}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("srcfile"), (char*)srcfile_bits, srcfile_width, srcfile_height); -} -{ -/* XPM */ -static char * srcfile_xpm[] = { -"12 12 3 1", -" s None c None", -". c black", -"X c gray91", -" ........ ", -" .XXXXXX. ", -" .XXXXXX... ", -" .XXXXXXXX. ", -" .XX...XXX. ", -" .X.XXX.XX. ", -" .X.XXXXXX. ", -" .X.XXXXXX. ", -" .X.XXX.XX. ", -" .XX...XXX. ", -" .XXXXXXXX. ", -" .......... "}; -Tix_DefinePixmap(Et_Interp, Tk_GetUid("srcfile"), srcfile_xpm); -} -{ -#define system_width 15 -#define system_height 15 -static UNSIGNED_CHAR system_bits[] = { - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfe, 0x3f, - 0x02, 0x20, 0x02, 0x20, 0xfe, 0x3f, 0xfe, 0x3f, 0x00, 0x00, 0x00, 0x00, - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("system"), (char*)system_bits, system_width, system_height); -} -{ -#define textfile_width 12 -#define textfile_height 12 -static UNSIGNED_CHAR textfile_bits[] = { - 0xfe, 0x01, 0x02, 0x01, 0x02, 0x07, 0x7a, 0x04, 0x02, 0x04, 0x3a, 0x04, - 0x02, 0x04, 0xfa, 0x04, 0x02, 0x04, 0xfa, 0x04, 0x02, 0x04, 0xfe, 0x07}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("textfile"), (char*)textfile_bits, textfile_width, textfile_height); -} -{ -/* XPM */ -static char * textfile_xpm[] = { -"12 12 3 1", -" s None c None", -". c black", -"X c #FFFFFFFFF3CE", -" ........ ", -" .XXXXXX. ", -" .XXXXXX... ", -" .X....XXX. ", -" .XXXXXXXX. ", -" .X...XXXX. ", -" .XXXXXXXX. ", -" .X.....XX. ", -" .XXXXXXXX. ", -" .X.....XX. ", -" .XXXXXXXX. ", -" .......... "}; -Tix_DefinePixmap(Et_Interp, Tk_GetUid("textfile"), textfile_xpm); -} -{ -#define tick_width 14 -#define tick_height 14 -static UNSIGNED_CHAR tick_bits[] = { - 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x38, 0x00, 0x1c, 0x00, 0x0e, - 0x00, 0x07, 0x80, 0x03, 0xc2, 0x01, 0xe7, 0x00, 0x7f, 0x00, 0x3e, 0x00, - 0x1c, 0x00, 0x08, 0x00}; -Tk_DefineBitmap(Et_Interp, Tk_GetUid("tick"), (char*)tick_bits, tick_width, tick_height); -} -{ -/* XPM */ -static char * warning_xpm[] = { -"32 32 3 1", -" s None c None", -". c #000000000000", -"X c yellow", -" ", -" ......... ", -" ...XXXXXXXXX... ", -" .XXXXXXXXXXXXXXX. ", -" ..XXXXXXXXXXXXXXXXX.. ", -" .XXXXXXXXX...XXXXXXXXX. ", -" .XXXXXXXXX.....XXXXXXXXX. ", -" .XXXXXXXXX.....XXXXXXXXX. ", -" .XXXXXXXXX.......XXXXXXXXX. ", -" .XXXXXXXXXX.......XXXXXXXXXX. ", -" .XXXXXXXXXX.......XXXXXXXXXX. ", -" .XXXXXXXXXX.......XXXXXXXXXX. ", -".XXXXXXXXXXX.......XXXXXXXXXXX. ", -".XXXXXXXXXXX.......XXXXXXXXXXX. ", -".XXXXXXXXXXX.......XXXXXXXXXXX. ", -".XXXXXXXXXXX.......XXXXXXXXXXX. ", -".XXXXXXXXXXX.......XXXXXXXXXXX. ", -".XXXXXXXXXXXX.....XXXXXXXXXXXX. ", -".XXXXXXXXXXXX.....XXXXXXXXXXXX. ", -".XXXXXXXXXXXX.....XXXXXXXXXXXX. ", -".XXXXXXXXXXXXX...XXXXXXXXXXXXX. ", -" .XXXXXXXXXXXXXXXXXXXXXXXXXXX. ", -" .XXXXXXXXXXXX...XXXXXXXXXXXX. ", -" .XXXXXXXXXXX.....XXXXXXXXXXX. ", -" .XXXXXXXXX.......XXXXXXXXX. ", -" .XXXXXXXX.......XXXXXXXX. ", -" .XXXXXXXX.......XXXXXXXX. ", -" .XXXXXXXX.....XXXXXXXX. ", -" ..XXXXXXX...XXXXXXX.. ", -" .XXXXXXXXXXXXXXX. ", -" ...XXXXXXXXX... ", -" ......... "}; -Tix_DefinePixmap(Et_Interp, Tk_GetUid("warning"), warning_xpm); -} diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tixDef.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tixDef.h deleted file mode 100644 index 14b2dbc67e7..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tixDef.h +++ /dev/null @@ -1,173 +0,0 @@ - -/* $Id: tixDef.h,v 1.2 2000/10/17 16:35:37 idiscovery Exp $ */ - -/* - * tixdef.h -- - * - * This file defines the defaults for all options for all of - * the Tix widgets. - * - * 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. - */ - -#ifndef TIX_DEFAULT -#define TIX_DEFAULT - -/* - * Include the defaults of the TK distriburion - */ -#ifndef _DEFAULT -#include <default.h> -#endif - -#ifndef CTL_FONT -#define CTL_FONT "Helvetica -12 bold" -#endif - -#define BORDER_COLOR "gray" - -/* - * Compound widget - */ -#define DEF_CMPIMAGE_BG_COLOR NORMAL_BG -#define DEF_CMPIMAGE_BG_MONO WHITE -#define DEF_CMPIMAGE_FG_COLOR BLACK -#define DEF_CMPIMAGE_FG_MONO BLACK -#define DEF_CMPIMAGE_FONT CTL_FONT - -/* - * tixHList widget - */ -#define DEF_HLIST_BG_COLOR NORMAL_BG -#define DEF_HLIST_BG_MONO WHITE -#define DEF_HLIST_BORDER_WIDTH "2" -#define DEF_HLIST_BROWSE_COMMAND "" -#define DEF_HLIST_COMMAND "" -#define DEF_HLIST_COLUMNS "1" -#define DEF_HLIST_CURSOR "" -#define DEF_HLIST_DISPLAY_MODE "tree" -#define DEF_HLIST_DRAG_COMMAND "" -#define DEF_HLIST_DRAW_BRANCH "true" -#define DEF_HLIST_DROP_COMMAND "" -#define DEF_HLIST_EXPORT_SELECTION "0" -#define DEF_HLIST_FONT CTL_FONT -#define DEF_HLIST_FG_COLOR BLACK -#define DEF_HLIST_FG_MONO BLACK -#define DEF_HLIST_HEADER "0" -#define DEF_HLIST_HEIGHT "10" -#define DEF_HLIST_HIGHLIGHT_COLOR BLACK -#define DEF_HLIST_HIGHLIGHT_MONO BLACK -#define DEF_HLIST_HIGHLIGHT_WIDTH "2" -#define DEF_HLIST_RELIEF "sunken" -#define DEF_HLIST_ORIENT "vertical" -#define DEF_HLIST_PADX "2" -#define DEF_HLIST_PADY "2" -#define DEF_HLIST_GAP "5" -#define DEF_HLIST_INDENT "10" -#define DEF_HLIST_INDICATOR "0" -#define DEF_HLIST_INDICATOR_CMD "" -#define DEF_HLIST_ITEM_TYPE "text" -#define DEF_HLIST_SELECT_BG_COLOR ACTIVE_BG -#define DEF_HLIST_SELECT_FG_COLOR BLACK -#define DEF_HLIST_SELECT_BG_MONO BLACK -#define DEF_HLIST_SELECT_FG_MONO WHITE -#define DEF_HLIST_SELECT_MODE "browse" -#define DEF_HLIST_SELECT_BORDERWIDTH "1" -#define DEF_HLIST_SEPARATOR "." -#define DEF_HLIST_SIZE_COMMAND "" -#define DEF_HLIST_TAKE_FOCUS "1" -#define DEF_HLIST_WIDTH "20" -#define DEF_HLIST_WIDE_SELECT "true" -#define DEF_HLIST_Y_SCROLL_COMMAND "" -#define DEF_HLIST_X_SCROLL_COMMAND "" - -/* - * HList Entry - */ -#define DEF_HLISTENTRY_BITMAP "" -#define DEF_HLISTENTRY_DATA "" -#define DEF_HLISTENTRY_GAP "4" -#define DEF_HLISTENTRY_IMAGE "" -#define DEF_HLISTENTRY_JUSTIFY "left" -#define DEF_HLISTENTRY_NAME "" -#define DEF_HLISTENTRY_PADX "2" -#define DEF_HLISTENTRY_PADY "2" -#define DEF_HLISTENTRY_STATE "normal" -#define DEF_HLISTENTRY_TEXT "" -#define DEF_HLISTENTRY_UNDERLINE "-1" -#define DEF_HLISTENTRY_WIDGET "" -#define DEF_HLISTENTRY_WLENGTH "0" - -/* - * HList Entry - */ -#define DEF_HLISTHEADER_BG_COLOR NORMAL_BG -#define DEF_HLISTHEADER_BG_MONO WHITE -#define DEF_HLISTHEADER_BORDER_WIDTH "2" -#define DEF_HLISTHEADER_RELIEF "raised" - -/* - * tixNBFrame widget - */ -#define DEF_NOTEBOOKFRAME_ACTIVE_BG_COLOR ACTIVE_BG -#define DEF_NOTEBOOKFRAME_ACTIVE_BG_MONO BLACK -#define DEF_NOTEBOOKFRAME_INACTIVE_BG_COLOR TROUGH -#define DEF_NOTEBOOKFRAME_INACTIVE_BG_MONO WHITE -#define DEF_NOTEBOOKFRAME_BACKPAGE_COLOR NORMAL_BG -#define DEF_NOTEBOOKFRAME_BACKPAGE_MONO WHITE -#define DEF_NOTEBOOKFRAME_BG_COLOR NORMAL_BG -#define DEF_NOTEBOOKFRAME_BG_MONO WHITE -#define DEF_NOTEBOOKFRAME_DISABLED_FG_COLOR DISABLED -#define DEF_NOTEBOOKFRAME_DISABLED_FG_MONO "" -#define DEF_NOTEBOOKFRAME_FOCUS_COLOR BLACK -#define DEF_NOTEBOOKFRAME_FOCUS_MONO BLACK -#define DEF_NOTEBOOKFRAME_BORDER_WIDTH "2" -#define DEF_NOTEBOOKFRAME_CURSOR "" -#define DEF_NOTEBOOKFRAME_FONT CTL_FONT -#define DEF_NOTEBOOKFRAME_FG_COLOR BLACK -#define DEF_NOTEBOOKFRAME_FG_MONO BLACK -#define DEF_NOTEBOOKFRAME_RELIEF "sunken" -#define DEF_NOTEBOOKFRAME_SLAVE "1" -#define DEF_NOTEBOOKFRAME_TAKE_FOCUS "1" -#define DEF_NOTEBOOKFRAME_WIDTH "10" -#define DEF_NOTEBOOKFRAME_TABPADX "6" -#define DEF_NOTEBOOKFRAME_TABPADY "5" - -/* - * tixTList.h - */ -#define DEF_TLIST_BG_COLOR NORMAL_BG -#define DEF_TLIST_BG_MONO WHITE -#define DEF_TLIST_BORDER_WIDTH "2" -#define DEF_TLIST_BROWSE_COMMAND "" -#define DEF_TLIST_COMMAND "" -#define DEF_TLIST_CURSOR "" -#define DEF_TLIST_FONT CTL_FONT -#define DEF_TLIST_FG_COLOR BLACK -#define DEF_TLIST_FG_MONO BLACK -#define DEF_TLIST_HEIGHT "10" -#define DEF_TLIST_HIGHLIGHT_COLOR BLACK -#define DEF_TLIST_HIGHLIGHT_MONO BLACK -#define DEF_TLIST_HIGHLIGHT_WIDTH "2" -#define DEF_TLIST_ITEM_TYPE "text" -#define DEF_TLIST_RELIEF "sunken" -#define DEF_TLIST_ORIENT "vertical" -#define DEF_TLIST_PADX "2" -#define DEF_TLIST_PADY "2" -#define DEF_TLIST_SELECT_BG_COLOR ACTIVE_BG -#define DEF_TLIST_SELECT_FG_COLOR BLACK -#define DEF_TLIST_SELECT_BG_MONO BLACK -#define DEF_TLIST_SELECT_FG_MONO WHITE -#define DEF_TLIST_SELECT_MODE "browse" -#define DEF_TLIST_SELECT_BORDERWIDTH "1" -#define DEF_TLIST_STATE "normal" -#define DEF_TLIST_SIZE_COMMAND "" -#define DEF_TLIST_TAKE_FOCUS "1" -#define DEF_TLIST_WIDTH "20" -#define DEF_TLIST_Y_SCROLL_COMMAND "" -#define DEF_TLIST_X_SCROLL_COMMAND "" - -#endif /* TIX_DEFAULT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tixForm.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tixForm.h deleted file mode 100644 index 8b2dbcd6976..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tixForm.h +++ /dev/null @@ -1,143 +0,0 @@ - -/* $Id: tixForm.h,v 1.1.1.1 2000/05/17 11:08:42 idiscovery Exp $ */ - -/* - * tixForm.h -- - * - * Declares the internal functions and data types for the Tix Form - * geometry manager. - * - * 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. - * - */ - -#ifndef _TIX_FORM_H -#define _TIX_FORM_H - -#define SIDE0 0 -#define SIDE1 1 - -#define NEXT_SIDE(x) (!x) - -#define SIDEX 0 -#define SIDEY 1 - -#define AXIS_X 0 -#define AXIS_Y 1 - -#define OPPO_SIDE0 1 -#define OPPO_SIDE1 2 -#define OPPO_ALL 3 - -#define PINNED_SIDE0 4 -#define PINNED_SIDE1 8 -#define PINNED_ALL 12 - -#define ATT_NONE 0 -#define ATT_GRID 1 -#define ATT_OPPOSITE 2 -#define ATT_PARALLEL 3 - -/* - * The following structures carry information about the client windows - */ -typedef union { - int grid; - struct _FormInfo * widget; -} Attachment; - -typedef struct { - int pcnt; /* percentage anchor point */ - int disp; /* displacement from the percentage anchor point*/ -} Side; - -typedef struct _FormInfo { - Tk_Window tkwin; - struct _MasterInfo* master; /* The master of this window */ - struct _FormInfo * next; - - int depend; /* used to detect circular dependency*/ - - /* These are specified by the user and set by the "tixForm" command - */ - Attachment att[2][2]; /* anchor of attachment */ - int off[2][2]; /* offset of attachment */ - char isDefault[2][2];/* Is this side a default attachment*/ - - char attType[2][2]; /* type of attachment - GRID or PIXEL*/ - int pad[2][2]; /* value of padding */ - - /* These values are calculated by the PinnClient() functions - * and are used to calculated the required size of the master - * inside CalculateMasterGeometry(), as well as the positions - * of the clients inside ArrangeGeometry() - */ - Side side[2][2]; - int sideFlags[2]; - - /* These values are used to place the clients into the clients - */ - int posn[2][2]; - - /* These things are for Spring'ing */ - int spring[2][2]; - struct _FormInfo * strWidget[2][2]; - int springFail[2]; - int fill[2]; -} FormInfo; - - -/* - * The following structures carry information about the master windows - */ -typedef struct { - unsigned int isDeleted : 1; - unsigned int repackPending : 1; -} MasterFlags; - -typedef struct _MasterInfo { - Tk_Window tkwin; - struct _FormInfo * client; - struct _FormInfo * client_tail; - int numClients; - int reqSize[2]; - int numRequests; /* This is used to detect - * whether two geometry managers - * are used to manage the same - * master window - */ - int grids[2]; - MasterFlags flags; -} MasterInfo; - -/* tixFormMisc.c */ - - -EXTERN int TixFm_Configure _ANSI_ARGS_((FormInfo *clientPtr, - Tk_Window topLevel, - Tcl_Interp* interp, int argc, Tcl_Obj *CONST *objv)); - -/* tixForm.c */ -EXTERN FormInfo * TixFm_GetFormInfo _ANSI_ARGS_((Tk_Window tkwin, - int create)); -EXTERN void TixFm_StructureProc _ANSI_ARGS_((ClientData clientData, - XEvent * eventPtr)); -EXTERN void TixFm_AddToMaster _ANSI_ARGS_((MasterInfo *masterPtr, - FormInfo *clientPtr)); -EXTERN void TixFm_DeleteMaster _ANSI_ARGS_(( - MasterInfo *masterPtr)); -EXTERN void TixFm_FreeMasterInfo _ANSI_ARGS_(( - char *clientData)); -EXTERN FormInfo * TixFm_FindClientPtrByName _ANSI_ARGS_(( - Tcl_Interp * interp, char * name, - Tk_Window topLevel)); -EXTERN void TixFm_ForgetOneClient _ANSI_ARGS_(( - FormInfo *clientPtr)); -EXTERN void TixFm_Unlink _ANSI_ARGS_((FormInfo *clientPtr)); -EXTERN void TixFm_UnlinkFromMaster _ANSI_ARGS_(( - FormInfo *clientPtr)); -#endif /* _TIX_FORM_H */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tixGrData.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tixGrData.h deleted file mode 100644 index 1db10aaa37b..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tixGrData.h +++ /dev/null @@ -1,88 +0,0 @@ - -/* $Id: tixGrData.h,v 1.1.1.1 2000/05/17 11:08:42 idiscovery Exp $ */ - -/* - * tixGData.h -- - * - * Defines portable data structure for tixGrid. - * - * 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. - * - */ - -#ifndef _TIX_GRID_DATA_H_ -#define _TIX_GRID_DATA_H_ - -/* - * Data structure that stored the cells in a Grid widget. It is optimized - * for column/row insertion and deletion. - * - * - A grid is divideded into a set of rows and columns. Each row and column - * is divided into a set of cells. - * - * - The following discusses the structure of a row. The structure of a - * column is the reverse of a row. - * - * Row y is stored in the hash table TixGridDataSet.index[1] with - * the index y. Hence, to search for row y, we use the FindHashEntry - * operation: - * - * row_y = TixGridDataSet.index[1].FindHashEntry(y); - * - * To locate a cell (x,y), we can first find the row y, and then - * locate the cell at column x of this row. Note that the cell is - * *not* indexed by its column position (y), but rather by the hash - * table of the column y. The following example illustrates how cell - * (x,y) can be searched: - * - * row_y = TixGridDataSet.index[1].FindHashEntry(y); - * col_x = TixGridDataSet.index[0].FindHashEntry(x); - * - * cell_xy = row_x.list.FindHashEntry(&col_x); - * - * The advantage of this arrangement is it is very efficient to - * insert a row into into the grid -- we just have to fix the - * indices of the rows table. For example, if, after the insertion, - * row_y is now moved to the row y1, we change its index from y to - * y1. In general, an insertion operation takes log(n) time in a - * grid that contains n items. - * - */ -typedef struct TixGridDataSet { - Tcl_HashTable index[2]; /* the row and column indices */ - /* index[0] holds the columns - * (horizontal index) - */ - int maxIdx[2]; /* the max row/col, or {-1,-1} - * if there are no rows/col - */ -} TixGridDataSet; - -#define TIX_GR_AUTO 0 -#define TIX_GR_DEFAULT 1 -#define TIX_GR_DEFINED_PIXEL 2 -#define TIX_GR_DEFINED_CHAR 3 - -typedef struct TixGridSize { - int sizeType; - int sizeValue; /* width or height */ - int pixels; - int pad0, pad1; - double charValue; -} TixGridSize; - -typedef struct TixGridRowCol { - /* private: */ - Tcl_HashTable table; - - /* public: */ - int dispIndex; /* the row or column in which - * this TixGridRowCol is displayed */ - TixGridSize size; -} TixGridRowCol; - - -#endif diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tixGrid.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tixGrid.h deleted file mode 100644 index 90cee98909b..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tixGrid.h +++ /dev/null @@ -1,458 +0,0 @@ - -/* $Id: tixGrid.h,v 1.1.1.1 2000/05/17 11:08:42 idiscovery Exp $ */ - -/* - * tixGrid.h -- - * - * Defines main data structures for tixGrid - * - * 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. - * - */ - -#ifndef _TIX_GRID_H_ -#define _TIX_GRID_H_ -#include "tkVMacro.h" - -#ifndef _TIX_GRID_DATA_H_ -#include "tixGrData.h" -#endif - -#define TIX_X 0 -#define TIX_Y 1 - - -#define TIX_S_MARGIN 0 -#define TIX_X_MARGIN 1 -#define TIX_Y_MARGIN 2 -#define TIX_MAIN 3 - -#define TIX_SITE_NONE -1 - -typedef struct TixGrEntry { - Tix_DItem * iPtr; - Tcl_HashEntry * entryPtr[2]; /* The index of this entry in the - * row/col tables */ -} TixGrEntry; - -/*---------------------------------------------------------------------- - * Render Block - * - * Before the Grid is rendered, information is filled into a pseudo 2D - * array of RenderBlockElem's: - * - * (1) entries are placed in the appropriate (x,y) locations - * (2) background and borders are formatted according - * (3) highlights are formatted. - * - * The widget is redrawn using the render-block. This saves reformatting - * the next time the widget is exposed. - *---------------------------------------------------------------------- - */ -typedef struct RenderBlockElem { - TixGrEntry * chPtr; /* not allocated, don't need to free */ - int borderW[2][2]; - int index[2]; - - unsigned int selected : 1; - unsigned int filled : 1; -} RenderBlockElem; - - -/* ElmDispSize -- - * - * This structure stores the size information of the visible - * rows (RenderBlock.dispSize[0][...]) and columns - * (RenderBlock.dispSize[1][...]) - */ -typedef struct ElmDispSize { - int preBorder; - int size; - int postBorder; - - int total; /* simple the sum of the above */ -} ElmDispSize; - -typedef struct RenderBlock { - int size[2]; /* num of rows and cols in the render block */ - - RenderBlockElem **elms; /* An Malloc'ed pseudo 2D array (you can do - * things like elms[0][0]), Used for the - * main body of the Grid. - */ - ElmDispSize *dispSize[2]; /* (dispSizes[0][x], dispSizes[1][y]) - * will be the dimension of the element (x,y) - * displayed on the screen (may be bigger - * or smaller than its desired size). */ - int visArea[2]; /* visible area (width times height) of - * the visible cells on the screen */ -} RenderBlock; - -/*---------------------------------------------------------------------- - * RenderInfo - * - * This stores information for rendering from the RB into an X drawable. - * - *---------------------------------------------------------------------- - */ -typedef struct RenderInfo { - Drawable drawable; - int origin[2]; - int offset[2]; - int size[2]; /* width and height of the area to draw - * (number of pixels starting from the offset) - * if offset = (2,2) and size = (5,5) we have - * to draw the rectangle ((2,2), (6,6)); - */ - struct { /* the current valid grid area for the */ - int x1, x2, y1, y2; /* "format" command */ - int whichArea; - } fmt; -} RenderInfo; - -typedef struct ExposedArea { - int x1, y1, x2, y2; -} ExposedArea, Rect; - -/*---------------------------------------------------------------------- - * ColorInfo - * - * These colors are used by the format commands. They must be saved - * or otherwise the colormap may be changed .. - *---------------------------------------------------------------------- - */ -typedef struct ColorInfo { - struct ColorInfo * next; - int counter; - int type; /* TK_CONFIG_BORDER or TK_CONFIG_COLOR */ - long pixel; - Tk_3DBorder border; - XColor * color; -} ColorInfo; - -/*---------------------------------------------------------------------- - * SelectBlock - * - * These structures are arranged in a list and are used to determine - * where a cell is selected. - *---------------------------------------------------------------------- - */ -#define TIX_GR_CLEAR 1 -#define TIX_GR_SET 2 -#define TIX_GR_TOGGLE 3 - -#define TIX_GR_MAX 0x7fffffff - -#define TIX_GR_RESIZE 1 -#define TIX_GR_REDRAW 2 - - -typedef struct SelectBlock { - struct SelectBlock * next; - int range[2][2]; /* the top left and bottom right corners */ - int type; /* TIX_GR_CLEAR, TIX_GR_SET, - * TIX_GR_TOGGLE - * - * If several SelectBlock covers the same - * cell, the last block in the wPtr->selList - * determines whether this cell is selected - * or not */ -} SelectBlock; - -/*---------------------------------------------------------------------- - * GrSortItem - * - * Used to sort the items in the grid - *---------------------------------------------------------------------- - */ -typedef struct Tix_GrSortItem { - Tcl_Obj * data; /* is usually a string, but - * can be a pointer to an - * arbitrary data in C API */ - int index; /* row or column */ -} Tix_GrSortItem; - -/*---------------------------------------------------------------------- - * Data structure for iterating the cells inside the grid. - * - *---------------------------------------------------------------------- - */ - -typedef struct Tix_GrDataRowSearch { - struct TixGridRowCol * row; - Tcl_HashSearch hashSearch; - Tcl_HashEntry *hashPtr; -} Tix_GrDataRowSearch; - -typedef struct Tix_GrDataCellSearch { - char * data; - Tcl_HashSearch hashSearch; - Tcl_HashEntry *hashPtr; -} Tix_GrDataCellSearch; - -/*---------------------------------------------------------------------- - * - * Main data structure of the grid widget. - * - *---------------------------------------------------------------------- - */ -typedef struct Tix_GridScrollInfo { - LangCallback *command; - - int max; /* total size (width or height) of the widget*/ - int offset; /* The top/left side of the scrolled widget */ - int unit; /* How much should we scroll when the user */ - - double window; /* visible size, percentage of the total */ -}Tix_GridScrollInfo; - - -typedef struct GridStruct { - Tix_DispData dispData; - - Tcl_Command widgetCmd; /* Token for button's widget command. */ - - /* - * Information used when displaying widget: - */ - int reqSize[2]; /* For app programmer to request size */ - - /* - * Information used when displaying widget: - */ - - /* Border and general drawing */ - int borderWidth; /* Width of 3-D borders. */ - int selBorderWidth; /* Width of 3-D borders for selected items */ - int relief; /* Indicates whether window as a whole is - * raised, sunken, or flat. */ - Tk_3DBorder border; /* Used for drawing the 3d border. */ - Tk_3DBorder selectBorder; /* Used for selected background. */ - XColor *normalFg; /* Normal foreground for text. */ - XColor *normalBg; /* Normal background for text. */ - XColor *selectFg; /* Color for drawing selected text. */ - - Tk_Uid state; /* State can only be normal or disabled. */ - - /* GC and stuff */ - GC backgroundGC; /* GC for drawing background. */ - GC selectGC; /* GC for drawing selected background. */ - GC anchorGC; /* GC for drawing dotted anchor highlight. */ - TixFont font; /* Default font used by the DItems. */ - - /* Text drawing */ - Tk_Cursor cursor; /* Current cursor for window, or None. */ - - /* For highlights */ - int highlightWidth; /* Width in pixels of highlight to draw - * around widget when it has the focus. - * <= 0 means don't draw a highlight. */ - int bdPad; /* = highlightWidth + borderWidth */ - XColor *highlightColorPtr; /* Color for drawing traversal highlight. */ - GC highlightGC; /* For drawing traversal highlight. */ - - /* - * default pad and gap values - */ - int padX, padY; - - Tk_Uid selectMode; /* Selection style: single, browse, multiple, - * or extended. This value isn't used in C - * code, but the Tcl bindings use it. */ - Tk_Uid selectUnit; /* Selection unit: cell, row or column. - * This value isn't used in C - * code, but the Tcl bindings use it. */ - - /* - * The following three sites are used according to the -selectunit. - * if selectunit is: "cell", [0] and [1] are used; "row", only [0] - * is used; "column", only [1] is used - */ - int anchor[2]; /* The current anchor unit */ - int dropSite[2]; /* The current drop site */ - int dragSite[2]; /* The current drop site */ - - /* - * Callback commands. - */ - LangCallback *command; /* The command when user double-clicks */ - LangCallback *browseCmd; /* The command to call when the selection - * changes. */ - LangCallback *editNotifyCmd; /* The command to call to determine whether - * a cell is editable. */ - LangCallback *editDoneCmd; /* The command to call when an entry has - * been edited by the user.*/ - LangCallback *formatCmd; /* The command to call when the Grid widget - * needs to be reformatted (e.g, Exposure - * events or when contents have been - * changed). */ - LangCallback *sizeCmd; /* The command to call when the size of - * the listbox changes. E.g., when the user - * add/deletes elements. Useful for auto- - * scrollbar geometry managers */ - - /* - * Info for lay-out - */ - char *takeFocus; /* Value of -takefocus option; not used in - * the C code, but used by keyboard traversal - * scripts. Malloc'ed, but may be NULL. */ - - int serial; /* this number is incremented before each time - * the widget is redisplayed */ - - TixGridDataSet * dataSet; - RenderBlock * mainRB; /* Malloc'ed */ - - int hdrSize[2]; /* number of rows (height of x header, index - * [0]) and columns (width of y header, index - * [1]) */ - int floatRange[2]; /* Are the num of columns and rows floated? - * (if floated, you can scroll past the max - * element).*/ - int gridSize[2]; /* the size of the grid where there is data */ - Tix_DItemInfo * diTypePtr; /* Default item type */ - ExposedArea expArea; - - RenderInfo * renderInfo; /* only points to stuff in stack */ - Tix_GridScrollInfo scrollInfo[2]; - int fontSize[2]; /* size of the "0" char of the -font option - */ - TixGridSize defSize[2]; - Tix_LinkList colorInfo; - Tix_LinkList selList; - Tix_LinkList mappedWindows; - int colorInfoCounter; - - unsigned int hasFocus : 1; - - unsigned int idleEvent : 1; - unsigned int toResize : 1; /* idle event */ - unsigned int toRedraw : 1; /* idle event */ - - unsigned int toResetRB : 1; /* Do we need to reset the render block */ - unsigned int toComputeSel : 1; - unsigned int toRedrawHighlight : 1; -} Grid; - -typedef Grid WidgetRecord; -typedef Grid * WidgetPtr; - -#define DEF_GRID_BG_COLOR NORMAL_BG -#define DEF_GRID_BG_MONO WHITE -#define DEF_GRID_BORDER_WIDTH "2" -#define DEF_GRID_BROWSE_COMMAND "" -#define DEF_GRID_COMMAND "" -#define DEF_GRID_CURSOR "" -#define DEF_GRID_DEFAULT_WIDTH "40" -#define DEF_GRID_DEFAULT_HEIGHT "20" -#define DEF_GRID_EDITDONE_COMMAND "" -#define DEF_GRID_EDITNOTIFY_COMMAND "" -#define DEF_GRID_FLOATING_ROWS "0" -#define DEF_GRID_FLOATING_COLS "0" -#define DEF_GRID_FONT "Helvetica -12 bold" -#define DEF_GRID_FG_COLOR BLACK -#define DEF_GRID_FG_MONO BLACK -#define DEF_GRID_FORMAT_COMMAND "" -#define DEF_GRID_HEIGHT "10" -#define DEF_GRID_HIGHLIGHT_COLOR BLACK -#define DEF_GRID_HIGHLIGHT_MONO BLACK -#define DEF_GRID_HIGHLIGHT_WIDTH "2" -#define DEF_GRID_LEFT_MARGIN "1" -#define DEF_GRID_ITEM_TYPE "text" -#define DEF_GRID_RELIEF "sunken" -#define DEF_GRID_PADX "2" -#define DEF_GRID_PADY "2" -#define DEF_GRID_SELECT_BG_COLOR ACTIVE_BG -#define DEF_GRID_SELECT_FG_COLOR BLACK -#define DEF_GRID_SELECT_BG_MONO BLACK -#define DEF_GRID_SELECT_FG_MONO WHITE -#define DEF_GRID_SELECT_MODE "single" -#define DEF_GRID_SELECT_UNIT "row" -#define DEF_GRID_SELECT_BORDERWIDTH "1" -#define DEF_GRID_STATE "normal" -#define DEF_GRID_SIZE_COMMAND "" -#define DEF_GRID_TAKE_FOCUS "1" -#define DEF_GRID_TOP_MARGIN "1" -#define DEF_GRID_WIDTH "4" -#define DEF_GRID_Y_SCROLL_COMMAND "" -#define DEF_GRID_X_SCROLL_COMMAND "" - -/* - * common functions - */ - -EXTERN void Tix_GrAddChangedRect _ANSI_ARGS_(( - WidgetPtr wPtr, int changedRect[2][2], - int isSite)); -EXTERN int Tix_GrConfigSize _ANSI_ARGS_((Tcl_Interp *interp, - WidgetPtr wPtr, int argc, Tcl_Obj *CONST *objv, - TixGridSize *sizePtr, char * argcErrorMsg, - int *changed_ret)); -EXTERN void Tix_GrDoWhenIdle _ANSI_ARGS_((WidgetPtr wPtr, - int type)); -EXTERN void Tix_GrCancelDoWhenIdle _ANSI_ARGS_((WidgetPtr wPtr)); -EXTERN void Tix_GrFreeElem _ANSI_ARGS_((TixGrEntry * chPtr)); -EXTERN void Tix_GrFreeUnusedColors _ANSI_ARGS_((WidgetPtr wPtr, - int freeAll)); -EXTERN void Tix_GrScrollPage _ANSI_ARGS_((WidgetPtr wPtr, - int count, int axis)); - -/* - * The dataset functions - */ - -EXTERN int TixGridDataConfigRowColSize _ANSI_ARGS_(( - Tcl_Interp * interp, WidgetPtr wPtr, - TixGridDataSet * dataSet, int which, int index, - int argc, Tcl_Obj *CONST *objv, char * argcErrorMsg, - int *changed_ret)); -EXTERN char * TixGridDataCreateEntry _ANSI_ARGS_(( - TixGridDataSet * dataSet, int x, int y, - char * defaultEntry)); -EXTERN int TixGridDataDeleteEntry _ANSI_ARGS_(( - TixGridDataSet * dataSet, int x, int y)); -EXTERN void TixGridDataDeleteRange _ANSI_ARGS_((WidgetPtr wPtr, - TixGridDataSet * dataSet, int which, - int from, int to)); -EXTERN void TixGridDataDeleteSearchedEntry _ANSI_ARGS_(( - Tix_GrDataCellSearch * cellSearchPtr)); -EXTERN char * TixGridDataFindEntry _ANSI_ARGS_(( - TixGridDataSet * dataSet, int x, int y)); -EXTERN int TixGrDataFirstCell _ANSI_ARGS_(( - Tix_GrDataRowSearch * rowSearchPtr, - Tix_GrDataCellSearch * cellSearchPtr)); -EXTERN int TixGrDataFirstRow _ANSI_ARGS_(( - TixGridDataSet* dataSet, - Tix_GrDataRowSearch * rowSearchPtr)); -EXTERN int TixGridDataGetRowColSize _ANSI_ARGS_(( - WidgetPtr wPtr, TixGridDataSet * dataSet, - int which, int index, TixGridSize * defSize, - int *pad0, int * pad1)); -EXTERN void TixGridDataGetGridSize _ANSI_ARGS_(( - TixGridDataSet * dataSet, int *width_ret, - int *height_ret)); -EXTERN int TixGridDataGetIndex _ANSI_ARGS_(( - Tcl_Interp * interp, WidgetPtr wPtr, - Tcl_Obj * xStr, Tcl_Obj * yStr, int * xPtr, int * yPtr)); -EXTERN void TixGridDataInsert _ANSI_ARGS_(( - TixGridDataSet * dataSet, - int x, int y, ClientData data)); -EXTERN void TixGridDataMoveRange _ANSI_ARGS_((WidgetPtr wPtr, - TixGridDataSet * dataSet, int which, - int from, int to, int by)); -EXTERN int TixGrDataNextCell _ANSI_ARGS_(( - Tix_GrDataCellSearch * cellSearchPtr)); -EXTERN int TixGrDataNextRow _ANSI_ARGS_(( - Tix_GrDataRowSearch * rowSearchPtr)); -EXTERN TixGridDataSet* TixGridDataSetInit _ANSI_ARGS_((void)); -EXTERN void TixGridDataSetFree _ANSI_ARGS_(( - TixGridDataSet* dataSet)); -EXTERN int TixGridDataUpdateSort _ANSI_ARGS_(( - TixGridDataSet * dataSet, int axis, - int start, int end, Tix_GrSortItem *items)); - -#endif /*_TIX_GRID_H_*/ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tixHList.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tixHList.h deleted file mode 100644 index 5625f137c15..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tixHList.h +++ /dev/null @@ -1,323 +0,0 @@ - -/* $Id: tixHList.h,v 1.1.1.1 2000/05/17 11:08:42 idiscovery Exp $ */ - -/* - * tixHList.h -- - * - * Defines the data structures and functions used by the tixHList - * widget. - * - * 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. - * - */ - -#ifndef _TIX_HLIST_H_ -#define _TIX_HLIST_H_ - -#ifndef _TIX_INT_H_ -#include "tixInt.h" -#endif - -#include "tkVMacro.h" - -#define HLTYPE_COLUMN 1 -#define HLTYPE_HEADER 2 -#define HLTYPE_ENTRY 3 - -/* This is used to indetify what object has caused a DItemSizeChange - * All data structs for objects that manage DItems must have these two - * members as the beginning of the struct. - */ -typedef struct HLItemTypeInfo { - int type; - char * self; -} HLItemTypeInfo; - -typedef struct HListColumn { - /* generic type info section */ - int type; - char * self; - struct _HListElement * chPtr; - - /* other data */ - Tix_DItem * iPtr; - int width; -} HListColumn; - -typedef struct HListHeader { - /* generic type info section */ - int type; - char * self; - - struct HListStruct * wPtr; - /* other data */ - Tix_DItem * iPtr; - int width; - - Tk_3DBorder background; /* Used for drawing the 3d border. */ - int relief; /* Indicates whether window as a whole is - * raised, sunken, or flat. */ - int borderWidth; -} HListHeader; - -/*---------------------------------------------------------------------- - * A HListElement structure contain the information about each element - * inside the HList. - * - */ -typedef struct _HListElement { - /* generic type info section */ - int type; - char * self; - - /* other data */ - struct HListStruct * wPtr; - struct _HListElement * parent; - struct _HListElement * prev; - struct _HListElement * next; - struct _HListElement * childHead; - struct _HListElement * childTail; - - int numSelectedChild; /* number of childs that has selection(s) in - * them (either this child is selected or some - * of its descendants are selected */ - int numCreatedChild; /* this var gets increment by one each - * time a child is created */ - char * pathName; /* Full pathname of this element */ - char * name; /* Name of this element */ - int height; /* Height of this element, including padding - * and selBorderWidth; - */ - int allHeight; /* Height of all descendants and self */ - Tk_Uid state; /* State of Tab's for display purposes: - * normal or disabled. */ - Tcl_Obj * data; /* user data field */ - /* bottom-middle position of the bitmap/image branch (offset from - * the top-left corner of the item) - */ - int branchX; - int branchY; - - /* offset of the left-middle position of the icon */ - int iconX; - int iconY; - /*----------------------------------*/ - /* Things to display in the element */ - /*----------------------------------*/ - HListColumn * col; /* the multi-column display items */ - HListColumn _oneCol; /* If we have only one column, then this - * space is used (pointed to by column). - * This will save one Malloc */ - int indent; - Tix_DItem * indicator; /* indicator: little triangle on Mac */ - - /*----------------------------------*/ - /* Flags */ - /*----------------------------------*/ - Tix_DItemInfo * diTypePtr; - - unsigned int selected : 1; - unsigned int hidden : 1; - unsigned int dirty : 1; /* If it is dirty then its geometry needs - * be recalculated */ -} Tix_HListElement, HListElement; - -/* - * A data structure of the following type is kept for each - * widget managed by this file: - */ -typedef struct HListStruct { - Tix_DispData dispData; - Tcl_Command widgetCmd; /* Token for button's widget command. */ - - /* - * Information used when displaying widget: - */ - LangCallback *command; /* Command prefix to use when invoking - * scrolling commands. NULL means don't - * invoke commands. Malloc'ed. */ - int width, height; /* For app programmer to request size */ - - /* - * Information used when displaying widget: - */ - - /* Border and general drawing */ - int borderWidth; /* Width of 3-D borders. */ - int selBorderWidth; /* Width of 3-D borders for selected items */ - int relief; /* Indicates whether window as a whole is - * raised, sunken, or flat. */ - int indent; /* How much should the children be indented - * (to the right)?, in pixels */ - Tk_3DBorder border; /* Used for drawing the 3d border. */ - Tk_3DBorder selectBorder; /* Used for selected background. */ - XColor *normalFg; /* Normal foreground for text. */ - XColor *normalBg; /* Normal bachground for text. */ - XColor *selectFg; /* Color for drawing selected text. */ - TixFont font; /* The default font used in the DItems. */ - GC backgroundGC; /* GC for drawing background. */ - GC normalGC; /* GC for drawing text in normal mode. */ - GC selectGC; /* GC for drawing selected background. */ - GC anchorGC; /* GC for drawing dotted anchor highlight. */ - GC dropSiteGC; /* GC for drawing dotted anchor highlight. */ - - Cursor cursor; /* Current cursor for window, or None. */ - - int topPixel; /* Vertical offset */ - int leftPixel; /* Horizontal offset */ - int bottomPixel; - int wideSelect; /* BOOL: if 1, use a wide selection: the - * selection background color covers the whole - * widget. If 0, only the "significant" part - * of a list entry is highlighted */ - int selectWidth; /* Width of the selection: takes effect only - * if wideSelect == 1 */ - int exportSelection; /* Do we grab X Selection */ - /* For highlights */ - int highlightWidth; /* Width in pixels of highlight to draw - * around widget when it has the focus. - * <= 0 means don't draw a highlight. */ - XColor *highlightColorPtr; /* Color for drawing traversal highlight. */ - GC highlightGC; /* For drawing traversal highlight. */ - - /* default pad and gap values */ - int gap, padX, padY; - char * separator; - - Tk_Uid selectMode; /* Selection style: single, browse, multiple, - * or extended. This value isn't used in C - * code, but the Tcl bindings use it. */ - int drawBranch; /* Whether to draw the "branch" lines from - * parent entry to children */ - Tcl_HashTable childTable; /* Hash table to translate child names - * into (HListElement *) */ - HListElement * root; /* Mother of all elements */ - HListElement * anchor; /* The current anchor item */ - HListElement * dragSite; /* The current drag site */ - HListElement * dropSite; /* The current drop site */ - - LangCallback *yScrollCmd; /* Command prefix for communicating with - * vertical scrollbar. NULL means no command - * to issue. Malloc'ed. */ - LangCallback *xScrollCmd; /* Command prefix for communicating with - * horizontal scrollbar. NULL means no command - * to issue. Malloc'ed. */ - LangCallback *sizeCmd; /* The command to call when the size of - * the listbox changes. E.g., when the user - * add/deletes elements. Useful for - * auto-scrollbar geometry managers */ - LangCallback *browseCmd; /* The command to call when the selection - * changes. */ - LangCallback *indicatorCmd; /* The command to call when the user touches - * the indicator. */ - LangCallback *dragCmd; /* The command to call when info about a - * drag source is needed */ - LangCallback *dropCmd; /* The command to call when action at a drop - * side needs to be performed */ - char *takeFocus; /* Value of -takefocus option; not used in - * the C code, but used by keyboard traversal - * scripts. Malloc'ed, but may be NULL. */ - - Tix_LinkList mappedWindows; /* Those windows that are are mapped by this - * widget*/ - int serial; /* this number is incremented before each time - * the widget is redisplayed */ - - int numColumns; /* number of columns in the tixHList widget, - * cannot be changed after the widget's - * creation */ - - int totalSize[2]; - - HListColumn * reqSize; /* Requested column sizes by the user: - take precedence */ - HListColumn * actualSize; /* Actual column sizes, calculated using - * the sizes of the ditems */ - - HListHeader ** headers; /* Stores all the headers for a HList widget */ - int useHeader; /* whether headers should be used */ - int headerHeight; /* required height of the header */ - - Tix_DItemInfo * diTypePtr; /* Default item type */ - Tix_StyleTemplate stTmpl; - - int useIndicator; /* should indicators be displayed */ - int scrollUnit[2]; - - Tk_Window headerWin; /* subwindow, used to draw the headers */ - char * elmToSee; /* name of element to "see" the next time - * this widget is redrawn */ - unsigned redrawing : 1; - unsigned redrawingFrame : 1; - unsigned resizing : 1; - unsigned hasFocus : 1; - unsigned allDirty : 1; - unsigned initialized : 1; - unsigned headerDirty : 1; - unsigned needToRaise : 1; /* The header subwindow needs to be raised - * if we add a new window item into the - * HList widget (either in the list or - * in the header */ -} HList; - -#define TIX_X 0 -#define TIX_Y 1 -#define UNINITIALIZED -1 - -typedef HList WidgetRecord; -typedef HList * WidgetPtr; - -EXTERN TIX_DECLARE_SUBCMD(Tix_HLColumn); -EXTERN TIX_DECLARE_SUBCMD(Tix_HLItem); - -EXTERN HListColumn * Tix_HLAllocColumn _ANSI_ARGS_(( - WidgetPtr wPtr, HListElement * chPtr)); -EXTERN void Tix_HLCancelResizeWhenIdle _ANSI_ARGS_(( - WidgetPtr wPtr)); -EXTERN void Tix_HLComputeGeometry _ANSI_ARGS_(( - ClientData clientData)); -EXTERN HListElement * Tix_HLFindElement _ANSI_ARGS_((Tcl_Interp *interp, - WidgetPtr wPtr, char * pathName)); -EXTERN void Tix_HLFreeMappedWindow _ANSI_ARGS_((WidgetPtr wPtr, - HListElement * chPtr)); -EXTERN int Tix_HLElementTopOffset _ANSI_ARGS_(( - WidgetPtr wPtr, HListElement *chPtr)); -EXTERN int Tix_HLElementLeftOffset _ANSI_ARGS_(( - WidgetPtr wPtr, HListElement *chPtr)); -EXTERN int Tix_HLItemInfo _ANSI_ARGS_((Tcl_Interp *interp, - WidgetPtr wPtr, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tix_HLHeader _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tix_HLCreateHeaders _ANSI_ARGS_(( - Tcl_Interp *interp, WidgetPtr wPtr)); -EXTERN void Tix_HLFreeHeaders _ANSI_ARGS_(( - Tcl_Interp *interp, WidgetPtr wPtr)); -EXTERN void Tix_HLDrawHeader _ANSI_ARGS_(( - WidgetPtr wPtr, Pixmap pixmap, GC gc, - int hdrX, int hdrY, int hdrW, int hdrH, - int xOffset)); -EXTERN void Tix_HLComputeHeaderGeometry _ANSI_ARGS_(( - WidgetPtr wPtr)); - -EXTERN void Tix_HLMarkElementDirty _ANSI_ARGS_((WidgetPtr wPtr, - HListElement *chPtr)); -EXTERN void Tix_HLResizeWhenIdle _ANSI_ARGS_((WidgetPtr wPtr)); -EXTERN void Tix_HLResizeNow _ANSI_ARGS_((WidgetPtr wPtr)); -EXTERN void Tix_HLComputeGeometry _ANSI_ARGS_(( - ClientData clientData)); -EXTERN void Tix_HLCancelResizeWhenIdle _ANSI_ARGS_(( - WidgetPtr wPtr)); - - -/* in tixHLCol.c */ -EXTERN TIX_DECLARE_SUBCMD(Tix_HLColumn); -EXTERN TIX_DECLARE_SUBCMD(Tix_HLItem); - -/* in tixHLInd.c */ -EXTERN TIX_DECLARE_SUBCMD(Tix_HLIndicator); - -#endif /*_TIX_HLIST_H_ */ - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm.h deleted file mode 100644 index deb68ea76e1..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm.h +++ /dev/null @@ -1,134 +0,0 @@ - -/* $Id: tixImgXpm.h,v 1.1.1.1 2000/05/17 11:08:42 idiscovery Exp $ */ - -/* - * tixImgXpm.h -- - * - * Generic header file for the pixmap image type. This is NOT a public - * header file! - * - * 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. - * - */ - -#ifndef _TIX_IMG_XPM_H_ -#define _TIX_IMG_XPM_H_ -#define _TIXIMGXPM -/* - * Constants - */ - -#define XPM_MONO 1 -#define XPM_GRAY_4 2 -#define XPM_GRAY 3 -#define XPM_COLOR 4 -#define XPM_SYMBOLIC 5 -#define XPM_UNKNOWN 6 - -/* - * The following data structure represents the master for a pixmap - * image: - */ - -typedef struct PixmapMaster { - Tk_ImageMaster tkMaster; /* Tk's token for image master. NULL means - * the image is being deleted. */ - Tcl_Interp *interp; /* Interpreter for application that is - * using image. */ - Tcl_Command imageCmd; /* Token for image command (used to delete - * it when the image goes away). NULL means - * the image command has already been - * deleted. */ - char *fileString; /* Value of -file option (malloc'ed). - * valid only if the -file option is specified - */ - char *dataString; /* Value of -data option (malloc'ed). - * valid only if the -data option is specified - */ - Tk_Uid id; /* ID's for XPM data already compiled - * into the tixwish binary */ - int size[2]; /* width and height */ - int ncolors; /* number of colors */ - int cpp; /* characters per pixel */ - char ** data; /* The data that defines this pixmap - * image (array of strings). It is - * converted into an X Pixmap when this - * image is instanciated - */ - int isDataAlloced; /* False iff the data is got from - * the -id switch */ - /* First in list of all instances associated - * with this master. */ - struct PixmapInstance *instancePtr; -} PixmapMaster; - -typedef struct ColorStruct { - char c; /* This is used if CPP is one */ - char * cstring; /* This is used if CPP is bigger than one */ - XColor * colorPtr; -} ColorStruct; - -/*---------------------------------------------------------------------- - * PixmapInstance -- - * - * Represents all of the instances of an image that lie within a - * particular window: - * - * %% ToDo - * Currently one instance is created for each window that uses - * this pixmap. This is usually OK because pixmaps are usually - * not shared or only shared by a small number of windows. To - * improve resource allocation, we can create an instance for - * each (Display x Visual x Depth) combo. This will usually - * reduce the number of instances to one. - *---------------------------------------------------------------------- - */ -typedef struct PixmapInstance { - int refCount; /* Number of instances that share this - * data structure. */ - PixmapMaster *masterPtr; /* Pointer to master for image. */ - Tk_Window tkwin; /* Window in which the instances will be - * displayed. */ - Pixmap pixmap; /* The pixmap to display. */ - struct PixmapInstance *nextPtr; - /* Next in list of all instance structures - * associated with masterPtr (NULL means - * end of list). - */ - ColorStruct * colors; - ClientData clientData; /* Place holder for platform specific - * instance data */ -} PixmapInstance; - - -EXTERN void TixpInitPixmapInstance _ANSI_ARGS_(( - PixmapMaster *masterPtr, - PixmapInstance *instancePtr)); -EXTERN void TixpXpmAllocTmpBuffer _ANSI_ARGS_(( - PixmapMaster * masterPtr, - PixmapInstance * instancePtr, - XImage ** imagePtr, XImage ** maskPtr)); -EXTERN void TixpXpmFreeTmpBuffer _ANSI_ARGS_(( - PixmapMaster * masterPtr, - PixmapInstance * instancePtr, - XImage * image, XImage * mask)); -EXTERN void TixpXpmSetPixel _ANSI_ARGS_(( - PixmapInstance * instancePtr, XImage * image, - XImage * mask, int x, int y, XColor * colorPtr, - int * isTranspPtr)); -EXTERN void TixpXpmRealizePixmap _ANSI_ARGS_(( - PixmapMaster * masterPtr, - PixmapInstance * instancePtr, - XImage * image, XImage * mask, int isTransp)); -EXTERN void TixpXpmFreeInstanceData _ANSI_ARGS_(( - PixmapInstance *instancePtr, int delete, - Display *display)); -EXTERN void TixpXpmDisplay _ANSI_ARGS_((ClientData clientData, - Display *display, Drawable drawable, - int imageX, int imageY, int width, int height, - int drawableX, int drawableY)); - -#endif diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm.m b/Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm.m deleted file mode 100644 index 2e6845bef96..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm.m +++ /dev/null @@ -1,34 +0,0 @@ -#ifndef _TIXIMGXPM_VM -#define _TIXIMGXPM_VM -#include "tixImgXpm_f.h" -#ifndef NO_VTABLES -#ifndef TixpInitPixmapInstance -# define TixpInitPixmapInstance (*TiximgxpmVptr->V_TixpInitPixmapInstance) -#endif - -#ifndef TixpXpmAllocTmpBuffer -# define TixpXpmAllocTmpBuffer (*TiximgxpmVptr->V_TixpXpmAllocTmpBuffer) -#endif - -#ifndef TixpXpmDisplay -# define TixpXpmDisplay (*TiximgxpmVptr->V_TixpXpmDisplay) -#endif - -#ifndef TixpXpmFreeInstanceData -# define TixpXpmFreeInstanceData (*TiximgxpmVptr->V_TixpXpmFreeInstanceData) -#endif - -#ifndef TixpXpmFreeTmpBuffer -# define TixpXpmFreeTmpBuffer (*TiximgxpmVptr->V_TixpXpmFreeTmpBuffer) -#endif - -#ifndef TixpXpmRealizePixmap -# define TixpXpmRealizePixmap (*TiximgxpmVptr->V_TixpXpmRealizePixmap) -#endif - -#ifndef TixpXpmSetPixel -# define TixpXpmSetPixel (*TiximgxpmVptr->V_TixpXpmSetPixel) -#endif - -#endif /* NO_VTABLES */ -#endif /* _TIXIMGXPM_VM */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm.t b/Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm.t deleted file mode 100644 index b52ad2cf398..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm.t +++ /dev/null @@ -1,49 +0,0 @@ -#ifdef _TIXIMGXPM
-#ifndef TixpInitPixmapInstance
-VFUNC(void,TixpInitPixmapInstance,V_TixpInitPixmapInstance,_ANSI_ARGS_((
- PixmapMaster *masterPtr,
- PixmapInstance *instancePtr)))
-#endif /* #ifndef TixpInitPixmapInstance */
-
-#ifndef TixpXpmAllocTmpBuffer
-VFUNC(void,TixpXpmAllocTmpBuffer,V_TixpXpmAllocTmpBuffer,_ANSI_ARGS_((
- PixmapMaster * masterPtr,
- PixmapInstance * instancePtr,
- XImage ** imagePtr, XImage ** maskPtr)))
-#endif /* #ifndef TixpXpmAllocTmpBuffer */
-
-#ifndef TixpXpmDisplay
-VFUNC(void,TixpXpmDisplay,V_TixpXpmDisplay,_ANSI_ARGS_((ClientData clientData,
- Display *display, Drawable drawable,
- int imageX, int imageY, int width, int height,
- int drawableX, int drawableY)))
-#endif /* #ifndef TixpXpmDisplay */
-
-#ifndef TixpXpmFreeInstanceData
-VFUNC(void,TixpXpmFreeInstanceData,V_TixpXpmFreeInstanceData,_ANSI_ARGS_((
- PixmapInstance *instancePtr, int delete,
- Display *display)))
-#endif /* #ifndef TixpXpmFreeInstanceData */
-
-#ifndef TixpXpmFreeTmpBuffer
-VFUNC(void,TixpXpmFreeTmpBuffer,V_TixpXpmFreeTmpBuffer,_ANSI_ARGS_((
- PixmapMaster * masterPtr,
- PixmapInstance * instancePtr,
- XImage * image, XImage * mask)))
-#endif /* #ifndef TixpXpmFreeTmpBuffer */
-
-#ifndef TixpXpmRealizePixmap
-VFUNC(void,TixpXpmRealizePixmap,V_TixpXpmRealizePixmap,_ANSI_ARGS_((
- PixmapMaster * masterPtr,
- PixmapInstance * instancePtr,
- XImage * image, XImage * mask, int isTransp)))
-#endif /* #ifndef TixpXpmRealizePixmap */
-
-#ifndef TixpXpmSetPixel
-VFUNC(void,TixpXpmSetPixel,V_TixpXpmSetPixel,_ANSI_ARGS_((
- PixmapInstance * instancePtr, XImage * image,
- XImage * mask, int x, int y, XColor * colorPtr,
- int * isTranspPtr)))
-#endif /* #ifndef TixpXpmSetPixel */
-
-#endif /* _TIXIMGXPM */
diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm_f.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm_f.h deleted file mode 100644 index 909c5bd7737..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm_f.h +++ /dev/null @@ -1,14 +0,0 @@ -#ifndef TIXIMGXPM_VT -#define TIXIMGXPM_VT -typedef struct TiximgxpmVtab -{ - unsigned (*tabSize)(void); -#define VFUNC(type,name,mem,args) type (*mem) args; -#define VVAR(type,name,mem) type (*mem); -#include "tixImgXpm.t" -#undef VFUNC -#undef VVAR -} TiximgxpmVtab; -extern TiximgxpmVtab *TiximgxpmVptr; -extern TiximgxpmVtab *TiximgxpmVGet(void); -#endif /* TIXIMGXPM_VT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tixInt.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tixInt.h deleted file mode 100644 index d1dad2b88e6..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tixInt.h +++ /dev/null @@ -1,886 +0,0 @@ - -/* $Id: tixInt.h,v 1.1.1.1 2000/05/17 11:08:42 idiscovery Exp $ */ - -/* - * tixInt.h -- - * - * Defines internal data types and functions used by the Tix library. - * - * 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. - * - */ -#ifndef _TIX -#include "tix.h" -#endif -#ifndef _TIXINT -#define _TIXINT -#define _TIX_INT_H_ - -/*---------------------------------------------------------------------- - * - * Tix Display Item Types - * - *---------------------------------------------------------------------- - */ - -#define TIX_DITEM_NONE 0 -#define TIX_DITEM_TEXT 1 -#define TIX_DITEM_IMAGETEXT 2 -#define TIX_DITEM_WINDOW 3 -#define TIX_DITEM_IMAGE 4 - -/* - * The flags for drawing DItems - */ - -#define TIX_DITEM_NORMAL_BG (0x1 << 0) -#define TIX_DITEM_ACTIVE_BG (0x1 << 1) -#define TIX_DITEM_SELECTED_BG (0x1 << 2) -#define TIX_DITEM_DISABLED_BG (0x1 << 3) -#define TIX_DITEM_NORMAL_FG (0x1 << 4) -#define TIX_DITEM_ACTIVE_FG (0x1 << 5) -#define TIX_DITEM_SELECTED_FG (0x1 << 6) -#define TIX_DITEM_DISABLED_FG (0x1 << 7) -#define TIX_DITEM_FONT (0x1 << 8) -#define TIX_DITEM_PADX (0x1 << 9) -#define TIX_DITEM_PADY (0x1 << 10) - -#define TIX_DONT_CALL_CONFIG TK_CONFIG_USER_BIT - -/* - * These values are used ONLY for indexing the color array in - * Tix_StyleTemplate - */ - -#define TIX_DITEM_NORMAL 0 -#define TIX_DITEM_ACTIVE 1 -#define TIX_DITEM_SELECTED 2 -#define TIX_DITEM_DISABLED 3 - -/* - * Flags for MultiInfo - */ -#define TIX_CONFIG_INFO 1 -#define TIX_CONFIG_VALUE 2 - -typedef union Tix_DItem Tix_DItem; -typedef union Tix_DItemStyle Tix_DItemStyle; -typedef struct Tix_DItemInfo Tix_DItemInfo; -typedef struct Tix_DispData Tix_DispData; -typedef struct Tix_StyleTemplate Tix_StyleTemplate; - -typedef void Tix_DItemCalculateSizeProc _ANSI_ARGS_(( - Tix_DItem * iPtr)); -typedef char * Tix_DItemComponentProc _ANSI_ARGS_(( - Tix_DItem * iPtr, int x, int y)); -typedef int Tix_DItemConfigureProc _ANSI_ARGS_(( - Tix_DItem * iPtr, int argc, Tcl_Obj *CONST *objv, - int flags)); -typedef Tix_DItem * Tix_DItemCreateProc _ANSI_ARGS_(( - Tix_DispData * ddPtr, - Tix_DItemInfo * diTypePtr)); -typedef void Tix_DItemDisplayProc _ANSI_ARGS_(( - Pixmap pixmap, GC gc, Tix_DItem * iPtr, - int x, int y, int width, int height, int flag)); -typedef void Tix_DItemFreeProc _ANSI_ARGS_((Tix_DItem * diPtr)); -typedef void Tix_DItemSizeChangedProc _ANSI_ARGS_(( - Tix_DItem * iPtr)); - -typedef void Tix_DItemStyleChangedProc _ANSI_ARGS_(( - Tix_DItem * iPtr)); -typedef void Tix_DItemLostStyleProc _ANSI_ARGS_(( - Tix_DItem * iPtr)); -typedef int Tix_DItemStyleConfigureProc _ANSI_ARGS_(( - Tix_DItemStyle* style, int argc, Tcl_Obj *CONST *objv, - int flags)); -typedef Tix_DItemStyle* Tix_DItemStyleCreateProc _ANSI_ARGS_(( - Tcl_Interp * interp, Tk_Window tkwin, - Tix_DItemInfo * diTypePtr, char * name)); -typedef void Tix_DItemStyleFreeProc _ANSI_ARGS_(( - Tix_DItemStyle* style)); -typedef void Tix_DItemStyleSetTemplateProc _ANSI_ARGS_(( - Tix_DItemStyle* style, - Tix_StyleTemplate * tmplPtr)); - -/* - * These are debugging routines - */ - -typedef int Tix_DItemRefCountProc _ANSI_ARGS_(()); -typedef int Tix_DItemStyleRefCountProc _ANSI_ARGS_(()); - -/*---------------------------------------------------------------------- - * Tix_DItemInfo -- - * - * This structure is used to register a new display item (call - * Tix_AddDItemType). - *---------------------------------------------------------------------- - */ -struct Tix_DItemInfo { - char * name; - int type; - - /* - * These procedures communicate with the items - */ - Tix_DItemCreateProc * createProc; - Tix_DItemConfigureProc * configureProc; - Tix_DItemCalculateSizeProc * calculateSizeProc; - Tix_DItemComponentProc * componentProc; - Tix_DItemDisplayProc * displayProc; - Tix_DItemFreeProc * freeProc; - Tix_DItemStyleChangedProc *styleChangedProc; - Tix_DItemLostStyleProc * lostStyleProc; - - /* - * These procedures communicate with the styles - */ - Tix_DItemStyleCreateProc * styleCreateProc; - Tix_DItemStyleConfigureProc * styleConfigureProc; - Tix_DItemStyleFreeProc * styleFreeProc; - Tix_DItemStyleSetTemplateProc * styleSetTemplateProc; - - Tk_ConfigSpec * itemConfigSpecs; - Tk_ConfigSpec * styleConfigSpecs; - struct Tix_DItemInfo * next; -}; - -/*---------------------------------------------------------------------- - * Tix_DispData -- - * - * Information needed by the display types to display the item in - * an X drawable. - *---------------------------------------------------------------------- - */ -struct Tix_DispData { - Display * display; - Tcl_Interp * interp; - Tk_Window tkwin; - Tix_DItemSizeChangedProc * sizeChangedProc; -}; - -/*---------------------------------------------------------------------- - * Tix_StyleTemplate -- - * - * A StyleTemplate is used to set the values of the default styles - * associated with a widget - *---------------------------------------------------------------------- - */ -struct Tix_StyleTemplate { - int flags; /* determines which field is valid */ - - struct { - XColor * bg; - XColor * fg; - } colors[4]; /* colors for the four basic modes*/ - - int pad[2]; -#if 0 - /* %bordercolor not used */ - XColor * borderColor; - Tix_Relief relief; - int borderWidth; -#endif - TixFont font; -}; - -/*---------------------------------------------------------------------- - * - * - * Display Item Types - * - * - *---------------------------------------------------------------------- - */ - -/* - * Display Styles - */ -typedef struct TixBaseStyle TixBaseStyle; -typedef struct TixImageTextStyle TixImageTextStyle; -typedef struct TixImageStyle TixImageStyle; -typedef struct TixTextStyle TixTextStyle; -typedef struct TixWindowStyle TixWindowStyle; - -typedef struct TixBaseItem TixBaseItem; -typedef struct TixColorStyle TixColorStyle; -typedef struct TixImageTextItem TixImageTextItem; -typedef struct TixImageItem TixImageItem; -typedef struct TixTextItem TixTextItem; -typedef struct TixWindowItem TixWindowItem; - -/*---------------------------------------------------------------------- - * TixBaseItem -- - * - * This is the abstract base class for all display items. All - * display items should have the data members defined in the - * BaseItem structure - *---------------------------------------------------------------------- - */ -#define ITEM_COMMON_MEMBERS \ - Tix_DItemInfo * diTypePtr; \ - Tix_DispData * ddPtr; \ - ClientData clientData; \ - int size[2] /* Size of this element */ \ - -struct TixBaseItem { - ITEM_COMMON_MEMBERS; - TixBaseStyle * stylePtr; -}; - -/*---------------------------------------------------------------------- - * TixBaseStyle -- - * - * This is the abstract base class for all display styles. All - * display items should have the data members defined in the - * BaseStyle structure. The common members are initialized by - * tixDiStyle.c - * - *---------------------------------------------------------------------- - */ - -#define STYLE_COMMON_MEMBERS \ - Tcl_Command styleCmd; /* Token for style's command. */ \ - Tcl_HashTable items; /* Ditems affected by this style */ \ - int refCount; /* Number of ditems affected by this style */\ - int flags; /* Various attributes */ \ - Tcl_Interp *interp; /* Interpreter associated with style. */ \ - Tk_Window tkwin; /* Window associated with this style */ \ - Tix_DItemInfo * diTypePtr; \ - Tk_Anchor anchor; /* Anchor information */ \ - char * name; /* Name of this style */ \ - int pad[2] /* paddings */ - - -#if 0 - Tix_Relief relief - /* %bordercolor not used */ - int borderWidth; - XColor * borderColor; /* color of the border when it is displayed - * in "flat border" mode - */ - GC borderGC -#endif - -#define STYLE_COLOR_MEMBERS \ - struct { \ - XColor * bg; \ - XColor * fg; \ - GC foreGC; \ - GC backGC; \ - } colors[4] /* colors and GC's for the four basic modes*/ - -struct TixBaseStyle { - STYLE_COMMON_MEMBERS; -}; - -#define TIX_STYLE_DELETED 1 -#define TIX_STYLE_DEFAULT 2 - -/* - * Abstract type for all styles that have a color element - */ -struct TixColorStyle { - STYLE_COMMON_MEMBERS; - STYLE_COLOR_MEMBERS; -}; - -/*---------------------------------------------------------------------- - * ImageTextItem -- - * - * Display an image together with a text string - *---------------------------------------------------------------------- - */ -struct TixImageTextItem { - ITEM_COMMON_MEMBERS; - - TixImageTextStyle *stylePtr; - /*-------------------------*/ - /* Bitmap */ - /*-------------------------*/ - Pixmap bitmap; - int bitmapW, bitmapH; /* Size of bitmap */ - - /*-------------------------*/ - /* Image */ - /*-------------------------*/ - char *imageString; /* Name of image to display (malloc'ed), or - * NULL. If non-NULL, bitmap, text, and - * textVarName are ignored. */ - Tk_Image image; - int imageW, imageH; /* Size of image */ - - /*-------------------------*/ - /* Text */ - /*-------------------------*/ - - Tcl_Obj * text; /* Show descriptive text */ - size_t numChars; /* Size of text */ - int textW, textH; - int wrapLength; - Tk_Justify justify; /* Justification to use for multi-line text. */ - int underline; /* Index of character to underline. < 0 means - * don't underline anything. */ - - int showImage, showText; -}; - -struct TixImageTextStyle { - STYLE_COMMON_MEMBERS; - STYLE_COLOR_MEMBERS; - int wrapLength; - Tk_Justify justify; /* Justification to use for multi-line text. */ - TixFont font; - int gap; /* Gap between text and image */ - Tk_Anchor textanchor; /* Text anchor information */ -}; - -/*---------------------------------------------------------------------- - * ImageItem -- - * - * Displays an image - *---------------------------------------------------------------------- - */ -struct TixImageItem { - ITEM_COMMON_MEMBERS; - - TixImageStyle *stylePtr; - - /*-------------------------*/ - /* Image */ - /*-------------------------*/ - char *imageString; /* Name of image to display (malloc'ed), or - * NULL. If non-NULL, bitmap, text, and - * textVarName are ignored. */ - Tk_Image image; - int imageW, imageH; /* Size of image */ -}; - -struct TixImageStyle { - STYLE_COMMON_MEMBERS; - STYLE_COLOR_MEMBERS; -}; -/*---------------------------------------------------------------------- - * TextItem -- - * - * Displays a text string. - *---------------------------------------------------------------------- - */ -struct TixTextItem { - ITEM_COMMON_MEMBERS; - - TixTextStyle *stylePtr; - /*-------------------------*/ - /* Text */ - /*-------------------------*/ - - Tcl_Obj * text; /* Show descriptive text */ - size_t numChars; /* Size of text */ - int textW, textH; - int underline; /* Index of character to underline. < 0 means - * don't underline anything. */ -}; - -struct TixTextStyle { - STYLE_COMMON_MEMBERS; - STYLE_COLOR_MEMBERS; - int wrapLength; - Tk_Justify justify; /* Justification to use for multi-line text. */ - TixFont font; -}; - -/*---------------------------------------------------------------------- - * WindowItem -- - * - * Displays a window. - *---------------------------------------------------------------------- - */ -struct TixWindowItem { - ITEM_COMMON_MEMBERS; - TixWindowStyle *stylePtr; - Tk_Window tkwin; - struct TixWindowItem * next; - int serial; -}; - -struct TixWindowStyle { - STYLE_COMMON_MEMBERS; -}; - -/*---------------------------------------------------------------------- - * Tix_DItem and Tix_DItemStyle -- - * - * These unions just make it easy to address the internals of the - * structures of the display items and styles. If you create a new - * display item, you will need to do you type casting yourself. - *---------------------------------------------------------------------- - */ -union Tix_DItem { - TixBaseItem base; - TixImageTextItem imagetext; - TixTextItem text; - TixWindowItem window; - TixImageItem image; -}; - -union Tix_DItemStyle { - TixBaseStyle base; - TixColorStyle color; - TixImageTextStyle imagetext; - TixTextStyle text; - TixWindowStyle window; - TixImageStyle image; -}; - -#define Tix_DItemType(x) ((x)->base.diTypePtr->type) -#define Tix_DItemTypeName(x) ((x)->base.diTypePtr->name) -#define Tix_DItemWidth(x) ((x)->base.size[0]) -#define Tix_DItemHeight(x) ((x)->base.size[1]) -#define Tix_DItemConfigSpecs(x) ((x)->base.diTypePtr->itemConfigSpecs) -#define Tix_DItemPadX(x) ((x)->base.stylePtr->pad[0]) -#define Tix_DItemPadY(x) ((x)->base.stylePtr->pad[1]) - -#define TIX_WIDTH 0 -#define TIX_HEIGHT 1 - -/*---------------------------------------------------------------------- - * Tix_ArgumentList -- - * - * This data structure is used to split command arguments for - * the display item types - *---------------------------------------------------------------------- - */ -#define FIXED_SIZE 4 -typedef struct { - int argc; - Tcl_Obj **objv; -} Tix_Argument; - -typedef struct { - Tix_Argument * arg; - int numLists; - Tix_Argument preAlloc[FIXED_SIZE]; -} Tix_ArgumentList; - -/*---------------------------------------------------------------------- - * Tix_ScrollInfo -- - * - * This data structure encapsulates all the necessary operations - * for scrolling widgets - *---------------------------------------------------------------------- - */ -#define TIX_SCROLL_INT 1 -#define TIX_SCROLL_DOUBLE 2 - -/* abstract type */ -typedef struct Tix_ScrollInfo { - int type; /* TIX_SCROLL_INT or TIX_SCROLL_DOUBLE */ - LangCallback *command; - /* place holder for actual space - double must be mentioned - to force alignment for too-clever-by-half compilers - */ - union { - int iscroll[4]; - double dscroll[4]; - } info; -} Tix_ScrollInfo; - -typedef struct Tix_IntScrollInfo { - int type; /* TIX_SCROLL_INT */ - LangCallback *command; - - int total; /* total size (width or height) of the widget*/ - int window; /* visible size */ - int offset; /* The top/left side of the scrolled widget */ - int unit; /* How much should we scroll when the user - * press the arrow on a scrollbar? */ - -} Tix_IntScrollInfo; - -typedef struct Tix_DoubleScrollInfo { - int type; /* TIX_SCROLL_DOUBLE */ - LangCallback *command; - - double total; /* total size (width or height) of the widget*/ - double window; /* visible size */ - double offset; /* The top/left side of the scrolled widget */ - double unit; /* How much should we scroll when the user - * press the arrow on a scrollbar? */ -} Tix_DoubleScrollInfo; - -/*---------------------------------------------------------------------- - * - * Global variables - * - * Should be used only in the Tix library. Some systems don't support - * exporting of global variables from shared libraries. - * - *---------------------------------------------------------------------- - */ -EXTERN Tk_Uid tixNormalUid; -EXTERN Tk_Uid tixDisabledUid; -EXTERN Tk_Uid tixCellUid; -EXTERN Tk_Uid tixRowUid; -EXTERN Tk_Uid tixColumnUid; - -#define FLAG_READONLY 0 -#define FLAG_STATIC 1 -#define FLAG_FORCECALL 2 - -/*---------------------------------------------------------------------- - * - * - * MEGA-WIDGET CONFIG HANDLING - * - * - *---------------------------------------------------------------------- - */ -typedef struct _TixConfigSpec TixConfigSpec; -typedef struct _TixConfigAlias TixConfigAlias; -typedef struct _TixClassRecord TixClassRecord; - -struct _TixConfigSpec { - unsigned int isAlias : 1; - unsigned int readOnly : 1; - unsigned int isStatic : 1; - unsigned int forceCall : 1; - - char * argvName; - char * defValue; - - char * dbName; /* The additional parts of a */ - char * dbClass; /* TixWidgetConfigSpec structure */ - - char *verifyCmd; - - TixConfigSpec * realPtr; /* valid only if this option is an alias */ -}; - -/* - * Controls the access of root widget and subwidget commands and options - */ -typedef struct _Tix_ExportSpec { - Tix_LinkList exportCmds; - Tix_LinkList restrictCmds; - Tix_LinkList exportOpts; - Tix_LinkList restrictOpts; -} Tix_ExportSpec; - -typedef struct _Tix_SubWidgetSpec { - struct _Tix_SubWidgetSpec * next; - char * name; - Tix_ExportSpec export; -} Tix_SubWidgetSpec; - -typedef struct _Tix_StringLink { - struct _Tix_StringLink *next; - char * string; -} Tix_StringLink; - -typedef struct _Tix_SubwidgetDef { - struct _TixSubwidgetDef * next; - char * spec; - char * value; -} Tix_SubwidgetDef; - -typedef struct _TixClassParseStruct { - char * alias; - char * ClassName; - char * configSpec; - char * def; - char * flag; - char * forceCall; - char * method; - char * readOnly; - char * isStatic; - char * superClass; - char * subWidget; - char * isVirtual; - - int optArgc; - char ** optArgv; -} TixClassParseStruct; - -struct _TixClassRecord { - TixClassRecord * next; /* Chains to the next class record in - * a superClass's unInitSubCls list */ - TixClassRecord * superClass; /* The superclass of this class. Is - * NULL if this class does not have - * a superclass. */ - unsigned int isWidget; /* TRUE iff this class is created by - * the "tixWidgetClass" command */ - char * className; /* Instiantiation command */ - char * ClassName; /* used in TK option database */ - - int nSpecs; - TixConfigSpec ** specs; - int nMethods; - char ** methods; - Tk_Window mainWindow; /* This variable is essentially - * a cached variable so that - * we can advoid calling - * Tk_MainWindow() */ - int isVirtual; /* is this a virtual base class - * (shouldn't be instantiated)*/ - TixClassParseStruct*parsePtr; /* Information supplied by the - * tixClass or tixWidgetClass - * commands */ - Tix_LinkList unInitSubCls; /* The subclasses that have not been - * initialized. */ - int initialized; /* Is this class initialized? A class - * is not initialized if it has been - * defined but some its superclass - * is not initialized. - */ - Tix_LinkList subWDefs; /* the -defaults option */ -#if USE_ACCESS_CONTROL - Tix_LinkList subWidgets; - Tix_ExportSpec exportSpec; /* controls the export status - * of the commands and options - * of the root widget */ -#endif -}; - -typedef struct _TixInterpState { - char * result; - char * errorInfo; - char * errorCode; -} TixInterpState; - -/*---------------------------------------------------------------------- - * - * Internal procedures - * - *---------------------------------------------------------------------- - */ - -EXTERN int Tix_CallConfigMethod _ANSI_ARGS_(( - Tcl_Interp *interp, TixClassRecord *cPtr, - char * widRec, TixConfigSpec *spec, char * value)); -EXTERN int Tix_CallMethod _ANSI_ARGS_((Tcl_Interp *interp, - char *context, char *widRec, char *method, - int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tix_ChangeOneOption _ANSI_ARGS_(( - Tcl_Interp *interp, TixClassRecord *cPtr, - char * widRec, TixConfigSpec *spec, char * value, - int isDefault, int isInit)); -EXTERN int Tix_ChangeOptions _ANSI_ARGS_(( - Tcl_Interp *interp, TixClassRecord *cPtr, - char * widRec, int argc, Tcl_Obj *CONST *objv)); -EXTERN TixConfigSpec * Tix_FindConfigSpecByName _ANSI_ARGS_(( - Tcl_Interp * interp, - TixClassRecord * cPtr, char * name)); -EXTERN char * Tix_FindMethod _ANSI_ARGS_((Tcl_Interp *interp, - char *context, char *method)); -EXTERN char * Tix_FindPublicMethod _ANSI_ARGS_(( - Tcl_Interp *interp, TixClassRecord * cPtr, - char * method)); -EXTERN int Tix_GetChars _ANSI_ARGS_((Tcl_Interp *interp, - char *string, double *doublePtr)); -EXTERN char * Tix_GetConfigSpecFullName _ANSI_ARGS_((char *clasRec, - char *flag)); -EXTERN char * Tix_GetContext _ANSI_ARGS_(( - Tcl_Interp * interp, char * widRec)); -EXTERN char * Tix_GetMethodFullName _ANSI_ARGS_((char *context, - char *method)); -EXTERN void Tix_GetPublicMethods _ANSI_ARGS_((Tcl_Interp *interp, - char *widRec, int *numMethods, - char *** validMethods)); -EXTERN int Tix_GetWidgetOption _ANSI_ARGS_(( - Tcl_Interp *interp, Tk_Window tkwin, - char *argvName, char *dbName, char *dbClass, - char *defValue, int argc, Tcl_Obj *CONST *objv, - int type, char *ptr)); -EXTERN int Tix_GetVar _ANSI_ARGS_(( - Tcl_Interp *interp, TixClassRecord *cPtr, - char * widRec, char * flag)); -EXTERN int Tix_QueryAllOptions _ANSI_ARGS_(( - Tcl_Interp *interp, TixClassRecord * cPtr, - char *widRec)); -EXTERN int Tix_QueryOneOption _ANSI_ARGS_(( - Tcl_Interp *interp, TixClassRecord *cPtr, - char *widRec, char *flag)); -EXTERN int Tix_SuperClass _ANSI_ARGS_((Tcl_Interp *interp, - char *widClass, char ** superClass_ret)); -EXTERN int Tix_UnknownPublicMethodError _ANSI_ARGS_(( - Tcl_Interp *interp, TixClassRecord * cPtr, - char * widRec, char * method)); -EXTERN int Tix_ValueMissingError _ANSI_ARGS_((Tcl_Interp *interp, - char *spec)); -EXTERN void Tix_AddDItemType _ANSI_ARGS_(( - Tix_DItemInfo * diTypePtr)); -EXTERN int Tix_ConfigureInfo2 _ANSI_ARGS_(( - Tcl_Interp *interp, Tk_Window tkwin, - char *entRec, Tk_ConfigSpec *entConfigSpecs, - Tix_DItem * iPtr, char *argvName, int flags)); -EXTERN int Tix_ConfigureValue2 _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, char * entRec, - Tk_ConfigSpec *entConfigSpecs, Tix_DItem * iPtr, - char *argvName, int flags)); -EXTERN void Tix_DItemCalculateSize _ANSI_ARGS_(( - Tix_DItem * iPtr)); -EXTERN char * Tix_DItemComponent _ANSI_ARGS_((Tix_DItem * diPtr, - int x, int y)); -EXTERN int Tix_DItemConfigure _ANSI_ARGS_(( - Tix_DItem * diPtr, int argc, - Tcl_Obj *CONST *objv, int flags)); -EXTERN Tix_DItem * Tix_DItemCreate _ANSI_ARGS_((Tix_DispData * ddPtr, - char * type)); -EXTERN void Tix_DItemDrawBackground _ANSI_ARGS_(( - Pixmap pixmap, GC gc, Tix_DItem * iPtr, - int x, int y, int width, int height, int flags)); -EXTERN void Tix_DItemDisplay _ANSI_ARGS_(( - Pixmap pixmap, GC gc, Tix_DItem * iPtr, - int x, int y, int width, int height, int flag)); -EXTERN void Tix_DItemFree _ANSI_ARGS_(( - Tix_DItem * iPtr)); -EXTERN void TixDItemStyleChanged _ANSI_ARGS_(( - Tix_DItemInfo * diTypePtr, - Tix_DItemStyle * stylePtr)); -EXTERN void TixDItemStyleFree _ANSI_ARGS_((Tix_DItem *iPtr, - Tix_DItemStyle * stylePtr)); -EXTERN void TixDItemGetAnchor _ANSI_ARGS_((Tk_Anchor anchor, - int x, int y, int cav_w, int cav_h, - int width, int height, int * x_ret, int * y_ret)); -EXTERN void Tix_FreeArgumentList _ANSI_ARGS_(( - Tix_ArgumentList *argListPtr)); -EXTERN void TixGetColorDItemGC _ANSI_ARGS_(( - Tix_DItem * iPtr, GC * backGC_ret, - GC * foreGC_ret, int flags)); -EXTERN Tix_DItemStyle* TixGetDefaultDItemStyle _ANSI_ARGS_(( - Tix_DispData * ddPtr, Tix_DItemInfo * diTypePtr, - Tix_DItem *iPtr, Tix_DItemStyle* oldStylePtr)); -EXTERN Tix_DItemInfo * Tix_GetDItemType _ANSI_ARGS_(( - Tcl_Interp * interp, char *type)); -EXTERN void Tix_GetScrollFractions _ANSI_ARGS_(( - Tix_ScrollInfo * siPtr, - double * first_ret, double * last_ret)); -EXTERN void Tix_InitScrollInfo _ANSI_ARGS_(( - Tix_ScrollInfo * siPtr, int type)); -EXTERN int Tix_MultiConfigureInfo _ANSI_ARGS_(( - Tcl_Interp * interp, - Tk_Window tkwin, Tk_ConfigSpec **specsList, - int numLists, char **widgRecList, char *argvName, - int flags, int request)); -EXTERN void Tix_SetDefaultStyleTemplate _ANSI_ARGS_(( - Tk_Window tkwin, Tix_StyleTemplate * tmplPtr)); -EXTERN int Tix_SetScrollBarView _ANSI_ARGS_(( - Tcl_Interp *interp, Tix_ScrollInfo * siPtr, - int argc, Tcl_Obj *CONST *objv, int compat)); -EXTERN void Tix_SetWindowItemSerial _ANSI_ARGS_(( - Tix_LinkList * lPtr, Tix_DItem * iPtr, - int serial)); -EXTERN int Tix_SplitConfig _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, Tk_ConfigSpec ** specsList, - int numLists, int argc, Tcl_Obj *CONST *objv, - Tix_ArgumentList * argListPtr)); -EXTERN void Tix_UnmapInvisibleWindowItems _ANSI_ARGS_(( - Tix_LinkList * lPtr, int serial)); -EXTERN void Tix_UpdateScrollBar _ANSI_ARGS_(( - Tcl_Interp *interp, Tix_ScrollInfo * siPtr)); -EXTERN int Tix_WidgetConfigure2 _ANSI_ARGS_(( - Tcl_Interp *interp, Tk_Window tkwin, char * entRec, - Tk_ConfigSpec *entConfigSpecs, - Tix_DItem * iPtr, int argc, Tcl_Obj *CONST *objv, - int flags, int forced, int * sizeChanged_ret)); -EXTERN void Tix_WindowItemListRemove _ANSI_ARGS_(( - Tix_LinkList * lPtr, Tix_DItem * iPtr)); - -typedef struct _TixpSubRegion TixpSubRegion; - -struct _TixpSubRegion { - Pixmap pixmap; - int origX, origY; - int x, y; - int width, height; -}; - -/* - * Functions that should be used by Tix only. Functions prefixed by "Tix" - * are generic functions that has one implementation for all platforms. - * Functions prefixed with "Tixp" requires one implementation on each - * platform. - */ - -extern int TixInitSam _ANSI_ARGS_((Tcl_Interp * interp)); -extern int TixLoadLibrary _ANSI_ARGS_((Tcl_Interp * interp)); -extern void TixRestoreInterpState _ANSI_ARGS_(( - Tcl_Interp * interp, TixInterpState * statePtr)); -extern void TixSaveInterpState _ANSI_ARGS_((Tcl_Interp * interp, - TixInterpState * statePtr)); - -extern void TixpDrawAnchorLines _ANSI_ARGS_((Display *display, - Drawable drawable, GC gc, int x, int y, - int w, int h)); -extern void TixpDrawTmpLine _ANSI_ARGS_((int x1, int y1, - int x2, int y2, Tk_Window tkwin)); -extern void TixpEndSubRegionDraw _ANSI_ARGS_((Display *display, - Drawable drawable, GC gc, - TixpSubRegion * subRegPtr)); -extern int TixpSetWindowParent _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, Tk_Window newParent, - int parentId)); -extern void TixpStartSubRegionDraw _ANSI_ARGS_((Tix_DispData *ddPtr, - Drawable drawable, GC gc, - TixpSubRegion * subRegPtr, int origX, - int origY, int x, int y, int width, int height, - int needWidth, int needHeight)); -extern void TixpSubRegDisplayText _ANSI_ARGS_((Display *display, - Drawable drawable, GC gc, - TixpSubRegion * subRegPtr, - TixFont font, char *string, - int numChars, int x, int y, int length, - Tk_Justify justify, int underline)); -extern void TixpSubRegDrawBitmap _ANSI_ARGS_((Display *display, - Drawable drawable, GC gc, - TixpSubRegion * subRegPtr, Pixmap bitmap, - int src_x, int src_y, int width, int height, - int dest_x, int dest_y, unsigned long plane)); -extern void TixpSubRegDrawImage _ANSI_ARGS_(( - TixpSubRegion * subRegPtr, Tk_Image image, - int imageX, int imageY, int width, int height, - Drawable drawable, int drawableX, int drawableY)); -extern void TixpSubRegFillRectangle _ANSI_ARGS_((Display *display, - Drawable drawable, GC gc, - TixpSubRegion * subRegPtr, int x, int y, - int width, int height)); - -/* These functions are also, and originaly declared in tixPort.h but - * that would mean even more Vtables - */ - -EXTERN void TixComputeTextGeometry _ANSI_ARGS_(( - TixFont fontStructPtr, char *string, - int numChars, int wrapLength, int *widthPtr, - int *heightPtr)); -EXTERN void TixDisplayText _ANSI_ARGS_((Display *display, - Drawable drawable, TixFont font, - char *string, int numChars, int x, int y, - int length, Tk_Justify justify, int underline, - GC gc)); -EXTERN Tcl_HashTable * TixGetHashTable _ANSI_ARGS_((Tcl_Interp * interp, - char * name, Tcl_InterpDeleteProc *deleteProc)); - -/* - * built-in strdup is not compatible with the tcl memory allocator. We - * replace all strdup calls with tixStrDup. - */ -#define NO_STRDUP 1 -extern char *tixStrDup _ANSI_ARGS_(( CONST char * s)); - -/* - * Console Stuff - * (these are declared with the EXTERN in win/winMain.c but without it - * in generic/tkConsole.c) - */ -EXTERN void TkConsoleCreate _ANSI_ARGS_((void)); -EXTERN int TkConsoleInit _ANSI_ARGS_((Tcl_Interp *interp)); - -#define TixConsoleCreate(x) TkConsoleCreate() -#define TixConsoleInit(x) TkConsoleInit(x) - -#endif /* _TIXINT */ - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tixInt.m b/Master/tlpkg/tlperl/lib/Tk/pTk/tixInt.m deleted file mode 100644 index 3c953cbf032..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tixInt.m +++ /dev/null @@ -1,171 +0,0 @@ -#ifndef _TIXINT_VM -#define _TIXINT_VM -#include "tixInt_f.h" -#ifndef NO_VTABLES -#define tixCellUid (*TixintVptr->V_tixCellUid) -#define tixColumnUid (*TixintVptr->V_tixColumnUid) -#define tixDisabledUid (*TixintVptr->V_tixDisabledUid) -#define tixNormalUid (*TixintVptr->V_tixNormalUid) -#define tixRowUid (*TixintVptr->V_tixRowUid) -#ifndef TixComputeTextGeometry -# define TixComputeTextGeometry (*TixintVptr->V_TixComputeTextGeometry) -#endif - -#ifndef TixDItemGetAnchor -# define TixDItemGetAnchor (*TixintVptr->V_TixDItemGetAnchor) -#endif - -#ifndef TixDItemStyleChanged -# define TixDItemStyleChanged (*TixintVptr->V_TixDItemStyleChanged) -#endif - -#ifndef TixDItemStyleFree -# define TixDItemStyleFree (*TixintVptr->V_TixDItemStyleFree) -#endif - -#ifndef TixDisplayText -# define TixDisplayText (*TixintVptr->V_TixDisplayText) -#endif - -#ifndef TixGetColorDItemGC -# define TixGetColorDItemGC (*TixintVptr->V_TixGetColorDItemGC) -#endif - -#ifndef TixGetDefaultDItemStyle -# define TixGetDefaultDItemStyle (*TixintVptr->V_TixGetDefaultDItemStyle) -#endif - -#ifndef TixGetHashTable -# define TixGetHashTable (*TixintVptr->V_TixGetHashTable) -#endif - -#ifndef Tix_AddDItemType -# define Tix_AddDItemType (*TixintVptr->V_Tix_AddDItemType) -#endif - -#ifndef Tix_ConfigureInfo2 -# define Tix_ConfigureInfo2 (*TixintVptr->V_Tix_ConfigureInfo2) -#endif - -#ifndef Tix_ConfigureValue2 -# define Tix_ConfigureValue2 (*TixintVptr->V_Tix_ConfigureValue2) -#endif - -#ifndef Tix_DItemCalculateSize -# define Tix_DItemCalculateSize (*TixintVptr->V_Tix_DItemCalculateSize) -#endif - -#ifndef Tix_DItemComponent -# define Tix_DItemComponent (*TixintVptr->V_Tix_DItemComponent) -#endif - -#ifndef Tix_DItemConfigure -# define Tix_DItemConfigure (*TixintVptr->V_Tix_DItemConfigure) -#endif - -#ifndef Tix_DItemCreate -# define Tix_DItemCreate (*TixintVptr->V_Tix_DItemCreate) -#endif - -#ifndef Tix_DItemDisplay -# define Tix_DItemDisplay (*TixintVptr->V_Tix_DItemDisplay) -#endif - -#ifndef Tix_DItemDrawBackground -# define Tix_DItemDrawBackground (*TixintVptr->V_Tix_DItemDrawBackground) -#endif - -#ifndef Tix_DItemFree -# define Tix_DItemFree (*TixintVptr->V_Tix_DItemFree) -#endif - -#ifndef Tix_FreeArgumentList -# define Tix_FreeArgumentList (*TixintVptr->V_Tix_FreeArgumentList) -#endif - -#ifndef Tix_GetDItemType -# define Tix_GetDItemType (*TixintVptr->V_Tix_GetDItemType) -#endif - -#ifndef Tix_GetScrollFractions -# define Tix_GetScrollFractions (*TixintVptr->V_Tix_GetScrollFractions) -#endif - -#ifndef Tix_InitScrollInfo -# define Tix_InitScrollInfo (*TixintVptr->V_Tix_InitScrollInfo) -#endif - -#ifndef Tix_MultiConfigureInfo -# define Tix_MultiConfigureInfo (*TixintVptr->V_Tix_MultiConfigureInfo) -#endif - -#ifndef Tix_SetDefaultStyleTemplate -# define Tix_SetDefaultStyleTemplate (*TixintVptr->V_Tix_SetDefaultStyleTemplate) -#endif - -#ifndef Tix_SetScrollBarView -# define Tix_SetScrollBarView (*TixintVptr->V_Tix_SetScrollBarView) -#endif - -#ifndef Tix_SetWindowItemSerial -# define Tix_SetWindowItemSerial (*TixintVptr->V_Tix_SetWindowItemSerial) -#endif - -#ifndef Tix_SplitConfig -# define Tix_SplitConfig (*TixintVptr->V_Tix_SplitConfig) -#endif - -#ifndef Tix_UnmapInvisibleWindowItems -# define Tix_UnmapInvisibleWindowItems (*TixintVptr->V_Tix_UnmapInvisibleWindowItems) -#endif - -#ifndef Tix_UpdateScrollBar -# define Tix_UpdateScrollBar (*TixintVptr->V_Tix_UpdateScrollBar) -#endif - -#ifndef Tix_WidgetConfigure2 -# define Tix_WidgetConfigure2 (*TixintVptr->V_Tix_WidgetConfigure2) -#endif - -#ifndef Tix_WindowItemListRemove -# define Tix_WindowItemListRemove (*TixintVptr->V_Tix_WindowItemListRemove) -#endif - -#ifndef TixpDrawAnchorLines -# define TixpDrawAnchorLines (*TixintVptr->V_TixpDrawAnchorLines) -#endif - -#ifndef TixpDrawTmpLine -# define TixpDrawTmpLine (*TixintVptr->V_TixpDrawTmpLine) -#endif - -#ifndef TixpEndSubRegionDraw -# define TixpEndSubRegionDraw (*TixintVptr->V_TixpEndSubRegionDraw) -#endif - -#ifndef TixpStartSubRegionDraw -# define TixpStartSubRegionDraw (*TixintVptr->V_TixpStartSubRegionDraw) -#endif - -#ifndef TixpSubRegDisplayText -# define TixpSubRegDisplayText (*TixintVptr->V_TixpSubRegDisplayText) -#endif - -#ifndef TixpSubRegDrawBitmap -# define TixpSubRegDrawBitmap (*TixintVptr->V_TixpSubRegDrawBitmap) -#endif - -#ifndef TixpSubRegDrawImage -# define TixpSubRegDrawImage (*TixintVptr->V_TixpSubRegDrawImage) -#endif - -#ifndef TixpSubRegFillRectangle -# define TixpSubRegFillRectangle (*TixintVptr->V_TixpSubRegFillRectangle) -#endif - -#ifndef tixStrDup -# define tixStrDup (*TixintVptr->V_tixStrDup) -#endif - -#endif /* NO_VTABLES */ -#endif /* _TIXINT_VM */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tixInt.t b/Master/tlpkg/tlperl/lib/Tk/pTk/tixInt.t deleted file mode 100644 index 07e593d2337..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tixInt.t +++ /dev/null @@ -1,249 +0,0 @@ -#ifdef _TIXINT
-VVAR(Tk_Uid,tixCellUid,V_tixCellUid)
-VVAR(Tk_Uid,tixColumnUid,V_tixColumnUid)
-VVAR(Tk_Uid,tixDisabledUid,V_tixDisabledUid)
-VVAR(Tk_Uid,tixNormalUid,V_tixNormalUid)
-VVAR(Tk_Uid,tixRowUid,V_tixRowUid)
-#ifndef TixComputeTextGeometry
-VFUNC(void,TixComputeTextGeometry,V_TixComputeTextGeometry,_ANSI_ARGS_((
- TixFont fontStructPtr, char *string,
- int numChars, int wrapLength, int *widthPtr,
- int *heightPtr)))
-#endif /* #ifndef TixComputeTextGeometry */
-
-#ifndef TixDItemGetAnchor
-VFUNC(void,TixDItemGetAnchor,V_TixDItemGetAnchor,_ANSI_ARGS_((Tk_Anchor anchor,
- int x, int y, int cav_w, int cav_h,
- int width, int height, int * x_ret, int * y_ret)))
-#endif /* #ifndef TixDItemGetAnchor */
-
-#ifndef TixDItemStyleChanged
-VFUNC(void,TixDItemStyleChanged,V_TixDItemStyleChanged,_ANSI_ARGS_((
- Tix_DItemInfo * diTypePtr,
- Tix_DItemStyle * stylePtr)))
-#endif /* #ifndef TixDItemStyleChanged */
-
-#ifndef TixDItemStyleFree
-VFUNC(void,TixDItemStyleFree,V_TixDItemStyleFree,_ANSI_ARGS_((Tix_DItem *iPtr,
- Tix_DItemStyle * stylePtr)))
-#endif /* #ifndef TixDItemStyleFree */
-
-#ifndef TixDisplayText
-VFUNC(void,TixDisplayText,V_TixDisplayText,_ANSI_ARGS_((Display *display,
- Drawable drawable, TixFont font,
- char *string, int numChars, int x, int y,
- int length, Tk_Justify justify, int underline,
- GC gc)))
-#endif /* #ifndef TixDisplayText */
-
-#ifndef TixGetColorDItemGC
-VFUNC(void,TixGetColorDItemGC,V_TixGetColorDItemGC,_ANSI_ARGS_((
- Tix_DItem * iPtr, GC * backGC_ret,
- GC * foreGC_ret, int flags)))
-#endif /* #ifndef TixGetColorDItemGC */
-
-#ifndef TixGetDefaultDItemStyle
-VFUNC(Tix_DItemStyle*,TixGetDefaultDItemStyle,V_TixGetDefaultDItemStyle,_ANSI_ARGS_((
- Tix_DispData * ddPtr, Tix_DItemInfo * diTypePtr,
- Tix_DItem *iPtr, Tix_DItemStyle* oldStylePtr)))
-#endif /* #ifndef TixGetDefaultDItemStyle */
-
-#ifndef TixGetHashTable
-VFUNC(Tcl_HashTable *,TixGetHashTable,V_TixGetHashTable,_ANSI_ARGS_((Tcl_Interp * interp,
- char * name, Tcl_InterpDeleteProc *deleteProc)))
-#endif /* #ifndef TixGetHashTable */
-
-#ifndef Tix_AddDItemType
-VFUNC(void,Tix_AddDItemType,V_Tix_AddDItemType,_ANSI_ARGS_((
- Tix_DItemInfo * diTypePtr)))
-#endif /* #ifndef Tix_AddDItemType */
-
-#ifndef Tix_ConfigureInfo2
-VFUNC(int,Tix_ConfigureInfo2,V_Tix_ConfigureInfo2,_ANSI_ARGS_((
- Tcl_Interp *interp, Tk_Window tkwin,
- char *entRec, Tk_ConfigSpec *entConfigSpecs,
- Tix_DItem * iPtr, char *argvName, int flags)))
-#endif /* #ifndef Tix_ConfigureInfo2 */
-
-#ifndef Tix_ConfigureValue2
-VFUNC(int,Tix_ConfigureValue2,V_Tix_ConfigureValue2,_ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, char * entRec,
- Tk_ConfigSpec *entConfigSpecs, Tix_DItem * iPtr,
- char *argvName, int flags)))
-#endif /* #ifndef Tix_ConfigureValue2 */
-
-#ifndef Tix_DItemCalculateSize
-VFUNC(void,Tix_DItemCalculateSize,V_Tix_DItemCalculateSize,_ANSI_ARGS_((
- Tix_DItem * iPtr)))
-#endif /* #ifndef Tix_DItemCalculateSize */
-
-#ifndef Tix_DItemComponent
-VFUNC(char *,Tix_DItemComponent,V_Tix_DItemComponent,_ANSI_ARGS_((Tix_DItem * diPtr,
- int x, int y)))
-#endif /* #ifndef Tix_DItemComponent */
-
-#ifndef Tix_DItemConfigure
-VFUNC(int,Tix_DItemConfigure,V_Tix_DItemConfigure,_ANSI_ARGS_((
- Tix_DItem * diPtr, int argc,
- Tcl_Obj *CONST *objv, int flags)))
-#endif /* #ifndef Tix_DItemConfigure */
-
-#ifndef Tix_DItemCreate
-VFUNC(Tix_DItem *,Tix_DItemCreate,V_Tix_DItemCreate,_ANSI_ARGS_((Tix_DispData * ddPtr,
- char * type)))
-#endif /* #ifndef Tix_DItemCreate */
-
-#ifndef Tix_DItemDisplay
-VFUNC(void,Tix_DItemDisplay,V_Tix_DItemDisplay,_ANSI_ARGS_((
- Pixmap pixmap, GC gc, Tix_DItem * iPtr,
- int x, int y, int width, int height, int flag)))
-#endif /* #ifndef Tix_DItemDisplay */
-
-#ifndef Tix_DItemDrawBackground
-VFUNC(void,Tix_DItemDrawBackground,V_Tix_DItemDrawBackground,_ANSI_ARGS_((
- Pixmap pixmap, GC gc, Tix_DItem * iPtr,
- int x, int y, int width, int height, int flags)))
-#endif /* #ifndef Tix_DItemDrawBackground */
-
-#ifndef Tix_DItemFree
-VFUNC(void,Tix_DItemFree,V_Tix_DItemFree,_ANSI_ARGS_((
- Tix_DItem * iPtr)))
-#endif /* #ifndef Tix_DItemFree */
-
-#ifndef Tix_FreeArgumentList
-VFUNC(void,Tix_FreeArgumentList,V_Tix_FreeArgumentList,_ANSI_ARGS_((
- Tix_ArgumentList *argListPtr)))
-#endif /* #ifndef Tix_FreeArgumentList */
-
-#ifndef Tix_GetDItemType
-VFUNC(Tix_DItemInfo *,Tix_GetDItemType,V_Tix_GetDItemType,_ANSI_ARGS_((
- Tcl_Interp * interp, char *type)))
-#endif /* #ifndef Tix_GetDItemType */
-
-#ifndef Tix_GetScrollFractions
-VFUNC(void,Tix_GetScrollFractions,V_Tix_GetScrollFractions,_ANSI_ARGS_((
- Tix_ScrollInfo * siPtr,
- double * first_ret, double * last_ret)))
-#endif /* #ifndef Tix_GetScrollFractions */
-
-#ifndef Tix_InitScrollInfo
-VFUNC(void,Tix_InitScrollInfo,V_Tix_InitScrollInfo,_ANSI_ARGS_((
- Tix_ScrollInfo * siPtr, int type)))
-#endif /* #ifndef Tix_InitScrollInfo */
-
-#ifndef Tix_MultiConfigureInfo
-VFUNC(int,Tix_MultiConfigureInfo,V_Tix_MultiConfigureInfo,_ANSI_ARGS_((
- Tcl_Interp * interp,
- Tk_Window tkwin, Tk_ConfigSpec **specsList,
- int numLists, char **widgRecList, char *argvName,
- int flags, int request)))
-#endif /* #ifndef Tix_MultiConfigureInfo */
-
-#ifndef Tix_SetDefaultStyleTemplate
-VFUNC(void,Tix_SetDefaultStyleTemplate,V_Tix_SetDefaultStyleTemplate,_ANSI_ARGS_((
- Tk_Window tkwin, Tix_StyleTemplate * tmplPtr)))
-#endif /* #ifndef Tix_SetDefaultStyleTemplate */
-
-#ifndef Tix_SetScrollBarView
-VFUNC(int,Tix_SetScrollBarView,V_Tix_SetScrollBarView,_ANSI_ARGS_((
- Tcl_Interp *interp, Tix_ScrollInfo * siPtr,
- int argc, Tcl_Obj *CONST *objv, int compat)))
-#endif /* #ifndef Tix_SetScrollBarView */
-
-#ifndef Tix_SetWindowItemSerial
-VFUNC(void,Tix_SetWindowItemSerial,V_Tix_SetWindowItemSerial,_ANSI_ARGS_((
- Tix_LinkList * lPtr, Tix_DItem * iPtr,
- int serial)))
-#endif /* #ifndef Tix_SetWindowItemSerial */
-
-#ifndef Tix_SplitConfig
-VFUNC(int,Tix_SplitConfig,V_Tix_SplitConfig,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, Tk_ConfigSpec ** specsList,
- int numLists, int argc, Tcl_Obj *CONST *objv,
- Tix_ArgumentList * argListPtr)))
-#endif /* #ifndef Tix_SplitConfig */
-
-#ifndef Tix_UnmapInvisibleWindowItems
-VFUNC(void,Tix_UnmapInvisibleWindowItems,V_Tix_UnmapInvisibleWindowItems,_ANSI_ARGS_((
- Tix_LinkList * lPtr, int serial)))
-#endif /* #ifndef Tix_UnmapInvisibleWindowItems */
-
-#ifndef Tix_UpdateScrollBar
-VFUNC(void,Tix_UpdateScrollBar,V_Tix_UpdateScrollBar,_ANSI_ARGS_((
- Tcl_Interp *interp, Tix_ScrollInfo * siPtr)))
-#endif /* #ifndef Tix_UpdateScrollBar */
-
-#ifndef Tix_WidgetConfigure2
-VFUNC(int,Tix_WidgetConfigure2,V_Tix_WidgetConfigure2,_ANSI_ARGS_((
- Tcl_Interp *interp, Tk_Window tkwin, char * entRec,
- Tk_ConfigSpec *entConfigSpecs,
- Tix_DItem * iPtr, int argc, Tcl_Obj *CONST *objv,
- int flags, int forced, int * sizeChanged_ret)))
-#endif /* #ifndef Tix_WidgetConfigure2 */
-
-#ifndef Tix_WindowItemListRemove
-VFUNC(void,Tix_WindowItemListRemove,V_Tix_WindowItemListRemove,_ANSI_ARGS_((
- Tix_LinkList * lPtr, Tix_DItem * iPtr)))
-#endif /* #ifndef Tix_WindowItemListRemove */
-
-#ifndef TixpDrawAnchorLines
-VFUNC(void,TixpDrawAnchorLines,V_TixpDrawAnchorLines,_ANSI_ARGS_((Display *display,
- Drawable drawable, GC gc, int x, int y,
- int w, int h)))
-#endif /* #ifndef TixpDrawAnchorLines */
-
-#ifndef TixpDrawTmpLine
-VFUNC(void,TixpDrawTmpLine,V_TixpDrawTmpLine,_ANSI_ARGS_((int x1, int y1,
- int x2, int y2, Tk_Window tkwin)))
-#endif /* #ifndef TixpDrawTmpLine */
-
-#ifndef TixpEndSubRegionDraw
-VFUNC(void,TixpEndSubRegionDraw,V_TixpEndSubRegionDraw,_ANSI_ARGS_((Display *display,
- Drawable drawable, GC gc,
- TixpSubRegion * subRegPtr)))
-#endif /* #ifndef TixpEndSubRegionDraw */
-
-#ifndef TixpStartSubRegionDraw
-VFUNC(void,TixpStartSubRegionDraw,V_TixpStartSubRegionDraw,_ANSI_ARGS_((Tix_DispData *ddPtr,
- Drawable drawable, GC gc,
- TixpSubRegion * subRegPtr, int origX,
- int origY, int x, int y, int width, int height,
- int needWidth, int needHeight)))
-#endif /* #ifndef TixpStartSubRegionDraw */
-
-#ifndef TixpSubRegDisplayText
-VFUNC(void,TixpSubRegDisplayText,V_TixpSubRegDisplayText,_ANSI_ARGS_((Display *display,
- Drawable drawable, GC gc,
- TixpSubRegion * subRegPtr,
- TixFont font, char *string,
- int numChars, int x, int y, int length,
- Tk_Justify justify, int underline)))
-#endif /* #ifndef TixpSubRegDisplayText */
-
-#ifndef TixpSubRegDrawBitmap
-VFUNC(void,TixpSubRegDrawBitmap,V_TixpSubRegDrawBitmap,_ANSI_ARGS_((Display *display,
- Drawable drawable, GC gc,
- TixpSubRegion * subRegPtr, Pixmap bitmap,
- int src_x, int src_y, int width, int height,
- int dest_x, int dest_y, unsigned long plane)))
-#endif /* #ifndef TixpSubRegDrawBitmap */
-
-#ifndef TixpSubRegDrawImage
-VFUNC(void,TixpSubRegDrawImage,V_TixpSubRegDrawImage,_ANSI_ARGS_((
- TixpSubRegion * subRegPtr, Tk_Image image,
- int imageX, int imageY, int width, int height,
- Drawable drawable, int drawableX, int drawableY)))
-#endif /* #ifndef TixpSubRegDrawImage */
-
-#ifndef TixpSubRegFillRectangle
-VFUNC(void,TixpSubRegFillRectangle,V_TixpSubRegFillRectangle,_ANSI_ARGS_((Display *display,
- Drawable drawable, GC gc,
- TixpSubRegion * subRegPtr, int x, int y,
- int width, int height)))
-#endif /* #ifndef TixpSubRegFillRectangle */
-
-#ifndef tixStrDup
-VFUNC(char *,tixStrDup,V_tixStrDup,_ANSI_ARGS_(( CONST char * s)))
-#endif /* #ifndef tixStrDup */
-
-#endif /* _TIXINT */
diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tixInt_f.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tixInt_f.h deleted file mode 100644 index f085e2778fc..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tixInt_f.h +++ /dev/null @@ -1,14 +0,0 @@ -#ifndef TIXINT_VT -#define TIXINT_VT -typedef struct TixintVtab -{ - unsigned (*tabSize)(void); -#define VFUNC(type,name,mem,args) type (*mem) args; -#define VVAR(type,name,mem) type (*mem); -#include "tixInt.t" -#undef VFUNC -#undef VVAR -} TixintVtab; -extern TixintVtab *TixintVptr; -extern TixintVtab *TixintVGet(void); -#endif /* TIXINT_VT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tixPort.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tixPort.h deleted file mode 100644 index 56bffaf4869..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tixPort.h +++ /dev/null @@ -1,110 +0,0 @@ - -/* $Id: tixPort.h,v 1.1.1.1 2000/05/17 11:08:42 idiscovery Exp $ */ - -/* - * tixPort.h -- - * - * This header file handles porting issues that occur because of - * differences between systems. It reads in platform specific - * portability files. - * - * 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. - * - */ -#ifndef _TIX_PORT_H_ -#define _TIX_PORT_H_ - -#ifndef _TKPORT -#include "tkPort.h" -#endif - -#ifndef _LANG -#include "Lang.h" -#endif - -#ifndef _TK -#include "tk.h" -#endif - -#if (!defined(__WIN32__)) && (!defined(_WIN32)) && (!defined(MAC_TCL)) && (!defined(__PM__)) - /* - * The Tcl/Tk porting stuff is needed only in Unix. - */ -#if !defined(_TCLPORT) && !defined(_TKPORT) -# if defined(_TKINT) || defined(_LANG) -# include "tkPort.h" -# else -# include "tclPort.h" -# endif -#endif -#endif - - -#if defined(WIN32) || defined(_WIN32) || defined(__WIN32__) || defined(__PM__) -# include "tixWinPort.h" -#else -# if defined(MAC_TCL) -# include "tixMacPort.h" -# else -# include "tixUnixPort.h" -# endif -#endif - - -EXTERN Tcl_HashTable * TixGetHashTable _ANSI_ARGS_((Tcl_Interp * interp, - char * name, Tcl_InterpDeleteProc *deleteProc)); -#define _TixGetHashTable(i,n,p) TixGetHashTable(i,n,p) - -#if (TK_MAJOR_VERSION > 4) - -/* - * The font handling is changed in Tk 8.0 and later - */ - -typedef Tk_Font TixFont; -#define TixFontId(font) Tk_FontId(font) - -EXTERN void TixComputeTextGeometry _ANSI_ARGS_(( - TixFont fontStructPtr, char *string, - int numChars, int wrapLength, int *widthPtr, - int *heightPtr)); -EXTERN void TixDisplayText _ANSI_ARGS_((Display *display, - Drawable drawable, TixFont font, - char *string, int numChars, int x, int y, - int length, Tk_Justify justify, int underline, - GC gc)); - -#define TixFreeFont Tk_FreeFont -#define TixNameOfFont Tk_NameOfFont -#define TixGetFont Tk_GetFont - -#else - -typedef XFontStruct* TixFont; -#define TixFontId(font) ((font)->fid) -#define TixComputeTextGeometry TkComputeTextGeometry -#define TixDisplayText TkDisplayText -#define TixFreeFont Tk_FreeFontStruct -#define TixNameOfFont Tk_NameOfFontStruct -#define TixGetFont Tk_GetFontStruct - -#ifndef TkDisplayText -EXTERN void TkDisplayText _ANSI_ARGS_((Display *display, - Drawable drawable, XFontStruct *fontStructPtr, - char *string, int numChars, int x, int y, - int length, Tk_Justify justify, int underline, - GC gc)); -#endif -#ifndef TkComputeTextGeometry -EXTERN void TkComputeTextGeometry _ANSI_ARGS_(( - XFontStruct *fontStructPtr, char *string, - int numChars, int wrapLength, int *widthPtr, - int *heightPtr)); -#endif - -#endif - -#endif /* _TIX_PORT_H_ */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tixTList.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tixTList.h deleted file mode 100644 index 314b4ec4c6c..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tixTList.h +++ /dev/null @@ -1,148 +0,0 @@ - -/* $Id: tixTList.h,v 1.1.1.1 2000/05/17 11:08:42 idiscovery Exp $ */ - -/* - * tixTList.h -- - * - * This header file defines the data structures used by the tixTList - * widget. - * - * 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. - * - */ - -#ifndef _TIX_TLIST_H_ -#define _TIX_TLIST_H_ - -#ifndef _TIX_INT_H_ -#include "tixInt.h" -#endif - -#include "tkVMacro.h" - -#define TIX_X 0 -#define TIX_Y 1 - -typedef struct ListEntry { - struct ListEntry * next; - Tix_DItem * iPtr; - Tk_Uid state; - Tcl_Obj * data; /* user data field */ - int size[2]; - unsigned int selected : 1; -} ListEntry; - -typedef struct ListRow { - ListEntry * chPtr; - int size[2]; - int numEnt; -} ListRow; - -/* - * A data structure of the following type is kept for each - * widget managed by this file: - */ -typedef struct ListStruct { - Tix_DispData dispData; - - Tcl_Command widgetCmd; /* Token for button's widget command. */ - - /* - * Information used when displaying widget: - */ - int width, height; /* For app programmer to request size */ - - /* - * Information used when displaying widget: - */ - - /* Border and general drawing */ - int borderWidth; /* Width of 3-D borders. */ - int selBorderWidth; /* Width of 3-D borders for selected items */ - int relief; /* Indicates whether window as a whole is - * raised, sunken, or flat. */ - Tk_3DBorder border; /* Used for drawing the 3d border. */ - Tk_3DBorder selectBorder; /* Used for selected background. */ - XColor *normalFg; /* Normal foreground for text. */ - XColor *normalBg; /* Normal background for text. */ - XColor *selectFg; /* Color for drawing selected text. */ - - /* GC and stuff */ - GC backgroundGC; /* GC for drawing background. */ - GC selectGC; /* GC for drawing selected background. */ - GC anchorGC; /* GC for drawing dotted anchor highlight. */ - TixFont font; /* Default font used by the DItems. */ - - /* Text drawing */ - Tk_Cursor cursor; /* Current cursor for window, or None. */ - - /* For highlights */ - int highlightWidth; /* Width in pixels of highlight to draw - * around widget when it has the focus. - * <= 0 means don't draw a highlight. */ - XColor *highlightColorPtr; /* Color for drawing traversal highlight. */ - GC highlightGC; /* For drawing traversal highlight. */ - - /* default pad and gap values */ - int padX, padY; - - Tk_Uid selectMode; /* Selection style: single, browse, multiple, - * or extended. This value isn't used in C - * code, but the Tcl bindings use it. */ - Tk_Uid state; /* State can only be normal or disabled. */ - Tix_LinkList entList; - - int numRowAllocd; - int numRow; - ListRow * rows; - - ListEntry * seeElemPtr; /* The current item to "see" */ - ListEntry * anchor; /* The current anchor item */ - ListEntry * active; /* The current active item */ - ListEntry * dropSite; /* The current drop site */ - ListEntry * dragSite; /* The current drop site */ - - /* - * Commands - */ - LangCallback *command; /* The command when user double-clicks */ - LangCallback *browseCmd; /* The command to call when the selection - * changes. */ - LangCallback *sizeCmd; /* The command to call when the size of - * the listbox changes. E.g., when the user - * add/deletes elements. Useful for - * auto-scrollbar geometry managers */ - - /* These options control how the items are arranged on the list */ - Tk_Uid orientUid; /* Can be "vertical" or "horizontal" */ - int packMode[2]; /* is row and column packed */ - int numMajor[2]; /* num of rows and columns */ - int itemSize[2]; /* horizontal and vertical size of items, -1 - * means natural size */ - - /* Info for laying out */ - int maxSize[2]; /* max size of all elements in X and Y, (they - * do not need to be the same element, may be - * invalid according to mode */ - char *takeFocus; /* Value of -takefocus option; not used in - * the C code, but used by keyboard traversal - * scripts. Malloc'ed, but may be NULL. */ - - int serial; /* this number is incremented before each time - * the widget is redisplayed */ - - Tix_DItemInfo * diTypePtr; /* Default item type */ - Tix_IntScrollInfo scrollInfo[2]; - unsigned int redrawing : 1; - unsigned int resizing : 1; - unsigned int hasFocus : 1; - unsigned int isVertical : 1; -} TixTListWidget; - -typedef TixTListWidget WidgetRecord; -typedef TixTListWidget * WidgetPtr; - -#endif /* _TIX_TLIST_H_ */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tixWinInt.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tixWinInt.h deleted file mode 100644 index 092cfddb9fe..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tixWinInt.h +++ /dev/null @@ -1,23 +0,0 @@ - -/* $Id: tixWinInt.h,v 1.1.1.1 2000/05/17 11:08:55 idiscovery Exp $ */ - -/* - * tixWinInt.h - * - * Internal header file for Tix on the Windows platform. - * - * 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. - * - */ - -#ifndef _TIX_WIN_INT_H_ -#define _TIX_WIN_INT_H_ - -#ifndef _TIX_INT_H_ -#include "tixInt.h" -#endif - -#endif /* _TIX_WIN_INT_H_ */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tixWinPort.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tixWinPort.h deleted file mode 100644 index 6c71160c756..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tixWinPort.h +++ /dev/null @@ -1,40 +0,0 @@ - -/* $Id: tixWinPort.h,v 1.1.1.1 2000/05/17 11:08:55 idiscovery Exp $ */ - -/* - * tixWinPort.h -- - * - * This header file handles porting issues that occur because of - * differences between systems. It reads in platform specific - * portability files. - * - * 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. - * - */ - -#ifndef _TIX_WINPORT_H_ -#define _TIX_WINPORT_H_ - -#include <stdio.h> - -#include <stdlib.h> -#include <string.h> -#include <errno.h> -#include <sys/stat.h> -#include <sys/timeb.h> -#include <time.h> -#include <io.h> -#include <fcntl.h> - -#define WIN32_LEAN_AND_MEAN -# ifndef __PM__ -# include <windows.h> -# endif -#undef WIN32_LEAN_AND_MEAN - -typedef unsigned char UNSIGNED_CHAR; - -#endif /* _TIX_WINPORT_H_ */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tix_f.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tix_f.h deleted file mode 100644 index 0289ee3f7a3..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tix_f.h +++ /dev/null @@ -1,14 +0,0 @@ -#ifndef TIX_VT -#define TIX_VT -typedef struct TixVtab -{ - unsigned (*tabSize)(void); -#define VFUNC(type,name,mem,args) type (*mem) args; -#define VVAR(type,name,mem) type (*mem); -#include "tix.t" -#undef VFUNC -#undef VVAR -} TixVtab; -extern TixVtab *TixVptr; -extern TixVtab *TixVGet(void); -#endif /* TIX_VT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tk.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tk.h deleted file mode 100644 index 7d0082e27dc..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tk.h +++ /dev/null @@ -1,1857 +0,0 @@ -/* - * tk.h -- - * - * Declarations for Tk-related things that are visible - * outside of the Tk module itself. - * - * Copyright (c) 1989-1994 The Regents of the University of California. - * Copyright (c) 1994 The Australian National University. - * Copyright (c) 1994-1998 Sun Microsystems, Inc. - * Copyright (c) 1998-2000 Ajuba Solutions. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tk.h,v 1.74.2.3 2003/10/03 16:32:39 dgp Exp $ - */ - -#ifndef _TK -#define _TK - -/* - * For C++ compilers, use extern "C" - */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * When version numbers change here, you must also go into the following files - * and update the version numbers: - * - * library/tk.tcl (only if Major.minor changes, not patchlevel) - * unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) - * win/configure.in (as above) - * win/makefile.vc (not patchlevel) - * README (sections 0 and 1) - * mac/README (not patchlevel) - * macosx/Wish.pbproj/project.pbxproj - * (14 LOC total, 4 LOC patch) - * win/README (not patchlevel) - * unix/README (not patchlevel) - * unix/tk.spec (3 LOC Major/Minor, 2 LOC patch) - * win/tcl.m4 (not patchlevel) - * - * You may also need to update some of these files when the numbers change - * for the version of Tcl that this release of Tk is compiled against. - */ - -#define TK_MAJOR_VERSION 8 -#define TK_MINOR_VERSION 4 -#define TK_RELEASE_LEVEL TCL_FINAL_RELEASE -#define TK_RELEASE_SERIAL 5 - -#define TK_VERSION "8.4" -#define TK_PATCH_LEVEL "8.4.5" - -/* - * The following definitions set up the proper options for Macintosh - * compilers. We use this method because there is no autoconf equivalent. - */ - -#if defined(MAC_TCL) || defined(MAC_OSX_TK) -# ifndef REDO_KEYSYM_LOOKUP -# define REDO_KEYSYM_LOOKUP -# endif -#endif - - -/* - * A special definition used to allow this header file to be included - * from windows or mac resource files so that they can obtain version - * information. RC_INVOKED is defined by default by the windows RC tool - * and manually set for macintosh. - * - * Resource compilers don't like all the C stuff, like typedefs and - * procedure declarations, that occur below, so block them out. - */ - -#ifdef RC_INVOKED -#include "Lang.h" -#endif - -#ifndef RC_INVOKED - -#ifndef _TKPORT -#include "tkPort.h" -#endif - -#ifndef _XLIB_H -# if defined (MAC_TCL) -# include <Xlib.h> -# include <X.h> -# elif defined(MAC_OSX_TK) -# include <X11/Xlib.h> -# include <X11/X.h> -# else -# include <X11/Xlib.h> -# endif -#if !defined(_XLIB_H) -#define _XLIB_H -#endif -#endif - - -#ifdef __STDC__ -# include <stddef.h> -#endif - -#ifdef BUILD_tk -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * Decide whether or not to use input methods. - */ - -#ifdef XNQueryInputStyle -#define TK_USE_INPUT_METHODS -#endif - -/* - * Dummy types that are used by clients: - */ - -typedef struct Tk_BindingTable_ *Tk_BindingTable; -typedef struct Tk_Canvas_ *Tk_Canvas; -typedef struct Tk_Cursor_ *Tk_Cursor; -typedef struct Tk_ErrorHandler_ *Tk_ErrorHandler; -typedef struct Tk_Font_ *Tk_Font; -typedef struct Tk_Image__ *Tk_Image; -typedef struct Tk_ImageMaster_ *Tk_ImageMaster; -typedef struct Tk_OptionTable_ *Tk_OptionTable; -typedef struct Tk_PostscriptInfo_ *Tk_PostscriptInfo; -typedef struct Tk_TextLayout_ *Tk_TextLayout; -typedef struct Tk_Window_ *Tk_Window; -typedef struct Tk_3DBorder_ *Tk_3DBorder; -typedef struct Tk_Style_ *Tk_Style; -typedef struct Tk_StyleEngine_ *Tk_StyleEngine; -typedef struct Tk_StyledElement_ *Tk_StyledElement; - -/* - * Additional types exported to clients. - */ - -typedef CONST char *Tk_Uid; - -/* - * The enum below defines the valid types for Tk configuration options - * as implemented by Tk_InitOptions, Tk_SetOptions, etc. - */ - -typedef enum { - TK_OPTION_BOOLEAN, - TK_OPTION_INT, - TK_OPTION_DOUBLE, - TK_OPTION_STRING, - TK_OPTION_STRING_TABLE, - TK_OPTION_COLOR, - TK_OPTION_FONT, - TK_OPTION_BITMAP, - TK_OPTION_BORDER, - TK_OPTION_RELIEF, - TK_OPTION_CURSOR, - TK_OPTION_JUSTIFY, - TK_OPTION_ANCHOR, - TK_OPTION_SYNONYM, - TK_OPTION_PIXELS, - TK_OPTION_WINDOW, - TK_OPTION_END, - TK_OPTION_CUSTOM, - TK_OPTION_STYLE, - TK_OPTION_OBJ, - TK_OPTION_CALLBACK, - TK_OPTION_SCALARVAR, - TK_OPTION_HASHVAR, - TK_OPTION_ARRAYVAR -} Tk_OptionType; - -/* - * Structures of the following type are used by widgets to specify - * their configuration options. Typically each widget has a static - * array of these structures, where each element of the array describes - * a single configuration option. The array is passed to - * Tk_CreateOptionTable. - */ - -typedef struct Tk_OptionSpec { - Tk_OptionType type; /* Type of option, such as TK_OPTION_COLOR; - * see definitions above. Last option in - * table must have type TK_OPTION_END. */ - char *optionName; /* Name used to specify option in Tcl - * commands. */ - char *dbName; /* Name for option in option database. */ - char *dbClass; /* Class for option in database. */ - char *defValue; /* Default value for option if not specified - * in command line, the option database, - * or the system. */ - int objOffset; /* Where in record to store a Tcl_Obj * that - * holds the value of this option, specified - * as an offset in bytes from the start of - * the record. Use the Tk_Offset macro to - * generate values for this. -1 means don't - * store the Tcl_Obj in the record. */ - int internalOffset; /* Where in record to store the internal - * representation of the value of this option, - * such as an int or XColor *. This field - * is specified as an offset in bytes - * from the start of the record. Use the - * Tk_Offset macro to generate values for it. - * -1 means don't store the internal - * representation in the record. */ - int flags; /* Any combination of the values defined - * below. */ - ClientData clientData; /* An alternate place to put option-specific - * data. Used for the monochrome default value - * for colors, etc. */ - int typeMask; /* An arbitrary bit mask defined by the - * class manager; typically bits correspond - * to certain kinds of options such as all - * those that require a redisplay when they - * change. Tk_SetOptions returns the bit-wise - * OR of the typeMasks of all options that - * were changed. */ -} Tk_OptionSpec; - -/* - * Flag values for Tk_OptionSpec structures. These flags are shared by - * Tk_ConfigSpec structures, so be sure to coordinate any changes - * carefully. - */ - -#define TK_OPTION_NULL_OK (1 << 0) -#define TK_OPTION_DONT_SET_DEFAULT (1 << 3) - -/* - * The following structure and function types are used by TK_OPTION_CUSTOM - * options; the structure holds pointers to the functions needed by the Tk - * option config code to handle a custom option. - */ - -typedef int (Tk_CustomOptionSetProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj **value, char *widgRec, - int offset, char *saveInternalPtr, int flags)); -typedef Tcl_Obj *(Tk_CustomOptionGetProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset)); -typedef void (Tk_CustomOptionRestoreProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin, char *internalPtr, char *saveInternalPtr)); -typedef void (Tk_CustomOptionFreeProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin, char *internalPtr)); - -typedef struct Tk_ObjCustomOption { - char *name; /* Name of the custom option. */ - Tk_CustomOptionSetProc *setProc; /* Function to use to set a record's - * option value from a Tcl_Obj */ - Tk_CustomOptionGetProc *getProc; /* Function to use to get a Tcl_Obj - * representation from an internal - * representation of an option. */ - Tk_CustomOptionRestoreProc *restoreProc; /* Function to use to restore a - * saved value for the internal - * representation. */ - Tk_CustomOptionFreeProc *freeProc; /* Function to use to free the internal - * representation of an option. */ - ClientData clientData; /* Arbitrary one-word value passed to - * the handling procs. */ -} Tk_ObjCustomOption; - - -/* - * Macro to use to fill in "offset" fields of the Tk_OptionSpec. - * struct. Computes number of bytes from beginning of structure - * to a given field. - */ - -#ifdef offsetof -#define Tk_Offset(type, field) ((int) offsetof(type, field)) -#else -#define Tk_Offset(type, field) ((int) ((char *) &((type *) 0)->field)) -#endif - -/* - * The following two structures are used for error handling. When - * configuration options are being modified, the old values are - * saved in a Tk_SavedOptions structure. If an error occurs, then the - * contents of the structure can be used to restore all of the old - * values. The contents of this structure are for the private use - * Tk. No-one outside Tk should ever read or write any of the fields - * of these structures. - */ - -typedef struct Tk_SavedOption { - struct TkOption *optionPtr; /* Points to information that describes - * the option. */ - Tcl_Obj *valuePtr; /* The old value of the option, in - * the form of a Tcl object; may be - * NULL if the value wasn't saved as - * an object. */ - double internalForm; /* The old value of the option, in - * some internal representation such - * as an int or (XColor *). Valid - * only if optionPtr->specPtr->objOffset - * is < 0. The space must be large - * enough to accommodate a double, a - * long, or a pointer; right now it - * looks like a double is big - * enough. Also, using a double - * guarantees that the field is - * properly aligned for storing large - * values. */ -} Tk_SavedOption; - -#ifdef TCL_MEM_DEBUG -# define TK_NUM_SAVED_OPTIONS 2 -#else -# define TK_NUM_SAVED_OPTIONS 20 -#endif - -typedef struct Tk_SavedOptions { - char *recordPtr; /* The data structure in which to - * restore configuration options. */ - Tk_Window tkwin; /* Window associated with recordPtr; - * needed to restore certain options. */ - int numItems; /* The number of valid items in - * items field. */ - Tk_SavedOption items[TK_NUM_SAVED_OPTIONS]; - /* Items used to hold old values. */ - struct Tk_SavedOptions *nextPtr; /* Points to next structure in list; - * needed if too many options changed - * to hold all the old values in a - * single structure. NULL means no - * more structures. */ -} Tk_SavedOptions; - -/* - * Structure used to describe application-specific configuration - * options: indicates procedures to call to parse an option and - * to return a text string describing an option. THESE ARE - * DEPRECATED; PLEASE USE THE NEW STRUCTURES LISTED ABOVE. - */ - -/* - * This is a temporary flag used while tkObjConfig and new widgets - * are in development. - */ - -#ifndef __NO_OLD_CONFIG - -typedef int (Tk_OptionParseProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *value, char *widgRec, - int offset)); -typedef Tcl_Obj *(Tk_OptionPrintProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr)); - -typedef struct Tk_CustomOption { - Tk_OptionParseProc *parseProc; /* Procedure to call to parse an - * option and store it in converted - * form. */ - Tk_OptionPrintProc *printProc; /* Procedure to return a printable - * string describing an existing - * option. */ - ClientData clientData; /* Arbitrary one-word value used by - * option parser: passed to - * parseProc and printProc. */ -} Tk_CustomOption; - -/* - * Structure used to specify information for Tk_ConfigureWidget. Each - * structure gives complete information for one option, including - * how the option is specified on the command line, where it appears - * in the option database, etc. - */ - -typedef struct Tk_ConfigSpec { - int type; /* Type of option, such as TK_CONFIG_COLOR; - * see definitions below. Last option in - * table must have type TK_CONFIG_END. */ - char *argvName; /* Switch used to specify option in objv. - * NULL means this spec is part of a group. */ - Tk_Uid dbName; /* Name for option in option database. */ - Tk_Uid dbClass; /* Class for option in database. */ - Tk_Uid defValue; /* Default value for option if not - * specified in command line or database. */ - int offset; /* Where in widget record to store value; - * use Tk_Offset macro to generate values - * for this. */ - int specFlags; /* Any combination of the values defined - * below; other bits are used internally - * by tkConfig.c. */ - Tk_CustomOption *customPtr; /* If type is TK_CONFIG_CUSTOM then this is - * a pointer to info about how to parse and - * print the option. Otherwise it is - * irrelevant. */ -} Tk_ConfigSpec; - -/* - * Type values for Tk_ConfigSpec structures. See the user - * documentation for details. - */ - - -/* - * Macro to use to fill in "offset" fields of Tk_ConfigInfos. - * Computes number of bytes from beginning of structure to a - * given field. - */ - -#ifdef offsetof -#define Tk_Offset(type, field) ((int) offsetof(type, field)) -#else -#define Tk_Offset(type, field) ((int) ((char *) &((type *) 0)->field)) -#endif - -typedef enum { - TK_CONFIG_BOOLEAN, TK_CONFIG_INT, TK_CONFIG_DOUBLE, TK_CONFIG_STRING, - TK_CONFIG_UID, TK_CONFIG_COLOR, TK_CONFIG_FONT, TK_CONFIG_BITMAP, - TK_CONFIG_BORDER, TK_CONFIG_RELIEF, TK_CONFIG_CURSOR, - TK_CONFIG_ACTIVE_CURSOR, TK_CONFIG_JUSTIFY, TK_CONFIG_ANCHOR, - TK_CONFIG_SYNONYM, TK_CONFIG_CAP_STYLE, TK_CONFIG_JOIN_STYLE, - TK_CONFIG_PIXELS, TK_CONFIG_MM, TK_CONFIG_WINDOW, TK_CONFIG_CUSTOM, - TK_CONFIG_CALLBACK, TK_CONFIG_LANGARG, TK_CONFIG_SCALARVAR, - TK_CONFIG_HASHVAR, TK_CONFIG_ARRAYVAR, TK_CONFIG_OBJECT, - TK_CONFIG_END -} Tk_ConfigTypes; - -/* - * Possible values for flags argument to Tk_ConfigureWidget: - */ - -#define TK_CONFIG_ARGV_ONLY 1 -#define TK_CONFIG_OBJS 0x80 - -/* - * Possible flag values for Tk_ConfigSpec structures. Any bits at - * or above TK_CONFIG_USER_BIT may be used by clients for selecting - * certain entries. Before changing any values here, coordinate with - * tkOldConfig.c (internal-use-only flags are defined there). - */ - -#define TK_CONFIG_NULL_OK (1 << 0) -#define TK_CONFIG_COLOR_ONLY (1 << 1) -#define TK_CONFIG_MONO_ONLY (1 << 2) -#define TK_CONFIG_DONT_SET_DEFAULT (1 << 3) -#define TK_CONFIG_OPTION_SPECIFIED (1 << 4) -#define TK_CONFIG_USER_BIT 0x100 -#endif /* __NO_OLD_CONFIG */ - -/* - * Structure used to specify how to handle argv options. - */ - -typedef struct { - char *key; /* The key string that flags the option in the - * objv array. */ - int type; /* Indicates option type; see below. */ - char *src; /* Value to be used in setting dst; usage - * depends on type. */ - char *dst; /* Address of value to be modified; usage - * depends on type. */ - char *help; /* Documentation message describing this option. */ -} Tk_ArgvInfo; - -/* - * Legal values for the type field of a Tk_ArgvInfo: see the user - * documentation for details. - */ - -#define TK_ARGV_CONSTANT 15 -#define TK_ARGV_INT 16 -#define TK_ARGV_STRING 17 -#define TK_ARGV_UID 18 -#define TK_ARGV_REST 19 -#define TK_ARGV_FLOAT 20 -#define TK_ARGV_FUNC 21 -#define TK_ARGV_GENFUNC 22 -#define TK_ARGV_HELP 23 -#define TK_ARGV_CONST_OPTION 24 -#define TK_ARGV_OPTION_VALUE 25 -#define TK_ARGV_OPTION_NAME_VALUE 26 -#define TK_ARGV_END 27 - -/* - * Flag bits for passing to Tk_ParseArgv: - */ - -#define TK_ARGV_NO_DEFAULTS 0x1 -#define TK_ARGV_NO_LEFTOVERS 0x2 -#define TK_ARGV_NO_ABBREV 0x4 -#define TK_ARGV_DONT_SKIP_FIRST_ARG 0x8 - -/* - * Enumerated type for describing actions to be taken in response - * to a restrictProc established by Tk_RestrictEvents. - */ - -typedef enum { - TK_DEFER_EVENT, TK_PROCESS_EVENT, TK_DISCARD_EVENT -} Tk_RestrictAction; - -/* - * Priority levels to pass to Tk_AddOption: - */ - -#define TK_WIDGET_DEFAULT_PRIO 20 -#define TK_STARTUP_FILE_PRIO 40 -#define TK_USER_DEFAULT_PRIO 60 -#define TK_INTERACTIVE_PRIO 80 -#define TK_MAX_PRIO 100 - -/* - * Relief values returned by Tk_GetRelief: - */ - -#define TK_RELIEF_NULL -1 -#define TK_RELIEF_FLAT 0 -#define TK_RELIEF_GROOVE 1 -#define TK_RELIEF_RAISED 2 -#define TK_RELIEF_RIDGE 3 -#define TK_RELIEF_SOLID 4 -#define TK_RELIEF_SUNKEN 5 - -/* - * "Which" argument values for Tk_3DBorderGC: - */ - -#define TK_3D_FLAT_GC 1 -#define TK_3D_LIGHT_GC 2 -#define TK_3D_DARK_GC 3 - -/* - * Special EnterNotify/LeaveNotify "mode" for use in events - * generated by tkShare.c. Pick a high enough value that it's - * unlikely to conflict with existing values (like NotifyNormal) - * or any new values defined in the future. - */ - -#define TK_NOTIFY_SHARE 20 - -/* - * Enumerated type for describing a point by which to anchor something: - */ - -typedef enum { - TK_ANCHOR_N, TK_ANCHOR_NE, TK_ANCHOR_E, TK_ANCHOR_SE, - TK_ANCHOR_S, TK_ANCHOR_SW, TK_ANCHOR_W, TK_ANCHOR_NW, - TK_ANCHOR_CENTER -} Tk_Anchor; - -/* - * Enumerated type for describing a style of justification: - */ - -typedef enum { - TK_JUSTIFY_LEFT, TK_JUSTIFY_RIGHT, TK_JUSTIFY_CENTER -} Tk_Justify; - -/* - * The following structure is used by Tk_GetFontMetrics() to return - * information about the properties of a Tk_Font. - */ - -typedef struct Tk_FontMetrics { - int ascent; /* The amount in pixels that the tallest - * letter sticks up above the baseline, plus - * any extra blank space added by the designer - * of the font. */ - int descent; /* The largest amount in pixels that any - * letter sticks below the baseline, plus any - * extra blank space added by the designer of - * the font. */ - int linespace; /* The sum of the ascent and descent. How - * far apart two lines of text in the same - * font should be placed so that none of the - * characters in one line overlap any of the - * characters in the other line. */ -} Tk_FontMetrics; - -/* - * Flags passed to Tk_MeasureChars: - */ - -#define TK_WHOLE_WORDS 1 -#define TK_AT_LEAST_ONE 2 -#define TK_PARTIAL_OK 4 - -/* - * Flags passed to Tk_ComputeTextLayout: - */ - -#define TK_IGNORE_TABS 8 -#define TK_IGNORE_NEWLINES 16 - -/* - * Widget class procedures used to implement platform specific widget - * behavior. - */ - -typedef Window (Tk_ClassCreateProc) _ANSI_ARGS_((Tk_Window tkwin, - Window parent, ClientData instanceData)); -typedef void (Tk_ClassWorldChangedProc) _ANSI_ARGS_((ClientData instanceData)); -typedef void (Tk_ClassModalProc) _ANSI_ARGS_((Tk_Window tkwin, - XEvent *eventPtr)); - -typedef struct Tk_ClassProcs { - unsigned int size; - Tk_ClassWorldChangedProc *worldChangedProc; - /* Procedure to invoke when the widget needs to - * respond in some way to a change in the - * world (font changes, etc.) */ - Tk_ClassCreateProc *createProc; - /* Procedure to invoke when the - * platform-dependent window needs to be - * created. */ - Tk_ClassModalProc *modalProc; - /* Procedure to invoke after all bindings on a - * widget have been triggered in order to - * handle a modal loop. */ -} Tk_ClassProcs; - -/* - * Simple accessor for Tk_ClassProcs structure. Checks that the structure - * is not NULL, then checks the size field and returns either the requested - * field, if present, or NULL if the structure is too small to have the field - * (or NULL if the structure is NULL). - * - * A more general version of this function may be useful if other - * size-versioned structure pop up in the future: - * - * #define Tk_GetField(name, who, which) \ - * (((who) == NULL) ? NULL : - * (((who)->size <= Tk_Offset(name, which)) ? NULL :(name)->which)) - */ - -#define Tk_GetClassProc(procs, which) \ - (((procs) == NULL) ? NULL : \ - (((procs)->size <= Tk_Offset(Tk_ClassProcs, which)) ? NULL:(procs)->which)) - -/* - * Each geometry manager (the packer, the placer, etc.) is represented - * by a structure of the following form, which indicates procedures - * to invoke in the geometry manager to carry out certain functions. - */ - -typedef void (Tk_GeomRequestProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin)); -typedef void (Tk_GeomLostSlaveProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin)); - -typedef struct Tk_GeomMgr { - char *name; /* Name of the geometry manager (command - * used to invoke it, or name of widget - * class that allows embedded widgets). */ - Tk_GeomRequestProc *requestProc; - /* Procedure to invoke when a slave's - * requested geometry changes. */ - Tk_GeomLostSlaveProc *lostSlaveProc; - /* Procedure to invoke when a slave is - * taken away from one geometry manager - * by another. NULL means geometry manager - * doesn't care when slaves are lost. */ -} Tk_GeomMgr; - -/* - * Result values returned by Tk_GetScrollInfo: - */ - -#define TK_SCROLL_MOVETO 1 -#define TK_SCROLL_PAGES 2 -#define TK_SCROLL_UNITS 3 -#define TK_SCROLL_ERROR 4 - -/* - *--------------------------------------------------------------------------- - * - * Extensions to the X event set - * - *--------------------------------------------------------------------------- - */ -#define VirtualEvent (MappingNotify + 1) -#define ActivateNotify (MappingNotify + 2) -#define DeactivateNotify (MappingNotify + 3) -#define MouseWheelEvent (MappingNotify + 4) -#define TK_LASTEVENT (MappingNotify + 5) - -#define MouseWheelMask (1L << 28) -#define ActivateMask (1L << 29) -#define VirtualEventMask (1L << 30) - - -/* - * A virtual event shares most of its fields with the XKeyEvent and - * XButtonEvent structures. 99% of the time a virtual event will be - * an abstraction of a key or button event, so this structure provides - * the most information to the user. The only difference is the changing - * of the detail field for a virtual event so that it holds the name of the - * virtual event being triggered. - */ - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* True if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; /* Window on which event was requested. */ - Window root; /* root window that the event occured on */ - Window subwindow; /* child window */ - Time time; /* milliseconds */ - int x, y; /* pointer x, y coordinates in event window */ - int x_root, y_root; /* coordinates relative to root */ - unsigned int state; /* key or button mask */ - Tk_Uid name; /* Name of virtual event. */ - Bool same_screen; /* same screen flag */ -} XVirtualEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* True if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* Window in which event occurred. */ -} XActivateDeactivateEvent; -typedef XActivateDeactivateEvent XActivateEvent; -typedef XActivateDeactivateEvent XDeactivateEvent; - -/* - *-------------------------------------------------------------- - * - * Macros for querying Tk_Window structures. See the - * manual entries for documentation. - * - *-------------------------------------------------------------- - */ - -#define Tk_Display(tkwin) (((Tk_FakeWin *) (tkwin))->display) -#define Tk_ScreenNumber(tkwin) (((Tk_FakeWin *) (tkwin))->screenNum) -#define Tk_Screen(tkwin) (ScreenOfDisplay(Tk_Display(tkwin), \ - Tk_ScreenNumber(tkwin))) -#define Tk_Depth(tkwin) (((Tk_FakeWin *) (tkwin))->depth) -#define Tk_Visual(tkwin) (((Tk_FakeWin *) (tkwin))->visual) -#define Tk_WindowId(tkwin) (((Tk_FakeWin *) (tkwin))->window) -#define Tk_PathName(tkwin) (((Tk_FakeWin *) (tkwin))->pathName) -#define Tk_Name(tkwin) (((Tk_FakeWin *) (tkwin))->nameUid) -#define Tk_Class(tkwin) (((Tk_FakeWin *) (tkwin))->classUid) -#define Tk_X(tkwin) (((Tk_FakeWin *) (tkwin))->changes.x) -#define Tk_Y(tkwin) (((Tk_FakeWin *) (tkwin))->changes.y) -#define Tk_Width(tkwin) (((Tk_FakeWin *) (tkwin))->changes.width) -#define Tk_Height(tkwin) \ - (((Tk_FakeWin *) (tkwin))->changes.height) -#define Tk_Changes(tkwin) (&((Tk_FakeWin *) (tkwin))->changes) -#define Tk_Attributes(tkwin) (&((Tk_FakeWin *) (tkwin))->atts) -#define Tk_IsEmbedded(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_EMBEDDED) -#define Tk_IsContainer(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_CONTAINER) -#define Tk_IsMapped(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_MAPPED) -#define Tk_IsTopLevel(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_TOP_LEVEL) -#define Tk_HasWrapper(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_HAS_WRAPPER) -#define Tk_WinManaged(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_WIN_MANAGED) -#define Tk_TopWinHierarchy(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_TOP_HIERARCHY) -#define Tk_ReqWidth(tkwin) (((Tk_FakeWin *) (tkwin))->reqWidth) -#define Tk_ReqHeight(tkwin) (((Tk_FakeWin *) (tkwin))->reqHeight) -/* Tk_InternalBorderWidth is deprecated */ -#define Tk_InternalBorderWidth(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderLeft) -#define Tk_InternalBorderLeft(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderLeft) -#define Tk_InternalBorderRight(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderRight) -#define Tk_InternalBorderTop(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderTop) -#define Tk_InternalBorderBottom(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderBottom) -#define Tk_MinReqWidth(tkwin) (((Tk_FakeWin *) (tkwin))->minReqWidth) -#define Tk_MinReqHeight(tkwin) (((Tk_FakeWin *) (tkwin))->minReqHeight) -#define Tk_Parent(tkwin) (((Tk_FakeWin *) (tkwin))->parentPtr) -#define Tk_Colormap(tkwin) (((Tk_FakeWin *) (tkwin))->atts.colormap) - -/* - * The structure below is needed by the macros above so that they can - * access the fields of a Tk_Window. The fields not needed by the macros - * are declared as "dummyX". The structure has its own type in order to - * prevent applications from accessing Tk_Window fields except using - * official macros. WARNING!! The structure definition must be kept - * consistent with the TkWindow structure in tkInt.h. If you change one, - * then change the other. See the declaration in tkInt.h for - * documentation on what the fields are used for internally. - */ - -typedef struct Tk_FakeWin { - Display *display; - char *dummy1; /* dispPtr */ - int screenNum; - Visual *visual; - int depth; - Window window; - char *dummy2; /* childList */ - char *dummy3; /* lastChildPtr */ - Tk_Window parentPtr; /* parentPtr */ - char *dummy4; /* nextPtr */ - char *dummy5; /* mainPtr */ - char *pathName; - Tk_Uid nameUid; - Tk_Uid classUid; - XWindowChanges changes; - unsigned int dummy6; /* dirtyChanges */ - XSetWindowAttributes atts; - unsigned long dummy7; /* dirtyAtts */ - unsigned int flags; - char *dummy8; /* handlerList */ -#ifdef TK_USE_INPUT_METHODS - XIC dummy9; /* inputContext */ -#endif /* TK_USE_INPUT_METHODS */ - ClientData *dummy10; /* tagPtr */ - int dummy11; /* numTags */ - int dummy12; /* optionLevel */ - char *dummy13; /* selHandlerList */ - char *dummy14; /* geomMgrPtr */ - ClientData dummy15; /* geomData */ - int reqWidth, reqHeight; - int internalBorderLeft; - char *dummy16; /* wmInfoPtr */ - char *dummy17; /* classProcPtr */ - ClientData dummy18; /* instanceData */ - char *dummy19; /* privatePtr */ - int internalBorderRight; - int internalBorderTop; - int internalBorderBottom; - int minReqWidth; - int minReqHeight; -} Tk_FakeWin; - -/* - * Flag values for TkWindow (and Tk_FakeWin) structures are: - * - * TK_MAPPED: 1 means window is currently mapped, - * 0 means unmapped. - * TK_TOP_LEVEL: 1 means this is a top-level widget. - * TK_ALREADY_DEAD: 1 means the window is in the process of - * being destroyed already. - * TK_NEED_CONFIG_NOTIFY: 1 means that the window has been reconfigured - * before it was made to exist. At the time of - * making it exist a ConfigureNotify event needs - * to be generated. - * TK_GRAB_FLAG: Used to manage grabs. See tkGrab.c for - * details. - * TK_CHECKED_IC: 1 means we've already tried to get an input - * context for this window; if the ic field - * is NULL it means that there isn't a context - * for the field. - * TK_DONT_DESTROY_WINDOW: 1 means that Tk_DestroyWindow should not - * invoke XDestroyWindow to destroy this widget's - * X window. The flag is set when the window - * has already been destroyed elsewhere (e.g. - * by another application) or when it will be - * destroyed later (e.g. by destroying its - * parent). - * TK_WM_COLORMAP_WINDOW: 1 means that this window has at some time - * appeared in the WM_COLORMAP_WINDOWS property - * for its toplevel, so we have to remove it - * from that property if the window is - * deleted and the toplevel isn't. - * TK_EMBEDDED: 1 means that this window (which must be a - * toplevel) is not a free-standing window but - * rather is embedded in some other application. - * TK_CONTAINER: 1 means that this window is a container, and - * that some other application (either in - * this process or elsewhere) may be - * embedding itself inside the window. - * TK_BOTH_HALVES: 1 means that this window is used for - * application embedding (either as - * container or embedded application), and - * both the containing and embedded halves - * are associated with windows in this - * particular process. - * TK_DEFER_MODAL: 1 means that this window has deferred a modal - * loop until all of the bindings for the current - * event have been invoked. - * TK_WRAPPER: 1 means that this window is the extra - * wrapper window created around a toplevel - * to hold the menubar under Unix. See - * tkUnixWm.c for more information. - * TK_REPARENTED: 1 means that this window has been reparented - * so that as far as the window system is - * concerned it isn't a child of its Tk - * parent. Initially this is used only for - * special Unix menubar windows. - * TK_ANONYMOUS_WINDOW: 1 means that this window has no name, and is - * thus not accessible from Tk. - * TK_HAS_WRAPPER 1 means that this window has a wrapper window - * TK_WIN_MANAGED 1 means that this window is a child of the - * root window, and is managed by the window - * manager. - * TK_TOP_HIERARCHY 1 means this window is at the top of a - * physical window hierarchy within this - * process, i.e. the window's parent - * either doesn't exist or is not owned by - * this Tk application. - * TK_PROP_PROPCHANGE 1 means that PropertyNotify events in - * this window's children should propagate - * up to this window. - */ - - -#define TK_MAPPED 1 -#define TK_TOP_LEVEL 2 -#define TK_ALREADY_DEAD 4 -#define TK_NEED_CONFIG_NOTIFY 8 -#define TK_GRAB_FLAG 0x10 -#define TK_CHECKED_IC 0x20 -#define TK_DONT_DESTROY_WINDOW 0x40 -#define TK_WM_COLORMAP_WINDOW 0x80 -#define TK_EMBEDDED 0x100 -#define TK_CONTAINER 0x200 -#define TK_BOTH_HALVES 0x400 -#define TK_DEFER_MODAL 0x800 -#define TK_WRAPPER 0x1000 -#define TK_REPARENTED 0x2000 -#define TK_ANONYMOUS_WINDOW 0x4000 -#define TK_HAS_WRAPPER 0x8000 -#define TK_WIN_MANAGED 0x10000 -#define TK_TOP_HIERARCHY 0x20000 -#define TK_PROP_PROPCHANGE 0x40000 - -/* - *-------------------------------------------------------------- - * - * Procedure prototypes and structures used for defining new canvas - * items: - * - *-------------------------------------------------------------- - */ - -typedef enum { - TK_STATE_NULL = -1, TK_STATE_ACTIVE, TK_STATE_DISABLED, - TK_STATE_NORMAL, TK_STATE_HIDDEN -} Tk_State; - -typedef struct Tk_SmoothMethod { - char *name; - int (*coordProc) _ANSI_ARGS_((Tk_Canvas canvas, - double *pointPtr, int numPoints, int numSteps, - XPoint xPoints[], double dblPoints[])); - void (*postscriptProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, double *coordPtr, - int numPoints, int numSteps)); -} Tk_SmoothMethod; - -/* - * For each item in a canvas widget there exists one record with - * the following structure. Each actual item is represented by - * a record with the following stuff at its beginning, plus additional - * type-specific stuff after that. - */ - -#define TK_TAG_SPACE 3 - -typedef struct Tk_Item { - int id; /* Unique identifier for this item - * (also serves as first tag for - * item). */ - struct Tk_Item *nextPtr; /* Next in display list of all - * items in this canvas. Later items - * in list are drawn on top of earlier - * ones. */ - Tk_Uid staticTagSpace[TK_TAG_SPACE];/* Built-in space for limited # of - * tags. */ - Tk_Uid *tagPtr; /* Pointer to array of tags. Usually - * points to staticTagSpace, but - * may point to malloc-ed space if - * there are lots of tags. */ - int tagSpace; /* Total amount of tag space available - * at tagPtr. */ - int numTags; /* Number of tag slots actually used - * at *tagPtr. */ - struct Tk_ItemType *typePtr; /* Table of procedures that implement - * this type of item. */ - int x1, y1, x2, y2; /* Bounding box for item, in integer - * canvas units. Set by item-specific - * code and guaranteed to contain every - * pixel drawn in item. Item area - * includes x1 and y1 but not x2 - * and y2. */ - struct Tk_Item *prevPtr; /* Previous in display list of all - * items in this canvas. Later items - * in list are drawn just below earlier - * ones. */ - Tk_State state; /* state of item */ - LangCallback *updateCmd; /* for "-updatecommand" option */ - int redraw_flags; /* some flags used in the canvas */ - struct Tk_Item *group; /* group item managing this one */ - - /* - *------------------------------------------------------------------ - * Starting here is additional type-specific stuff; see the - * declarations for individual types to see what is part of - * each type. The actual space below is determined by the - * "itemInfoSize" of the type's Tk_ItemType record. - *------------------------------------------------------------------ - */ -} Tk_Item; - -/* - * Flag bits for canvases (redraw_flags): - * - * TK_ITEM_STATE_DEPENDANT - 1 means that object needs to be - * redrawn if the canvas state changes. - * TK_ITEM_DONT_REDRAW - 1 means that the object redraw is already - * been prepared, so the general canvas code - * doesn't need to do that any more. - */ - -#define TK_ITEM_STATE_DEPENDANT 1 -#define TK_ITEM_DONT_REDRAW 2 - -/* - * Structures used for implementing visitors. - */ - -typedef ClientData Tk_VisitorStartProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, int argc, Tcl_Obj *CONST *objv)); -typedef int Tk_VisitorItemProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, ClientData clientData, - Tk_Item *itemPtr)); -typedef int Tk_VisitorEndProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, ClientData clientData)); - -typedef struct Tk_VisitorType { - char *name; - int typeSize; /* should be sizeof(Tk_VisitorType) */ - int flags; /* If this flag is non-zero then - * the item needs to be redrawn. */ - Tk_VisitorStartProc *startProc; - Tk_VisitorEndProc *endProc; - Tk_VisitorItemProc *visitArc; /* The Arc visitor procedure. */ - Tk_VisitorItemProc *visitBitmap; /* The Bitmap visitor procedure. */ - Tk_VisitorItemProc *visitImage; /* The Image visitor procedure. */ - Tk_VisitorItemProc *visitLine; /* The Line visitor procedure. */ - Tk_VisitorItemProc *visitOval; /* The Oval visitor procedure. */ - Tk_VisitorItemProc *visitPolygon; /* The Polygon visitor procedure. */ - Tk_VisitorItemProc *visitRectangle; /* The Rectangle visitor procedure. */ - Tk_VisitorItemProc *visitText; /* The Text visitor procedure. */ - Tk_VisitorItemProc *visitWindow; /* The Window visitor procedure. */ - Tk_VisitorItemProc *visitSticker; /* The Sticker visitor procedure. - * from tkSticker*/ - Tk_VisitorItemProc *visitViewport; /* The Viewport visitor procedure. - * from TkSM */ - Tk_VisitorItemProc *visitBarchart; /* The Barchart visitor procedure. - * from Scotty */ - Tk_VisitorItemProc *visitStripchart;/* The Stripchart visitor procedure. - * from Scotty */ - - /* ptk extensions */ - Tk_VisitorItemProc *visitGroup; /* The Group visitor procedure. */ - Tk_VisitorItemProc *visitGrid; /* The Grid visitor procedure. */ - - /* - *------------------------------------------------------------------ - * Starting here is additional item-extension stuff; - * you can add extra item types after this plus other information. - *------------------------------------------------------------------ - */ -} Tk_VisitorType; - -/* - * Records of the following type are used to describe a type of - * item (e.g. lines, circles, etc.) that can form part of a - * canvas widget. - */ - -#ifdef USE_OLD_CANVAS -typedef int Tk_ItemCreateProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - Tcl_Obj *CONST *objv)); -typedef int Tk_ItemConfigureProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - Tcl_Obj *CONST *objv, int flags)); -typedef int Tk_ItemCoordProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - Tcl_Obj *CONST *objv)); -#else -typedef int Tk_ItemCreateProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - Tcl_Obj *CONST objv[])); -typedef int Tk_ItemConfigureProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - CONST84 Tcl_Obj *CONST objv[], int flags)); -typedef int Tk_ItemCoordProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - Tcl_Obj *CONST objv[])); -#endif -typedef void Tk_ItemDeleteProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, Display *display)); -typedef void Tk_ItemDisplayProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, Display *display, Drawable dst, - int x, int y, int width, int height)); -typedef double Tk_ItemPointProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, double *pointPtr)); -typedef int Tk_ItemAreaProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, double *rectPtr)); -typedef int Tk_ItemPostscriptProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int prepass)); -typedef void Tk_ItemScaleProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, double originX, double originY, - double scaleX, double scaleY)); -typedef void Tk_ItemTranslateProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, double deltaX, double deltaY)); -typedef int Tk_ItemIndexProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, Tcl_Obj *indexString, - int *indexPtr)); -typedef void Tk_ItemCursorProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, int index)); -typedef int Tk_ItemSelectionProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, int offset, char *buffer, - int maxBytes)); -typedef void Tk_ItemInsertProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, int beforeThis, Tcl_Obj *string)); -typedef void Tk_ItemDCharsProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, int first, int last)); -typedef void Tk_ItemBboxProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr)); -typedef int Tk_ItemGetCoordProc _ANSI_ARGS_((Tk_Item *itemPtr, - double **coordsPtr, Tcl_FreeProc *freeProc)); -typedef int Tk_ItemSetCoordProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, int num, double *coords)); - -/* - * Some flag values that can be used in the "flags" field in Tk_ItemType. - */ - -#define TK_ITEM_ALWAYS_REDRAW 1 -#define TK_ITEM_VISITOR_SUPPORT 2 - -/* - * Structures used for implementing visitors. - */ -#ifndef __NO_OLD_CONFIG - -typedef struct Tk_ItemType { - char *name; /* The name of this type of item, such - * as "line". */ - int itemSize; /* Total amount of space needed for - * item's record. */ - Tk_ItemCreateProc *createProc; /* Procedure to create a new item of - * this type. */ - Tk_ConfigSpec *configSpecs; /* Pointer to array of configuration - * specs for this type. Used for - * returning configuration info. */ - Tk_ItemConfigureProc *configProc; /* Procedure to call to change - * configuration options. */ - Tk_ItemCoordProc *coordProc; /* Procedure to call to get and set - * the item's coordinates. */ - Tk_ItemDeleteProc *deleteProc; /* Procedure to delete existing item of - * this type. */ - Tk_ItemDisplayProc *displayProc; /* Procedure to display items of - * this type. */ - int alwaysRedraw; /* Non-zero means displayProc should - * be called even when the item has - * been moved off-screen. */ - Tk_ItemPointProc *pointProc; /* Computes distance from item to - * a given point. */ - Tk_ItemAreaProc *areaProc; /* Computes whether item is inside, - * outside, or overlapping an area. */ - Tk_ItemPostscriptProc *postscriptProc; - /* Procedure to write a Postscript - * description for items of this - * type. */ - Tk_ItemScaleProc *scaleProc; /* Procedure to rescale items of - * this type. */ - Tk_ItemTranslateProc *translateProc;/* Procedure to translate items of - * this type. */ - Tk_ItemIndexProc *indexProc; /* Procedure to determine index of - * indicated character. NULL if - * item doesn't support indexing. */ - Tk_ItemCursorProc *icursorProc; /* Procedure to set insert cursor pos. - * to just before a given position. */ - Tk_ItemSelectionProc *selectionProc;/* Procedure to return selection (in - * STRING format) when it is in this - * item. */ - Tk_ItemInsertProc *insertProc; /* Procedure to insert something into - * an item. */ - Tk_ItemDCharsProc *dCharsProc; /* Procedure to delete characters - * from an item. */ - struct Tk_ItemType *nextPtr; /* Used to link types together into - * a list. */ - Tk_ItemBboxProc *bboxProc; /* Reserved for future extension. */ - int reserved2; /* Carefully compatible with */ - char *reserved3; /* Jan Nijtmans dash patch */ - char *reserved4; -} Tk_ItemType; - -#endif - -/* - * The following structure provides information about the selection and - * the insertion cursor. It is needed by only a few items, such as - * those that display text. It is shared by the generic canvas code - * and the item-specific code, but most of the fields should be written - * only by the canvas generic code. - */ - -typedef struct Tk_CanvasTextInfo { - Tk_3DBorder selBorder; /* Border and background for selected - * characters. Read-only to items.*/ - int selBorderWidth; /* Width of border around selection. - * Read-only to items. */ - XColor *selFgColorPtr; /* Foreground color for selected text. - * Read-only to items. */ - Tk_Item *selItemPtr; /* Pointer to selected item. NULL means - * selection isn't in this canvas. - * Writable by items. */ - int selectFirst; /* Character index of first selected - * character. Writable by items. */ - int selectLast; /* Character index of last selected - * character. Writable by items. */ - Tk_Item *anchorItemPtr; /* Item corresponding to "selectAnchor": - * not necessarily selItemPtr. Read-only - * to items. */ - int selectAnchor; /* Character index of fixed end of - * selection (i.e. "select to" operation will - * use this as one end of the selection). - * Writable by items. */ - Tk_3DBorder insertBorder; /* Used to draw vertical bar for insertion - * cursor. Read-only to items. */ - int insertWidth; /* Total width of insertion cursor. Read-only - * to items. */ - int insertBorderWidth; /* Width of 3-D border around insert cursor. - * Read-only to items. */ - Tk_Item *focusItemPtr; /* Item that currently has the input focus, - * or NULL if no such item. Read-only to - * items. */ - int gotFocus; /* Non-zero means that the canvas widget has - * the input focus. Read-only to items.*/ - int cursorOn; /* Non-zero means that an insertion cursor - * should be displayed in focusItemPtr. - * Read-only to items.*/ -} Tk_CanvasTextInfo; - -/* - * Structures used for Dashing and Outline. - */ - -typedef struct Tk_Dash { - int number; - union { - char *pt; - char array[sizeof(char *)]; - } pattern; -} Tk_Dash; - -typedef struct Tk_TSOffset { - int flags; /* flags; see below for possible values */ - int xoffset; /* x offset */ - int yoffset; /* y offset */ -} Tk_TSOffset; - -/* - * Bit fields in Tk_Offset->flags: - */ - -#define TK_OFFSET_INDEX 1 -#define TK_OFFSET_RELATIVE 2 -#define TK_OFFSET_LEFT 4 -#define TK_OFFSET_CENTER 8 -#define TK_OFFSET_RIGHT 16 -#define TK_OFFSET_TOP 32 -#define TK_OFFSET_MIDDLE 64 -#define TK_OFFSET_BOTTOM 128 - -typedef struct Tk_Tile_ *Tk_Tile; /* Opaque type for tiles */ - -typedef struct Tk_Outline { - GC gc; /* Graphics context. */ - double width; /* Width of outline. */ - double activeWidth; /* Width of outline. */ - double disabledWidth; /* Width of outline. */ - int offset; /* Dash offset */ - Tk_Dash dash; /* Dash pattern */ - Tk_Dash activeDash; /* Dash pattern if state is active*/ - Tk_Dash disabledDash; /* Dash pattern if state is disabled*/ - VOID *reserved1; /* reserved for future expansion */ - VOID *reserved2; - VOID *reserved3; - Tk_TSOffset tsoffset; /* stipple offset for outline*/ - XColor *color; /* Outline color. */ - XColor *activeColor; /* Outline color if state is active. */ - XColor *disabledColor; /* Outline color if state is disabled. */ - Pixmap stipple; /* Outline Stipple pattern. */ - Pixmap activeStipple; /* Outline Stipple pattern if state is active. */ - Pixmap disabledStipple; /* Outline Stipple pattern if state is disabled. */ - Tk_Tile tile; -} Tk_Outline; - - -/* - * Some functions handy for Dashing and Outlines (in tkCanvUtil.c). - */ - -EXTERN void Tk_CreateOutline _ANSI_ARGS_((Tk_Outline *outline)); -EXTERN void Tk_DeleteOutline _ANSI_ARGS_((Display *display, - Tk_Outline *outline)); -EXTERN int Tk_ConfigOutlineGC _ANSI_ARGS_((XGCValues *gcValues, - Tk_Canvas canvas ,Tk_Item *item, - Tk_Outline *outline)); -EXTERN int Tk_ChangeOutlineGC _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *item, Tk_Outline *outline)); -EXTERN int Tk_ResetOutlineGC _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *item, Tk_Outline *outline)); -EXTERN int Tk_CanvasPsOutline _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *item, Tk_Outline *outline)); - -/* - * Some functions handy for Tiling and Stipple/Tile offset. - */ - -typedef void (Tk_TileChangedProc) _ANSI_ARGS_((ClientData clientData, - Tk_Tile tile)); -EXTERN Tk_Tile Tk_GetTile _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, - CONST char *imageName)); -EXTERN void Tk_FreeTile _ANSI_ARGS_((Tk_Tile tile)); -EXTERN CONST char * Tk_NameOfTile _ANSI_ARGS_((Tk_Tile tile)); -EXTERN void Tk_SetTileChangedProc _ANSI_ARGS_((Tk_Tile tile, - Tk_TileChangedProc * changeProc, ClientData clientData)); -EXTERN Pixmap Tk_PixmapOfTile _ANSI_ARGS_((Tk_Tile tile)); -EXTERN int Tk_PixelParseProc _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *value, char *widgRec, - int offset)); -EXTERN Tcl_Obj *Tk_PixelPrintProc _ANSI_ARGS_(( - ClientData clientData, Tk_Window tkwin, - char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr)); -EXTERN void Tk_SizeOfTile _ANSI_ARGS_((Tk_Tile tile, int *widthPtr, - int *heightPtr)); -EXTERN int Tk_TileParseProc _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *value, char *widgRec, - int offset)); -EXTERN Tcl_Obj *Tk_TilePrintProc _ANSI_ARGS_(( - ClientData clientData, Tk_Window tkwin, - char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr)); -EXTERN int Tk_OffsetParseProc _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *value, char *widgRec, - int offset)); -EXTERN Tcl_Obj *Tk_OffsetPrintProc _ANSI_ARGS_(( - ClientData clientData, Tk_Window tkwin, - char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr)); -EXTERN int Tk_OrientParseProc _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *value, char *widgRec, - int offset)); -EXTERN Tcl_Obj *Tk_OrientPrintProc _ANSI_ARGS_(( - ClientData clientData, Tk_Window tkwin, - char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr)); - - -/* - *-------------------------------------------------------------- - * - * Procedure prototypes and structures used for managing images: - * - *-------------------------------------------------------------- - */ - -typedef struct Tk_ImageType Tk_ImageType; -#ifdef USE_OLD_IMAGE -typedef int (Tk_ImageCreateProc) _ANSI_ARGS_((Tcl_Interp *interp, - char *name, int argc, Tcl_Obj *CONST *objv, Tk_ImageType *typePtr, - Tk_ImageMaster master, ClientData *masterDataPtr)); -#else -typedef int (Tk_ImageCreateProc) _ANSI_ARGS_((Tcl_Interp *interp, - char *name, int objc, Tcl_Obj *CONST objv[], Tk_ImageType *typePtr, - Tk_ImageMaster master, ClientData *masterDataPtr)); -#endif -typedef ClientData (Tk_ImageGetProc) _ANSI_ARGS_((Tk_Window tkwin, - ClientData masterData)); -typedef void (Tk_ImageDisplayProc) _ANSI_ARGS_((ClientData instanceData, - Display *display, Drawable drawable, int imageX, int imageY, - int width, int height, int drawableX, int drawableY)); -typedef void (Tk_ImageFreeProc) _ANSI_ARGS_((ClientData instanceData, - Display *display)); -typedef void (Tk_ImageDeleteProc) _ANSI_ARGS_((ClientData masterData)); -typedef void (Tk_ImageChangedProc) _ANSI_ARGS_((ClientData clientData, - int x, int y, int width, int height, int imageWidth, - int imageHeight)); -typedef int (Tk_ImagePostscriptProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psinfo, - int x, int y, int width, int height, int prepass)); - -/* - * The following structure represents a particular type of image - * (bitmap, xpm image, etc.). It provides information common to - * all images of that type, such as the type name and a collection - * of procedures in the image manager that respond to various - * events. Each image manager is represented by one of these - * structures. - */ - -struct Tk_ImageType { - char *name; /* Name of image type. */ - Tk_ImageCreateProc *createProc; - /* Procedure to call to create a new image - * of this type. */ - Tk_ImageGetProc *getProc; /* Procedure to call the first time - * Tk_GetImage is called in a new way - * (new visual or screen). */ - Tk_ImageDisplayProc *displayProc; - /* Call to draw image, in response to - * Tk_RedrawImage calls. */ - Tk_ImageFreeProc *freeProc; /* Procedure to call whenever Tk_FreeImage - * is called to release an instance of an - * image. */ - Tk_ImageDeleteProc *deleteProc; - /* Procedure to call to delete image. It - * will not be called until after freeProc - * has been called for each instance of the - * image. */ - Tk_ImagePostscriptProc *postscriptProc; - /* Procedure to call to produce postscript - * output for the image. */ - struct Tk_ImageType *nextPtr; - /* Next in list of all image types currently - * known. Filled in by Tk, not by image - * manager. */ - char *reserved; /* reserved for future expansion */ -}; - -/* - *-------------------------------------------------------------- - * - * Additional definitions used to manage images of type "photo". - * - *-------------------------------------------------------------- - */ - -/* - * The following type is used to identify a particular photo image - * to be manipulated: - */ - -typedef void *Tk_PhotoHandle; - -/* - * The following structure describes a block of pixels in memory: - */ - -typedef struct Tk_PhotoImageBlock { - unsigned char *pixelPtr; /* Pointer to the first pixel. */ - int width; /* Width of block, in pixels. */ - int height; /* Height of block, in pixels. */ - int pitch; /* Address difference between corresponding - * pixels in successive lines. */ - int pixelSize; /* Address difference between successive - * pixels in the same line. */ - int offset[4]; /* Address differences between the red, green - * and blue components of the pixel and the - * pixel as a whole. */ - int reserved; /* Reserved for extensions (dash patch) */ -} Tk_PhotoImageBlock; - -/* - * The following values control how blocks are combined into photo - * images when the alpha component of a pixel is not 255, a.k.a. the - * compositing rule. - */ - -#define TK_PHOTO_COMPOSITE_OVERLAY 0 -#define TK_PHOTO_COMPOSITE_SET 1 - -/* - * Procedure prototypes and structures used in reading and - * writing photo images: - */ - -typedef struct Tk_PhotoImageFormat Tk_PhotoImageFormat; -#ifdef USE_OLD_IMAGE -typedef int (Tk_ImageFileMatchProc) _ANSI_ARGS_((Tcl_Channel chan, - char *fileName, char *formatString, int *widthPtr, int *heightPtr)); -typedef int (Tk_ImageStringMatchProc) _ANSI_ARGS_((char *string, - char *formatString, int *widthPtr, int *heightPtr)); -typedef int (Tk_ImageFileReadProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Channel chan, char *fileName, char *formatString, - Tk_PhotoHandle imageHandle, int destX, int destY, - int width, int height, int srcX, int srcY)); -typedef int (Tk_ImageStringReadProc) _ANSI_ARGS_((Tcl_Interp *interp, - char *string, char *formatString, Tk_PhotoHandle imageHandle, - int destX, int destY, int width, int height, int srcX, int srcY)); -typedef int (Tk_ImageFileWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, - char *fileName, char *formatString, Tk_PhotoImageBlock *blockPtr)); -typedef int (Tk_ImageStringWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_DString *dataPtr, char *formatString, - Tk_PhotoImageBlock *blockPtr)); -#else -typedef int (Tk_ImageFileMatchProc) _ANSI_ARGS_((Tcl_Channel chan, - Tcl_Obj *fileName, Tcl_Obj *format, int *widthPtr, - int *heightPtr,Tcl_Interp *interp)); -typedef int (Tk_ImageStringMatchProc) _ANSI_ARGS_((Tcl_Obj *dataObj, - Tcl_Obj *format, int *widthPtr, int *heightPt, Tcl_Interp *interp)); -typedef int (Tk_ImageFileReadProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Channel chan, Tcl_Obj *fileName, Tcl_Obj *format, - Tk_PhotoHandle imageHandle, int destX, int destY, - int width, int height, int srcX, int srcY)); -typedef int (Tk_ImageStringReadProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *dataObj, Tcl_Obj *format, Tk_PhotoHandle imageHandle, - int destX, int destY, int width, int height, int srcX, int srcY)); -typedef int (Tk_ImageFileWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, - char *fileName, Tcl_Obj *format, Tk_PhotoImageBlock *blockPtr)); -typedef int (Tk_ImageStringWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *format, Tk_PhotoImageBlock *blockPtr)); -#endif - -/* - * The following structure represents a particular file format for - * storing images (e.g., PPM, GIF, JPEG, etc.). It provides information - * to allow image files of that format to be recognized and read into - * a photo image. - */ - -struct Tk_PhotoImageFormat { - char *name; /* Name of image file format */ - Tk_ImageFileMatchProc *fileMatchProc; - /* Procedure to call to determine whether - * an image file matches this format. */ - Tk_ImageStringMatchProc *stringMatchProc; - /* Procedure to call to determine whether - * the data in a string matches this format. */ - Tk_ImageFileReadProc *fileReadProc; - /* Procedure to call to read data from - * an image file into a photo image. */ - Tk_ImageStringReadProc *stringReadProc; - /* Procedure to call to read data from - * a string into a photo image. */ - Tk_ImageFileWriteProc *fileWriteProc; - /* Procedure to call to write data from - * a photo image to a file. */ - Tk_ImageStringWriteProc *stringWriteProc; - /* Procedure to call to obtain a string - * representation of the data in a photo - * image.*/ - struct Tk_PhotoImageFormat *nextPtr; - /* Next in list of all photo image formats - * currently known. Filled in by Tk, not - * by image format handler. */ -}; - -EXTERN void Tk_CreateOldImageType _ANSI_ARGS_(( - Tk_ImageType *typePtr)); -EXTERN void Tk_CreateOldPhotoImageFormat _ANSI_ARGS_(( - Tk_PhotoImageFormat *formatPtr)); - -#if !defined(USE_TK_STUBS) && defined(USE_OLD_IMAGE) -#define Tk_CreateImageType Tk_CreateOldImageType -#define Tk_CreatePhotoImageFormat Tk_CreateOldPhotoImageFormat -#endif - - -/* - *-------------------------------------------------------------- - * - * Procedure prototypes and structures used for managing styles: - * - *-------------------------------------------------------------- - */ - -/* - * Style support version tag. - */ -#define TK_STYLE_VERSION_1 0x1 -#define TK_STYLE_VERSION TK_STYLE_VERSION_1 - -/* - * The following structures and prototypes are used as static templates to - * declare widget elements. - */ - -typedef void (Tk_GetElementSizeProc) _ANSI_ARGS_((ClientData clientData, - char *recordPtr, CONST Tk_OptionSpec **optionsPtr, Tk_Window tkwin, - int width, int height, int inner, int *widthPtr, int *heightPtr)); -typedef void (Tk_GetElementBoxProc) _ANSI_ARGS_((ClientData clientData, - char *recordPtr, CONST Tk_OptionSpec **optionsPtr, Tk_Window tkwin, - int x, int y, int width, int height, int inner, int *xPtr, int *yPtr, - int *widthPtr, int *heightPtr)); -typedef int (Tk_GetElementBorderWidthProc) _ANSI_ARGS_((ClientData clientData, - char *recordPtr, CONST Tk_OptionSpec **optionsPtr, Tk_Window tkwin)); -typedef void (Tk_DrawElementProc) _ANSI_ARGS_((ClientData clientData, - char *recordPtr, CONST Tk_OptionSpec **optionsPtr, Tk_Window tkwin, - Drawable d, int x, int y, int width, int height, int state)); - -typedef struct Tk_ElementOptionSpec { - char *name; /* Name of the required option. */ - Tk_OptionType type; /* Accepted option type. TK_OPTION_END means - * any. */ -} Tk_ElementOptionSpec; - -typedef struct Tk_ElementSpec { - int version; /* Version of the style support. */ - char *name; /* Name of element. */ - Tk_ElementOptionSpec *options; - /* List of required options. Last one's name - * must be NULL. */ - - /* - * Hooks - */ - - Tk_GetElementSizeProc *getSize; - /* Compute the external (resp. internal) size of - * the element from its desired internal (resp. - * external) size. */ - Tk_GetElementBoxProc *getBox; - /* Compute the inscribed or bounding boxes - * within a given area. */ - Tk_GetElementBorderWidthProc *getBorderWidth; - /* Return the element's internal border width. - * Mostly useful for widgets. */ - Tk_DrawElementProc *draw; /* Draw the element in the given bounding box.*/ -} Tk_ElementSpec; - -/* - * Element state flags. Can be OR'ed. - */ - -#define TK_ELEMENT_STATE_ACTIVE 1<<0 -#define TK_ELEMENT_STATE_DISABLED 1<<1 -#define TK_ELEMENT_STATE_FOCUS 1<<2 -#define TK_ELEMENT_STATE_PRESSED 1<<3 - -/* - *-------------------------------------------------------------- - * - * The definitions below provide backward compatibility for - * functions and types related to event handling that used to - * be in Tk but have moved to Tcl. - * - *-------------------------------------------------------------- - */ - -#if 0 - -#define TK_READABLE TCL_READABLE -#define TK_WRITABLE TCL_WRITABLE -#define TK_EXCEPTION TCL_EXCEPTION - -#define TK_DONT_WAIT TCL_DONT_WAIT -#define TK_X_EVENTS TCL_WINDOW_EVENTS -#define TK_WINDOW_EVENTS TCL_WINDOW_EVENTS -#define TK_FILE_EVENTS TCL_FILE_EVENTS -#define TK_TIMER_EVENTS TCL_TIMER_EVENTS -#define TK_IDLE_EVENTS TCL_IDLE_EVENTS -#define TK_ALL_EVENTS TCL_ALL_EVENTS - -#define Tk_IdleProc Tcl_IdleProc -#define Tk_FileProc Tcl_FileProc -#define Tk_TimerProc Tcl_TimerProc -#define Tk_TimerToken Tcl_TimerToken - -#define Tk_BackgroundError Tcl_BackgroundError -#define Tk_CancelIdleCall Tcl_CancelIdleCall -#define Tk_CreateFileHandler Tcl_CreateFileHandler -#define Tk_CreateTimerHandler Tcl_CreateTimerHandler -#define Tk_DeleteFileHandler Tcl_DeleteFileHandler -#define Tk_DeleteTimerHandler Tcl_DeleteTimerHandler -#define Tk_DoOneEvent Tcl_DoOneEvent -#define Tk_DoWhenIdle Tcl_DoWhenIdle -#define Tk_Sleep Tcl_Sleep - -/* Additional stuff that has moved to Tcl: */ - -#define Tk_EventuallyFree Tcl_EventuallyFree -#define Tk_FreeProc Tcl_FreeProc -#define Tk_Preserve Tcl_Preserve -#define Tk_Release Tcl_Release -#define Tk_FileeventCmd Tcl_FileEventCmd - -#endif - - -/* Removed Tk_Main, use macro instead */ -#define Tk_Main(argc, argv, proc) \ - Tk_MainEx(argc, argv, proc, Tcl_CreateInterp()) - -extern CONST char *Tk_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, char *version, int exact)); - -#ifndef USE_TK_STUBS - -#define Tk_InitStubs(interp, version, exact) \ - Tcl_PkgRequire(interp, "Tk", version, exact) - -#endif - -extern void Tk_InitImageArgs _ANSI_ARGS_((Tcl_Interp *interp, int argc, char ***objv)); - -#if !defined(USE_TK_STUBS) || !defined(USE_OLD_IMAGE) - -#define Tk_InitImageArgs(interp, argc, argv) /**/ - -#endif - - -/* - *-------------------------------------------------------------- - * - * Additional procedure types defined by Tk. - * - *-------------------------------------------------------------- - */ - -#define TK_EVENTTYPE_NONE 0 -#define TK_EVENTTYPE_STRING 1 -#define TK_EVENTTYPE_NUMBER 2 -#define TK_EVENTTYPE_WINDOW 3 -#define TK_EVENTTYPE_ATOM 4 -#define TK_EVENTTYPE_DISPLAY 5 -#define TK_EVENTTYPE_DATA 6 - -typedef int (Tk_ErrorProc) _ANSI_ARGS_((ClientData clientData, - XErrorEvent *errEventPtr)); -typedef void (Tk_EventProc) _ANSI_ARGS_((ClientData clientData, - XEvent *eventPtr)); -typedef int (Tk_GenericProc) _ANSI_ARGS_((ClientData clientData, - XEvent *eventPtr)); -typedef int (Tk_ClientMessageProc) _ANSI_ARGS_((Tk_Window tkwin, - XEvent *eventPtr)); -typedef int (Tk_GetSelProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, char *portion)); -typedef int (Tk_GetXSelProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, long *portion, int numValues, - int format, Atom type, Tk_Window tkwin)); -typedef void (Tk_LostSelProc) _ANSI_ARGS_((ClientData clientData)); -typedef Tk_RestrictAction (Tk_RestrictProc) _ANSI_ARGS_(( - ClientData clientData, XEvent *eventPtr)); -typedef int (Tk_SelectionProc) _ANSI_ARGS_((ClientData clientData, - int offset, char *buffer, int maxBytes)); - -typedef int (Tk_XSelectionProc) _ANSI_ARGS_((ClientData clientData, - int offset, long *buffer, int maxBytes, - Atom type, Tk_Window tkwin)); - - -typedef struct { - char *name; /* Name of command. */ - int (*cmdProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, - int argc, Tcl_Obj *CONST *objv)); - /* Command procedure. */ -} Tk_Cmd; - -/* - *-------------------------------------------------------------- - * - * Platform independant exported procedures and variables. - * - *-------------------------------------------------------------- - */ - -#include "tkDecls.h" - -/* - * Allow users to say that they don't want to alter their source to - * add the extra argument to Tk_PhotoPutBlock(); DO NOT DEFINE THIS - * WHEN BUILDING TK. - * - * This goes after the inclusion of the stubbed-decls so that the - * declarations of what is actually there can be correct. - */ - -#ifdef USE_COMPOSITELESS_PHOTO_PUT_BLOCK -# ifdef Tk_PhotoPutBlock -# undef Tk_PhotoPutBlock -# endif -# define Tk_PhotoPutBlock Tk_PhotoPutBlock_NoComposite -# ifdef Tk_PhotoPutZoomedBlock -# undef Tk_PhotoPutZoomedBlock -# endif -# define Tk_PhotoPutZoomedBlock Tk_PhotoPutZoomedBlock_NoComposite -#endif /* USE_COMPOSITELESS_PHOTO_PUT_BLOCK */ - -/* - * Tcl commands exported by Tk: - */ - -EXTERN Tcl_Command Lang_CreateWidget _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window, Tcl_ObjCmdProc *proc, - ClientData clientData, - Tcl_CmdDeleteProc *deleteProc)); - -EXTERN Tcl_Command Lang_CreateImage _ANSI_ARGS_((Tcl_Interp *interp, - char *cmdName, Tcl_ObjCmdProc *proc, - ClientData clientData, - Tcl_CmdDeleteProc *deleteProc, - Tk_ImageType *typePtr)); - -EXTERN void Lang_DeleteWidget _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Command cmd)); - -EXTERN void Tk_ChangeScreen _ANSI_ARGS_((Tcl_Interp *interp, - char *dispName, int screenIndex)); - -EXTERN Var LangFindVar _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window, CONST char *name)); - -EXTERN Tcl_Obj * LangWidgetObj _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window)); -EXTERN Tcl_Obj * LangFontObj _ANSI_ARGS_((Tcl_Interp *interp, Tk_Font font, char *name)); -EXTERN Tcl_Obj * LangObjectObj _ANSI_ARGS_((Tcl_Interp *interp, char *)); - -#define LangWidgetArg(interp,win) LangObjArg(LangWidgetObj(interp,win),__FILE__,__LINE__) -#define LangFontArg(interp,font,name) LangObjArg(LangFontObj(interp,font,name),__FILE__,__LINE__) -#define LangObjectArg(interp,name) LangObjArg(LangObjectObj(interp,name),__FILE__,__LINE__) - - -#ifndef NO_EXTERN -EXTERN void Lang_DeadMainWindow _ANSI_ARGS_((Tcl_Interp *, Tk_Window)); -EXTERN void Lang_NewMainWindow _ANSI_ARGS_((Tcl_Interp *, Tk_Window)); -EXTERN void LangDeadWindow _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window)); -EXTERN void LangClientMessage _ANSI_ARGS_((Tcl_Interp *interp,Tk_Window, XEvent *)); -EXTERN void LangSelectHook _ANSI_ARGS_((CONST char *what, Tk_Window tkwin, - Atom selection, Atom target, Atom type)); -#endif - -EXTERN int LangEventCallback _ANSI_ARGS_((ClientData, Tcl_Interp *,XEvent *,Tk_Window,KeySym)); -EXTERN int Tk_GetXSelection _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Atom selection, Atom target, - Tk_GetXSelProc *proc, ClientData clientData)); -EXTERN Tk_Window Tk_EventWindow _ANSI_ARGS_((XEvent *eventPtr)); -EXTERN char * Tk_EventInfo _ANSI_ARGS_((int letter, Tk_Window tkwin, XEvent *eventPtr, - KeySym keySym, int *numPtr, int *isNum, int *type, - int num_size, char *numStorage)); - -extern void LangCheckDC _ANSI_ARGS_((const char *file, int line)); - - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* RC_INVOKED */ - -/* - * end block for C++ - */ - -#ifdef __cplusplus -} -#endif - -#endif /* _TK */ - - - - - - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tk.m b/Master/tlpkg/tlperl/lib/Tk/pTk/tk.m deleted file mode 100644 index 202863eeef7..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tk.m +++ /dev/null @@ -1,94 +0,0 @@ -#ifndef _TK_VM -#define _TK_VM -#include "tk_f.h" -#ifndef NO_VTABLES -#ifndef LangCheckDC -# define LangCheckDC (*TkVptr->V_LangCheckDC) -#endif - -#ifndef LangEventCallback -# define LangEventCallback (*TkVptr->V_LangEventCallback) -#endif - -#ifndef LangFindVar -# define LangFindVar (*TkVptr->V_LangFindVar) -#endif - -#ifndef LangFontObj -# define LangFontObj (*TkVptr->V_LangFontObj) -#endif - -#ifndef LangObjectObj -# define LangObjectObj (*TkVptr->V_LangObjectObj) -#endif - -#ifndef LangSelectHook -# define LangSelectHook (*TkVptr->V_LangSelectHook) -#endif - -#ifndef LangWidgetObj -# define LangWidgetObj (*TkVptr->V_LangWidgetObj) -#endif - -#ifndef Lang_CreateImage -# define Lang_CreateImage (*TkVptr->V_Lang_CreateImage) -#endif - -#ifndef Lang_CreateWidget -# define Lang_CreateWidget (*TkVptr->V_Lang_CreateWidget) -#endif - -#ifndef Lang_DeleteWidget -# define Lang_DeleteWidget (*TkVptr->V_Lang_DeleteWidget) -#endif - -#ifndef Tk_ChangeScreen -# define Tk_ChangeScreen (*TkVptr->V_Tk_ChangeScreen) -#endif - -#ifndef Tk_CreateOldImageType -# define Tk_CreateOldImageType (*TkVptr->V_Tk_CreateOldImageType) -#endif - -#ifndef Tk_EventInfo -# define Tk_EventInfo (*TkVptr->V_Tk_EventInfo) -#endif - -#ifndef Tk_EventWindow -# define Tk_EventWindow (*TkVptr->V_Tk_EventWindow) -#endif - -#ifndef Tk_FreeTile -# define Tk_FreeTile (*TkVptr->V_Tk_FreeTile) -#endif - -#ifndef Tk_GetTile -# define Tk_GetTile (*TkVptr->V_Tk_GetTile) -#endif - -#ifndef Tk_GetXSelection -# define Tk_GetXSelection (*TkVptr->V_Tk_GetXSelection) -#endif - -#ifndef Tk_InitImageArgs -# define Tk_InitImageArgs (*TkVptr->V_Tk_InitImageArgs) -#endif - -#ifndef Tk_NameOfTile -# define Tk_NameOfTile (*TkVptr->V_Tk_NameOfTile) -#endif - -#ifndef Tk_PixmapOfTile -# define Tk_PixmapOfTile (*TkVptr->V_Tk_PixmapOfTile) -#endif - -#ifndef Tk_SetTileChangedProc -# define Tk_SetTileChangedProc (*TkVptr->V_Tk_SetTileChangedProc) -#endif - -#ifndef Tk_SizeOfTile -# define Tk_SizeOfTile (*TkVptr->V_Tk_SizeOfTile) -#endif - -#endif /* NO_VTABLES */ -#endif /* _TK_VM */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tk.t b/Master/tlpkg/tlperl/lib/Tk/pTk/tk.t deleted file mode 100644 index 18c40ef81c5..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tk.t +++ /dev/null @@ -1,151 +0,0 @@ -#ifdef _TK
-#ifndef LangCheckDC
-#ifndef RC_INVOKED
-VFUNC(void,LangCheckDC,V_LangCheckDC,_ANSI_ARGS_((const char *file, int line)))
-#endif /* #ifndef RC_INVOKED */
-#endif /* #ifndef LangCheckDC */
-
-#ifndef LangEventCallback
-#ifndef RC_INVOKED
-VFUNC(int,LangEventCallback,V_LangEventCallback,_ANSI_ARGS_((ClientData, Tcl_Interp *,XEvent *,Tk_Window,KeySym)))
-#endif /* #ifndef RC_INVOKED */
-#endif /* #ifndef LangEventCallback */
-
-#ifndef LangFindVar
-#ifndef RC_INVOKED
-VFUNC(Var,LangFindVar,V_LangFindVar,_ANSI_ARGS_((Tcl_Interp * interp, Tk_Window, CONST char *name)))
-#endif /* #ifndef RC_INVOKED */
-#endif /* #ifndef LangFindVar */
-
-#ifndef LangFontObj
-#ifndef RC_INVOKED
-VFUNC(Tcl_Obj *,LangFontObj,V_LangFontObj,_ANSI_ARGS_((Tcl_Interp *interp, Tk_Font font, char *name)))
-#endif /* #ifndef RC_INVOKED */
-#endif /* #ifndef LangFontObj */
-
-#ifndef LangObjectObj
-#ifndef RC_INVOKED
-VFUNC(Tcl_Obj *,LangObjectObj,V_LangObjectObj,_ANSI_ARGS_((Tcl_Interp *interp, char *)))
-#endif /* #ifndef RC_INVOKED */
-#endif /* #ifndef LangObjectObj */
-
-#ifndef LangSelectHook
-#ifndef NO_EXTERN
-VFUNC(void,LangSelectHook,V_LangSelectHook,_ANSI_ARGS_((CONST char *what, Tk_Window tkwin,
- Atom selection, Atom target, Atom type)))
-#endif /* #ifndef NO_EXTERN */
-#endif /* #ifndef LangSelectHook */
-
-#ifndef LangWidgetObj
-#ifndef RC_INVOKED
-VFUNC(Tcl_Obj *,LangWidgetObj,V_LangWidgetObj,_ANSI_ARGS_((Tcl_Interp *interp, Tk_Window)))
-#endif /* #ifndef RC_INVOKED */
-#endif /* #ifndef LangWidgetObj */
-
-#ifndef Lang_CreateImage
-#ifndef RC_INVOKED
-VFUNC(Tcl_Command,Lang_CreateImage,V_Lang_CreateImage,_ANSI_ARGS_((Tcl_Interp *interp,
- char *cmdName, Tcl_ObjCmdProc *proc,
- ClientData clientData,
- Tcl_CmdDeleteProc *deleteProc,
- Tk_ImageType *typePtr)))
-#endif /* #ifndef RC_INVOKED */
-#endif /* #ifndef Lang_CreateImage */
-
-#ifndef Lang_CreateWidget
-#ifndef RC_INVOKED
-VFUNC(Tcl_Command,Lang_CreateWidget,V_Lang_CreateWidget,_ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window, Tcl_ObjCmdProc *proc,
- ClientData clientData,
- Tcl_CmdDeleteProc *deleteProc)))
-#endif /* #ifndef RC_INVOKED */
-#endif /* #ifndef Lang_CreateWidget */
-
-#ifndef Lang_DeleteWidget
-#ifndef RC_INVOKED
-VFUNC(void,Lang_DeleteWidget,V_Lang_DeleteWidget,_ANSI_ARGS_((Tcl_Interp *interp, Tcl_Command cmd)))
-#endif /* #ifndef RC_INVOKED */
-#endif /* #ifndef Lang_DeleteWidget */
-
-#ifndef Tk_ChangeScreen
-#ifndef RC_INVOKED
-VFUNC(void,Tk_ChangeScreen,V_Tk_ChangeScreen,_ANSI_ARGS_((Tcl_Interp *interp,
- char *dispName, int screenIndex)))
-#endif /* #ifndef RC_INVOKED */
-#endif /* #ifndef Tk_ChangeScreen */
-
-#ifndef Tk_CreateOldImageType
-#ifndef RC_INVOKED
-VFUNC(void,Tk_CreateOldImageType,V_Tk_CreateOldImageType,_ANSI_ARGS_((
- Tk_ImageType *typePtr)))
-#endif /* #ifndef RC_INVOKED */
-#endif /* #ifndef Tk_CreateOldImageType */
-
-#ifndef Tk_EventInfo
-#ifndef RC_INVOKED
-VFUNC(char *,Tk_EventInfo,V_Tk_EventInfo,_ANSI_ARGS_((int letter, Tk_Window tkwin, XEvent *eventPtr,
- KeySym keySym, int *numPtr, int *isNum, int *type,
- int num_size, char *numStorage)))
-#endif /* #ifndef RC_INVOKED */
-#endif /* #ifndef Tk_EventInfo */
-
-#ifndef Tk_EventWindow
-#ifndef RC_INVOKED
-VFUNC(Tk_Window,Tk_EventWindow,V_Tk_EventWindow,_ANSI_ARGS_((XEvent *eventPtr)))
-#endif /* #ifndef RC_INVOKED */
-#endif /* #ifndef Tk_EventWindow */
-
-#ifndef Tk_FreeTile
-#ifndef RC_INVOKED
-VFUNC(void,Tk_FreeTile,V_Tk_FreeTile,_ANSI_ARGS_((Tk_Tile tile)))
-#endif /* #ifndef RC_INVOKED */
-#endif /* #ifndef Tk_FreeTile */
-
-#ifndef Tk_GetTile
-#ifndef RC_INVOKED
-VFUNC(Tk_Tile,Tk_GetTile,V_Tk_GetTile,_ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin,
- CONST char *imageName)))
-#endif /* #ifndef RC_INVOKED */
-#endif /* #ifndef Tk_GetTile */
-
-#ifndef Tk_GetXSelection
-#ifndef RC_INVOKED
-VFUNC(int,Tk_GetXSelection,V_Tk_GetXSelection,_ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, Atom selection, Atom target,
- Tk_GetXSelProc *proc, ClientData clientData)))
-#endif /* #ifndef RC_INVOKED */
-#endif /* #ifndef Tk_GetXSelection */
-
-#ifndef Tk_InitImageArgs
-#ifndef RC_INVOKED
-VFUNC(void,Tk_InitImageArgs,V_Tk_InitImageArgs,_ANSI_ARGS_((Tcl_Interp *interp, int argc, char ***objv)))
-#endif /* #ifndef RC_INVOKED */
-#endif /* #ifndef Tk_InitImageArgs */
-
-#ifndef Tk_NameOfTile
-#ifndef RC_INVOKED
-VFUNC(CONST char *,Tk_NameOfTile,V_Tk_NameOfTile,_ANSI_ARGS_((Tk_Tile tile)))
-#endif /* #ifndef RC_INVOKED */
-#endif /* #ifndef Tk_NameOfTile */
-
-#ifndef Tk_PixmapOfTile
-#ifndef RC_INVOKED
-VFUNC(Pixmap,Tk_PixmapOfTile,V_Tk_PixmapOfTile,_ANSI_ARGS_((Tk_Tile tile)))
-#endif /* #ifndef RC_INVOKED */
-#endif /* #ifndef Tk_PixmapOfTile */
-
-#ifndef Tk_SetTileChangedProc
-#ifndef RC_INVOKED
-VFUNC(void,Tk_SetTileChangedProc,V_Tk_SetTileChangedProc,_ANSI_ARGS_((Tk_Tile tile,
- Tk_TileChangedProc * changeProc, ClientData clientData)))
-#endif /* #ifndef RC_INVOKED */
-#endif /* #ifndef Tk_SetTileChangedProc */
-
-#ifndef Tk_SizeOfTile
-#ifndef RC_INVOKED
-VFUNC(void,Tk_SizeOfTile,V_Tk_SizeOfTile,_ANSI_ARGS_((Tk_Tile tile, int *widthPtr,
- int *heightPtr)))
-#endif /* #ifndef RC_INVOKED */
-#endif /* #ifndef Tk_SizeOfTile */
-
-#endif /* _TK */
diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tk3d.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tk3d.h deleted file mode 100644 index f7b89114068..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tk3d.h +++ /dev/null @@ -1,102 +0,0 @@ -/* - * tk3d.h -- - * - * Declarations of types and functions shared by the 3d border - * module. - * - * Copyright (c) 1996-1997 by Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tk3d.h,v 1.5 1999/04/16 01:51:10 stanton Exp $ - */ - -#ifndef _TK3D -#define _TK3D - -#include "tkInt.h" - -#ifdef BUILD_tk -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * One of the following data structures is allocated for each 3-D border - * currently in use. Structures of this type are indexed by - * borderTable, so that a single structure can be shared for several - * uses. - */ - -typedef struct TkBorder { - Screen *screen; /* Screen on which the border will be used. */ - Visual *visual; /* Visual for all windows and pixmaps using - * the border. */ - int depth; /* Number of bits per pixel of drawables where - * the border will be used. */ - Colormap colormap; /* Colormap out of which pixels are - * allocated. */ - int resourceRefCount; /* Number of active uses of this color (each - * active use corresponds to a call to - * Tk_Alloc3DBorderFromObj or Tk_Get3DBorder). - * If this count is 0, then this structure - * is no longer valid and it isn't present - * in borderTable: it is being kept around - * only because there are objects referring - * to it. The structure is freed when - * resourceRefCount and objRefCount are - * both 0. */ - int objRefCount; /* The number of Tcl objects that reference - * this structure. */ - XColor *bgColorPtr; /* Background color (intensity - * between lightColorPtr and - * darkColorPtr). */ - XColor *darkColorPtr; /* Color for darker areas (must free when - * deleting structure). NULL means shadows - * haven't been allocated yet.*/ - XColor *lightColorPtr; /* Color used for lighter areas of border - * (must free this when deleting structure). - * NULL means shadows haven't been allocated - * yet. */ - Pixmap shadow; /* Stipple pattern to use for drawing - * shadows areas. Used for displays with - * <= 64 colors or where colormap has filled - * up. */ - GC bgGC; /* Used (if necessary) to draw areas in - * the background color. */ - GC darkGC; /* Used to draw darker parts of the - * border. None means the shadow colors - * haven't been allocated yet.*/ - GC lightGC; /* Used to draw lighter parts of - * the border. None means the shadow colors - * haven't been allocated yet. */ - Tcl_HashEntry *hashPtr; /* Entry in borderTable (needed in - * order to delete structure). */ - struct TkBorder *nextPtr; /* Points to the next TkBorder structure with - * the same color name. Borders with the - * same name but different screens or - * colormaps are chained together off a - * single entry in borderTable. */ -} TkBorder; - - -/* - * Maximum intensity for a color: - */ - -#define MAX_INTENSITY 65535 - -/* - * Declarations for platform specific interfaces used by this module. - */ - -EXTERN TkBorder * TkpGetBorder _ANSI_ARGS_((void)); -EXTERN void TkpGetShadows _ANSI_ARGS_((TkBorder *borderPtr, - Tk_Window tkwin)); -EXTERN void TkpFreeBorder _ANSI_ARGS_((TkBorder *borderPtr)); - -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TK3D */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkButton.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkButton.h deleted file mode 100644 index e75742e6beb..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkButton.h +++ /dev/null @@ -1,320 +0,0 @@ -/* - * tkButton.h -- - * - * Declarations of types and functions used to implement - * button-like widgets. - * - * Copyright (c) 1996-1998 by Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkButton.h,v 1.9.2.1 2003/04/26 02:53:46 hobbs Exp $ - */ - -#ifndef _TKBUTTON -#define _TKBUTTON - -#ifndef _TKINT -#include "tkInt.h" -#endif - -#ifdef BUILD_tk -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * Legal values for the "compound" field of TkButton records. - */ - -enum compound { - COMPOUND_BOTTOM, COMPOUND_CENTER, COMPOUND_LEFT, COMPOUND_NONE, - COMPOUND_RIGHT, COMPOUND_TOP -}; - -/* - * Legal values for the "state" field of TkButton records. - */ - -enum state { - STATE_ACTIVE, STATE_DISABLED, STATE_NORMAL -}; - -/* - * Legal values for the "defaultState" field of TkButton records. - */ - -enum defaultState { - DEFAULT_ACTIVE, DEFAULT_DISABLED, DEFAULT_NORMAL -}; - -/* - * A data structure of the following type is kept for each - * widget managed by this file: - */ - -typedef struct { - Tk_Window tkwin; /* Window that embodies the button. NULL - * means that the window has been destroyed. */ - Display *display; /* Display containing widget. Needed to - * free up resources after tkwin is gone. */ - Tcl_Interp *interp; /* Interpreter associated with button. */ - Tcl_Command widgetCmd; /* Token for button's widget command. */ - int type; /* Type of widget, such as TYPE_LABEL: - * restricts operations that may be performed - * on widget. See below for legal values. */ - Tk_OptionTable optionTable; /* Table that defines configuration options - * available for this widget. */ - - /* - * Information about what's in the button. - */ - - Tcl_Obj *textPtr; /* Value of -text option: specifies text to - * display in button. */ - int underline; /* Value of -underline option: specifies - * index of character to underline. < 0 means - * don't underline anything. */ - Tcl_Obj *textVarNamePtr; /* Value of -textvariable option: specifies - * name of variable or NULL. If non-NULL, - * button displays the contents of this - * variable. */ - Pixmap bitmap; /* Value of -bitmap option. If not None, - * specifies bitmap to display and text and - * textVar are ignored. */ - Tcl_Obj *imagePtr; /* Value of -image option: specifies image - * to display in window, or NULL if none. - * If non-NULL, bitmap, text, and textVarName - * are ignored.*/ - Tk_Image image; /* Derived from imagePtr by calling - * Tk_GetImage, or NULL if imagePtr is NULL. */ - Tcl_Obj *selectImagePtr; /* Value of -selectimage option: specifies - * image to display in window when selected, - * or NULL if none. Ignored if imagePtr is - * NULL. */ - Tk_Image selectImage; /* Derived from selectImagePtr by calling - * Tk_GetImage, or NULL if selectImagePtr - * is NULL. */ - - /* - * Information used when displaying widget: - */ - - enum state state; /* Value of -state option: specifies - * state of button for display purposes.*/ - Tk_3DBorder normalBorder; /* Value of -background option: specifies - * color for background (and border) when - * window isn't active. */ - Tk_3DBorder activeBorder; /* Value of -activebackground option: - * this is the color used to draw 3-D border - * and background when widget is active. */ - Tcl_Obj *borderWidthPtr; /* Value of -borderWidth option: specifies - * width of border in pixels. */ - int borderWidth; /* Integer value corresponding to - * borderWidthPtr. Always >= 0. */ - int relief; /* Value of -relief option: specifies 3-d - * effect for border, such as - * TK_RELIEF_RAISED. */ - int overRelief; /* Value of -overrelief option: specifies a 3-d - * effect for the border, such as - * TK_RELIEF_RAISED, to be used when the mouse - * is over the button. */ - int offRelief; /* Value of -offrelief option: specifies a 3-d - * effect for the border, such as - * TK_RELIEF_RAISED, to be used when a - * checkbutton or radiobutton without - * indicator is off */ - Tcl_Obj *highlightWidthPtr; /* Value of -highlightthickness option: - * specifies width in pixels of highlight to - * draw around widget when it has the focus. - * <= 0 means don't draw a highlight. */ - int highlightWidth; /* Integer value corresponding to - * highlightWidthPtr. Always >= 0. */ - Tk_3DBorder highlightBorder;/* Value of -highlightbackground option: - * specifies background with which to draw 3-D - * default ring and focus highlight area when - * highlight is off. */ - XColor *highlightColorPtr; /* Value of -highlightcolor option: - * specifies color for drawing traversal - * highlight. */ - int inset; /* Total width of all borders, including - * traversal highlight and 3-D border. - * Indicates how much interior stuff must - * be offset from outside edges to leave - * room for borders. */ - Tk_Font tkfont; /* Value of -font option: specifies font - * to use for display text. */ - XColor *normalFg; /* Value of -font option: specifies foreground - * color in normal mode. */ - XColor *activeFg; /* Value of -activeforeground option: - * foreground color in active mode. NULL - * means use -foreground instead. */ - XColor *disabledFg; /* Value of -disabledforeground option: - * foreground color when disabled. NULL - * means use normalFg with a 50% stipple - * instead. */ - GC normalTextGC; /* GC for drawing text in normal mode. Also - * used to copy from off-screen pixmap onto - * screen. */ - GC activeTextGC; /* GC for drawing text in active mode (NULL - * means use normalTextGC). */ - GC disabledGC; /* Used to produce disabled effect for text - * and check/radio marks. */ - GC stippleGC; /* Used to produce disabled stipple effect - * for images when disabled. */ - Pixmap gray; /* Pixmap for displaying disabled text if - * disabledFg is NULL. */ - GC copyGC; /* Used for copying information from an - * off-screen pixmap to the screen. */ - Tcl_Obj *widthPtr; /* Value of -width option. */ - int width; /* Integer value corresponding to widthPtr. */ - Tcl_Obj *heightPtr; /* Value of -height option. */ - int height; /* Integer value corresponding to heightPtr. */ - Tcl_Obj *wrapLengthPtr; /* Value of -wraplength option: specifies - * line length (in pixels) at which to wrap - * onto next line. <= 0 means don't wrap - * except at newlines. */ - int wrapLength; /* Integer value corresponding to - * wrapLengthPtr. */ - Tcl_Obj *padXPtr; /* Value of -padx option: specifies how many - * pixels of extra space to leave on left and - * right of text. Ignored for bitmaps and - * images. */ - int padX; /* Integer value corresponding to padXPtr. */ - Tcl_Obj *padYPtr; /* Value of -padx option: specifies how many - * pixels of extra space to leave above and - * below text. Ignored for bitmaps and - * images. */ - int padY; /* Integer value corresponding to padYPtr. */ - Tk_Anchor anchor; /* Value of -anchor option: specifies where - * text/bitmap should be displayed inside - * button region. */ - Tk_Justify justify; /* Value of -justify option: specifies how - * to align lines of multi-line text. */ - int indicatorOn; /* Value of -indicatoron option: 1 means - * draw indicator in checkbuttons and - * radiobuttons, 0 means don't draw it. */ - Tk_3DBorder selectBorder; /* Value of -selectcolor option: specifies - * color for drawing indicator background, or - * perhaps widget background, when selected. */ - int textWidth; /* Width needed to display text as requested, - * in pixels. */ - int textHeight; /* Height needed to display text as requested, - * in pixels. */ - Tk_TextLayout textLayout; /* Saved text layout information. */ - int indicatorSpace; /* Horizontal space (in pixels) allocated for - * display of indicator. */ - int indicatorDiameter; /* Diameter of indicator, in pixels. */ - enum defaultState defaultState; - /* Value of -default option, such as - * DEFAULT_NORMAL: specifies state - * of default ring for buttons (normal, - * active, or disabled). NULL for other - * classes. */ - - /* - * For check and radio buttons, the fields below are used - * to manage the variable indicating the button's state. - */ - - Tcl_Obj *selVarNamePtr; /* Value of -variable option: specifies name - * of variable used to control selected - * state of button. */ - Tcl_Obj *onValuePtr; /* Value of -offvalue option: specifies value - * to store in variable when this button is - * selected. */ - Tcl_Obj *offValuePtr; /* Value of -offvalue option: specifies value - * to store in variable when this button - * isn't selected. Used only by - * checkbuttons. */ - - /* - * Miscellaneous information: - */ - - Tk_Cursor cursor; /* Value of -cursor option: if not None, - * specifies current cursor for window. */ - Tcl_Obj *takeFocusPtr; /* Value of -takefocus option; not used in - * the C code, but used by keyboard traversal - * scripts. */ - Tcl_Obj *commandPtr; /* Value of -command option: specifies script - * to execute when button is invoked. If - * widget is label or has no command, this - * is NULL. */ - int compound; /* Value of -compound option; specifies whether - * the button should show both an image and - * text, and, if so, how. */ - int repeatDelay; /* Value of -repeatdelay option; specifies - * the number of ms after which the button will - * start to auto-repeat its command. */ - int repeatInterval; /* Value of -repeatinterval option; specifies - * the number of ms between auto-repeat - * invocataions of the button command. */ - int flags; /* Various flags; see below for - * definitions. */ -} TkButton; - -/* - * Possible "type" values for buttons. These are the kinds of - * widgets supported by this file. The ordering of the type - * numbers is significant: greater means more features and is - * used in the code. - */ - -#define TYPE_LABEL 0 -#define TYPE_BUTTON 1 -#define TYPE_CHECK_BUTTON 2 -#define TYPE_RADIO_BUTTON 3 - -/* - * Flag bits for buttons: - * - * REDRAW_PENDING: Non-zero means a DoWhenIdle handler - * has already been queued to redraw - * this window. - * SELECTED: Non-zero means this button is selected, - * so special highlight should be drawn. - * GOT_FOCUS: Non-zero means this button currently - * has the input focus. - * BUTTON_DELETED: Non-zero needs that this button has been - * deleted, or is in the process of being - * deleted. - */ - -#define REDRAW_PENDING (1 << 0) -#define SELECTED (1 << 1) -#define GOT_FOCUS (1 << 2) -#define BUTTON_DELETED (1 << 3) -/* - * Declaration of variables shared between the files in the button module. - */ - -extern Tk_ClassProcs tkpButtonProcs; - -/* - * Declaration of procedures used in the implementation of the button - * widget. - */ - -#ifndef TkpButtonSetDefaults -EXTERN void TkpButtonSetDefaults _ANSI_ARGS_(( - Tk_OptionSpec *specPtr)); -#endif -EXTERN void TkButtonWorldChanged _ANSI_ARGS_(( - ClientData instanceData)); -EXTERN void TkpComputeButtonGeometry _ANSI_ARGS_(( - TkButton *butPtr)); -EXTERN TkButton * TkpCreateButton _ANSI_ARGS_((Tk_Window tkwin)); -#ifndef TkpDestroyButton -EXTERN void TkpDestroyButton _ANSI_ARGS_((TkButton *butPtr)); -#endif -#ifndef TkpDisplayButton -EXTERN void TkpDisplayButton _ANSI_ARGS_((ClientData clientData)); -#endif -EXTERN int TkInvokeButton _ANSI_ARGS_((TkButton *butPtr)); - -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKBUTTON */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkCanvas.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkCanvas.h deleted file mode 100644 index 6b033bf63fc..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkCanvas.h +++ /dev/null @@ -1,334 +0,0 @@ -/* - * tkCanvas.h -- - * - * Declarations shared among all the files that implement - * canvas widgets. - * - * Copyright (c) 1991-1994 The Regents of the University of California. - * Copyright (c) 1994-1995 Sun Microsystems, Inc. - * Copyright (c) 1998 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkCanvas.h,v 1.7 2003/01/08 23:02:33 drh Exp $ - */ - -#ifndef _TKCANVAS -#define _TKCANVAS - -#ifndef _TK -#include "tk.h" -#endif - -#ifndef USE_OLD_TAG_SEARCH -typedef struct TagSearchExpr_s TagSearchExpr; - -struct TagSearchExpr_s { - TagSearchExpr *next; /* for linked lists of expressions - used in bindings */ - Tk_Uid uid; /* the uid of the whole expression */ - Tk_Uid *uids; /* expresion compiled to an array of uids */ - int allocated; /* available space for array of uids */ - int length; /* length of expression */ - int index; /* current position in expression evaluation */ - int match; /* this expression matches event's item's tags*/ -}; -#endif /* not USE_OLD_TAG_SEARCH */ - -/* - * The record below describes a canvas widget. It is made available - * to the item procedures so they can access certain shared fields such - * as the overall displacement and scale factor for the canvas. - */ - -typedef struct TkCanvas { - Tk_Window tkwin; /* Window that embodies the canvas. NULL - * means that the window has been destroyed - * but the data structures haven't yet been - * cleaned up.*/ - Display *display; /* Display containing widget; needed, among - * other things, to release resources after - * tkwin has already gone away. */ - Tcl_Interp *interp; /* Interpreter associated with canvas. */ - Tcl_Command widgetCmd; /* Token for canvas's widget command. */ - Tk_Item *firstItemPtr; /* First in list of all items in canvas, - * or NULL if canvas empty. */ - Tk_Item *lastItemPtr; /* Last in list of all items in canvas, - * or NULL if canvas empty. */ - - /* - * Information used when displaying widget: - */ - - int borderWidth; /* Width of 3-D border around window. */ - Tk_3DBorder bgBorder; /* Used for canvas background. */ - int relief; /* Indicates whether window as a whole is - * raised, sunken, or flat. */ - int highlightWidth; /* Width in pixels of highlight to draw - * around widget when it has the focus. - * <= 0 means don't draw a highlight. */ - XColor *highlightBgColorPtr; - /* Color for drawing traversal highlight - * area when highlight is off. */ - XColor *highlightColorPtr; /* Color for drawing traversal highlight. */ - int inset; /* Total width of all borders, including - * traversal highlight and 3-D border. - * Indicates how much interior stuff must - * be offset from outside edges to leave - * room for borders. */ - GC pixmapGC; /* Used to copy bits from a pixmap to the - * screen and also to clear the pixmap. */ - int width, height; /* Dimensions to request for canvas window, - * specified in pixels. */ - int redrawX1, redrawY1; /* Upper left corner of area to redraw, - * in pixel coordinates. Border pixels - * are included. Only valid if - * REDRAW_PENDING flag is set. */ - int redrawX2, redrawY2; /* Lower right corner of area to redraw, - * in integer canvas coordinates. Border - * pixels will *not* be redrawn. */ - int confine; /* Non-zero means constrain view to keep - * as much of canvas visible as possible. */ - - /* - * Information used to manage the selection and insertion cursor: - */ - - Tk_CanvasTextInfo textInfo; /* Contains lots of fields; see tk.h for - * details. This structure is shared with - * the code that implements individual items. */ - int insertOnTime; /* Number of milliseconds cursor should spend - * in "on" state for each blink. */ - int insertOffTime; /* Number of milliseconds cursor should spend - * in "off" state for each blink. */ - Tcl_TimerToken insertBlinkHandler; - /* Timer handler used to blink cursor on and - * off. */ - - /* - * Transformation applied to canvas as a whole: to compute screen - * coordinates (X,Y) from canvas coordinates (x,y), do the following: - * - * X = x - xOrigin; - * Y = y - yOrigin; - */ - - int xOrigin, yOrigin; /* Canvas coordinates corresponding to - * upper-left corner of window, given in - * canvas pixel units. */ - int drawableXOrigin, drawableYOrigin; - /* During redisplay, these fields give the - * canvas coordinates corresponding to - * the upper-left corner of the drawable - * where items are actually being drawn - * (typically a pixmap smaller than the - * whole window). */ - - /* - * Information used for event bindings associated with items. - */ - - Tk_BindingTable bindingTable; - /* Table of all bindings currently defined - * for this canvas. NULL means that no - * bindings exist, so the table hasn't been - * created. Each "object" used for this - * table is either a Tk_Uid for a tag or - * the address of an item named by id. */ - Tk_Item *currentItemPtr; /* The item currently containing the mouse - * pointer, or NULL if none. */ - Tk_Item *newCurrentPtr; /* The item that is about to become the - * current one, or NULL. This field is - * used to detect deletions of the new - * current item pointer that occur during - * Leave processing of the previous current - * item. */ - double closeEnough; /* The mouse is assumed to be inside an - * item if it is this close to it. */ - XEvent pickEvent; /* The event upon which the current choice - * of currentItem is based. Must be saved - * so that if the currentItem is deleted, - * can pick another. */ - int state; /* Last known modifier state. Used to - * defer picking a new current object - * while buttons are down. */ - - /* - * Information used for managing scrollbars: - */ - - LangCallback *xScrollCmd; /* Command prefix for communicating with - * horizontal scrollbar. NULL means no - * horizontal scrollbar. Malloc'ed*/ - LangCallback *yScrollCmd; /* Command prefix for communicating with - * vertical scrollbar. NULL means no - * vertical scrollbar. Malloc'ed*/ - int scrollX1, scrollY1, scrollX2, scrollY2; - /* These four coordinates define the region - * that is the 100% area for scrolling (i.e. - * these numbers determine the size and - * location of the sliders on scrollbars). - * Units are pixels in canvas coords. */ - Tcl_Obj * regionArg; /* The option string from which scrollX1 - * etc. are derived. Malloc'ed. */ - int xScrollIncrement; /* If >0, defines a grid for horizontal - * scrolling. This is the size of the "unit", - * and the left edge of the screen will always - * lie on an even unit boundary. */ - int yScrollIncrement; /* If >0, defines a grid for horizontal - * scrolling. This is the size of the "unit", - * and the left edge of the screen will always - * lie on an even unit boundary. */ - - /* - * Information used for scanning: - */ - - int scanX; /* X-position at which scan started (e.g. - * button was pressed here). */ - int scanXOrigin; /* Value of xOrigin field when scan started. */ - int scanY; /* Y-position at which scan started (e.g. - * button was pressed here). */ - int scanYOrigin; /* Value of yOrigin field when scan started. */ - - /* - * Information used to speed up searches by remembering the last item - * created or found with an item id search. - */ - - Tk_Item *hotPtr; /* Pointer to "hot" item (one that's been - * recently used. NULL means there's no - * hot item. */ - Tk_Item *hotPrevPtr; /* Pointer to predecessor to hotPtr (NULL - * means item is first in list). This is - * only a hint and may not really be hotPtr's - * predecessor. */ - - /* - * Miscellaneous information: - */ - - Tk_Cursor cursor; /* Current cursor for window, or None. */ - char *takeFocus; /* Value of -takefocus option; not used in - * the C code, but used by keyboard traversal - * scripts. Malloc'ed, but may be NULL. */ - double pixelsPerMM; /* Scale factor between MM and pixels; - * used when converting coordinates. */ - int flags; /* Various flags; see below for - * definitions. */ - int nextId; /* Number to use as id for next item - * created in widget. */ - Tk_PostscriptInfo psInfo; - /* Pointer to information used for generating - * Postscript for the canvas. NULL means - * no Postscript is currently being - * generated. */ - Tcl_HashTable idTable; /* Table of integer indices. */ - /* - * Additional information, added by the 'dash'-patch - */ - Tk_State canvas_state; /* state of canvas */ - Tk_Tile tile; - Tk_Tile disabledTile; - Tk_TSOffset tsoffset; -#ifndef USE_OLD_TAG_SEARCH - TagSearchExpr *bindTagExprs; /* linked list of tag expressions used in bindings */ -#endif - /* pTk additions */ - Tk_Item *activeGroup; /* Which group item is active */ - Tcl_Obj *updateCmds; -} TkCanvas; - -/* - * Flag bits for canvases: - * - * REDRAW_PENDING - 1 means a DoWhenIdle handler has already - * been created to redraw some or all of the - * canvas. - * REDRAW_BORDERS - 1 means that the borders need to be redrawn - * during the next redisplay operation. - * REPICK_NEEDED - 1 means DisplayCanvas should pick a new - * current item before redrawing the canvas. - * GOT_FOCUS - 1 means the focus is currently in this - * widget, so should draw the insertion cursor - * and traversal highlight. - * CURSOR_ON - 1 means the insertion cursor is in the "on" - * phase of its blink cycle. 0 means either - * we don't have the focus or the cursor is in - * the "off" phase of its cycle. - * UPDATE_SCROLLBARS - 1 means the scrollbars should get updated - * as part of the next display operation. - * LEFT_GRABBED_ITEM - 1 means that the mouse left the current - * item while a grab was in effect, so we - * didn't change canvasPtr->currentItemPtr. - * REPICK_IN_PROGRESS - 1 means PickCurrentItem is currently - * executing. If it should be called recursively, - * it should simply return immediately. - * BBOX_NOT_EMPTY - 1 means that the bounding box of the area - * that should be redrawn is not empty. - */ - -#define REDRAW_PENDING 1 -#define REDRAW_BORDERS 2 -#define REPICK_NEEDED 4 -#define GOT_FOCUS 8 -#define CURSOR_ON 0x10 -#define UPDATE_SCROLLBARS 0x20 -#define LEFT_GRABBED_ITEM 0x40 -#define REPICK_IN_PROGRESS 0x100 -#define BBOX_NOT_EMPTY 0x200 - -/* - * Flag bits for canvas items (redraw_flags): - * - * FORCE_REDRAW - 1 means that the new coordinates of some - * item are not yet registered using - * Tk_CanvasEventuallyRedraw(). It should still - * be done by the general canvas code. - */ - -#define FORCE_REDRAW 8 -#define NEEDS_DISPLAY 16 - -/* - * Canvas-related procedures that are shared among Tk modules but not - * exported to the outside world: - */ - -extern int TkCanvPostscriptCmd _ANSI_ARGS_((TkCanvas *canvasPtr, - Tcl_Interp *interp, int argc, CONST84 Tcl_Obj *CONST *objv)); - -/* - * Other procedures that are shared among Tk canvas modules but not exported - * to the outside world: - */ -extern int TkCanvTranslatePath _ANSI_ARGS_((TkCanvas *canvPtr, - int numVertex, double *coordPtr, int closed, - XPoint *outPtr)); - - -#define Tk_CanvasActiveGroup(canvas) ((TkCanvas *) (canvas))->activeGroup - -#define Tk_CanvasGroupHidden(canvas,itemPtr) ( \ - ( Tk_CanvasActiveGroup(canvas) && \ - (itemPtr)->group != Tk_CanvasActiveGroup(canvas)) || \ - ( (itemPtr)->group && \ - (itemPtr)->group != Tk_CanvasActiveGroup(canvas) && \ - (itemPtr)->group->state != TK_STATE_ACTIVE )) - -#define Tk_GetItemState(canvas,itemPtr) \ -( \ - (0 && Tk_CanvasGroupHidden(canvas,itemPtr)) \ - ? TK_STATE_HIDDEN \ - : (((itemPtr)->state == TK_STATE_NULL) \ - ? ((TkCanvas *)(canvas))->canvas_state \ - : (itemPtr)->state \ - ) \ -) - -EXTERN void TkGroupRemoveItem _ANSI_ARGS_((Tk_Item *item)); - -#endif /* _TKCANVAS */ - - - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkCanvases.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkCanvases.h deleted file mode 100644 index 14d604e6591..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkCanvases.h +++ /dev/null @@ -1,81 +0,0 @@ -#ifndef _TKCANVASES -#define _TKCANVASES - -#ifndef _TKCANVAS -#include "tkCanvas.h" -#endif - -EXTERN Tk_CustomOption tk_CanvasTagsOption; - - -EXTERN void Tk_CanvasDrawableCoords _ANSI_ARGS_((Tk_Canvas canvas, - double x, double y, short *drawableXPtr, - short *drawableYPtr)); -EXTERN void Tk_CanvasEventuallyRedraw _ANSI_ARGS_(( - Tk_Canvas canvas, int x1, int y1, int x2, - int y2)); -EXTERN int Tk_CanvasGetCoord _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, CONST char *string, - double *doublePtr)); -EXTERN Tk_CanvasTextInfo *Tk_CanvasGetTextInfo _ANSI_ARGS_((Tk_Canvas canvas)); -EXTERN int Tk_CanvasPsBitmap _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Pixmap bitmap, int x, int y, - int width, int height)); -EXTERN int Tk_CanvasPsColor _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, XColor *colorPtr)); -EXTERN int Tk_CanvasPsFont _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Font font)); -EXTERN void Tk_CanvasPsPath _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, double *coordPtr, int numPoints)); -EXTERN int Tk_CanvasPsStipple _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Pixmap bitmap)); -EXTERN double Tk_CanvasPsY _ANSI_ARGS_((Tk_Canvas canvas, double y)); -EXTERN void Tk_CanvasSetStippleOrigin _ANSI_ARGS_(( - Tk_Canvas canvas, GC gc)); -EXTERN Tk_Window Tk_CanvasTkwin _ANSI_ARGS_((Tk_Canvas canvas)); -EXTERN void Tk_CanvasWindowCoords _ANSI_ARGS_((Tk_Canvas canvas, - double x, double y, short *screenXPtr, - short *screenYPtr)); -EXTERN void Tk_CreateItemType _ANSI_ARGS_((Tk_ItemType *typePtr)); -EXTERN Tk_ItemType * Tk_GetItemTypes _ANSI_ARGS_((void)); - -/* These are from tkInt.h */ - -extern void TkBezierPoints _ANSI_ARGS_((double control[], - int numSteps, double *coordPtr)); -extern void TkBezierScreenPoints _ANSI_ARGS_((Tk_Canvas canvas, - double control[], int numSteps, - XPoint *xPointPtr)); -extern void TkFillPolygon _ANSI_ARGS_((Tk_Canvas canvas, - double *coordPtr, int numPoints, Display *display, - Drawable drawable, GC gc, GC outlineGC)); -extern int TkMakeBezierCurve _ANSI_ARGS_((Tk_Canvas canvas, - double *pointPtr, int numPoints, int numSteps, - XPoint xPoints[], double dblPoints[])); -extern void TkMakeBezierPostscript _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, double *pointPtr, - int numPoints)); -extern void TkIncludePoint _ANSI_ARGS_((Tk_Item *itemPtr, - double *pointPtr)); -extern void TkGetButtPoints _ANSI_ARGS_((double p1[], double p2[], - double width, int project, double m1[], - double m2[])); -extern int TkGetMiterPoints _ANSI_ARGS_((double p1[], double p2[], - double p3[], double width, double m1[], - double m2[])); -extern int TkLineToArea _ANSI_ARGS_((double end1Ptr[2], - double end2Ptr[2], double rectPtr[4])); -extern double TkLineToPoint _ANSI_ARGS_((double end1Ptr[2], - double end2Ptr[2], double pointPtr[2])); -extern int TkOvalToArea _ANSI_ARGS_((double *ovalPtr, - double *rectPtr)); -extern double TkOvalToPoint _ANSI_ARGS_((double ovalPtr[4], - double width, int filled, double pointPtr[2])); -extern int TkPolygonToArea _ANSI_ARGS_((double *polyPtr, - int numPoints, double *rectPtr)); -extern double TkPolygonToPoint _ANSI_ARGS_((double *polyPtr, - int numPoints, double *pointPtr)); - -#include "tkVMacro.h" -#endif - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkColor.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkColor.h deleted file mode 100644 index f24df7c8759..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkColor.h +++ /dev/null @@ -1,89 +0,0 @@ -/* - * tkColor.h -- - * - * Declarations of data types and functions used by the - * Tk color module. - * - * Copyright (c) 1996-1997 by Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkColor.h,v 1.6 1999/11/19 22:00:03 hobbs Exp $ - */ - -#ifndef _TKCOLOR -#define _TKCOLOR - -#include "tkInt.h" - -#ifdef BUILD_tk -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * One of the following data structures is used to keep track of - * each color that is being used by the application; typically there - * is a colormap entry allocated for each of these colors. - */ - -#define TK_COLOR_BY_NAME 1 -#define TK_COLOR_BY_VALUE 2 - -#define COLOR_MAGIC ((unsigned int) 0x46140277) - -typedef struct TkColor { - XColor color; /* Information about this color. */ - unsigned int magic; /* Used for quick integrity check on this - * structure. Must always have the - * value COLOR_MAGIC. */ - GC gc; /* Simple gc with this color as foreground - * color and all other fields defaulted. - * May be None. */ - Screen *screen; /* Screen where this color is valid. Used - * to delete it, and to find its display. */ - Colormap colormap; /* Colormap from which this entry was - * allocated. */ - Visual *visual; /* Visual associated with colormap. */ - int resourceRefCount; /* Number of active uses of this color (each - * active use corresponds to a call to - * Tk_AllocColorFromObj or Tk_GetColor). - * If this count is 0, then this TkColor - * structure is no longer valid and it isn't - * present in a hash table: it is being - * kept around only because there are objects - * referring to it. The structure is freed - * when resourceRefCount and objRefCount - * are both 0. */ - int objRefCount; /* The number of Tcl objects that reference - * this structure. */ - int type; /* TK_COLOR_BY_NAME or TK_COLOR_BY_VALUE */ - Tcl_HashEntry *hashPtr; /* Pointer to hash table entry for this - * structure. (for use in deleting entry). */ - struct TkColor *nextPtr; /* Points to the next TkColor structure with - * the same color name. Colors with the - * same name but different screens or - * colormaps are chained together off a - * single entry in nameTable. For colors in - * valueTable (those allocated by - * Tk_GetColorByValue) this field is always - * NULL. */ -} TkColor; - -/* - * Common APIs exported from all platform-specific implementations. - */ - -#ifndef TkpFreeColor -EXTERN void TkpFreeColor _ANSI_ARGS_((TkColor *tkColPtr)); -#endif -EXTERN TkColor * TkpGetColor _ANSI_ARGS_((Tk_Window tkwin, - Tk_Uid name)); -EXTERN TkColor * TkpGetColorByValue _ANSI_ARGS_((Tk_Window tkwin, - XColor *colorPtr)); - -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKCOLOR */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkConfig.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkConfig.h deleted file mode 100644 index fd15066b441..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkConfig.h +++ /dev/null @@ -1,15 +0,0 @@ -#ifndef _TKCONFIG -#define _TKCONFIG -#define ANSI_SIGNED_CHAR 1 -#define CAN_COPSTASH_SET_NULL 1 -#define HAS_STDARG 1 -#define HAS_SVIV_NOMG 1 -#define HAS_SVNV_NOMG 1 -#define HAVE_LIMITS_H 1 -#define LSEEK_TYPE long long -#define SELECT_MASK Perl_fd_set -#define USE_NEWSTYLE_REGEXP_STRUCT 1 -#define USE_PREGCOMP_31027 1 -#define USE_PROTOTYPE 1 -#define USE_REGEXP_511 1 -#endif diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls.h deleted file mode 100644 index ff6c2333573..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls.h +++ /dev/null @@ -1,2277 +0,0 @@ -/* - * tkDecls.h -- - * - * Declarations of functions in the platform independent public Tcl API. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkDecls.h,v 1.23 2002/08/05 04:30:38 dgp Exp $ - */ - -#ifndef _TKDECLS -#define _TKDECLS - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tk.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -/* - * Exported function declarations: - */ - -/* 0 */ -EXTERN void Tk_MainLoop _ANSI_ARGS_((void)); -/* 1 */ -EXTERN XColor * Tk_3DBorderColor _ANSI_ARGS_((Tk_3DBorder border)); -/* 2 */ -EXTERN GC Tk_3DBorderGC _ANSI_ARGS_((Tk_Window tkwin, - Tk_3DBorder border, int which)); -/* 3 */ -EXTERN void Tk_3DHorizontalBevel _ANSI_ARGS_((Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, int leftIn, - int rightIn, int topBevel, int relief)); -/* 4 */ -EXTERN void Tk_3DVerticalBevel _ANSI_ARGS_((Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, int leftBevel, - int relief)); -/* 5 */ -EXTERN void Tk_AddOption _ANSI_ARGS_((Tk_Window tkwin, - CONST char * name, CONST char * value, - int priority)); -/* 6 */ -EXTERN void Tk_BindEvent _ANSI_ARGS_(( - Tk_BindingTable bindingTable, - XEvent * eventPtr, Tk_Window tkwin, - int numObjects, ClientData * objectPtr)); -/* 7 */ -EXTERN void Tk_CanvasDrawableCoords _ANSI_ARGS_(( - Tk_Canvas canvas, double x, double y, - short * drawableXPtr, short * drawableYPtr)); -/* 8 */ -EXTERN void Tk_CanvasEventuallyRedraw _ANSI_ARGS_(( - Tk_Canvas canvas, int x1, int y1, int x2, - int y2)); -/* 9 */ -EXTERN int Tk_CanvasGetCoord _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Canvas canvas, CONST char * str, - double * doublePtr)); -/* 10 */ -EXTERN Tk_CanvasTextInfo * Tk_CanvasGetTextInfo _ANSI_ARGS_(( - Tk_Canvas canvas)); -/* 11 */ -EXTERN int Tk_CanvasPsBitmap _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Canvas canvas, Pixmap bitmap, int x, - int y, int width, int height)); -/* 12 */ -EXTERN int Tk_CanvasPsColor _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Canvas canvas, XColor * colorPtr)); -/* 13 */ -EXTERN int Tk_CanvasPsFont _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Canvas canvas, Tk_Font font)); -/* 14 */ -EXTERN void Tk_CanvasPsPath _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Canvas canvas, double * coordPtr, - int numPoints)); -/* 15 */ -EXTERN int Tk_CanvasPsStipple _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Canvas canvas, Pixmap bitmap)); -/* 16 */ -EXTERN double Tk_CanvasPsY _ANSI_ARGS_((Tk_Canvas canvas, double y)); -/* 17 */ -EXTERN void Tk_CanvasSetStippleOrigin _ANSI_ARGS_(( - Tk_Canvas canvas, GC gc)); -/* 18 */ -EXTERN int Tk_CanvasTagsParseProc _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp * interp, - Tk_Window tkwin, Tcl_Obj *value, - char * widgRec, int offset)); -/* 19 */ -EXTERN Tcl_Obj * Tk_CanvasTagsPrintProc _ANSI_ARGS_(( - ClientData clientData, Tk_Window tkwin, - char * widgRec, int offset, - Tcl_FreeProc ** freeProcPtr)); -/* 20 */ -EXTERN Tk_Window Tk_CanvasTkwin _ANSI_ARGS_((Tk_Canvas canvas)); -/* 21 */ -EXTERN void Tk_CanvasWindowCoords _ANSI_ARGS_((Tk_Canvas canvas, - double x, double y, short * screenXPtr, - short * screenYPtr)); -/* 22 */ -EXTERN void Tk_ChangeWindowAttributes _ANSI_ARGS_(( - Tk_Window tkwin, unsigned long valueMask, - XSetWindowAttributes * attsPtr)); -/* 23 */ -EXTERN int Tk_CharBbox _ANSI_ARGS_((Tk_TextLayout layout, - int index, int * xPtr, int * yPtr, - int * widthPtr, int * heightPtr)); -/* 24 */ -EXTERN void Tk_ClearSelection _ANSI_ARGS_((Tk_Window tkwin, - Atom selection)); -/* 25 */ -EXTERN int Tk_ClipboardAppend _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, Atom target, Atom format, - char* buffer)); -/* 26 */ -EXTERN int Tk_ClipboardClear _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin)); -/* 27 */ -EXTERN int Tk_ConfigureInfo _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, Tk_ConfigSpec * specs, - char * widgRec, CONST char * argvName, - int flags)); -/* 28 */ -EXTERN int Tk_ConfigureValue _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, Tk_ConfigSpec * specs, - char * widgRec, CONST char * argvName, - int flags)); -/* 29 */ -EXTERN int Tk_ConfigureWidget _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, Tk_ConfigSpec * specs, - int argc, CONST84 Tcl_Obj *CONST *objv, - char * widgRec, int flags)); -/* 30 */ -EXTERN void Tk_ConfigureWindow _ANSI_ARGS_((Tk_Window tkwin, - unsigned int valueMask, - XWindowChanges * valuePtr)); -/* 31 */ -EXTERN Tk_TextLayout Tk_ComputeTextLayout _ANSI_ARGS_((Tk_Font font, - CONST char * str, int numChars, - int wrapLength, Tk_Justify justify, - int flags, int * widthPtr, int * heightPtr)); -/* 32 */ -EXTERN Tk_Window Tk_CoordsToWindow _ANSI_ARGS_((int rootX, int rootY, - Tk_Window tkwin)); -/* 33 */ -EXTERN unsigned long Tk_CreateBinding _ANSI_ARGS_((Tcl_Interp * interp, - Tk_BindingTable bindingTable, - ClientData object, CONST char * eventStr, - Tcl_Obj *command, int append)); -/* 34 */ -EXTERN Tk_BindingTable Tk_CreateBindingTable _ANSI_ARGS_(( - Tcl_Interp * interp)); -/* 35 */ -EXTERN Tk_ErrorHandler Tk_CreateErrorHandler _ANSI_ARGS_((Display * display, - int errNum, int request, int minorCode, - Tk_ErrorProc * errorProc, - ClientData clientData)); -/* 36 */ -EXTERN void Tk_CreateEventHandler _ANSI_ARGS_((Tk_Window token, - unsigned long mask, Tk_EventProc * proc, - ClientData clientData)); -/* 37 */ -EXTERN void Tk_CreateGenericHandler _ANSI_ARGS_(( - Tk_GenericProc * proc, ClientData clientData)); -/* 38 */ -EXTERN void Tk_CreateImageType _ANSI_ARGS_(( - Tk_ImageType * typePtr)); -/* 39 */ -EXTERN void Tk_CreateItemType _ANSI_ARGS_((Tk_ItemType * typePtr)); -/* 40 */ -EXTERN void Tk_CreatePhotoImageFormat _ANSI_ARGS_(( - Tk_PhotoImageFormat * formatPtr)); -/* 41 */ -EXTERN void Tk_CreateSelHandler _ANSI_ARGS_((Tk_Window tkwin, - Atom selection, Atom target, - Tk_SelectionProc * proc, - ClientData clientData, Atom format)); -/* 42 */ -EXTERN Tk_Window Tk_CreateWindow _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window parent, CONST char * name, - CONST char * screenName)); -/* 43 */ -EXTERN Tk_Window Tk_CreateWindowFromPath _ANSI_ARGS_(( - Tcl_Interp * interp, Tk_Window tkwin, - CONST char * pathName, - CONST char * screenName)); -/* 44 */ -EXTERN int Tk_DefineBitmap _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * name, CONST char * source, - int width, int height)); -/* 45 */ -EXTERN void Tk_DefineCursor _ANSI_ARGS_((Tk_Window window, - Tk_Cursor cursor)); -/* 46 */ -EXTERN void Tk_DeleteAllBindings _ANSI_ARGS_(( - Tk_BindingTable bindingTable, - ClientData object)); -/* 47 */ -EXTERN int Tk_DeleteBinding _ANSI_ARGS_((Tcl_Interp * interp, - Tk_BindingTable bindingTable, - ClientData object, CONST char * eventStr)); -/* 48 */ -EXTERN void Tk_DeleteBindingTable _ANSI_ARGS_(( - Tk_BindingTable bindingTable)); -/* 49 */ -EXTERN void Tk_DeleteErrorHandler _ANSI_ARGS_(( - Tk_ErrorHandler handler)); -/* 50 */ -EXTERN void Tk_DeleteEventHandler _ANSI_ARGS_((Tk_Window token, - unsigned long mask, Tk_EventProc * proc, - ClientData clientData)); -/* 51 */ -EXTERN void Tk_DeleteGenericHandler _ANSI_ARGS_(( - Tk_GenericProc * proc, ClientData clientData)); -/* 52 */ -EXTERN void Tk_DeleteImage _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * name)); -/* 53 */ -EXTERN void Tk_DeleteSelHandler _ANSI_ARGS_((Tk_Window tkwin, - Atom selection, Atom target)); -/* 54 */ -EXTERN void Tk_DestroyWindow _ANSI_ARGS_((Tk_Window tkwin)); -/* 55 */ -EXTERN CONST84_RETURN char * Tk_DisplayName _ANSI_ARGS_((Tk_Window tkwin)); -/* 56 */ -EXTERN int Tk_DistanceToTextLayout _ANSI_ARGS_(( - Tk_TextLayout layout, int x, int y)); -/* 57 */ -EXTERN void Tk_Draw3DPolygon _ANSI_ARGS_((Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, - XPoint * pointPtr, int numPoints, - int borderWidth, int leftRelief)); -/* 58 */ -EXTERN void Tk_Draw3DRectangle _ANSI_ARGS_((Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, - int borderWidth, int relief)); -/* 59 */ -EXTERN void Tk_DrawChars _ANSI_ARGS_((Display * display, - Drawable drawable, GC gc, Tk_Font tkfont, - CONST char * source, int numBytes, int x, - int y)); -/* 60 */ -EXTERN void Tk_DrawFocusHighlight _ANSI_ARGS_((Tk_Window tkwin, - GC gc, int width, Drawable drawable)); -/* 61 */ -EXTERN void Tk_DrawTextLayout _ANSI_ARGS_((Display * display, - Drawable drawable, GC gc, - Tk_TextLayout layout, int x, int y, - int firstChar, int lastChar)); -/* 62 */ -EXTERN void Tk_Fill3DPolygon _ANSI_ARGS_((Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, - XPoint * pointPtr, int numPoints, - int borderWidth, int leftRelief)); -/* 63 */ -EXTERN void Tk_Fill3DRectangle _ANSI_ARGS_((Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, - int borderWidth, int relief)); -/* 64 */ -EXTERN Tk_PhotoHandle Tk_FindPhoto _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * imageName)); -/* 65 */ -EXTERN Font Tk_FontId _ANSI_ARGS_((Tk_Font font)); -/* 66 */ -EXTERN void Tk_Free3DBorder _ANSI_ARGS_((Tk_3DBorder border)); -/* 67 */ -EXTERN void Tk_FreeBitmap _ANSI_ARGS_((Display * display, - Pixmap bitmap)); -/* 68 */ -EXTERN void Tk_FreeColor _ANSI_ARGS_((XColor * colorPtr)); -/* 69 */ -EXTERN void Tk_FreeColormap _ANSI_ARGS_((Display * display, - Colormap colormap)); -/* 70 */ -EXTERN void Tk_FreeCursor _ANSI_ARGS_((Display * display, - Tk_Cursor cursor)); -/* 71 */ -EXTERN void Tk_FreeFont _ANSI_ARGS_((Tk_Font f)); -/* 72 */ -EXTERN void Tk_FreeGC _ANSI_ARGS_((Display * display, GC gc)); -/* 73 */ -EXTERN void Tk_FreeImage _ANSI_ARGS_((Tk_Image image)); -/* 74 */ -EXTERN void Tk_FreeOptions _ANSI_ARGS_((Tk_ConfigSpec * specs, - char * widgRec, Display * display, - int needFlags)); -/* 75 */ -EXTERN void Tk_FreePixmap _ANSI_ARGS_((Display * display, - Pixmap pixmap)); -/* 76 */ -EXTERN void Tk_FreeTextLayout _ANSI_ARGS_(( - Tk_TextLayout textLayout)); -/* 77 */ -EXTERN void Tk_FreeXId _ANSI_ARGS_((Display * display, XID xid)); -/* 78 */ -EXTERN GC Tk_GCForColor _ANSI_ARGS_((XColor * colorPtr, - Drawable drawable)); -/* 79 */ -EXTERN void Tk_GeometryRequest _ANSI_ARGS_((Tk_Window tkwin, - int reqWidth, int reqHeight)); -/* 80 */ -EXTERN Tk_3DBorder Tk_Get3DBorder _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, Tk_Uid colorName)); -/* 81 */ -EXTERN void Tk_GetAllBindings _ANSI_ARGS_((Tcl_Interp * interp, - Tk_BindingTable bindingTable, - ClientData object)); -/* 82 */ -EXTERN int Tk_GetAnchor _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * str, Tk_Anchor * anchorPtr)); -/* 83 */ -EXTERN CONST84_RETURN char * Tk_GetAtomName _ANSI_ARGS_((Tk_Window tkwin, - Atom atom)); -/* 84 */ -EXTERN Tcl_Obj * Tk_GetBinding _ANSI_ARGS_((Tcl_Interp * interp, - Tk_BindingTable bindingTable, - ClientData object, CONST char * eventStr)); -/* 85 */ -EXTERN Pixmap Tk_GetBitmap _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, CONST char * str)); -/* 86 */ -EXTERN Pixmap Tk_GetBitmapFromData _ANSI_ARGS_(( - Tcl_Interp * interp, Tk_Window tkwin, - CONST char * source, int width, int height)); -/* 87 */ -EXTERN int Tk_GetCapStyle _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * str, int * capPtr)); -/* 88 */ -EXTERN XColor * Tk_GetColor _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, Tk_Uid name)); -/* 89 */ -EXTERN XColor * Tk_GetColorByValue _ANSI_ARGS_((Tk_Window tkwin, - XColor * colorPtr)); -/* 90 */ -EXTERN Colormap Tk_GetColormap _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, CONST char * str)); -/* 91 */ -EXTERN Tk_Cursor Tk_GetCursor _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, Tk_Uid str)); -/* 92 */ -EXTERN Tk_Cursor Tk_GetCursorFromData _ANSI_ARGS_(( - Tcl_Interp * interp, Tk_Window tkwin, - CONST char * source, CONST char * mask, - int width, int height, int xHot, int yHot, - Tk_Uid fg, Tk_Uid bg)); -/* 93 */ -EXTERN Tk_Font Tk_GetFont _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, CONST char * str)); -/* 94 */ -EXTERN Tk_Font Tk_GetFontFromObj _ANSI_ARGS_((Tk_Window tkwin, - Tcl_Obj * objPtr)); -/* 95 */ -EXTERN void Tk_GetFontMetrics _ANSI_ARGS_((Tk_Font font, - Tk_FontMetrics * fmPtr)); -/* 96 */ -EXTERN GC Tk_GetGC _ANSI_ARGS_((Tk_Window tkwin, - unsigned long valueMask, - XGCValues * valuePtr)); -/* 97 */ -EXTERN Tk_Image Tk_GetImage _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, CONST char * name, - Tk_ImageChangedProc * changeProc, - ClientData clientData)); -/* 98 */ -EXTERN ClientData Tk_GetImageMasterData _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * name, - Tk_ImageType ** typePtrPtr)); -/* 99 */ -EXTERN Tk_ItemType * Tk_GetItemTypes _ANSI_ARGS_((void)); -/* 100 */ -EXTERN int Tk_GetJoinStyle _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * str, int * joinPtr)); -/* 101 */ -EXTERN int Tk_GetJustify _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * str, Tk_Justify * justifyPtr)); -/* 102 */ -EXTERN int Tk_GetNumMainWindows _ANSI_ARGS_((void)); -/* 103 */ -EXTERN Tk_Uid Tk_GetOption _ANSI_ARGS_((Tk_Window tkwin, - CONST char * name, CONST char * className)); -/* 104 */ -EXTERN int Tk_GetPixels _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, CONST char * str, - int * intPtr)); -/* 105 */ -EXTERN Pixmap Tk_GetPixmap _ANSI_ARGS_((Display * display, - Drawable d, int width, int height, int depth)); -/* 106 */ -EXTERN int Tk_GetRelief _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * name, int * reliefPtr)); -/* 107 */ -EXTERN void Tk_GetRootCoords _ANSI_ARGS_((Tk_Window tkwin, - int * xPtr, int * yPtr)); -/* 108 */ -EXTERN int Tk_GetScrollInfo _ANSI_ARGS_((Tcl_Interp * interp, - int argc, CONST84 Tcl_Obj *CONST *objv, - double * dblPtr, int * intPtr)); -/* 109 */ -EXTERN int Tk_GetScreenMM _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, CONST char * str, - double * doublePtr)); -/* 110 */ -EXTERN int Tk_GetSelection _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, Atom selection, Atom target, - Tk_GetSelProc * proc, ClientData clientData)); -/* 111 */ -EXTERN Tk_Uid Tk_GetUid _ANSI_ARGS_((CONST char * str)); -/* 112 */ -EXTERN Visual * Tk_GetVisual _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, Tcl_Obj *str, - int * depthPtr, Colormap * colormapPtr)); -/* 113 */ -EXTERN void Tk_GetVRootGeometry _ANSI_ARGS_((Tk_Window tkwin, - int * xPtr, int * yPtr, int * widthPtr, - int * heightPtr)); -/* 114 */ -EXTERN int Tk_Grab _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, int grabGlobal)); -/* 115 */ -EXTERN void Tk_HandleEvent _ANSI_ARGS_((XEvent * eventPtr)); -/* 116 */ -EXTERN Tk_Window Tk_IdToWindow _ANSI_ARGS_((Display * display, - Window window)); -/* 117 */ -EXTERN void Tk_ImageChanged _ANSI_ARGS_((Tk_ImageMaster master, - int x, int y, int width, int height, - int imageWidth, int imageHeight)); -/* 118 */ -EXTERN int Tk_Init _ANSI_ARGS_((Tcl_Interp * interp)); -/* 119 */ -EXTERN Atom Tk_InternAtom _ANSI_ARGS_((Tk_Window tkwin, - CONST char * name)); -/* 120 */ -EXTERN int Tk_IntersectTextLayout _ANSI_ARGS_(( - Tk_TextLayout layout, int x, int y, - int width, int height)); -/* 121 */ -EXTERN void Tk_MaintainGeometry _ANSI_ARGS_((Tk_Window slave, - Tk_Window master, int x, int y, int width, - int height)); -/* 122 */ -EXTERN Tk_Window Tk_MainWindow _ANSI_ARGS_((Tcl_Interp * interp)); -/* 123 */ -EXTERN void Tk_MakeWindowExist _ANSI_ARGS_((Tk_Window tkwin)); -/* 124 */ -EXTERN void Tk_ManageGeometry _ANSI_ARGS_((Tk_Window tkwin, - Tk_GeomMgr * mgrPtr, ClientData clientData)); -/* 125 */ -EXTERN void Tk_MapWindow _ANSI_ARGS_((Tk_Window tkwin)); -/* 126 */ -EXTERN int Tk_MeasureChars _ANSI_ARGS_((Tk_Font tkfont, - CONST char * source, int numBytes, - int maxPixels, int flags, int * lengthPtr)); -/* 127 */ -EXTERN void Tk_MoveResizeWindow _ANSI_ARGS_((Tk_Window tkwin, - int x, int y, int width, int height)); -/* 128 */ -EXTERN void Tk_MoveWindow _ANSI_ARGS_((Tk_Window tkwin, int x, - int y)); -/* 129 */ -EXTERN void Tk_MoveToplevelWindow _ANSI_ARGS_((Tk_Window tkwin, - int x, int y)); -/* 130 */ -EXTERN CONST84_RETURN char * Tk_NameOf3DBorder _ANSI_ARGS_(( - Tk_3DBorder border)); -/* 131 */ -EXTERN CONST84_RETURN char * Tk_NameOfAnchor _ANSI_ARGS_((Tk_Anchor anchor)); -/* 132 */ -EXTERN CONST84_RETURN char * Tk_NameOfBitmap _ANSI_ARGS_((Display * display, - Pixmap bitmap)); -/* 133 */ -EXTERN CONST84_RETURN char * Tk_NameOfCapStyle _ANSI_ARGS_((int cap)); -/* 134 */ -EXTERN CONST84_RETURN char * Tk_NameOfColor _ANSI_ARGS_((XColor * colorPtr)); -/* 135 */ -EXTERN CONST84_RETURN char * Tk_NameOfCursor _ANSI_ARGS_((Display * display, - Tk_Cursor cursor)); -/* 136 */ -EXTERN CONST84_RETURN char * Tk_NameOfFont _ANSI_ARGS_((Tk_Font font)); -/* 137 */ -EXTERN CONST84_RETURN char * Tk_NameOfImage _ANSI_ARGS_(( - Tk_ImageMaster imageMaster)); -/* 138 */ -EXTERN CONST84_RETURN char * Tk_NameOfJoinStyle _ANSI_ARGS_((int join)); -/* 139 */ -EXTERN CONST84_RETURN char * Tk_NameOfJustify _ANSI_ARGS_(( - Tk_Justify justify)); -/* 140 */ -EXTERN CONST84_RETURN char * Tk_NameOfRelief _ANSI_ARGS_((int relief)); -/* 141 */ -EXTERN Tk_Window Tk_NameToWindow _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * pathName, Tk_Window tkwin)); -/* 142 */ -EXTERN void Tk_OwnSelection _ANSI_ARGS_((Tk_Window tkwin, - Atom selection, Tk_LostSelProc * proc, - ClientData clientData)); -/* 143 */ -EXTERN int Tk_ParseArgv _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, int * argcPtr, - CONST84 Tcl_Obj *CONST *objv, Tk_ArgvInfo * argTable, - int flags)); -/* 144 */ -EXTERN void Tk_PhotoPutBlock_NoComposite _ANSI_ARGS_(( - Tk_PhotoHandle handle, - Tk_PhotoImageBlock * blockPtr, int x, int y, - int width, int height)); -/* 145 */ -EXTERN void Tk_PhotoPutZoomedBlock_NoComposite _ANSI_ARGS_(( - Tk_PhotoHandle handle, - Tk_PhotoImageBlock * blockPtr, int x, int y, - int width, int height, int zoomX, int zoomY, - int subsampleX, int subsampleY)); -/* 146 */ -EXTERN int Tk_PhotoGetImage _ANSI_ARGS_((Tk_PhotoHandle handle, - Tk_PhotoImageBlock * blockPtr)); -/* 147 */ -EXTERN void Tk_PhotoBlank _ANSI_ARGS_((Tk_PhotoHandle handle)); -/* 148 */ -EXTERN void Tk_PhotoExpand _ANSI_ARGS_((Tk_PhotoHandle handle, - int width, int height)); -/* 149 */ -EXTERN void Tk_PhotoGetSize _ANSI_ARGS_((Tk_PhotoHandle handle, - int * widthPtr, int * heightPtr)); -/* 150 */ -EXTERN void Tk_PhotoSetSize _ANSI_ARGS_((Tk_PhotoHandle handle, - int width, int height)); -/* 151 */ -EXTERN int Tk_PointToChar _ANSI_ARGS_((Tk_TextLayout layout, - int x, int y)); -/* 152 */ -EXTERN int Tk_PostscriptFontName _ANSI_ARGS_((Tk_Font tkfont, - Tcl_DString * dsPtr)); -/* 153 */ -EXTERN void Tk_PreserveColormap _ANSI_ARGS_((Display * display, - Colormap colormap)); -/* 154 */ -EXTERN void Tk_QueueWindowEvent _ANSI_ARGS_((XEvent * eventPtr, - Tcl_QueuePosition position)); -/* 155 */ -EXTERN void Tk_RedrawImage _ANSI_ARGS_((Tk_Image image, - int imageX, int imageY, int width, - int height, Drawable drawable, int drawableX, - int drawableY)); -/* 156 */ -EXTERN void Tk_ResizeWindow _ANSI_ARGS_((Tk_Window tkwin, - int width, int height)); -/* 157 */ -EXTERN int Tk_RestackWindow _ANSI_ARGS_((Tk_Window tkwin, - int aboveBelow, Tk_Window other)); -/* 158 */ -EXTERN Tk_RestrictProc * Tk_RestrictEvents _ANSI_ARGS_(( - Tk_RestrictProc * proc, ClientData arg, - ClientData * prevArgPtr)); -/* 159 */ -EXTERN int Tk_SafeInit _ANSI_ARGS_((Tcl_Interp * interp)); -/* 160 */ -EXTERN CONST char * Tk_SetAppName _ANSI_ARGS_((Tk_Window tkwin, - CONST char * name)); -/* 161 */ -EXTERN void Tk_SetBackgroundFromBorder _ANSI_ARGS_(( - Tk_Window tkwin, Tk_3DBorder border)); -/* 162 */ -EXTERN void Tk_SetClass _ANSI_ARGS_((Tk_Window tkwin, - CONST char * className)); -/* 163 */ -EXTERN void Tk_SetGrid _ANSI_ARGS_((Tk_Window tkwin, - int reqWidth, int reqHeight, int gridWidth, - int gridHeight)); -/* 164 */ -EXTERN void Tk_SetInternalBorder _ANSI_ARGS_((Tk_Window tkwin, - int width)); -/* 165 */ -EXTERN void Tk_SetWindowBackground _ANSI_ARGS_((Tk_Window tkwin, - unsigned long pixel)); -/* 166 */ -EXTERN void Tk_SetWindowBackgroundPixmap _ANSI_ARGS_(( - Tk_Window tkwin, Pixmap pixmap)); -/* 167 */ -EXTERN void Tk_SetWindowBorder _ANSI_ARGS_((Tk_Window tkwin, - unsigned long pixel)); -/* 168 */ -EXTERN void Tk_SetWindowBorderWidth _ANSI_ARGS_((Tk_Window tkwin, - int width)); -/* 169 */ -EXTERN void Tk_SetWindowBorderPixmap _ANSI_ARGS_(( - Tk_Window tkwin, Pixmap pixmap)); -/* 170 */ -EXTERN void Tk_SetWindowColormap _ANSI_ARGS_((Tk_Window tkwin, - Colormap colormap)); -/* 171 */ -EXTERN int Tk_SetWindowVisual _ANSI_ARGS_((Tk_Window tkwin, - Visual * visual, int depth, - Colormap colormap)); -/* 172 */ -EXTERN void Tk_SizeOfBitmap _ANSI_ARGS_((Display * display, - Pixmap bitmap, int * widthPtr, - int * heightPtr)); -/* 173 */ -EXTERN void Tk_SizeOfImage _ANSI_ARGS_((Tk_Image image, - int * widthPtr, int * heightPtr)); -/* 174 */ -EXTERN int Tk_StrictMotif _ANSI_ARGS_((Tk_Window tkwin)); -/* 175 */ -EXTERN void Tk_TextLayoutToPostscript _ANSI_ARGS_(( - Tcl_Interp * interp, Tk_TextLayout layout)); -/* 176 */ -EXTERN int Tk_TextWidth _ANSI_ARGS_((Tk_Font font, - CONST char * str, int numBytes)); -/* 177 */ -EXTERN void Tk_UndefineCursor _ANSI_ARGS_((Tk_Window window)); -/* 178 */ -EXTERN void Tk_UnderlineChars _ANSI_ARGS_((Display * display, - Drawable drawable, GC gc, Tk_Font tkfont, - CONST char * source, int x, int y, - int firstByte, int lastByte)); -/* 179 */ -EXTERN void Tk_UnderlineTextLayout _ANSI_ARGS_(( - Display * display, Drawable drawable, GC gc, - Tk_TextLayout layout, int x, int y, - int underline)); -/* 180 */ -EXTERN void Tk_Ungrab _ANSI_ARGS_((Tk_Window tkwin)); -/* 181 */ -EXTERN void Tk_UnmaintainGeometry _ANSI_ARGS_((Tk_Window slave, - Tk_Window master)); -/* 182 */ -EXTERN void Tk_UnmapWindow _ANSI_ARGS_((Tk_Window tkwin)); -/* 183 */ -EXTERN void Tk_UnsetGrid _ANSI_ARGS_((Tk_Window tkwin)); -/* 184 */ -EXTERN void Tk_UpdatePointer _ANSI_ARGS_((Tk_Window tkwin, int x, - int y, int state)); -/* 185 */ -EXTERN Pixmap Tk_AllocBitmapFromObj _ANSI_ARGS_(( - Tcl_Interp * interp, Tk_Window tkwin, - Tcl_Obj * objPtr)); -/* 186 */ -EXTERN Tk_3DBorder Tk_Alloc3DBorderFromObj _ANSI_ARGS_(( - Tcl_Interp * interp, Tk_Window tkwin, - Tcl_Obj * objPtr)); -/* 187 */ -EXTERN XColor * Tk_AllocColorFromObj _ANSI_ARGS_(( - Tcl_Interp * interp, Tk_Window tkwin, - Tcl_Obj * objPtr)); -/* 188 */ -EXTERN Tk_Cursor Tk_AllocCursorFromObj _ANSI_ARGS_(( - Tcl_Interp * interp, Tk_Window tkwin, - Tcl_Obj * objPtr)); -/* 189 */ -EXTERN Tk_Font Tk_AllocFontFromObj _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, Tcl_Obj * objPtr)); -/* 190 */ -EXTERN Tk_OptionTable Tk_CreateOptionTable _ANSI_ARGS_(( - Tcl_Interp * interp, - CONST Tk_OptionSpec * templatePtr)); -/* 191 */ -EXTERN void Tk_DeleteOptionTable _ANSI_ARGS_(( - Tk_OptionTable optionTable)); -/* 192 */ -EXTERN void Tk_Free3DBorderFromObj _ANSI_ARGS_((Tk_Window tkwin, - Tcl_Obj * objPtr)); -/* 193 */ -EXTERN void Tk_FreeBitmapFromObj _ANSI_ARGS_((Tk_Window tkwin, - Tcl_Obj * objPtr)); -/* 194 */ -EXTERN void Tk_FreeColorFromObj _ANSI_ARGS_((Tk_Window tkwin, - Tcl_Obj * objPtr)); -/* 195 */ -EXTERN void Tk_FreeConfigOptions _ANSI_ARGS_((char * recordPtr, - Tk_OptionTable optionToken, Tk_Window tkwin)); -/* 196 */ -EXTERN void Tk_FreeSavedOptions _ANSI_ARGS_(( - Tk_SavedOptions * savePtr)); -/* 197 */ -EXTERN void Tk_FreeCursorFromObj _ANSI_ARGS_((Tk_Window tkwin, - Tcl_Obj * objPtr)); -/* 198 */ -EXTERN void Tk_FreeFontFromObj _ANSI_ARGS_((Tk_Window tkwin, - Tcl_Obj * objPtr)); -/* 199 */ -EXTERN Tk_3DBorder Tk_Get3DBorderFromObj _ANSI_ARGS_((Tk_Window tkwin, - Tcl_Obj * objPtr)); -/* 200 */ -EXTERN int Tk_GetAnchorFromObj _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * objPtr, Tk_Anchor * anchorPtr)); -/* 201 */ -EXTERN Pixmap Tk_GetBitmapFromObj _ANSI_ARGS_((Tk_Window tkwin, - Tcl_Obj * objPtr)); -/* 202 */ -EXTERN XColor * Tk_GetColorFromObj _ANSI_ARGS_((Tk_Window tkwin, - Tcl_Obj * objPtr)); -/* 203 */ -EXTERN Tk_Cursor Tk_GetCursorFromObj _ANSI_ARGS_((Tk_Window tkwin, - Tcl_Obj * objPtr)); -/* 204 */ -EXTERN Tcl_Obj * Tk_GetOptionInfo _ANSI_ARGS_((Tcl_Interp * interp, - char * recordPtr, Tk_OptionTable optionTable, - Tcl_Obj * namePtr, Tk_Window tkwin)); -/* 205 */ -EXTERN Tcl_Obj * Tk_GetOptionValue _ANSI_ARGS_((Tcl_Interp * interp, - char * recordPtr, Tk_OptionTable optionTable, - Tcl_Obj * namePtr, Tk_Window tkwin)); -/* 206 */ -EXTERN int Tk_GetJustifyFromObj _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * objPtr, - Tk_Justify * justifyPtr)); -/* 207 */ -EXTERN int Tk_GetMMFromObj _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, Tcl_Obj * objPtr, - double * doublePtr)); -/* 208 */ -EXTERN int Tk_GetPixelsFromObj _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, Tcl_Obj * objPtr, - int * intPtr)); -/* 209 */ -EXTERN int Tk_GetReliefFromObj _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * objPtr, int * resultPtr)); -/* 210 */ -EXTERN int Tk_GetScrollInfoObj _ANSI_ARGS_((Tcl_Interp * interp, - int objc, Tcl_Obj *CONST objv[], - double * dblPtr, int * intPtr)); -/* 211 */ -EXTERN int Tk_InitOptions _ANSI_ARGS_((Tcl_Interp * interp, - char * recordPtr, Tk_OptionTable optionToken, - Tk_Window tkwin)); -/* 212 */ -EXTERN void Tk_MainEx _ANSI_ARGS_((int argc, Tcl_Obj *CONST *objv, - Tcl_AppInitProc * appInitProc, - Tcl_Interp * interp)); -/* 213 */ -EXTERN void Tk_RestoreSavedOptions _ANSI_ARGS_(( - Tk_SavedOptions * savePtr)); -/* 214 */ -EXTERN int Tk_SetOptions _ANSI_ARGS_((Tcl_Interp * interp, - char * recordPtr, Tk_OptionTable optionTable, - int objc, Tcl_Obj *CONST objv[], - Tk_Window tkwin, Tk_SavedOptions * savePtr, - int * maskPtr)); -/* 215 */ -EXTERN void Tk_InitConsoleChannels _ANSI_ARGS_(( - Tcl_Interp * interp)); -/* 216 */ -EXTERN int Tk_CreateConsoleWindow _ANSI_ARGS_(( - Tcl_Interp * interp)); -/* 217 */ -EXTERN void Tk_CreateSmoothMethod _ANSI_ARGS_(( - Tcl_Interp * interp, - Tk_SmoothMethod * method)); -/* Slot 218 is reserved */ -/* Slot 219 is reserved */ -/* 220 */ -EXTERN int Tk_GetDash _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj *value, Tk_Dash * dash)); -/* 221 */ -EXTERN void Tk_CreateOutline _ANSI_ARGS_((Tk_Outline * outline)); -/* 222 */ -EXTERN void Tk_DeleteOutline _ANSI_ARGS_((Display * display, - Tk_Outline * outline)); -/* 223 */ -EXTERN int Tk_ConfigOutlineGC _ANSI_ARGS_((XGCValues * gcValues, - Tk_Canvas canvas, Tk_Item * item, - Tk_Outline * outline)); -/* 224 */ -EXTERN int Tk_ChangeOutlineGC _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item * item, Tk_Outline * outline)); -/* 225 */ -EXTERN int Tk_ResetOutlineGC _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item * item, Tk_Outline * outline)); -/* 226 */ -EXTERN int Tk_CanvasPsOutline _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item * item, Tk_Outline * outline)); -/* 227 */ -EXTERN void Tk_SetTSOrigin _ANSI_ARGS_((Tk_Window tkwin, GC gc, - int x, int y)); -/* 228 */ -EXTERN int Tk_CanvasGetCoordFromObj _ANSI_ARGS_(( - Tcl_Interp * interp, Tk_Canvas canvas, - Tcl_Obj * obj, double * doublePtr)); -/* 229 */ -EXTERN void Tk_CanvasSetOffset _ANSI_ARGS_((Tk_Canvas canvas, - GC gc, Tk_TSOffset * offset)); -/* 230 */ -EXTERN void Tk_DitherPhoto _ANSI_ARGS_((Tk_PhotoHandle handle, - int x, int y, int width, int height)); -/* 231 */ -EXTERN int Tk_PostscriptBitmap _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, Tk_PostscriptInfo psInfo, - Pixmap bitmap, int startX, int startY, - int width, int height)); -/* 232 */ -EXTERN int Tk_PostscriptColor _ANSI_ARGS_((Tcl_Interp * interp, - Tk_PostscriptInfo psInfo, XColor * colorPtr)); -/* 233 */ -EXTERN int Tk_PostscriptFont _ANSI_ARGS_((Tcl_Interp * interp, - Tk_PostscriptInfo psInfo, Tk_Font font)); -/* 234 */ -EXTERN int Tk_PostscriptImage _ANSI_ARGS_((Tk_Image image, - Tcl_Interp * interp, Tk_Window tkwin, - Tk_PostscriptInfo psinfo, int x, int y, - int width, int height, int prepass)); -/* 235 */ -EXTERN void Tk_PostscriptPath _ANSI_ARGS_((Tcl_Interp * interp, - Tk_PostscriptInfo psInfo, double * coordPtr, - int numPoints)); -/* 236 */ -EXTERN int Tk_PostscriptStipple _ANSI_ARGS_(( - Tcl_Interp * interp, Tk_Window tkwin, - Tk_PostscriptInfo psInfo, Pixmap bitmap)); -/* 237 */ -EXTERN double Tk_PostscriptY _ANSI_ARGS_((double y, - Tk_PostscriptInfo psInfo)); -/* 238 */ -EXTERN int Tk_PostscriptPhoto _ANSI_ARGS_((Tcl_Interp * interp, - Tk_PhotoImageBlock * blockPtr, - Tk_PostscriptInfo psInfo, int width, - int height)); -/* 239 */ -EXTERN void Tk_CreateClientMessageHandler _ANSI_ARGS_(( - Tk_ClientMessageProc * proc)); -/* 240 */ -EXTERN void Tk_DeleteClientMessageHandler _ANSI_ARGS_(( - Tk_ClientMessageProc * proc)); -/* 241 */ -EXTERN Tk_Window Tk_CreateAnonymousWindow _ANSI_ARGS_(( - Tcl_Interp * interp, Tk_Window parent, - CONST char * screenName)); -/* 242 */ -EXTERN void Tk_SetClassProcs _ANSI_ARGS_((Tk_Window tkwin, - Tk_ClassProcs * procs, - ClientData instanceData)); -/* 243 */ -EXTERN void Tk_SetInternalBorderEx _ANSI_ARGS_((Tk_Window tkwin, - int left, int right, int top, int bottom)); -/* 244 */ -EXTERN void Tk_SetMinimumRequestSize _ANSI_ARGS_(( - Tk_Window tkwin, int minWidth, int minHeight)); -/* 245 */ -EXTERN void Tk_SetCaretPos _ANSI_ARGS_((Tk_Window tkwin, int x, - int y, int height)); -/* 246 */ -EXTERN void Tk_PhotoPutBlock _ANSI_ARGS_((Tk_PhotoHandle handle, - Tk_PhotoImageBlock * blockPtr, int x, int y, - int width, int height, int compRule)); -/* 247 */ -EXTERN void Tk_PhotoPutZoomedBlock _ANSI_ARGS_(( - Tk_PhotoHandle handle, - Tk_PhotoImageBlock * blockPtr, int x, int y, - int width, int height, int zoomX, int zoomY, - int subsampleX, int subsampleY, int compRule)); -/* 248 */ -EXTERN int Tk_CollapseMotionEvents _ANSI_ARGS_(( - Display * display, int collapse)); -/* 249 */ -EXTERN Tk_StyleEngine Tk_RegisterStyleEngine _ANSI_ARGS_(( - CONST char * name, Tk_StyleEngine parent)); -/* 250 */ -EXTERN Tk_StyleEngine Tk_GetStyleEngine _ANSI_ARGS_((CONST char * name)); -/* 251 */ -EXTERN int Tk_RegisterStyledElement _ANSI_ARGS_(( - Tk_StyleEngine engine, - Tk_ElementSpec * templatePtr)); -/* 252 */ -EXTERN int Tk_GetElementId _ANSI_ARGS_((CONST char * name)); -/* 253 */ -EXTERN Tk_Style Tk_CreateStyle _ANSI_ARGS_((CONST char * name, - Tk_StyleEngine engine, ClientData clientData)); -/* 254 */ -EXTERN Tk_Style Tk_GetStyle _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * name)); -/* 255 */ -EXTERN void Tk_FreeStyle _ANSI_ARGS_((Tk_Style style)); -/* 256 */ -EXTERN CONST char * Tk_NameOfStyle _ANSI_ARGS_((Tk_Style style)); -/* 257 */ -EXTERN Tk_Style Tk_AllocStyleFromObj _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * objPtr)); -/* 258 */ -EXTERN Tk_Style Tk_GetStyleFromObj _ANSI_ARGS_((Tcl_Obj * objPtr)); -/* 259 */ -EXTERN void Tk_FreeStyleFromObj _ANSI_ARGS_((Tcl_Obj * objPtr)); -/* 260 */ -EXTERN Tk_StyledElement Tk_GetStyledElement _ANSI_ARGS_((Tk_Style style, - int elementId, Tk_OptionTable optionTable)); -/* 261 */ -EXTERN void Tk_GetElementSize _ANSI_ARGS_((Tk_Style style, - Tk_StyledElement element, char * recordPtr, - Tk_Window tkwin, int width, int height, - int inner, int * widthPtr, int * heightPtr)); -/* 262 */ -EXTERN void Tk_GetElementBox _ANSI_ARGS_((Tk_Style style, - Tk_StyledElement element, char * recordPtr, - Tk_Window tkwin, int x, int y, int width, - int height, int inner, int * xPtr, - int * yPtr, int * widthPtr, int * heightPtr)); -/* 263 */ -EXTERN int Tk_GetElementBorderWidth _ANSI_ARGS_((Tk_Style style, - Tk_StyledElement element, char * recordPtr, - Tk_Window tkwin)); -/* 264 */ -EXTERN void Tk_DrawElement _ANSI_ARGS_((Tk_Style style, - Tk_StyledElement element, char * recordPtr, - Tk_Window tkwin, Drawable d, int x, int y, - int width, int height, int state)); - -typedef struct TkStubHooks { - struct TkPlatStubs *tkPlatStubs; - struct TkIntStubs *tkIntStubs; - struct TkIntPlatStubs *tkIntPlatStubs; - struct TkIntXlibStubs *tkIntXlibStubs; -} TkStubHooks; - -typedef struct TkStubs { - int magic; - struct TkStubHooks *hooks; - - void (*tk_MainLoop) _ANSI_ARGS_((void)); /* 0 */ - XColor * (*tk_3DBorderColor) _ANSI_ARGS_((Tk_3DBorder border)); /* 1 */ - GC (*tk_3DBorderGC) _ANSI_ARGS_((Tk_Window tkwin, Tk_3DBorder border, int which)); /* 2 */ - void (*tk_3DHorizontalBevel) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int leftIn, int rightIn, int topBevel, int relief)); /* 3 */ - void (*tk_3DVerticalBevel) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int leftBevel, int relief)); /* 4 */ - void (*tk_AddOption) _ANSI_ARGS_((Tk_Window tkwin, CONST char * name, CONST char * value, int priority)); /* 5 */ - void (*tk_BindEvent) _ANSI_ARGS_((Tk_BindingTable bindingTable, XEvent * eventPtr, Tk_Window tkwin, int numObjects, ClientData * objectPtr)); /* 6 */ - void (*tk_CanvasDrawableCoords) _ANSI_ARGS_((Tk_Canvas canvas, double x, double y, short * drawableXPtr, short * drawableYPtr)); /* 7 */ - void (*tk_CanvasEventuallyRedraw) _ANSI_ARGS_((Tk_Canvas canvas, int x1, int y1, int x2, int y2)); /* 8 */ - int (*tk_CanvasGetCoord) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Canvas canvas, CONST char * str, double * doublePtr)); /* 9 */ - Tk_CanvasTextInfo * (*tk_CanvasGetTextInfo) _ANSI_ARGS_((Tk_Canvas canvas)); /* 10 */ - int (*tk_CanvasPsBitmap) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Canvas canvas, Pixmap bitmap, int x, int y, int width, int height)); /* 11 */ - int (*tk_CanvasPsColor) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Canvas canvas, XColor * colorPtr)); /* 12 */ - int (*tk_CanvasPsFont) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Canvas canvas, Tk_Font font)); /* 13 */ - void (*tk_CanvasPsPath) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Canvas canvas, double * coordPtr, int numPoints)); /* 14 */ - int (*tk_CanvasPsStipple) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Canvas canvas, Pixmap bitmap)); /* 15 */ - double (*tk_CanvasPsY) _ANSI_ARGS_((Tk_Canvas canvas, double y)); /* 16 */ - void (*tk_CanvasSetStippleOrigin) _ANSI_ARGS_((Tk_Canvas canvas, GC gc)); /* 17 */ - int (*tk_CanvasTagsParseProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj *value, char * widgRec, int offset)); /* 18 */ - Tcl_Obj * (*tk_CanvasTagsPrintProc) _ANSI_ARGS_((ClientData clientData, Tk_Window tkwin, char * widgRec, int offset, Tcl_FreeProc ** freeProcPtr)); /* 19 */ - Tk_Window (*tk_CanvasTkwin) _ANSI_ARGS_((Tk_Canvas canvas)); /* 20 */ - void (*tk_CanvasWindowCoords) _ANSI_ARGS_((Tk_Canvas canvas, double x, double y, short * screenXPtr, short * screenYPtr)); /* 21 */ - void (*tk_ChangeWindowAttributes) _ANSI_ARGS_((Tk_Window tkwin, unsigned long valueMask, XSetWindowAttributes * attsPtr)); /* 22 */ - int (*tk_CharBbox) _ANSI_ARGS_((Tk_TextLayout layout, int index, int * xPtr, int * yPtr, int * widthPtr, int * heightPtr)); /* 23 */ - void (*tk_ClearSelection) _ANSI_ARGS_((Tk_Window tkwin, Atom selection)); /* 24 */ - int (*tk_ClipboardAppend) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Atom target, Atom format, char* buffer)); /* 25 */ - int (*tk_ClipboardClear) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin)); /* 26 */ - int (*tk_ConfigureInfo) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_ConfigSpec * specs, char * widgRec, CONST char * argvName, int flags)); /* 27 */ - int (*tk_ConfigureValue) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_ConfigSpec * specs, char * widgRec, CONST char * argvName, int flags)); /* 28 */ - int (*tk_ConfigureWidget) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_ConfigSpec * specs, int argc, CONST84 Tcl_Obj *CONST *objv, char * widgRec, int flags)); /* 29 */ - void (*tk_ConfigureWindow) _ANSI_ARGS_((Tk_Window tkwin, unsigned int valueMask, XWindowChanges * valuePtr)); /* 30 */ - Tk_TextLayout (*tk_ComputeTextLayout) _ANSI_ARGS_((Tk_Font font, CONST char * str, int numChars, int wrapLength, Tk_Justify justify, int flags, int * widthPtr, int * heightPtr)); /* 31 */ - Tk_Window (*tk_CoordsToWindow) _ANSI_ARGS_((int rootX, int rootY, Tk_Window tkwin)); /* 32 */ - unsigned long (*tk_CreateBinding) _ANSI_ARGS_((Tcl_Interp * interp, Tk_BindingTable bindingTable, ClientData object, CONST char * eventStr, CONST char * command, int append)); /* 33 */ - Tk_BindingTable (*tk_CreateBindingTable) _ANSI_ARGS_((Tcl_Interp * interp)); /* 34 */ - Tk_ErrorHandler (*tk_CreateErrorHandler) _ANSI_ARGS_((Display * display, int errNum, int request, int minorCode, Tk_ErrorProc * errorProc, ClientData clientData)); /* 35 */ - void (*tk_CreateEventHandler) _ANSI_ARGS_((Tk_Window token, unsigned long mask, Tk_EventProc * proc, ClientData clientData)); /* 36 */ - void (*tk_CreateGenericHandler) _ANSI_ARGS_((Tk_GenericProc * proc, ClientData clientData)); /* 37 */ - void (*tk_CreateImageType) _ANSI_ARGS_((Tk_ImageType * typePtr)); /* 38 */ - void (*tk_CreateItemType) _ANSI_ARGS_((Tk_ItemType * typePtr)); /* 39 */ - void (*tk_CreatePhotoImageFormat) _ANSI_ARGS_((Tk_PhotoImageFormat * formatPtr)); /* 40 */ - void (*tk_CreateSelHandler) _ANSI_ARGS_((Tk_Window tkwin, Atom selection, Atom target, Tk_SelectionProc * proc, ClientData clientData, Atom format)); /* 41 */ - Tk_Window (*tk_CreateWindow) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window parent, CONST char * name, CONST char * screenName)); /* 42 */ - Tk_Window (*tk_CreateWindowFromPath) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, CONST char * pathName, CONST char * screenName)); /* 43 */ - int (*tk_DefineBitmap) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, CONST char * source, int width, int height)); /* 44 */ - void (*tk_DefineCursor) _ANSI_ARGS_((Tk_Window window, Tk_Cursor cursor)); /* 45 */ - void (*tk_DeleteAllBindings) _ANSI_ARGS_((Tk_BindingTable bindingTable, ClientData object)); /* 46 */ - int (*tk_DeleteBinding) _ANSI_ARGS_((Tcl_Interp * interp, Tk_BindingTable bindingTable, ClientData object, CONST char * eventStr)); /* 47 */ - void (*tk_DeleteBindingTable) _ANSI_ARGS_((Tk_BindingTable bindingTable)); /* 48 */ - void (*tk_DeleteErrorHandler) _ANSI_ARGS_((Tk_ErrorHandler handler)); /* 49 */ - void (*tk_DeleteEventHandler) _ANSI_ARGS_((Tk_Window token, unsigned long mask, Tk_EventProc * proc, ClientData clientData)); /* 50 */ - void (*tk_DeleteGenericHandler) _ANSI_ARGS_((Tk_GenericProc * proc, ClientData clientData)); /* 51 */ - void (*tk_DeleteImage) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name)); /* 52 */ - void (*tk_DeleteSelHandler) _ANSI_ARGS_((Tk_Window tkwin, Atom selection, Atom target)); /* 53 */ - void (*tk_DestroyWindow) _ANSI_ARGS_((Tk_Window tkwin)); /* 54 */ - CONST84_RETURN char * (*tk_DisplayName) _ANSI_ARGS_((Tk_Window tkwin)); /* 55 */ - int (*tk_DistanceToTextLayout) _ANSI_ARGS_((Tk_TextLayout layout, int x, int y)); /* 56 */ - void (*tk_Draw3DPolygon) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, XPoint * pointPtr, int numPoints, int borderWidth, int leftRelief)); /* 57 */ - void (*tk_Draw3DRectangle) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int borderWidth, int relief)); /* 58 */ - void (*tk_DrawChars) _ANSI_ARGS_((Display * display, Drawable drawable, GC gc, Tk_Font tkfont, CONST char * source, int numBytes, int x, int y)); /* 59 */ - void (*tk_DrawFocusHighlight) _ANSI_ARGS_((Tk_Window tkwin, GC gc, int width, Drawable drawable)); /* 60 */ - void (*tk_DrawTextLayout) _ANSI_ARGS_((Display * display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int firstChar, int lastChar)); /* 61 */ - void (*tk_Fill3DPolygon) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, XPoint * pointPtr, int numPoints, int borderWidth, int leftRelief)); /* 62 */ - void (*tk_Fill3DRectangle) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int borderWidth, int relief)); /* 63 */ - Tk_PhotoHandle (*tk_FindPhoto) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * imageName)); /* 64 */ - Font (*tk_FontId) _ANSI_ARGS_((Tk_Font font)); /* 65 */ - void (*tk_Free3DBorder) _ANSI_ARGS_((Tk_3DBorder border)); /* 66 */ - void (*tk_FreeBitmap) _ANSI_ARGS_((Display * display, Pixmap bitmap)); /* 67 */ - void (*tk_FreeColor) _ANSI_ARGS_((XColor * colorPtr)); /* 68 */ - void (*tk_FreeColormap) _ANSI_ARGS_((Display * display, Colormap colormap)); /* 69 */ - void (*tk_FreeCursor) _ANSI_ARGS_((Display * display, Tk_Cursor cursor)); /* 70 */ - void (*tk_FreeFont) _ANSI_ARGS_((Tk_Font f)); /* 71 */ - void (*tk_FreeGC) _ANSI_ARGS_((Display * display, GC gc)); /* 72 */ - void (*tk_FreeImage) _ANSI_ARGS_((Tk_Image image)); /* 73 */ - void (*tk_FreeOptions) _ANSI_ARGS_((Tk_ConfigSpec * specs, char * widgRec, Display * display, int needFlags)); /* 74 */ - void (*tk_FreePixmap) _ANSI_ARGS_((Display * display, Pixmap pixmap)); /* 75 */ - void (*tk_FreeTextLayout) _ANSI_ARGS_((Tk_TextLayout textLayout)); /* 76 */ - void (*tk_FreeXId) _ANSI_ARGS_((Display * display, XID xid)); /* 77 */ - GC (*tk_GCForColor) _ANSI_ARGS_((XColor * colorPtr, Drawable drawable)); /* 78 */ - void (*tk_GeometryRequest) _ANSI_ARGS_((Tk_Window tkwin, int reqWidth, int reqHeight)); /* 79 */ - Tk_3DBorder (*tk_Get3DBorder) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_Uid colorName)); /* 80 */ - void (*tk_GetAllBindings) _ANSI_ARGS_((Tcl_Interp * interp, Tk_BindingTable bindingTable, ClientData object)); /* 81 */ - int (*tk_GetAnchor) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, Tk_Anchor * anchorPtr)); /* 82 */ - CONST84_RETURN char * (*tk_GetAtomName) _ANSI_ARGS_((Tk_Window tkwin, Atom atom)); /* 83 */ - CONST84_RETURN char * (*tk_GetBinding) _ANSI_ARGS_((Tcl_Interp * interp, Tk_BindingTable bindingTable, ClientData object, CONST char * eventStr)); /* 84 */ - Pixmap (*tk_GetBitmap) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, CONST char * str)); /* 85 */ - Pixmap (*tk_GetBitmapFromData) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, CONST char * source, int width, int height)); /* 86 */ - int (*tk_GetCapStyle) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, int * capPtr)); /* 87 */ - XColor * (*tk_GetColor) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_Uid name)); /* 88 */ - XColor * (*tk_GetColorByValue) _ANSI_ARGS_((Tk_Window tkwin, XColor * colorPtr)); /* 89 */ - Colormap (*tk_GetColormap) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, CONST char * str)); /* 90 */ - Tk_Cursor (*tk_GetCursor) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_Uid str)); /* 91 */ - Tk_Cursor (*tk_GetCursorFromData) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, CONST char * source, CONST char * mask, int width, int height, int xHot, int yHot, Tk_Uid fg, Tk_Uid bg)); /* 92 */ - Tk_Font (*tk_GetFont) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, CONST char * str)); /* 93 */ - Tk_Font (*tk_GetFontFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj * objPtr)); /* 94 */ - void (*tk_GetFontMetrics) _ANSI_ARGS_((Tk_Font font, Tk_FontMetrics * fmPtr)); /* 95 */ - GC (*tk_GetGC) _ANSI_ARGS_((Tk_Window tkwin, unsigned long valueMask, XGCValues * valuePtr)); /* 96 */ - Tk_Image (*tk_GetImage) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, CONST char * name, Tk_ImageChangedProc * changeProc, ClientData clientData)); /* 97 */ - ClientData (*tk_GetImageMasterData) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tk_ImageType ** typePtrPtr)); /* 98 */ - Tk_ItemType * (*tk_GetItemTypes) _ANSI_ARGS_((void)); /* 99 */ - int (*tk_GetJoinStyle) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, int * joinPtr)); /* 100 */ - int (*tk_GetJustify) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, Tk_Justify * justifyPtr)); /* 101 */ - int (*tk_GetNumMainWindows) _ANSI_ARGS_((void)); /* 102 */ - Tk_Uid (*tk_GetOption) _ANSI_ARGS_((Tk_Window tkwin, CONST char * name, CONST char * className)); /* 103 */ - int (*tk_GetPixels) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, CONST char * str, int * intPtr)); /* 104 */ - Pixmap (*tk_GetPixmap) _ANSI_ARGS_((Display * display, Drawable d, int width, int height, int depth)); /* 105 */ - int (*tk_GetRelief) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, int * reliefPtr)); /* 106 */ - void (*tk_GetRootCoords) _ANSI_ARGS_((Tk_Window tkwin, int * xPtr, int * yPtr)); /* 107 */ - int (*tk_GetScrollInfo) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST84 Tcl_Obj *CONST *objv, double * dblPtr, int * intPtr)); /* 108 */ - int (*tk_GetScreenMM) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, CONST char * str, double * doublePtr)); /* 109 */ - int (*tk_GetSelection) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Atom selection, Atom target, Tk_GetSelProc * proc, ClientData clientData)); /* 110 */ - Tk_Uid (*tk_GetUid) _ANSI_ARGS_((CONST char * str)); /* 111 */ - Visual * (*tk_GetVisual) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, CONST char * str, int * depthPtr, Colormap * colormapPtr)); /* 112 */ - void (*tk_GetVRootGeometry) _ANSI_ARGS_((Tk_Window tkwin, int * xPtr, int * yPtr, int * widthPtr, int * heightPtr)); /* 113 */ - int (*tk_Grab) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, int grabGlobal)); /* 114 */ - void (*tk_HandleEvent) _ANSI_ARGS_((XEvent * eventPtr)); /* 115 */ - Tk_Window (*tk_IdToWindow) _ANSI_ARGS_((Display * display, Window window)); /* 116 */ - void (*tk_ImageChanged) _ANSI_ARGS_((Tk_ImageMaster master, int x, int y, int width, int height, int imageWidth, int imageHeight)); /* 117 */ - int (*tk_Init) _ANSI_ARGS_((Tcl_Interp * interp)); /* 118 */ - Atom (*tk_InternAtom) _ANSI_ARGS_((Tk_Window tkwin, CONST char * name)); /* 119 */ - int (*tk_IntersectTextLayout) _ANSI_ARGS_((Tk_TextLayout layout, int x, int y, int width, int height)); /* 120 */ - void (*tk_MaintainGeometry) _ANSI_ARGS_((Tk_Window slave, Tk_Window master, int x, int y, int width, int height)); /* 121 */ - Tk_Window (*tk_MainWindow) _ANSI_ARGS_((Tcl_Interp * interp)); /* 122 */ - void (*tk_MakeWindowExist) _ANSI_ARGS_((Tk_Window tkwin)); /* 123 */ - void (*tk_ManageGeometry) _ANSI_ARGS_((Tk_Window tkwin, Tk_GeomMgr * mgrPtr, ClientData clientData)); /* 124 */ - void (*tk_MapWindow) _ANSI_ARGS_((Tk_Window tkwin)); /* 125 */ - int (*tk_MeasureChars) _ANSI_ARGS_((Tk_Font tkfont, CONST char * source, int numBytes, int maxPixels, int flags, int * lengthPtr)); /* 126 */ - void (*tk_MoveResizeWindow) _ANSI_ARGS_((Tk_Window tkwin, int x, int y, int width, int height)); /* 127 */ - void (*tk_MoveWindow) _ANSI_ARGS_((Tk_Window tkwin, int x, int y)); /* 128 */ - void (*tk_MoveToplevelWindow) _ANSI_ARGS_((Tk_Window tkwin, int x, int y)); /* 129 */ - CONST84_RETURN char * (*tk_NameOf3DBorder) _ANSI_ARGS_((Tk_3DBorder border)); /* 130 */ - CONST84_RETURN char * (*tk_NameOfAnchor) _ANSI_ARGS_((Tk_Anchor anchor)); /* 131 */ - CONST84_RETURN char * (*tk_NameOfBitmap) _ANSI_ARGS_((Display * display, Pixmap bitmap)); /* 132 */ - CONST84_RETURN char * (*tk_NameOfCapStyle) _ANSI_ARGS_((int cap)); /* 133 */ - CONST84_RETURN char * (*tk_NameOfColor) _ANSI_ARGS_((XColor * colorPtr)); /* 134 */ - CONST84_RETURN char * (*tk_NameOfCursor) _ANSI_ARGS_((Display * display, Tk_Cursor cursor)); /* 135 */ - CONST84_RETURN char * (*tk_NameOfFont) _ANSI_ARGS_((Tk_Font font)); /* 136 */ - CONST84_RETURN char * (*tk_NameOfImage) _ANSI_ARGS_((Tk_ImageMaster imageMaster)); /* 137 */ - CONST84_RETURN char * (*tk_NameOfJoinStyle) _ANSI_ARGS_((int join)); /* 138 */ - CONST84_RETURN char * (*tk_NameOfJustify) _ANSI_ARGS_((Tk_Justify justify)); /* 139 */ - CONST84_RETURN char * (*tk_NameOfRelief) _ANSI_ARGS_((int relief)); /* 140 */ - Tk_Window (*tk_NameToWindow) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * pathName, Tk_Window tkwin)); /* 141 */ - void (*tk_OwnSelection) _ANSI_ARGS_((Tk_Window tkwin, Atom selection, Tk_LostSelProc * proc, ClientData clientData)); /* 142 */ - int (*tk_ParseArgv) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, int * argcPtr, CONST84 Tcl_Obj *CONST *objv, Tk_ArgvInfo * argTable, int flags)); /* 143 */ - void (*tk_PhotoPutBlock_NoComposite) _ANSI_ARGS_((Tk_PhotoHandle handle, Tk_PhotoImageBlock * blockPtr, int x, int y, int width, int height)); /* 144 */ - void (*tk_PhotoPutZoomedBlock_NoComposite) _ANSI_ARGS_((Tk_PhotoHandle handle, Tk_PhotoImageBlock * blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY)); /* 145 */ - int (*tk_PhotoGetImage) _ANSI_ARGS_((Tk_PhotoHandle handle, Tk_PhotoImageBlock * blockPtr)); /* 146 */ - void (*tk_PhotoBlank) _ANSI_ARGS_((Tk_PhotoHandle handle)); /* 147 */ - void (*tk_PhotoExpand) _ANSI_ARGS_((Tk_PhotoHandle handle, int width, int height)); /* 148 */ - void (*tk_PhotoGetSize) _ANSI_ARGS_((Tk_PhotoHandle handle, int * widthPtr, int * heightPtr)); /* 149 */ - void (*tk_PhotoSetSize) _ANSI_ARGS_((Tk_PhotoHandle handle, int width, int height)); /* 150 */ - int (*tk_PointToChar) _ANSI_ARGS_((Tk_TextLayout layout, int x, int y)); /* 151 */ - int (*tk_PostscriptFontName) _ANSI_ARGS_((Tk_Font tkfont, Tcl_DString * dsPtr)); /* 152 */ - void (*tk_PreserveColormap) _ANSI_ARGS_((Display * display, Colormap colormap)); /* 153 */ - void (*tk_QueueWindowEvent) _ANSI_ARGS_((XEvent * eventPtr, Tcl_QueuePosition position)); /* 154 */ - void (*tk_RedrawImage) _ANSI_ARGS_((Tk_Image image, int imageX, int imageY, int width, int height, Drawable drawable, int drawableX, int drawableY)); /* 155 */ - void (*tk_ResizeWindow) _ANSI_ARGS_((Tk_Window tkwin, int width, int height)); /* 156 */ - int (*tk_RestackWindow) _ANSI_ARGS_((Tk_Window tkwin, int aboveBelow, Tk_Window other)); /* 157 */ - Tk_RestrictProc * (*tk_RestrictEvents) _ANSI_ARGS_((Tk_RestrictProc * proc, ClientData arg, ClientData * prevArgPtr)); /* 158 */ - int (*tk_SafeInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 159 */ - CONST char * (*tk_SetAppName) _ANSI_ARGS_((Tk_Window tkwin, CONST char * name)); /* 160 */ - void (*tk_SetBackgroundFromBorder) _ANSI_ARGS_((Tk_Window tkwin, Tk_3DBorder border)); /* 161 */ - void (*tk_SetClass) _ANSI_ARGS_((Tk_Window tkwin, CONST char * className)); /* 162 */ - void (*tk_SetGrid) _ANSI_ARGS_((Tk_Window tkwin, int reqWidth, int reqHeight, int gridWidth, int gridHeight)); /* 163 */ - void (*tk_SetInternalBorder) _ANSI_ARGS_((Tk_Window tkwin, int width)); /* 164 */ - void (*tk_SetWindowBackground) _ANSI_ARGS_((Tk_Window tkwin, unsigned long pixel)); /* 165 */ - void (*tk_SetWindowBackgroundPixmap) _ANSI_ARGS_((Tk_Window tkwin, Pixmap pixmap)); /* 166 */ - void (*tk_SetWindowBorder) _ANSI_ARGS_((Tk_Window tkwin, unsigned long pixel)); /* 167 */ - void (*tk_SetWindowBorderWidth) _ANSI_ARGS_((Tk_Window tkwin, int width)); /* 168 */ - void (*tk_SetWindowBorderPixmap) _ANSI_ARGS_((Tk_Window tkwin, Pixmap pixmap)); /* 169 */ - void (*tk_SetWindowColormap) _ANSI_ARGS_((Tk_Window tkwin, Colormap colormap)); /* 170 */ - int (*tk_SetWindowVisual) _ANSI_ARGS_((Tk_Window tkwin, Visual * visual, int depth, Colormap colormap)); /* 171 */ - void (*tk_SizeOfBitmap) _ANSI_ARGS_((Display * display, Pixmap bitmap, int * widthPtr, int * heightPtr)); /* 172 */ - void (*tk_SizeOfImage) _ANSI_ARGS_((Tk_Image image, int * widthPtr, int * heightPtr)); /* 173 */ - int (*tk_StrictMotif) _ANSI_ARGS_((Tk_Window tkwin)); /* 174 */ - void (*tk_TextLayoutToPostscript) _ANSI_ARGS_((Tcl_Interp * interp, Tk_TextLayout layout)); /* 175 */ - int (*tk_TextWidth) _ANSI_ARGS_((Tk_Font font, CONST char * str, int numBytes)); /* 176 */ - void (*tk_UndefineCursor) _ANSI_ARGS_((Tk_Window window)); /* 177 */ - void (*tk_UnderlineChars) _ANSI_ARGS_((Display * display, Drawable drawable, GC gc, Tk_Font tkfont, CONST char * source, int x, int y, int firstByte, int lastByte)); /* 178 */ - void (*tk_UnderlineTextLayout) _ANSI_ARGS_((Display * display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int underline)); /* 179 */ - void (*tk_Ungrab) _ANSI_ARGS_((Tk_Window tkwin)); /* 180 */ - void (*tk_UnmaintainGeometry) _ANSI_ARGS_((Tk_Window slave, Tk_Window master)); /* 181 */ - void (*tk_UnmapWindow) _ANSI_ARGS_((Tk_Window tkwin)); /* 182 */ - void (*tk_UnsetGrid) _ANSI_ARGS_((Tk_Window tkwin)); /* 183 */ - void (*tk_UpdatePointer) _ANSI_ARGS_((Tk_Window tkwin, int x, int y, int state)); /* 184 */ - Pixmap (*tk_AllocBitmapFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr)); /* 185 */ - Tk_3DBorder (*tk_Alloc3DBorderFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr)); /* 186 */ - XColor * (*tk_AllocColorFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr)); /* 187 */ - Tk_Cursor (*tk_AllocCursorFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr)); /* 188 */ - Tk_Font (*tk_AllocFontFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr)); /* 189 */ - Tk_OptionTable (*tk_CreateOptionTable) _ANSI_ARGS_((Tcl_Interp * interp, CONST Tk_OptionSpec * templatePtr)); /* 190 */ - void (*tk_DeleteOptionTable) _ANSI_ARGS_((Tk_OptionTable optionTable)); /* 191 */ - void (*tk_Free3DBorderFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj * objPtr)); /* 192 */ - void (*tk_FreeBitmapFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj * objPtr)); /* 193 */ - void (*tk_FreeColorFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj * objPtr)); /* 194 */ - void (*tk_FreeConfigOptions) _ANSI_ARGS_((char * recordPtr, Tk_OptionTable optionToken, Tk_Window tkwin)); /* 195 */ - void (*tk_FreeSavedOptions) _ANSI_ARGS_((Tk_SavedOptions * savePtr)); /* 196 */ - void (*tk_FreeCursorFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj * objPtr)); /* 197 */ - void (*tk_FreeFontFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj * objPtr)); /* 198 */ - Tk_3DBorder (*tk_Get3DBorderFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj * objPtr)); /* 199 */ - int (*tk_GetAnchorFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, Tk_Anchor * anchorPtr)); /* 200 */ - Pixmap (*tk_GetBitmapFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj * objPtr)); /* 201 */ - XColor * (*tk_GetColorFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj * objPtr)); /* 202 */ - Tk_Cursor (*tk_GetCursorFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj * objPtr)); /* 203 */ - Tcl_Obj * (*tk_GetOptionInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * recordPtr, Tk_OptionTable optionTable, Tcl_Obj * namePtr, Tk_Window tkwin)); /* 204 */ - Tcl_Obj * (*tk_GetOptionValue) _ANSI_ARGS_((Tcl_Interp * interp, char * recordPtr, Tk_OptionTable optionTable, Tcl_Obj * namePtr, Tk_Window tkwin)); /* 205 */ - int (*tk_GetJustifyFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, Tk_Justify * justifyPtr)); /* 206 */ - int (*tk_GetMMFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr, double * doublePtr)); /* 207 */ - int (*tk_GetPixelsFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr, int * intPtr)); /* 208 */ - int (*tk_GetReliefFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int * resultPtr)); /* 209 */ - int (*tk_GetScrollInfoObj) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], double * dblPtr, int * intPtr)); /* 210 */ - int (*tk_InitOptions) _ANSI_ARGS_((Tcl_Interp * interp, char * recordPtr, Tk_OptionTable optionToken, Tk_Window tkwin)); /* 211 */ - void (*tk_MainEx) _ANSI_ARGS_((int argc, Tcl_Obj *CONST *objv, Tcl_AppInitProc * appInitProc, Tcl_Interp * interp)); /* 212 */ - void (*tk_RestoreSavedOptions) _ANSI_ARGS_((Tk_SavedOptions * savePtr)); /* 213 */ - int (*tk_SetOptions) _ANSI_ARGS_((Tcl_Interp * interp, char * recordPtr, Tk_OptionTable optionTable, int objc, Tcl_Obj *CONST objv[], Tk_Window tkwin, Tk_SavedOptions * savePtr, int * maskPtr)); /* 214 */ - void (*tk_InitConsoleChannels) _ANSI_ARGS_((Tcl_Interp * interp)); /* 215 */ - int (*tk_CreateConsoleWindow) _ANSI_ARGS_((Tcl_Interp * interp)); /* 216 */ - void (*tk_CreateSmoothMethod) _ANSI_ARGS_((Tcl_Interp * interp, Tk_SmoothMethod * method)); /* 217 */ - void *reserved218; - void *reserved219; - int (*tk_GetDash) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * value, Tk_Dash * dash)); /* 220 */ - void (*tk_CreateOutline) _ANSI_ARGS_((Tk_Outline * outline)); /* 221 */ - void (*tk_DeleteOutline) _ANSI_ARGS_((Display * display, Tk_Outline * outline)); /* 222 */ - int (*tk_ConfigOutlineGC) _ANSI_ARGS_((XGCValues * gcValues, Tk_Canvas canvas, Tk_Item * item, Tk_Outline * outline)); /* 223 */ - int (*tk_ChangeOutlineGC) _ANSI_ARGS_((Tk_Canvas canvas, Tk_Item * item, Tk_Outline * outline)); /* 224 */ - int (*tk_ResetOutlineGC) _ANSI_ARGS_((Tk_Canvas canvas, Tk_Item * item, Tk_Outline * outline)); /* 225 */ - int (*tk_CanvasPsOutline) _ANSI_ARGS_((Tk_Canvas canvas, Tk_Item * item, Tk_Outline * outline)); /* 226 */ - void (*tk_SetTSOrigin) _ANSI_ARGS_((Tk_Window tkwin, GC gc, int x, int y)); /* 227 */ - int (*tk_CanvasGetCoordFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Canvas canvas, Tcl_Obj * obj, double * doublePtr)); /* 228 */ - void (*tk_CanvasSetOffset) _ANSI_ARGS_((Tk_Canvas canvas, GC gc, Tk_TSOffset * offset)); /* 229 */ - void (*tk_DitherPhoto) _ANSI_ARGS_((Tk_PhotoHandle handle, int x, int y, int width, int height)); /* 230 */ - int (*tk_PostscriptBitmap) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_PostscriptInfo psInfo, Pixmap bitmap, int startX, int startY, int width, int height)); /* 231 */ - int (*tk_PostscriptColor) _ANSI_ARGS_((Tcl_Interp * interp, Tk_PostscriptInfo psInfo, XColor * colorPtr)); /* 232 */ - int (*tk_PostscriptFont) _ANSI_ARGS_((Tcl_Interp * interp, Tk_PostscriptInfo psInfo, Tk_Font font)); /* 233 */ - int (*tk_PostscriptImage) _ANSI_ARGS_((Tk_Image image, Tcl_Interp * interp, Tk_Window tkwin, Tk_PostscriptInfo psinfo, int x, int y, int width, int height, int prepass)); /* 234 */ - void (*tk_PostscriptPath) _ANSI_ARGS_((Tcl_Interp * interp, Tk_PostscriptInfo psInfo, double * coordPtr, int numPoints)); /* 235 */ - int (*tk_PostscriptStipple) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_PostscriptInfo psInfo, Pixmap bitmap)); /* 236 */ - double (*tk_PostscriptY) _ANSI_ARGS_((double y, Tk_PostscriptInfo psInfo)); /* 237 */ - int (*tk_PostscriptPhoto) _ANSI_ARGS_((Tcl_Interp * interp, Tk_PhotoImageBlock * blockPtr, Tk_PostscriptInfo psInfo, int width, int height)); /* 238 */ - void (*tk_CreateClientMessageHandler) _ANSI_ARGS_((Tk_ClientMessageProc * proc)); /* 239 */ - void (*tk_DeleteClientMessageHandler) _ANSI_ARGS_((Tk_ClientMessageProc * proc)); /* 240 */ - Tk_Window (*tk_CreateAnonymousWindow) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window parent, CONST char * screenName)); /* 241 */ - void (*tk_SetClassProcs) _ANSI_ARGS_((Tk_Window tkwin, Tk_ClassProcs * procs, ClientData instanceData)); /* 242 */ - void (*tk_SetInternalBorderEx) _ANSI_ARGS_((Tk_Window tkwin, int left, int right, int top, int bottom)); /* 243 */ - void (*tk_SetMinimumRequestSize) _ANSI_ARGS_((Tk_Window tkwin, int minWidth, int minHeight)); /* 244 */ - void (*tk_SetCaretPos) _ANSI_ARGS_((Tk_Window tkwin, int x, int y, int height)); /* 245 */ - void (*tk_PhotoPutBlock) _ANSI_ARGS_((Tk_PhotoHandle handle, Tk_PhotoImageBlock * blockPtr, int x, int y, int width, int height, int compRule)); /* 246 */ - void (*tk_PhotoPutZoomedBlock) _ANSI_ARGS_((Tk_PhotoHandle handle, Tk_PhotoImageBlock * blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY, int compRule)); /* 247 */ - int (*tk_CollapseMotionEvents) _ANSI_ARGS_((Display * display, int collapse)); /* 248 */ - Tk_StyleEngine (*tk_RegisterStyleEngine) _ANSI_ARGS_((CONST char * name, Tk_StyleEngine parent)); /* 249 */ - Tk_StyleEngine (*tk_GetStyleEngine) _ANSI_ARGS_((CONST char * name)); /* 250 */ - int (*tk_RegisterStyledElement) _ANSI_ARGS_((Tk_StyleEngine engine, Tk_ElementSpec * templatePtr)); /* 251 */ - int (*tk_GetElementId) _ANSI_ARGS_((CONST char * name)); /* 252 */ - Tk_Style (*tk_CreateStyle) _ANSI_ARGS_((CONST char * name, Tk_StyleEngine engine, ClientData clientData)); /* 253 */ - Tk_Style (*tk_GetStyle) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name)); /* 254 */ - void (*tk_FreeStyle) _ANSI_ARGS_((Tk_Style style)); /* 255 */ - CONST char * (*tk_NameOfStyle) _ANSI_ARGS_((Tk_Style style)); /* 256 */ - Tk_Style (*tk_AllocStyleFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 257 */ - Tk_Style (*tk_GetStyleFromObj) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 258 */ - void (*tk_FreeStyleFromObj) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 259 */ - Tk_StyledElement (*tk_GetStyledElement) _ANSI_ARGS_((Tk_Style style, int elementId, Tk_OptionTable optionTable)); /* 260 */ - void (*tk_GetElementSize) _ANSI_ARGS_((Tk_Style style, Tk_StyledElement element, char * recordPtr, Tk_Window tkwin, int width, int height, int inner, int * widthPtr, int * heightPtr)); /* 261 */ - void (*tk_GetElementBox) _ANSI_ARGS_((Tk_Style style, Tk_StyledElement element, char * recordPtr, Tk_Window tkwin, int x, int y, int width, int height, int inner, int * xPtr, int * yPtr, int * widthPtr, int * heightPtr)); /* 262 */ - int (*tk_GetElementBorderWidth) _ANSI_ARGS_((Tk_Style style, Tk_StyledElement element, char * recordPtr, Tk_Window tkwin)); /* 263 */ - void (*tk_DrawElement) _ANSI_ARGS_((Tk_Style style, Tk_StyledElement element, char * recordPtr, Tk_Window tkwin, Drawable d, int x, int y, int width, int height, int state)); /* 264 */ -} TkStubs; - -#ifdef __cplusplus -extern "C" { -#endif -extern TkStubs *tkStubsPtr; -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifndef Tk_MainLoop -#define Tk_MainLoop \ - (tkStubsPtr->tk_MainLoop) /* 0 */ -#endif -#ifndef Tk_3DBorderColor -#define Tk_3DBorderColor \ - (tkStubsPtr->tk_3DBorderColor) /* 1 */ -#endif -#ifndef Tk_3DBorderGC -#define Tk_3DBorderGC \ - (tkStubsPtr->tk_3DBorderGC) /* 2 */ -#endif -#ifndef Tk_3DHorizontalBevel -#define Tk_3DHorizontalBevel \ - (tkStubsPtr->tk_3DHorizontalBevel) /* 3 */ -#endif -#ifndef Tk_3DVerticalBevel -#define Tk_3DVerticalBevel \ - (tkStubsPtr->tk_3DVerticalBevel) /* 4 */ -#endif -#ifndef Tk_AddOption -#define Tk_AddOption \ - (tkStubsPtr->tk_AddOption) /* 5 */ -#endif -#ifndef Tk_BindEvent -#define Tk_BindEvent \ - (tkStubsPtr->tk_BindEvent) /* 6 */ -#endif -#ifndef Tk_CanvasDrawableCoords -#define Tk_CanvasDrawableCoords \ - (tkStubsPtr->tk_CanvasDrawableCoords) /* 7 */ -#endif -#ifndef Tk_CanvasEventuallyRedraw -#define Tk_CanvasEventuallyRedraw \ - (tkStubsPtr->tk_CanvasEventuallyRedraw) /* 8 */ -#endif -#ifndef Tk_CanvasGetCoord -#define Tk_CanvasGetCoord \ - (tkStubsPtr->tk_CanvasGetCoord) /* 9 */ -#endif -#ifndef Tk_CanvasGetTextInfo -#define Tk_CanvasGetTextInfo \ - (tkStubsPtr->tk_CanvasGetTextInfo) /* 10 */ -#endif -#ifndef Tk_CanvasPsBitmap -#define Tk_CanvasPsBitmap \ - (tkStubsPtr->tk_CanvasPsBitmap) /* 11 */ -#endif -#ifndef Tk_CanvasPsColor -#define Tk_CanvasPsColor \ - (tkStubsPtr->tk_CanvasPsColor) /* 12 */ -#endif -#ifndef Tk_CanvasPsFont -#define Tk_CanvasPsFont \ - (tkStubsPtr->tk_CanvasPsFont) /* 13 */ -#endif -#ifndef Tk_CanvasPsPath -#define Tk_CanvasPsPath \ - (tkStubsPtr->tk_CanvasPsPath) /* 14 */ -#endif -#ifndef Tk_CanvasPsStipple -#define Tk_CanvasPsStipple \ - (tkStubsPtr->tk_CanvasPsStipple) /* 15 */ -#endif -#ifndef Tk_CanvasPsY -#define Tk_CanvasPsY \ - (tkStubsPtr->tk_CanvasPsY) /* 16 */ -#endif -#ifndef Tk_CanvasSetStippleOrigin -#define Tk_CanvasSetStippleOrigin \ - (tkStubsPtr->tk_CanvasSetStippleOrigin) /* 17 */ -#endif -#ifndef Tk_CanvasTagsParseProc -#define Tk_CanvasTagsParseProc \ - (tkStubsPtr->tk_CanvasTagsParseProc) /* 18 */ -#endif -#ifndef Tk_CanvasTagsPrintProc -#define Tk_CanvasTagsPrintProc \ - (tkStubsPtr->tk_CanvasTagsPrintProc) /* 19 */ -#endif -#ifndef Tk_CanvasTkwin -#define Tk_CanvasTkwin \ - (tkStubsPtr->tk_CanvasTkwin) /* 20 */ -#endif -#ifndef Tk_CanvasWindowCoords -#define Tk_CanvasWindowCoords \ - (tkStubsPtr->tk_CanvasWindowCoords) /* 21 */ -#endif -#ifndef Tk_ChangeWindowAttributes -#define Tk_ChangeWindowAttributes \ - (tkStubsPtr->tk_ChangeWindowAttributes) /* 22 */ -#endif -#ifndef Tk_CharBbox -#define Tk_CharBbox \ - (tkStubsPtr->tk_CharBbox) /* 23 */ -#endif -#ifndef Tk_ClearSelection -#define Tk_ClearSelection \ - (tkStubsPtr->tk_ClearSelection) /* 24 */ -#endif -#ifndef Tk_ClipboardAppend -#define Tk_ClipboardAppend \ - (tkStubsPtr->tk_ClipboardAppend) /* 25 */ -#endif -#ifndef Tk_ClipboardClear -#define Tk_ClipboardClear \ - (tkStubsPtr->tk_ClipboardClear) /* 26 */ -#endif -#ifndef Tk_ConfigureInfo -#define Tk_ConfigureInfo \ - (tkStubsPtr->tk_ConfigureInfo) /* 27 */ -#endif -#ifndef Tk_ConfigureValue -#define Tk_ConfigureValue \ - (tkStubsPtr->tk_ConfigureValue) /* 28 */ -#endif -#ifndef Tk_ConfigureWidget -#define Tk_ConfigureWidget \ - (tkStubsPtr->tk_ConfigureWidget) /* 29 */ -#endif -#ifndef Tk_ConfigureWindow -#define Tk_ConfigureWindow \ - (tkStubsPtr->tk_ConfigureWindow) /* 30 */ -#endif -#ifndef Tk_ComputeTextLayout -#define Tk_ComputeTextLayout \ - (tkStubsPtr->tk_ComputeTextLayout) /* 31 */ -#endif -#ifndef Tk_CoordsToWindow -#define Tk_CoordsToWindow \ - (tkStubsPtr->tk_CoordsToWindow) /* 32 */ -#endif -#ifndef Tk_CreateBinding -#define Tk_CreateBinding \ - (tkStubsPtr->tk_CreateBinding) /* 33 */ -#endif -#ifndef Tk_CreateBindingTable -#define Tk_CreateBindingTable \ - (tkStubsPtr->tk_CreateBindingTable) /* 34 */ -#endif -#ifndef Tk_CreateErrorHandler -#define Tk_CreateErrorHandler \ - (tkStubsPtr->tk_CreateErrorHandler) /* 35 */ -#endif -#ifndef Tk_CreateEventHandler -#define Tk_CreateEventHandler \ - (tkStubsPtr->tk_CreateEventHandler) /* 36 */ -#endif -#ifndef Tk_CreateGenericHandler -#define Tk_CreateGenericHandler \ - (tkStubsPtr->tk_CreateGenericHandler) /* 37 */ -#endif -#ifndef Tk_CreateImageType -#define Tk_CreateImageType \ - (tkStubsPtr->tk_CreateImageType) /* 38 */ -#endif -#ifndef Tk_CreateItemType -#define Tk_CreateItemType \ - (tkStubsPtr->tk_CreateItemType) /* 39 */ -#endif -#ifndef Tk_CreatePhotoImageFormat -#define Tk_CreatePhotoImageFormat \ - (tkStubsPtr->tk_CreatePhotoImageFormat) /* 40 */ -#endif -#ifndef Tk_CreateSelHandler -#define Tk_CreateSelHandler \ - (tkStubsPtr->tk_CreateSelHandler) /* 41 */ -#endif -#ifndef Tk_CreateWindow -#define Tk_CreateWindow \ - (tkStubsPtr->tk_CreateWindow) /* 42 */ -#endif -#ifndef Tk_CreateWindowFromPath -#define Tk_CreateWindowFromPath \ - (tkStubsPtr->tk_CreateWindowFromPath) /* 43 */ -#endif -#ifndef Tk_DefineBitmap -#define Tk_DefineBitmap \ - (tkStubsPtr->tk_DefineBitmap) /* 44 */ -#endif -#ifndef Tk_DefineCursor -#define Tk_DefineCursor \ - (tkStubsPtr->tk_DefineCursor) /* 45 */ -#endif -#ifndef Tk_DeleteAllBindings -#define Tk_DeleteAllBindings \ - (tkStubsPtr->tk_DeleteAllBindings) /* 46 */ -#endif -#ifndef Tk_DeleteBinding -#define Tk_DeleteBinding \ - (tkStubsPtr->tk_DeleteBinding) /* 47 */ -#endif -#ifndef Tk_DeleteBindingTable -#define Tk_DeleteBindingTable \ - (tkStubsPtr->tk_DeleteBindingTable) /* 48 */ -#endif -#ifndef Tk_DeleteErrorHandler -#define Tk_DeleteErrorHandler \ - (tkStubsPtr->tk_DeleteErrorHandler) /* 49 */ -#endif -#ifndef Tk_DeleteEventHandler -#define Tk_DeleteEventHandler \ - (tkStubsPtr->tk_DeleteEventHandler) /* 50 */ -#endif -#ifndef Tk_DeleteGenericHandler -#define Tk_DeleteGenericHandler \ - (tkStubsPtr->tk_DeleteGenericHandler) /* 51 */ -#endif -#ifndef Tk_DeleteImage -#define Tk_DeleteImage \ - (tkStubsPtr->tk_DeleteImage) /* 52 */ -#endif -#ifndef Tk_DeleteSelHandler -#define Tk_DeleteSelHandler \ - (tkStubsPtr->tk_DeleteSelHandler) /* 53 */ -#endif -#ifndef Tk_DestroyWindow -#define Tk_DestroyWindow \ - (tkStubsPtr->tk_DestroyWindow) /* 54 */ -#endif -#ifndef Tk_DisplayName -#define Tk_DisplayName \ - (tkStubsPtr->tk_DisplayName) /* 55 */ -#endif -#ifndef Tk_DistanceToTextLayout -#define Tk_DistanceToTextLayout \ - (tkStubsPtr->tk_DistanceToTextLayout) /* 56 */ -#endif -#ifndef Tk_Draw3DPolygon -#define Tk_Draw3DPolygon \ - (tkStubsPtr->tk_Draw3DPolygon) /* 57 */ -#endif -#ifndef Tk_Draw3DRectangle -#define Tk_Draw3DRectangle \ - (tkStubsPtr->tk_Draw3DRectangle) /* 58 */ -#endif -#ifndef Tk_DrawChars -#define Tk_DrawChars \ - (tkStubsPtr->tk_DrawChars) /* 59 */ -#endif -#ifndef Tk_DrawFocusHighlight -#define Tk_DrawFocusHighlight \ - (tkStubsPtr->tk_DrawFocusHighlight) /* 60 */ -#endif -#ifndef Tk_DrawTextLayout -#define Tk_DrawTextLayout \ - (tkStubsPtr->tk_DrawTextLayout) /* 61 */ -#endif -#ifndef Tk_Fill3DPolygon -#define Tk_Fill3DPolygon \ - (tkStubsPtr->tk_Fill3DPolygon) /* 62 */ -#endif -#ifndef Tk_Fill3DRectangle -#define Tk_Fill3DRectangle \ - (tkStubsPtr->tk_Fill3DRectangle) /* 63 */ -#endif -#ifndef Tk_FindPhoto -#define Tk_FindPhoto \ - (tkStubsPtr->tk_FindPhoto) /* 64 */ -#endif -#ifndef Tk_FontId -#define Tk_FontId \ - (tkStubsPtr->tk_FontId) /* 65 */ -#endif -#ifndef Tk_Free3DBorder -#define Tk_Free3DBorder \ - (tkStubsPtr->tk_Free3DBorder) /* 66 */ -#endif -#ifndef Tk_FreeBitmap -#define Tk_FreeBitmap \ - (tkStubsPtr->tk_FreeBitmap) /* 67 */ -#endif -#ifndef Tk_FreeColor -#define Tk_FreeColor \ - (tkStubsPtr->tk_FreeColor) /* 68 */ -#endif -#ifndef Tk_FreeColormap -#define Tk_FreeColormap \ - (tkStubsPtr->tk_FreeColormap) /* 69 */ -#endif -#ifndef Tk_FreeCursor -#define Tk_FreeCursor \ - (tkStubsPtr->tk_FreeCursor) /* 70 */ -#endif -#ifndef Tk_FreeFont -#define Tk_FreeFont \ - (tkStubsPtr->tk_FreeFont) /* 71 */ -#endif -#ifndef Tk_FreeGC -#define Tk_FreeGC \ - (tkStubsPtr->tk_FreeGC) /* 72 */ -#endif -#ifndef Tk_FreeImage -#define Tk_FreeImage \ - (tkStubsPtr->tk_FreeImage) /* 73 */ -#endif -#ifndef Tk_FreeOptions -#define Tk_FreeOptions \ - (tkStubsPtr->tk_FreeOptions) /* 74 */ -#endif -#ifndef Tk_FreePixmap -#define Tk_FreePixmap \ - (tkStubsPtr->tk_FreePixmap) /* 75 */ -#endif -#ifndef Tk_FreeTextLayout -#define Tk_FreeTextLayout \ - (tkStubsPtr->tk_FreeTextLayout) /* 76 */ -#endif -#ifndef Tk_FreeXId -#define Tk_FreeXId \ - (tkStubsPtr->tk_FreeXId) /* 77 */ -#endif -#ifndef Tk_GCForColor -#define Tk_GCForColor \ - (tkStubsPtr->tk_GCForColor) /* 78 */ -#endif -#ifndef Tk_GeometryRequest -#define Tk_GeometryRequest \ - (tkStubsPtr->tk_GeometryRequest) /* 79 */ -#endif -#ifndef Tk_Get3DBorder -#define Tk_Get3DBorder \ - (tkStubsPtr->tk_Get3DBorder) /* 80 */ -#endif -#ifndef Tk_GetAllBindings -#define Tk_GetAllBindings \ - (tkStubsPtr->tk_GetAllBindings) /* 81 */ -#endif -#ifndef Tk_GetAnchor -#define Tk_GetAnchor \ - (tkStubsPtr->tk_GetAnchor) /* 82 */ -#endif -#ifndef Tk_GetAtomName -#define Tk_GetAtomName \ - (tkStubsPtr->tk_GetAtomName) /* 83 */ -#endif -#ifndef Tk_GetBinding -#define Tk_GetBinding \ - (tkStubsPtr->tk_GetBinding) /* 84 */ -#endif -#ifndef Tk_GetBitmap -#define Tk_GetBitmap \ - (tkStubsPtr->tk_GetBitmap) /* 85 */ -#endif -#ifndef Tk_GetBitmapFromData -#define Tk_GetBitmapFromData \ - (tkStubsPtr->tk_GetBitmapFromData) /* 86 */ -#endif -#ifndef Tk_GetCapStyle -#define Tk_GetCapStyle \ - (tkStubsPtr->tk_GetCapStyle) /* 87 */ -#endif -#ifndef Tk_GetColor -#define Tk_GetColor \ - (tkStubsPtr->tk_GetColor) /* 88 */ -#endif -#ifndef Tk_GetColorByValue -#define Tk_GetColorByValue \ - (tkStubsPtr->tk_GetColorByValue) /* 89 */ -#endif -#ifndef Tk_GetColormap -#define Tk_GetColormap \ - (tkStubsPtr->tk_GetColormap) /* 90 */ -#endif -#ifndef Tk_GetCursor -#define Tk_GetCursor \ - (tkStubsPtr->tk_GetCursor) /* 91 */ -#endif -#ifndef Tk_GetCursorFromData -#define Tk_GetCursorFromData \ - (tkStubsPtr->tk_GetCursorFromData) /* 92 */ -#endif -#ifndef Tk_GetFont -#define Tk_GetFont \ - (tkStubsPtr->tk_GetFont) /* 93 */ -#endif -#ifndef Tk_GetFontFromObj -#define Tk_GetFontFromObj \ - (tkStubsPtr->tk_GetFontFromObj) /* 94 */ -#endif -#ifndef Tk_GetFontMetrics -#define Tk_GetFontMetrics \ - (tkStubsPtr->tk_GetFontMetrics) /* 95 */ -#endif -#ifndef Tk_GetGC -#define Tk_GetGC \ - (tkStubsPtr->tk_GetGC) /* 96 */ -#endif -#ifndef Tk_GetImage -#define Tk_GetImage \ - (tkStubsPtr->tk_GetImage) /* 97 */ -#endif -#ifndef Tk_GetImageMasterData -#define Tk_GetImageMasterData \ - (tkStubsPtr->tk_GetImageMasterData) /* 98 */ -#endif -#ifndef Tk_GetItemTypes -#define Tk_GetItemTypes \ - (tkStubsPtr->tk_GetItemTypes) /* 99 */ -#endif -#ifndef Tk_GetJoinStyle -#define Tk_GetJoinStyle \ - (tkStubsPtr->tk_GetJoinStyle) /* 100 */ -#endif -#ifndef Tk_GetJustify -#define Tk_GetJustify \ - (tkStubsPtr->tk_GetJustify) /* 101 */ -#endif -#ifndef Tk_GetNumMainWindows -#define Tk_GetNumMainWindows \ - (tkStubsPtr->tk_GetNumMainWindows) /* 102 */ -#endif -#ifndef Tk_GetOption -#define Tk_GetOption \ - (tkStubsPtr->tk_GetOption) /* 103 */ -#endif -#ifndef Tk_GetPixels -#define Tk_GetPixels \ - (tkStubsPtr->tk_GetPixels) /* 104 */ -#endif -#ifndef Tk_GetPixmap -#define Tk_GetPixmap \ - (tkStubsPtr->tk_GetPixmap) /* 105 */ -#endif -#ifndef Tk_GetRelief -#define Tk_GetRelief \ - (tkStubsPtr->tk_GetRelief) /* 106 */ -#endif -#ifndef Tk_GetRootCoords -#define Tk_GetRootCoords \ - (tkStubsPtr->tk_GetRootCoords) /* 107 */ -#endif -#ifndef Tk_GetScrollInfo -#define Tk_GetScrollInfo \ - (tkStubsPtr->tk_GetScrollInfo) /* 108 */ -#endif -#ifndef Tk_GetScreenMM -#define Tk_GetScreenMM \ - (tkStubsPtr->tk_GetScreenMM) /* 109 */ -#endif -#ifndef Tk_GetSelection -#define Tk_GetSelection \ - (tkStubsPtr->tk_GetSelection) /* 110 */ -#endif -#ifndef Tk_GetUid -#define Tk_GetUid \ - (tkStubsPtr->tk_GetUid) /* 111 */ -#endif -#ifndef Tk_GetVisual -#define Tk_GetVisual \ - (tkStubsPtr->tk_GetVisual) /* 112 */ -#endif -#ifndef Tk_GetVRootGeometry -#define Tk_GetVRootGeometry \ - (tkStubsPtr->tk_GetVRootGeometry) /* 113 */ -#endif -#ifndef Tk_Grab -#define Tk_Grab \ - (tkStubsPtr->tk_Grab) /* 114 */ -#endif -#ifndef Tk_HandleEvent -#define Tk_HandleEvent \ - (tkStubsPtr->tk_HandleEvent) /* 115 */ -#endif -#ifndef Tk_IdToWindow -#define Tk_IdToWindow \ - (tkStubsPtr->tk_IdToWindow) /* 116 */ -#endif -#ifndef Tk_ImageChanged -#define Tk_ImageChanged \ - (tkStubsPtr->tk_ImageChanged) /* 117 */ -#endif -#ifndef Tk_Init -#define Tk_Init \ - (tkStubsPtr->tk_Init) /* 118 */ -#endif -#ifndef Tk_InternAtom -#define Tk_InternAtom \ - (tkStubsPtr->tk_InternAtom) /* 119 */ -#endif -#ifndef Tk_IntersectTextLayout -#define Tk_IntersectTextLayout \ - (tkStubsPtr->tk_IntersectTextLayout) /* 120 */ -#endif -#ifndef Tk_MaintainGeometry -#define Tk_MaintainGeometry \ - (tkStubsPtr->tk_MaintainGeometry) /* 121 */ -#endif -#ifndef Tk_MainWindow -#define Tk_MainWindow \ - (tkStubsPtr->tk_MainWindow) /* 122 */ -#endif -#ifndef Tk_MakeWindowExist -#define Tk_MakeWindowExist \ - (tkStubsPtr->tk_MakeWindowExist) /* 123 */ -#endif -#ifndef Tk_ManageGeometry -#define Tk_ManageGeometry \ - (tkStubsPtr->tk_ManageGeometry) /* 124 */ -#endif -#ifndef Tk_MapWindow -#define Tk_MapWindow \ - (tkStubsPtr->tk_MapWindow) /* 125 */ -#endif -#ifndef Tk_MeasureChars -#define Tk_MeasureChars \ - (tkStubsPtr->tk_MeasureChars) /* 126 */ -#endif -#ifndef Tk_MoveResizeWindow -#define Tk_MoveResizeWindow \ - (tkStubsPtr->tk_MoveResizeWindow) /* 127 */ -#endif -#ifndef Tk_MoveWindow -#define Tk_MoveWindow \ - (tkStubsPtr->tk_MoveWindow) /* 128 */ -#endif -#ifndef Tk_MoveToplevelWindow -#define Tk_MoveToplevelWindow \ - (tkStubsPtr->tk_MoveToplevelWindow) /* 129 */ -#endif -#ifndef Tk_NameOf3DBorder -#define Tk_NameOf3DBorder \ - (tkStubsPtr->tk_NameOf3DBorder) /* 130 */ -#endif -#ifndef Tk_NameOfAnchor -#define Tk_NameOfAnchor \ - (tkStubsPtr->tk_NameOfAnchor) /* 131 */ -#endif -#ifndef Tk_NameOfBitmap -#define Tk_NameOfBitmap \ - (tkStubsPtr->tk_NameOfBitmap) /* 132 */ -#endif -#ifndef Tk_NameOfCapStyle -#define Tk_NameOfCapStyle \ - (tkStubsPtr->tk_NameOfCapStyle) /* 133 */ -#endif -#ifndef Tk_NameOfColor -#define Tk_NameOfColor \ - (tkStubsPtr->tk_NameOfColor) /* 134 */ -#endif -#ifndef Tk_NameOfCursor -#define Tk_NameOfCursor \ - (tkStubsPtr->tk_NameOfCursor) /* 135 */ -#endif -#ifndef Tk_NameOfFont -#define Tk_NameOfFont \ - (tkStubsPtr->tk_NameOfFont) /* 136 */ -#endif -#ifndef Tk_NameOfImage -#define Tk_NameOfImage \ - (tkStubsPtr->tk_NameOfImage) /* 137 */ -#endif -#ifndef Tk_NameOfJoinStyle -#define Tk_NameOfJoinStyle \ - (tkStubsPtr->tk_NameOfJoinStyle) /* 138 */ -#endif -#ifndef Tk_NameOfJustify -#define Tk_NameOfJustify \ - (tkStubsPtr->tk_NameOfJustify) /* 139 */ -#endif -#ifndef Tk_NameOfRelief -#define Tk_NameOfRelief \ - (tkStubsPtr->tk_NameOfRelief) /* 140 */ -#endif -#ifndef Tk_NameToWindow -#define Tk_NameToWindow \ - (tkStubsPtr->tk_NameToWindow) /* 141 */ -#endif -#ifndef Tk_OwnSelection -#define Tk_OwnSelection \ - (tkStubsPtr->tk_OwnSelection) /* 142 */ -#endif -#ifndef Tk_ParseArgv -#define Tk_ParseArgv \ - (tkStubsPtr->tk_ParseArgv) /* 143 */ -#endif -#ifndef Tk_PhotoPutBlock_NoComposite -#define Tk_PhotoPutBlock_NoComposite \ - (tkStubsPtr->tk_PhotoPutBlock_NoComposite) /* 144 */ -#endif -#ifndef Tk_PhotoPutZoomedBlock_NoComposite -#define Tk_PhotoPutZoomedBlock_NoComposite \ - (tkStubsPtr->tk_PhotoPutZoomedBlock_NoComposite) /* 145 */ -#endif -#ifndef Tk_PhotoGetImage -#define Tk_PhotoGetImage \ - (tkStubsPtr->tk_PhotoGetImage) /* 146 */ -#endif -#ifndef Tk_PhotoBlank -#define Tk_PhotoBlank \ - (tkStubsPtr->tk_PhotoBlank) /* 147 */ -#endif -#ifndef Tk_PhotoExpand -#define Tk_PhotoExpand \ - (tkStubsPtr->tk_PhotoExpand) /* 148 */ -#endif -#ifndef Tk_PhotoGetSize -#define Tk_PhotoGetSize \ - (tkStubsPtr->tk_PhotoGetSize) /* 149 */ -#endif -#ifndef Tk_PhotoSetSize -#define Tk_PhotoSetSize \ - (tkStubsPtr->tk_PhotoSetSize) /* 150 */ -#endif -#ifndef Tk_PointToChar -#define Tk_PointToChar \ - (tkStubsPtr->tk_PointToChar) /* 151 */ -#endif -#ifndef Tk_PostscriptFontName -#define Tk_PostscriptFontName \ - (tkStubsPtr->tk_PostscriptFontName) /* 152 */ -#endif -#ifndef Tk_PreserveColormap -#define Tk_PreserveColormap \ - (tkStubsPtr->tk_PreserveColormap) /* 153 */ -#endif -#ifndef Tk_QueueWindowEvent -#define Tk_QueueWindowEvent \ - (tkStubsPtr->tk_QueueWindowEvent) /* 154 */ -#endif -#ifndef Tk_RedrawImage -#define Tk_RedrawImage \ - (tkStubsPtr->tk_RedrawImage) /* 155 */ -#endif -#ifndef Tk_ResizeWindow -#define Tk_ResizeWindow \ - (tkStubsPtr->tk_ResizeWindow) /* 156 */ -#endif -#ifndef Tk_RestackWindow -#define Tk_RestackWindow \ - (tkStubsPtr->tk_RestackWindow) /* 157 */ -#endif -#ifndef Tk_RestrictEvents -#define Tk_RestrictEvents \ - (tkStubsPtr->tk_RestrictEvents) /* 158 */ -#endif -#ifndef Tk_SafeInit -#define Tk_SafeInit \ - (tkStubsPtr->tk_SafeInit) /* 159 */ -#endif -#ifndef Tk_SetAppName -#define Tk_SetAppName \ - (tkStubsPtr->tk_SetAppName) /* 160 */ -#endif -#ifndef Tk_SetBackgroundFromBorder -#define Tk_SetBackgroundFromBorder \ - (tkStubsPtr->tk_SetBackgroundFromBorder) /* 161 */ -#endif -#ifndef Tk_SetClass -#define Tk_SetClass \ - (tkStubsPtr->tk_SetClass) /* 162 */ -#endif -#ifndef Tk_SetGrid -#define Tk_SetGrid \ - (tkStubsPtr->tk_SetGrid) /* 163 */ -#endif -#ifndef Tk_SetInternalBorder -#define Tk_SetInternalBorder \ - (tkStubsPtr->tk_SetInternalBorder) /* 164 */ -#endif -#ifndef Tk_SetWindowBackground -#define Tk_SetWindowBackground \ - (tkStubsPtr->tk_SetWindowBackground) /* 165 */ -#endif -#ifndef Tk_SetWindowBackgroundPixmap -#define Tk_SetWindowBackgroundPixmap \ - (tkStubsPtr->tk_SetWindowBackgroundPixmap) /* 166 */ -#endif -#ifndef Tk_SetWindowBorder -#define Tk_SetWindowBorder \ - (tkStubsPtr->tk_SetWindowBorder) /* 167 */ -#endif -#ifndef Tk_SetWindowBorderWidth -#define Tk_SetWindowBorderWidth \ - (tkStubsPtr->tk_SetWindowBorderWidth) /* 168 */ -#endif -#ifndef Tk_SetWindowBorderPixmap -#define Tk_SetWindowBorderPixmap \ - (tkStubsPtr->tk_SetWindowBorderPixmap) /* 169 */ -#endif -#ifndef Tk_SetWindowColormap -#define Tk_SetWindowColormap \ - (tkStubsPtr->tk_SetWindowColormap) /* 170 */ -#endif -#ifndef Tk_SetWindowVisual -#define Tk_SetWindowVisual \ - (tkStubsPtr->tk_SetWindowVisual) /* 171 */ -#endif -#ifndef Tk_SizeOfBitmap -#define Tk_SizeOfBitmap \ - (tkStubsPtr->tk_SizeOfBitmap) /* 172 */ -#endif -#ifndef Tk_SizeOfImage -#define Tk_SizeOfImage \ - (tkStubsPtr->tk_SizeOfImage) /* 173 */ -#endif -#ifndef Tk_StrictMotif -#define Tk_StrictMotif \ - (tkStubsPtr->tk_StrictMotif) /* 174 */ -#endif -#ifndef Tk_TextLayoutToPostscript -#define Tk_TextLayoutToPostscript \ - (tkStubsPtr->tk_TextLayoutToPostscript) /* 175 */ -#endif -#ifndef Tk_TextWidth -#define Tk_TextWidth \ - (tkStubsPtr->tk_TextWidth) /* 176 */ -#endif -#ifndef Tk_UndefineCursor -#define Tk_UndefineCursor \ - (tkStubsPtr->tk_UndefineCursor) /* 177 */ -#endif -#ifndef Tk_UnderlineChars -#define Tk_UnderlineChars \ - (tkStubsPtr->tk_UnderlineChars) /* 178 */ -#endif -#ifndef Tk_UnderlineTextLayout -#define Tk_UnderlineTextLayout \ - (tkStubsPtr->tk_UnderlineTextLayout) /* 179 */ -#endif -#ifndef Tk_Ungrab -#define Tk_Ungrab \ - (tkStubsPtr->tk_Ungrab) /* 180 */ -#endif -#ifndef Tk_UnmaintainGeometry -#define Tk_UnmaintainGeometry \ - (tkStubsPtr->tk_UnmaintainGeometry) /* 181 */ -#endif -#ifndef Tk_UnmapWindow -#define Tk_UnmapWindow \ - (tkStubsPtr->tk_UnmapWindow) /* 182 */ -#endif -#ifndef Tk_UnsetGrid -#define Tk_UnsetGrid \ - (tkStubsPtr->tk_UnsetGrid) /* 183 */ -#endif -#ifndef Tk_UpdatePointer -#define Tk_UpdatePointer \ - (tkStubsPtr->tk_UpdatePointer) /* 184 */ -#endif -#ifndef Tk_AllocBitmapFromObj -#define Tk_AllocBitmapFromObj \ - (tkStubsPtr->tk_AllocBitmapFromObj) /* 185 */ -#endif -#ifndef Tk_Alloc3DBorderFromObj -#define Tk_Alloc3DBorderFromObj \ - (tkStubsPtr->tk_Alloc3DBorderFromObj) /* 186 */ -#endif -#ifndef Tk_AllocColorFromObj -#define Tk_AllocColorFromObj \ - (tkStubsPtr->tk_AllocColorFromObj) /* 187 */ -#endif -#ifndef Tk_AllocCursorFromObj -#define Tk_AllocCursorFromObj \ - (tkStubsPtr->tk_AllocCursorFromObj) /* 188 */ -#endif -#ifndef Tk_AllocFontFromObj -#define Tk_AllocFontFromObj \ - (tkStubsPtr->tk_AllocFontFromObj) /* 189 */ -#endif -#ifndef Tk_CreateOptionTable -#define Tk_CreateOptionTable \ - (tkStubsPtr->tk_CreateOptionTable) /* 190 */ -#endif -#ifndef Tk_DeleteOptionTable -#define Tk_DeleteOptionTable \ - (tkStubsPtr->tk_DeleteOptionTable) /* 191 */ -#endif -#ifndef Tk_Free3DBorderFromObj -#define Tk_Free3DBorderFromObj \ - (tkStubsPtr->tk_Free3DBorderFromObj) /* 192 */ -#endif -#ifndef Tk_FreeBitmapFromObj -#define Tk_FreeBitmapFromObj \ - (tkStubsPtr->tk_FreeBitmapFromObj) /* 193 */ -#endif -#ifndef Tk_FreeColorFromObj -#define Tk_FreeColorFromObj \ - (tkStubsPtr->tk_FreeColorFromObj) /* 194 */ -#endif -#ifndef Tk_FreeConfigOptions -#define Tk_FreeConfigOptions \ - (tkStubsPtr->tk_FreeConfigOptions) /* 195 */ -#endif -#ifndef Tk_FreeSavedOptions -#define Tk_FreeSavedOptions \ - (tkStubsPtr->tk_FreeSavedOptions) /* 196 */ -#endif -#ifndef Tk_FreeCursorFromObj -#define Tk_FreeCursorFromObj \ - (tkStubsPtr->tk_FreeCursorFromObj) /* 197 */ -#endif -#ifndef Tk_FreeFontFromObj -#define Tk_FreeFontFromObj \ - (tkStubsPtr->tk_FreeFontFromObj) /* 198 */ -#endif -#ifndef Tk_Get3DBorderFromObj -#define Tk_Get3DBorderFromObj \ - (tkStubsPtr->tk_Get3DBorderFromObj) /* 199 */ -#endif -#ifndef Tk_GetAnchorFromObj -#define Tk_GetAnchorFromObj \ - (tkStubsPtr->tk_GetAnchorFromObj) /* 200 */ -#endif -#ifndef Tk_GetBitmapFromObj -#define Tk_GetBitmapFromObj \ - (tkStubsPtr->tk_GetBitmapFromObj) /* 201 */ -#endif -#ifndef Tk_GetColorFromObj -#define Tk_GetColorFromObj \ - (tkStubsPtr->tk_GetColorFromObj) /* 202 */ -#endif -#ifndef Tk_GetCursorFromObj -#define Tk_GetCursorFromObj \ - (tkStubsPtr->tk_GetCursorFromObj) /* 203 */ -#endif -#ifndef Tk_GetOptionInfo -#define Tk_GetOptionInfo \ - (tkStubsPtr->tk_GetOptionInfo) /* 204 */ -#endif -#ifndef Tk_GetOptionValue -#define Tk_GetOptionValue \ - (tkStubsPtr->tk_GetOptionValue) /* 205 */ -#endif -#ifndef Tk_GetJustifyFromObj -#define Tk_GetJustifyFromObj \ - (tkStubsPtr->tk_GetJustifyFromObj) /* 206 */ -#endif -#ifndef Tk_GetMMFromObj -#define Tk_GetMMFromObj \ - (tkStubsPtr->tk_GetMMFromObj) /* 207 */ -#endif -#ifndef Tk_GetPixelsFromObj -#define Tk_GetPixelsFromObj \ - (tkStubsPtr->tk_GetPixelsFromObj) /* 208 */ -#endif -#ifndef Tk_GetReliefFromObj -#define Tk_GetReliefFromObj \ - (tkStubsPtr->tk_GetReliefFromObj) /* 209 */ -#endif -#ifndef Tk_GetScrollInfoObj -#define Tk_GetScrollInfoObj \ - (tkStubsPtr->tk_GetScrollInfoObj) /* 210 */ -#endif -#ifndef Tk_InitOptions -#define Tk_InitOptions \ - (tkStubsPtr->tk_InitOptions) /* 211 */ -#endif -#ifndef Tk_MainEx -#define Tk_MainEx \ - (tkStubsPtr->tk_MainEx) /* 212 */ -#endif -#ifndef Tk_RestoreSavedOptions -#define Tk_RestoreSavedOptions \ - (tkStubsPtr->tk_RestoreSavedOptions) /* 213 */ -#endif -#ifndef Tk_SetOptions -#define Tk_SetOptions \ - (tkStubsPtr->tk_SetOptions) /* 214 */ -#endif -#ifndef Tk_InitConsoleChannels -#define Tk_InitConsoleChannels \ - (tkStubsPtr->tk_InitConsoleChannels) /* 215 */ -#endif -#ifndef Tk_CreateConsoleWindow -#define Tk_CreateConsoleWindow \ - (tkStubsPtr->tk_CreateConsoleWindow) /* 216 */ -#endif -#ifndef Tk_CreateSmoothMethod -#define Tk_CreateSmoothMethod \ - (tkStubsPtr->tk_CreateSmoothMethod) /* 217 */ -#endif -/* Slot 218 is reserved */ -/* Slot 219 is reserved */ -#ifndef Tk_GetDash -#define Tk_GetDash \ - (tkStubsPtr->tk_GetDash) /* 220 */ -#endif -#ifndef Tk_CreateOutline -#define Tk_CreateOutline \ - (tkStubsPtr->tk_CreateOutline) /* 221 */ -#endif -#ifndef Tk_DeleteOutline -#define Tk_DeleteOutline \ - (tkStubsPtr->tk_DeleteOutline) /* 222 */ -#endif -#ifndef Tk_ConfigOutlineGC -#define Tk_ConfigOutlineGC \ - (tkStubsPtr->tk_ConfigOutlineGC) /* 223 */ -#endif -#ifndef Tk_ChangeOutlineGC -#define Tk_ChangeOutlineGC \ - (tkStubsPtr->tk_ChangeOutlineGC) /* 224 */ -#endif -#ifndef Tk_ResetOutlineGC -#define Tk_ResetOutlineGC \ - (tkStubsPtr->tk_ResetOutlineGC) /* 225 */ -#endif -#ifndef Tk_CanvasPsOutline -#define Tk_CanvasPsOutline \ - (tkStubsPtr->tk_CanvasPsOutline) /* 226 */ -#endif -#ifndef Tk_SetTSOrigin -#define Tk_SetTSOrigin \ - (tkStubsPtr->tk_SetTSOrigin) /* 227 */ -#endif -#ifndef Tk_CanvasGetCoordFromObj -#define Tk_CanvasGetCoordFromObj \ - (tkStubsPtr->tk_CanvasGetCoordFromObj) /* 228 */ -#endif -#ifndef Tk_CanvasSetOffset -#define Tk_CanvasSetOffset \ - (tkStubsPtr->tk_CanvasSetOffset) /* 229 */ -#endif -#ifndef Tk_DitherPhoto -#define Tk_DitherPhoto \ - (tkStubsPtr->tk_DitherPhoto) /* 230 */ -#endif -#ifndef Tk_PostscriptBitmap -#define Tk_PostscriptBitmap \ - (tkStubsPtr->tk_PostscriptBitmap) /* 231 */ -#endif -#ifndef Tk_PostscriptColor -#define Tk_PostscriptColor \ - (tkStubsPtr->tk_PostscriptColor) /* 232 */ -#endif -#ifndef Tk_PostscriptFont -#define Tk_PostscriptFont \ - (tkStubsPtr->tk_PostscriptFont) /* 233 */ -#endif -#ifndef Tk_PostscriptImage -#define Tk_PostscriptImage \ - (tkStubsPtr->tk_PostscriptImage) /* 234 */ -#endif -#ifndef Tk_PostscriptPath -#define Tk_PostscriptPath \ - (tkStubsPtr->tk_PostscriptPath) /* 235 */ -#endif -#ifndef Tk_PostscriptStipple -#define Tk_PostscriptStipple \ - (tkStubsPtr->tk_PostscriptStipple) /* 236 */ -#endif -#ifndef Tk_PostscriptY -#define Tk_PostscriptY \ - (tkStubsPtr->tk_PostscriptY) /* 237 */ -#endif -#ifndef Tk_PostscriptPhoto -#define Tk_PostscriptPhoto \ - (tkStubsPtr->tk_PostscriptPhoto) /* 238 */ -#endif -#ifndef Tk_CreateClientMessageHandler -#define Tk_CreateClientMessageHandler \ - (tkStubsPtr->tk_CreateClientMessageHandler) /* 239 */ -#endif -#ifndef Tk_DeleteClientMessageHandler -#define Tk_DeleteClientMessageHandler \ - (tkStubsPtr->tk_DeleteClientMessageHandler) /* 240 */ -#endif -#ifndef Tk_CreateAnonymousWindow -#define Tk_CreateAnonymousWindow \ - (tkStubsPtr->tk_CreateAnonymousWindow) /* 241 */ -#endif -#ifndef Tk_SetClassProcs -#define Tk_SetClassProcs \ - (tkStubsPtr->tk_SetClassProcs) /* 242 */ -#endif -#ifndef Tk_SetInternalBorderEx -#define Tk_SetInternalBorderEx \ - (tkStubsPtr->tk_SetInternalBorderEx) /* 243 */ -#endif -#ifndef Tk_SetMinimumRequestSize -#define Tk_SetMinimumRequestSize \ - (tkStubsPtr->tk_SetMinimumRequestSize) /* 244 */ -#endif -#ifndef Tk_SetCaretPos -#define Tk_SetCaretPos \ - (tkStubsPtr->tk_SetCaretPos) /* 245 */ -#endif -#ifndef Tk_PhotoPutBlock -#define Tk_PhotoPutBlock \ - (tkStubsPtr->tk_PhotoPutBlock) /* 246 */ -#endif -#ifndef Tk_PhotoPutZoomedBlock -#define Tk_PhotoPutZoomedBlock \ - (tkStubsPtr->tk_PhotoPutZoomedBlock) /* 247 */ -#endif -#ifndef Tk_CollapseMotionEvents -#define Tk_CollapseMotionEvents \ - (tkStubsPtr->tk_CollapseMotionEvents) /* 248 */ -#endif -#ifndef Tk_RegisterStyleEngine -#define Tk_RegisterStyleEngine \ - (tkStubsPtr->tk_RegisterStyleEngine) /* 249 */ -#endif -#ifndef Tk_GetStyleEngine -#define Tk_GetStyleEngine \ - (tkStubsPtr->tk_GetStyleEngine) /* 250 */ -#endif -#ifndef Tk_RegisterStyledElement -#define Tk_RegisterStyledElement \ - (tkStubsPtr->tk_RegisterStyledElement) /* 251 */ -#endif -#ifndef Tk_GetElementId -#define Tk_GetElementId \ - (tkStubsPtr->tk_GetElementId) /* 252 */ -#endif -#ifndef Tk_CreateStyle -#define Tk_CreateStyle \ - (tkStubsPtr->tk_CreateStyle) /* 253 */ -#endif -#ifndef Tk_GetStyle -#define Tk_GetStyle \ - (tkStubsPtr->tk_GetStyle) /* 254 */ -#endif -#ifndef Tk_FreeStyle -#define Tk_FreeStyle \ - (tkStubsPtr->tk_FreeStyle) /* 255 */ -#endif -#ifndef Tk_NameOfStyle -#define Tk_NameOfStyle \ - (tkStubsPtr->tk_NameOfStyle) /* 256 */ -#endif -#ifndef Tk_AllocStyleFromObj -#define Tk_AllocStyleFromObj \ - (tkStubsPtr->tk_AllocStyleFromObj) /* 257 */ -#endif -#ifndef Tk_GetStyleFromObj -#define Tk_GetStyleFromObj \ - (tkStubsPtr->tk_GetStyleFromObj) /* 258 */ -#endif -#ifndef Tk_FreeStyleFromObj -#define Tk_FreeStyleFromObj \ - (tkStubsPtr->tk_FreeStyleFromObj) /* 259 */ -#endif -#ifndef Tk_GetStyledElement -#define Tk_GetStyledElement \ - (tkStubsPtr->tk_GetStyledElement) /* 260 */ -#endif -#ifndef Tk_GetElementSize -#define Tk_GetElementSize \ - (tkStubsPtr->tk_GetElementSize) /* 261 */ -#endif -#ifndef Tk_GetElementBox -#define Tk_GetElementBox \ - (tkStubsPtr->tk_GetElementBox) /* 262 */ -#endif -#ifndef Tk_GetElementBorderWidth -#define Tk_GetElementBorderWidth \ - (tkStubsPtr->tk_GetElementBorderWidth) /* 263 */ -#endif -#ifndef Tk_DrawElement -#define Tk_DrawElement \ - (tkStubsPtr->tk_DrawElement) /* 264 */ -#endif - -#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKDECLS */ - - - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls.m b/Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls.m deleted file mode 100644 index 02da549ab28..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls.m +++ /dev/null @@ -1,870 +0,0 @@ -#ifndef _TKDECLS_VM -#define _TKDECLS_VM -#include "tkDecls_f.h" -#ifndef NO_VTABLES -#ifndef Tk_3DBorderColor -# define Tk_3DBorderColor (*TkdeclsVptr->V_Tk_3DBorderColor) -#endif - -#ifndef Tk_3DBorderGC -# define Tk_3DBorderGC (*TkdeclsVptr->V_Tk_3DBorderGC) -#endif - -#ifndef Tk_3DHorizontalBevel -# define Tk_3DHorizontalBevel (*TkdeclsVptr->V_Tk_3DHorizontalBevel) -#endif - -#ifndef Tk_3DVerticalBevel -# define Tk_3DVerticalBevel (*TkdeclsVptr->V_Tk_3DVerticalBevel) -#endif - -#ifndef Tk_Alloc3DBorderFromObj -# define Tk_Alloc3DBorderFromObj (*TkdeclsVptr->V_Tk_Alloc3DBorderFromObj) -#endif - -#ifndef Tk_AllocBitmapFromObj -# define Tk_AllocBitmapFromObj (*TkdeclsVptr->V_Tk_AllocBitmapFromObj) -#endif - -#ifndef Tk_AllocColorFromObj -# define Tk_AllocColorFromObj (*TkdeclsVptr->V_Tk_AllocColorFromObj) -#endif - -#ifndef Tk_AllocCursorFromObj -# define Tk_AllocCursorFromObj (*TkdeclsVptr->V_Tk_AllocCursorFromObj) -#endif - -#ifndef Tk_AllocFontFromObj -# define Tk_AllocFontFromObj (*TkdeclsVptr->V_Tk_AllocFontFromObj) -#endif - -#ifndef Tk_AllocStyleFromObj -# define Tk_AllocStyleFromObj (*TkdeclsVptr->V_Tk_AllocStyleFromObj) -#endif - -#ifndef Tk_BindEvent -# define Tk_BindEvent (*TkdeclsVptr->V_Tk_BindEvent) -#endif - -#ifndef Tk_ChangeWindowAttributes -# define Tk_ChangeWindowAttributes (*TkdeclsVptr->V_Tk_ChangeWindowAttributes) -#endif - -#ifndef Tk_CharBbox -# define Tk_CharBbox (*TkdeclsVptr->V_Tk_CharBbox) -#endif - -#ifndef Tk_ClearSelection -# define Tk_ClearSelection (*TkdeclsVptr->V_Tk_ClearSelection) -#endif - -#ifndef Tk_ClipboardAppend -# define Tk_ClipboardAppend (*TkdeclsVptr->V_Tk_ClipboardAppend) -#endif - -#ifndef Tk_ClipboardClear -# define Tk_ClipboardClear (*TkdeclsVptr->V_Tk_ClipboardClear) -#endif - -#ifndef Tk_CollapseMotionEvents -# define Tk_CollapseMotionEvents (*TkdeclsVptr->V_Tk_CollapseMotionEvents) -#endif - -#ifndef Tk_ComputeTextLayout -# define Tk_ComputeTextLayout (*TkdeclsVptr->V_Tk_ComputeTextLayout) -#endif - -#ifndef Tk_ConfigureInfo -# define Tk_ConfigureInfo (*TkdeclsVptr->V_Tk_ConfigureInfo) -#endif - -#ifndef Tk_ConfigureValue -# define Tk_ConfigureValue (*TkdeclsVptr->V_Tk_ConfigureValue) -#endif - -#ifndef Tk_ConfigureWidget -# define Tk_ConfigureWidget (*TkdeclsVptr->V_Tk_ConfigureWidget) -#endif - -#ifndef Tk_ConfigureWindow -# define Tk_ConfigureWindow (*TkdeclsVptr->V_Tk_ConfigureWindow) -#endif - -#ifndef Tk_CoordsToWindow -# define Tk_CoordsToWindow (*TkdeclsVptr->V_Tk_CoordsToWindow) -#endif - -#ifndef Tk_CreateAnonymousWindow -# define Tk_CreateAnonymousWindow (*TkdeclsVptr->V_Tk_CreateAnonymousWindow) -#endif - -#ifndef Tk_CreateBinding -# define Tk_CreateBinding (*TkdeclsVptr->V_Tk_CreateBinding) -#endif - -#ifndef Tk_CreateBindingTable -# define Tk_CreateBindingTable (*TkdeclsVptr->V_Tk_CreateBindingTable) -#endif - -#ifndef Tk_CreateClientMessageHandler -# define Tk_CreateClientMessageHandler (*TkdeclsVptr->V_Tk_CreateClientMessageHandler) -#endif - -#ifndef Tk_CreateErrorHandler -# define Tk_CreateErrorHandler (*TkdeclsVptr->V_Tk_CreateErrorHandler) -#endif - -#ifndef Tk_CreateEventHandler -# define Tk_CreateEventHandler (*TkdeclsVptr->V_Tk_CreateEventHandler) -#endif - -#ifndef Tk_CreateGenericHandler -# define Tk_CreateGenericHandler (*TkdeclsVptr->V_Tk_CreateGenericHandler) -#endif - -#ifndef Tk_CreateImageType -# define Tk_CreateImageType (*TkdeclsVptr->V_Tk_CreateImageType) -#endif - -#ifndef Tk_CreateOptionTable -# define Tk_CreateOptionTable (*TkdeclsVptr->V_Tk_CreateOptionTable) -#endif - -#ifndef Tk_CreateSelHandler -# define Tk_CreateSelHandler (*TkdeclsVptr->V_Tk_CreateSelHandler) -#endif - -#ifndef Tk_CreateStyle -# define Tk_CreateStyle (*TkdeclsVptr->V_Tk_CreateStyle) -#endif - -#ifndef Tk_CreateWindow -# define Tk_CreateWindow (*TkdeclsVptr->V_Tk_CreateWindow) -#endif - -#ifndef Tk_CreateWindowFromPath -# define Tk_CreateWindowFromPath (*TkdeclsVptr->V_Tk_CreateWindowFromPath) -#endif - -#ifndef Tk_DefineBitmap -# define Tk_DefineBitmap (*TkdeclsVptr->V_Tk_DefineBitmap) -#endif - -#ifndef Tk_DefineCursor -# define Tk_DefineCursor (*TkdeclsVptr->V_Tk_DefineCursor) -#endif - -#ifndef Tk_DeleteAllBindings -# define Tk_DeleteAllBindings (*TkdeclsVptr->V_Tk_DeleteAllBindings) -#endif - -#ifndef Tk_DeleteBinding -# define Tk_DeleteBinding (*TkdeclsVptr->V_Tk_DeleteBinding) -#endif - -#ifndef Tk_DeleteBindingTable -# define Tk_DeleteBindingTable (*TkdeclsVptr->V_Tk_DeleteBindingTable) -#endif - -#ifndef Tk_DeleteClientMessageHandler -# define Tk_DeleteClientMessageHandler (*TkdeclsVptr->V_Tk_DeleteClientMessageHandler) -#endif - -#ifndef Tk_DeleteErrorHandler -# define Tk_DeleteErrorHandler (*TkdeclsVptr->V_Tk_DeleteErrorHandler) -#endif - -#ifndef Tk_DeleteEventHandler -# define Tk_DeleteEventHandler (*TkdeclsVptr->V_Tk_DeleteEventHandler) -#endif - -#ifndef Tk_DeleteGenericHandler -# define Tk_DeleteGenericHandler (*TkdeclsVptr->V_Tk_DeleteGenericHandler) -#endif - -#ifndef Tk_DeleteImage -# define Tk_DeleteImage (*TkdeclsVptr->V_Tk_DeleteImage) -#endif - -#ifndef Tk_DeleteOptionTable -# define Tk_DeleteOptionTable (*TkdeclsVptr->V_Tk_DeleteOptionTable) -#endif - -#ifndef Tk_DeleteSelHandler -# define Tk_DeleteSelHandler (*TkdeclsVptr->V_Tk_DeleteSelHandler) -#endif - -#ifndef Tk_DestroyWindow -# define Tk_DestroyWindow (*TkdeclsVptr->V_Tk_DestroyWindow) -#endif - -#ifndef Tk_DisplayName -# define Tk_DisplayName (*TkdeclsVptr->V_Tk_DisplayName) -#endif - -#ifndef Tk_DistanceToTextLayout -# define Tk_DistanceToTextLayout (*TkdeclsVptr->V_Tk_DistanceToTextLayout) -#endif - -#ifndef Tk_Draw3DPolygon -# define Tk_Draw3DPolygon (*TkdeclsVptr->V_Tk_Draw3DPolygon) -#endif - -#ifndef Tk_Draw3DRectangle -# define Tk_Draw3DRectangle (*TkdeclsVptr->V_Tk_Draw3DRectangle) -#endif - -#ifndef Tk_DrawChars -# define Tk_DrawChars (*TkdeclsVptr->V_Tk_DrawChars) -#endif - -#ifndef Tk_DrawElement -# define Tk_DrawElement (*TkdeclsVptr->V_Tk_DrawElement) -#endif - -#ifndef Tk_DrawFocusHighlight -# define Tk_DrawFocusHighlight (*TkdeclsVptr->V_Tk_DrawFocusHighlight) -#endif - -#ifndef Tk_DrawTextLayout -# define Tk_DrawTextLayout (*TkdeclsVptr->V_Tk_DrawTextLayout) -#endif - -#ifndef Tk_Fill3DPolygon -# define Tk_Fill3DPolygon (*TkdeclsVptr->V_Tk_Fill3DPolygon) -#endif - -#ifndef Tk_Fill3DRectangle -# define Tk_Fill3DRectangle (*TkdeclsVptr->V_Tk_Fill3DRectangle) -#endif - -#ifndef Tk_FontId -# define Tk_FontId (*TkdeclsVptr->V_Tk_FontId) -#endif - -#ifndef Tk_Free3DBorder -# define Tk_Free3DBorder (*TkdeclsVptr->V_Tk_Free3DBorder) -#endif - -#ifndef Tk_Free3DBorderFromObj -# define Tk_Free3DBorderFromObj (*TkdeclsVptr->V_Tk_Free3DBorderFromObj) -#endif - -#ifndef Tk_FreeBitmap -# define Tk_FreeBitmap (*TkdeclsVptr->V_Tk_FreeBitmap) -#endif - -#ifndef Tk_FreeBitmapFromObj -# define Tk_FreeBitmapFromObj (*TkdeclsVptr->V_Tk_FreeBitmapFromObj) -#endif - -#ifndef Tk_FreeColor -# define Tk_FreeColor (*TkdeclsVptr->V_Tk_FreeColor) -#endif - -#ifndef Tk_FreeColorFromObj -# define Tk_FreeColorFromObj (*TkdeclsVptr->V_Tk_FreeColorFromObj) -#endif - -#ifndef Tk_FreeColormap -# define Tk_FreeColormap (*TkdeclsVptr->V_Tk_FreeColormap) -#endif - -#ifndef Tk_FreeConfigOptions -# define Tk_FreeConfigOptions (*TkdeclsVptr->V_Tk_FreeConfigOptions) -#endif - -#ifndef Tk_FreeCursor -# define Tk_FreeCursor (*TkdeclsVptr->V_Tk_FreeCursor) -#endif - -#ifndef Tk_FreeCursorFromObj -# define Tk_FreeCursorFromObj (*TkdeclsVptr->V_Tk_FreeCursorFromObj) -#endif - -#ifndef Tk_FreeFont -# define Tk_FreeFont (*TkdeclsVptr->V_Tk_FreeFont) -#endif - -#ifndef Tk_FreeFontFromObj -# define Tk_FreeFontFromObj (*TkdeclsVptr->V_Tk_FreeFontFromObj) -#endif - -#ifndef Tk_FreeGC -# define Tk_FreeGC (*TkdeclsVptr->V_Tk_FreeGC) -#endif - -#ifndef Tk_FreeImage -# define Tk_FreeImage (*TkdeclsVptr->V_Tk_FreeImage) -#endif - -#ifndef Tk_FreeOptions -# define Tk_FreeOptions (*TkdeclsVptr->V_Tk_FreeOptions) -#endif - -#ifndef Tk_FreePixmap -# define Tk_FreePixmap (*TkdeclsVptr->V_Tk_FreePixmap) -#endif - -#ifndef Tk_FreeSavedOptions -# define Tk_FreeSavedOptions (*TkdeclsVptr->V_Tk_FreeSavedOptions) -#endif - -#ifndef Tk_FreeStyle -# define Tk_FreeStyle (*TkdeclsVptr->V_Tk_FreeStyle) -#endif - -#ifndef Tk_FreeStyleFromObj -# define Tk_FreeStyleFromObj (*TkdeclsVptr->V_Tk_FreeStyleFromObj) -#endif - -#ifndef Tk_FreeTextLayout -# define Tk_FreeTextLayout (*TkdeclsVptr->V_Tk_FreeTextLayout) -#endif - -#ifndef Tk_FreeXId -# define Tk_FreeXId (*TkdeclsVptr->V_Tk_FreeXId) -#endif - -#ifndef Tk_GCForColor -# define Tk_GCForColor (*TkdeclsVptr->V_Tk_GCForColor) -#endif - -#ifndef Tk_GeometryRequest -# define Tk_GeometryRequest (*TkdeclsVptr->V_Tk_GeometryRequest) -#endif - -#ifndef Tk_Get3DBorder -# define Tk_Get3DBorder (*TkdeclsVptr->V_Tk_Get3DBorder) -#endif - -#ifndef Tk_Get3DBorderFromObj -# define Tk_Get3DBorderFromObj (*TkdeclsVptr->V_Tk_Get3DBorderFromObj) -#endif - -#ifndef Tk_GetAllBindings -# define Tk_GetAllBindings (*TkdeclsVptr->V_Tk_GetAllBindings) -#endif - -#ifndef Tk_GetAnchor -# define Tk_GetAnchor (*TkdeclsVptr->V_Tk_GetAnchor) -#endif - -#ifndef Tk_GetAnchorFromObj -# define Tk_GetAnchorFromObj (*TkdeclsVptr->V_Tk_GetAnchorFromObj) -#endif - -#ifndef Tk_GetAtomName -# define Tk_GetAtomName (*TkdeclsVptr->V_Tk_GetAtomName) -#endif - -#ifndef Tk_GetBinding -# define Tk_GetBinding (*TkdeclsVptr->V_Tk_GetBinding) -#endif - -#ifndef Tk_GetBitmap -# define Tk_GetBitmap (*TkdeclsVptr->V_Tk_GetBitmap) -#endif - -#ifndef Tk_GetBitmapFromData -# define Tk_GetBitmapFromData (*TkdeclsVptr->V_Tk_GetBitmapFromData) -#endif - -#ifndef Tk_GetBitmapFromObj -# define Tk_GetBitmapFromObj (*TkdeclsVptr->V_Tk_GetBitmapFromObj) -#endif - -#ifndef Tk_GetCapStyle -# define Tk_GetCapStyle (*TkdeclsVptr->V_Tk_GetCapStyle) -#endif - -#ifndef Tk_GetColor -# define Tk_GetColor (*TkdeclsVptr->V_Tk_GetColor) -#endif - -#ifndef Tk_GetColorByValue -# define Tk_GetColorByValue (*TkdeclsVptr->V_Tk_GetColorByValue) -#endif - -#ifndef Tk_GetColorFromObj -# define Tk_GetColorFromObj (*TkdeclsVptr->V_Tk_GetColorFromObj) -#endif - -#ifndef Tk_GetColormap -# define Tk_GetColormap (*TkdeclsVptr->V_Tk_GetColormap) -#endif - -#ifndef Tk_GetCursor -# define Tk_GetCursor (*TkdeclsVptr->V_Tk_GetCursor) -#endif - -#ifndef Tk_GetCursorFromData -# define Tk_GetCursorFromData (*TkdeclsVptr->V_Tk_GetCursorFromData) -#endif - -#ifndef Tk_GetCursorFromObj -# define Tk_GetCursorFromObj (*TkdeclsVptr->V_Tk_GetCursorFromObj) -#endif - -#ifndef Tk_GetElementBorderWidth -# define Tk_GetElementBorderWidth (*TkdeclsVptr->V_Tk_GetElementBorderWidth) -#endif - -#ifndef Tk_GetElementBox -# define Tk_GetElementBox (*TkdeclsVptr->V_Tk_GetElementBox) -#endif - -#ifndef Tk_GetElementId -# define Tk_GetElementId (*TkdeclsVptr->V_Tk_GetElementId) -#endif - -#ifndef Tk_GetElementSize -# define Tk_GetElementSize (*TkdeclsVptr->V_Tk_GetElementSize) -#endif - -#ifndef Tk_GetFont -# define Tk_GetFont (*TkdeclsVptr->V_Tk_GetFont) -#endif - -#ifndef Tk_GetFontFromObj -# define Tk_GetFontFromObj (*TkdeclsVptr->V_Tk_GetFontFromObj) -#endif - -#ifndef Tk_GetFontMetrics -# define Tk_GetFontMetrics (*TkdeclsVptr->V_Tk_GetFontMetrics) -#endif - -#ifndef Tk_GetGC -# define Tk_GetGC (*TkdeclsVptr->V_Tk_GetGC) -#endif - -#ifndef Tk_GetImage -# define Tk_GetImage (*TkdeclsVptr->V_Tk_GetImage) -#endif - -#ifndef Tk_GetImageMasterData -# define Tk_GetImageMasterData (*TkdeclsVptr->V_Tk_GetImageMasterData) -#endif - -#ifndef Tk_GetJoinStyle -# define Tk_GetJoinStyle (*TkdeclsVptr->V_Tk_GetJoinStyle) -#endif - -#ifndef Tk_GetJustify -# define Tk_GetJustify (*TkdeclsVptr->V_Tk_GetJustify) -#endif - -#ifndef Tk_GetJustifyFromObj -# define Tk_GetJustifyFromObj (*TkdeclsVptr->V_Tk_GetJustifyFromObj) -#endif - -#ifndef Tk_GetMMFromObj -# define Tk_GetMMFromObj (*TkdeclsVptr->V_Tk_GetMMFromObj) -#endif - -#ifndef Tk_GetNumMainWindows -# define Tk_GetNumMainWindows (*TkdeclsVptr->V_Tk_GetNumMainWindows) -#endif - -#ifndef Tk_GetOptionInfo -# define Tk_GetOptionInfo (*TkdeclsVptr->V_Tk_GetOptionInfo) -#endif - -#ifndef Tk_GetOptionValue -# define Tk_GetOptionValue (*TkdeclsVptr->V_Tk_GetOptionValue) -#endif - -#ifndef Tk_GetPixels -# define Tk_GetPixels (*TkdeclsVptr->V_Tk_GetPixels) -#endif - -#ifndef Tk_GetPixelsFromObj -# define Tk_GetPixelsFromObj (*TkdeclsVptr->V_Tk_GetPixelsFromObj) -#endif - -#ifndef Tk_GetPixmap -# define Tk_GetPixmap (*TkdeclsVptr->V_Tk_GetPixmap) -#endif - -#ifndef Tk_GetRelief -# define Tk_GetRelief (*TkdeclsVptr->V_Tk_GetRelief) -#endif - -#ifndef Tk_GetReliefFromObj -# define Tk_GetReliefFromObj (*TkdeclsVptr->V_Tk_GetReliefFromObj) -#endif - -#ifndef Tk_GetRootCoords -# define Tk_GetRootCoords (*TkdeclsVptr->V_Tk_GetRootCoords) -#endif - -#ifndef Tk_GetScreenMM -# define Tk_GetScreenMM (*TkdeclsVptr->V_Tk_GetScreenMM) -#endif - -#ifndef Tk_GetScrollInfo -# define Tk_GetScrollInfo (*TkdeclsVptr->V_Tk_GetScrollInfo) -#endif - -#ifndef Tk_GetScrollInfoObj -# define Tk_GetScrollInfoObj (*TkdeclsVptr->V_Tk_GetScrollInfoObj) -#endif - -#ifndef Tk_GetSelection -# define Tk_GetSelection (*TkdeclsVptr->V_Tk_GetSelection) -#endif - -#ifndef Tk_GetStyle -# define Tk_GetStyle (*TkdeclsVptr->V_Tk_GetStyle) -#endif - -#ifndef Tk_GetStyleEngine -# define Tk_GetStyleEngine (*TkdeclsVptr->V_Tk_GetStyleEngine) -#endif - -#ifndef Tk_GetStyleFromObj -# define Tk_GetStyleFromObj (*TkdeclsVptr->V_Tk_GetStyleFromObj) -#endif - -#ifndef Tk_GetStyledElement -# define Tk_GetStyledElement (*TkdeclsVptr->V_Tk_GetStyledElement) -#endif - -#ifndef Tk_GetUid -# define Tk_GetUid (*TkdeclsVptr->V_Tk_GetUid) -#endif - -#ifndef Tk_GetVRootGeometry -# define Tk_GetVRootGeometry (*TkdeclsVptr->V_Tk_GetVRootGeometry) -#endif - -#ifndef Tk_GetVisual -# define Tk_GetVisual (*TkdeclsVptr->V_Tk_GetVisual) -#endif - -#ifndef Tk_Grab -# define Tk_Grab (*TkdeclsVptr->V_Tk_Grab) -#endif - -#ifndef Tk_HandleEvent -# define Tk_HandleEvent (*TkdeclsVptr->V_Tk_HandleEvent) -#endif - -#ifndef Tk_IdToWindow -# define Tk_IdToWindow (*TkdeclsVptr->V_Tk_IdToWindow) -#endif - -#ifndef Tk_ImageChanged -# define Tk_ImageChanged (*TkdeclsVptr->V_Tk_ImageChanged) -#endif - -#ifndef Tk_InitOptions -# define Tk_InitOptions (*TkdeclsVptr->V_Tk_InitOptions) -#endif - -#ifndef Tk_InternAtom -# define Tk_InternAtom (*TkdeclsVptr->V_Tk_InternAtom) -#endif - -#ifndef Tk_IntersectTextLayout -# define Tk_IntersectTextLayout (*TkdeclsVptr->V_Tk_IntersectTextLayout) -#endif - -#ifndef Tk_MainLoop -# define Tk_MainLoop (*TkdeclsVptr->V_Tk_MainLoop) -#endif - -#ifndef Tk_MainWindow -# define Tk_MainWindow (*TkdeclsVptr->V_Tk_MainWindow) -#endif - -#ifndef Tk_MaintainGeometry -# define Tk_MaintainGeometry (*TkdeclsVptr->V_Tk_MaintainGeometry) -#endif - -#ifndef Tk_MakeWindowExist -# define Tk_MakeWindowExist (*TkdeclsVptr->V_Tk_MakeWindowExist) -#endif - -#ifndef Tk_ManageGeometry -# define Tk_ManageGeometry (*TkdeclsVptr->V_Tk_ManageGeometry) -#endif - -#ifndef Tk_MapWindow -# define Tk_MapWindow (*TkdeclsVptr->V_Tk_MapWindow) -#endif - -#ifndef Tk_MeasureChars -# define Tk_MeasureChars (*TkdeclsVptr->V_Tk_MeasureChars) -#endif - -#ifndef Tk_MoveResizeWindow -# define Tk_MoveResizeWindow (*TkdeclsVptr->V_Tk_MoveResizeWindow) -#endif - -#ifndef Tk_MoveToplevelWindow -# define Tk_MoveToplevelWindow (*TkdeclsVptr->V_Tk_MoveToplevelWindow) -#endif - -#ifndef Tk_MoveWindow -# define Tk_MoveWindow (*TkdeclsVptr->V_Tk_MoveWindow) -#endif - -#ifndef Tk_NameOf3DBorder -# define Tk_NameOf3DBorder (*TkdeclsVptr->V_Tk_NameOf3DBorder) -#endif - -#ifndef Tk_NameOfAnchor -# define Tk_NameOfAnchor (*TkdeclsVptr->V_Tk_NameOfAnchor) -#endif - -#ifndef Tk_NameOfBitmap -# define Tk_NameOfBitmap (*TkdeclsVptr->V_Tk_NameOfBitmap) -#endif - -#ifndef Tk_NameOfCapStyle -# define Tk_NameOfCapStyle (*TkdeclsVptr->V_Tk_NameOfCapStyle) -#endif - -#ifndef Tk_NameOfColor -# define Tk_NameOfColor (*TkdeclsVptr->V_Tk_NameOfColor) -#endif - -#ifndef Tk_NameOfCursor -# define Tk_NameOfCursor (*TkdeclsVptr->V_Tk_NameOfCursor) -#endif - -#ifndef Tk_NameOfFont -# define Tk_NameOfFont (*TkdeclsVptr->V_Tk_NameOfFont) -#endif - -#ifndef Tk_NameOfImage -# define Tk_NameOfImage (*TkdeclsVptr->V_Tk_NameOfImage) -#endif - -#ifndef Tk_NameOfJoinStyle -# define Tk_NameOfJoinStyle (*TkdeclsVptr->V_Tk_NameOfJoinStyle) -#endif - -#ifndef Tk_NameOfJustify -# define Tk_NameOfJustify (*TkdeclsVptr->V_Tk_NameOfJustify) -#endif - -#ifndef Tk_NameOfRelief -# define Tk_NameOfRelief (*TkdeclsVptr->V_Tk_NameOfRelief) -#endif - -#ifndef Tk_NameOfStyle -# define Tk_NameOfStyle (*TkdeclsVptr->V_Tk_NameOfStyle) -#endif - -#ifndef Tk_NameToWindow -# define Tk_NameToWindow (*TkdeclsVptr->V_Tk_NameToWindow) -#endif - -#ifndef Tk_OwnSelection -# define Tk_OwnSelection (*TkdeclsVptr->V_Tk_OwnSelection) -#endif - -#ifndef Tk_PointToChar -# define Tk_PointToChar (*TkdeclsVptr->V_Tk_PointToChar) -#endif - -#ifndef Tk_PostscriptBitmap -# define Tk_PostscriptBitmap (*TkdeclsVptr->V_Tk_PostscriptBitmap) -#endif - -#ifndef Tk_PostscriptColor -# define Tk_PostscriptColor (*TkdeclsVptr->V_Tk_PostscriptColor) -#endif - -#ifndef Tk_PostscriptFont -# define Tk_PostscriptFont (*TkdeclsVptr->V_Tk_PostscriptFont) -#endif - -#ifndef Tk_PostscriptFontName -# define Tk_PostscriptFontName (*TkdeclsVptr->V_Tk_PostscriptFontName) -#endif - -#ifndef Tk_PostscriptImage -# define Tk_PostscriptImage (*TkdeclsVptr->V_Tk_PostscriptImage) -#endif - -#ifndef Tk_PostscriptPath -# define Tk_PostscriptPath (*TkdeclsVptr->V_Tk_PostscriptPath) -#endif - -#ifndef Tk_PostscriptPhoto -# define Tk_PostscriptPhoto (*TkdeclsVptr->V_Tk_PostscriptPhoto) -#endif - -#ifndef Tk_PostscriptStipple -# define Tk_PostscriptStipple (*TkdeclsVptr->V_Tk_PostscriptStipple) -#endif - -#ifndef Tk_PostscriptY -# define Tk_PostscriptY (*TkdeclsVptr->V_Tk_PostscriptY) -#endif - -#ifndef Tk_PreserveColormap -# define Tk_PreserveColormap (*TkdeclsVptr->V_Tk_PreserveColormap) -#endif - -#ifndef Tk_QueueWindowEvent -# define Tk_QueueWindowEvent (*TkdeclsVptr->V_Tk_QueueWindowEvent) -#endif - -#ifndef Tk_RedrawImage -# define Tk_RedrawImage (*TkdeclsVptr->V_Tk_RedrawImage) -#endif - -#ifndef Tk_RegisterStyleEngine -# define Tk_RegisterStyleEngine (*TkdeclsVptr->V_Tk_RegisterStyleEngine) -#endif - -#ifndef Tk_RegisterStyledElement -# define Tk_RegisterStyledElement (*TkdeclsVptr->V_Tk_RegisterStyledElement) -#endif - -#ifndef Tk_ResizeWindow -# define Tk_ResizeWindow (*TkdeclsVptr->V_Tk_ResizeWindow) -#endif - -#ifndef Tk_RestackWindow -# define Tk_RestackWindow (*TkdeclsVptr->V_Tk_RestackWindow) -#endif - -#ifndef Tk_RestoreSavedOptions -# define Tk_RestoreSavedOptions (*TkdeclsVptr->V_Tk_RestoreSavedOptions) -#endif - -#ifndef Tk_RestrictEvents -# define Tk_RestrictEvents (*TkdeclsVptr->V_Tk_RestrictEvents) -#endif - -#ifndef Tk_SetAppName -# define Tk_SetAppName (*TkdeclsVptr->V_Tk_SetAppName) -#endif - -#ifndef Tk_SetBackgroundFromBorder -# define Tk_SetBackgroundFromBorder (*TkdeclsVptr->V_Tk_SetBackgroundFromBorder) -#endif - -#ifndef Tk_SetCaretPos -# define Tk_SetCaretPos (*TkdeclsVptr->V_Tk_SetCaretPos) -#endif - -#ifndef Tk_SetClass -# define Tk_SetClass (*TkdeclsVptr->V_Tk_SetClass) -#endif - -#ifndef Tk_SetClassProcs -# define Tk_SetClassProcs (*TkdeclsVptr->V_Tk_SetClassProcs) -#endif - -#ifndef Tk_SetGrid -# define Tk_SetGrid (*TkdeclsVptr->V_Tk_SetGrid) -#endif - -#ifndef Tk_SetInternalBorder -# define Tk_SetInternalBorder (*TkdeclsVptr->V_Tk_SetInternalBorder) -#endif - -#ifndef Tk_SetInternalBorderEx -# define Tk_SetInternalBorderEx (*TkdeclsVptr->V_Tk_SetInternalBorderEx) -#endif - -#ifndef Tk_SetMinimumRequestSize -# define Tk_SetMinimumRequestSize (*TkdeclsVptr->V_Tk_SetMinimumRequestSize) -#endif - -#ifndef Tk_SetOptions -# define Tk_SetOptions (*TkdeclsVptr->V_Tk_SetOptions) -#endif - -#ifndef Tk_SetTSOrigin -# define Tk_SetTSOrigin (*TkdeclsVptr->V_Tk_SetTSOrigin) -#endif - -#ifndef Tk_SetWindowBackground -# define Tk_SetWindowBackground (*TkdeclsVptr->V_Tk_SetWindowBackground) -#endif - -#ifndef Tk_SetWindowBackgroundPixmap -# define Tk_SetWindowBackgroundPixmap (*TkdeclsVptr->V_Tk_SetWindowBackgroundPixmap) -#endif - -#ifndef Tk_SetWindowBorder -# define Tk_SetWindowBorder (*TkdeclsVptr->V_Tk_SetWindowBorder) -#endif - -#ifndef Tk_SetWindowBorderPixmap -# define Tk_SetWindowBorderPixmap (*TkdeclsVptr->V_Tk_SetWindowBorderPixmap) -#endif - -#ifndef Tk_SetWindowBorderWidth -# define Tk_SetWindowBorderWidth (*TkdeclsVptr->V_Tk_SetWindowBorderWidth) -#endif - -#ifndef Tk_SetWindowColormap -# define Tk_SetWindowColormap (*TkdeclsVptr->V_Tk_SetWindowColormap) -#endif - -#ifndef Tk_SetWindowVisual -# define Tk_SetWindowVisual (*TkdeclsVptr->V_Tk_SetWindowVisual) -#endif - -#ifndef Tk_SizeOfBitmap -# define Tk_SizeOfBitmap (*TkdeclsVptr->V_Tk_SizeOfBitmap) -#endif - -#ifndef Tk_SizeOfImage -# define Tk_SizeOfImage (*TkdeclsVptr->V_Tk_SizeOfImage) -#endif - -#ifndef Tk_StrictMotif -# define Tk_StrictMotif (*TkdeclsVptr->V_Tk_StrictMotif) -#endif - -#ifndef Tk_TextLayoutToPostscript -# define Tk_TextLayoutToPostscript (*TkdeclsVptr->V_Tk_TextLayoutToPostscript) -#endif - -#ifndef Tk_TextWidth -# define Tk_TextWidth (*TkdeclsVptr->V_Tk_TextWidth) -#endif - -#ifndef Tk_UndefineCursor -# define Tk_UndefineCursor (*TkdeclsVptr->V_Tk_UndefineCursor) -#endif - -#ifndef Tk_UnderlineChars -# define Tk_UnderlineChars (*TkdeclsVptr->V_Tk_UnderlineChars) -#endif - -#ifndef Tk_UnderlineTextLayout -# define Tk_UnderlineTextLayout (*TkdeclsVptr->V_Tk_UnderlineTextLayout) -#endif - -#ifndef Tk_Ungrab -# define Tk_Ungrab (*TkdeclsVptr->V_Tk_Ungrab) -#endif - -#ifndef Tk_UnmaintainGeometry -# define Tk_UnmaintainGeometry (*TkdeclsVptr->V_Tk_UnmaintainGeometry) -#endif - -#ifndef Tk_UnmapWindow -# define Tk_UnmapWindow (*TkdeclsVptr->V_Tk_UnmapWindow) -#endif - -#ifndef Tk_UnsetGrid -# define Tk_UnsetGrid (*TkdeclsVptr->V_Tk_UnsetGrid) -#endif - -#ifndef Tk_UpdatePointer -# define Tk_UpdatePointer (*TkdeclsVptr->V_Tk_UpdatePointer) -#endif - -#endif /* NO_VTABLES */ -#endif /* _TKDECLS_VM */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls.t b/Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls.t deleted file mode 100644 index f112ff449de..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls.t +++ /dev/null @@ -1,1158 +0,0 @@ -#ifdef _TKDECLS
-#ifndef Tk_3DBorderColor
-VFUNC(XColor *,Tk_3DBorderColor,V_Tk_3DBorderColor,_ANSI_ARGS_((Tk_3DBorder border)))
-#endif /* #ifndef Tk_3DBorderColor */
-
-#ifndef Tk_3DBorderGC
-VFUNC(GC,Tk_3DBorderGC,V_Tk_3DBorderGC,_ANSI_ARGS_((Tk_Window tkwin,
- Tk_3DBorder border, int which)))
-#endif /* #ifndef Tk_3DBorderGC */
-
-#ifndef Tk_3DHorizontalBevel
-VFUNC(void,Tk_3DHorizontalBevel,V_Tk_3DHorizontalBevel,_ANSI_ARGS_((Tk_Window tkwin,
- Drawable drawable, Tk_3DBorder border, int x,
- int y, int width, int height, int leftIn,
- int rightIn, int topBevel, int relief)))
-#endif /* #ifndef Tk_3DHorizontalBevel */
-
-#ifndef Tk_3DVerticalBevel
-VFUNC(void,Tk_3DVerticalBevel,V_Tk_3DVerticalBevel,_ANSI_ARGS_((Tk_Window tkwin,
- Drawable drawable, Tk_3DBorder border, int x,
- int y, int width, int height, int leftBevel,
- int relief)))
-#endif /* #ifndef Tk_3DVerticalBevel */
-
-#ifndef Tk_Alloc3DBorderFromObj
-VFUNC(Tk_3DBorder,Tk_Alloc3DBorderFromObj,V_Tk_Alloc3DBorderFromObj,_ANSI_ARGS_((
- Tcl_Interp * interp, Tk_Window tkwin,
- Tcl_Obj * objPtr)))
-#endif /* #ifndef Tk_Alloc3DBorderFromObj */
-
-#ifndef Tk_AllocBitmapFromObj
-VFUNC(Pixmap,Tk_AllocBitmapFromObj,V_Tk_AllocBitmapFromObj,_ANSI_ARGS_((
- Tcl_Interp * interp, Tk_Window tkwin,
- Tcl_Obj * objPtr)))
-#endif /* #ifndef Tk_AllocBitmapFromObj */
-
-#ifndef Tk_AllocColorFromObj
-VFUNC(XColor *,Tk_AllocColorFromObj,V_Tk_AllocColorFromObj,_ANSI_ARGS_((
- Tcl_Interp * interp, Tk_Window tkwin,
- Tcl_Obj * objPtr)))
-#endif /* #ifndef Tk_AllocColorFromObj */
-
-#ifndef Tk_AllocCursorFromObj
-VFUNC(Tk_Cursor,Tk_AllocCursorFromObj,V_Tk_AllocCursorFromObj,_ANSI_ARGS_((
- Tcl_Interp * interp, Tk_Window tkwin,
- Tcl_Obj * objPtr)))
-#endif /* #ifndef Tk_AllocCursorFromObj */
-
-#ifndef Tk_AllocFontFromObj
-VFUNC(Tk_Font,Tk_AllocFontFromObj,V_Tk_AllocFontFromObj,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, Tcl_Obj * objPtr)))
-#endif /* #ifndef Tk_AllocFontFromObj */
-
-#ifndef Tk_AllocStyleFromObj
-VFUNC(Tk_Style,Tk_AllocStyleFromObj,V_Tk_AllocStyleFromObj,_ANSI_ARGS_((
- Tcl_Interp * interp, Tcl_Obj * objPtr)))
-#endif /* #ifndef Tk_AllocStyleFromObj */
-
-#ifndef Tk_BindEvent
-VFUNC(void,Tk_BindEvent,V_Tk_BindEvent,_ANSI_ARGS_((
- Tk_BindingTable bindingTable,
- XEvent * eventPtr, Tk_Window tkwin,
- int numObjects, ClientData * objectPtr)))
-#endif /* #ifndef Tk_BindEvent */
-
-#ifndef Tk_ChangeWindowAttributes
-VFUNC(void,Tk_ChangeWindowAttributes,V_Tk_ChangeWindowAttributes,_ANSI_ARGS_((
- Tk_Window tkwin, unsigned long valueMask,
- XSetWindowAttributes * attsPtr)))
-#endif /* #ifndef Tk_ChangeWindowAttributes */
-
-#ifndef Tk_CharBbox
-VFUNC(int,Tk_CharBbox,V_Tk_CharBbox,_ANSI_ARGS_((Tk_TextLayout layout,
- int index, int * xPtr, int * yPtr,
- int * widthPtr, int * heightPtr)))
-#endif /* #ifndef Tk_CharBbox */
-
-#ifndef Tk_ClearSelection
-VFUNC(void,Tk_ClearSelection,V_Tk_ClearSelection,_ANSI_ARGS_((Tk_Window tkwin,
- Atom selection)))
-#endif /* #ifndef Tk_ClearSelection */
-
-#ifndef Tk_ClipboardAppend
-VFUNC(int,Tk_ClipboardAppend,V_Tk_ClipboardAppend,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, Atom target, Atom format,
- char* buffer)))
-#endif /* #ifndef Tk_ClipboardAppend */
-
-#ifndef Tk_ClipboardClear
-VFUNC(int,Tk_ClipboardClear,V_Tk_ClipboardClear,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin)))
-#endif /* #ifndef Tk_ClipboardClear */
-
-#ifndef Tk_CollapseMotionEvents
-VFUNC(int,Tk_CollapseMotionEvents,V_Tk_CollapseMotionEvents,_ANSI_ARGS_((
- Display * display, int collapse)))
-#endif /* #ifndef Tk_CollapseMotionEvents */
-
-#ifndef Tk_ComputeTextLayout
-VFUNC(Tk_TextLayout,Tk_ComputeTextLayout,V_Tk_ComputeTextLayout,_ANSI_ARGS_((Tk_Font font,
- CONST char * str, int numChars,
- int wrapLength, Tk_Justify justify,
- int flags, int * widthPtr, int * heightPtr)))
-#endif /* #ifndef Tk_ComputeTextLayout */
-
-#ifndef Tk_ConfigureInfo
-VFUNC(int,Tk_ConfigureInfo,V_Tk_ConfigureInfo,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, Tk_ConfigSpec * specs,
- char * widgRec, CONST char * argvName,
- int flags)))
-#endif /* #ifndef Tk_ConfigureInfo */
-
-#ifndef Tk_ConfigureValue
-VFUNC(int,Tk_ConfigureValue,V_Tk_ConfigureValue,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, Tk_ConfigSpec * specs,
- char * widgRec, CONST char * argvName,
- int flags)))
-#endif /* #ifndef Tk_ConfigureValue */
-
-#ifndef Tk_ConfigureWidget
-VFUNC(int,Tk_ConfigureWidget,V_Tk_ConfigureWidget,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, Tk_ConfigSpec * specs,
- int argc, CONST84 Tcl_Obj *CONST *objv,
- char * widgRec, int flags)))
-#endif /* #ifndef Tk_ConfigureWidget */
-
-#ifndef Tk_ConfigureWindow
-VFUNC(void,Tk_ConfigureWindow,V_Tk_ConfigureWindow,_ANSI_ARGS_((Tk_Window tkwin,
- unsigned int valueMask,
- XWindowChanges * valuePtr)))
-#endif /* #ifndef Tk_ConfigureWindow */
-
-#ifndef Tk_CoordsToWindow
-VFUNC(Tk_Window,Tk_CoordsToWindow,V_Tk_CoordsToWindow,_ANSI_ARGS_((int rootX, int rootY,
- Tk_Window tkwin)))
-#endif /* #ifndef Tk_CoordsToWindow */
-
-#ifndef Tk_CreateAnonymousWindow
-VFUNC(Tk_Window,Tk_CreateAnonymousWindow,V_Tk_CreateAnonymousWindow,_ANSI_ARGS_((
- Tcl_Interp * interp, Tk_Window parent,
- CONST char * screenName)))
-#endif /* #ifndef Tk_CreateAnonymousWindow */
-
-#ifndef Tk_CreateBinding
-VFUNC(unsigned long,Tk_CreateBinding,V_Tk_CreateBinding,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_BindingTable bindingTable,
- ClientData object, CONST char * eventStr,
- Tcl_Obj *command, int append)))
-#endif /* #ifndef Tk_CreateBinding */
-
-#ifndef Tk_CreateBindingTable
-VFUNC(Tk_BindingTable,Tk_CreateBindingTable,V_Tk_CreateBindingTable,_ANSI_ARGS_((
- Tcl_Interp * interp)))
-#endif /* #ifndef Tk_CreateBindingTable */
-
-#ifndef Tk_CreateClientMessageHandler
-VFUNC(void,Tk_CreateClientMessageHandler,V_Tk_CreateClientMessageHandler,_ANSI_ARGS_((
- Tk_ClientMessageProc * proc)))
-#endif /* #ifndef Tk_CreateClientMessageHandler */
-
-#ifndef Tk_CreateErrorHandler
-VFUNC(Tk_ErrorHandler,Tk_CreateErrorHandler,V_Tk_CreateErrorHandler,_ANSI_ARGS_((Display * display,
- int errNum, int request, int minorCode,
- Tk_ErrorProc * errorProc,
- ClientData clientData)))
-#endif /* #ifndef Tk_CreateErrorHandler */
-
-#ifndef Tk_CreateEventHandler
-VFUNC(void,Tk_CreateEventHandler,V_Tk_CreateEventHandler,_ANSI_ARGS_((Tk_Window token,
- unsigned long mask, Tk_EventProc * proc,
- ClientData clientData)))
-#endif /* #ifndef Tk_CreateEventHandler */
-
-#ifndef Tk_CreateGenericHandler
-VFUNC(void,Tk_CreateGenericHandler,V_Tk_CreateGenericHandler,_ANSI_ARGS_((
- Tk_GenericProc * proc, ClientData clientData)))
-#endif /* #ifndef Tk_CreateGenericHandler */
-
-#ifndef Tk_CreateImageType
-VFUNC(void,Tk_CreateImageType,V_Tk_CreateImageType,_ANSI_ARGS_((
- Tk_ImageType * typePtr)))
-#endif /* #ifndef Tk_CreateImageType */
-
-#ifndef Tk_CreateOptionTable
-VFUNC(Tk_OptionTable,Tk_CreateOptionTable,V_Tk_CreateOptionTable,_ANSI_ARGS_((
- Tcl_Interp * interp,
- CONST Tk_OptionSpec * templatePtr)))
-#endif /* #ifndef Tk_CreateOptionTable */
-
-#ifndef Tk_CreateSelHandler
-VFUNC(void,Tk_CreateSelHandler,V_Tk_CreateSelHandler,_ANSI_ARGS_((Tk_Window tkwin,
- Atom selection, Atom target,
- Tk_SelectionProc * proc,
- ClientData clientData, Atom format)))
-#endif /* #ifndef Tk_CreateSelHandler */
-
-#ifndef Tk_CreateStyle
-VFUNC(Tk_Style,Tk_CreateStyle,V_Tk_CreateStyle,_ANSI_ARGS_((CONST char * name,
- Tk_StyleEngine engine, ClientData clientData)))
-#endif /* #ifndef Tk_CreateStyle */
-
-#ifndef Tk_CreateWindow
-VFUNC(Tk_Window,Tk_CreateWindow,V_Tk_CreateWindow,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window parent, CONST char * name,
- CONST char * screenName)))
-#endif /* #ifndef Tk_CreateWindow */
-
-#ifndef Tk_CreateWindowFromPath
-VFUNC(Tk_Window,Tk_CreateWindowFromPath,V_Tk_CreateWindowFromPath,_ANSI_ARGS_((
- Tcl_Interp * interp, Tk_Window tkwin,
- CONST char * pathName,
- CONST char * screenName)))
-#endif /* #ifndef Tk_CreateWindowFromPath */
-
-#ifndef Tk_DefineBitmap
-VFUNC(int,Tk_DefineBitmap,V_Tk_DefineBitmap,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * name, CONST char * source,
- int width, int height)))
-#endif /* #ifndef Tk_DefineBitmap */
-
-#ifndef Tk_DefineCursor
-VFUNC(void,Tk_DefineCursor,V_Tk_DefineCursor,_ANSI_ARGS_((Tk_Window window,
- Tk_Cursor cursor)))
-#endif /* #ifndef Tk_DefineCursor */
-
-#ifndef Tk_DeleteAllBindings
-VFUNC(void,Tk_DeleteAllBindings,V_Tk_DeleteAllBindings,_ANSI_ARGS_((
- Tk_BindingTable bindingTable,
- ClientData object)))
-#endif /* #ifndef Tk_DeleteAllBindings */
-
-#ifndef Tk_DeleteBinding
-VFUNC(int,Tk_DeleteBinding,V_Tk_DeleteBinding,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_BindingTable bindingTable,
- ClientData object, CONST char * eventStr)))
-#endif /* #ifndef Tk_DeleteBinding */
-
-#ifndef Tk_DeleteBindingTable
-VFUNC(void,Tk_DeleteBindingTable,V_Tk_DeleteBindingTable,_ANSI_ARGS_((
- Tk_BindingTable bindingTable)))
-#endif /* #ifndef Tk_DeleteBindingTable */
-
-#ifndef Tk_DeleteClientMessageHandler
-VFUNC(void,Tk_DeleteClientMessageHandler,V_Tk_DeleteClientMessageHandler,_ANSI_ARGS_((
- Tk_ClientMessageProc * proc)))
-#endif /* #ifndef Tk_DeleteClientMessageHandler */
-
-#ifndef Tk_DeleteErrorHandler
-VFUNC(void,Tk_DeleteErrorHandler,V_Tk_DeleteErrorHandler,_ANSI_ARGS_((
- Tk_ErrorHandler handler)))
-#endif /* #ifndef Tk_DeleteErrorHandler */
-
-#ifndef Tk_DeleteEventHandler
-VFUNC(void,Tk_DeleteEventHandler,V_Tk_DeleteEventHandler,_ANSI_ARGS_((Tk_Window token,
- unsigned long mask, Tk_EventProc * proc,
- ClientData clientData)))
-#endif /* #ifndef Tk_DeleteEventHandler */
-
-#ifndef Tk_DeleteGenericHandler
-VFUNC(void,Tk_DeleteGenericHandler,V_Tk_DeleteGenericHandler,_ANSI_ARGS_((
- Tk_GenericProc * proc, ClientData clientData)))
-#endif /* #ifndef Tk_DeleteGenericHandler */
-
-#ifndef Tk_DeleteImage
-VFUNC(void,Tk_DeleteImage,V_Tk_DeleteImage,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * name)))
-#endif /* #ifndef Tk_DeleteImage */
-
-#ifndef Tk_DeleteOptionTable
-VFUNC(void,Tk_DeleteOptionTable,V_Tk_DeleteOptionTable,_ANSI_ARGS_((
- Tk_OptionTable optionTable)))
-#endif /* #ifndef Tk_DeleteOptionTable */
-
-#ifndef Tk_DeleteSelHandler
-VFUNC(void,Tk_DeleteSelHandler,V_Tk_DeleteSelHandler,_ANSI_ARGS_((Tk_Window tkwin,
- Atom selection, Atom target)))
-#endif /* #ifndef Tk_DeleteSelHandler */
-
-#ifndef Tk_DestroyWindow
-VFUNC(void,Tk_DestroyWindow,V_Tk_DestroyWindow,_ANSI_ARGS_((Tk_Window tkwin)))
-#endif /* #ifndef Tk_DestroyWindow */
-
-#ifndef Tk_DisplayName
-VFUNC(CONST84_RETURN char *,Tk_DisplayName,V_Tk_DisplayName,_ANSI_ARGS_((Tk_Window tkwin)))
-#endif /* #ifndef Tk_DisplayName */
-
-#ifndef Tk_DistanceToTextLayout
-VFUNC(int,Tk_DistanceToTextLayout,V_Tk_DistanceToTextLayout,_ANSI_ARGS_((
- Tk_TextLayout layout, int x, int y)))
-#endif /* #ifndef Tk_DistanceToTextLayout */
-
-#ifndef Tk_Draw3DPolygon
-VFUNC(void,Tk_Draw3DPolygon,V_Tk_Draw3DPolygon,_ANSI_ARGS_((Tk_Window tkwin,
- Drawable drawable, Tk_3DBorder border,
- XPoint * pointPtr, int numPoints,
- int borderWidth, int leftRelief)))
-#endif /* #ifndef Tk_Draw3DPolygon */
-
-#ifndef Tk_Draw3DRectangle
-VFUNC(void,Tk_Draw3DRectangle,V_Tk_Draw3DRectangle,_ANSI_ARGS_((Tk_Window tkwin,
- Drawable drawable, Tk_3DBorder border, int x,
- int y, int width, int height,
- int borderWidth, int relief)))
-#endif /* #ifndef Tk_Draw3DRectangle */
-
-#ifndef Tk_DrawChars
-VFUNC(void,Tk_DrawChars,V_Tk_DrawChars,_ANSI_ARGS_((Display * display,
- Drawable drawable, GC gc, Tk_Font tkfont,
- CONST char * source, int numBytes, int x,
- int y)))
-#endif /* #ifndef Tk_DrawChars */
-
-#ifndef Tk_DrawElement
-VFUNC(void,Tk_DrawElement,V_Tk_DrawElement,_ANSI_ARGS_((Tk_Style style,
- Tk_StyledElement element, char * recordPtr,
- Tk_Window tkwin, Drawable d, int x, int y,
- int width, int height, int state)))
-#endif /* #ifndef Tk_DrawElement */
-
-#ifndef Tk_DrawFocusHighlight
-VFUNC(void,Tk_DrawFocusHighlight,V_Tk_DrawFocusHighlight,_ANSI_ARGS_((Tk_Window tkwin,
- GC gc, int width, Drawable drawable)))
-#endif /* #ifndef Tk_DrawFocusHighlight */
-
-#ifndef Tk_DrawTextLayout
-VFUNC(void,Tk_DrawTextLayout,V_Tk_DrawTextLayout,_ANSI_ARGS_((Display * display,
- Drawable drawable, GC gc,
- Tk_TextLayout layout, int x, int y,
- int firstChar, int lastChar)))
-#endif /* #ifndef Tk_DrawTextLayout */
-
-#ifndef Tk_Fill3DPolygon
-VFUNC(void,Tk_Fill3DPolygon,V_Tk_Fill3DPolygon,_ANSI_ARGS_((Tk_Window tkwin,
- Drawable drawable, Tk_3DBorder border,
- XPoint * pointPtr, int numPoints,
- int borderWidth, int leftRelief)))
-#endif /* #ifndef Tk_Fill3DPolygon */
-
-#ifndef Tk_Fill3DRectangle
-VFUNC(void,Tk_Fill3DRectangle,V_Tk_Fill3DRectangle,_ANSI_ARGS_((Tk_Window tkwin,
- Drawable drawable, Tk_3DBorder border, int x,
- int y, int width, int height,
- int borderWidth, int relief)))
-#endif /* #ifndef Tk_Fill3DRectangle */
-
-#ifndef Tk_FontId
-VFUNC(Font,Tk_FontId,V_Tk_FontId,_ANSI_ARGS_((Tk_Font font)))
-#endif /* #ifndef Tk_FontId */
-
-#ifndef Tk_Free3DBorder
-VFUNC(void,Tk_Free3DBorder,V_Tk_Free3DBorder,_ANSI_ARGS_((Tk_3DBorder border)))
-#endif /* #ifndef Tk_Free3DBorder */
-
-#ifndef Tk_Free3DBorderFromObj
-VFUNC(void,Tk_Free3DBorderFromObj,V_Tk_Free3DBorderFromObj,_ANSI_ARGS_((Tk_Window tkwin,
- Tcl_Obj * objPtr)))
-#endif /* #ifndef Tk_Free3DBorderFromObj */
-
-#ifndef Tk_FreeBitmap
-VFUNC(void,Tk_FreeBitmap,V_Tk_FreeBitmap,_ANSI_ARGS_((Display * display,
- Pixmap bitmap)))
-#endif /* #ifndef Tk_FreeBitmap */
-
-#ifndef Tk_FreeBitmapFromObj
-VFUNC(void,Tk_FreeBitmapFromObj,V_Tk_FreeBitmapFromObj,_ANSI_ARGS_((Tk_Window tkwin,
- Tcl_Obj * objPtr)))
-#endif /* #ifndef Tk_FreeBitmapFromObj */
-
-#ifndef Tk_FreeColor
-VFUNC(void,Tk_FreeColor,V_Tk_FreeColor,_ANSI_ARGS_((XColor * colorPtr)))
-#endif /* #ifndef Tk_FreeColor */
-
-#ifndef Tk_FreeColorFromObj
-VFUNC(void,Tk_FreeColorFromObj,V_Tk_FreeColorFromObj,_ANSI_ARGS_((Tk_Window tkwin,
- Tcl_Obj * objPtr)))
-#endif /* #ifndef Tk_FreeColorFromObj */
-
-#ifndef Tk_FreeColormap
-VFUNC(void,Tk_FreeColormap,V_Tk_FreeColormap,_ANSI_ARGS_((Display * display,
- Colormap colormap)))
-#endif /* #ifndef Tk_FreeColormap */
-
-#ifndef Tk_FreeConfigOptions
-VFUNC(void,Tk_FreeConfigOptions,V_Tk_FreeConfigOptions,_ANSI_ARGS_((char * recordPtr,
- Tk_OptionTable optionToken, Tk_Window tkwin)))
-#endif /* #ifndef Tk_FreeConfigOptions */
-
-#ifndef Tk_FreeCursor
-VFUNC(void,Tk_FreeCursor,V_Tk_FreeCursor,_ANSI_ARGS_((Display * display,
- Tk_Cursor cursor)))
-#endif /* #ifndef Tk_FreeCursor */
-
-#ifndef Tk_FreeCursorFromObj
-VFUNC(void,Tk_FreeCursorFromObj,V_Tk_FreeCursorFromObj,_ANSI_ARGS_((Tk_Window tkwin,
- Tcl_Obj * objPtr)))
-#endif /* #ifndef Tk_FreeCursorFromObj */
-
-#ifndef Tk_FreeFont
-VFUNC(void,Tk_FreeFont,V_Tk_FreeFont,_ANSI_ARGS_((Tk_Font f)))
-#endif /* #ifndef Tk_FreeFont */
-
-#ifndef Tk_FreeFontFromObj
-VFUNC(void,Tk_FreeFontFromObj,V_Tk_FreeFontFromObj,_ANSI_ARGS_((Tk_Window tkwin,
- Tcl_Obj * objPtr)))
-#endif /* #ifndef Tk_FreeFontFromObj */
-
-#ifndef Tk_FreeGC
-VFUNC(void,Tk_FreeGC,V_Tk_FreeGC,_ANSI_ARGS_((Display * display, GC gc)))
-#endif /* #ifndef Tk_FreeGC */
-
-#ifndef Tk_FreeImage
-VFUNC(void,Tk_FreeImage,V_Tk_FreeImage,_ANSI_ARGS_((Tk_Image image)))
-#endif /* #ifndef Tk_FreeImage */
-
-#ifndef Tk_FreeOptions
-VFUNC(void,Tk_FreeOptions,V_Tk_FreeOptions,_ANSI_ARGS_((Tk_ConfigSpec * specs,
- char * widgRec, Display * display,
- int needFlags)))
-#endif /* #ifndef Tk_FreeOptions */
-
-#ifndef Tk_FreePixmap
-VFUNC(void,Tk_FreePixmap,V_Tk_FreePixmap,_ANSI_ARGS_((Display * display,
- Pixmap pixmap)))
-#endif /* #ifndef Tk_FreePixmap */
-
-#ifndef Tk_FreeSavedOptions
-VFUNC(void,Tk_FreeSavedOptions,V_Tk_FreeSavedOptions,_ANSI_ARGS_((
- Tk_SavedOptions * savePtr)))
-#endif /* #ifndef Tk_FreeSavedOptions */
-
-#ifndef Tk_FreeStyle
-VFUNC(void,Tk_FreeStyle,V_Tk_FreeStyle,_ANSI_ARGS_((Tk_Style style)))
-#endif /* #ifndef Tk_FreeStyle */
-
-#ifndef Tk_FreeStyleFromObj
-VFUNC(void,Tk_FreeStyleFromObj,V_Tk_FreeStyleFromObj,_ANSI_ARGS_((Tcl_Obj * objPtr)))
-#endif /* #ifndef Tk_FreeStyleFromObj */
-
-#ifndef Tk_FreeTextLayout
-VFUNC(void,Tk_FreeTextLayout,V_Tk_FreeTextLayout,_ANSI_ARGS_((
- Tk_TextLayout textLayout)))
-#endif /* #ifndef Tk_FreeTextLayout */
-
-#ifndef Tk_FreeXId
-VFUNC(void,Tk_FreeXId,V_Tk_FreeXId,_ANSI_ARGS_((Display * display, XID xid)))
-#endif /* #ifndef Tk_FreeXId */
-
-#ifndef Tk_GCForColor
-VFUNC(GC,Tk_GCForColor,V_Tk_GCForColor,_ANSI_ARGS_((XColor * colorPtr,
- Drawable drawable)))
-#endif /* #ifndef Tk_GCForColor */
-
-#ifndef Tk_GeometryRequest
-VFUNC(void,Tk_GeometryRequest,V_Tk_GeometryRequest,_ANSI_ARGS_((Tk_Window tkwin,
- int reqWidth, int reqHeight)))
-#endif /* #ifndef Tk_GeometryRequest */
-
-#ifndef Tk_Get3DBorder
-VFUNC(Tk_3DBorder,Tk_Get3DBorder,V_Tk_Get3DBorder,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, Tk_Uid colorName)))
-#endif /* #ifndef Tk_Get3DBorder */
-
-#ifndef Tk_Get3DBorderFromObj
-VFUNC(Tk_3DBorder,Tk_Get3DBorderFromObj,V_Tk_Get3DBorderFromObj,_ANSI_ARGS_((Tk_Window tkwin,
- Tcl_Obj * objPtr)))
-#endif /* #ifndef Tk_Get3DBorderFromObj */
-
-#ifndef Tk_GetAllBindings
-VFUNC(void,Tk_GetAllBindings,V_Tk_GetAllBindings,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_BindingTable bindingTable,
- ClientData object)))
-#endif /* #ifndef Tk_GetAllBindings */
-
-#ifndef Tk_GetAnchor
-VFUNC(int,Tk_GetAnchor,V_Tk_GetAnchor,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * str, Tk_Anchor * anchorPtr)))
-#endif /* #ifndef Tk_GetAnchor */
-
-#ifndef Tk_GetAnchorFromObj
-VFUNC(int,Tk_GetAnchorFromObj,V_Tk_GetAnchorFromObj,_ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Obj * objPtr, Tk_Anchor * anchorPtr)))
-#endif /* #ifndef Tk_GetAnchorFromObj */
-
-#ifndef Tk_GetAtomName
-VFUNC(CONST84_RETURN char *,Tk_GetAtomName,V_Tk_GetAtomName,_ANSI_ARGS_((Tk_Window tkwin,
- Atom atom)))
-#endif /* #ifndef Tk_GetAtomName */
-
-#ifndef Tk_GetBinding
-VFUNC(Tcl_Obj *,Tk_GetBinding,V_Tk_GetBinding,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_BindingTable bindingTable,
- ClientData object, CONST char * eventStr)))
-#endif /* #ifndef Tk_GetBinding */
-
-#ifndef Tk_GetBitmap
-VFUNC(Pixmap,Tk_GetBitmap,V_Tk_GetBitmap,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, CONST char * str)))
-#endif /* #ifndef Tk_GetBitmap */
-
-#ifndef Tk_GetBitmapFromData
-VFUNC(Pixmap,Tk_GetBitmapFromData,V_Tk_GetBitmapFromData,_ANSI_ARGS_((
- Tcl_Interp * interp, Tk_Window tkwin,
- CONST char * source, int width, int height)))
-#endif /* #ifndef Tk_GetBitmapFromData */
-
-#ifndef Tk_GetBitmapFromObj
-VFUNC(Pixmap,Tk_GetBitmapFromObj,V_Tk_GetBitmapFromObj,_ANSI_ARGS_((Tk_Window tkwin,
- Tcl_Obj * objPtr)))
-#endif /* #ifndef Tk_GetBitmapFromObj */
-
-#ifndef Tk_GetCapStyle
-VFUNC(int,Tk_GetCapStyle,V_Tk_GetCapStyle,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * str, int * capPtr)))
-#endif /* #ifndef Tk_GetCapStyle */
-
-#ifndef Tk_GetColor
-VFUNC(XColor *,Tk_GetColor,V_Tk_GetColor,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, Tk_Uid name)))
-#endif /* #ifndef Tk_GetColor */
-
-#ifndef Tk_GetColorByValue
-VFUNC(XColor *,Tk_GetColorByValue,V_Tk_GetColorByValue,_ANSI_ARGS_((Tk_Window tkwin,
- XColor * colorPtr)))
-#endif /* #ifndef Tk_GetColorByValue */
-
-#ifndef Tk_GetColorFromObj
-VFUNC(XColor *,Tk_GetColorFromObj,V_Tk_GetColorFromObj,_ANSI_ARGS_((Tk_Window tkwin,
- Tcl_Obj * objPtr)))
-#endif /* #ifndef Tk_GetColorFromObj */
-
-#ifndef Tk_GetColormap
-VFUNC(Colormap,Tk_GetColormap,V_Tk_GetColormap,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, CONST char * str)))
-#endif /* #ifndef Tk_GetColormap */
-
-#ifndef Tk_GetCursor
-VFUNC(Tk_Cursor,Tk_GetCursor,V_Tk_GetCursor,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, Tk_Uid str)))
-#endif /* #ifndef Tk_GetCursor */
-
-#ifndef Tk_GetCursorFromData
-VFUNC(Tk_Cursor,Tk_GetCursorFromData,V_Tk_GetCursorFromData,_ANSI_ARGS_((
- Tcl_Interp * interp, Tk_Window tkwin,
- CONST char * source, CONST char * mask,
- int width, int height, int xHot, int yHot,
- Tk_Uid fg, Tk_Uid bg)))
-#endif /* #ifndef Tk_GetCursorFromData */
-
-#ifndef Tk_GetCursorFromObj
-VFUNC(Tk_Cursor,Tk_GetCursorFromObj,V_Tk_GetCursorFromObj,_ANSI_ARGS_((Tk_Window tkwin,
- Tcl_Obj * objPtr)))
-#endif /* #ifndef Tk_GetCursorFromObj */
-
-#ifndef Tk_GetElementBorderWidth
-VFUNC(int,Tk_GetElementBorderWidth,V_Tk_GetElementBorderWidth,_ANSI_ARGS_((Tk_Style style,
- Tk_StyledElement element, char * recordPtr,
- Tk_Window tkwin)))
-#endif /* #ifndef Tk_GetElementBorderWidth */
-
-#ifndef Tk_GetElementBox
-VFUNC(void,Tk_GetElementBox,V_Tk_GetElementBox,_ANSI_ARGS_((Tk_Style style,
- Tk_StyledElement element, char * recordPtr,
- Tk_Window tkwin, int x, int y, int width,
- int height, int inner, int * xPtr,
- int * yPtr, int * widthPtr, int * heightPtr)))
-#endif /* #ifndef Tk_GetElementBox */
-
-#ifndef Tk_GetElementId
-VFUNC(int,Tk_GetElementId,V_Tk_GetElementId,_ANSI_ARGS_((CONST char * name)))
-#endif /* #ifndef Tk_GetElementId */
-
-#ifndef Tk_GetElementSize
-VFUNC(void,Tk_GetElementSize,V_Tk_GetElementSize,_ANSI_ARGS_((Tk_Style style,
- Tk_StyledElement element, char * recordPtr,
- Tk_Window tkwin, int width, int height,
- int inner, int * widthPtr, int * heightPtr)))
-#endif /* #ifndef Tk_GetElementSize */
-
-#ifndef Tk_GetFont
-VFUNC(Tk_Font,Tk_GetFont,V_Tk_GetFont,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, CONST char * str)))
-#endif /* #ifndef Tk_GetFont */
-
-#ifndef Tk_GetFontFromObj
-VFUNC(Tk_Font,Tk_GetFontFromObj,V_Tk_GetFontFromObj,_ANSI_ARGS_((Tk_Window tkwin,
- Tcl_Obj * objPtr)))
-#endif /* #ifndef Tk_GetFontFromObj */
-
-#ifndef Tk_GetFontMetrics
-VFUNC(void,Tk_GetFontMetrics,V_Tk_GetFontMetrics,_ANSI_ARGS_((Tk_Font font,
- Tk_FontMetrics * fmPtr)))
-#endif /* #ifndef Tk_GetFontMetrics */
-
-#ifndef Tk_GetGC
-VFUNC(GC,Tk_GetGC,V_Tk_GetGC,_ANSI_ARGS_((Tk_Window tkwin,
- unsigned long valueMask,
- XGCValues * valuePtr)))
-#endif /* #ifndef Tk_GetGC */
-
-#ifndef Tk_GetImage
-VFUNC(Tk_Image,Tk_GetImage,V_Tk_GetImage,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, CONST char * name,
- Tk_ImageChangedProc * changeProc,
- ClientData clientData)))
-#endif /* #ifndef Tk_GetImage */
-
-#ifndef Tk_GetImageMasterData
-VFUNC(ClientData,Tk_GetImageMasterData,V_Tk_GetImageMasterData,_ANSI_ARGS_((
- Tcl_Interp * interp, CONST char * name,
- Tk_ImageType ** typePtrPtr)))
-#endif /* #ifndef Tk_GetImageMasterData */
-
-#ifndef Tk_GetJoinStyle
-VFUNC(int,Tk_GetJoinStyle,V_Tk_GetJoinStyle,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * str, int * joinPtr)))
-#endif /* #ifndef Tk_GetJoinStyle */
-
-#ifndef Tk_GetJustify
-VFUNC(int,Tk_GetJustify,V_Tk_GetJustify,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * str, Tk_Justify * justifyPtr)))
-#endif /* #ifndef Tk_GetJustify */
-
-#ifndef Tk_GetJustifyFromObj
-VFUNC(int,Tk_GetJustifyFromObj,V_Tk_GetJustifyFromObj,_ANSI_ARGS_((
- Tcl_Interp * interp, Tcl_Obj * objPtr,
- Tk_Justify * justifyPtr)))
-#endif /* #ifndef Tk_GetJustifyFromObj */
-
-#ifndef Tk_GetMMFromObj
-VFUNC(int,Tk_GetMMFromObj,V_Tk_GetMMFromObj,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, Tcl_Obj * objPtr,
- double * doublePtr)))
-#endif /* #ifndef Tk_GetMMFromObj */
-
-#ifndef Tk_GetNumMainWindows
-VFUNC(int,Tk_GetNumMainWindows,V_Tk_GetNumMainWindows,_ANSI_ARGS_((void)))
-#endif /* #ifndef Tk_GetNumMainWindows */
-
-#ifndef Tk_GetOptionInfo
-VFUNC(Tcl_Obj *,Tk_GetOptionInfo,V_Tk_GetOptionInfo,_ANSI_ARGS_((Tcl_Interp * interp,
- char * recordPtr, Tk_OptionTable optionTable,
- Tcl_Obj * namePtr, Tk_Window tkwin)))
-#endif /* #ifndef Tk_GetOptionInfo */
-
-#ifndef Tk_GetOptionValue
-VFUNC(Tcl_Obj *,Tk_GetOptionValue,V_Tk_GetOptionValue,_ANSI_ARGS_((Tcl_Interp * interp,
- char * recordPtr, Tk_OptionTable optionTable,
- Tcl_Obj * namePtr, Tk_Window tkwin)))
-#endif /* #ifndef Tk_GetOptionValue */
-
-#ifndef Tk_GetPixels
-VFUNC(int,Tk_GetPixels,V_Tk_GetPixels,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, CONST char * str,
- int * intPtr)))
-#endif /* #ifndef Tk_GetPixels */
-
-#ifndef Tk_GetPixelsFromObj
-VFUNC(int,Tk_GetPixelsFromObj,V_Tk_GetPixelsFromObj,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, Tcl_Obj * objPtr,
- int * intPtr)))
-#endif /* #ifndef Tk_GetPixelsFromObj */
-
-#ifndef Tk_GetPixmap
-VFUNC(Pixmap,Tk_GetPixmap,V_Tk_GetPixmap,_ANSI_ARGS_((Display * display,
- Drawable d, int width, int height, int depth)))
-#endif /* #ifndef Tk_GetPixmap */
-
-#ifndef Tk_GetRelief
-VFUNC(int,Tk_GetRelief,V_Tk_GetRelief,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * name, int * reliefPtr)))
-#endif /* #ifndef Tk_GetRelief */
-
-#ifndef Tk_GetReliefFromObj
-VFUNC(int,Tk_GetReliefFromObj,V_Tk_GetReliefFromObj,_ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Obj * objPtr, int * resultPtr)))
-#endif /* #ifndef Tk_GetReliefFromObj */
-
-#ifndef Tk_GetRootCoords
-VFUNC(void,Tk_GetRootCoords,V_Tk_GetRootCoords,_ANSI_ARGS_((Tk_Window tkwin,
- int * xPtr, int * yPtr)))
-#endif /* #ifndef Tk_GetRootCoords */
-
-#ifndef Tk_GetScreenMM
-VFUNC(int,Tk_GetScreenMM,V_Tk_GetScreenMM,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, CONST char * str,
- double * doublePtr)))
-#endif /* #ifndef Tk_GetScreenMM */
-
-#ifndef Tk_GetScrollInfo
-VFUNC(int,Tk_GetScrollInfo,V_Tk_GetScrollInfo,_ANSI_ARGS_((Tcl_Interp * interp,
- int argc, CONST84 Tcl_Obj *CONST *objv,
- double * dblPtr, int * intPtr)))
-#endif /* #ifndef Tk_GetScrollInfo */
-
-#ifndef Tk_GetScrollInfoObj
-VFUNC(int,Tk_GetScrollInfoObj,V_Tk_GetScrollInfoObj,_ANSI_ARGS_((Tcl_Interp * interp,
- int objc, Tcl_Obj *CONST objv[],
- double * dblPtr, int * intPtr)))
-#endif /* #ifndef Tk_GetScrollInfoObj */
-
-#ifndef Tk_GetSelection
-VFUNC(int,Tk_GetSelection,V_Tk_GetSelection,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, Atom selection, Atom target,
- Tk_GetSelProc * proc, ClientData clientData)))
-#endif /* #ifndef Tk_GetSelection */
-
-#ifndef Tk_GetStyle
-VFUNC(Tk_Style,Tk_GetStyle,V_Tk_GetStyle,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * name)))
-#endif /* #ifndef Tk_GetStyle */
-
-#ifndef Tk_GetStyleEngine
-VFUNC(Tk_StyleEngine,Tk_GetStyleEngine,V_Tk_GetStyleEngine,_ANSI_ARGS_((CONST char * name)))
-#endif /* #ifndef Tk_GetStyleEngine */
-
-#ifndef Tk_GetStyleFromObj
-VFUNC(Tk_Style,Tk_GetStyleFromObj,V_Tk_GetStyleFromObj,_ANSI_ARGS_((Tcl_Obj * objPtr)))
-#endif /* #ifndef Tk_GetStyleFromObj */
-
-#ifndef Tk_GetStyledElement
-VFUNC(Tk_StyledElement,Tk_GetStyledElement,V_Tk_GetStyledElement,_ANSI_ARGS_((Tk_Style style,
- int elementId, Tk_OptionTable optionTable)))
-#endif /* #ifndef Tk_GetStyledElement */
-
-#ifndef Tk_GetUid
-VFUNC(Tk_Uid,Tk_GetUid,V_Tk_GetUid,_ANSI_ARGS_((CONST char * str)))
-#endif /* #ifndef Tk_GetUid */
-
-#ifndef Tk_GetVRootGeometry
-VFUNC(void,Tk_GetVRootGeometry,V_Tk_GetVRootGeometry,_ANSI_ARGS_((Tk_Window tkwin,
- int * xPtr, int * yPtr, int * widthPtr,
- int * heightPtr)))
-#endif /* #ifndef Tk_GetVRootGeometry */
-
-#ifndef Tk_GetVisual
-VFUNC(Visual *,Tk_GetVisual,V_Tk_GetVisual,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, Tcl_Obj *str,
- int * depthPtr, Colormap * colormapPtr)))
-#endif /* #ifndef Tk_GetVisual */
-
-#ifndef Tk_Grab
-VFUNC(int,Tk_Grab,V_Tk_Grab,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, int grabGlobal)))
-#endif /* #ifndef Tk_Grab */
-
-#ifndef Tk_HandleEvent
-VFUNC(void,Tk_HandleEvent,V_Tk_HandleEvent,_ANSI_ARGS_((XEvent * eventPtr)))
-#endif /* #ifndef Tk_HandleEvent */
-
-#ifndef Tk_IdToWindow
-VFUNC(Tk_Window,Tk_IdToWindow,V_Tk_IdToWindow,_ANSI_ARGS_((Display * display,
- Window window)))
-#endif /* #ifndef Tk_IdToWindow */
-
-#ifndef Tk_ImageChanged
-VFUNC(void,Tk_ImageChanged,V_Tk_ImageChanged,_ANSI_ARGS_((Tk_ImageMaster master,
- int x, int y, int width, int height,
- int imageWidth, int imageHeight)))
-#endif /* #ifndef Tk_ImageChanged */
-
-#ifndef Tk_InitOptions
-VFUNC(int,Tk_InitOptions,V_Tk_InitOptions,_ANSI_ARGS_((Tcl_Interp * interp,
- char * recordPtr, Tk_OptionTable optionToken,
- Tk_Window tkwin)))
-#endif /* #ifndef Tk_InitOptions */
-
-#ifndef Tk_InternAtom
-VFUNC(Atom,Tk_InternAtom,V_Tk_InternAtom,_ANSI_ARGS_((Tk_Window tkwin,
- CONST char * name)))
-#endif /* #ifndef Tk_InternAtom */
-
-#ifndef Tk_IntersectTextLayout
-VFUNC(int,Tk_IntersectTextLayout,V_Tk_IntersectTextLayout,_ANSI_ARGS_((
- Tk_TextLayout layout, int x, int y,
- int width, int height)))
-#endif /* #ifndef Tk_IntersectTextLayout */
-
-#ifndef Tk_MainLoop
-VFUNC(void,Tk_MainLoop,V_Tk_MainLoop,_ANSI_ARGS_((void)))
-#endif /* #ifndef Tk_MainLoop */
-
-#ifndef Tk_MainWindow
-VFUNC(Tk_Window,Tk_MainWindow,V_Tk_MainWindow,_ANSI_ARGS_((Tcl_Interp * interp)))
-#endif /* #ifndef Tk_MainWindow */
-
-#ifndef Tk_MaintainGeometry
-VFUNC(void,Tk_MaintainGeometry,V_Tk_MaintainGeometry,_ANSI_ARGS_((Tk_Window slave,
- Tk_Window master, int x, int y, int width,
- int height)))
-#endif /* #ifndef Tk_MaintainGeometry */
-
-#ifndef Tk_MakeWindowExist
-VFUNC(void,Tk_MakeWindowExist,V_Tk_MakeWindowExist,_ANSI_ARGS_((Tk_Window tkwin)))
-#endif /* #ifndef Tk_MakeWindowExist */
-
-#ifndef Tk_ManageGeometry
-VFUNC(void,Tk_ManageGeometry,V_Tk_ManageGeometry,_ANSI_ARGS_((Tk_Window tkwin,
- Tk_GeomMgr * mgrPtr, ClientData clientData)))
-#endif /* #ifndef Tk_ManageGeometry */
-
-#ifndef Tk_MapWindow
-VFUNC(void,Tk_MapWindow,V_Tk_MapWindow,_ANSI_ARGS_((Tk_Window tkwin)))
-#endif /* #ifndef Tk_MapWindow */
-
-#ifndef Tk_MeasureChars
-VFUNC(int,Tk_MeasureChars,V_Tk_MeasureChars,_ANSI_ARGS_((Tk_Font tkfont,
- CONST char * source, int numBytes,
- int maxPixels, int flags, int * lengthPtr)))
-#endif /* #ifndef Tk_MeasureChars */
-
-#ifndef Tk_MoveResizeWindow
-VFUNC(void,Tk_MoveResizeWindow,V_Tk_MoveResizeWindow,_ANSI_ARGS_((Tk_Window tkwin,
- int x, int y, int width, int height)))
-#endif /* #ifndef Tk_MoveResizeWindow */
-
-#ifndef Tk_MoveToplevelWindow
-VFUNC(void,Tk_MoveToplevelWindow,V_Tk_MoveToplevelWindow,_ANSI_ARGS_((Tk_Window tkwin,
- int x, int y)))
-#endif /* #ifndef Tk_MoveToplevelWindow */
-
-#ifndef Tk_MoveWindow
-VFUNC(void,Tk_MoveWindow,V_Tk_MoveWindow,_ANSI_ARGS_((Tk_Window tkwin, int x,
- int y)))
-#endif /* #ifndef Tk_MoveWindow */
-
-#ifndef Tk_NameOf3DBorder
-VFUNC(CONST84_RETURN char *,Tk_NameOf3DBorder,V_Tk_NameOf3DBorder,_ANSI_ARGS_((
- Tk_3DBorder border)))
-#endif /* #ifndef Tk_NameOf3DBorder */
-
-#ifndef Tk_NameOfAnchor
-VFUNC(CONST84_RETURN char *,Tk_NameOfAnchor,V_Tk_NameOfAnchor,_ANSI_ARGS_((Tk_Anchor anchor)))
-#endif /* #ifndef Tk_NameOfAnchor */
-
-#ifndef Tk_NameOfBitmap
-VFUNC(CONST84_RETURN char *,Tk_NameOfBitmap,V_Tk_NameOfBitmap,_ANSI_ARGS_((Display * display,
- Pixmap bitmap)))
-#endif /* #ifndef Tk_NameOfBitmap */
-
-#ifndef Tk_NameOfCapStyle
-VFUNC(CONST84_RETURN char *,Tk_NameOfCapStyle,V_Tk_NameOfCapStyle,_ANSI_ARGS_((int cap)))
-#endif /* #ifndef Tk_NameOfCapStyle */
-
-#ifndef Tk_NameOfColor
-VFUNC(CONST84_RETURN char *,Tk_NameOfColor,V_Tk_NameOfColor,_ANSI_ARGS_((XColor * colorPtr)))
-#endif /* #ifndef Tk_NameOfColor */
-
-#ifndef Tk_NameOfCursor
-VFUNC(CONST84_RETURN char *,Tk_NameOfCursor,V_Tk_NameOfCursor,_ANSI_ARGS_((Display * display,
- Tk_Cursor cursor)))
-#endif /* #ifndef Tk_NameOfCursor */
-
-#ifndef Tk_NameOfFont
-VFUNC(CONST84_RETURN char *,Tk_NameOfFont,V_Tk_NameOfFont,_ANSI_ARGS_((Tk_Font font)))
-#endif /* #ifndef Tk_NameOfFont */
-
-#ifndef Tk_NameOfImage
-VFUNC(CONST84_RETURN char *,Tk_NameOfImage,V_Tk_NameOfImage,_ANSI_ARGS_((
- Tk_ImageMaster imageMaster)))
-#endif /* #ifndef Tk_NameOfImage */
-
-#ifndef Tk_NameOfJoinStyle
-VFUNC(CONST84_RETURN char *,Tk_NameOfJoinStyle,V_Tk_NameOfJoinStyle,_ANSI_ARGS_((int join)))
-#endif /* #ifndef Tk_NameOfJoinStyle */
-
-#ifndef Tk_NameOfJustify
-VFUNC(CONST84_RETURN char *,Tk_NameOfJustify,V_Tk_NameOfJustify,_ANSI_ARGS_((
- Tk_Justify justify)))
-#endif /* #ifndef Tk_NameOfJustify */
-
-#ifndef Tk_NameOfRelief
-VFUNC(CONST84_RETURN char *,Tk_NameOfRelief,V_Tk_NameOfRelief,_ANSI_ARGS_((int relief)))
-#endif /* #ifndef Tk_NameOfRelief */
-
-#ifndef Tk_NameOfStyle
-VFUNC(CONST char *,Tk_NameOfStyle,V_Tk_NameOfStyle,_ANSI_ARGS_((Tk_Style style)))
-#endif /* #ifndef Tk_NameOfStyle */
-
-#ifndef Tk_NameToWindow
-VFUNC(Tk_Window,Tk_NameToWindow,V_Tk_NameToWindow,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * pathName, Tk_Window tkwin)))
-#endif /* #ifndef Tk_NameToWindow */
-
-#ifndef Tk_OwnSelection
-VFUNC(void,Tk_OwnSelection,V_Tk_OwnSelection,_ANSI_ARGS_((Tk_Window tkwin,
- Atom selection, Tk_LostSelProc * proc,
- ClientData clientData)))
-#endif /* #ifndef Tk_OwnSelection */
-
-#ifndef Tk_PointToChar
-VFUNC(int,Tk_PointToChar,V_Tk_PointToChar,_ANSI_ARGS_((Tk_TextLayout layout,
- int x, int y)))
-#endif /* #ifndef Tk_PointToChar */
-
-#ifndef Tk_PostscriptBitmap
-VFUNC(int,Tk_PostscriptBitmap,V_Tk_PostscriptBitmap,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, Tk_PostscriptInfo psInfo,
- Pixmap bitmap, int startX, int startY,
- int width, int height)))
-#endif /* #ifndef Tk_PostscriptBitmap */
-
-#ifndef Tk_PostscriptColor
-VFUNC(int,Tk_PostscriptColor,V_Tk_PostscriptColor,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_PostscriptInfo psInfo, XColor * colorPtr)))
-#endif /* #ifndef Tk_PostscriptColor */
-
-#ifndef Tk_PostscriptFont
-VFUNC(int,Tk_PostscriptFont,V_Tk_PostscriptFont,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_PostscriptInfo psInfo, Tk_Font font)))
-#endif /* #ifndef Tk_PostscriptFont */
-
-#ifndef Tk_PostscriptFontName
-VFUNC(int,Tk_PostscriptFontName,V_Tk_PostscriptFontName,_ANSI_ARGS_((Tk_Font tkfont,
- Tcl_DString * dsPtr)))
-#endif /* #ifndef Tk_PostscriptFontName */
-
-#ifndef Tk_PostscriptImage
-VFUNC(int,Tk_PostscriptImage,V_Tk_PostscriptImage,_ANSI_ARGS_((Tk_Image image,
- Tcl_Interp * interp, Tk_Window tkwin,
- Tk_PostscriptInfo psinfo, int x, int y,
- int width, int height, int prepass)))
-#endif /* #ifndef Tk_PostscriptImage */
-
-#ifndef Tk_PostscriptPath
-VFUNC(void,Tk_PostscriptPath,V_Tk_PostscriptPath,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_PostscriptInfo psInfo, double * coordPtr,
- int numPoints)))
-#endif /* #ifndef Tk_PostscriptPath */
-
-#ifndef Tk_PostscriptPhoto
-VFUNC(int,Tk_PostscriptPhoto,V_Tk_PostscriptPhoto,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_PhotoImageBlock * blockPtr,
- Tk_PostscriptInfo psInfo, int width,
- int height)))
-#endif /* #ifndef Tk_PostscriptPhoto */
-
-#ifndef Tk_PostscriptStipple
-VFUNC(int,Tk_PostscriptStipple,V_Tk_PostscriptStipple,_ANSI_ARGS_((
- Tcl_Interp * interp, Tk_Window tkwin,
- Tk_PostscriptInfo psInfo, Pixmap bitmap)))
-#endif /* #ifndef Tk_PostscriptStipple */
-
-#ifndef Tk_PostscriptY
-VFUNC(double,Tk_PostscriptY,V_Tk_PostscriptY,_ANSI_ARGS_((double y,
- Tk_PostscriptInfo psInfo)))
-#endif /* #ifndef Tk_PostscriptY */
-
-#ifndef Tk_PreserveColormap
-VFUNC(void,Tk_PreserveColormap,V_Tk_PreserveColormap,_ANSI_ARGS_((Display * display,
- Colormap colormap)))
-#endif /* #ifndef Tk_PreserveColormap */
-
-#ifndef Tk_QueueWindowEvent
-VFUNC(void,Tk_QueueWindowEvent,V_Tk_QueueWindowEvent,_ANSI_ARGS_((XEvent * eventPtr,
- Tcl_QueuePosition position)))
-#endif /* #ifndef Tk_QueueWindowEvent */
-
-#ifndef Tk_RedrawImage
-VFUNC(void,Tk_RedrawImage,V_Tk_RedrawImage,_ANSI_ARGS_((Tk_Image image,
- int imageX, int imageY, int width,
- int height, Drawable drawable, int drawableX,
- int drawableY)))
-#endif /* #ifndef Tk_RedrawImage */
-
-#ifndef Tk_RegisterStyleEngine
-VFUNC(Tk_StyleEngine,Tk_RegisterStyleEngine,V_Tk_RegisterStyleEngine,_ANSI_ARGS_((
- CONST char * name, Tk_StyleEngine parent)))
-#endif /* #ifndef Tk_RegisterStyleEngine */
-
-#ifndef Tk_RegisterStyledElement
-VFUNC(int,Tk_RegisterStyledElement,V_Tk_RegisterStyledElement,_ANSI_ARGS_((
- Tk_StyleEngine engine,
- Tk_ElementSpec * templatePtr)))
-#endif /* #ifndef Tk_RegisterStyledElement */
-
-#ifndef Tk_ResizeWindow
-VFUNC(void,Tk_ResizeWindow,V_Tk_ResizeWindow,_ANSI_ARGS_((Tk_Window tkwin,
- int width, int height)))
-#endif /* #ifndef Tk_ResizeWindow */
-
-#ifndef Tk_RestackWindow
-VFUNC(int,Tk_RestackWindow,V_Tk_RestackWindow,_ANSI_ARGS_((Tk_Window tkwin,
- int aboveBelow, Tk_Window other)))
-#endif /* #ifndef Tk_RestackWindow */
-
-#ifndef Tk_RestoreSavedOptions
-VFUNC(void,Tk_RestoreSavedOptions,V_Tk_RestoreSavedOptions,_ANSI_ARGS_((
- Tk_SavedOptions * savePtr)))
-#endif /* #ifndef Tk_RestoreSavedOptions */
-
-#ifndef Tk_RestrictEvents
-VFUNC(Tk_RestrictProc *,Tk_RestrictEvents,V_Tk_RestrictEvents,_ANSI_ARGS_((
- Tk_RestrictProc * proc, ClientData arg,
- ClientData * prevArgPtr)))
-#endif /* #ifndef Tk_RestrictEvents */
-
-#ifndef Tk_SetAppName
-VFUNC(CONST char *,Tk_SetAppName,V_Tk_SetAppName,_ANSI_ARGS_((Tk_Window tkwin,
- CONST char * name)))
-#endif /* #ifndef Tk_SetAppName */
-
-#ifndef Tk_SetBackgroundFromBorder
-VFUNC(void,Tk_SetBackgroundFromBorder,V_Tk_SetBackgroundFromBorder,_ANSI_ARGS_((
- Tk_Window tkwin, Tk_3DBorder border)))
-#endif /* #ifndef Tk_SetBackgroundFromBorder */
-
-#ifndef Tk_SetCaretPos
-VFUNC(void,Tk_SetCaretPos,V_Tk_SetCaretPos,_ANSI_ARGS_((Tk_Window tkwin, int x,
- int y, int height)))
-#endif /* #ifndef Tk_SetCaretPos */
-
-#ifndef Tk_SetClass
-VFUNC(void,Tk_SetClass,V_Tk_SetClass,_ANSI_ARGS_((Tk_Window tkwin,
- CONST char * className)))
-#endif /* #ifndef Tk_SetClass */
-
-#ifndef Tk_SetClassProcs
-VFUNC(void,Tk_SetClassProcs,V_Tk_SetClassProcs,_ANSI_ARGS_((Tk_Window tkwin,
- Tk_ClassProcs * procs,
- ClientData instanceData)))
-#endif /* #ifndef Tk_SetClassProcs */
-
-#ifndef Tk_SetGrid
-VFUNC(void,Tk_SetGrid,V_Tk_SetGrid,_ANSI_ARGS_((Tk_Window tkwin,
- int reqWidth, int reqHeight, int gridWidth,
- int gridHeight)))
-#endif /* #ifndef Tk_SetGrid */
-
-#ifndef Tk_SetInternalBorder
-VFUNC(void,Tk_SetInternalBorder,V_Tk_SetInternalBorder,_ANSI_ARGS_((Tk_Window tkwin,
- int width)))
-#endif /* #ifndef Tk_SetInternalBorder */
-
-#ifndef Tk_SetInternalBorderEx
-VFUNC(void,Tk_SetInternalBorderEx,V_Tk_SetInternalBorderEx,_ANSI_ARGS_((Tk_Window tkwin,
- int left, int right, int top, int bottom)))
-#endif /* #ifndef Tk_SetInternalBorderEx */
-
-#ifndef Tk_SetMinimumRequestSize
-VFUNC(void,Tk_SetMinimumRequestSize,V_Tk_SetMinimumRequestSize,_ANSI_ARGS_((
- Tk_Window tkwin, int minWidth, int minHeight)))
-#endif /* #ifndef Tk_SetMinimumRequestSize */
-
-#ifndef Tk_SetOptions
-VFUNC(int,Tk_SetOptions,V_Tk_SetOptions,_ANSI_ARGS_((Tcl_Interp * interp,
- char * recordPtr, Tk_OptionTable optionTable,
- int objc, Tcl_Obj *CONST objv[],
- Tk_Window tkwin, Tk_SavedOptions * savePtr,
- int * maskPtr)))
-#endif /* #ifndef Tk_SetOptions */
-
-#ifndef Tk_SetTSOrigin
-VFUNC(void,Tk_SetTSOrigin,V_Tk_SetTSOrigin,_ANSI_ARGS_((Tk_Window tkwin, GC gc,
- int x, int y)))
-#endif /* #ifndef Tk_SetTSOrigin */
-
-#ifndef Tk_SetWindowBackground
-VFUNC(void,Tk_SetWindowBackground,V_Tk_SetWindowBackground,_ANSI_ARGS_((Tk_Window tkwin,
- unsigned long pixel)))
-#endif /* #ifndef Tk_SetWindowBackground */
-
-#ifndef Tk_SetWindowBackgroundPixmap
-VFUNC(void,Tk_SetWindowBackgroundPixmap,V_Tk_SetWindowBackgroundPixmap,_ANSI_ARGS_((
- Tk_Window tkwin, Pixmap pixmap)))
-#endif /* #ifndef Tk_SetWindowBackgroundPixmap */
-
-#ifndef Tk_SetWindowBorder
-VFUNC(void,Tk_SetWindowBorder,V_Tk_SetWindowBorder,_ANSI_ARGS_((Tk_Window tkwin,
- unsigned long pixel)))
-#endif /* #ifndef Tk_SetWindowBorder */
-
-#ifndef Tk_SetWindowBorderPixmap
-VFUNC(void,Tk_SetWindowBorderPixmap,V_Tk_SetWindowBorderPixmap,_ANSI_ARGS_((
- Tk_Window tkwin, Pixmap pixmap)))
-#endif /* #ifndef Tk_SetWindowBorderPixmap */
-
-#ifndef Tk_SetWindowBorderWidth
-VFUNC(void,Tk_SetWindowBorderWidth,V_Tk_SetWindowBorderWidth,_ANSI_ARGS_((Tk_Window tkwin,
- int width)))
-#endif /* #ifndef Tk_SetWindowBorderWidth */
-
-#ifndef Tk_SetWindowColormap
-VFUNC(void,Tk_SetWindowColormap,V_Tk_SetWindowColormap,_ANSI_ARGS_((Tk_Window tkwin,
- Colormap colormap)))
-#endif /* #ifndef Tk_SetWindowColormap */
-
-#ifndef Tk_SetWindowVisual
-VFUNC(int,Tk_SetWindowVisual,V_Tk_SetWindowVisual,_ANSI_ARGS_((Tk_Window tkwin,
- Visual * visual, int depth,
- Colormap colormap)))
-#endif /* #ifndef Tk_SetWindowVisual */
-
-#ifndef Tk_SizeOfBitmap
-VFUNC(void,Tk_SizeOfBitmap,V_Tk_SizeOfBitmap,_ANSI_ARGS_((Display * display,
- Pixmap bitmap, int * widthPtr,
- int * heightPtr)))
-#endif /* #ifndef Tk_SizeOfBitmap */
-
-#ifndef Tk_SizeOfImage
-VFUNC(void,Tk_SizeOfImage,V_Tk_SizeOfImage,_ANSI_ARGS_((Tk_Image image,
- int * widthPtr, int * heightPtr)))
-#endif /* #ifndef Tk_SizeOfImage */
-
-#ifndef Tk_StrictMotif
-VFUNC(int,Tk_StrictMotif,V_Tk_StrictMotif,_ANSI_ARGS_((Tk_Window tkwin)))
-#endif /* #ifndef Tk_StrictMotif */
-
-#ifndef Tk_TextLayoutToPostscript
-VFUNC(void,Tk_TextLayoutToPostscript,V_Tk_TextLayoutToPostscript,_ANSI_ARGS_((
- Tcl_Interp * interp, Tk_TextLayout layout)))
-#endif /* #ifndef Tk_TextLayoutToPostscript */
-
-#ifndef Tk_TextWidth
-VFUNC(int,Tk_TextWidth,V_Tk_TextWidth,_ANSI_ARGS_((Tk_Font font,
- CONST char * str, int numBytes)))
-#endif /* #ifndef Tk_TextWidth */
-
-#ifndef Tk_UndefineCursor
-VFUNC(void,Tk_UndefineCursor,V_Tk_UndefineCursor,_ANSI_ARGS_((Tk_Window window)))
-#endif /* #ifndef Tk_UndefineCursor */
-
-#ifndef Tk_UnderlineChars
-VFUNC(void,Tk_UnderlineChars,V_Tk_UnderlineChars,_ANSI_ARGS_((Display * display,
- Drawable drawable, GC gc, Tk_Font tkfont,
- CONST char * source, int x, int y,
- int firstByte, int lastByte)))
-#endif /* #ifndef Tk_UnderlineChars */
-
-#ifndef Tk_UnderlineTextLayout
-VFUNC(void,Tk_UnderlineTextLayout,V_Tk_UnderlineTextLayout,_ANSI_ARGS_((
- Display * display, Drawable drawable, GC gc,
- Tk_TextLayout layout, int x, int y,
- int underline)))
-#endif /* #ifndef Tk_UnderlineTextLayout */
-
-#ifndef Tk_Ungrab
-VFUNC(void,Tk_Ungrab,V_Tk_Ungrab,_ANSI_ARGS_((Tk_Window tkwin)))
-#endif /* #ifndef Tk_Ungrab */
-
-#ifndef Tk_UnmaintainGeometry
-VFUNC(void,Tk_UnmaintainGeometry,V_Tk_UnmaintainGeometry,_ANSI_ARGS_((Tk_Window slave,
- Tk_Window master)))
-#endif /* #ifndef Tk_UnmaintainGeometry */
-
-#ifndef Tk_UnmapWindow
-VFUNC(void,Tk_UnmapWindow,V_Tk_UnmapWindow,_ANSI_ARGS_((Tk_Window tkwin)))
-#endif /* #ifndef Tk_UnmapWindow */
-
-#ifndef Tk_UnsetGrid
-VFUNC(void,Tk_UnsetGrid,V_Tk_UnsetGrid,_ANSI_ARGS_((Tk_Window tkwin)))
-#endif /* #ifndef Tk_UnsetGrid */
-
-#ifndef Tk_UpdatePointer
-VFUNC(void,Tk_UpdatePointer,V_Tk_UpdatePointer,_ANSI_ARGS_((Tk_Window tkwin, int x,
- int y, int state)))
-#endif /* #ifndef Tk_UpdatePointer */
-
-#endif /* _TKDECLS */
diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls_f.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls_f.h deleted file mode 100644 index 262cacb519d..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls_f.h +++ /dev/null @@ -1,14 +0,0 @@ -#ifndef TKDECLS_VT -#define TKDECLS_VT -typedef struct TkdeclsVtab -{ - unsigned (*tabSize)(void); -#define VFUNC(type,name,mem,args) type (*mem) args; -#define VVAR(type,name,mem) type (*mem); -#include "tkDecls.t" -#undef VFUNC -#undef VVAR -} TkdeclsVtab; -extern TkdeclsVtab *TkdeclsVptr; -extern TkdeclsVtab *TkdeclsVGet(void); -#endif /* TKDECLS_VT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent.h deleted file mode 100644 index 9787af4425e..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent.h +++ /dev/null @@ -1,122 +0,0 @@ -#ifndef _TKEVENT -#define _TKEVENT - -#define LangCallbackArg(x) LangOldCallbackArg(x,__FILE__,__LINE__) - -EXTERN int LangCallCallback _ANSI_ARGS_((LangCallback *cb, int flags)); -EXTERN Tcl_Obj * LangCallbackObj _ANSI_ARGS_((LangCallback *)); -EXTERN int LangCmpCallback _ANSI_ARGS_((LangCallback *a,Tcl_Obj * b)); -EXTERN LangCallback * LangCopyCallback _ANSI_ARGS_((LangCallback *)); -EXTERN void LangDebug _ANSI_ARGS_((CONST char *fmt,...)); -EXTERN void LangAsyncCheck _ANSI_ARGS_((void)); -EXTERN void LangFreeCallback _ANSI_ARGS_((LangCallback *)); -EXTERN LangCallback * LangMakeCallback _ANSI_ARGS_((Tcl_Obj *)); -EXTERN Tcl_Obj * LangOldCallbackArg _ANSI_ARGS_((LangCallback *,char *,int)); -EXTERN void LangPushCallbackArgs _ANSI_ARGS_((LangCallback **svp)); -EXTERN long Lang_OSHandle _ANSI_ARGS_((int fd)); -EXTERN void Tcl_AlertNotifier _ANSI_ARGS_((ClientData clientData)); -EXTERN char * Tcl_Alloc _ANSI_ARGS_((unsigned int size)); -EXTERN Tcl_AsyncHandler Tcl_AsyncCreate _ANSI_ARGS_((Tcl_AsyncProc * proc, - ClientData clientData)); -EXTERN void Tcl_AsyncDelete _ANSI_ARGS_((Tcl_AsyncHandler async)); -EXTERN int Tcl_AsyncInvoke _ANSI_ARGS_((Tcl_Interp * interp, - int code)); -EXTERN void Tcl_AsyncMark _ANSI_ARGS_((Tcl_AsyncHandler async)); -EXTERN int Tcl_AsyncReady _ANSI_ARGS_((void)); -EXTERN void Tcl_CancelIdleCall _ANSI_ARGS_((Tcl_IdleProc *idleProc, - ClientData clientData)); -EXTERN void Tcl_CreateEventSource _ANSI_ARGS_(( - Tcl_EventSetupProc *setupProc, - Tcl_EventCheckProc *checkProc, - ClientData clientData)); -EXTERN void Tcl_CreateExitHandler _ANSI_ARGS_((Tcl_ExitProc *proc, - ClientData clientData)); -EXTERN void Tcl_CreateFileHandler _ANSI_ARGS_(( - int fd, int mask, Tcl_FileProc *proc, - ClientData clientData)); -EXTERN void Tcl_CreateThreadExitHandler _ANSI_ARGS_(( - Tcl_ExitProc * proc, ClientData clientData)); -EXTERN Tcl_TimerToken Tcl_CreateTimerHandler _ANSI_ARGS_((int milliseconds, - Tcl_TimerProc *proc, ClientData clientData)); -EXTERN char * Tcl_DbCkalloc _ANSI_ARGS_((unsigned int size,CONST char *file,int line)); -EXTERN int Tcl_DbCkfree _ANSI_ARGS_((char * ptr, CONST char * file, - int line)); -EXTERN char * Tcl_DbCkrealloc _ANSI_ARGS_((char *ptr, - unsigned int size, CONST char *file,int line)); -EXTERN void Tcl_DeleteEventSource _ANSI_ARGS_(( - Tcl_EventSetupProc *setupProc, - Tcl_EventCheckProc *checkProc, - ClientData clientData)); -EXTERN void Tcl_DeleteEvents _ANSI_ARGS_(( - Tcl_EventDeleteProc * proc, - ClientData clientData)); -EXTERN void Tcl_DeleteExitHandler _ANSI_ARGS_(( - Tcl_ExitProc * proc, ClientData clientData)); -EXTERN void Tcl_DeleteFileHandler _ANSI_ARGS_((int fd)); -EXTERN void Tcl_DeleteThreadExitHandler _ANSI_ARGS_(( - Tcl_ExitProc * proc, ClientData clientData)); -EXTERN void Tcl_DeleteTimerHandler _ANSI_ARGS_(( - Tcl_TimerToken token)); -EXTERN int Tcl_DoOneEvent _ANSI_ARGS_((int flags)); -EXTERN void Tcl_DoWhenIdle _ANSI_ARGS_((Tcl_IdleProc *proc, - ClientData clientData)); -EXTERN int Tcl_DumpActiveMemory _ANSI_ARGS_((CONST char * fileName)); -EXTERN void Tcl_Exit _ANSI_ARGS_((int status)); -EXTERN void Tcl_Finalize _ANSI_ARGS_((void)); -EXTERN void Tcl_FinalizeNotifier _ANSI_ARGS_(( - ClientData clientData)); -EXTERN void Tcl_FinalizeThread _ANSI_ARGS_((void)); -EXTERN void Tcl_Free _ANSI_ARGS_((char *ptr)); -EXTERN Tcl_ThreadId Tcl_GetCurrentThread _ANSI_ARGS_((void)); -EXTERN int Tcl_GetServiceMode _ANSI_ARGS_((void)); -EXTERN VOID * Tcl_GetThreadData _ANSI_ARGS_(( - Tcl_ThreadDataKey * keyPtr, int size)); -EXTERN ClientData Tcl_InitNotifier _ANSI_ARGS_((void)); -EXTERN void Tcl_Panic _ANSI_ARGS_((CONST char *,...)); -EXTERN void Tcl_QueueEvent _ANSI_ARGS_((Tcl_Event *evPtr, - Tcl_QueuePosition position)); -EXTERN void Tcl_QueueProcEvent _ANSI_ARGS_((Tcl_EventProc *proc, - Tcl_Event *evPtr, - Tcl_QueuePosition position)); -EXTERN char * Tcl_Realloc _ANSI_ARGS_((char *ptr, - unsigned int size)); -EXTERN int Tcl_ServiceAll _ANSI_ARGS_((void)); -EXTERN int Tcl_ServiceEvent _ANSI_ARGS_((int flags)); -EXTERN void Tcl_ServiceModeHook _ANSI_ARGS_((int mode)); -EXTERN void Tcl_SetMaxBlockTime _ANSI_ARGS_((Tcl_Time *timePtr)); -EXTERN void Tcl_SetNotifier _ANSI_ARGS_(( - Tcl_NotifierProcs * notifierProcPtr)); -EXTERN int Tcl_SetServiceMode _ANSI_ARGS_((int mode)); -EXTERN void Tcl_SetTimer _ANSI_ARGS_((Tcl_Time * timePtr)); -EXTERN void Tcl_Sleep _ANSI_ARGS_((int ms)); -EXTERN void Tcl_ThreadAlert _ANSI_ARGS_((Tcl_ThreadId threadId)); -EXTERN void Tcl_ThreadQueueEvent _ANSI_ARGS_(( - Tcl_ThreadId threadId, Tcl_Event* evPtr, - Tcl_QueuePosition position)); -EXTERN void Tcl_ValidateAllMemory _ANSI_ARGS_((CONST char * file, - int line)); -EXTERN int Tcl_WaitForEvent _ANSI_ARGS_((Tcl_Time * timePtr)); -EXTERN void TclpAsyncMark _ANSI_ARGS_((Tcl_AsyncHandler async)); -EXTERN void Tcl_GetTime _ANSI_ARGS_((Tcl_Time *time)); -EXTERN void * TkInitTimer _ANSI_ARGS_((void)); -EXTERN void Lang_NoteOwner _ANSI_ARGS_((void *owner,void *packet, - CONST char *file, int line)); -EXTERN char * Tcl_AttemptDbCkalloc _ANSI_ARGS_((unsigned int size, - CONST char * file, int line)); -EXTERN void TclpExit _ANSI_ARGS_((int status)); - -#ifdef TCL_MEM_DEBUG -#define LangNoteOwner(owner,packet) Lang_NoteOwner(owner,packet,__FILE__,__LINE__) -#else -#define LangNoteOwner(owner,packet) -#endif - -#ifndef TCL_TSD_INIT -#define TCL_TSD_INIT(keyPtr) (ThreadSpecificData *)Tcl_GetThreadData((keyPtr), sizeof(ThreadSpecificData)) -#endif - - -#endif /* _TKEVENT */ - - - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent.m b/Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent.m deleted file mode 100644 index 75219487d2f..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent.m +++ /dev/null @@ -1,274 +0,0 @@ -#ifndef _TKEVENT_VM -#define _TKEVENT_VM -#include "tkEvent_f.h" -#ifndef NO_VTABLES -#ifndef LangAsyncCheck -# define LangAsyncCheck (*TkeventVptr->V_LangAsyncCheck) -#endif - -#ifndef LangCallCallback -# define LangCallCallback (*TkeventVptr->V_LangCallCallback) -#endif - -#ifndef LangCallbackObj -# define LangCallbackObj (*TkeventVptr->V_LangCallbackObj) -#endif - -#ifndef LangCmpCallback -# define LangCmpCallback (*TkeventVptr->V_LangCmpCallback) -#endif - -#ifndef LangCopyCallback -# define LangCopyCallback (*TkeventVptr->V_LangCopyCallback) -#endif - -#ifndef LangDebug -# define LangDebug (*TkeventVptr->V_LangDebug) -#endif - -#ifndef LangFreeCallback -# define LangFreeCallback (*TkeventVptr->V_LangFreeCallback) -#endif - -#ifndef LangMakeCallback -# define LangMakeCallback (*TkeventVptr->V_LangMakeCallback) -#endif - -#ifndef LangOldCallbackArg -# define LangOldCallbackArg (*TkeventVptr->V_LangOldCallbackArg) -#endif - -#ifndef LangPushCallbackArgs -# define LangPushCallbackArgs (*TkeventVptr->V_LangPushCallbackArgs) -#endif - -#ifndef Lang_NoteOwner -# define Lang_NoteOwner (*TkeventVptr->V_Lang_NoteOwner) -#endif - -#ifndef Lang_OSHandle -# define Lang_OSHandle (*TkeventVptr->V_Lang_OSHandle) -#endif - -#ifndef Tcl_AlertNotifier -# define Tcl_AlertNotifier (*TkeventVptr->V_Tcl_AlertNotifier) -#endif - -#ifndef Tcl_Alloc -# define Tcl_Alloc (*TkeventVptr->V_Tcl_Alloc) -#endif - -#ifndef Tcl_AsyncCreate -# define Tcl_AsyncCreate (*TkeventVptr->V_Tcl_AsyncCreate) -#endif - -#ifndef Tcl_AsyncDelete -# define Tcl_AsyncDelete (*TkeventVptr->V_Tcl_AsyncDelete) -#endif - -#ifndef Tcl_AsyncInvoke -# define Tcl_AsyncInvoke (*TkeventVptr->V_Tcl_AsyncInvoke) -#endif - -#ifndef Tcl_AsyncMark -# define Tcl_AsyncMark (*TkeventVptr->V_Tcl_AsyncMark) -#endif - -#ifndef Tcl_AsyncReady -# define Tcl_AsyncReady (*TkeventVptr->V_Tcl_AsyncReady) -#endif - -#ifndef Tcl_AttemptDbCkalloc -# define Tcl_AttemptDbCkalloc (*TkeventVptr->V_Tcl_AttemptDbCkalloc) -#endif - -#ifndef Tcl_CancelIdleCall -# define Tcl_CancelIdleCall (*TkeventVptr->V_Tcl_CancelIdleCall) -#endif - -#ifndef Tcl_CreateEventSource -# define Tcl_CreateEventSource (*TkeventVptr->V_Tcl_CreateEventSource) -#endif - -#ifndef Tcl_CreateExitHandler -# define Tcl_CreateExitHandler (*TkeventVptr->V_Tcl_CreateExitHandler) -#endif - -#ifndef Tcl_CreateFileHandler -# define Tcl_CreateFileHandler (*TkeventVptr->V_Tcl_CreateFileHandler) -#endif - -#ifndef Tcl_CreateThreadExitHandler -# define Tcl_CreateThreadExitHandler (*TkeventVptr->V_Tcl_CreateThreadExitHandler) -#endif - -#ifndef Tcl_CreateTimerHandler -# define Tcl_CreateTimerHandler (*TkeventVptr->V_Tcl_CreateTimerHandler) -#endif - -#ifndef Tcl_DbCkalloc -# define Tcl_DbCkalloc (*TkeventVptr->V_Tcl_DbCkalloc) -#endif - -#ifndef Tcl_DbCkfree -# define Tcl_DbCkfree (*TkeventVptr->V_Tcl_DbCkfree) -#endif - -#ifndef Tcl_DbCkrealloc -# define Tcl_DbCkrealloc (*TkeventVptr->V_Tcl_DbCkrealloc) -#endif - -#ifndef Tcl_DeleteEventSource -# define Tcl_DeleteEventSource (*TkeventVptr->V_Tcl_DeleteEventSource) -#endif - -#ifndef Tcl_DeleteEvents -# define Tcl_DeleteEvents (*TkeventVptr->V_Tcl_DeleteEvents) -#endif - -#ifndef Tcl_DeleteExitHandler -# define Tcl_DeleteExitHandler (*TkeventVptr->V_Tcl_DeleteExitHandler) -#endif - -#ifndef Tcl_DeleteFileHandler -# define Tcl_DeleteFileHandler (*TkeventVptr->V_Tcl_DeleteFileHandler) -#endif - -#ifndef Tcl_DeleteThreadExitHandler -# define Tcl_DeleteThreadExitHandler (*TkeventVptr->V_Tcl_DeleteThreadExitHandler) -#endif - -#ifndef Tcl_DeleteTimerHandler -# define Tcl_DeleteTimerHandler (*TkeventVptr->V_Tcl_DeleteTimerHandler) -#endif - -#ifndef Tcl_DoOneEvent -# define Tcl_DoOneEvent (*TkeventVptr->V_Tcl_DoOneEvent) -#endif - -#ifndef Tcl_DoWhenIdle -# define Tcl_DoWhenIdle (*TkeventVptr->V_Tcl_DoWhenIdle) -#endif - -#ifndef Tcl_DumpActiveMemory -# define Tcl_DumpActiveMemory (*TkeventVptr->V_Tcl_DumpActiveMemory) -#endif - -#ifndef Tcl_Exit -# define Tcl_Exit (*TkeventVptr->V_Tcl_Exit) -#endif - -#ifndef Tcl_Finalize -# define Tcl_Finalize (*TkeventVptr->V_Tcl_Finalize) -#endif - -#ifndef Tcl_FinalizeNotifier -# define Tcl_FinalizeNotifier (*TkeventVptr->V_Tcl_FinalizeNotifier) -#endif - -#ifndef Tcl_FinalizeThread -# define Tcl_FinalizeThread (*TkeventVptr->V_Tcl_FinalizeThread) -#endif - -#ifndef Tcl_Free -# define Tcl_Free (*TkeventVptr->V_Tcl_Free) -#endif - -#ifndef Tcl_GetCurrentThread -# define Tcl_GetCurrentThread (*TkeventVptr->V_Tcl_GetCurrentThread) -#endif - -#ifndef Tcl_GetServiceMode -# define Tcl_GetServiceMode (*TkeventVptr->V_Tcl_GetServiceMode) -#endif - -#ifndef Tcl_GetThreadData -# define Tcl_GetThreadData (*TkeventVptr->V_Tcl_GetThreadData) -#endif - -#ifndef Tcl_GetTime -# define Tcl_GetTime (*TkeventVptr->V_Tcl_GetTime) -#endif - -#ifndef Tcl_InitNotifier -# define Tcl_InitNotifier (*TkeventVptr->V_Tcl_InitNotifier) -#endif - -#ifndef Tcl_Panic -# define Tcl_Panic (*TkeventVptr->V_Tcl_Panic) -#endif - -#ifndef Tcl_QueueEvent -# define Tcl_QueueEvent (*TkeventVptr->V_Tcl_QueueEvent) -#endif - -#ifndef Tcl_QueueProcEvent -# define Tcl_QueueProcEvent (*TkeventVptr->V_Tcl_QueueProcEvent) -#endif - -#ifndef Tcl_Realloc -# define Tcl_Realloc (*TkeventVptr->V_Tcl_Realloc) -#endif - -#ifndef Tcl_ServiceAll -# define Tcl_ServiceAll (*TkeventVptr->V_Tcl_ServiceAll) -#endif - -#ifndef Tcl_ServiceEvent -# define Tcl_ServiceEvent (*TkeventVptr->V_Tcl_ServiceEvent) -#endif - -#ifndef Tcl_ServiceModeHook -# define Tcl_ServiceModeHook (*TkeventVptr->V_Tcl_ServiceModeHook) -#endif - -#ifndef Tcl_SetMaxBlockTime -# define Tcl_SetMaxBlockTime (*TkeventVptr->V_Tcl_SetMaxBlockTime) -#endif - -#ifndef Tcl_SetNotifier -# define Tcl_SetNotifier (*TkeventVptr->V_Tcl_SetNotifier) -#endif - -#ifndef Tcl_SetServiceMode -# define Tcl_SetServiceMode (*TkeventVptr->V_Tcl_SetServiceMode) -#endif - -#ifndef Tcl_SetTimer -# define Tcl_SetTimer (*TkeventVptr->V_Tcl_SetTimer) -#endif - -#ifndef Tcl_Sleep -# define Tcl_Sleep (*TkeventVptr->V_Tcl_Sleep) -#endif - -#ifndef Tcl_ThreadAlert -# define Tcl_ThreadAlert (*TkeventVptr->V_Tcl_ThreadAlert) -#endif - -#ifndef Tcl_ThreadQueueEvent -# define Tcl_ThreadQueueEvent (*TkeventVptr->V_Tcl_ThreadQueueEvent) -#endif - -#ifndef Tcl_ValidateAllMemory -# define Tcl_ValidateAllMemory (*TkeventVptr->V_Tcl_ValidateAllMemory) -#endif - -#ifndef Tcl_WaitForEvent -# define Tcl_WaitForEvent (*TkeventVptr->V_Tcl_WaitForEvent) -#endif - -#ifndef TclpAsyncMark -# define TclpAsyncMark (*TkeventVptr->V_TclpAsyncMark) -#endif - -#ifndef TclpExit -# define TclpExit (*TkeventVptr->V_TclpExit) -#endif - -#ifndef TkInitTimer -# define TkInitTimer (*TkeventVptr->V_TkInitTimer) -#endif - -#endif /* NO_VTABLES */ -#endif /* _TKEVENT_VM */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent.t b/Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent.t deleted file mode 100644 index c09210729f5..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent.t +++ /dev/null @@ -1,304 +0,0 @@ -#ifdef _TKEVENT -#ifndef LangAsyncCheck -VFUNC(void,LangAsyncCheck,V_LangAsyncCheck,_ANSI_ARGS_((void))) -#endif /* #ifndef LangAsyncCheck */ - -#ifndef LangCallCallback -VFUNC(int,LangCallCallback,V_LangCallCallback,_ANSI_ARGS_((LangCallback *cb, int flags))) -#endif /* #ifndef LangCallCallback */ - -#ifndef LangCallbackObj -VFUNC(Tcl_Obj *,LangCallbackObj,V_LangCallbackObj,_ANSI_ARGS_((LangCallback *))) -#endif /* #ifndef LangCallbackObj */ - -#ifndef LangCmpCallback -VFUNC(int,LangCmpCallback,V_LangCmpCallback,_ANSI_ARGS_((LangCallback *a,Tcl_Obj * b))) -#endif /* #ifndef LangCmpCallback */ - -#ifndef LangCopyCallback -VFUNC(LangCallback *,LangCopyCallback,V_LangCopyCallback,_ANSI_ARGS_((LangCallback *))) -#endif /* #ifndef LangCopyCallback */ - -#ifndef LangDebug -VFUNC(void,LangDebug,V_LangDebug,_ANSI_ARGS_((CONST char *fmt,...))) -#endif /* #ifndef LangDebug */ - -#ifndef LangFreeCallback -VFUNC(void,LangFreeCallback,V_LangFreeCallback,_ANSI_ARGS_((LangCallback *))) -#endif /* #ifndef LangFreeCallback */ - -#ifndef LangMakeCallback -VFUNC(LangCallback *,LangMakeCallback,V_LangMakeCallback,_ANSI_ARGS_((Tcl_Obj *))) -#endif /* #ifndef LangMakeCallback */ - -#ifndef LangOldCallbackArg -VFUNC(Tcl_Obj *,LangOldCallbackArg,V_LangOldCallbackArg,_ANSI_ARGS_((LangCallback *,char *,int))) -#endif /* #ifndef LangOldCallbackArg */ - -#ifndef LangPushCallbackArgs -VFUNC(void,LangPushCallbackArgs,V_LangPushCallbackArgs,_ANSI_ARGS_((LangCallback **svp))) -#endif /* #ifndef LangPushCallbackArgs */ - -#ifndef Lang_NoteOwner -VFUNC(void,Lang_NoteOwner,V_Lang_NoteOwner,_ANSI_ARGS_((void *owner,void *packet, - CONST char *file, int line))) -#endif /* #ifndef Lang_NoteOwner */ - -#ifndef Lang_OSHandle -VFUNC(long,Lang_OSHandle,V_Lang_OSHandle,_ANSI_ARGS_((int fd))) -#endif /* #ifndef Lang_OSHandle */ - -#ifndef Tcl_AlertNotifier -VFUNC(void,Tcl_AlertNotifier,V_Tcl_AlertNotifier,_ANSI_ARGS_((ClientData clientData))) -#endif /* #ifndef Tcl_AlertNotifier */ - -#ifndef Tcl_Alloc -VFUNC(char *,Tcl_Alloc,V_Tcl_Alloc,_ANSI_ARGS_((unsigned int size))) -#endif /* #ifndef Tcl_Alloc */ - -#ifndef Tcl_AsyncCreate -VFUNC(Tcl_AsyncHandler,Tcl_AsyncCreate,V_Tcl_AsyncCreate,_ANSI_ARGS_((Tcl_AsyncProc * proc, - ClientData clientData))) -#endif /* #ifndef Tcl_AsyncCreate */ - -#ifndef Tcl_AsyncDelete -VFUNC(void,Tcl_AsyncDelete,V_Tcl_AsyncDelete,_ANSI_ARGS_((Tcl_AsyncHandler async))) -#endif /* #ifndef Tcl_AsyncDelete */ - -#ifndef Tcl_AsyncInvoke -VFUNC(int,Tcl_AsyncInvoke,V_Tcl_AsyncInvoke,_ANSI_ARGS_((Tcl_Interp * interp, - int code))) -#endif /* #ifndef Tcl_AsyncInvoke */ - -#ifndef Tcl_AsyncMark -VFUNC(void,Tcl_AsyncMark,V_Tcl_AsyncMark,_ANSI_ARGS_((Tcl_AsyncHandler async))) -#endif /* #ifndef Tcl_AsyncMark */ - -#ifndef Tcl_AsyncReady -VFUNC(int,Tcl_AsyncReady,V_Tcl_AsyncReady,_ANSI_ARGS_((void))) -#endif /* #ifndef Tcl_AsyncReady */ - -#ifndef Tcl_AttemptDbCkalloc -VFUNC(char *,Tcl_AttemptDbCkalloc,V_Tcl_AttemptDbCkalloc,_ANSI_ARGS_((unsigned int size, - CONST char * file, int line))) -#endif /* #ifndef Tcl_AttemptDbCkalloc */ - -#ifndef Tcl_CancelIdleCall -VFUNC(void,Tcl_CancelIdleCall,V_Tcl_CancelIdleCall,_ANSI_ARGS_((Tcl_IdleProc *idleProc, - ClientData clientData))) -#endif /* #ifndef Tcl_CancelIdleCall */ - -#ifndef Tcl_CreateEventSource -VFUNC(void,Tcl_CreateEventSource,V_Tcl_CreateEventSource,_ANSI_ARGS_(( - Tcl_EventSetupProc *setupProc, - Tcl_EventCheckProc *checkProc, - ClientData clientData))) -#endif /* #ifndef Tcl_CreateEventSource */ - -#ifndef Tcl_CreateExitHandler -VFUNC(void,Tcl_CreateExitHandler,V_Tcl_CreateExitHandler,_ANSI_ARGS_((Tcl_ExitProc *proc, - ClientData clientData))) -#endif /* #ifndef Tcl_CreateExitHandler */ - -#ifndef Tcl_CreateFileHandler -VFUNC(void,Tcl_CreateFileHandler,V_Tcl_CreateFileHandler,_ANSI_ARGS_(( - int fd, int mask, Tcl_FileProc *proc, - ClientData clientData))) -#endif /* #ifndef Tcl_CreateFileHandler */ - -#ifndef Tcl_CreateThreadExitHandler -VFUNC(void,Tcl_CreateThreadExitHandler,V_Tcl_CreateThreadExitHandler,_ANSI_ARGS_(( - Tcl_ExitProc * proc, ClientData clientData))) -#endif /* #ifndef Tcl_CreateThreadExitHandler */ - -#ifndef Tcl_CreateTimerHandler -VFUNC(Tcl_TimerToken,Tcl_CreateTimerHandler,V_Tcl_CreateTimerHandler,_ANSI_ARGS_((int milliseconds, - Tcl_TimerProc *proc, ClientData clientData))) -#endif /* #ifndef Tcl_CreateTimerHandler */ - -#ifndef Tcl_DbCkalloc -VFUNC(char *,Tcl_DbCkalloc,V_Tcl_DbCkalloc,_ANSI_ARGS_((unsigned int size,CONST char *file,int line))) -#endif /* #ifndef Tcl_DbCkalloc */ - -#ifndef Tcl_DbCkfree -VFUNC(int,Tcl_DbCkfree,V_Tcl_DbCkfree,_ANSI_ARGS_((char * ptr, CONST char * file, - int line))) -#endif /* #ifndef Tcl_DbCkfree */ - -#ifndef Tcl_DbCkrealloc -VFUNC(char *,Tcl_DbCkrealloc,V_Tcl_DbCkrealloc,_ANSI_ARGS_((char *ptr, - unsigned int size, CONST char *file,int line))) -#endif /* #ifndef Tcl_DbCkrealloc */ - -#ifndef Tcl_DeleteEventSource -VFUNC(void,Tcl_DeleteEventSource,V_Tcl_DeleteEventSource,_ANSI_ARGS_(( - Tcl_EventSetupProc *setupProc, - Tcl_EventCheckProc *checkProc, - ClientData clientData))) -#endif /* #ifndef Tcl_DeleteEventSource */ - -#ifndef Tcl_DeleteEvents -VFUNC(void,Tcl_DeleteEvents,V_Tcl_DeleteEvents,_ANSI_ARGS_(( - Tcl_EventDeleteProc * proc, - ClientData clientData))) -#endif /* #ifndef Tcl_DeleteEvents */ - -#ifndef Tcl_DeleteExitHandler -VFUNC(void,Tcl_DeleteExitHandler,V_Tcl_DeleteExitHandler,_ANSI_ARGS_(( - Tcl_ExitProc * proc, ClientData clientData))) -#endif /* #ifndef Tcl_DeleteExitHandler */ - -#ifndef Tcl_DeleteFileHandler -VFUNC(void,Tcl_DeleteFileHandler,V_Tcl_DeleteFileHandler,_ANSI_ARGS_((int fd))) -#endif /* #ifndef Tcl_DeleteFileHandler */ - -#ifndef Tcl_DeleteThreadExitHandler -VFUNC(void,Tcl_DeleteThreadExitHandler,V_Tcl_DeleteThreadExitHandler,_ANSI_ARGS_(( - Tcl_ExitProc * proc, ClientData clientData))) -#endif /* #ifndef Tcl_DeleteThreadExitHandler */ - -#ifndef Tcl_DeleteTimerHandler -VFUNC(void,Tcl_DeleteTimerHandler,V_Tcl_DeleteTimerHandler,_ANSI_ARGS_(( - Tcl_TimerToken token))) -#endif /* #ifndef Tcl_DeleteTimerHandler */ - -#ifndef Tcl_DoOneEvent -VFUNC(int,Tcl_DoOneEvent,V_Tcl_DoOneEvent,_ANSI_ARGS_((int flags))) -#endif /* #ifndef Tcl_DoOneEvent */ - -#ifndef Tcl_DoWhenIdle -VFUNC(void,Tcl_DoWhenIdle,V_Tcl_DoWhenIdle,_ANSI_ARGS_((Tcl_IdleProc *proc, - ClientData clientData))) -#endif /* #ifndef Tcl_DoWhenIdle */ - -#ifndef Tcl_DumpActiveMemory -VFUNC(int,Tcl_DumpActiveMemory,V_Tcl_DumpActiveMemory,_ANSI_ARGS_((CONST char * fileName))) -#endif /* #ifndef Tcl_DumpActiveMemory */ - -#ifndef Tcl_Exit -VFUNC(void,Tcl_Exit,V_Tcl_Exit,_ANSI_ARGS_((int status))) -#endif /* #ifndef Tcl_Exit */ - -#ifndef Tcl_Finalize -VFUNC(void,Tcl_Finalize,V_Tcl_Finalize,_ANSI_ARGS_((void))) -#endif /* #ifndef Tcl_Finalize */ - -#ifndef Tcl_FinalizeNotifier -VFUNC(void,Tcl_FinalizeNotifier,V_Tcl_FinalizeNotifier,_ANSI_ARGS_(( - ClientData clientData))) -#endif /* #ifndef Tcl_FinalizeNotifier */ - -#ifndef Tcl_FinalizeThread -VFUNC(void,Tcl_FinalizeThread,V_Tcl_FinalizeThread,_ANSI_ARGS_((void))) -#endif /* #ifndef Tcl_FinalizeThread */ - -#ifndef Tcl_Free -VFUNC(void,Tcl_Free,V_Tcl_Free,_ANSI_ARGS_((char *ptr))) -#endif /* #ifndef Tcl_Free */ - -#ifndef Tcl_GetCurrentThread -VFUNC(Tcl_ThreadId,Tcl_GetCurrentThread,V_Tcl_GetCurrentThread,_ANSI_ARGS_((void))) -#endif /* #ifndef Tcl_GetCurrentThread */ - -#ifndef Tcl_GetServiceMode -VFUNC(int,Tcl_GetServiceMode,V_Tcl_GetServiceMode,_ANSI_ARGS_((void))) -#endif /* #ifndef Tcl_GetServiceMode */ - -#ifndef Tcl_GetThreadData -VFUNC(VOID *,Tcl_GetThreadData,V_Tcl_GetThreadData,_ANSI_ARGS_(( - Tcl_ThreadDataKey * keyPtr, int size))) -#endif /* #ifndef Tcl_GetThreadData */ - -#ifndef Tcl_GetTime -VFUNC(void,Tcl_GetTime,V_Tcl_GetTime,_ANSI_ARGS_((Tcl_Time *time))) -#endif /* #ifndef Tcl_GetTime */ - -#ifndef Tcl_InitNotifier -VFUNC(ClientData,Tcl_InitNotifier,V_Tcl_InitNotifier,_ANSI_ARGS_((void))) -#endif /* #ifndef Tcl_InitNotifier */ - -#ifndef Tcl_Panic -VFUNC(void,Tcl_Panic,V_Tcl_Panic,_ANSI_ARGS_((CONST char *,...))) -#endif /* #ifndef Tcl_Panic */ - -#ifndef Tcl_QueueEvent -VFUNC(void,Tcl_QueueEvent,V_Tcl_QueueEvent,_ANSI_ARGS_((Tcl_Event *evPtr, - Tcl_QueuePosition position))) -#endif /* #ifndef Tcl_QueueEvent */ - -#ifndef Tcl_QueueProcEvent -VFUNC(void,Tcl_QueueProcEvent,V_Tcl_QueueProcEvent,_ANSI_ARGS_((Tcl_EventProc *proc, - Tcl_Event *evPtr, - Tcl_QueuePosition position))) -#endif /* #ifndef Tcl_QueueProcEvent */ - -#ifndef Tcl_Realloc -VFUNC(char *,Tcl_Realloc,V_Tcl_Realloc,_ANSI_ARGS_((char *ptr, - unsigned int size))) -#endif /* #ifndef Tcl_Realloc */ - -#ifndef Tcl_ServiceAll -VFUNC(int,Tcl_ServiceAll,V_Tcl_ServiceAll,_ANSI_ARGS_((void))) -#endif /* #ifndef Tcl_ServiceAll */ - -#ifndef Tcl_ServiceEvent -VFUNC(int,Tcl_ServiceEvent,V_Tcl_ServiceEvent,_ANSI_ARGS_((int flags))) -#endif /* #ifndef Tcl_ServiceEvent */ - -#ifndef Tcl_ServiceModeHook -VFUNC(void,Tcl_ServiceModeHook,V_Tcl_ServiceModeHook,_ANSI_ARGS_((int mode))) -#endif /* #ifndef Tcl_ServiceModeHook */ - -#ifndef Tcl_SetMaxBlockTime -VFUNC(void,Tcl_SetMaxBlockTime,V_Tcl_SetMaxBlockTime,_ANSI_ARGS_((Tcl_Time *timePtr))) -#endif /* #ifndef Tcl_SetMaxBlockTime */ - -#ifndef Tcl_SetNotifier -VFUNC(void,Tcl_SetNotifier,V_Tcl_SetNotifier,_ANSI_ARGS_(( - Tcl_NotifierProcs * notifierProcPtr))) -#endif /* #ifndef Tcl_SetNotifier */ - -#ifndef Tcl_SetServiceMode -VFUNC(int,Tcl_SetServiceMode,V_Tcl_SetServiceMode,_ANSI_ARGS_((int mode))) -#endif /* #ifndef Tcl_SetServiceMode */ - -#ifndef Tcl_SetTimer -VFUNC(void,Tcl_SetTimer,V_Tcl_SetTimer,_ANSI_ARGS_((Tcl_Time * timePtr))) -#endif /* #ifndef Tcl_SetTimer */ - -#ifndef Tcl_Sleep -VFUNC(void,Tcl_Sleep,V_Tcl_Sleep,_ANSI_ARGS_((int ms))) -#endif /* #ifndef Tcl_Sleep */ - -#ifndef Tcl_ThreadAlert -VFUNC(void,Tcl_ThreadAlert,V_Tcl_ThreadAlert,_ANSI_ARGS_((Tcl_ThreadId threadId))) -#endif /* #ifndef Tcl_ThreadAlert */ - -#ifndef Tcl_ThreadQueueEvent -VFUNC(void,Tcl_ThreadQueueEvent,V_Tcl_ThreadQueueEvent,_ANSI_ARGS_(( - Tcl_ThreadId threadId, Tcl_Event* evPtr, - Tcl_QueuePosition position))) -#endif /* #ifndef Tcl_ThreadQueueEvent */ - -#ifndef Tcl_ValidateAllMemory -VFUNC(void,Tcl_ValidateAllMemory,V_Tcl_ValidateAllMemory,_ANSI_ARGS_((CONST char * file, - int line))) -#endif /* #ifndef Tcl_ValidateAllMemory */ - -#ifndef Tcl_WaitForEvent -VFUNC(int,Tcl_WaitForEvent,V_Tcl_WaitForEvent,_ANSI_ARGS_((Tcl_Time * timePtr))) -#endif /* #ifndef Tcl_WaitForEvent */ - -#ifndef TclpAsyncMark -VFUNC(void,TclpAsyncMark,V_TclpAsyncMark,_ANSI_ARGS_((Tcl_AsyncHandler async))) -#endif /* #ifndef TclpAsyncMark */ - -#ifndef TclpExit -VFUNC(void,TclpExit,V_TclpExit,_ANSI_ARGS_((int status))) -#endif /* #ifndef TclpExit */ - -#ifndef TkInitTimer -VFUNC(void *,TkInitTimer,V_TkInitTimer,_ANSI_ARGS_((void))) -#endif /* #ifndef TkInitTimer */ - -#endif /* _TKEVENT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent_f.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent_f.h deleted file mode 100644 index f00d4002b13..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent_f.h +++ /dev/null @@ -1,14 +0,0 @@ -#ifndef TKEVENT_VT -#define TKEVENT_VT -typedef struct TkeventVtab -{ - unsigned (*tabSize)(void); -#define VFUNC(type,name,mem,args) type (*mem) args; -#define VVAR(type,name,mem) type (*mem); -#include "tkEvent.t" -#undef VFUNC -#undef VVAR -} TkeventVtab; -extern TkeventVtab *TkeventVptr; -extern TkeventVtab *TkeventVGet(void); -#endif /* TKEVENT_VT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkFileFilter.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkFileFilter.h deleted file mode 100644 index 886f1426cf3..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkFileFilter.h +++ /dev/null @@ -1,92 +0,0 @@ -/* - * tkFileFilter.h -- - * - * Declarations for the file filter processing routines needed by - * the file selection dialogs. - * - * Copyright (c) 1996 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkFileFilter.h,v 1.4 1998/09/14 18:23:10 stanton Exp $ - * - */ - -#ifndef _TK_FILE_FILTER -#define _TK_FILE_FILTER - -#ifdef MAC_TCL -#include <StandardFile.h> -#else -#define OSType long -#endif - -#ifdef BUILD_tk -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -#endif - -typedef struct GlobPattern { - struct GlobPattern * next; /* Chains to the next glob pattern - * in a glob pattern list */ - char * pattern; /* String value of the pattern, such - * as "*.txt" or "*.*" - */ -} GlobPattern; - -typedef struct MacFileType { - struct MacFileType * next; /* Chains to the next mac file type - * in a mac file type list */ - OSType type; /* Mac file type, such as 'TEXT' or - * 'GIFF' */ -} MacFileType; - -typedef struct FileFilterClause { - struct FileFilterClause * next; /* Chains to the next clause in - * a clause list */ - GlobPattern * patterns; /* Head of glob pattern type list */ - GlobPattern * patternsTail; /* Tail of glob pattern type list */ - MacFileType * macTypes; /* Head of mac file type list */ - MacFileType * macTypesTail; /* Tail of mac file type list */ -} FileFilterClause; - -typedef struct FileFilter { - struct FileFilter * next; /* Chains to the next filter - * in a filter list */ - char * name; /* Name of the file filter, - * such as "Text Documents" */ - FileFilterClause * clauses; /* Head of the clauses list */ - FileFilterClause * clausesTail; /* Tail of the clauses list */ -} FileFilter; - -/*---------------------------------------------------------------------- - * FileFilterList -- - * - * The routine TkGetFileFilters() translates the string value of the - * -filefilters option into a FileFilterList structure, which consists - * of a list of file filters. - * - * Each file filter consists of one or more clauses. Each clause has - * one or more glob patterns and/or one or more Mac file types - *---------------------------------------------------------------------- - */ - -typedef struct FileFilterList { - FileFilter * filters; /* Head of the filter list */ - FileFilter * filtersTail; /* Tail of the filter list */ - int numFilters; /* number of filters in the list */ -} FileFilterList; - -EXTERN void TkFreeFileFilters _ANSI_ARGS_(( - FileFilterList * flistPtr)); -EXTERN void TkInitFileFilters _ANSI_ARGS_(( - FileFilterList * flistPtr)); -EXTERN int TkGetFileFilters _ANSI_ARGS_ ((Tcl_Interp *interp, - FileFilterList * flistPtr, Tcl_Obj * arg, - int isWindows)); - -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLIMPORT - -#endif diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkFont.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkFont.h deleted file mode 100644 index fe633a1d87a..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkFont.h +++ /dev/null @@ -1,226 +0,0 @@ -/* - * tkFont.h -- - * - * Declarations for interfaces between the generic and platform- - * specific parts of the font package. This information is not - * visible outside of the font package. - * - * Copyright (c) 1996-1997 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkFont.h,v 1.5 1999/04/16 01:51:14 stanton Exp $ - */ - -#ifndef _TKFONT -#define _TKFONT - -#ifdef BUILD_tk -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * The following structure keeps track of the attributes of a font. It can - * be used to keep track of either the desired attributes or the actual - * attributes gotten when the font was instantiated. - */ - -typedef struct TkFontAttributes { - Tk_Uid family; /* Font family, or NULL to represent - * plaform-specific default system font. */ - int size; /* Pointsize of font, 0 for default size, or - * negative number meaning pixel size. */ - int weight; /* Weight flag; see below for def'n. */ - int slant; /* Slant flag; see below for def'n. */ - int underline; /* Non-zero for underline font. */ - int overstrike; /* Non-zero for overstrike font. */ -} TkFontAttributes; - -/* - * Possible values for the "weight" field in a TkFontAttributes structure. - * Weight is a subjective term and depends on what the company that created - * the font considers bold. - */ - -#define TK_FW_NORMAL 0 -#define TK_FW_BOLD 1 - -#define TK_FW_UNKNOWN -1 /* Unknown weight. This value is used for - * error checking and is never actually stored - * in the weight field. */ - -/* - * Possible values for the "slant" field in a TkFontAttributes structure. - */ - -#define TK_FS_ROMAN 0 -#define TK_FS_ITALIC 1 -#define TK_FS_OBLIQUE 2 /* This value is only used when parsing X - * font names to determine the closest - * match. It is only stored in the - * XLFDAttributes structure, never in the - * slant field of the TkFontAttributes. */ - -#define TK_FS_UNKNOWN -1 /* Unknown slant. This value is used for - * error checking and is never actually stored - * in the slant field. */ - -/* - * The following structure keeps track of the metrics for an instantiated - * font. The metrics are the physical properties of the font itself. - */ - -typedef struct TkFontMetrics { - int ascent; /* From baseline to top of font. */ - int descent; /* From baseline to bottom of font. */ - int maxWidth; /* Width of widest character in font. */ - int fixed; /* Non-zero if this is a fixed-width font, - * 0 otherwise. */ -} TkFontMetrics; - -/* - * The following structure is used to keep track of the generic information - * about a font. Each platform-specific font is represented by a structure - * with the following structure at its beginning, plus any platform- - * specific stuff after that. - */ - -typedef struct TkFont { - /* - * Fields used and maintained exclusively by generic code. - */ - - int resourceRefCount; /* Number of active uses of this font (each - * active use corresponds to a call to - * Tk_AllocFontFromTable or Tk_GetFont). - * If this count is 0, then this TkFont - * structure is no longer valid and it isn't - * present in a hash table: it is being - * kept around only because there are objects - * referring to it. The structure is freed - * when resourceRefCount and objRefCount - * are both 0. */ - int objRefCount; /* The number of Tcl objects that reference - * this structure. */ - Tcl_HashEntry *cacheHashPtr;/* Entry in font cache for this structure, - * used when deleting it. */ - Tcl_HashEntry *namedHashPtr;/* Pointer to hash table entry that - * corresponds to the named font that the - * tkfont was based on, or NULL if the tkfont - * was not based on a named font. */ - Screen *screen; /* The screen where this font is valid. */ - int tabWidth; /* Width of tabs in this font (pixels). */ - int underlinePos; /* Offset from baseline to origin of - * underline bar (used for drawing underlines - * on a non-underlined font). */ - int underlineHeight; /* Height of underline bar (used for drawing - * underlines on a non-underlined font). */ - - /* - * Fields used in the generic code that are filled in by - * platform-specific code. - */ - - Font fid; /* For backwards compatibility with XGCValues - * structures. Remove when TkGCValues is - * implemented. */ - TkFontAttributes fa; /* Actual font attributes obtained when the - * the font was created, as opposed to the - * desired attributes passed in to - * TkpGetFontFromAttributes(). The desired - * metrics can be determined from the string - * that was used to create this font. */ - TkFontMetrics fm; /* Font metrics determined when font was - * created. */ - struct TkFont *nextPtr; /* Points to the next TkFont structure with - * the same name. All fonts with the - * same name (but different displays) are - * chained together off a single entry in - * a hash table. */ -} TkFont; - -/* - * The following structure is used to return attributes when parsing an - * XLFD. The extra information is of interest to the Unix-specific code - * when attempting to find the closest matching font. - */ - -typedef struct TkXLFDAttributes { - Tk_Uid foundry; /* The foundry of the font. */ - int slant; /* The tristate value for the slant, which - * is significant under X. */ - int setwidth; /* The proportionate width, see below for - * definition. */ - Tk_Uid charset; /* The actual charset string. */ -} TkXLFDAttributes; - -/* - * Possible values for the "setwidth" field in a TkXLFDAttributes structure. - * The setwidth is whether characters are considered wider or narrower than - * normal. - */ - -#define TK_SW_NORMAL 0 -#define TK_SW_CONDENSE 1 -#define TK_SW_EXPAND 2 -#define TK_SW_UNKNOWN 3 /* Unknown setwidth. This value may be - * stored in the setwidth field. */ - -/* - * The following defines specify the meaning of the fields in a fully - * qualified XLFD. - */ - -#define XLFD_FOUNDRY 0 -#define XLFD_FAMILY 1 -#define XLFD_WEIGHT 2 -#define XLFD_SLANT 3 -#define XLFD_SETWIDTH 4 -#define XLFD_ADD_STYLE 5 -#define XLFD_PIXEL_SIZE 6 -#define XLFD_POINT_SIZE 7 -#define XLFD_RESOLUTION_X 8 -#define XLFD_RESOLUTION_Y 9 -#define XLFD_SPACING 10 -#define XLFD_AVERAGE_WIDTH 11 -#define XLFD_CHARSET 12 -#define XLFD_NUMFIELDS 13 /* Number of fields in XLFD. */ - -/* - * Low-level API exported by generic code to platform-specific code. - */ - -#define TkInitFontAttributes(fa) memset((fa), 0, sizeof(TkFontAttributes)); -#define TkInitXLFDAttributes(xa) memset((xa), 0, sizeof(TkXLFDAttributes)); - -EXTERN int TkFontParseXLFD _ANSI_ARGS_((CONST char *string, - TkFontAttributes *faPtr, TkXLFDAttributes *xaPtr)); -EXTERN char ** TkFontGetAliasList _ANSI_ARGS_((CONST char *faceName)); -EXTERN char *** TkFontGetFallbacks _ANSI_ARGS_((void)); -EXTERN int TkFontGetPixels _ANSI_ARGS_((Screen *screen, - int size)); -EXTERN int TkFontGetPoints _ANSI_ARGS_((Screen *screen, - int size)); -EXTERN char ** TkFontGetGlobalClass _ANSI_ARGS_((void)); -EXTERN char ** TkFontGetSymbolClass _ANSI_ARGS_((void)); - -/* - * Low-level API exported by platform-specific code to generic code. - */ - -EXTERN void TkpDeleteFont _ANSI_ARGS_((TkFont *tkFontPtr)); -EXTERN void TkpFontPkgInit _ANSI_ARGS_((TkMainInfo *mainPtr)); -EXTERN TkFont * TkpGetFontFromAttributes _ANSI_ARGS_(( - TkFont *tkFontPtr, Tk_Window tkwin, - CONST TkFontAttributes *faPtr)); -EXTERN void TkpGetFontFamilies _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin)); -EXTERN TkFont * TkpGetNativeFont _ANSI_ARGS_((Tk_Window tkwin, - CONST char *name)); - -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKFONT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto.h deleted file mode 100644 index bb744a46421..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto.h +++ /dev/null @@ -1,36 +0,0 @@ -#ifndef _TKIMGPHOTO -#define _TKIMGPHOTO - - -EXTERN void Tk_CreateOldPhotoImageFormat _ANSI_ARGS_(( - Tk_PhotoImageFormat *formatPtr)); -EXTERN void Tk_CreatePhotoImageFormat _ANSI_ARGS_(( - Tk_PhotoImageFormat *formatPtr)); -EXTERN void Tk_DitherPhoto _ANSI_ARGS_((Tk_PhotoHandle handle, - int x, int y, int width, int height)); -EXTERN Tk_PhotoHandle Tk_FindPhoto _ANSI_ARGS_((Tcl_Interp *interp, - CONST char *imageName)); -EXTERN void Tk_PhotoBlank _ANSI_ARGS_((Tk_PhotoHandle handle)); -EXTERN void Tk_PhotoExpand _ANSI_ARGS_((Tk_PhotoHandle handle, - int width, int height )); -EXTERN char * Tk_PhotoFormatName _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *formatString)); -EXTERN int Tk_PhotoGetImage _ANSI_ARGS_((Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr)); -EXTERN void Tk_PhotoGetSize _ANSI_ARGS_((Tk_PhotoHandle handle, - int *widthPtr, int *heightPtr)); -EXTERN void Tk_PhotoPutBlock _ANSI_ARGS_((Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int compRule)); -EXTERN void Tk_PhotoPutZoomedBlock _ANSI_ARGS_(( - Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int zoomX, int zoomY, - int subsampleX, int subsampleY, int compRule)); -EXTERN void Tk_PhotoSetSize _ANSI_ARGS_((Tk_PhotoHandle handle, - int width, int height)); -extern Tk_PhotoImageFormat tkImgFmtGIF; -extern Tk_PhotoImageFormat tkImgFmtPPM; -#endif /* _TKIMGPHOTO */ - - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto.m b/Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto.m deleted file mode 100644 index 1e1e302a6c6..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto.m +++ /dev/null @@ -1,55 +0,0 @@ -#ifndef _TKIMGPHOTO_VM -#define _TKIMGPHOTO_VM -#include "tkImgPhoto_f.h" -#ifndef NO_VTABLES -#define tkImgFmtPPM (*TkimgphotoVptr->V_tkImgFmtPPM) -#ifndef Tk_CreateOldPhotoImageFormat -# define Tk_CreateOldPhotoImageFormat (*TkimgphotoVptr->V_Tk_CreateOldPhotoImageFormat) -#endif - -#ifndef Tk_CreatePhotoImageFormat -# define Tk_CreatePhotoImageFormat (*TkimgphotoVptr->V_Tk_CreatePhotoImageFormat) -#endif - -#ifndef Tk_DitherPhoto -# define Tk_DitherPhoto (*TkimgphotoVptr->V_Tk_DitherPhoto) -#endif - -#ifndef Tk_FindPhoto -# define Tk_FindPhoto (*TkimgphotoVptr->V_Tk_FindPhoto) -#endif - -#ifndef Tk_PhotoBlank -# define Tk_PhotoBlank (*TkimgphotoVptr->V_Tk_PhotoBlank) -#endif - -#ifndef Tk_PhotoExpand -# define Tk_PhotoExpand (*TkimgphotoVptr->V_Tk_PhotoExpand) -#endif - -#ifndef Tk_PhotoFormatName -# define Tk_PhotoFormatName (*TkimgphotoVptr->V_Tk_PhotoFormatName) -#endif - -#ifndef Tk_PhotoGetImage -# define Tk_PhotoGetImage (*TkimgphotoVptr->V_Tk_PhotoGetImage) -#endif - -#ifndef Tk_PhotoGetSize -# define Tk_PhotoGetSize (*TkimgphotoVptr->V_Tk_PhotoGetSize) -#endif - -#ifndef Tk_PhotoPutBlock -# define Tk_PhotoPutBlock (*TkimgphotoVptr->V_Tk_PhotoPutBlock) -#endif - -#ifndef Tk_PhotoPutZoomedBlock -# define Tk_PhotoPutZoomedBlock (*TkimgphotoVptr->V_Tk_PhotoPutZoomedBlock) -#endif - -#ifndef Tk_PhotoSetSize -# define Tk_PhotoSetSize (*TkimgphotoVptr->V_Tk_PhotoSetSize) -#endif - -#endif /* NO_VTABLES */ -#endif /* _TKIMGPHOTO_VM */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto.t b/Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto.t deleted file mode 100644 index 02bd1b3807e..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto.t +++ /dev/null @@ -1,66 +0,0 @@ -#ifdef _TKIMGPHOTO -VVAR(Tk_PhotoImageFormat,tkImgFmtPPM,V_tkImgFmtPPM) -#ifndef Tk_CreateOldPhotoImageFormat -VFUNC(void,Tk_CreateOldPhotoImageFormat,V_Tk_CreateOldPhotoImageFormat,_ANSI_ARGS_(( - Tk_PhotoImageFormat *formatPtr))) -#endif /* #ifndef Tk_CreateOldPhotoImageFormat */ - -#ifndef Tk_CreatePhotoImageFormat -VFUNC(void,Tk_CreatePhotoImageFormat,V_Tk_CreatePhotoImageFormat,_ANSI_ARGS_(( - Tk_PhotoImageFormat *formatPtr))) -#endif /* #ifndef Tk_CreatePhotoImageFormat */ - -#ifndef Tk_DitherPhoto -VFUNC(void,Tk_DitherPhoto,V_Tk_DitherPhoto,_ANSI_ARGS_((Tk_PhotoHandle handle, - int x, int y, int width, int height))) -#endif /* #ifndef Tk_DitherPhoto */ - -#ifndef Tk_FindPhoto -VFUNC(Tk_PhotoHandle,Tk_FindPhoto,V_Tk_FindPhoto,_ANSI_ARGS_((Tcl_Interp *interp, - CONST char *imageName))) -#endif /* #ifndef Tk_FindPhoto */ - -#ifndef Tk_PhotoBlank -VFUNC(void,Tk_PhotoBlank,V_Tk_PhotoBlank,_ANSI_ARGS_((Tk_PhotoHandle handle))) -#endif /* #ifndef Tk_PhotoBlank */ - -#ifndef Tk_PhotoExpand -VFUNC(void,Tk_PhotoExpand,V_Tk_PhotoExpand,_ANSI_ARGS_((Tk_PhotoHandle handle, - int width, int height ))) -#endif /* #ifndef Tk_PhotoExpand */ - -#ifndef Tk_PhotoFormatName -VFUNC(char *,Tk_PhotoFormatName,V_Tk_PhotoFormatName,_ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *formatString))) -#endif /* #ifndef Tk_PhotoFormatName */ - -#ifndef Tk_PhotoGetImage -VFUNC(int,Tk_PhotoGetImage,V_Tk_PhotoGetImage,_ANSI_ARGS_((Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr))) -#endif /* #ifndef Tk_PhotoGetImage */ - -#ifndef Tk_PhotoGetSize -VFUNC(void,Tk_PhotoGetSize,V_Tk_PhotoGetSize,_ANSI_ARGS_((Tk_PhotoHandle handle, - int *widthPtr, int *heightPtr))) -#endif /* #ifndef Tk_PhotoGetSize */ - -#ifndef Tk_PhotoPutBlock -VFUNC(void,Tk_PhotoPutBlock,V_Tk_PhotoPutBlock,_ANSI_ARGS_((Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int compRule))) -#endif /* #ifndef Tk_PhotoPutBlock */ - -#ifndef Tk_PhotoPutZoomedBlock -VFUNC(void,Tk_PhotoPutZoomedBlock,V_Tk_PhotoPutZoomedBlock,_ANSI_ARGS_(( - Tk_PhotoHandle handle, - Tk_PhotoImageBlock *blockPtr, int x, int y, - int width, int height, int zoomX, int zoomY, - int subsampleX, int subsampleY, int compRule))) -#endif /* #ifndef Tk_PhotoPutZoomedBlock */ - -#ifndef Tk_PhotoSetSize -VFUNC(void,Tk_PhotoSetSize,V_Tk_PhotoSetSize,_ANSI_ARGS_((Tk_PhotoHandle handle, - int width, int height))) -#endif /* #ifndef Tk_PhotoSetSize */ - -#endif /* _TKIMGPHOTO */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto_f.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto_f.h deleted file mode 100644 index 594cebf81b6..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto_f.h +++ /dev/null @@ -1,14 +0,0 @@ -#ifndef TKIMGPHOTO_VT -#define TKIMGPHOTO_VT -typedef struct TkimgphotoVtab -{ - unsigned (*tabSize)(void); -#define VFUNC(type,name,mem,args) type (*mem) args; -#define VVAR(type,name,mem) type (*mem); -#include "tkImgPhoto.t" -#undef VFUNC -#undef VVAR -} TkimgphotoVtab; -extern TkimgphotoVtab *TkimgphotoVptr; -extern TkimgphotoVtab *TkimgphotoVGet(void); -#endif /* TKIMGPHOTO_VT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkInitScript.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkInitScript.h deleted file mode 100644 index 2e2b2343c32..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkInitScript.h +++ /dev/null @@ -1,58 +0,0 @@ -/* - * tkInitScript.h -- - * - * This file contains Unix & Windows common init script - * It is not used on the Mac. (the mac init script is in tkMacInit.c) - * - * Copyright (c) 1997 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkInitScript.h,v 1.8 1999/04/16 01:51:15 stanton Exp $ - */ - - - -/* - * In order to find tk.tcl during initialization, the following script - * is invoked by Tk_Init(). It looks in several different directories: - * - * $tk_library - can specify a primary location, if set - * no other locations will be checked - * - * $env(TK_LIBRARY) - highest priority so user can always override - * the search path unless the application has - * specified an exact directory above - * - * $tcl_library/../tk$tk_version - * - look relative to init.tcl in an installed - * lib directory (e.g. /usr/local) - * - * <executable directory>/../lib/tk$tk_version - * - look for a lib/tk<ver> in a sibling of - * the bin directory (e.g. /usr/local) - * - * <executable directory>/../library - * - look in Tk build directory - * - * <executable directory>/../../tk$tk_patchLevel/library - * - look for Tk build directory relative - * to a parallel build directory - * - * The first directory on this path that contains a valid tk.tcl script - * will be set ast the value of tk_library. - * - * Note that this entire search mechanism can be bypassed by defining an - * alternate tkInit procedure before calling Tk_Init(). - */ - -static char initScript[] = "if {[info proc tkInit]==\"\"} {\n\ - proc tkInit {} {\n\ - global tk_library tk_version tk_patchLevel\n\ - rename tkInit {}\n\ - tcl_findLibrary tk $tk_version $tk_patchLevel tk.tcl TK_LIBRARY tk_library\n\ - }\n\ -}\n\ -tkInit"; - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkInt.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkInt.h deleted file mode 100644 index a1925bdda5d..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkInt.h +++ /dev/null @@ -1,1200 +0,0 @@ -/* - * tkInt.h -- - * - * Declarations for things used internally by the Tk - * procedures but not exported outside the module. - * - * Copyright (c) 1990-1994 The Regents of the University of California. - * Copyright (c) 1994-1997 Sun Microsystems, Inc. - * Copyright (c) 1998 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: $Id: tkInt.h,v 1.56.2.1 2003/10/13 03:30:05 hobbs Exp $ - */ - -#ifndef _TKINT -#define _TKINT - -#ifndef _TK -#include "tk.h" -#endif -#ifdef BUILD_tk -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * Opaque type declarations: - */ - -typedef struct TkColormap TkColormap; -typedef struct TkGrabEvent TkGrabEvent; -typedef struct TkpCursor_ *TkpCursor; -typedef struct TkRegion_ *TkRegion; -typedef struct TkStressedCmap TkStressedCmap; -typedef struct TkBindInfo_ *TkBindInfo; - -/* - * Procedure types. - */ - -typedef int (TkBindEvalProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, XEvent *eventPtr, Tk_Window tkwin, - KeySym keySym)); -typedef void (TkBindFreeProc) _ANSI_ARGS_((ClientData clientData)); - -/* - * One of the following structures is maintained for each cursor in - * use in the system. This structure is used by tkCursor.c and the - * various system specific cursor files. - */ - -typedef struct TkCursor { - Tk_Cursor cursor; /* System specific identifier for cursor. */ - Display *display; /* Display containing cursor. Needed for - * disposal and retrieval of cursors. */ - int resourceRefCount; /* Number of active uses of this cursor (each - * active use corresponds to a call to - * Tk_AllocPreserveFromObj or Tk_Preserve). - * If this count is 0, then this structure - * is no longer valid and it isn't present - * in a hash table: it is being kept around - * only because there are objects referring - * to it. The structure is freed when - * resourceRefCount and objRefCount are - * both 0. */ - int objRefCount; /* Number of Tcl objects that reference - * this structure.. */ - Tcl_HashTable *otherTable; /* Second table (other than idTable) used - * to index this entry. */ - Tcl_HashEntry *hashPtr; /* Entry in otherTable for this structure - * (needed when deleting). */ - Tcl_HashEntry *idHashPtr; /* Entry in idTable for this structure - * (needed when deleting). */ - struct TkCursor *nextPtr; /* Points to the next TkCursor structure with - * the same name. Cursors with the same - * name but different displays are chained - * together off a single hash table entry. */ -} TkCursor; - -/* - * This defines whether we should try to use XIM over-the-spot style - * input. Allow users to override it. It is a much more elegant use - * of XIM, but uses a bit more memory. - */ - -#ifndef TK_XIM_SPOT -# define TK_XIM_SPOT 1 -#endif - -/* - * The following structure is kept one-per-TkDisplay to maintain information - * about the caret (cursor location) on this display. This is used to - * dictate global focus location (Windows Accessibility guidelines) and to - * position the IME or XIM over-the-spot window. - */ - -typedef struct TkCaret { - struct TkWindow *winPtr; /* the window on which we requested caret - * placement */ - int x; /* relative x coord of the caret */ - int y; /* relative y coord of the caret */ - int height; /* specified height of the window */ -} TkCaret; - -/* - * One of the following structures is maintained for each display - * containing a window managed by Tk. In part, the structure is - * used to store thread-specific data, since each thread will have - * its own TkDisplay structure. - */ - -typedef struct TkDisplay { - Display *display; /* Xlib's info about display. */ - struct TkDisplay *nextPtr; /* Next in list of all displays. */ - char *name; /* Name of display (with any screen - * identifier removed). Malloc-ed. */ - Time lastEventTime; /* Time of last event received for this - * display. */ - - /* - * Information used primarily by tk3d.c: - */ - - int borderInit; /* 0 means borderTable needs initializing. */ - Tcl_HashTable borderTable; /* Maps from color name to TkBorder - * structure. */ - - /* - * Information used by tkAtom.c only: - */ - - int atomInit; /* 0 means stuff below hasn't been - * initialized yet. */ - Tcl_HashTable nameTable; /* Maps from names to Atom's. */ - Tcl_HashTable atomTable; /* Maps from Atom's back to names. */ - - /* - * Information used primarily by tkBind.c: - */ - - int bindInfoStale; /* Non-zero means the variables in this - * part of the structure are potentially - * incorrect and should be recomputed. */ - unsigned int modeModMask; /* Has one bit set to indicate the modifier - * corresponding to "mode shift". If no - * such modifier, than this is zero. */ - unsigned int metaModMask; /* Has one bit set to indicate the modifier - * corresponding to the "Meta" key. If no - * such modifier, then this is zero. */ - unsigned int altModMask; /* Has one bit set to indicate the modifier - * corresponding to the "Meta" key. If no - * such modifier, then this is zero. */ - enum {LU_IGNORE, LU_CAPS, LU_SHIFT} lockUsage; - /* Indicates how to interpret lock modifier. */ - int numModKeyCodes; /* Number of entries in modKeyCodes array - * below. */ - KeyCode *modKeyCodes; /* Pointer to an array giving keycodes for - * all of the keys that have modifiers - * associated with them. Malloc'ed, but - * may be NULL. */ - - /* - * Information used by tkBitmap.c only: - */ - - int bitmapInit; /* 0 means tables above need initializing. */ - int bitmapAutoNumber; /* Used to number bitmaps. */ - Tcl_HashTable bitmapNameTable; - /* Maps from name of bitmap to the first - * TkBitmap record for that name. */ - Tcl_HashTable bitmapIdTable;/* Maps from bitmap id to the TkBitmap - * structure for the bitmap. */ - Tcl_HashTable bitmapDataTable; - /* Used by Tk_GetBitmapFromData to map from - * a collection of in-core data about a - * bitmap to a reference giving an auto- - * matically-generated name for the bitmap. */ - - /* - * Information used by tkCanvas.c only: - */ - - int numIdSearches; - int numSlowSearches; - - /* - * Used by tkColor.c only: - */ - - int colorInit; /* 0 means color module needs initializing. */ - TkStressedCmap *stressPtr; /* First in list of colormaps that have - * filled up, so we have to pick an - * approximate color. */ - Tcl_HashTable colorNameTable; - /* Maps from color name to TkColor structure - * for that color. */ - Tcl_HashTable colorValueTable; - /* Maps from integer RGB values to TkColor - * structures. */ - - /* - * Used by tkCursor.c only: - */ - - int cursorInit; /* 0 means cursor module need initializing. */ - Tcl_HashTable cursorNameTable; - /* Maps from a string name to a cursor to the - * TkCursor record for the cursor. */ - Tcl_HashTable cursorDataTable; - /* Maps from a collection of in-core data - * about a cursor to a TkCursor structure. */ - Tcl_HashTable cursorIdTable; - /* Maps from a cursor id to the TkCursor - * structure for the cursor. */ - char cursorString[20]; /* Used to store a cursor id string. */ - Font cursorFont; /* Font to use for standard cursors. - * None means font not loaded yet. */ - - /* - * Information used by tkError.c only: - */ - - struct TkErrorHandler *errorPtr; - /* First in list of error handlers - * for this display. NULL means - * no handlers exist at present. */ - int deleteCount; /* Counts # of handlers deleted since - * last time inactive handlers were - * garbage-collected. When this number - * gets big, handlers get cleaned up. */ - - /* - * Used by tkEvent.c only: - */ - - struct TkWindowEvent *delayedMotionPtr; - /* Points to a malloc-ed motion event - * whose processing has been delayed in - * the hopes that another motion event - * will come along right away and we can - * merge the two of them together. NULL - * means that there is no delayed motion - * event. */ - - /* - * Information used by tkFocus.c only: - */ - - int focusDebug; /* 1 means collect focus debugging - * statistics. */ - struct TkWindow *implicitWinPtr; - /* If the focus arrived at a toplevel window - * implicitly via an Enter event (rather - * than via a FocusIn event), this points - * to the toplevel window. Otherwise it is - * NULL. */ - struct TkWindow *focusPtr; /* Points to the window on this display that - * should be receiving keyboard events. When - * multiple applications on the display have - * the focus, this will refer to the - * innermost window in the innermost - * application. This information isn't used - * under Unix or Windows, but it's needed on - * the Macintosh. */ - - /* - * Information used by tkGC.c only: - */ - - Tcl_HashTable gcValueTable; /* Maps from a GC's values to a TkGC structure - * describing a GC with those values. */ - Tcl_HashTable gcIdTable; /* Maps from a GC to a TkGC. */ - int gcInit; /* 0 means the tables below need - * initializing. */ - - /* - * Information used by tkGeometry.c only: - */ - - Tcl_HashTable maintainHashTable; - /* Hash table that maps from a master's - * Tk_Window token to a list of slaves - * managed by that master. */ - int geomInit; - - /* - * Information used by tkGet.c only: - */ - - Tcl_HashTable uidTable; /* Stores all Tk_Uid used in a thread. */ - int uidInit; /* 0 means uidTable needs initializing. */ - - /* - * Information used by tkGrab.c only: - */ - - struct TkWindow *grabWinPtr; - /* Window in which the pointer is currently - * grabbed, or NULL if none. */ - struct TkWindow *eventualGrabWinPtr; - /* Value that grabWinPtr will have once the - * grab event queue (below) has been - * completely emptied. */ - struct TkWindow *buttonWinPtr; - /* Window in which first mouse button was - * pressed while grab was in effect, or NULL - * if no such press in effect. */ - struct TkWindow *serverWinPtr; - /* If no application contains the pointer then - * this is NULL. Otherwise it contains the - * last window for which we've gotten an - * Enter or Leave event from the server (i.e. - * the last window known to have contained - * the pointer). Doesn't reflect events - * that were synthesized in tkGrab.c. */ - TkGrabEvent *firstGrabEventPtr; - /* First in list of enter/leave events - * synthesized by grab code. These events - * must be processed in order before any other - * events are processed. NULL means no such - * events. */ - TkGrabEvent *lastGrabEventPtr; - /* Last in list of synthesized events, or NULL - * if list is empty. */ - int grabFlags; /* Miscellaneous flag values. See definitions - * in tkGrab.c. */ - - /* - * Information used by tkGrid.c only: - */ - - int gridInit; /* 0 means table below needs initializing. */ - Tcl_HashTable gridHashTable;/* Maps from Tk_Window tokens to - * corresponding Grid structures. */ - - /* - * Information used by tkImage.c only: - */ - - int imageId; /* Value used to number image ids. */ - - /* - * Information used by tkMacWinMenu.c only: - */ - - int postCommandGeneration; - - /* - * Information used by tkOption.c only. - */ - - - - /* - * Information used by tkPack.c only. - */ - - int packInit; /* 0 means table below needs initializing. */ - Tcl_HashTable packerHashTable; - /* Maps from Tk_Window tokens to - * corresponding Packer structures. */ - - - /* - * Information used by tkPlace.c only. - */ - - int placeInit; /* 0 means tables below need initializing. */ - Tcl_HashTable masterTable; /* Maps from Tk_Window toke to the Master - * structure for the window, if it exists. */ - Tcl_HashTable slaveTable; /* Maps from Tk_Window toke to the Slave - * structure for the window, if it exists. */ - - /* - * Information used by tkSelect.c and tkClipboard.c only: - */ - - struct TkSelectionInfo *selectionInfoPtr; - /* First in list of selection information - * records. Each entry contains information - * about the current owner of a particular - * selection on this display. */ - Atom multipleAtom; /* Atom for MULTIPLE. None means - * selection stuff isn't initialized. */ - Atom incrAtom; /* Atom for INCR. */ - Atom targetsAtom; /* Atom for TARGETS. */ - Atom timestampAtom; /* Atom for TIMESTAMP. */ - Atom textAtom; /* Atom for TEXT. */ - Atom compoundTextAtom; /* Atom for COMPOUND_TEXT. */ - Atom applicationAtom; /* Atom for TK_APPLICATION. */ - Atom windowAtom; /* Atom for TK_WINDOW. */ - Atom clipboardAtom; /* Atom for CLIPBOARD. */ - Atom utf8Atom; /* Atom for UTF8_STRING. */ - - Tk_Window clipWindow; /* Window used for clipboard ownership and to - * retrieve selections between processes. NULL - * means clipboard info hasn't been - * initialized. */ - int clipboardActive; /* 1 means we currently own the clipboard - * selection, 0 means we don't. */ - struct TkMainInfo *clipboardAppPtr; - /* Last application that owned clipboard. */ - struct TkClipboardTarget *clipTargetPtr; - /* First in list of clipboard type information - * records. Each entry contains information - * about the buffers for a given selection - * target. */ - - /* - * Information used by tkSend.c only: - */ - - Tk_Window commTkwin; /* Window used for communication - * between interpreters during "send" - * commands. NULL means send info hasn't - * been initialized yet. */ - Atom commProperty; /* X's name for comm property. */ - Atom registryProperty; /* X's name for property containing - * registry of interpreter names. */ - Atom appNameProperty; /* X's name for property used to hold the - * application name on each comm window. */ - - /* - * Information used by tkXId.c only: - */ - - struct TkIdStack *idStackPtr; - /* First in list of chunks of free resource - * identifiers, or NULL if there are no free - * resources. */ - XID (*defaultAllocProc) _ANSI_ARGS_((Display *display)); - /* Default resource allocator for display. */ - struct TkIdStack *windowStackPtr; - /* First in list of chunks of window - * identifers that can't be reused right - * now. */ - Tcl_TimerToken idCleanupScheduled; - /* If set, it means a call to WindowIdCleanup - * has already been scheduled, 0 means it - * hasn't. */ - - /* - * Information used by tkUnixWm.c and tkWinWm.c only: - */ - - struct TkWmInfo *firstWmPtr; /* Points to first top-level window. */ - struct TkWmInfo *foregroundWmPtr; - /* Points to the foreground window. */ - - /* - * Information maintained by tkWindow.c for use later on by tkXId.c: - */ - - - int destroyCount; /* Number of Tk_DestroyWindow operations - * in progress. */ - unsigned long lastDestroyRequest; - /* Id of most recent XDestroyWindow request; - * can re-use ids in windowStackPtr when - * server has seen this request and event - * queue is empty. */ - - /* - * Information used by tkVisual.c only: - */ - - TkColormap *cmapPtr; /* First in list of all non-default colormaps - * allocated for this display. */ - - /* - * Miscellaneous information: - */ - -#ifdef TK_USE_INPUT_METHODS - XIM inputMethod; /* Input method for this display */ -#if TK_XIM_SPOT - XFontSet inputXfs; /* XFontSet cached for over-the-spot XIM. */ -#endif -#endif /* TK_USE_INPUT_METHODS */ - Tcl_HashTable winTable; /* Maps from X window ids to TkWindow ptrs. */ - - int refCount; /* Reference count of how many Tk applications - * are using this display. Used to clean up - * the display when we no longer have any - * Tk applications using it. - */ - /* - * The following field were all added for Tk8.3 - */ - int mouseButtonState; /* current mouse button state for this - * display */ - Window mouseButtonWindow; /* Window the button state was set in, - * added in Tk 8.4. */ - Window warpWindow; - int warpX; - int warpY; - - /* - * The following field(s) were all added for Tk8.4 - */ - unsigned int flags; /* Various flag values: these are all - * defined in below. */ - TkCaret caret; /* information about the caret for this - * display. This is not a pointer. */ - int iconDataSize; /* Size of default iconphoto image data */ - unsigned char *iconDataPtr; /* Default iconphoto image data, if set */ -} TkDisplay; - -/* - * Flag values for TkDisplay flags. - * TK_DISPLAY_COLLAPSE_MOTION_EVENTS: (default on) - * Indicates that we should collapse motion events on this display - * TK_DISPLAY_USE_IM: (default on, set via tk.tcl) - * Whether to use input methods for this display - * TK_DISPLAY_XIM_SPOT: (default off) - * Indicates that we should use over-the-spot XIM on this display - * TK_DISPLAY_WM_TRACING: (default off) - * Whether we should do wm tracing on this display. - * TK_DISPLAY_IN_WARP: (default off) - * Indicates that we are in a pointer warp - */ - -#define TK_DISPLAY_COLLAPSE_MOTION_EVENTS (1 << 0) -#define TK_DISPLAY_USE_IM (1 << 1) -#define TK_DISPLAY_XIM_SPOT (1 << 2) -#define TK_DISPLAY_WM_TRACING (1 << 3) -#define TK_DISPLAY_IN_WARP (1 << 4) - -/* - * One of the following structures exists for each error handler - * created by a call to Tk_CreateErrorHandler. The structure - * is managed by tkError.c. - */ - -typedef struct TkErrorHandler { - TkDisplay *dispPtr; /* Display to which handler applies. */ - unsigned long firstRequest; /* Only errors with serial numbers - * >= to this are considered. */ - unsigned long lastRequest; /* Only errors with serial numbers - * <= to this are considered. This - * field is filled in when XUnhandle - * is called. -1 means XUnhandle - * hasn't been called yet. */ - int error; /* Consider only errors with this - * error_code (-1 means consider - * all errors). */ - int request; /* Consider only errors with this - * major request code (-1 means - * consider all major codes). */ - int minorCode; /* Consider only errors with this - * minor request code (-1 means - * consider all minor codes). */ - Tk_ErrorProc *errorProc; /* Procedure to invoke when a matching - * error occurs. NULL means just ignore - * errors. */ - ClientData clientData; /* Arbitrary value to pass to - * errorProc. */ - struct TkErrorHandler *nextPtr; - /* Pointer to next older handler for - * this display, or NULL for end of - * list. */ -} TkErrorHandler; - - -/* - * One of the following structures exists for each event handler - * created by calling Tk_CreateEventHandler. This information - * is used by tkEvent.c only. - */ - -typedef struct TkEventHandler { - unsigned long mask; /* Events for which to invoke - * proc. */ - Tk_EventProc *proc; /* Procedure to invoke when an event - * in mask occurs. */ - ClientData clientData; /* Argument to pass to proc. */ - struct TkEventHandler *nextPtr; - /* Next in list of handlers - * associated with window (NULL means - * end of list). */ -} TkEventHandler; - -/* - * Tk keeps one of the following data structures for each main - * window (created by a call to TkCreateMainWindow). It stores - * information that is shared by all of the windows associated - * with a particular main window. - */ - -typedef struct TkMainInfo { - int refCount; /* Number of windows whose "mainPtr" fields - * point here. When this becomes zero, can - * free up the structure (the reference - * count is zero because windows can get - * deleted in almost any order; the main - * window isn't necessarily the last one - * deleted). */ - struct TkWindow *winPtr; /* Pointer to main window. */ - Tcl_Interp *interp; /* Interpreter associated with application. */ - Tcl_HashTable nameTable; /* Hash table mapping path names to TkWindow - * structs for all windows related to this - * main window. Managed by tkWindow.c. */ - long deletionEpoch; /* Incremented by window deletions */ - Tk_BindingTable bindingTable; - /* Used in conjunction with "bind" command - * to bind events to Tcl commands. */ - TkBindInfo bindInfo; /* Information used by tkBind.c on a per - * application basis. */ - struct TkFontInfo *fontInfoPtr; - /* Information used by tkFont.c on a per - * application basis. */ - - /* - * Information used only by tkFocus.c and tk*Embed.c: - */ - - struct TkToplevelFocusInfo *tlFocusPtr; - /* First in list of records containing focus - * information for each top-level in the - * application. Used only by tkFocus.c. */ - struct TkDisplayFocusInfo *displayFocusPtr; - /* First in list of records containing focus - * information for each display that this - * application has ever used. Used only - * by tkFocus.c. */ - - struct ElArray *optionRootPtr; - /* Top level of option hierarchy for this - * main window. NULL means uninitialized. - * Managed by tkOption.c. */ - Tcl_HashTable imageTable; /* Maps from image names to Tk_ImageMaster - * structures. Managed by tkImage.c. */ - int strictMotif; /* This is linked to the tk_strictMotif - * global variable. */ - struct TkMainInfo *nextPtr; /* Next in list of all main windows managed by - * this process. */ -} TkMainInfo; - -/* - * Tk keeps the following data structure for each of it's builtin - * bitmaps. This structure is only used by tkBitmap.c and other - * platform specific bitmap files. - */ - -typedef struct { - CONST char *source; /* Bits for bitmap. */ - int width, height; /* Dimensions of bitmap. */ - int native; /* 0 means generic (X style) bitmap, - * 1 means native style bitmap. */ -} TkPredefBitmap; - -/* - * Tk keeps one of the following structures for each window. - * Some of the information (like size and location) is a shadow - * of information managed by the X server, and some is special - * information used here, such as event and geometry management - * information. This information is (mostly) managed by tkWindow.c. - * WARNING: the declaration below must be kept consistent with the - * Tk_FakeWin structure in tk.h. If you change one, be sure to - * change the other!! - */ - -typedef struct TkWindow { - - /* - * Structural information: - */ - - Display *display; /* Display containing window. */ - TkDisplay *dispPtr; /* Tk's information about display - * for window. */ - int screenNum; /* Index of screen for window, among all - * those for dispPtr. */ - Visual *visual; /* Visual to use for window. If not default, - * MUST be set before X window is created. */ - int depth; /* Number of bits/pixel. */ - Window window; /* X's id for window. NULL means window - * hasn't actually been created yet, or it's - * been deleted. */ - struct TkWindow *childList; /* First in list of child windows, - * or NULL if no children. List is in - * stacking order, lowest window first.*/ - struct TkWindow *lastChildPtr; - /* Last in list of child windows (highest - * in stacking order), or NULL if no - * children. */ - struct TkWindow *parentPtr; /* Pointer to parent window (logical - * parent, not necessarily X parent). NULL - * means either this is the main window, or - * the window's parent has already been - * deleted. */ - struct TkWindow *nextPtr; /* Next higher sibling (in stacking order) - * in list of children with same parent. NULL - * means end of list. */ - TkMainInfo *mainPtr; /* Information shared by all windows - * associated with a particular main - * window. NULL means this window is - * a rogue that isn't associated with - * any application (at present, this - * only happens for the dummy windows - * used for "send" communication). */ - - /* - * Name and type information for the window: - */ - - char *pathName; /* Path name of window (concatenation - * of all names between this window and - * its top-level ancestor). This is a - * pointer into an entry in - * mainPtr->nameTable. NULL means that - * the window hasn't been completely - * created yet. */ - Tk_Uid nameUid; /* Name of the window within its parent - * (unique within the parent). */ - Tk_Uid classUid; /* Class of the window. NULL means window - * hasn't been given a class yet. */ - - /* - * Geometry and other attributes of window. This information - * may not be updated on the server immediately; stuff that - * hasn't been reflected in the server yet is called "dirty". - * At present, information can be dirty only if the window - * hasn't yet been created. - */ - - XWindowChanges changes; /* Geometry and other info about - * window. */ - unsigned int dirtyChanges; /* Bits indicate fields of "changes" - * that are dirty. */ - XSetWindowAttributes atts; /* Current attributes of window. */ - unsigned long dirtyAtts; /* Bits indicate fields of "atts" - * that are dirty. */ - - unsigned int flags; /* Various flag values: these are all - * defined in tk.h (confusing, but they're - * needed there for some query macros). */ - - /* - * Information kept by the event manager (tkEvent.c): - */ - - TkEventHandler *handlerList;/* First in list of event handlers - * declared for this window, or - * NULL if none. */ -#ifdef TK_USE_INPUT_METHODS - XIC inputContext; /* XIM input context. */ -#endif /* TK_USE_INPUT_METHODS */ - - /* - * Information used for event bindings (see "bind" and "bindtags" - * commands in tkCmds.c): - */ - - ClientData *tagPtr; /* Points to array of tags used for bindings - * on this window. Each tag is a Tk_Uid. - * Malloc'ed. NULL means no tags. */ - int numTags; /* Number of tags at *tagPtr. */ - - /* - * Information used by tkOption.c to manage options for the - * window. - */ - - int optionLevel; /* -1 means no option information is - * currently cached for this window. - * Otherwise this gives the level in - * the option stack at which info is - * cached. */ - /* - * Information used by tkSelect.c to manage the selection. - */ - - struct TkSelHandler *selHandlerList; - /* First in list of handlers for - * returning the selection in various - * forms. */ - - /* - * Information used by tkGeometry.c for geometry management. - */ - - Tk_GeomMgr *geomMgrPtr; /* Information about geometry manager for - * this window. */ - ClientData geomData; /* Argument for geometry manager procedures. */ - int reqWidth, reqHeight; /* Arguments from last call to - * Tk_GeometryRequest, or 0's if - * Tk_GeometryRequest hasn't been - * called. */ - int internalBorderLeft; /* Width of internal border of window - * (0 means no internal border). Geometry - * managers should not normally place children - * on top of the border. - * Fields for the other three sides are found - * below. */ - - /* - * Information maintained by tkWm.c for window manager communication. - */ - - struct TkWmInfo *wmInfoPtr; /* For top-level windows (and also - * for special Unix menubar and wrapper - * windows), points to structure with - * wm-related info (see tkWm.c). For - * other windows, this is NULL. */ - - /* - * Information used by widget classes. - */ - - Tk_ClassProcs *classProcsPtr; - ClientData instanceData; - - /* - * Platform specific information private to each port. - */ - - struct TkWindowPrivate *privatePtr; - - /* - * More information used by tkGeometry.c for geometry management. - */ - - /* The remaining fields of internal border. */ - int internalBorderRight; - int internalBorderTop; - int internalBorderBottom; - - int minReqWidth; /* Minimum requested width. */ - int minReqHeight; /* Minimum requested height. */ -} TkWindow; - -/* - * The following structure is used as a two way map between integers - * and strings, usually to map between an internal C representation - * and the strings used in Tcl. - */ - -typedef struct TkStateMap { - int numKey; /* Integer representation of a value. */ - char *strKey; /* String representation of a value. */ -} TkStateMap; - -/* - * This structure is used by the Mac and Window porting layers as - * the internal representation of a clip_mask in a GC. - */ - -typedef struct TkpClipMask { - int type; /* One of TKP_CLIP_PIXMAP or TKP_CLIP_REGION */ - union { - Pixmap pixmap; - TkRegion region; - } value; -} TkpClipMask; - -#define TKP_CLIP_PIXMAP 0 -#define TKP_CLIP_REGION 1 - -/* - * Pointer to first entry in list of all displays currently known. - */ - -extern TkDisplay *tkDisplayList; - -/* - * Return values from TkGrabState: - */ - -#define TK_GRAB_NONE 0 -#define TK_GRAB_IN_TREE 1 -#define TK_GRAB_ANCESTOR 2 -#define TK_GRAB_EXCLUDED 3 - -/* - * The macro below is used to modify a "char" value (e.g. by casting - * it to an unsigned character) so that it can be used safely with - * macros such as isspace. - */ - -#define UCHAR(c) ((unsigned char) (c)) - -/* - * The following symbol is used in the mode field of FocusIn events - * generated by an embedded application to request the input focus from - * its container. - */ - -#define EMBEDDED_APP_WANTS_FOCUS (NotifyNormal + 20) - -/* - * The following special modifier mask bits are defined, to indicate - * logical modifiers such as Meta and Alt that may float among the - * actual modifier bits. - */ - -#define META_MASK (AnyModifier<<1) -#define ALT_MASK (AnyModifier<<2) - -/* - * Object types not declared in tkObj.c need to be mentioned here so - * they can be properly registered with Tcl: - */ - -extern Tcl_ObjType tkBorderObjType; -extern Tcl_ObjType tkBitmapObjType; -extern Tcl_ObjType tkColorObjType; -extern Tcl_ObjType tkCursorObjType; -extern Tcl_ObjType tkFontObjType; -extern Tcl_ObjType tkOptionObjType; -extern Tcl_ObjType tkStateKeyObjType; - -/* - * Miscellaneous variables shared among Tk modules but not exported - * to the outside world: - */ -typedef void TkDelayedEventProc _ANSI_ARGS_((void)); -typedef void tkHandleEventProc_t _ANSI_ARGS_((XEvent* eventPtr)); - -extern Tk_SmoothMethod tkBezierSmoothMethod; -extern Tk_ImageType tkBitmapImageType; -extern Tk_PhotoImageFormat tkImgFmtGIF; -extern void (*tkHandleEventProc) _ANSI_ARGS_(( - XEvent* eventPtr)); -extern Tk_PhotoImageFormat tkImgFmtPPM; -extern TkMainInfo *tkMainWindowList; -extern Tk_ImageType tkPhotoImageType; -extern Tcl_HashTable tkPredefBitmapTable; -extern int tkSendSerial; - -#include "tkIntDecls.h" - -#ifdef BUILD_tk -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * Internal procedures shared among Tk modules but not exported - * to the outside world: - */ - -EXTERN int Tk_BellObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_BindObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_BindtagsObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_ButtonObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_CanvasObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_CheckbuttonObjCmd _ANSI_ARGS_(( - ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_ClipboardObjCmd _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *CONST objv[])); -EXTERN int Tk_ChooseColorObjCmd _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *CONST objv[])); -EXTERN int Tk_ChooseDirectoryObjCmd _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *CONST objv[])); -EXTERN int Tk_ChooseFontObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_DestroyObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_EntryObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_EventObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_FileeventCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_FrameObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_FocusObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_FontObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_GetOpenFileObjCmd _ANSI_ARGS_(( - ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_GetSaveFileObjCmd _ANSI_ARGS_(( - ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_GrabObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_GridObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_ImageObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_LabelObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_LabelframeObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_ListboxObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_LowerObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_MenubuttonObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_MessageBoxObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_MessageObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_PanedWindowObjCmd _ANSI_ARGS_(( - ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_OptionObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_PackObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_PlaceObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_RadiobuttonObjCmd _ANSI_ARGS_(( - ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_RaiseObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_ScaleObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_ScrollbarCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST objv[])); -EXTERN int Tk_SelectionObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_SendCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_SendObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_SpinboxObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_TextCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int Tk_TkObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_TkwaitObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_ToplevelObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_UpdateObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_WinfoObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); -EXTERN int Tk_WmObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[])); - -EXTERN void TkConsolePrint _ANSI_ARGS_((Tcl_Interp *interp, - int devId, CONST char *buffer, long size)); - -EXTERN void TkEventInit _ANSI_ARGS_((void)); - -EXTERN void TkRegisterObjTypes _ANSI_ARGS_((void)); - -EXTERN int TkCreateMenuCmd _ANSI_ARGS_((Tcl_Interp *interp)); -EXTERN int TkDeadAppCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); - -EXTERN int TkpTestembedCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int TkCanvasGetCoordObj _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tcl_Obj *obj, - double *doublePtr)); -EXTERN int TkCanvasDashParseProc _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *value, char *widgRec, - int offset)); -EXTERN Tcl_Obj * TkCanvasDashPrintProc _ANSI_ARGS_(( - ClientData clientData, Tk_Window tkwin, - char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr)); -EXTERN int TkGetDoublePixels _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, CONST char *string, - double *doublePtr)); -EXTERN int TkOffsetParseProc _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *value, char *widgRec, - int offset)); -EXTERN Tcl_Obj * TkOffsetPrintProc _ANSI_ARGS_(( - ClientData clientData, Tk_Window tkwin, - char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr)); -EXTERN int TkOrientParseProc _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *value, - char *widgRec, int offset)); -EXTERN Tcl_Obj * TkOrientPrintProc _ANSI_ARGS_(( - ClientData clientData, Tk_Window tkwin, - char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr)); -EXTERN int TkPixelParseProc _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *value, char *widgRec, - int offset)); -EXTERN Tcl_Obj * TkPixelPrintProc _ANSI_ARGS_(( - ClientData clientData, Tk_Window tkwin, - char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr)); -EXTERN int TkPostscriptImage _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Tk_PostscriptInfo psInfo, - XImage *ximage, int x, int y, int width, - int height)); -EXTERN int TkSmoothParseProc _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, - Tcl_Obj *value, char *recordPtr, int offset)); -EXTERN Tcl_Obj * TkSmoothPrintProc _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin, char *recordPtr, int offset, - Tcl_FreeProc **freeProcPtr)); -EXTERN int TkStateParseProc _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *value, - char *widgRec, int offset)); -EXTERN Tcl_Obj * TkStatePrintProc _ANSI_ARGS_(( - ClientData clientData, Tk_Window tkwin, - char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr)); -EXTERN int Tk_StateParseProc _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *value, - char *widgRec, int offset)); -EXTERN Tcl_Obj * Tk_StatePrintProc _ANSI_ARGS_(( - ClientData clientData, Tk_Window tkwin, - char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr)); -EXTERN int TkTileParseProc _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *value, char *widgRec, - int offset)); -EXTERN Tcl_Obj * TkTilePrintProc _ANSI_ARGS_(( - ClientData clientData, Tk_Window tkwin, - char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr)); - -/* - * Unsupported commands. - */ -EXTERN int TkUnsupported1Cmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); - -/* - * Canvas-related procedures that are shared among Tk modules but not - * exported to the outside world: - */ - -struct TkCanvas; -extern int TkCanvPostscriptCmd _ANSI_ARGS_((struct TkCanvas *canvasPtr, - Tcl_Interp *interp, int argc, CONST84 Tcl_Obj *CONST *objv)); - -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKINT */ - - - - - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkInt.m b/Master/tlpkg/tlperl/lib/Tk/pTk/tkInt.m deleted file mode 100644 index 4713524528e..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkInt.m +++ /dev/null @@ -1,125 +0,0 @@ -#ifndef _TKINT_VM -#define _TKINT_VM -#include "tkInt_f.h" -#ifndef NO_VTABLES -#define tkBitmapObjType (*TkintVptr->V_tkBitmapObjType) -#define tkBorderObjType (*TkintVptr->V_tkBorderObjType) -#define tkColorObjType (*TkintVptr->V_tkColorObjType) -#define tkCursorObjType (*TkintVptr->V_tkCursorObjType) -#define tkFontObjType (*TkintVptr->V_tkFontObjType) -#define tkOptionObjType (*TkintVptr->V_tkOptionObjType) -#define tkStateKeyObjType (*TkintVptr->V_tkStateKeyObjType) -#ifndef TkCanvPostscriptCmd -# define TkCanvPostscriptCmd (*TkintVptr->V_TkCanvPostscriptCmd) -#endif - -#ifndef TkCreateMenuCmd -# define TkCreateMenuCmd (*TkintVptr->V_TkCreateMenuCmd) -#endif - -#ifndef TkEventInit -# define TkEventInit (*TkintVptr->V_TkEventInit) -#endif - -#ifndef TkGetDoublePixels -# define TkGetDoublePixels (*TkintVptr->V_TkGetDoublePixels) -#endif - -#ifndef TkOffsetParseProc -# define TkOffsetParseProc (*TkintVptr->V_TkOffsetParseProc) -#endif - -#ifndef TkOffsetPrintProc -# define TkOffsetPrintProc (*TkintVptr->V_TkOffsetPrintProc) -#endif - -#ifndef TkOrientParseProc -# define TkOrientParseProc (*TkintVptr->V_TkOrientParseProc) -#endif - -#ifndef TkOrientPrintProc -# define TkOrientPrintProc (*TkintVptr->V_TkOrientPrintProc) -#endif - -#ifndef TkPixelParseProc -# define TkPixelParseProc (*TkintVptr->V_TkPixelParseProc) -#endif - -#ifndef TkPixelPrintProc -# define TkPixelPrintProc (*TkintVptr->V_TkPixelPrintProc) -#endif - -#ifndef TkPostscriptImage -# define TkPostscriptImage (*TkintVptr->V_TkPostscriptImage) -#endif - -#ifndef TkRegisterObjTypes -# define TkRegisterObjTypes (*TkintVptr->V_TkRegisterObjTypes) -#endif - -#ifndef TkTileParseProc -# define TkTileParseProc (*TkintVptr->V_TkTileParseProc) -#endif - -#ifndef TkTilePrintProc -# define TkTilePrintProc (*TkintVptr->V_TkTilePrintProc) -#endif - -#ifndef Tk_BindObjCmd -# define Tk_BindObjCmd (*TkintVptr->V_Tk_BindObjCmd) -#endif - -#ifndef Tk_BindtagsObjCmd -# define Tk_BindtagsObjCmd (*TkintVptr->V_Tk_BindtagsObjCmd) -#endif - -#ifndef Tk_ClipboardObjCmd -# define Tk_ClipboardObjCmd (*TkintVptr->V_Tk_ClipboardObjCmd) -#endif - -#ifndef Tk_GrabObjCmd -# define Tk_GrabObjCmd (*TkintVptr->V_Tk_GrabObjCmd) -#endif - -#ifndef Tk_GridObjCmd -# define Tk_GridObjCmd (*TkintVptr->V_Tk_GridObjCmd) -#endif - -#ifndef Tk_LabelframeObjCmd -# define Tk_LabelframeObjCmd (*TkintVptr->V_Tk_LabelframeObjCmd) -#endif - -#ifndef Tk_PackObjCmd -# define Tk_PackObjCmd (*TkintVptr->V_Tk_PackObjCmd) -#endif - -#ifndef Tk_PanedWindowObjCmd -# define Tk_PanedWindowObjCmd (*TkintVptr->V_Tk_PanedWindowObjCmd) -#endif - -#ifndef Tk_PlaceObjCmd -# define Tk_PlaceObjCmd (*TkintVptr->V_Tk_PlaceObjCmd) -#endif - -#ifndef Tk_SelectionObjCmd -# define Tk_SelectionObjCmd (*TkintVptr->V_Tk_SelectionObjCmd) -#endif - -#ifndef Tk_StateParseProc -# define Tk_StateParseProc (*TkintVptr->V_Tk_StateParseProc) -#endif - -#ifndef Tk_StatePrintProc -# define Tk_StatePrintProc (*TkintVptr->V_Tk_StatePrintProc) -#endif - -#ifndef Tk_TkwaitObjCmd -# define Tk_TkwaitObjCmd (*TkintVptr->V_Tk_TkwaitObjCmd) -#endif - -#ifndef Tk_WmObjCmd -# define Tk_WmObjCmd (*TkintVptr->V_Tk_WmObjCmd) -#endif - -#endif /* NO_VTABLES */ -#endif /* _TKINT_VM */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkInt.t b/Master/tlpkg/tlperl/lib/Tk/pTk/tkInt.t deleted file mode 100644 index 6e2c9d44089..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkInt.t +++ /dev/null @@ -1,182 +0,0 @@ -#ifdef _TKINT
-VVAR(Tcl_ObjType,tkBitmapObjType,V_tkBitmapObjType)
-VVAR(Tcl_ObjType,tkBorderObjType,V_tkBorderObjType)
-VVAR(Tcl_ObjType,tkColorObjType,V_tkColorObjType)
-VVAR(Tcl_ObjType,tkCursorObjType,V_tkCursorObjType)
-VVAR(Tcl_ObjType,tkFontObjType,V_tkFontObjType)
-VVAR(Tcl_ObjType,tkOptionObjType,V_tkOptionObjType)
-VVAR(Tcl_ObjType,tkStateKeyObjType,V_tkStateKeyObjType)
-#ifndef TkCanvPostscriptCmd
-VFUNC(int,TkCanvPostscriptCmd,V_TkCanvPostscriptCmd,_ANSI_ARGS_((struct TkCanvas *canvasPtr,
- Tcl_Interp *interp, int argc, CONST84 Tcl_Obj *CONST *objv)))
-#endif /* #ifndef TkCanvPostscriptCmd */
-
-#ifndef TkCreateMenuCmd
-VFUNC(int,TkCreateMenuCmd,V_TkCreateMenuCmd,_ANSI_ARGS_((Tcl_Interp *interp)))
-#endif /* #ifndef TkCreateMenuCmd */
-
-#ifndef TkEventInit
-VFUNC(void,TkEventInit,V_TkEventInit,_ANSI_ARGS_((void)))
-#endif /* #ifndef TkEventInit */
-
-#ifndef TkGetDoublePixels
-VFUNC(int,TkGetDoublePixels,V_TkGetDoublePixels,_ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, CONST char *string,
- double *doublePtr)))
-#endif /* #ifndef TkGetDoublePixels */
-
-#ifndef TkOffsetParseProc
-VFUNC(int,TkOffsetParseProc,V_TkOffsetParseProc,_ANSI_ARGS_((
- ClientData clientData, Tcl_Interp *interp,
- Tk_Window tkwin, Tcl_Obj *value, char *widgRec,
- int offset)))
-#endif /* #ifndef TkOffsetParseProc */
-
-#ifndef TkOffsetPrintProc
-VFUNC(Tcl_Obj *,TkOffsetPrintProc,V_TkOffsetPrintProc,_ANSI_ARGS_((
- ClientData clientData, Tk_Window tkwin,
- char *widgRec, int offset,
- Tcl_FreeProc **freeProcPtr)))
-#endif /* #ifndef TkOffsetPrintProc */
-
-#ifndef TkOrientParseProc
-VFUNC(int,TkOrientParseProc,V_TkOrientParseProc,_ANSI_ARGS_((
- ClientData clientData, Tcl_Interp *interp,
- Tk_Window tkwin, Tcl_Obj *value,
- char *widgRec, int offset)))
-#endif /* #ifndef TkOrientParseProc */
-
-#ifndef TkOrientPrintProc
-VFUNC(Tcl_Obj *,TkOrientPrintProc,V_TkOrientPrintProc,_ANSI_ARGS_((
- ClientData clientData, Tk_Window tkwin,
- char *widgRec, int offset,
- Tcl_FreeProc **freeProcPtr)))
-#endif /* #ifndef TkOrientPrintProc */
-
-#ifndef TkPixelParseProc
-VFUNC(int,TkPixelParseProc,V_TkPixelParseProc,_ANSI_ARGS_((
- ClientData clientData, Tcl_Interp *interp,
- Tk_Window tkwin, Tcl_Obj *value, char *widgRec,
- int offset)))
-#endif /* #ifndef TkPixelParseProc */
-
-#ifndef TkPixelPrintProc
-VFUNC(Tcl_Obj *,TkPixelPrintProc,V_TkPixelPrintProc,_ANSI_ARGS_((
- ClientData clientData, Tk_Window tkwin,
- char *widgRec, int offset,
- Tcl_FreeProc **freeProcPtr)))
-#endif /* #ifndef TkPixelPrintProc */
-
-#ifndef TkPostscriptImage
-VFUNC(int,TkPostscriptImage,V_TkPostscriptImage,_ANSI_ARGS_((Tcl_Interp *interp,
- Tk_Window tkwin, Tk_PostscriptInfo psInfo,
- XImage *ximage, int x, int y, int width,
- int height)))
-#endif /* #ifndef TkPostscriptImage */
-
-#ifndef TkRegisterObjTypes
-VFUNC(void,TkRegisterObjTypes,V_TkRegisterObjTypes,_ANSI_ARGS_((void)))
-#endif /* #ifndef TkRegisterObjTypes */
-
-#ifndef TkTileParseProc
-VFUNC(int,TkTileParseProc,V_TkTileParseProc,_ANSI_ARGS_((
- ClientData clientData, Tcl_Interp *interp,
- Tk_Window tkwin, Tcl_Obj *value, char *widgRec,
- int offset)))
-#endif /* #ifndef TkTileParseProc */
-
-#ifndef TkTilePrintProc
-VFUNC(Tcl_Obj *,TkTilePrintProc,V_TkTilePrintProc,_ANSI_ARGS_((
- ClientData clientData, Tk_Window tkwin,
- char *widgRec, int offset,
- Tcl_FreeProc **freeProcPtr)))
-#endif /* #ifndef TkTilePrintProc */
-
-#ifndef Tk_BindObjCmd
-VFUNC(int,Tk_BindObjCmd,V_Tk_BindObjCmd,_ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int objc,
- Tcl_Obj *CONST objv[])))
-#endif /* #ifndef Tk_BindObjCmd */
-
-#ifndef Tk_BindtagsObjCmd
-VFUNC(int,Tk_BindtagsObjCmd,V_Tk_BindtagsObjCmd,_ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int objc,
- Tcl_Obj *CONST objv[])))
-#endif /* #ifndef Tk_BindtagsObjCmd */
-
-#ifndef Tk_ClipboardObjCmd
-VFUNC(int,Tk_ClipboardObjCmd,V_Tk_ClipboardObjCmd,_ANSI_ARGS_((
- ClientData clientData, Tcl_Interp *interp,
- int objc, Tcl_Obj *CONST objv[])))
-#endif /* #ifndef Tk_ClipboardObjCmd */
-
-#ifndef Tk_GrabObjCmd
-VFUNC(int,Tk_GrabObjCmd,V_Tk_GrabObjCmd,_ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int objc,
- Tcl_Obj *CONST objv[])))
-#endif /* #ifndef Tk_GrabObjCmd */
-
-#ifndef Tk_GridObjCmd
-VFUNC(int,Tk_GridObjCmd,V_Tk_GridObjCmd,_ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int objc,
- Tcl_Obj *CONST objv[])))
-#endif /* #ifndef Tk_GridObjCmd */
-
-#ifndef Tk_LabelframeObjCmd
-VFUNC(int,Tk_LabelframeObjCmd,V_Tk_LabelframeObjCmd,_ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int objc,
- Tcl_Obj *CONST objv[])))
-#endif /* #ifndef Tk_LabelframeObjCmd */
-
-#ifndef Tk_PackObjCmd
-VFUNC(int,Tk_PackObjCmd,V_Tk_PackObjCmd,_ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int objc,
- Tcl_Obj *CONST objv[])))
-#endif /* #ifndef Tk_PackObjCmd */
-
-#ifndef Tk_PanedWindowObjCmd
-VFUNC(int,Tk_PanedWindowObjCmd,V_Tk_PanedWindowObjCmd,_ANSI_ARGS_((
- ClientData clientData,
- Tcl_Interp *interp, int objc,
- Tcl_Obj *CONST objv[])))
-#endif /* #ifndef Tk_PanedWindowObjCmd */
-
-#ifndef Tk_PlaceObjCmd
-VFUNC(int,Tk_PlaceObjCmd,V_Tk_PlaceObjCmd,_ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int objc,
- Tcl_Obj *CONST objv[])))
-#endif /* #ifndef Tk_PlaceObjCmd */
-
-#ifndef Tk_SelectionObjCmd
-VFUNC(int,Tk_SelectionObjCmd,V_Tk_SelectionObjCmd,_ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int objc,
- Tcl_Obj *CONST objv[])))
-#endif /* #ifndef Tk_SelectionObjCmd */
-
-#ifndef Tk_StateParseProc
-VFUNC(int,Tk_StateParseProc,V_Tk_StateParseProc,_ANSI_ARGS_((
- ClientData clientData, Tcl_Interp *interp,
- Tk_Window tkwin, Tcl_Obj *value,
- char *widgRec, int offset)))
-#endif /* #ifndef Tk_StateParseProc */
-
-#ifndef Tk_StatePrintProc
-VFUNC(Tcl_Obj *,Tk_StatePrintProc,V_Tk_StatePrintProc,_ANSI_ARGS_((
- ClientData clientData, Tk_Window tkwin,
- char *widgRec, int offset,
- Tcl_FreeProc **freeProcPtr)))
-#endif /* #ifndef Tk_StatePrintProc */
-
-#ifndef Tk_TkwaitObjCmd
-VFUNC(int,Tk_TkwaitObjCmd,V_Tk_TkwaitObjCmd,_ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int objc,
- Tcl_Obj *CONST objv[])))
-#endif /* #ifndef Tk_TkwaitObjCmd */
-
-#ifndef Tk_WmObjCmd
-VFUNC(int,Tk_WmObjCmd,V_Tk_WmObjCmd,_ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int objc,
- Tcl_Obj *CONST objv[])))
-#endif /* #ifndef Tk_WmObjCmd */
-
-#endif /* _TKINT */
diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls.h deleted file mode 100644 index 4116b2174f1..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls.h +++ /dev/null @@ -1,1572 +0,0 @@ -/* - * tkIntDecls.h -- - * - * This file contains the declarations for all unsupported - * functions that are exported by the Tk library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkIntDecls.h,v 1.22.2.1 2003/10/13 03:30:05 hobbs Exp $ - */ - -#ifndef _TKINTDECLS -#define _TKINTDECLS - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tkInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -/* - * Exported function declarations: - */ - -/* 0 */ -EXTERN TkWindow * TkAllocWindow _ANSI_ARGS_((TkDisplay * dispPtr, - int screenNum, TkWindow * parentPtr)); -/* 1 */ -EXTERN void TkBezierPoints _ANSI_ARGS_((double control[], - int numSteps, double * coordPtr)); -/* 2 */ -EXTERN void TkBezierScreenPoints _ANSI_ARGS_((Tk_Canvas canvas, - double control[], int numSteps, - XPoint * xPointPtr)); -/* 3 */ -EXTERN void TkBindDeadWindow _ANSI_ARGS_((TkWindow * winPtr)); -/* 4 */ -EXTERN void TkBindEventProc _ANSI_ARGS_((TkWindow * winPtr, - XEvent * eventPtr)); -/* 5 */ -EXTERN void TkBindFree _ANSI_ARGS_((TkMainInfo * mainPtr)); -/* 6 */ -EXTERN void TkBindInit _ANSI_ARGS_((TkMainInfo * mainPtr)); -/* 7 */ -EXTERN void TkChangeEventWindow _ANSI_ARGS_((XEvent * eventPtr, - TkWindow * winPtr)); -/* 8 */ -EXTERN int TkClipInit _ANSI_ARGS_((Tcl_Interp * interp, - TkDisplay * dispPtr)); -/* 9 */ -EXTERN void TkComputeAnchor _ANSI_ARGS_((Tk_Anchor anchor, - Tk_Window tkwin, int padX, int padY, - int innerWidth, int innerHeight, int * xPtr, - int * yPtr)); -/* 10 */ -EXTERN int TkCopyAndGlobalEval _ANSI_ARGS_((Tcl_Interp * interp, - char * script)); -/* 11 */ -EXTERN unsigned long TkCreateBindingProcedure _ANSI_ARGS_(( - Tcl_Interp * interp, - Tk_BindingTable bindingTable, - ClientData object, CONST char * eventString, - TkBindEvalProc * evalProc, - TkBindFreeProc * freeProc, - ClientData clientData)); -/* 12 */ -EXTERN TkCursor * TkCreateCursorFromData _ANSI_ARGS_((Tk_Window tkwin, - CONST char * source, CONST char * mask, - int width, int height, int xHot, int yHot, - XColor fg, XColor bg)); -/* 13 */ -EXTERN int TkCreateFrame _ANSI_ARGS_((ClientData clientData, - Tcl_Interp * interp, int argc, Tcl_Obj *CONST *objv, - int toplevel, char * appName)); -/* 14 */ -EXTERN Tk_Window TkCreateMainWindow _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * screenName, char * baseName)); -/* 15 */ -EXTERN Time TkCurrentTime _ANSI_ARGS_((TkDisplay * dispPtr, - int fallbackCurrent)); -/* 16 */ -EXTERN void TkDeleteAllImages _ANSI_ARGS_((TkMainInfo * mainPtr)); -/* 17 */ -EXTERN void TkDoConfigureNotify _ANSI_ARGS_((TkWindow * winPtr)); -/* 18 */ -EXTERN void TkDrawInsetFocusHighlight _ANSI_ARGS_(( - Tk_Window tkwin, GC gc, int width, - Drawable drawable, int padding)); -/* 19 */ -EXTERN void TkEventDeadWindow _ANSI_ARGS_((TkWindow * winPtr)); -/* 20 */ -EXTERN void TkFillPolygon _ANSI_ARGS_((Tk_Canvas canvas, - double * coordPtr, int numPoints, - Display * display, Drawable drawable, GC gc, - GC outlineGC)); -/* 21 */ -EXTERN int TkFindStateNum _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * option, - CONST TkStateMap * mapPtr, - CONST char * strKey)); -/* 22 */ -EXTERN char * TkFindStateString _ANSI_ARGS_(( - CONST TkStateMap * mapPtr, int numKey)); -/* 23 */ -EXTERN void TkFocusDeadWindow _ANSI_ARGS_((TkWindow * winPtr)); -/* 24 */ -EXTERN int TkFocusFilterEvent _ANSI_ARGS_((TkWindow * winPtr, - XEvent * eventPtr)); -/* 25 */ -EXTERN TkWindow * TkFocusKeyEvent _ANSI_ARGS_((TkWindow * winPtr, - XEvent * eventPtr)); -/* 26 */ -EXTERN void TkFontPkgInit _ANSI_ARGS_((TkMainInfo * mainPtr)); -/* 27 */ -EXTERN void TkFontPkgFree _ANSI_ARGS_((TkMainInfo * mainPtr)); -/* 28 */ -EXTERN void TkFreeBindingTags _ANSI_ARGS_((TkWindow * winPtr)); -/* 29 */ -EXTERN void TkpFreeCursor _ANSI_ARGS_((TkCursor * cursorPtr)); -/* 30 */ -EXTERN char * TkGetBitmapData _ANSI_ARGS_((Tcl_Interp * interp, - char * string, char * fileName, - int * widthPtr, int * heightPtr, - int * hotXPtr, int * hotYPtr)); -/* 31 */ -EXTERN void TkGetButtPoints _ANSI_ARGS_((double p1[], - double p2[], double width, int project, - double m1[], double m2[])); -/* 32 */ -EXTERN TkCursor * TkGetCursorByName _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, Tk_Uid string)); -/* 33 */ -EXTERN CONST84_RETURN char * TkGetDefaultScreenName _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * screenName)); -/* 34 */ -EXTERN TkDisplay * TkGetDisplay _ANSI_ARGS_((Display * display)); -/* 35 */ -EXTERN int TkGetDisplayOf _ANSI_ARGS_((Tcl_Interp * interp, - int objc, Tcl_Obj *CONST objv[], - Tk_Window * tkwinPtr)); -/* 36 */ -EXTERN TkWindow * TkGetFocusWin _ANSI_ARGS_((TkWindow * winPtr)); -/* 37 */ -EXTERN int TkGetInterpNames _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin)); -/* 38 */ -EXTERN int TkGetMiterPoints _ANSI_ARGS_((double p1[], - double p2[], double p3[], double width, - double m1[], double m2[])); -/* 39 */ -EXTERN void TkGetPointerCoords _ANSI_ARGS_((Tk_Window tkwin, - int * xPtr, int * yPtr)); -/* 40 */ -EXTERN void TkGetServerInfo _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin)); -/* 41 */ -EXTERN void TkGrabDeadWindow _ANSI_ARGS_((TkWindow * winPtr)); -/* 42 */ -EXTERN int TkGrabState _ANSI_ARGS_((TkWindow * winPtr)); -/* 43 */ -EXTERN void TkIncludePoint _ANSI_ARGS_((Tk_Item * itemPtr, - double * pointPtr)); -/* 44 */ -EXTERN void TkInOutEvents _ANSI_ARGS_((XEvent * eventPtr, - TkWindow * sourcePtr, TkWindow * destPtr, - int leaveType, int enterType, - Tcl_QueuePosition position)); -/* 45 */ -EXTERN void TkInstallFrameMenu _ANSI_ARGS_((Tk_Window tkwin)); -/* 46 */ -EXTERN char * TkKeysymToString _ANSI_ARGS_((KeySym keysym)); -/* 47 */ -EXTERN int TkLineToArea _ANSI_ARGS_((double end1Ptr[], - double end2Ptr[], double rectPtr[])); -/* 48 */ -EXTERN double TkLineToPoint _ANSI_ARGS_((double end1Ptr[], - double end2Ptr[], double pointPtr[])); -/* 49 */ -EXTERN int TkMakeBezierCurve _ANSI_ARGS_((Tk_Canvas canvas, - double * pointPtr, int numPoints, - int numSteps, XPoint xPoints[], - double dblPoints[])); -/* 50 */ -EXTERN void TkMakeBezierPostscript _ANSI_ARGS_(( - Tcl_Interp * interp, Tk_Canvas canvas, - double * pointPtr, int numPoints)); -/* 51 */ -#ifndef TkOptionClassChanged -EXTERN void TkOptionClassChanged _ANSI_ARGS_((TkWindow * winPtr)); -#endif -/* 52 */ -#ifndef TkOptionDeadWindow -EXTERN void TkOptionDeadWindow _ANSI_ARGS_((TkWindow * winPtr)); -#endif -/* 53 */ -EXTERN int TkOvalToArea _ANSI_ARGS_((double * ovalPtr, - double * rectPtr)); -/* 54 */ -EXTERN double TkOvalToPoint _ANSI_ARGS_((double ovalPtr[], - double width, int filled, double pointPtr[])); -/* 55 */ -EXTERN int TkpChangeFocus _ANSI_ARGS_((TkWindow * winPtr, - int force)); -/* 56 */ -EXTERN void TkpCloseDisplay _ANSI_ARGS_((TkDisplay * dispPtr)); -/* 57 */ -EXTERN void TkpClaimFocus _ANSI_ARGS_((TkWindow * topLevelPtr, - int force)); -/* 58 */ -EXTERN void TkpDisplayWarning _ANSI_ARGS_((CONST char * msg, - CONST char * title)); -/* 59 */ -EXTERN void TkpGetAppName _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_DString * name)); -/* 60 */ -EXTERN TkWindow * TkpGetOtherWindow _ANSI_ARGS_((TkWindow * winPtr)); -/* 61 */ -EXTERN TkWindow * TkpGetWrapperWindow _ANSI_ARGS_((TkWindow * winPtr)); -/* 62 */ -EXTERN int TkpInit _ANSI_ARGS_((Tcl_Interp * interp)); -/* 63 */ -EXTERN void TkpInitializeMenuBindings _ANSI_ARGS_(( - Tcl_Interp * interp, - Tk_BindingTable bindingTable)); -/* 64 */ -EXTERN void TkpMakeContainer _ANSI_ARGS_((Tk_Window tkwin)); -/* 65 */ -EXTERN void TkpMakeMenuWindow _ANSI_ARGS_((Tk_Window tkwin, - int transient)); -/* 66 */ -EXTERN Window TkpMakeWindow _ANSI_ARGS_((TkWindow * winPtr, - Window parent)); -/* 67 */ -EXTERN void TkpMenuNotifyToplevelCreate _ANSI_ARGS_(( - Tcl_Interp * interp1, char * menuName)); -/* 68 */ -EXTERN TkDisplay * TkpOpenDisplay _ANSI_ARGS_(( - CONST char * display_name)); -/* 69 */ -EXTERN int TkPointerEvent _ANSI_ARGS_((XEvent * eventPtr, - TkWindow * winPtr)); -/* 70 */ -EXTERN int TkPolygonToArea _ANSI_ARGS_((double * polyPtr, - int numPoints, double * rectPtr)); -/* 71 */ -EXTERN double TkPolygonToPoint _ANSI_ARGS_((double * polyPtr, - int numPoints, double * pointPtr)); -/* 72 */ -EXTERN int TkPositionInTree _ANSI_ARGS_((TkWindow * winPtr, - TkWindow * treePtr)); -/* 73 */ -EXTERN void TkpRedirectKeyEvent _ANSI_ARGS_((TkWindow * winPtr, - XEvent * eventPtr)); -/* 74 */ -EXTERN void TkpSetMainMenubar _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, char * menuName)); -/* 75 */ -EXTERN int TkpUseWindow _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, Tcl_Obj *string)); -/* 76 */ -EXTERN int TkpWindowWasRecentlyDeleted _ANSI_ARGS_((Window win, - TkDisplay * dispPtr)); -/* 77 */ -EXTERN void TkQueueEventForAllChildren _ANSI_ARGS_(( - TkWindow * winPtr, XEvent * eventPtr)); -/* 78 */ -EXTERN int TkReadBitmapFile _ANSI_ARGS_((Tcl_Interp * interp, - Display* display, - Drawable d, CONST char* filename, - unsigned int* width_return, - unsigned int* height_return, - Pixmap* bitmap_return, int* x_hot_return, - int* y_hot_return)); -/* 79 */ -EXTERN int TkScrollWindow _ANSI_ARGS_((Tk_Window tkwin, GC gc, - int x, int y, int width, int height, int dx, - int dy, TkRegion damageRgn)); -/* 80 */ -EXTERN void TkSelDeadWindow _ANSI_ARGS_((TkWindow * winPtr)); -/* 81 */ -EXTERN void TkSelEventProc _ANSI_ARGS_((Tk_Window tkwin, - XEvent * eventPtr)); -/* 82 */ -EXTERN void TkSelInit _ANSI_ARGS_((Tk_Window tkwin)); -/* 83 */ -EXTERN void TkSelPropProc _ANSI_ARGS_((XEvent * eventPtr)); -/* Slot 84 is reserved */ -/* 85 */ -EXTERN void TkSetWindowMenuBar _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, Tcl_Obj *oldMenuName, - Tcl_Obj *menuName)); -/* 86 */ -EXTERN KeySym TkStringToKeysym _ANSI_ARGS_((char * name)); -/* 87 */ -EXTERN int TkThickPolyLineToArea _ANSI_ARGS_((double * coordPtr, - int numPoints, double width, int capStyle, - int joinStyle, double * rectPtr)); -/* 88 */ -EXTERN void TkWmAddToColormapWindows _ANSI_ARGS_(( - TkWindow * winPtr)); -/* 89 */ -EXTERN void TkWmDeadWindow _ANSI_ARGS_((TkWindow * winPtr)); -/* 90 */ -EXTERN TkWindow * TkWmFocusToplevel _ANSI_ARGS_((TkWindow * winPtr)); -/* 91 */ -EXTERN void TkWmMapWindow _ANSI_ARGS_((TkWindow * winPtr)); -/* 92 */ -EXTERN void TkWmNewWindow _ANSI_ARGS_((TkWindow * winPtr)); -/* 93 */ -EXTERN void TkWmProtocolEventProc _ANSI_ARGS_((TkWindow * winPtr, - XEvent * evenvPtr)); -/* 94 */ -EXTERN void TkWmRemoveFromColormapWindows _ANSI_ARGS_(( - TkWindow * winPtr)); -/* 95 */ -EXTERN void TkWmRestackToplevel _ANSI_ARGS_((TkWindow * winPtr, - int aboveBelow, TkWindow * otherPtr)); -/* 96 */ -EXTERN void TkWmSetClass _ANSI_ARGS_((TkWindow * winPtr)); -/* 97 */ -EXTERN void TkWmUnmapWindow _ANSI_ARGS_((TkWindow * winPtr)); -/* 98 */ -EXTERN Tcl_Obj * TkDebugBitmap _ANSI_ARGS_((Tk_Window tkwin, - char * name)); -/* 99 */ -EXTERN Tcl_Obj * TkDebugBorder _ANSI_ARGS_((Tk_Window tkwin, - char * name)); -/* 100 */ -EXTERN Tcl_Obj * TkDebugCursor _ANSI_ARGS_((Tk_Window tkwin, - char * name)); -/* 101 */ -EXTERN Tcl_Obj * TkDebugColor _ANSI_ARGS_((Tk_Window tkwin, - char * name)); -/* 102 */ -EXTERN Tcl_Obj * TkDebugConfig _ANSI_ARGS_((Tcl_Interp * interp, - Tk_OptionTable table)); -/* 103 */ -EXTERN Tcl_Obj * TkDebugFont _ANSI_ARGS_((Tk_Window tkwin, - char * name)); -/* 104 */ -EXTERN int TkFindStateNumObj _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * optionPtr, - CONST TkStateMap * mapPtr, Tcl_Obj * keyPtr)); -/* 105 */ -EXTERN Tcl_HashTable * TkGetBitmapPredefTable _ANSI_ARGS_((void)); -/* 106 */ -EXTERN TkDisplay * TkGetDisplayList _ANSI_ARGS_((void)); -/* 107 */ -EXTERN TkMainInfo * TkGetMainInfoList _ANSI_ARGS_((void)); -/* 108 */ -EXTERN int TkGetWindowFromObj _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Window tkwin, Tcl_Obj * objPtr, - Tk_Window * windowPtr)); -/* 109 */ -EXTERN char * TkpGetString _ANSI_ARGS_((TkWindow * winPtr, - XEvent * eventPtr, Tcl_DString * dsPtr)); -/* 110 */ -EXTERN void TkpGetSubFonts _ANSI_ARGS_((Tcl_Interp * interp, - Tk_Font tkfont)); -/* 111 */ -EXTERN Tcl_Obj * TkpGetSystemDefault _ANSI_ARGS_((Tk_Window tkwin, - CONST char * dbName, CONST char * className)); -/* 112 */ -EXTERN void TkpMenuThreadInit _ANSI_ARGS_((void)); -#ifdef __WIN32__ -/* 113 */ -EXTERN void TkClipBox _ANSI_ARGS_((TkRegion rgn, - XRectangle* rect_return)); -#endif /* __WIN32__ */ -#ifdef MAC_TCL -/* 113 */ -EXTERN void TkClipBox _ANSI_ARGS_((TkRegion rgn, - XRectangle* rect_return)); -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -/* 113 */ -EXTERN void TkClipBox _ANSI_ARGS_((TkRegion rgn, - XRectangle* rect_return)); -#endif /* MAC_OSX_TK */ -#ifdef __WIN32__ -/* 114 */ -EXTERN TkRegion TkCreateRegion _ANSI_ARGS_((void)); -#endif /* __WIN32__ */ -#ifdef MAC_TCL -/* 114 */ -EXTERN TkRegion TkCreateRegion _ANSI_ARGS_((void)); -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -/* 114 */ -EXTERN TkRegion TkCreateRegion _ANSI_ARGS_((void)); -#endif /* MAC_OSX_TK */ -#ifdef __WIN32__ -/* 115 */ -EXTERN void TkDestroyRegion _ANSI_ARGS_((TkRegion rgn)); -#endif /* __WIN32__ */ -#ifdef MAC_TCL -/* 115 */ -EXTERN void TkDestroyRegion _ANSI_ARGS_((TkRegion rgn)); -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -/* 115 */ -EXTERN void TkDestroyRegion _ANSI_ARGS_((TkRegion rgn)); -#endif /* MAC_OSX_TK */ -#ifdef __WIN32__ -/* 116 */ -EXTERN void TkIntersectRegion _ANSI_ARGS_((TkRegion sra, - TkRegion srcb, TkRegion dr_return)); -#endif /* __WIN32__ */ -#ifdef MAC_TCL -/* 116 */ -EXTERN void TkIntersectRegion _ANSI_ARGS_((TkRegion sra, - TkRegion srcb, TkRegion dr_return)); -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -/* 116 */ -EXTERN void TkIntersectRegion _ANSI_ARGS_((TkRegion sra, - TkRegion srcb, TkRegion dr_return)); -#endif /* MAC_OSX_TK */ -#ifdef __WIN32__ -/* 117 */ -EXTERN int TkRectInRegion _ANSI_ARGS_((TkRegion rgn, int x, - int y, unsigned int width, - unsigned int height)); -#endif /* __WIN32__ */ -#ifdef MAC_TCL -/* 117 */ -EXTERN int TkRectInRegion _ANSI_ARGS_((TkRegion rgn, int x, - int y, unsigned int width, - unsigned int height)); -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -/* 117 */ -EXTERN int TkRectInRegion _ANSI_ARGS_((TkRegion rgn, int x, - int y, unsigned int width, - unsigned int height)); -#endif /* MAC_OSX_TK */ -#ifdef __WIN32__ -/* 118 */ -EXTERN void TkSetRegion _ANSI_ARGS_((Display* display, GC gc, - TkRegion rgn)); -#endif /* __WIN32__ */ -#ifdef MAC_TCL -/* 118 */ -EXTERN void TkSetRegion _ANSI_ARGS_((Display* display, GC gc, - TkRegion rgn)); -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -/* 118 */ -EXTERN void TkSetRegion _ANSI_ARGS_((Display* display, GC gc, - TkRegion rgn)); -#endif /* MAC_OSX_TK */ -#ifdef __WIN32__ -/* 119 */ -EXTERN void TkUnionRectWithRegion _ANSI_ARGS_((XRectangle* rect, - TkRegion src, TkRegion dr_return)); -#endif /* __WIN32__ */ -#ifdef MAC_TCL -/* 119 */ -EXTERN void TkUnionRectWithRegion _ANSI_ARGS_((XRectangle* rect, - TkRegion src, TkRegion dr_return)); -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -/* 119 */ -EXTERN void TkUnionRectWithRegion _ANSI_ARGS_((XRectangle* rect, - TkRegion src, TkRegion dr_return)); -#endif /* MAC_OSX_TK */ -/* Slot 120 is reserved */ -#ifdef MAC_TCL -/* 121 */ -EXTERN Pixmap TkpCreateNativeBitmap _ANSI_ARGS_((Display * display, - CONST char * source)); -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -/* 121 */ -EXTERN Pixmap TkpCreateNativeBitmap _ANSI_ARGS_((Display * display, - CONST char * source)); -#endif /* MAC_OSX_TK */ -#ifdef MAC_TCL -/* 122 */ -EXTERN void TkpDefineNativeBitmaps _ANSI_ARGS_((void)); -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -/* 122 */ -EXTERN void TkpDefineNativeBitmaps _ANSI_ARGS_((void)); -#endif /* MAC_OSX_TK */ -/* Slot 123 is reserved */ -#ifdef MAC_TCL -/* 124 */ -EXTERN Pixmap TkpGetNativeAppBitmap _ANSI_ARGS_((Display * display, - CONST char * name, int * width, int * height)); -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -/* 124 */ -EXTERN Pixmap TkpGetNativeAppBitmap _ANSI_ARGS_((Display * display, - CONST char * name, int * width, int * height)); -#endif /* MAC_OSX_TK */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* Slot 129 is reserved */ -/* Slot 130 is reserved */ -/* Slot 131 is reserved */ -/* Slot 132 is reserved */ -/* Slot 133 is reserved */ -/* Slot 134 is reserved */ -/* 135 */ -EXTERN void TkpDrawHighlightBorder _ANSI_ARGS_((Tk_Window tkwin, - GC fgGC, GC bgGC, int highlightWidth, - Drawable drawable)); -/* 136 */ -EXTERN void TkSetFocusWin _ANSI_ARGS_((TkWindow * winPtr, - int force)); -/* 137 */ -EXTERN void TkpSetKeycodeAndState _ANSI_ARGS_((Tk_Window tkwin, - KeySym keySym, XEvent * eventPtr)); -/* 138 */ -EXTERN KeySym TkpGetKeySym _ANSI_ARGS_((TkDisplay * dispPtr, - XEvent * eventPtr)); -/* 139 */ -EXTERN void TkpInitKeymapInfo _ANSI_ARGS_((TkDisplay * dispPtr)); -/* 140 */ -EXTERN TkRegion TkPhotoGetValidRegion _ANSI_ARGS_(( - Tk_PhotoHandle handle)); -/* 141 */ -EXTERN TkWindow ** TkWmStackorderToplevel _ANSI_ARGS_(( - TkWindow * parentPtr)); -/* 142 */ -EXTERN void TkFocusFree _ANSI_ARGS_((TkMainInfo * mainPtr)); -/* 143 */ -EXTERN void TkClipCleanup _ANSI_ARGS_((TkDisplay * dispPtr)); -/* 144 */ -EXTERN void TkGCCleanup _ANSI_ARGS_((TkDisplay * dispPtr)); -#ifdef __WIN32__ -/* 145 */ -EXTERN void TkSubtractRegion _ANSI_ARGS_((TkRegion sra, - TkRegion srcb, TkRegion dr_return)); -#endif /* __WIN32__ */ -#ifdef MAC_TCL -/* 145 */ -EXTERN void TkSubtractRegion _ANSI_ARGS_((TkRegion sra, - TkRegion srcb, TkRegion dr_return)); -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -/* 145 */ -EXTERN void TkSubtractRegion _ANSI_ARGS_((TkRegion sra, - TkRegion srcb, TkRegion dr_return)); -#endif /* MAC_OSX_TK */ -/* 146 */ -EXTERN void TkStylePkgInit _ANSI_ARGS_((TkMainInfo * mainPtr)); -/* 147 */ -EXTERN void TkStylePkgFree _ANSI_ARGS_((TkMainInfo * mainPtr)); -/* 148 */ -EXTERN Tk_Window TkToplevelWindowForCommand _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * cmdName)); -/* 149 */ -EXTERN CONST Tk_OptionSpec * TkGetOptionSpec _ANSI_ARGS_((CONST char * name, - Tk_OptionTable optionTable)); - -typedef struct TkIntStubs { - int magic; - struct TkIntStubHooks *hooks; - - TkWindow * (*tkAllocWindow) _ANSI_ARGS_((TkDisplay * dispPtr, int screenNum, TkWindow * parentPtr)); /* 0 */ - void (*tkBezierPoints) _ANSI_ARGS_((double control[], int numSteps, double * coordPtr)); /* 1 */ - void (*tkBezierScreenPoints) _ANSI_ARGS_((Tk_Canvas canvas, double control[], int numSteps, XPoint * xPointPtr)); /* 2 */ - void (*tkBindDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 3 */ - void (*tkBindEventProc) _ANSI_ARGS_((TkWindow * winPtr, XEvent * eventPtr)); /* 4 */ - void (*tkBindFree) _ANSI_ARGS_((TkMainInfo * mainPtr)); /* 5 */ - void (*tkBindInit) _ANSI_ARGS_((TkMainInfo * mainPtr)); /* 6 */ - void (*tkChangeEventWindow) _ANSI_ARGS_((XEvent * eventPtr, TkWindow * winPtr)); /* 7 */ - int (*tkClipInit) _ANSI_ARGS_((Tcl_Interp * interp, TkDisplay * dispPtr)); /* 8 */ - void (*tkComputeAnchor) _ANSI_ARGS_((Tk_Anchor anchor, Tk_Window tkwin, int padX, int padY, int innerWidth, int innerHeight, int * xPtr, int * yPtr)); /* 9 */ - int (*tkCopyAndGlobalEval) _ANSI_ARGS_((Tcl_Interp * interp, char * script)); /* 10 */ - unsigned long (*tkCreateBindingProcedure) _ANSI_ARGS_((Tcl_Interp * interp, Tk_BindingTable bindingTable, ClientData object, CONST char * eventString, TkBindEvalProc * evalProc, TkBindFreeProc * freeProc, ClientData clientData)); /* 11 */ - TkCursor * (*tkCreateCursorFromData) _ANSI_ARGS_((Tk_Window tkwin, CONST char * source, CONST char * mask, int width, int height, int xHot, int yHot, XColor fg, XColor bg)); /* 12 */ - int (*tkCreateFrame) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, Tcl_Obj *CONST *objv, int toplevel, char * appName)); /* 13 */ - Tk_Window (*tkCreateMainWindow) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * screenName, char * baseName)); /* 14 */ - Time (*tkCurrentTime) _ANSI_ARGS_((TkDisplay * dispPtr)); /* 15 */ - void (*tkDeleteAllImages) _ANSI_ARGS_((TkMainInfo * mainPtr)); /* 16 */ - void (*tkDoConfigureNotify) _ANSI_ARGS_((TkWindow * winPtr)); /* 17 */ - void (*tkDrawInsetFocusHighlight) _ANSI_ARGS_((Tk_Window tkwin, GC gc, int width, Drawable drawable, int padding)); /* 18 */ - void (*tkEventDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 19 */ - void (*tkFillPolygon) _ANSI_ARGS_((Tk_Canvas canvas, double * coordPtr, int numPoints, Display * display, Drawable drawable, GC gc, GC outlineGC)); /* 20 */ - int (*tkFindStateNum) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * option, CONST TkStateMap * mapPtr, CONST char * strKey)); /* 21 */ - char * (*tkFindStateString) _ANSI_ARGS_((CONST TkStateMap * mapPtr, int numKey)); /* 22 */ - void (*tkFocusDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 23 */ - int (*tkFocusFilterEvent) _ANSI_ARGS_((TkWindow * winPtr, XEvent * eventPtr)); /* 24 */ - TkWindow * (*tkFocusKeyEvent) _ANSI_ARGS_((TkWindow * winPtr, XEvent * eventPtr)); /* 25 */ - void (*tkFontPkgInit) _ANSI_ARGS_((TkMainInfo * mainPtr)); /* 26 */ - void (*tkFontPkgFree) _ANSI_ARGS_((TkMainInfo * mainPtr)); /* 27 */ - void (*tkFreeBindingTags) _ANSI_ARGS_((TkWindow * winPtr)); /* 28 */ - void (*tkpFreeCursor) _ANSI_ARGS_((TkCursor * cursorPtr)); /* 29 */ - char * (*tkGetBitmapData) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * fileName, int * widthPtr, int * heightPtr, int * hotXPtr, int * hotYPtr)); /* 30 */ - void (*tkGetButtPoints) _ANSI_ARGS_((double p1[], double p2[], double width, int project, double m1[], double m2[])); /* 31 */ - TkCursor * (*tkGetCursorByName) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tk_Uid string)); /* 32 */ - CONST84_RETURN char * (*tkGetDefaultScreenName) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * screenName)); /* 33 */ - TkDisplay * (*tkGetDisplay) _ANSI_ARGS_((Display * display)); /* 34 */ - int (*tkGetDisplayOf) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], Tk_Window * tkwinPtr)); /* 35 */ - TkWindow * (*tkGetFocusWin) _ANSI_ARGS_((TkWindow * winPtr)); /* 36 */ - int (*tkGetInterpNames) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin)); /* 37 */ - int (*tkGetMiterPoints) _ANSI_ARGS_((double p1[], double p2[], double p3[], double width, double m1[], double m2[])); /* 38 */ - void (*tkGetPointerCoords) _ANSI_ARGS_((Tk_Window tkwin, int * xPtr, int * yPtr)); /* 39 */ - void (*tkGetServerInfo) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin)); /* 40 */ - void (*tkGrabDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 41 */ - int (*tkGrabState) _ANSI_ARGS_((TkWindow * winPtr)); /* 42 */ - void (*tkIncludePoint) _ANSI_ARGS_((Tk_Item * itemPtr, double * pointPtr)); /* 43 */ - void (*tkInOutEvents) _ANSI_ARGS_((XEvent * eventPtr, TkWindow * sourcePtr, TkWindow * destPtr, int leaveType, int enterType, Tcl_QueuePosition position)); /* 44 */ - void (*tkInstallFrameMenu) _ANSI_ARGS_((Tk_Window tkwin)); /* 45 */ - char * (*tkKeysymToString) _ANSI_ARGS_((KeySym keysym)); /* 46 */ - int (*tkLineToArea) _ANSI_ARGS_((double end1Ptr[], double end2Ptr[], double rectPtr[])); /* 47 */ - double (*tkLineToPoint) _ANSI_ARGS_((double end1Ptr[], double end2Ptr[], double pointPtr[])); /* 48 */ - int (*tkMakeBezierCurve) _ANSI_ARGS_((Tk_Canvas canvas, double * pointPtr, int numPoints, int numSteps, XPoint xPoints[], double dblPoints[])); /* 49 */ - void (*tkMakeBezierPostscript) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Canvas canvas, double * pointPtr, int numPoints)); /* 50 */ - void (*tkOptionClassChanged) _ANSI_ARGS_((TkWindow * winPtr)); /* 51 */ - void (*tkOptionDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 52 */ - int (*tkOvalToArea) _ANSI_ARGS_((double * ovalPtr, double * rectPtr)); /* 53 */ - double (*tkOvalToPoint) _ANSI_ARGS_((double ovalPtr[], double width, int filled, double pointPtr[])); /* 54 */ - int (*tkpChangeFocus) _ANSI_ARGS_((TkWindow * winPtr, int force)); /* 55 */ - void (*tkpCloseDisplay) _ANSI_ARGS_((TkDisplay * dispPtr)); /* 56 */ - void (*tkpClaimFocus) _ANSI_ARGS_((TkWindow * topLevelPtr, int force)); /* 57 */ - void (*tkpDisplayWarning) _ANSI_ARGS_((CONST char * msg, CONST char * title)); /* 58 */ - void (*tkpGetAppName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * name)); /* 59 */ - TkWindow * (*tkpGetOtherWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 60 */ - TkWindow * (*tkpGetWrapperWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 61 */ - int (*tkpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 62 */ - void (*tkpInitializeMenuBindings) _ANSI_ARGS_((Tcl_Interp * interp, Tk_BindingTable bindingTable)); /* 63 */ - void (*tkpMakeContainer) _ANSI_ARGS_((Tk_Window tkwin)); /* 64 */ - void (*tkpMakeMenuWindow) _ANSI_ARGS_((Tk_Window tkwin, int transient)); /* 65 */ - Window (*tkpMakeWindow) _ANSI_ARGS_((TkWindow * winPtr, Window parent)); /* 66 */ - void (*tkpMenuNotifyToplevelCreate) _ANSI_ARGS_((Tcl_Interp * interp1, char * menuName)); /* 67 */ - TkDisplay * (*tkpOpenDisplay) _ANSI_ARGS_((CONST char * display_name)); /* 68 */ - int (*tkPointerEvent) _ANSI_ARGS_((XEvent * eventPtr, TkWindow * winPtr)); /* 69 */ - int (*tkPolygonToArea) _ANSI_ARGS_((double * polyPtr, int numPoints, double * rectPtr)); /* 70 */ - double (*tkPolygonToPoint) _ANSI_ARGS_((double * polyPtr, int numPoints, double * pointPtr)); /* 71 */ - int (*tkPositionInTree) _ANSI_ARGS_((TkWindow * winPtr, TkWindow * treePtr)); /* 72 */ - void (*tkpRedirectKeyEvent) _ANSI_ARGS_((TkWindow * winPtr, XEvent * eventPtr)); /* 73 */ - void (*tkpSetMainMenubar) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * menuName)); /* 74 */ - int (*tkpUseWindow) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, CONST char * string)); /* 75 */ - int (*tkpWindowWasRecentlyDeleted) _ANSI_ARGS_((Window win, TkDisplay * dispPtr)); /* 76 */ - void (*tkQueueEventForAllChildren) _ANSI_ARGS_((TkWindow * winPtr, XEvent * eventPtr)); /* 77 */ - int (*tkReadBitmapFile) _ANSI_ARGS_((Display* display, Drawable d, CONST char* filename, unsigned int* width_return, unsigned int* height_return, Pixmap* bitmap_return, int* x_hot_return, int* y_hot_return)); /* 78 */ - int (*tkScrollWindow) _ANSI_ARGS_((Tk_Window tkwin, GC gc, int x, int y, int width, int height, int dx, int dy, TkRegion damageRgn)); /* 79 */ - void (*tkSelDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 80 */ - void (*tkSelEventProc) _ANSI_ARGS_((Tk_Window tkwin, XEvent * eventPtr)); /* 81 */ - void (*tkSelInit) _ANSI_ARGS_((Tk_Window tkwin)); /* 82 */ - void (*tkSelPropProc) _ANSI_ARGS_((XEvent * eventPtr)); /* 83 */ - void *reserved84; - void (*tkSetWindowMenuBar) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, char * oldMenuName, char * menuName)); /* 85 */ - KeySym (*tkStringToKeysym) _ANSI_ARGS_((char * name)); /* 86 */ - int (*tkThickPolyLineToArea) _ANSI_ARGS_((double * coordPtr, int numPoints, double width, int capStyle, int joinStyle, double * rectPtr)); /* 87 */ - void (*tkWmAddToColormapWindows) _ANSI_ARGS_((TkWindow * winPtr)); /* 88 */ - void (*tkWmDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 89 */ - TkWindow * (*tkWmFocusToplevel) _ANSI_ARGS_((TkWindow * winPtr)); /* 90 */ - void (*tkWmMapWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 91 */ - void (*tkWmNewWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 92 */ - void (*tkWmProtocolEventProc) _ANSI_ARGS_((TkWindow * winPtr, XEvent * evenvPtr)); /* 93 */ - void (*tkWmRemoveFromColormapWindows) _ANSI_ARGS_((TkWindow * winPtr)); /* 94 */ - void (*tkWmRestackToplevel) _ANSI_ARGS_((TkWindow * winPtr, int aboveBelow, TkWindow * otherPtr)); /* 95 */ - void (*tkWmSetClass) _ANSI_ARGS_((TkWindow * winPtr)); /* 96 */ - void (*tkWmUnmapWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 97 */ - Tcl_Obj * (*tkDebugBitmap) _ANSI_ARGS_((Tk_Window tkwin, char * name)); /* 98 */ - Tcl_Obj * (*tkDebugBorder) _ANSI_ARGS_((Tk_Window tkwin, char * name)); /* 99 */ - Tcl_Obj * (*tkDebugCursor) _ANSI_ARGS_((Tk_Window tkwin, char * name)); /* 100 */ - Tcl_Obj * (*tkDebugColor) _ANSI_ARGS_((Tk_Window tkwin, char * name)); /* 101 */ - Tcl_Obj * (*tkDebugConfig) _ANSI_ARGS_((Tcl_Interp * interp, Tk_OptionTable table)); /* 102 */ - Tcl_Obj * (*tkDebugFont) _ANSI_ARGS_((Tk_Window tkwin, char * name)); /* 103 */ - int (*tkFindStateNumObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * optionPtr, CONST TkStateMap * mapPtr, Tcl_Obj * keyPtr)); /* 104 */ - Tcl_HashTable * (*tkGetBitmapPredefTable) _ANSI_ARGS_((void)); /* 105 */ - TkDisplay * (*tkGetDisplayList) _ANSI_ARGS_((void)); /* 106 */ - TkMainInfo * (*tkGetMainInfoList) _ANSI_ARGS_((void)); /* 107 */ - int (*tkGetWindowFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr, Tk_Window * windowPtr)); /* 108 */ - char * (*tkpGetString) _ANSI_ARGS_((TkWindow * winPtr, XEvent * eventPtr, Tcl_DString * dsPtr)); /* 109 */ - void (*tkpGetSubFonts) _ANSI_ARGS_((Tcl_Interp * interp, Tk_Font tkfont)); /* 110 */ - Tcl_Obj * (*tkpGetSystemDefault) _ANSI_ARGS_((Tk_Window tkwin, CONST char * dbName, CONST char * className)); /* 111 */ - void (*tkpMenuThreadInit) _ANSI_ARGS_((void)); /* 112 */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - void *reserved113; -#endif /* UNIX */ -#ifdef __WIN32__ - void (*tkClipBox) _ANSI_ARGS_((TkRegion rgn, XRectangle* rect_return)); /* 113 */ -#endif /* __WIN32__ */ -#ifdef MAC_TCL - void (*tkClipBox) _ANSI_ARGS_((TkRegion rgn, XRectangle* rect_return)); /* 113 */ -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK - void (*tkClipBox) _ANSI_ARGS_((TkRegion rgn, XRectangle* rect_return)); /* 113 */ -#endif /* MAC_OSX_TK */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - void *reserved114; -#endif /* UNIX */ -#ifdef __WIN32__ - TkRegion (*tkCreateRegion) _ANSI_ARGS_((void)); /* 114 */ -#endif /* __WIN32__ */ -#ifdef MAC_TCL - TkRegion (*tkCreateRegion) _ANSI_ARGS_((void)); /* 114 */ -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK - TkRegion (*tkCreateRegion) _ANSI_ARGS_((void)); /* 114 */ -#endif /* MAC_OSX_TK */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - void *reserved115; -#endif /* UNIX */ -#ifdef __WIN32__ - void (*tkDestroyRegion) _ANSI_ARGS_((TkRegion rgn)); /* 115 */ -#endif /* __WIN32__ */ -#ifdef MAC_TCL - void (*tkDestroyRegion) _ANSI_ARGS_((TkRegion rgn)); /* 115 */ -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK - void (*tkDestroyRegion) _ANSI_ARGS_((TkRegion rgn)); /* 115 */ -#endif /* MAC_OSX_TK */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - void *reserved116; -#endif /* UNIX */ -#ifdef __WIN32__ - void (*tkIntersectRegion) _ANSI_ARGS_((TkRegion sra, TkRegion srcb, TkRegion dr_return)); /* 116 */ -#endif /* __WIN32__ */ -#ifdef MAC_TCL - void (*tkIntersectRegion) _ANSI_ARGS_((TkRegion sra, TkRegion srcb, TkRegion dr_return)); /* 116 */ -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK - void (*tkIntersectRegion) _ANSI_ARGS_((TkRegion sra, TkRegion srcb, TkRegion dr_return)); /* 116 */ -#endif /* MAC_OSX_TK */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - void *reserved117; -#endif /* UNIX */ -#ifdef __WIN32__ - int (*tkRectInRegion) _ANSI_ARGS_((TkRegion rgn, int x, int y, unsigned int width, unsigned int height)); /* 117 */ -#endif /* __WIN32__ */ -#ifdef MAC_TCL - int (*tkRectInRegion) _ANSI_ARGS_((TkRegion rgn, int x, int y, unsigned int width, unsigned int height)); /* 117 */ -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK - int (*tkRectInRegion) _ANSI_ARGS_((TkRegion rgn, int x, int y, unsigned int width, unsigned int height)); /* 117 */ -#endif /* MAC_OSX_TK */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - void *reserved118; -#endif /* UNIX */ -#ifdef __WIN32__ - void (*tkSetRegion) _ANSI_ARGS_((Display* display, GC gc, TkRegion rgn)); /* 118 */ -#endif /* __WIN32__ */ -#ifdef MAC_TCL - void (*tkSetRegion) _ANSI_ARGS_((Display* display, GC gc, TkRegion rgn)); /* 118 */ -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK - void (*tkSetRegion) _ANSI_ARGS_((Display* display, GC gc, TkRegion rgn)); /* 118 */ -#endif /* MAC_OSX_TK */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - void *reserved119; -#endif /* UNIX */ -#ifdef __WIN32__ - void (*tkUnionRectWithRegion) _ANSI_ARGS_((XRectangle* rect, TkRegion src, TkRegion dr_return)); /* 119 */ -#endif /* __WIN32__ */ -#ifdef MAC_TCL - void (*tkUnionRectWithRegion) _ANSI_ARGS_((XRectangle* rect, TkRegion src, TkRegion dr_return)); /* 119 */ -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK - void (*tkUnionRectWithRegion) _ANSI_ARGS_((XRectangle* rect, TkRegion src, TkRegion dr_return)); /* 119 */ -#endif /* MAC_OSX_TK */ - void *reserved120; -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - void *reserved121; -#endif /* UNIX */ -#ifdef __WIN32__ - void *reserved121; -#endif /* __WIN32__ */ -#ifdef MAC_TCL - Pixmap (*tkpCreateNativeBitmap) _ANSI_ARGS_((Display * display, CONST char * source)); /* 121 */ -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK - Pixmap (*tkpCreateNativeBitmap) _ANSI_ARGS_((Display * display, CONST char * source)); /* 121 */ -#endif /* MAC_OSX_TK */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - void *reserved122; -#endif /* UNIX */ -#ifdef __WIN32__ - void *reserved122; -#endif /* __WIN32__ */ -#ifdef MAC_TCL - void (*tkpDefineNativeBitmaps) _ANSI_ARGS_((void)); /* 122 */ -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK - void (*tkpDefineNativeBitmaps) _ANSI_ARGS_((void)); /* 122 */ -#endif /* MAC_OSX_TK */ - void *reserved123; -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - void *reserved124; -#endif /* UNIX */ -#ifdef __WIN32__ - void *reserved124; -#endif /* __WIN32__ */ -#ifdef MAC_TCL - Pixmap (*tkpGetNativeAppBitmap) _ANSI_ARGS_((Display * display, CONST char * name, int * width, int * height)); /* 124 */ -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK - Pixmap (*tkpGetNativeAppBitmap) _ANSI_ARGS_((Display * display, CONST char * name, int * width, int * height)); /* 124 */ -#endif /* MAC_OSX_TK */ - void *reserved125; - void *reserved126; - void *reserved127; - void *reserved128; - void *reserved129; - void *reserved130; - void *reserved131; - void *reserved132; - void *reserved133; - void *reserved134; - void (*tkpDrawHighlightBorder) _ANSI_ARGS_((Tk_Window tkwin, GC fgGC, GC bgGC, int highlightWidth, Drawable drawable)); /* 135 */ - void (*tkSetFocusWin) _ANSI_ARGS_((TkWindow * winPtr, int force)); /* 136 */ - void (*tkpSetKeycodeAndState) _ANSI_ARGS_((Tk_Window tkwin, KeySym keySym, XEvent * eventPtr)); /* 137 */ - KeySym (*tkpGetKeySym) _ANSI_ARGS_((TkDisplay * dispPtr, XEvent * eventPtr)); /* 138 */ - void (*tkpInitKeymapInfo) _ANSI_ARGS_((TkDisplay * dispPtr)); /* 139 */ - TkRegion (*tkPhotoGetValidRegion) _ANSI_ARGS_((Tk_PhotoHandle handle)); /* 140 */ - TkWindow ** (*tkWmStackorderToplevel) _ANSI_ARGS_((TkWindow * parentPtr)); /* 141 */ - void (*tkFocusFree) _ANSI_ARGS_((TkMainInfo * mainPtr)); /* 142 */ - void (*tkClipCleanup) _ANSI_ARGS_((TkDisplay * dispPtr)); /* 143 */ - void (*tkGCCleanup) _ANSI_ARGS_((TkDisplay * dispPtr)); /* 144 */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - void *reserved145; -#endif /* UNIX */ -#ifdef __WIN32__ - void (*tkSubtractRegion) _ANSI_ARGS_((TkRegion sra, TkRegion srcb, TkRegion dr_return)); /* 145 */ -#endif /* __WIN32__ */ -#ifdef MAC_TCL - void (*tkSubtractRegion) _ANSI_ARGS_((TkRegion sra, TkRegion srcb, TkRegion dr_return)); /* 145 */ -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK - void (*tkSubtractRegion) _ANSI_ARGS_((TkRegion sra, TkRegion srcb, TkRegion dr_return)); /* 145 */ -#endif /* MAC_OSX_TK */ - void (*tkStylePkgInit) _ANSI_ARGS_((TkMainInfo * mainPtr)); /* 146 */ - void (*tkStylePkgFree) _ANSI_ARGS_((TkMainInfo * mainPtr)); /* 147 */ - Tk_Window (*tkToplevelWindowForCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * cmdName)); /* 148 */ - CONST Tk_OptionSpec * (*tkGetOptionSpec) _ANSI_ARGS_((CONST char * name, Tk_OptionTable optionTable)); /* 149 */ -} TkIntStubs; - -#ifdef __cplusplus -extern "C" { -#endif -extern TkIntStubs *tkIntStubsPtr; -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifndef TkAllocWindow -#define TkAllocWindow \ - (tkIntStubsPtr->tkAllocWindow) /* 0 */ -#endif -#ifndef TkBezierPoints -#define TkBezierPoints \ - (tkIntStubsPtr->tkBezierPoints) /* 1 */ -#endif -#ifndef TkBezierScreenPoints -#define TkBezierScreenPoints \ - (tkIntStubsPtr->tkBezierScreenPoints) /* 2 */ -#endif -#ifndef TkBindDeadWindow -#define TkBindDeadWindow \ - (tkIntStubsPtr->tkBindDeadWindow) /* 3 */ -#endif -#ifndef TkBindEventProc -#define TkBindEventProc \ - (tkIntStubsPtr->tkBindEventProc) /* 4 */ -#endif -#ifndef TkBindFree -#define TkBindFree \ - (tkIntStubsPtr->tkBindFree) /* 5 */ -#endif -#ifndef TkBindInit -#define TkBindInit \ - (tkIntStubsPtr->tkBindInit) /* 6 */ -#endif -#ifndef TkChangeEventWindow -#define TkChangeEventWindow \ - (tkIntStubsPtr->tkChangeEventWindow) /* 7 */ -#endif -#ifndef TkClipInit -#define TkClipInit \ - (tkIntStubsPtr->tkClipInit) /* 8 */ -#endif -#ifndef TkComputeAnchor -#define TkComputeAnchor \ - (tkIntStubsPtr->tkComputeAnchor) /* 9 */ -#endif -#ifndef TkCopyAndGlobalEval -#define TkCopyAndGlobalEval \ - (tkIntStubsPtr->tkCopyAndGlobalEval) /* 10 */ -#endif -#ifndef TkCreateBindingProcedure -#define TkCreateBindingProcedure \ - (tkIntStubsPtr->tkCreateBindingProcedure) /* 11 */ -#endif -#ifndef TkCreateCursorFromData -#define TkCreateCursorFromData \ - (tkIntStubsPtr->tkCreateCursorFromData) /* 12 */ -#endif -#ifndef TkCreateFrame -#define TkCreateFrame \ - (tkIntStubsPtr->tkCreateFrame) /* 13 */ -#endif -#ifndef TkCreateMainWindow -#define TkCreateMainWindow \ - (tkIntStubsPtr->tkCreateMainWindow) /* 14 */ -#endif -#ifndef TkCurrentTime -#define TkCurrentTime \ - (tkIntStubsPtr->tkCurrentTime) /* 15 */ -#endif -#ifndef TkDeleteAllImages -#define TkDeleteAllImages \ - (tkIntStubsPtr->tkDeleteAllImages) /* 16 */ -#endif -#ifndef TkDoConfigureNotify -#define TkDoConfigureNotify \ - (tkIntStubsPtr->tkDoConfigureNotify) /* 17 */ -#endif -#ifndef TkDrawInsetFocusHighlight -#define TkDrawInsetFocusHighlight \ - (tkIntStubsPtr->tkDrawInsetFocusHighlight) /* 18 */ -#endif -#ifndef TkEventDeadWindow -#define TkEventDeadWindow \ - (tkIntStubsPtr->tkEventDeadWindow) /* 19 */ -#endif -#ifndef TkFillPolygon -#define TkFillPolygon \ - (tkIntStubsPtr->tkFillPolygon) /* 20 */ -#endif -#ifndef TkFindStateNum -#define TkFindStateNum \ - (tkIntStubsPtr->tkFindStateNum) /* 21 */ -#endif -#ifndef TkFindStateString -#define TkFindStateString \ - (tkIntStubsPtr->tkFindStateString) /* 22 */ -#endif -#ifndef TkFocusDeadWindow -#define TkFocusDeadWindow \ - (tkIntStubsPtr->tkFocusDeadWindow) /* 23 */ -#endif -#ifndef TkFocusFilterEvent -#define TkFocusFilterEvent \ - (tkIntStubsPtr->tkFocusFilterEvent) /* 24 */ -#endif -#ifndef TkFocusKeyEvent -#define TkFocusKeyEvent \ - (tkIntStubsPtr->tkFocusKeyEvent) /* 25 */ -#endif -#ifndef TkFontPkgInit -#define TkFontPkgInit \ - (tkIntStubsPtr->tkFontPkgInit) /* 26 */ -#endif -#ifndef TkFontPkgFree -#define TkFontPkgFree \ - (tkIntStubsPtr->tkFontPkgFree) /* 27 */ -#endif -#ifndef TkFreeBindingTags -#define TkFreeBindingTags \ - (tkIntStubsPtr->tkFreeBindingTags) /* 28 */ -#endif -#ifndef TkpFreeCursor -#define TkpFreeCursor \ - (tkIntStubsPtr->tkpFreeCursor) /* 29 */ -#endif -#ifndef TkGetBitmapData -#define TkGetBitmapData \ - (tkIntStubsPtr->tkGetBitmapData) /* 30 */ -#endif -#ifndef TkGetButtPoints -#define TkGetButtPoints \ - (tkIntStubsPtr->tkGetButtPoints) /* 31 */ -#endif -#ifndef TkGetCursorByName -#define TkGetCursorByName \ - (tkIntStubsPtr->tkGetCursorByName) /* 32 */ -#endif -#ifndef TkGetDefaultScreenName -#define TkGetDefaultScreenName \ - (tkIntStubsPtr->tkGetDefaultScreenName) /* 33 */ -#endif -#ifndef TkGetDisplay -#define TkGetDisplay \ - (tkIntStubsPtr->tkGetDisplay) /* 34 */ -#endif -#ifndef TkGetDisplayOf -#define TkGetDisplayOf \ - (tkIntStubsPtr->tkGetDisplayOf) /* 35 */ -#endif -#ifndef TkGetFocusWin -#define TkGetFocusWin \ - (tkIntStubsPtr->tkGetFocusWin) /* 36 */ -#endif -#ifndef TkGetInterpNames -#define TkGetInterpNames \ - (tkIntStubsPtr->tkGetInterpNames) /* 37 */ -#endif -#ifndef TkGetMiterPoints -#define TkGetMiterPoints \ - (tkIntStubsPtr->tkGetMiterPoints) /* 38 */ -#endif -#ifndef TkGetPointerCoords -#define TkGetPointerCoords \ - (tkIntStubsPtr->tkGetPointerCoords) /* 39 */ -#endif -#ifndef TkGetServerInfo -#define TkGetServerInfo \ - (tkIntStubsPtr->tkGetServerInfo) /* 40 */ -#endif -#ifndef TkGrabDeadWindow -#define TkGrabDeadWindow \ - (tkIntStubsPtr->tkGrabDeadWindow) /* 41 */ -#endif -#ifndef TkGrabState -#define TkGrabState \ - (tkIntStubsPtr->tkGrabState) /* 42 */ -#endif -#ifndef TkIncludePoint -#define TkIncludePoint \ - (tkIntStubsPtr->tkIncludePoint) /* 43 */ -#endif -#ifndef TkInOutEvents -#define TkInOutEvents \ - (tkIntStubsPtr->tkInOutEvents) /* 44 */ -#endif -#ifndef TkInstallFrameMenu -#define TkInstallFrameMenu \ - (tkIntStubsPtr->tkInstallFrameMenu) /* 45 */ -#endif -#ifndef TkKeysymToString -#define TkKeysymToString \ - (tkIntStubsPtr->tkKeysymToString) /* 46 */ -#endif -#ifndef TkLineToArea -#define TkLineToArea \ - (tkIntStubsPtr->tkLineToArea) /* 47 */ -#endif -#ifndef TkLineToPoint -#define TkLineToPoint \ - (tkIntStubsPtr->tkLineToPoint) /* 48 */ -#endif -#ifndef TkMakeBezierCurve -#define TkMakeBezierCurve \ - (tkIntStubsPtr->tkMakeBezierCurve) /* 49 */ -#endif -#ifndef TkMakeBezierPostscript -#define TkMakeBezierPostscript \ - (tkIntStubsPtr->tkMakeBezierPostscript) /* 50 */ -#endif -#ifndef TkOptionClassChanged -#define TkOptionClassChanged \ - (tkIntStubsPtr->tkOptionClassChanged) /* 51 */ -#endif -#ifndef TkOptionDeadWindow -#define TkOptionDeadWindow \ - (tkIntStubsPtr->tkOptionDeadWindow) /* 52 */ -#endif -#ifndef TkOvalToArea -#define TkOvalToArea \ - (tkIntStubsPtr->tkOvalToArea) /* 53 */ -#endif -#ifndef TkOvalToPoint -#define TkOvalToPoint \ - (tkIntStubsPtr->tkOvalToPoint) /* 54 */ -#endif -#ifndef TkpChangeFocus -#define TkpChangeFocus \ - (tkIntStubsPtr->tkpChangeFocus) /* 55 */ -#endif -#ifndef TkpCloseDisplay -#define TkpCloseDisplay \ - (tkIntStubsPtr->tkpCloseDisplay) /* 56 */ -#endif -#ifndef TkpClaimFocus -#define TkpClaimFocus \ - (tkIntStubsPtr->tkpClaimFocus) /* 57 */ -#endif -#ifndef TkpDisplayWarning -#define TkpDisplayWarning \ - (tkIntStubsPtr->tkpDisplayWarning) /* 58 */ -#endif -#ifndef TkpGetAppName -#define TkpGetAppName \ - (tkIntStubsPtr->tkpGetAppName) /* 59 */ -#endif -#ifndef TkpGetOtherWindow -#define TkpGetOtherWindow \ - (tkIntStubsPtr->tkpGetOtherWindow) /* 60 */ -#endif -#ifndef TkpGetWrapperWindow -#define TkpGetWrapperWindow \ - (tkIntStubsPtr->tkpGetWrapperWindow) /* 61 */ -#endif -#ifndef TkpInit -#define TkpInit \ - (tkIntStubsPtr->tkpInit) /* 62 */ -#endif -#ifndef TkpInitializeMenuBindings -#define TkpInitializeMenuBindings \ - (tkIntStubsPtr->tkpInitializeMenuBindings) /* 63 */ -#endif -#ifndef TkpMakeContainer -#define TkpMakeContainer \ - (tkIntStubsPtr->tkpMakeContainer) /* 64 */ -#endif -#ifndef TkpMakeMenuWindow -#define TkpMakeMenuWindow \ - (tkIntStubsPtr->tkpMakeMenuWindow) /* 65 */ -#endif -#ifndef TkpMakeWindow -#define TkpMakeWindow \ - (tkIntStubsPtr->tkpMakeWindow) /* 66 */ -#endif -#ifndef TkpMenuNotifyToplevelCreate -#define TkpMenuNotifyToplevelCreate \ - (tkIntStubsPtr->tkpMenuNotifyToplevelCreate) /* 67 */ -#endif -#ifndef TkpOpenDisplay -#define TkpOpenDisplay \ - (tkIntStubsPtr->tkpOpenDisplay) /* 68 */ -#endif -#ifndef TkPointerEvent -#define TkPointerEvent \ - (tkIntStubsPtr->tkPointerEvent) /* 69 */ -#endif -#ifndef TkPolygonToArea -#define TkPolygonToArea \ - (tkIntStubsPtr->tkPolygonToArea) /* 70 */ -#endif -#ifndef TkPolygonToPoint -#define TkPolygonToPoint \ - (tkIntStubsPtr->tkPolygonToPoint) /* 71 */ -#endif -#ifndef TkPositionInTree -#define TkPositionInTree \ - (tkIntStubsPtr->tkPositionInTree) /* 72 */ -#endif -#ifndef TkpRedirectKeyEvent -#define TkpRedirectKeyEvent \ - (tkIntStubsPtr->tkpRedirectKeyEvent) /* 73 */ -#endif -#ifndef TkpSetMainMenubar -#define TkpSetMainMenubar \ - (tkIntStubsPtr->tkpSetMainMenubar) /* 74 */ -#endif -#ifndef TkpUseWindow -#define TkpUseWindow \ - (tkIntStubsPtr->tkpUseWindow) /* 75 */ -#endif -#ifndef TkpWindowWasRecentlyDeleted -#define TkpWindowWasRecentlyDeleted \ - (tkIntStubsPtr->tkpWindowWasRecentlyDeleted) /* 76 */ -#endif -#ifndef TkQueueEventForAllChildren -#define TkQueueEventForAllChildren \ - (tkIntStubsPtr->tkQueueEventForAllChildren) /* 77 */ -#endif -#ifndef TkReadBitmapFile -#define TkReadBitmapFile \ - (tkIntStubsPtr->tkReadBitmapFile) /* 78 */ -#endif -#ifndef TkScrollWindow -#define TkScrollWindow \ - (tkIntStubsPtr->tkScrollWindow) /* 79 */ -#endif -#ifndef TkSelDeadWindow -#define TkSelDeadWindow \ - (tkIntStubsPtr->tkSelDeadWindow) /* 80 */ -#endif -#ifndef TkSelEventProc -#define TkSelEventProc \ - (tkIntStubsPtr->tkSelEventProc) /* 81 */ -#endif -#ifndef TkSelInit -#define TkSelInit \ - (tkIntStubsPtr->tkSelInit) /* 82 */ -#endif -#ifndef TkSelPropProc -#define TkSelPropProc \ - (tkIntStubsPtr->tkSelPropProc) /* 83 */ -#endif -/* Slot 84 is reserved */ -#ifndef TkSetWindowMenuBar -#define TkSetWindowMenuBar \ - (tkIntStubsPtr->tkSetWindowMenuBar) /* 85 */ -#endif -#ifndef TkStringToKeysym -#define TkStringToKeysym \ - (tkIntStubsPtr->tkStringToKeysym) /* 86 */ -#endif -#ifndef TkThickPolyLineToArea -#define TkThickPolyLineToArea \ - (tkIntStubsPtr->tkThickPolyLineToArea) /* 87 */ -#endif -#ifndef TkWmAddToColormapWindows -#define TkWmAddToColormapWindows \ - (tkIntStubsPtr->tkWmAddToColormapWindows) /* 88 */ -#endif -#ifndef TkWmDeadWindow -#define TkWmDeadWindow \ - (tkIntStubsPtr->tkWmDeadWindow) /* 89 */ -#endif -#ifndef TkWmFocusToplevel -#define TkWmFocusToplevel \ - (tkIntStubsPtr->tkWmFocusToplevel) /* 90 */ -#endif -#ifndef TkWmMapWindow -#define TkWmMapWindow \ - (tkIntStubsPtr->tkWmMapWindow) /* 91 */ -#endif -#ifndef TkWmNewWindow -#define TkWmNewWindow \ - (tkIntStubsPtr->tkWmNewWindow) /* 92 */ -#endif -#ifndef TkWmProtocolEventProc -#define TkWmProtocolEventProc \ - (tkIntStubsPtr->tkWmProtocolEventProc) /* 93 */ -#endif -#ifndef TkWmRemoveFromColormapWindows -#define TkWmRemoveFromColormapWindows \ - (tkIntStubsPtr->tkWmRemoveFromColormapWindows) /* 94 */ -#endif -#ifndef TkWmRestackToplevel -#define TkWmRestackToplevel \ - (tkIntStubsPtr->tkWmRestackToplevel) /* 95 */ -#endif -#ifndef TkWmSetClass -#define TkWmSetClass \ - (tkIntStubsPtr->tkWmSetClass) /* 96 */ -#endif -#ifndef TkWmUnmapWindow -#define TkWmUnmapWindow \ - (tkIntStubsPtr->tkWmUnmapWindow) /* 97 */ -#endif -#ifndef TkDebugBitmap -#define TkDebugBitmap \ - (tkIntStubsPtr->tkDebugBitmap) /* 98 */ -#endif -#ifndef TkDebugBorder -#define TkDebugBorder \ - (tkIntStubsPtr->tkDebugBorder) /* 99 */ -#endif -#ifndef TkDebugCursor -#define TkDebugCursor \ - (tkIntStubsPtr->tkDebugCursor) /* 100 */ -#endif -#ifndef TkDebugColor -#define TkDebugColor \ - (tkIntStubsPtr->tkDebugColor) /* 101 */ -#endif -#ifndef TkDebugConfig -#define TkDebugConfig \ - (tkIntStubsPtr->tkDebugConfig) /* 102 */ -#endif -#ifndef TkDebugFont -#define TkDebugFont \ - (tkIntStubsPtr->tkDebugFont) /* 103 */ -#endif -#ifndef TkFindStateNumObj -#define TkFindStateNumObj \ - (tkIntStubsPtr->tkFindStateNumObj) /* 104 */ -#endif -#ifndef TkGetBitmapPredefTable -#define TkGetBitmapPredefTable \ - (tkIntStubsPtr->tkGetBitmapPredefTable) /* 105 */ -#endif -#ifndef TkGetDisplayList -#define TkGetDisplayList \ - (tkIntStubsPtr->tkGetDisplayList) /* 106 */ -#endif -#ifndef TkGetMainInfoList -#define TkGetMainInfoList \ - (tkIntStubsPtr->tkGetMainInfoList) /* 107 */ -#endif -#ifndef TkGetWindowFromObj -#define TkGetWindowFromObj \ - (tkIntStubsPtr->tkGetWindowFromObj) /* 108 */ -#endif -#ifndef TkpGetString -#define TkpGetString \ - (tkIntStubsPtr->tkpGetString) /* 109 */ -#endif -#ifndef TkpGetSubFonts -#define TkpGetSubFonts \ - (tkIntStubsPtr->tkpGetSubFonts) /* 110 */ -#endif -#ifndef TkpGetSystemDefault -#define TkpGetSystemDefault \ - (tkIntStubsPtr->tkpGetSystemDefault) /* 111 */ -#endif -#ifndef TkpMenuThreadInit -#define TkpMenuThreadInit \ - (tkIntStubsPtr->tkpMenuThreadInit) /* 112 */ -#endif -#ifdef __WIN32__ -#ifndef TkClipBox -#define TkClipBox \ - (tkIntStubsPtr->tkClipBox) /* 113 */ -#endif -#endif /* __WIN32__ */ -#ifdef MAC_TCL -#ifndef TkClipBox -#define TkClipBox \ - (tkIntStubsPtr->tkClipBox) /* 113 */ -#endif -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -#ifndef TkClipBox -#define TkClipBox \ - (tkIntStubsPtr->tkClipBox) /* 113 */ -#endif -#endif /* MAC_OSX_TK */ -#ifdef __WIN32__ -#ifndef TkCreateRegion -#define TkCreateRegion \ - (tkIntStubsPtr->tkCreateRegion) /* 114 */ -#endif -#endif /* __WIN32__ */ -#ifdef MAC_TCL -#ifndef TkCreateRegion -#define TkCreateRegion \ - (tkIntStubsPtr->tkCreateRegion) /* 114 */ -#endif -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -#ifndef TkCreateRegion -#define TkCreateRegion \ - (tkIntStubsPtr->tkCreateRegion) /* 114 */ -#endif -#endif /* MAC_OSX_TK */ -#ifdef __WIN32__ -#ifndef TkDestroyRegion -#define TkDestroyRegion \ - (tkIntStubsPtr->tkDestroyRegion) /* 115 */ -#endif -#endif /* __WIN32__ */ -#ifdef MAC_TCL -#ifndef TkDestroyRegion -#define TkDestroyRegion \ - (tkIntStubsPtr->tkDestroyRegion) /* 115 */ -#endif -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -#ifndef TkDestroyRegion -#define TkDestroyRegion \ - (tkIntStubsPtr->tkDestroyRegion) /* 115 */ -#endif -#endif /* MAC_OSX_TK */ -#ifdef __WIN32__ -#ifndef TkIntersectRegion -#define TkIntersectRegion \ - (tkIntStubsPtr->tkIntersectRegion) /* 116 */ -#endif -#endif /* __WIN32__ */ -#ifdef MAC_TCL -#ifndef TkIntersectRegion -#define TkIntersectRegion \ - (tkIntStubsPtr->tkIntersectRegion) /* 116 */ -#endif -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -#ifndef TkIntersectRegion -#define TkIntersectRegion \ - (tkIntStubsPtr->tkIntersectRegion) /* 116 */ -#endif -#endif /* MAC_OSX_TK */ -#ifdef __WIN32__ -#ifndef TkRectInRegion -#define TkRectInRegion \ - (tkIntStubsPtr->tkRectInRegion) /* 117 */ -#endif -#endif /* __WIN32__ */ -#ifdef MAC_TCL -#ifndef TkRectInRegion -#define TkRectInRegion \ - (tkIntStubsPtr->tkRectInRegion) /* 117 */ -#endif -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -#ifndef TkRectInRegion -#define TkRectInRegion \ - (tkIntStubsPtr->tkRectInRegion) /* 117 */ -#endif -#endif /* MAC_OSX_TK */ -#ifdef __WIN32__ -#ifndef TkSetRegion -#define TkSetRegion \ - (tkIntStubsPtr->tkSetRegion) /* 118 */ -#endif -#endif /* __WIN32__ */ -#ifdef MAC_TCL -#ifndef TkSetRegion -#define TkSetRegion \ - (tkIntStubsPtr->tkSetRegion) /* 118 */ -#endif -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -#ifndef TkSetRegion -#define TkSetRegion \ - (tkIntStubsPtr->tkSetRegion) /* 118 */ -#endif -#endif /* MAC_OSX_TK */ -#ifdef __WIN32__ -#ifndef TkUnionRectWithRegion -#define TkUnionRectWithRegion \ - (tkIntStubsPtr->tkUnionRectWithRegion) /* 119 */ -#endif -#endif /* __WIN32__ */ -#ifdef MAC_TCL -#ifndef TkUnionRectWithRegion -#define TkUnionRectWithRegion \ - (tkIntStubsPtr->tkUnionRectWithRegion) /* 119 */ -#endif -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -#ifndef TkUnionRectWithRegion -#define TkUnionRectWithRegion \ - (tkIntStubsPtr->tkUnionRectWithRegion) /* 119 */ -#endif -#endif /* MAC_OSX_TK */ -/* Slot 120 is reserved */ -#ifdef MAC_TCL -#ifndef TkpCreateNativeBitmap -#define TkpCreateNativeBitmap \ - (tkIntStubsPtr->tkpCreateNativeBitmap) /* 121 */ -#endif -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -#ifndef TkpCreateNativeBitmap -#define TkpCreateNativeBitmap \ - (tkIntStubsPtr->tkpCreateNativeBitmap) /* 121 */ -#endif -#endif /* MAC_OSX_TK */ -#ifdef MAC_TCL -#ifndef TkpDefineNativeBitmaps -#define TkpDefineNativeBitmaps \ - (tkIntStubsPtr->tkpDefineNativeBitmaps) /* 122 */ -#endif -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -#ifndef TkpDefineNativeBitmaps -#define TkpDefineNativeBitmaps \ - (tkIntStubsPtr->tkpDefineNativeBitmaps) /* 122 */ -#endif -#endif /* MAC_OSX_TK */ -/* Slot 123 is reserved */ -#ifdef MAC_TCL -#ifndef TkpGetNativeAppBitmap -#define TkpGetNativeAppBitmap \ - (tkIntStubsPtr->tkpGetNativeAppBitmap) /* 124 */ -#endif -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -#ifndef TkpGetNativeAppBitmap -#define TkpGetNativeAppBitmap \ - (tkIntStubsPtr->tkpGetNativeAppBitmap) /* 124 */ -#endif -#endif /* MAC_OSX_TK */ -/* Slot 125 is reserved */ -/* Slot 126 is reserved */ -/* Slot 127 is reserved */ -/* Slot 128 is reserved */ -/* Slot 129 is reserved */ -/* Slot 130 is reserved */ -/* Slot 131 is reserved */ -/* Slot 132 is reserved */ -/* Slot 133 is reserved */ -/* Slot 134 is reserved */ -#ifndef TkpDrawHighlightBorder -#define TkpDrawHighlightBorder \ - (tkIntStubsPtr->tkpDrawHighlightBorder) /* 135 */ -#endif -#ifndef TkSetFocusWin -#define TkSetFocusWin \ - (tkIntStubsPtr->tkSetFocusWin) /* 136 */ -#endif -#ifndef TkpSetKeycodeAndState -#define TkpSetKeycodeAndState \ - (tkIntStubsPtr->tkpSetKeycodeAndState) /* 137 */ -#endif -#ifndef TkpGetKeySym -#define TkpGetKeySym \ - (tkIntStubsPtr->tkpGetKeySym) /* 138 */ -#endif -#ifndef TkpInitKeymapInfo -#define TkpInitKeymapInfo \ - (tkIntStubsPtr->tkpInitKeymapInfo) /* 139 */ -#endif -#ifndef TkPhotoGetValidRegion -#define TkPhotoGetValidRegion \ - (tkIntStubsPtr->tkPhotoGetValidRegion) /* 140 */ -#endif -#ifndef TkWmStackorderToplevel -#define TkWmStackorderToplevel \ - (tkIntStubsPtr->tkWmStackorderToplevel) /* 141 */ -#endif -#ifndef TkFocusFree -#define TkFocusFree \ - (tkIntStubsPtr->tkFocusFree) /* 142 */ -#endif -#ifndef TkClipCleanup -#define TkClipCleanup \ - (tkIntStubsPtr->tkClipCleanup) /* 143 */ -#endif -#ifndef TkGCCleanup -#define TkGCCleanup \ - (tkIntStubsPtr->tkGCCleanup) /* 144 */ -#endif -#ifdef __WIN32__ -#ifndef TkSubtractRegion -#define TkSubtractRegion \ - (tkIntStubsPtr->tkSubtractRegion) /* 145 */ -#endif -#endif /* __WIN32__ */ -#ifdef MAC_TCL -#ifndef TkSubtractRegion -#define TkSubtractRegion \ - (tkIntStubsPtr->tkSubtractRegion) /* 145 */ -#endif -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -#ifndef TkSubtractRegion -#define TkSubtractRegion \ - (tkIntStubsPtr->tkSubtractRegion) /* 145 */ -#endif -#endif /* MAC_OSX_TK */ -#ifndef TkStylePkgInit -#define TkStylePkgInit \ - (tkIntStubsPtr->tkStylePkgInit) /* 146 */ -#endif -#ifndef TkStylePkgFree -#define TkStylePkgFree \ - (tkIntStubsPtr->tkStylePkgFree) /* 147 */ -#endif -#ifndef TkToplevelWindowForCommand -#define TkToplevelWindowForCommand \ - (tkIntStubsPtr->tkToplevelWindowForCommand) /* 148 */ -#endif -#ifndef TkGetOptionSpec -#define TkGetOptionSpec \ - (tkIntStubsPtr->tkGetOptionSpec) /* 149 */ -#endif - -#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKINTDECLS */ - - - - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls.m b/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls.m deleted file mode 100644 index 61e31a2f65b..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls.m +++ /dev/null @@ -1,466 +0,0 @@ -#ifndef _TKINTDECLS_VM -#define _TKINTDECLS_VM -#include "tkIntDecls_f.h" -#ifndef NO_VTABLES -#ifndef TkAllocWindow -# define TkAllocWindow (*TkintdeclsVptr->V_TkAllocWindow) -#endif - -#ifndef TkBindDeadWindow -# define TkBindDeadWindow (*TkintdeclsVptr->V_TkBindDeadWindow) -#endif - -#ifndef TkBindEventProc -# define TkBindEventProc (*TkintdeclsVptr->V_TkBindEventProc) -#endif - -#ifndef TkBindFree -# define TkBindFree (*TkintdeclsVptr->V_TkBindFree) -#endif - -#ifndef TkBindInit -# define TkBindInit (*TkintdeclsVptr->V_TkBindInit) -#endif - -#ifndef TkChangeEventWindow -# define TkChangeEventWindow (*TkintdeclsVptr->V_TkChangeEventWindow) -#endif - -#ifndef TkClipBox -# define TkClipBox (*TkintdeclsVptr->V_TkClipBox) -#endif - -#ifndef TkClipCleanup -# define TkClipCleanup (*TkintdeclsVptr->V_TkClipCleanup) -#endif - -#ifndef TkClipInit -# define TkClipInit (*TkintdeclsVptr->V_TkClipInit) -#endif - -#ifndef TkComputeAnchor -# define TkComputeAnchor (*TkintdeclsVptr->V_TkComputeAnchor) -#endif - -#ifndef TkCopyAndGlobalEval -# define TkCopyAndGlobalEval (*TkintdeclsVptr->V_TkCopyAndGlobalEval) -#endif - -#ifndef TkCreateBindingProcedure -# define TkCreateBindingProcedure (*TkintdeclsVptr->V_TkCreateBindingProcedure) -#endif - -#ifndef TkCreateCursorFromData -# define TkCreateCursorFromData (*TkintdeclsVptr->V_TkCreateCursorFromData) -#endif - -#ifndef TkCreateFrame -# define TkCreateFrame (*TkintdeclsVptr->V_TkCreateFrame) -#endif - -#ifndef TkCreateMainWindow -# define TkCreateMainWindow (*TkintdeclsVptr->V_TkCreateMainWindow) -#endif - -#ifndef TkCreateRegion -# define TkCreateRegion (*TkintdeclsVptr->V_TkCreateRegion) -#endif - -#ifndef TkCurrentTime -# define TkCurrentTime (*TkintdeclsVptr->V_TkCurrentTime) -#endif - -#ifndef TkDebugBitmap -# define TkDebugBitmap (*TkintdeclsVptr->V_TkDebugBitmap) -#endif - -#ifndef TkDebugBorder -# define TkDebugBorder (*TkintdeclsVptr->V_TkDebugBorder) -#endif - -#ifndef TkDebugColor -# define TkDebugColor (*TkintdeclsVptr->V_TkDebugColor) -#endif - -#ifndef TkDebugConfig -# define TkDebugConfig (*TkintdeclsVptr->V_TkDebugConfig) -#endif - -#ifndef TkDebugCursor -# define TkDebugCursor (*TkintdeclsVptr->V_TkDebugCursor) -#endif - -#ifndef TkDebugFont -# define TkDebugFont (*TkintdeclsVptr->V_TkDebugFont) -#endif - -#ifndef TkDeleteAllImages -# define TkDeleteAllImages (*TkintdeclsVptr->V_TkDeleteAllImages) -#endif - -#ifndef TkDestroyRegion -# define TkDestroyRegion (*TkintdeclsVptr->V_TkDestroyRegion) -#endif - -#ifndef TkDoConfigureNotify -# define TkDoConfigureNotify (*TkintdeclsVptr->V_TkDoConfigureNotify) -#endif - -#ifndef TkDrawInsetFocusHighlight -# define TkDrawInsetFocusHighlight (*TkintdeclsVptr->V_TkDrawInsetFocusHighlight) -#endif - -#ifndef TkEventDeadWindow -# define TkEventDeadWindow (*TkintdeclsVptr->V_TkEventDeadWindow) -#endif - -#ifndef TkFindStateNum -# define TkFindStateNum (*TkintdeclsVptr->V_TkFindStateNum) -#endif - -#ifndef TkFindStateNumObj -# define TkFindStateNumObj (*TkintdeclsVptr->V_TkFindStateNumObj) -#endif - -#ifndef TkFindStateString -# define TkFindStateString (*TkintdeclsVptr->V_TkFindStateString) -#endif - -#ifndef TkFocusDeadWindow -# define TkFocusDeadWindow (*TkintdeclsVptr->V_TkFocusDeadWindow) -#endif - -#ifndef TkFocusFilterEvent -# define TkFocusFilterEvent (*TkintdeclsVptr->V_TkFocusFilterEvent) -#endif - -#ifndef TkFocusFree -# define TkFocusFree (*TkintdeclsVptr->V_TkFocusFree) -#endif - -#ifndef TkFocusKeyEvent -# define TkFocusKeyEvent (*TkintdeclsVptr->V_TkFocusKeyEvent) -#endif - -#ifndef TkFontPkgFree -# define TkFontPkgFree (*TkintdeclsVptr->V_TkFontPkgFree) -#endif - -#ifndef TkFontPkgInit -# define TkFontPkgInit (*TkintdeclsVptr->V_TkFontPkgInit) -#endif - -#ifndef TkFreeBindingTags -# define TkFreeBindingTags (*TkintdeclsVptr->V_TkFreeBindingTags) -#endif - -#ifndef TkGCCleanup -# define TkGCCleanup (*TkintdeclsVptr->V_TkGCCleanup) -#endif - -#ifndef TkGetBitmapData -# define TkGetBitmapData (*TkintdeclsVptr->V_TkGetBitmapData) -#endif - -#ifndef TkGetBitmapPredefTable -# define TkGetBitmapPredefTable (*TkintdeclsVptr->V_TkGetBitmapPredefTable) -#endif - -#ifndef TkGetCursorByName -# define TkGetCursorByName (*TkintdeclsVptr->V_TkGetCursorByName) -#endif - -#ifndef TkGetDefaultScreenName -# define TkGetDefaultScreenName (*TkintdeclsVptr->V_TkGetDefaultScreenName) -#endif - -#ifndef TkGetDisplay -# define TkGetDisplay (*TkintdeclsVptr->V_TkGetDisplay) -#endif - -#ifndef TkGetDisplayList -# define TkGetDisplayList (*TkintdeclsVptr->V_TkGetDisplayList) -#endif - -#ifndef TkGetDisplayOf -# define TkGetDisplayOf (*TkintdeclsVptr->V_TkGetDisplayOf) -#endif - -#ifndef TkGetFocusWin -# define TkGetFocusWin (*TkintdeclsVptr->V_TkGetFocusWin) -#endif - -#ifndef TkGetInterpNames -# define TkGetInterpNames (*TkintdeclsVptr->V_TkGetInterpNames) -#endif - -#ifndef TkGetMainInfoList -# define TkGetMainInfoList (*TkintdeclsVptr->V_TkGetMainInfoList) -#endif - -#ifndef TkGetOptionSpec -# define TkGetOptionSpec (*TkintdeclsVptr->V_TkGetOptionSpec) -#endif - -#ifndef TkGetPointerCoords -# define TkGetPointerCoords (*TkintdeclsVptr->V_TkGetPointerCoords) -#endif - -#ifndef TkGetServerInfo -# define TkGetServerInfo (*TkintdeclsVptr->V_TkGetServerInfo) -#endif - -#ifndef TkGetWindowFromObj -# define TkGetWindowFromObj (*TkintdeclsVptr->V_TkGetWindowFromObj) -#endif - -#ifndef TkGrabDeadWindow -# define TkGrabDeadWindow (*TkintdeclsVptr->V_TkGrabDeadWindow) -#endif - -#ifndef TkGrabState -# define TkGrabState (*TkintdeclsVptr->V_TkGrabState) -#endif - -#ifndef TkInOutEvents -# define TkInOutEvents (*TkintdeclsVptr->V_TkInOutEvents) -#endif - -#ifndef TkInstallFrameMenu -# define TkInstallFrameMenu (*TkintdeclsVptr->V_TkInstallFrameMenu) -#endif - -#ifndef TkIntersectRegion -# define TkIntersectRegion (*TkintdeclsVptr->V_TkIntersectRegion) -#endif - -#ifndef TkKeysymToString -# define TkKeysymToString (*TkintdeclsVptr->V_TkKeysymToString) -#endif - -#ifndef TkPhotoGetValidRegion -# define TkPhotoGetValidRegion (*TkintdeclsVptr->V_TkPhotoGetValidRegion) -#endif - -#ifndef TkPointerEvent -# define TkPointerEvent (*TkintdeclsVptr->V_TkPointerEvent) -#endif - -#ifndef TkPositionInTree -# define TkPositionInTree (*TkintdeclsVptr->V_TkPositionInTree) -#endif - -#ifndef TkQueueEventForAllChildren -# define TkQueueEventForAllChildren (*TkintdeclsVptr->V_TkQueueEventForAllChildren) -#endif - -#ifndef TkReadBitmapFile -# define TkReadBitmapFile (*TkintdeclsVptr->V_TkReadBitmapFile) -#endif - -#ifndef TkRectInRegion -# define TkRectInRegion (*TkintdeclsVptr->V_TkRectInRegion) -#endif - -#ifndef TkScrollWindow -# define TkScrollWindow (*TkintdeclsVptr->V_TkScrollWindow) -#endif - -#ifndef TkSelDeadWindow -# define TkSelDeadWindow (*TkintdeclsVptr->V_TkSelDeadWindow) -#endif - -#ifndef TkSelEventProc -# define TkSelEventProc (*TkintdeclsVptr->V_TkSelEventProc) -#endif - -#ifndef TkSelInit -# define TkSelInit (*TkintdeclsVptr->V_TkSelInit) -#endif - -#ifndef TkSelPropProc -# define TkSelPropProc (*TkintdeclsVptr->V_TkSelPropProc) -#endif - -#ifndef TkSetFocusWin -# define TkSetFocusWin (*TkintdeclsVptr->V_TkSetFocusWin) -#endif - -#ifndef TkSetRegion -# define TkSetRegion (*TkintdeclsVptr->V_TkSetRegion) -#endif - -#ifndef TkSetWindowMenuBar -# define TkSetWindowMenuBar (*TkintdeclsVptr->V_TkSetWindowMenuBar) -#endif - -#ifndef TkStringToKeysym -# define TkStringToKeysym (*TkintdeclsVptr->V_TkStringToKeysym) -#endif - -#ifndef TkStylePkgFree -# define TkStylePkgFree (*TkintdeclsVptr->V_TkStylePkgFree) -#endif - -#ifndef TkStylePkgInit -# define TkStylePkgInit (*TkintdeclsVptr->V_TkStylePkgInit) -#endif - -#ifndef TkSubtractRegion -# define TkSubtractRegion (*TkintdeclsVptr->V_TkSubtractRegion) -#endif - -#ifndef TkToplevelWindowForCommand -# define TkToplevelWindowForCommand (*TkintdeclsVptr->V_TkToplevelWindowForCommand) -#endif - -#ifndef TkUnionRectWithRegion -# define TkUnionRectWithRegion (*TkintdeclsVptr->V_TkUnionRectWithRegion) -#endif - -#ifndef TkWmAddToColormapWindows -# define TkWmAddToColormapWindows (*TkintdeclsVptr->V_TkWmAddToColormapWindows) -#endif - -#ifndef TkWmDeadWindow -# define TkWmDeadWindow (*TkintdeclsVptr->V_TkWmDeadWindow) -#endif - -#ifndef TkWmFocusToplevel -# define TkWmFocusToplevel (*TkintdeclsVptr->V_TkWmFocusToplevel) -#endif - -#ifndef TkWmMapWindow -# define TkWmMapWindow (*TkintdeclsVptr->V_TkWmMapWindow) -#endif - -#ifndef TkWmNewWindow -# define TkWmNewWindow (*TkintdeclsVptr->V_TkWmNewWindow) -#endif - -#ifndef TkWmProtocolEventProc -# define TkWmProtocolEventProc (*TkintdeclsVptr->V_TkWmProtocolEventProc) -#endif - -#ifndef TkWmRemoveFromColormapWindows -# define TkWmRemoveFromColormapWindows (*TkintdeclsVptr->V_TkWmRemoveFromColormapWindows) -#endif - -#ifndef TkWmRestackToplevel -# define TkWmRestackToplevel (*TkintdeclsVptr->V_TkWmRestackToplevel) -#endif - -#ifndef TkWmSetClass -# define TkWmSetClass (*TkintdeclsVptr->V_TkWmSetClass) -#endif - -#ifndef TkWmStackorderToplevel -# define TkWmStackorderToplevel (*TkintdeclsVptr->V_TkWmStackorderToplevel) -#endif - -#ifndef TkWmUnmapWindow -# define TkWmUnmapWindow (*TkintdeclsVptr->V_TkWmUnmapWindow) -#endif - -#ifndef TkpChangeFocus -# define TkpChangeFocus (*TkintdeclsVptr->V_TkpChangeFocus) -#endif - -#ifndef TkpClaimFocus -# define TkpClaimFocus (*TkintdeclsVptr->V_TkpClaimFocus) -#endif - -#ifndef TkpCloseDisplay -# define TkpCloseDisplay (*TkintdeclsVptr->V_TkpCloseDisplay) -#endif - -#ifndef TkpDisplayWarning -# define TkpDisplayWarning (*TkintdeclsVptr->V_TkpDisplayWarning) -#endif - -#ifndef TkpDrawHighlightBorder -# define TkpDrawHighlightBorder (*TkintdeclsVptr->V_TkpDrawHighlightBorder) -#endif - -#ifndef TkpFreeCursor -# define TkpFreeCursor (*TkintdeclsVptr->V_TkpFreeCursor) -#endif - -#ifndef TkpGetKeySym -# define TkpGetKeySym (*TkintdeclsVptr->V_TkpGetKeySym) -#endif - -#ifndef TkpGetOtherWindow -# define TkpGetOtherWindow (*TkintdeclsVptr->V_TkpGetOtherWindow) -#endif - -#ifndef TkpGetString -# define TkpGetString (*TkintdeclsVptr->V_TkpGetString) -#endif - -#ifndef TkpGetSubFonts -# define TkpGetSubFonts (*TkintdeclsVptr->V_TkpGetSubFonts) -#endif - -#ifndef TkpGetSystemDefault -# define TkpGetSystemDefault (*TkintdeclsVptr->V_TkpGetSystemDefault) -#endif - -#ifndef TkpGetWrapperWindow -# define TkpGetWrapperWindow (*TkintdeclsVptr->V_TkpGetWrapperWindow) -#endif - -#ifndef TkpInitKeymapInfo -# define TkpInitKeymapInfo (*TkintdeclsVptr->V_TkpInitKeymapInfo) -#endif - -#ifndef TkpInitializeMenuBindings -# define TkpInitializeMenuBindings (*TkintdeclsVptr->V_TkpInitializeMenuBindings) -#endif - -#ifndef TkpMakeContainer -# define TkpMakeContainer (*TkintdeclsVptr->V_TkpMakeContainer) -#endif - -#ifndef TkpMakeMenuWindow -# define TkpMakeMenuWindow (*TkintdeclsVptr->V_TkpMakeMenuWindow) -#endif - -#ifndef TkpMakeWindow -# define TkpMakeWindow (*TkintdeclsVptr->V_TkpMakeWindow) -#endif - -#ifndef TkpMenuNotifyToplevelCreate -# define TkpMenuNotifyToplevelCreate (*TkintdeclsVptr->V_TkpMenuNotifyToplevelCreate) -#endif - -#ifndef TkpMenuThreadInit -# define TkpMenuThreadInit (*TkintdeclsVptr->V_TkpMenuThreadInit) -#endif - -#ifndef TkpOpenDisplay -# define TkpOpenDisplay (*TkintdeclsVptr->V_TkpOpenDisplay) -#endif - -#ifndef TkpRedirectKeyEvent -# define TkpRedirectKeyEvent (*TkintdeclsVptr->V_TkpRedirectKeyEvent) -#endif - -#ifndef TkpSetKeycodeAndState -# define TkpSetKeycodeAndState (*TkintdeclsVptr->V_TkpSetKeycodeAndState) -#endif - -#ifndef TkpSetMainMenubar -# define TkpSetMainMenubar (*TkintdeclsVptr->V_TkpSetMainMenubar) -#endif - -#ifndef TkpUseWindow -# define TkpUseWindow (*TkintdeclsVptr->V_TkpUseWindow) -#endif - -#ifndef TkpWindowWasRecentlyDeleted -# define TkpWindowWasRecentlyDeleted (*TkintdeclsVptr->V_TkpWindowWasRecentlyDeleted) -#endif - -#endif /* NO_VTABLES */ -#endif /* _TKINTDECLS_VM */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls.t b/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls.t deleted file mode 100644 index b2a83a8f4fb..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls.t +++ /dev/null @@ -1,642 +0,0 @@ -#ifdef _TKINTDECLS
-#ifndef TkAllocWindow
-VFUNC(TkWindow *,TkAllocWindow,V_TkAllocWindow,_ANSI_ARGS_((TkDisplay * dispPtr,
- int screenNum, TkWindow * parentPtr)))
-#endif /* #ifndef TkAllocWindow */
-
-#ifndef TkBindDeadWindow
-VFUNC(void,TkBindDeadWindow,V_TkBindDeadWindow,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifndef TkBindDeadWindow */
-
-#ifndef TkBindEventProc
-VFUNC(void,TkBindEventProc,V_TkBindEventProc,_ANSI_ARGS_((TkWindow * winPtr,
- XEvent * eventPtr)))
-#endif /* #ifndef TkBindEventProc */
-
-#ifndef TkBindFree
-VFUNC(void,TkBindFree,V_TkBindFree,_ANSI_ARGS_((TkMainInfo * mainPtr)))
-#endif /* #ifndef TkBindFree */
-
-#ifndef TkBindInit
-VFUNC(void,TkBindInit,V_TkBindInit,_ANSI_ARGS_((TkMainInfo * mainPtr)))
-#endif /* #ifndef TkBindInit */
-
-#ifndef TkChangeEventWindow
-VFUNC(void,TkChangeEventWindow,V_TkChangeEventWindow,_ANSI_ARGS_((XEvent * eventPtr,
- TkWindow * winPtr)))
-#endif /* #ifndef TkChangeEventWindow */
-
-#ifndef TkClipBox
-#ifdef MAC_OSX_TK
-VFUNC(void,TkClipBox,V_TkClipBox,_ANSI_ARGS_((TkRegion rgn,
- XRectangle* rect_return)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,TkClipBox,V_TkClipBox,_ANSI_ARGS_((TkRegion rgn,
- XRectangle* rect_return)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,TkClipBox,V_TkClipBox,_ANSI_ARGS_((TkRegion rgn,
- XRectangle* rect_return)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkClipBox */
-
-#ifndef TkClipCleanup
-VFUNC(void,TkClipCleanup,V_TkClipCleanup,_ANSI_ARGS_((TkDisplay * dispPtr)))
-#endif /* #ifndef TkClipCleanup */
-
-#ifndef TkClipInit
-VFUNC(int,TkClipInit,V_TkClipInit,_ANSI_ARGS_((Tcl_Interp * interp,
- TkDisplay * dispPtr)))
-#endif /* #ifndef TkClipInit */
-
-#ifndef TkComputeAnchor
-VFUNC(void,TkComputeAnchor,V_TkComputeAnchor,_ANSI_ARGS_((Tk_Anchor anchor,
- Tk_Window tkwin, int padX, int padY,
- int innerWidth, int innerHeight, int * xPtr,
- int * yPtr)))
-#endif /* #ifndef TkComputeAnchor */
-
-#ifndef TkCopyAndGlobalEval
-VFUNC(int,TkCopyAndGlobalEval,V_TkCopyAndGlobalEval,_ANSI_ARGS_((Tcl_Interp * interp,
- char * script)))
-#endif /* #ifndef TkCopyAndGlobalEval */
-
-#ifndef TkCreateBindingProcedure
-VFUNC(unsigned long,TkCreateBindingProcedure,V_TkCreateBindingProcedure,_ANSI_ARGS_((
- Tcl_Interp * interp,
- Tk_BindingTable bindingTable,
- ClientData object, CONST char * eventString,
- TkBindEvalProc * evalProc,
- TkBindFreeProc * freeProc,
- ClientData clientData)))
-#endif /* #ifndef TkCreateBindingProcedure */
-
-#ifndef TkCreateCursorFromData
-VFUNC(TkCursor *,TkCreateCursorFromData,V_TkCreateCursorFromData,_ANSI_ARGS_((Tk_Window tkwin,
- CONST char * source, CONST char * mask,
- int width, int height, int xHot, int yHot,
- XColor fg, XColor bg)))
-#endif /* #ifndef TkCreateCursorFromData */
-
-#ifndef TkCreateFrame
-VFUNC(int,TkCreateFrame,V_TkCreateFrame,_ANSI_ARGS_((ClientData clientData,
- Tcl_Interp * interp, int argc, Tcl_Obj *CONST *objv,
- int toplevel, char * appName)))
-#endif /* #ifndef TkCreateFrame */
-
-#ifndef TkCreateMainWindow
-VFUNC(Tk_Window,TkCreateMainWindow,V_TkCreateMainWindow,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * screenName, char * baseName)))
-#endif /* #ifndef TkCreateMainWindow */
-
-#ifndef TkCreateRegion
-#ifdef MAC_OSX_TK
-VFUNC(TkRegion,TkCreateRegion,V_TkCreateRegion,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(TkRegion,TkCreateRegion,V_TkCreateRegion,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(TkRegion,TkCreateRegion,V_TkCreateRegion,_ANSI_ARGS_((void)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkCreateRegion */
-
-#ifndef TkCurrentTime
-VFUNC(Time,TkCurrentTime,V_TkCurrentTime,_ANSI_ARGS_((TkDisplay * dispPtr,
- int fallbackCurrent)))
-#endif /* #ifndef TkCurrentTime */
-
-#ifndef TkDebugBitmap
-VFUNC(Tcl_Obj *,TkDebugBitmap,V_TkDebugBitmap,_ANSI_ARGS_((Tk_Window tkwin,
- char * name)))
-#endif /* #ifndef TkDebugBitmap */
-
-#ifndef TkDebugBorder
-VFUNC(Tcl_Obj *,TkDebugBorder,V_TkDebugBorder,_ANSI_ARGS_((Tk_Window tkwin,
- char * name)))
-#endif /* #ifndef TkDebugBorder */
-
-#ifndef TkDebugColor
-VFUNC(Tcl_Obj *,TkDebugColor,V_TkDebugColor,_ANSI_ARGS_((Tk_Window tkwin,
- char * name)))
-#endif /* #ifndef TkDebugColor */
-
-#ifndef TkDebugConfig
-VFUNC(Tcl_Obj *,TkDebugConfig,V_TkDebugConfig,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_OptionTable table)))
-#endif /* #ifndef TkDebugConfig */
-
-#ifndef TkDebugCursor
-VFUNC(Tcl_Obj *,TkDebugCursor,V_TkDebugCursor,_ANSI_ARGS_((Tk_Window tkwin,
- char * name)))
-#endif /* #ifndef TkDebugCursor */
-
-#ifndef TkDebugFont
-VFUNC(Tcl_Obj *,TkDebugFont,V_TkDebugFont,_ANSI_ARGS_((Tk_Window tkwin,
- char * name)))
-#endif /* #ifndef TkDebugFont */
-
-#ifndef TkDeleteAllImages
-VFUNC(void,TkDeleteAllImages,V_TkDeleteAllImages,_ANSI_ARGS_((TkMainInfo * mainPtr)))
-#endif /* #ifndef TkDeleteAllImages */
-
-#ifndef TkDestroyRegion
-#ifdef MAC_OSX_TK
-VFUNC(void,TkDestroyRegion,V_TkDestroyRegion,_ANSI_ARGS_((TkRegion rgn)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,TkDestroyRegion,V_TkDestroyRegion,_ANSI_ARGS_((TkRegion rgn)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,TkDestroyRegion,V_TkDestroyRegion,_ANSI_ARGS_((TkRegion rgn)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkDestroyRegion */
-
-#ifndef TkDoConfigureNotify
-VFUNC(void,TkDoConfigureNotify,V_TkDoConfigureNotify,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifndef TkDoConfigureNotify */
-
-#ifndef TkDrawInsetFocusHighlight
-VFUNC(void,TkDrawInsetFocusHighlight,V_TkDrawInsetFocusHighlight,_ANSI_ARGS_((
- Tk_Window tkwin, GC gc, int width,
- Drawable drawable, int padding)))
-#endif /* #ifndef TkDrawInsetFocusHighlight */
-
-#ifndef TkEventDeadWindow
-VFUNC(void,TkEventDeadWindow,V_TkEventDeadWindow,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifndef TkEventDeadWindow */
-
-#ifndef TkFindStateNum
-VFUNC(int,TkFindStateNum,V_TkFindStateNum,_ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * option,
- CONST TkStateMap * mapPtr,
- CONST char * strKey)))
-#endif /* #ifndef TkFindStateNum */
-
-#ifndef TkFindStateNumObj
-VFUNC(int,TkFindStateNumObj,V_TkFindStateNumObj,_ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Obj * optionPtr,
- CONST TkStateMap * mapPtr, Tcl_Obj * keyPtr)))
-#endif /* #ifndef TkFindStateNumObj */
-
-#ifndef TkFindStateString
-VFUNC(char *,TkFindStateString,V_TkFindStateString,_ANSI_ARGS_((
- CONST TkStateMap * mapPtr, int numKey)))
-#endif /* #ifndef TkFindStateString */
-
-#ifndef TkFocusDeadWindow
-VFUNC(void,TkFocusDeadWindow,V_TkFocusDeadWindow,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifndef TkFocusDeadWindow */
-
-#ifndef TkFocusFilterEvent
-VFUNC(int,TkFocusFilterEvent,V_TkFocusFilterEvent,_ANSI_ARGS_((TkWindow * winPtr,
- XEvent * eventPtr)))
-#endif /* #ifndef TkFocusFilterEvent */
-
-#ifndef TkFocusFree
-VFUNC(void,TkFocusFree,V_TkFocusFree,_ANSI_ARGS_((TkMainInfo * mainPtr)))
-#endif /* #ifndef TkFocusFree */
-
-#ifndef TkFocusKeyEvent
-VFUNC(TkWindow *,TkFocusKeyEvent,V_TkFocusKeyEvent,_ANSI_ARGS_((TkWindow * winPtr,
- XEvent * eventPtr)))
-#endif /* #ifndef TkFocusKeyEvent */
-
-#ifndef TkFontPkgFree
-VFUNC(void,TkFontPkgFree,V_TkFontPkgFree,_ANSI_ARGS_((TkMainInfo * mainPtr)))
-#endif /* #ifndef TkFontPkgFree */
-
-#ifndef TkFontPkgInit
-VFUNC(void,TkFontPkgInit,V_TkFontPkgInit,_ANSI_ARGS_((TkMainInfo * mainPtr)))
-#endif /* #ifndef TkFontPkgInit */
-
-#ifndef TkFreeBindingTags
-VFUNC(void,TkFreeBindingTags,V_TkFreeBindingTags,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifndef TkFreeBindingTags */
-
-#ifndef TkGCCleanup
-VFUNC(void,TkGCCleanup,V_TkGCCleanup,_ANSI_ARGS_((TkDisplay * dispPtr)))
-#endif /* #ifndef TkGCCleanup */
-
-#ifndef TkGetBitmapData
-VFUNC(char *,TkGetBitmapData,V_TkGetBitmapData,_ANSI_ARGS_((Tcl_Interp * interp,
- char * string, char * fileName,
- int * widthPtr, int * heightPtr,
- int * hotXPtr, int * hotYPtr)))
-#endif /* #ifndef TkGetBitmapData */
-
-#ifndef TkGetBitmapPredefTable
-VFUNC(Tcl_HashTable *,TkGetBitmapPredefTable,V_TkGetBitmapPredefTable,_ANSI_ARGS_((void)))
-#endif /* #ifndef TkGetBitmapPredefTable */
-
-#ifndef TkGetCursorByName
-VFUNC(TkCursor *,TkGetCursorByName,V_TkGetCursorByName,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, Tk_Uid string)))
-#endif /* #ifndef TkGetCursorByName */
-
-#ifndef TkGetDefaultScreenName
-VFUNC(CONST84_RETURN char *,TkGetDefaultScreenName,V_TkGetDefaultScreenName,_ANSI_ARGS_((
- Tcl_Interp * interp, CONST char * screenName)))
-#endif /* #ifndef TkGetDefaultScreenName */
-
-#ifndef TkGetDisplay
-VFUNC(TkDisplay *,TkGetDisplay,V_TkGetDisplay,_ANSI_ARGS_((Display * display)))
-#endif /* #ifndef TkGetDisplay */
-
-#ifndef TkGetDisplayList
-VFUNC(TkDisplay *,TkGetDisplayList,V_TkGetDisplayList,_ANSI_ARGS_((void)))
-#endif /* #ifndef TkGetDisplayList */
-
-#ifndef TkGetDisplayOf
-VFUNC(int,TkGetDisplayOf,V_TkGetDisplayOf,_ANSI_ARGS_((Tcl_Interp * interp,
- int objc, Tcl_Obj *CONST objv[],
- Tk_Window * tkwinPtr)))
-#endif /* #ifndef TkGetDisplayOf */
-
-#ifndef TkGetFocusWin
-VFUNC(TkWindow *,TkGetFocusWin,V_TkGetFocusWin,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifndef TkGetFocusWin */
-
-#ifndef TkGetInterpNames
-VFUNC(int,TkGetInterpNames,V_TkGetInterpNames,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin)))
-#endif /* #ifndef TkGetInterpNames */
-
-#ifndef TkGetMainInfoList
-VFUNC(TkMainInfo *,TkGetMainInfoList,V_TkGetMainInfoList,_ANSI_ARGS_((void)))
-#endif /* #ifndef TkGetMainInfoList */
-
-#ifndef TkGetOptionSpec
-VFUNC(CONST Tk_OptionSpec *,TkGetOptionSpec,V_TkGetOptionSpec,_ANSI_ARGS_((CONST char * name,
- Tk_OptionTable optionTable)))
-#endif /* #ifndef TkGetOptionSpec */
-
-#ifndef TkGetPointerCoords
-VFUNC(void,TkGetPointerCoords,V_TkGetPointerCoords,_ANSI_ARGS_((Tk_Window tkwin,
- int * xPtr, int * yPtr)))
-#endif /* #ifndef TkGetPointerCoords */
-
-#ifndef TkGetServerInfo
-VFUNC(void,TkGetServerInfo,V_TkGetServerInfo,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin)))
-#endif /* #ifndef TkGetServerInfo */
-
-#ifndef TkGetWindowFromObj
-VFUNC(int,TkGetWindowFromObj,V_TkGetWindowFromObj,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, Tcl_Obj * objPtr,
- Tk_Window * windowPtr)))
-#endif /* #ifndef TkGetWindowFromObj */
-
-#ifndef TkGrabDeadWindow
-VFUNC(void,TkGrabDeadWindow,V_TkGrabDeadWindow,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifndef TkGrabDeadWindow */
-
-#ifndef TkGrabState
-VFUNC(int,TkGrabState,V_TkGrabState,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifndef TkGrabState */
-
-#ifndef TkInOutEvents
-VFUNC(void,TkInOutEvents,V_TkInOutEvents,_ANSI_ARGS_((XEvent * eventPtr,
- TkWindow * sourcePtr, TkWindow * destPtr,
- int leaveType, int enterType,
- Tcl_QueuePosition position)))
-#endif /* #ifndef TkInOutEvents */
-
-#ifndef TkInstallFrameMenu
-VFUNC(void,TkInstallFrameMenu,V_TkInstallFrameMenu,_ANSI_ARGS_((Tk_Window tkwin)))
-#endif /* #ifndef TkInstallFrameMenu */
-
-#ifndef TkIntersectRegion
-#ifdef MAC_OSX_TK
-VFUNC(void,TkIntersectRegion,V_TkIntersectRegion,_ANSI_ARGS_((TkRegion sra,
- TkRegion srcb, TkRegion dr_return)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,TkIntersectRegion,V_TkIntersectRegion,_ANSI_ARGS_((TkRegion sra,
- TkRegion srcb, TkRegion dr_return)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,TkIntersectRegion,V_TkIntersectRegion,_ANSI_ARGS_((TkRegion sra,
- TkRegion srcb, TkRegion dr_return)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkIntersectRegion */
-
-#ifndef TkKeysymToString
-VFUNC(char *,TkKeysymToString,V_TkKeysymToString,_ANSI_ARGS_((KeySym keysym)))
-#endif /* #ifndef TkKeysymToString */
-
-#ifndef TkPhotoGetValidRegion
-VFUNC(TkRegion,TkPhotoGetValidRegion,V_TkPhotoGetValidRegion,_ANSI_ARGS_((
- Tk_PhotoHandle handle)))
-#endif /* #ifndef TkPhotoGetValidRegion */
-
-#ifndef TkPointerEvent
-VFUNC(int,TkPointerEvent,V_TkPointerEvent,_ANSI_ARGS_((XEvent * eventPtr,
- TkWindow * winPtr)))
-#endif /* #ifndef TkPointerEvent */
-
-#ifndef TkPositionInTree
-VFUNC(int,TkPositionInTree,V_TkPositionInTree,_ANSI_ARGS_((TkWindow * winPtr,
- TkWindow * treePtr)))
-#endif /* #ifndef TkPositionInTree */
-
-#ifndef TkQueueEventForAllChildren
-VFUNC(void,TkQueueEventForAllChildren,V_TkQueueEventForAllChildren,_ANSI_ARGS_((
- TkWindow * winPtr, XEvent * eventPtr)))
-#endif /* #ifndef TkQueueEventForAllChildren */
-
-#ifndef TkReadBitmapFile
-VFUNC(int,TkReadBitmapFile,V_TkReadBitmapFile,_ANSI_ARGS_((Tcl_Interp * interp,
- Display* display,
- Drawable d, CONST char* filename,
- unsigned int* width_return,
- unsigned int* height_return,
- Pixmap* bitmap_return, int* x_hot_return,
- int* y_hot_return)))
-#endif /* #ifndef TkReadBitmapFile */
-
-#ifndef TkRectInRegion
-#ifdef MAC_OSX_TK
-VFUNC(int,TkRectInRegion,V_TkRectInRegion,_ANSI_ARGS_((TkRegion rgn, int x,
- int y, unsigned int width,
- unsigned int height)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(int,TkRectInRegion,V_TkRectInRegion,_ANSI_ARGS_((TkRegion rgn, int x,
- int y, unsigned int width,
- unsigned int height)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(int,TkRectInRegion,V_TkRectInRegion,_ANSI_ARGS_((TkRegion rgn, int x,
- int y, unsigned int width,
- unsigned int height)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkRectInRegion */
-
-#ifndef TkScrollWindow
-VFUNC(int,TkScrollWindow,V_TkScrollWindow,_ANSI_ARGS_((Tk_Window tkwin, GC gc,
- int x, int y, int width, int height, int dx,
- int dy, TkRegion damageRgn)))
-#endif /* #ifndef TkScrollWindow */
-
-#ifndef TkSelDeadWindow
-VFUNC(void,TkSelDeadWindow,V_TkSelDeadWindow,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifndef TkSelDeadWindow */
-
-#ifndef TkSelEventProc
-VFUNC(void,TkSelEventProc,V_TkSelEventProc,_ANSI_ARGS_((Tk_Window tkwin,
- XEvent * eventPtr)))
-#endif /* #ifndef TkSelEventProc */
-
-#ifndef TkSelInit
-VFUNC(void,TkSelInit,V_TkSelInit,_ANSI_ARGS_((Tk_Window tkwin)))
-#endif /* #ifndef TkSelInit */
-
-#ifndef TkSelPropProc
-VFUNC(void,TkSelPropProc,V_TkSelPropProc,_ANSI_ARGS_((XEvent * eventPtr)))
-#endif /* #ifndef TkSelPropProc */
-
-#ifndef TkSetFocusWin
-VFUNC(void,TkSetFocusWin,V_TkSetFocusWin,_ANSI_ARGS_((TkWindow * winPtr,
- int force)))
-#endif /* #ifndef TkSetFocusWin */
-
-#ifndef TkSetRegion
-#ifdef MAC_OSX_TK
-VFUNC(void,TkSetRegion,V_TkSetRegion,_ANSI_ARGS_((Display* display, GC gc,
- TkRegion rgn)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,TkSetRegion,V_TkSetRegion,_ANSI_ARGS_((Display* display, GC gc,
- TkRegion rgn)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,TkSetRegion,V_TkSetRegion,_ANSI_ARGS_((Display* display, GC gc,
- TkRegion rgn)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkSetRegion */
-
-#ifndef TkSetWindowMenuBar
-VFUNC(void,TkSetWindowMenuBar,V_TkSetWindowMenuBar,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, Tcl_Obj *oldMenuName,
- Tcl_Obj *menuName)))
-#endif /* #ifndef TkSetWindowMenuBar */
-
-#ifndef TkStringToKeysym
-VFUNC(KeySym,TkStringToKeysym,V_TkStringToKeysym,_ANSI_ARGS_((char * name)))
-#endif /* #ifndef TkStringToKeysym */
-
-#ifndef TkStylePkgFree
-VFUNC(void,TkStylePkgFree,V_TkStylePkgFree,_ANSI_ARGS_((TkMainInfo * mainPtr)))
-#endif /* #ifndef TkStylePkgFree */
-
-#ifndef TkStylePkgInit
-VFUNC(void,TkStylePkgInit,V_TkStylePkgInit,_ANSI_ARGS_((TkMainInfo * mainPtr)))
-#endif /* #ifndef TkStylePkgInit */
-
-#ifndef TkSubtractRegion
-#ifdef MAC_OSX_TK
-VFUNC(void,TkSubtractRegion,V_TkSubtractRegion,_ANSI_ARGS_((TkRegion sra,
- TkRegion srcb, TkRegion dr_return)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,TkSubtractRegion,V_TkSubtractRegion,_ANSI_ARGS_((TkRegion sra,
- TkRegion srcb, TkRegion dr_return)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,TkSubtractRegion,V_TkSubtractRegion,_ANSI_ARGS_((TkRegion sra,
- TkRegion srcb, TkRegion dr_return)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkSubtractRegion */
-
-#ifndef TkToplevelWindowForCommand
-VFUNC(Tk_Window,TkToplevelWindowForCommand,V_TkToplevelWindowForCommand,_ANSI_ARGS_((
- Tcl_Interp * interp, CONST char * cmdName)))
-#endif /* #ifndef TkToplevelWindowForCommand */
-
-#ifndef TkUnionRectWithRegion
-#ifdef MAC_OSX_TK
-VFUNC(void,TkUnionRectWithRegion,V_TkUnionRectWithRegion,_ANSI_ARGS_((XRectangle* rect,
- TkRegion src, TkRegion dr_return)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,TkUnionRectWithRegion,V_TkUnionRectWithRegion,_ANSI_ARGS_((XRectangle* rect,
- TkRegion src, TkRegion dr_return)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,TkUnionRectWithRegion,V_TkUnionRectWithRegion,_ANSI_ARGS_((XRectangle* rect,
- TkRegion src, TkRegion dr_return)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkUnionRectWithRegion */
-
-#ifndef TkWmAddToColormapWindows
-VFUNC(void,TkWmAddToColormapWindows,V_TkWmAddToColormapWindows,_ANSI_ARGS_((
- TkWindow * winPtr)))
-#endif /* #ifndef TkWmAddToColormapWindows */
-
-#ifndef TkWmDeadWindow
-VFUNC(void,TkWmDeadWindow,V_TkWmDeadWindow,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifndef TkWmDeadWindow */
-
-#ifndef TkWmFocusToplevel
-VFUNC(TkWindow *,TkWmFocusToplevel,V_TkWmFocusToplevel,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifndef TkWmFocusToplevel */
-
-#ifndef TkWmMapWindow
-VFUNC(void,TkWmMapWindow,V_TkWmMapWindow,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifndef TkWmMapWindow */
-
-#ifndef TkWmNewWindow
-VFUNC(void,TkWmNewWindow,V_TkWmNewWindow,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifndef TkWmNewWindow */
-
-#ifndef TkWmProtocolEventProc
-VFUNC(void,TkWmProtocolEventProc,V_TkWmProtocolEventProc,_ANSI_ARGS_((TkWindow * winPtr,
- XEvent * evenvPtr)))
-#endif /* #ifndef TkWmProtocolEventProc */
-
-#ifndef TkWmRemoveFromColormapWindows
-VFUNC(void,TkWmRemoveFromColormapWindows,V_TkWmRemoveFromColormapWindows,_ANSI_ARGS_((
- TkWindow * winPtr)))
-#endif /* #ifndef TkWmRemoveFromColormapWindows */
-
-#ifndef TkWmRestackToplevel
-VFUNC(void,TkWmRestackToplevel,V_TkWmRestackToplevel,_ANSI_ARGS_((TkWindow * winPtr,
- int aboveBelow, TkWindow * otherPtr)))
-#endif /* #ifndef TkWmRestackToplevel */
-
-#ifndef TkWmSetClass
-VFUNC(void,TkWmSetClass,V_TkWmSetClass,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifndef TkWmSetClass */
-
-#ifndef TkWmStackorderToplevel
-VFUNC(TkWindow **,TkWmStackorderToplevel,V_TkWmStackorderToplevel,_ANSI_ARGS_((
- TkWindow * parentPtr)))
-#endif /* #ifndef TkWmStackorderToplevel */
-
-#ifndef TkWmUnmapWindow
-VFUNC(void,TkWmUnmapWindow,V_TkWmUnmapWindow,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifndef TkWmUnmapWindow */
-
-#ifndef TkpChangeFocus
-VFUNC(int,TkpChangeFocus,V_TkpChangeFocus,_ANSI_ARGS_((TkWindow * winPtr,
- int force)))
-#endif /* #ifndef TkpChangeFocus */
-
-#ifndef TkpClaimFocus
-VFUNC(void,TkpClaimFocus,V_TkpClaimFocus,_ANSI_ARGS_((TkWindow * topLevelPtr,
- int force)))
-#endif /* #ifndef TkpClaimFocus */
-
-#ifndef TkpCloseDisplay
-VFUNC(void,TkpCloseDisplay,V_TkpCloseDisplay,_ANSI_ARGS_((TkDisplay * dispPtr)))
-#endif /* #ifndef TkpCloseDisplay */
-
-#ifndef TkpDisplayWarning
-VFUNC(void,TkpDisplayWarning,V_TkpDisplayWarning,_ANSI_ARGS_((CONST char * msg,
- CONST char * title)))
-#endif /* #ifndef TkpDisplayWarning */
-
-#ifndef TkpDrawHighlightBorder
-VFUNC(void,TkpDrawHighlightBorder,V_TkpDrawHighlightBorder,_ANSI_ARGS_((Tk_Window tkwin,
- GC fgGC, GC bgGC, int highlightWidth,
- Drawable drawable)))
-#endif /* #ifndef TkpDrawHighlightBorder */
-
-#ifndef TkpFreeCursor
-VFUNC(void,TkpFreeCursor,V_TkpFreeCursor,_ANSI_ARGS_((TkCursor * cursorPtr)))
-#endif /* #ifndef TkpFreeCursor */
-
-#ifndef TkpGetKeySym
-VFUNC(KeySym,TkpGetKeySym,V_TkpGetKeySym,_ANSI_ARGS_((TkDisplay * dispPtr,
- XEvent * eventPtr)))
-#endif /* #ifndef TkpGetKeySym */
-
-#ifndef TkpGetOtherWindow
-VFUNC(TkWindow *,TkpGetOtherWindow,V_TkpGetOtherWindow,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifndef TkpGetOtherWindow */
-
-#ifndef TkpGetString
-VFUNC(char *,TkpGetString,V_TkpGetString,_ANSI_ARGS_((TkWindow * winPtr,
- XEvent * eventPtr, Tcl_DString * dsPtr)))
-#endif /* #ifndef TkpGetString */
-
-#ifndef TkpGetSubFonts
-VFUNC(void,TkpGetSubFonts,V_TkpGetSubFonts,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Font tkfont)))
-#endif /* #ifndef TkpGetSubFonts */
-
-#ifndef TkpGetSystemDefault
-VFUNC(Tcl_Obj *,TkpGetSystemDefault,V_TkpGetSystemDefault,_ANSI_ARGS_((Tk_Window tkwin,
- CONST char * dbName, CONST char * className)))
-#endif /* #ifndef TkpGetSystemDefault */
-
-#ifndef TkpGetWrapperWindow
-VFUNC(TkWindow *,TkpGetWrapperWindow,V_TkpGetWrapperWindow,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifndef TkpGetWrapperWindow */
-
-#ifndef TkpInitKeymapInfo
-VFUNC(void,TkpInitKeymapInfo,V_TkpInitKeymapInfo,_ANSI_ARGS_((TkDisplay * dispPtr)))
-#endif /* #ifndef TkpInitKeymapInfo */
-
-#ifndef TkpInitializeMenuBindings
-VFUNC(void,TkpInitializeMenuBindings,V_TkpInitializeMenuBindings,_ANSI_ARGS_((
- Tcl_Interp * interp,
- Tk_BindingTable bindingTable)))
-#endif /* #ifndef TkpInitializeMenuBindings */
-
-#ifndef TkpMakeContainer
-VFUNC(void,TkpMakeContainer,V_TkpMakeContainer,_ANSI_ARGS_((Tk_Window tkwin)))
-#endif /* #ifndef TkpMakeContainer */
-
-#ifndef TkpMakeMenuWindow
-VFUNC(void,TkpMakeMenuWindow,V_TkpMakeMenuWindow,_ANSI_ARGS_((Tk_Window tkwin,
- int transient)))
-#endif /* #ifndef TkpMakeMenuWindow */
-
-#ifndef TkpMakeWindow
-VFUNC(Window,TkpMakeWindow,V_TkpMakeWindow,_ANSI_ARGS_((TkWindow * winPtr,
- Window parent)))
-#endif /* #ifndef TkpMakeWindow */
-
-#ifndef TkpMenuNotifyToplevelCreate
-VFUNC(void,TkpMenuNotifyToplevelCreate,V_TkpMenuNotifyToplevelCreate,_ANSI_ARGS_((
- Tcl_Interp * interp1, char * menuName)))
-#endif /* #ifndef TkpMenuNotifyToplevelCreate */
-
-#ifndef TkpMenuThreadInit
-VFUNC(void,TkpMenuThreadInit,V_TkpMenuThreadInit,_ANSI_ARGS_((void)))
-#endif /* #ifndef TkpMenuThreadInit */
-
-#ifndef TkpOpenDisplay
-VFUNC(TkDisplay *,TkpOpenDisplay,V_TkpOpenDisplay,_ANSI_ARGS_((
- CONST char * display_name)))
-#endif /* #ifndef TkpOpenDisplay */
-
-#ifndef TkpRedirectKeyEvent
-VFUNC(void,TkpRedirectKeyEvent,V_TkpRedirectKeyEvent,_ANSI_ARGS_((TkWindow * winPtr,
- XEvent * eventPtr)))
-#endif /* #ifndef TkpRedirectKeyEvent */
-
-#ifndef TkpSetKeycodeAndState
-VFUNC(void,TkpSetKeycodeAndState,V_TkpSetKeycodeAndState,_ANSI_ARGS_((Tk_Window tkwin,
- KeySym keySym, XEvent * eventPtr)))
-#endif /* #ifndef TkpSetKeycodeAndState */
-
-#ifndef TkpSetMainMenubar
-VFUNC(void,TkpSetMainMenubar,V_TkpSetMainMenubar,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, char * menuName)))
-#endif /* #ifndef TkpSetMainMenubar */
-
-#ifndef TkpUseWindow
-VFUNC(int,TkpUseWindow,V_TkpUseWindow,_ANSI_ARGS_((Tcl_Interp * interp,
- Tk_Window tkwin, Tcl_Obj *string)))
-#endif /* #ifndef TkpUseWindow */
-
-#ifndef TkpWindowWasRecentlyDeleted
-VFUNC(int,TkpWindowWasRecentlyDeleted,V_TkpWindowWasRecentlyDeleted,_ANSI_ARGS_((Window win,
- TkDisplay * dispPtr)))
-#endif /* #ifndef TkpWindowWasRecentlyDeleted */
-
-#endif /* _TKINTDECLS */
diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls_f.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls_f.h deleted file mode 100644 index 3300cb56427..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls_f.h +++ /dev/null @@ -1,14 +0,0 @@ -#ifndef TKINTDECLS_VT -#define TKINTDECLS_VT -typedef struct TkintdeclsVtab -{ - unsigned (*tabSize)(void); -#define VFUNC(type,name,mem,args) type (*mem) args; -#define VVAR(type,name,mem) type (*mem); -#include "tkIntDecls.t" -#undef VFUNC -#undef VVAR -} TkintdeclsVtab; -extern TkintdeclsVtab *TkintdeclsVptr; -extern TkintdeclsVtab *TkintdeclsVGet(void); -#endif /* TKINTDECLS_VT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls.h deleted file mode 100644 index 9636f05867b..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls.h +++ /dev/null @@ -1,1227 +0,0 @@ -/* - * tkIntPlatDecls.h -- - * - * This file contains the declarations for all platform dependent - * unsupported functions that are exported by the Tk library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - * - * RCS: @(#) $Id: tkIntPlatDecls.h,v 1.15 2002/12/08 00:46:51 hobbs Exp $ - */ - -#ifndef _TKINTPLATDECLS -#define _TKINTPLATDECLS - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tkInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -/* - * Exported function declarations: - */ - -#ifdef __WIN32__ -/* 0 */ -EXTERN char * TkAlignImageData _ANSI_ARGS_((XImage * image, - int alignment, int bitOrder)); -/* Slot 1 is reserved */ -/* 2 */ -EXTERN void TkGenerateActivateEvents _ANSI_ARGS_(( - TkWindow * winPtr, int active)); -/* 3 */ -EXTERN unsigned long TkpGetMS _ANSI_ARGS_((void)); -/* 4 */ -EXTERN void TkPointerDeadWindow _ANSI_ARGS_((TkWindow * winPtr)); -/* 5 */ -EXTERN void TkpPrintWindowId _ANSI_ARGS_((char * buf, - Window window)); -/* 6 */ -EXTERN int TkpScanWindowId _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * string, Window * idPtr)); -/* 7 */ -EXTERN void TkpSetCapture _ANSI_ARGS_((TkWindow * winPtr)); -/* 8 */ -EXTERN void TkpSetCursor _ANSI_ARGS_((TkpCursor cursor)); -/* 9 */ -EXTERN void TkpWmSetState _ANSI_ARGS_((TkWindow * winPtr, - int state)); -/* 10 */ -EXTERN void TkSetPixmapColormap _ANSI_ARGS_((Pixmap pixmap, - Colormap colormap)); -/* 11 */ -EXTERN void TkWinCancelMouseTimer _ANSI_ARGS_((void)); -/* 12 */ -EXTERN void TkWinClipboardRender _ANSI_ARGS_(( - TkDisplay * dispPtr, UINT format)); -/* 13 */ -EXTERN LRESULT TkWinEmbeddedEventProc _ANSI_ARGS_((HWND hwnd, - UINT message, WPARAM wParam, LPARAM lParam)); -/* 14 */ -EXTERN void TkWinFillRect _ANSI_ARGS_((HDC dc, int x, int y, - int width, int height, int pixel)); -/* 15 */ -EXTERN COLORREF TkWinGetBorderPixels _ANSI_ARGS_((Tk_Window tkwin, - Tk_3DBorder border, int which)); -/* 16 */ -EXTERN HDC TkWinGetDrawableDC _ANSI_ARGS_((Display * display, - Drawable d, TkWinDCState* state)); -/* 17 */ -EXTERN int TkWinGetModifierState _ANSI_ARGS_((void)); -/* 18 */ -EXTERN HPALETTE TkWinGetSystemPalette _ANSI_ARGS_((void)); -/* 19 */ -EXTERN HWND TkWinGetWrapperWindow _ANSI_ARGS_((Tk_Window tkwin)); -/* 20 */ -EXTERN int TkWinHandleMenuEvent _ANSI_ARGS_((HWND * phwnd, - UINT * pMessage, WPARAM * pwParam, - LPARAM * plParam, LRESULT * plResult)); -/* 21 */ -EXTERN int TkWinIndexOfColor _ANSI_ARGS_((XColor * colorPtr)); -/* 22 */ -EXTERN void TkWinReleaseDrawableDC _ANSI_ARGS_((Drawable d, - HDC hdc, TkWinDCState* state)); -/* 23 */ -EXTERN LRESULT TkWinResendEvent _ANSI_ARGS_((WNDPROC wndproc, - HWND hwnd, XEvent * eventPtr)); -/* 24 */ -EXTERN HPALETTE TkWinSelectPalette _ANSI_ARGS_((HDC dc, - Colormap colormap)); -/* 25 */ -EXTERN void TkWinSetMenu _ANSI_ARGS_((Tk_Window tkwin, - HMENU hMenu)); -/* 26 */ -EXTERN void TkWinSetWindowPos _ANSI_ARGS_((HWND hwnd, - HWND siblingHwnd, int pos)); -/* 27 */ -EXTERN void TkWinWmCleanup _ANSI_ARGS_((HINSTANCE hInstance)); -/* 28 */ -EXTERN void TkWinXCleanup _ANSI_ARGS_((HINSTANCE hInstance)); -/* 29 */ -EXTERN void TkWinXInit _ANSI_ARGS_((HINSTANCE hInstance)); -/* 30 */ -EXTERN void TkWinSetForegroundWindow _ANSI_ARGS_(( - TkWindow * winPtr)); -/* 31 */ -EXTERN void TkWinDialogDebug _ANSI_ARGS_((int debug)); -/* 32 */ -EXTERN Tcl_Obj * TkWinGetMenuSystemDefault _ANSI_ARGS_(( - Tk_Window tkwin, CONST char * dbName, - CONST char * className)); -/* 33 */ -EXTERN int TkWinGetPlatformId _ANSI_ARGS_((void)); -/* 34 */ -EXTERN void TkWinSetHINSTANCE _ANSI_ARGS_((HINSTANCE hInstance)); -#endif /* __WIN32__ */ -#ifdef MAC_TCL -/* 0 */ -EXTERN void TkGenerateActivateEvents _ANSI_ARGS_(( - TkWindow * winPtr, int active)); -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -/* 3 */ -EXTERN unsigned long TkpGetMS _ANSI_ARGS_((void)); -/* Slot 4 is reserved */ -/* 5 */ -EXTERN void TkPointerDeadWindow _ANSI_ARGS_((TkWindow * winPtr)); -/* 6 */ -EXTERN void TkpSetCapture _ANSI_ARGS_((TkWindow * winPtr)); -/* 7 */ -EXTERN void TkpSetCursor _ANSI_ARGS_((TkpCursor cursor)); -/* 8 */ -EXTERN void TkpWmSetState _ANSI_ARGS_((TkWindow * winPtr, - int state)); -/* Slot 9 is reserved */ -/* 10 */ -EXTERN void TkAboutDlg _ANSI_ARGS_((void)); -/* Slot 11 is reserved */ -/* Slot 12 is reserved */ -/* 13 */ -EXTERN Window TkGetTransientMaster _ANSI_ARGS_((TkWindow * winPtr)); -/* 14 */ -EXTERN int TkGenerateButtonEvent _ANSI_ARGS_((int x, int y, - Window window, unsigned int state)); -/* Slot 15 is reserved */ -/* 16 */ -EXTERN void TkGenWMDestroyEvent _ANSI_ARGS_((Tk_Window tkwin)); -/* Slot 17 is reserved */ -/* 18 */ -EXTERN unsigned int TkMacButtonKeyState _ANSI_ARGS_((void)); -/* 19 */ -EXTERN void TkMacClearMenubarActive _ANSI_ARGS_((void)); -/* Slot 20 is reserved */ -/* 21 */ -EXTERN int TkMacDispatchMenuEvent _ANSI_ARGS_((int menuID, - int index)); -/* 22 */ -EXTERN void TkMacInstallCursor _ANSI_ARGS_((int resizeOverride)); -/* Slot 23 is reserved */ -/* 24 */ -EXTERN void TkMacHandleTearoffMenu _ANSI_ARGS_((void)); -/* Slot 25 is reserved */ -/* Slot 26 is reserved */ -/* 27 */ -EXTERN void TkMacDoHLEvent _ANSI_ARGS_((EventRecord * theEvent)); -/* Slot 28 is reserved */ -/* 29 */ -EXTERN Time TkMacGenerateTime _ANSI_ARGS_((void)); -/* Slot 30 is reserved */ -/* 31 */ -EXTERN TkWindow * TkMacGetScrollbarGrowWindow _ANSI_ARGS_(( - TkWindow * winPtr)); -/* 32 */ -EXTERN Window TkMacGetXWindow _ANSI_ARGS_((WindowRef macWinPtr)); -/* 33 */ -EXTERN int TkMacGrowToplevel _ANSI_ARGS_((WindowRef whichWindow, - Point start)); -/* 34 */ -EXTERN void TkMacHandleMenuSelect _ANSI_ARGS_((long mResult, - int optionKeyPressed)); -/* Slot 35 is reserved */ -/* Slot 36 is reserved */ -/* Slot 37 is reserved */ -/* 38 */ -EXTERN void TkMacInvalidateWindow _ANSI_ARGS_(( - MacDrawable * macWin, int flag)); -/* 39 */ -EXTERN int TkMacIsCharacterMissing _ANSI_ARGS_((Tk_Font tkfont, - unsigned int searchChar)); -/* 40 */ -EXTERN void TkMacMakeRealWindowExist _ANSI_ARGS_(( - TkWindow * winPtr)); -/* 41 */ -EXTERN BitMapPtr TkMacMakeStippleMap _ANSI_ARGS_((Drawable d1, - Drawable d2)); -/* 42 */ -EXTERN void TkMacMenuClick _ANSI_ARGS_((void)); -/* 43 */ -EXTERN void TkMacRegisterOffScreenWindow _ANSI_ARGS_(( - Window window, GWorldPtr portPtr)); -/* 44 */ -EXTERN int TkMacResizable _ANSI_ARGS_((TkWindow * winPtr)); -/* Slot 45 is reserved */ -/* 46 */ -EXTERN void TkMacSetHelpMenuItemCount _ANSI_ARGS_((void)); -/* 47 */ -EXTERN void TkMacSetScrollbarGrow _ANSI_ARGS_((TkWindow * winPtr, - int flag)); -/* 48 */ -EXTERN void TkMacSetUpClippingRgn _ANSI_ARGS_((Drawable drawable)); -/* 49 */ -EXTERN void TkMacSetUpGraphicsPort _ANSI_ARGS_((GC gc)); -/* 50 */ -EXTERN void TkMacUpdateClipRgn _ANSI_ARGS_((TkWindow * winPtr)); -/* 51 */ -EXTERN void TkMacUnregisterMacWindow _ANSI_ARGS_(( - GWorldPtr portPtr)); -/* 52 */ -EXTERN int TkMacUseMenuID _ANSI_ARGS_((short macID)); -/* 53 */ -EXTERN RgnHandle TkMacVisableClipRgn _ANSI_ARGS_((TkWindow * winPtr)); -/* 54 */ -EXTERN void TkMacWinBounds _ANSI_ARGS_((TkWindow * winPtr, - Rect * geometry)); -/* 55 */ -EXTERN void TkMacWindowOffset _ANSI_ARGS_((WindowRef wRef, - int * xOffset, int * yOffset)); -/* Slot 56 is reserved */ -/* 57 */ -EXTERN int TkSetMacColor _ANSI_ARGS_((unsigned long pixel, - RGBColor * macColor)); -/* 58 */ -EXTERN void TkSetWMName _ANSI_ARGS_((TkWindow * winPtr, - Tk_Uid titleUid)); -/* 59 */ -EXTERN void TkSuspendClipboard _ANSI_ARGS_((void)); -/* Slot 60 is reserved */ -/* 61 */ -EXTERN int TkMacZoomToplevel _ANSI_ARGS_((WindowPtr whichWindow, - Point where, short zoomPart)); -/* 62 */ -EXTERN Tk_Window Tk_TopCoordsToWindow _ANSI_ARGS_((Tk_Window tkwin, - int rootX, int rootY, int * newX, int * newY)); -/* 63 */ -EXTERN MacDrawable * TkMacContainerId _ANSI_ARGS_((TkWindow * winPtr)); -/* 64 */ -EXTERN MacDrawable * TkMacGetHostToplevel _ANSI_ARGS_((TkWindow * winPtr)); -/* 65 */ -EXTERN void TkMacPreprocessMenu _ANSI_ARGS_((void)); -/* 66 */ -EXTERN int TkpIsWindowFloating _ANSI_ARGS_((WindowRef window)); -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -/* 0 */ -EXTERN void TkGenerateActivateEvents _ANSI_ARGS_(( - TkWindow * winPtr, int active)); -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -/* 3 */ -EXTERN void TkPointerDeadWindow _ANSI_ARGS_((TkWindow * winPtr)); -/* 4 */ -EXTERN void TkpSetCapture _ANSI_ARGS_((TkWindow * winPtr)); -/* 5 */ -EXTERN void TkpSetCursor _ANSI_ARGS_((TkpCursor cursor)); -/* 6 */ -EXTERN void TkpWmSetState _ANSI_ARGS_((TkWindow * winPtr, - int state)); -/* 7 */ -EXTERN void TkAboutDlg _ANSI_ARGS_((void)); -/* 8 */ -EXTERN unsigned int TkMacOSXButtonKeyState _ANSI_ARGS_((void)); -/* 9 */ -EXTERN void TkMacOSXClearMenubarActive _ANSI_ARGS_((void)); -/* 10 */ -EXTERN int TkMacOSXDispatchMenuEvent _ANSI_ARGS_((int menuID, - int index)); -/* 11 */ -EXTERN void TkMacOSXInstallCursor _ANSI_ARGS_(( - int resizeOverride)); -/* 12 */ -EXTERN void TkMacOSXHandleTearoffMenu _ANSI_ARGS_((void)); -/* Slot 13 is reserved */ -/* 14 */ -EXTERN int TkMacOSXDoHLEvent _ANSI_ARGS_(( - EventRecord * theEvent)); -/* Slot 15 is reserved */ -/* 16 */ -EXTERN Window TkMacOSXGetXWindow _ANSI_ARGS_((WindowRef macWinPtr)); -/* 17 */ -EXTERN int TkMacOSXGrowToplevel _ANSI_ARGS_(( - WindowRef whichWindow, Point start)); -/* 18 */ -EXTERN void TkMacOSXHandleMenuSelect _ANSI_ARGS_((long mResult, - int optionKeyPressed)); -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* 21 */ -EXTERN void TkMacOSXInvalidateWindow _ANSI_ARGS_(( - MacDrawable * macWin, int flag)); -/* 22 */ -EXTERN int TkMacOSXIsCharacterMissing _ANSI_ARGS_(( - Tk_Font tkfont, unsigned int searchChar)); -/* 23 */ -EXTERN void TkMacOSXMakeRealWindowExist _ANSI_ARGS_(( - TkWindow * winPtr)); -/* 24 */ -EXTERN BitMapPtr TkMacOSXMakeStippleMap _ANSI_ARGS_((Drawable d1, - Drawable d2)); -/* 25 */ -EXTERN void TkMacOSXMenuClick _ANSI_ARGS_((void)); -/* 26 */ -EXTERN void TkMacOSXRegisterOffScreenWindow _ANSI_ARGS_(( - Window window, GWorldPtr portPtr)); -/* 27 */ -EXTERN int TkMacOSXResizable _ANSI_ARGS_((TkWindow * winPtr)); -/* 28 */ -EXTERN void TkMacOSXSetHelpMenuItemCount _ANSI_ARGS_((void)); -/* 29 */ -EXTERN void TkMacOSXSetScrollbarGrow _ANSI_ARGS_(( - TkWindow * winPtr, int flag)); -/* 30 */ -EXTERN void TkMacOSXSetUpClippingRgn _ANSI_ARGS_(( - Drawable drawable)); -/* 31 */ -EXTERN void TkMacOSXSetUpGraphicsPort _ANSI_ARGS_((GC gc, - GWorldPtr destPort)); -/* 32 */ -EXTERN void TkMacOSXUpdateClipRgn _ANSI_ARGS_((TkWindow * winPtr)); -/* 33 */ -EXTERN void TkMacOSXUnregisterMacWindow _ANSI_ARGS_(( - WindowRef portPtr)); -/* 34 */ -EXTERN int TkMacOSXUseMenuID _ANSI_ARGS_((short macID)); -/* 35 */ -EXTERN RgnHandle TkMacOSXVisableClipRgn _ANSI_ARGS_(( - TkWindow * winPtr)); -/* 36 */ -EXTERN void TkMacOSXWinBounds _ANSI_ARGS_((TkWindow * winPtr, - Rect * geometry)); -/* 37 */ -EXTERN void TkMacOSXWindowOffset _ANSI_ARGS_((WindowRef wRef, - int * xOffset, int * yOffset)); -/* 38 */ -EXTERN int TkSetMacColor _ANSI_ARGS_((unsigned long pixel, - RGBColor * macColor)); -/* 39 */ -EXTERN void TkSetWMName _ANSI_ARGS_((TkWindow * winPtr, - Tk_Uid titleUid)); -/* 40 */ -EXTERN void TkSuspendClipboard _ANSI_ARGS_((void)); -/* 41 */ -EXTERN int TkMacOSXZoomToplevel _ANSI_ARGS_(( - WindowPtr whichWindow, Point where, - short zoomPart)); -/* 42 */ -EXTERN Tk_Window Tk_TopCoordsToWindow _ANSI_ARGS_((Tk_Window tkwin, - int rootX, int rootY, int * newX, int * newY)); -/* 43 */ -EXTERN MacDrawable * TkMacOSXContainerId _ANSI_ARGS_((TkWindow * winPtr)); -/* 44 */ -EXTERN MacDrawable * TkMacOSXGetHostToplevel _ANSI_ARGS_(( - TkWindow * winPtr)); -/* 45 */ -EXTERN void TkMacOSXPreprocessMenu _ANSI_ARGS_((void)); -/* 46 */ -EXTERN int TkpIsWindowFloating _ANSI_ARGS_((WindowRef window)); -/* 47 */ -EXTERN Tk_Window TkMacOSXGetCapture _ANSI_ARGS_((void)); -/* Slot 48 is reserved */ -/* 49 */ -EXTERN Window TkGetTransientMaster _ANSI_ARGS_((TkWindow * winPtr)); -/* 50 */ -EXTERN int TkGenerateButtonEvent _ANSI_ARGS_((int x, int y, - Window window, unsigned int state)); -/* 51 */ -EXTERN void TkGenWMDestroyEvent _ANSI_ARGS_((Tk_Window tkwin)); -/* Slot 52 is reserved */ -/* 53 */ -EXTERN unsigned long TkpGetMS _ANSI_ARGS_((void)); -#endif /* MAC_OSX_TK */ -#if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK)) /* X11 */ -/* 0 */ -EXTERN void TkCreateXEventSource _ANSI_ARGS_((void)); -/* 1 */ -EXTERN void TkFreeWindowId _ANSI_ARGS_((TkDisplay * dispPtr, - Window w)); -/* 2 */ -EXTERN void TkInitXId _ANSI_ARGS_((TkDisplay * dispPtr)); -/* 3 */ -EXTERN int TkpCmapStressed _ANSI_ARGS_((Tk_Window tkwin, - Colormap colormap)); -/* 4 */ -EXTERN void TkpSync _ANSI_ARGS_((Display * display)); -/* 5 */ -EXTERN Window TkUnixContainerId _ANSI_ARGS_((TkWindow * winPtr)); -/* 6 */ -EXTERN int TkUnixDoOneXEvent _ANSI_ARGS_((Tcl_Time * timePtr)); -/* 7 */ -EXTERN void TkUnixSetMenubar _ANSI_ARGS_((Tk_Window tkwin, - Tk_Window menubar)); -/* 8 */ -EXTERN int TkpScanWindowId _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj *string, Window * idPtr)); -/* 9 */ -EXTERN void TkWmCleanup _ANSI_ARGS_((TkDisplay * dispPtr)); -/* 10 */ -EXTERN void TkSendCleanup _ANSI_ARGS_((TkDisplay * dispPtr)); -/* 11 */ -EXTERN void TkFreeXId _ANSI_ARGS_((TkDisplay * dispPtr)); -/* 12 */ -EXTERN int TkpWmSetState _ANSI_ARGS_((TkWindow * winPtr, - int state)); -#endif /* X11 */ - -typedef struct TkIntPlatStubs { - int magic; - struct TkIntPlatStubHooks *hooks; - -#ifdef __WIN32__ - char * (*tkAlignImageData) _ANSI_ARGS_((XImage * image, int alignment, int bitOrder)); /* 0 */ - void *reserved1; - void (*tkGenerateActivateEvents) _ANSI_ARGS_((TkWindow * winPtr, int active)); /* 2 */ - unsigned long (*tkpGetMS) _ANSI_ARGS_((void)); /* 3 */ - void (*tkPointerDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 4 */ - void (*tkpPrintWindowId) _ANSI_ARGS_((char * buf, Window window)); /* 5 */ - int (*tkpScanWindowId) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * string, Window * idPtr)); /* 6 */ - void (*tkpSetCapture) _ANSI_ARGS_((TkWindow * winPtr)); /* 7 */ - void (*tkpSetCursor) _ANSI_ARGS_((TkpCursor cursor)); /* 8 */ - void (*tkpWmSetState) _ANSI_ARGS_((TkWindow * winPtr, int state)); /* 9 */ - void (*tkSetPixmapColormap) _ANSI_ARGS_((Pixmap pixmap, Colormap colormap)); /* 10 */ - void (*tkWinCancelMouseTimer) _ANSI_ARGS_((void)); /* 11 */ - void (*tkWinClipboardRender) _ANSI_ARGS_((TkDisplay * dispPtr, UINT format)); /* 12 */ - LRESULT (*tkWinEmbeddedEventProc) _ANSI_ARGS_((HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)); /* 13 */ - void (*tkWinFillRect) _ANSI_ARGS_((HDC dc, int x, int y, int width, int height, int pixel)); /* 14 */ - COLORREF (*tkWinGetBorderPixels) _ANSI_ARGS_((Tk_Window tkwin, Tk_3DBorder border, int which)); /* 15 */ - HDC (*tkWinGetDrawableDC) _ANSI_ARGS_((Display * display, Drawable d, TkWinDCState* state)); /* 16 */ - int (*tkWinGetModifierState) _ANSI_ARGS_((void)); /* 17 */ - HPALETTE (*tkWinGetSystemPalette) _ANSI_ARGS_((void)); /* 18 */ - HWND (*tkWinGetWrapperWindow) _ANSI_ARGS_((Tk_Window tkwin)); /* 19 */ - int (*tkWinHandleMenuEvent) _ANSI_ARGS_((HWND * phwnd, UINT * pMessage, WPARAM * pwParam, LPARAM * plParam, LRESULT * plResult)); /* 20 */ - int (*tkWinIndexOfColor) _ANSI_ARGS_((XColor * colorPtr)); /* 21 */ - void (*tkWinReleaseDrawableDC) _ANSI_ARGS_((Drawable d, HDC hdc, TkWinDCState* state)); /* 22 */ - LRESULT (*tkWinResendEvent) _ANSI_ARGS_((WNDPROC wndproc, HWND hwnd, XEvent * eventPtr)); /* 23 */ - HPALETTE (*tkWinSelectPalette) _ANSI_ARGS_((HDC dc, Colormap colormap)); /* 24 */ - void (*tkWinSetMenu) _ANSI_ARGS_((Tk_Window tkwin, HMENU hMenu)); /* 25 */ - void (*tkWinSetWindowPos) _ANSI_ARGS_((HWND hwnd, HWND siblingHwnd, int pos)); /* 26 */ - void (*tkWinWmCleanup) _ANSI_ARGS_((HINSTANCE hInstance)); /* 27 */ - void (*tkWinXCleanup) _ANSI_ARGS_((HINSTANCE hInstance)); /* 28 */ - void (*tkWinXInit) _ANSI_ARGS_((HINSTANCE hInstance)); /* 29 */ - void (*tkWinSetForegroundWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 30 */ - void (*tkWinDialogDebug) _ANSI_ARGS_((int debug)); /* 31 */ - Tcl_Obj * (*tkWinGetMenuSystemDefault) _ANSI_ARGS_((Tk_Window tkwin, CONST char * dbName, CONST char * className)); /* 32 */ - int (*tkWinGetPlatformId) _ANSI_ARGS_((void)); /* 33 */ - void (*tkWinSetHINSTANCE) _ANSI_ARGS_((HINSTANCE hInstance)); /* 34 */ -#endif /* __WIN32__ */ -#ifdef MAC_TCL - void (*tkGenerateActivateEvents) _ANSI_ARGS_((TkWindow * winPtr, int active)); /* 0 */ - void *reserved1; - void *reserved2; - unsigned long (*tkpGetMS) _ANSI_ARGS_((void)); /* 3 */ - void *reserved4; - void (*tkPointerDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 5 */ - void (*tkpSetCapture) _ANSI_ARGS_((TkWindow * winPtr)); /* 6 */ - void (*tkpSetCursor) _ANSI_ARGS_((TkpCursor cursor)); /* 7 */ - void (*tkpWmSetState) _ANSI_ARGS_((TkWindow * winPtr, int state)); /* 8 */ - void *reserved9; - void (*tkAboutDlg) _ANSI_ARGS_((void)); /* 10 */ - void *reserved11; - void *reserved12; - Window (*tkGetTransientMaster) _ANSI_ARGS_((TkWindow * winPtr)); /* 13 */ - int (*tkGenerateButtonEvent) _ANSI_ARGS_((int x, int y, Window window, unsigned int state)); /* 14 */ - void *reserved15; - void (*tkGenWMDestroyEvent) _ANSI_ARGS_((Tk_Window tkwin)); /* 16 */ - void *reserved17; - unsigned int (*tkMacButtonKeyState) _ANSI_ARGS_((void)); /* 18 */ - void (*tkMacClearMenubarActive) _ANSI_ARGS_((void)); /* 19 */ - void *reserved20; - int (*tkMacDispatchMenuEvent) _ANSI_ARGS_((int menuID, int index)); /* 21 */ - void (*tkMacInstallCursor) _ANSI_ARGS_((int resizeOverride)); /* 22 */ - void *reserved23; - void (*tkMacHandleTearoffMenu) _ANSI_ARGS_((void)); /* 24 */ - void *reserved25; - void *reserved26; - void (*tkMacDoHLEvent) _ANSI_ARGS_((EventRecord * theEvent)); /* 27 */ - void *reserved28; - Time (*tkMacGenerateTime) _ANSI_ARGS_((void)); /* 29 */ - void *reserved30; - TkWindow * (*tkMacGetScrollbarGrowWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 31 */ - Window (*tkMacGetXWindow) _ANSI_ARGS_((WindowRef macWinPtr)); /* 32 */ - int (*tkMacGrowToplevel) _ANSI_ARGS_((WindowRef whichWindow, Point start)); /* 33 */ - void (*tkMacHandleMenuSelect) _ANSI_ARGS_((long mResult, int optionKeyPressed)); /* 34 */ - void *reserved35; - void *reserved36; - void *reserved37; - void (*tkMacInvalidateWindow) _ANSI_ARGS_((MacDrawable * macWin, int flag)); /* 38 */ - int (*tkMacIsCharacterMissing) _ANSI_ARGS_((Tk_Font tkfont, unsigned int searchChar)); /* 39 */ - void (*tkMacMakeRealWindowExist) _ANSI_ARGS_((TkWindow * winPtr)); /* 40 */ - BitMapPtr (*tkMacMakeStippleMap) _ANSI_ARGS_((Drawable d1, Drawable d2)); /* 41 */ - void (*tkMacMenuClick) _ANSI_ARGS_((void)); /* 42 */ - void (*tkMacRegisterOffScreenWindow) _ANSI_ARGS_((Window window, GWorldPtr portPtr)); /* 43 */ - int (*tkMacResizable) _ANSI_ARGS_((TkWindow * winPtr)); /* 44 */ - void *reserved45; - void (*tkMacSetHelpMenuItemCount) _ANSI_ARGS_((void)); /* 46 */ - void (*tkMacSetScrollbarGrow) _ANSI_ARGS_((TkWindow * winPtr, int flag)); /* 47 */ - void (*tkMacSetUpClippingRgn) _ANSI_ARGS_((Drawable drawable)); /* 48 */ - void (*tkMacSetUpGraphicsPort) _ANSI_ARGS_((GC gc)); /* 49 */ - void (*tkMacUpdateClipRgn) _ANSI_ARGS_((TkWindow * winPtr)); /* 50 */ - void (*tkMacUnregisterMacWindow) _ANSI_ARGS_((GWorldPtr portPtr)); /* 51 */ - int (*tkMacUseMenuID) _ANSI_ARGS_((short macID)); /* 52 */ - RgnHandle (*tkMacVisableClipRgn) _ANSI_ARGS_((TkWindow * winPtr)); /* 53 */ - void (*tkMacWinBounds) _ANSI_ARGS_((TkWindow * winPtr, Rect * geometry)); /* 54 */ - void (*tkMacWindowOffset) _ANSI_ARGS_((WindowRef wRef, int * xOffset, int * yOffset)); /* 55 */ - void *reserved56; - int (*tkSetMacColor) _ANSI_ARGS_((unsigned long pixel, RGBColor * macColor)); /* 57 */ - void (*tkSetWMName) _ANSI_ARGS_((TkWindow * winPtr, Tk_Uid titleUid)); /* 58 */ - void (*tkSuspendClipboard) _ANSI_ARGS_((void)); /* 59 */ - void *reserved60; - int (*tkMacZoomToplevel) _ANSI_ARGS_((WindowPtr whichWindow, Point where, short zoomPart)); /* 61 */ - Tk_Window (*tk_TopCoordsToWindow) _ANSI_ARGS_((Tk_Window tkwin, int rootX, int rootY, int * newX, int * newY)); /* 62 */ - MacDrawable * (*tkMacContainerId) _ANSI_ARGS_((TkWindow * winPtr)); /* 63 */ - MacDrawable * (*tkMacGetHostToplevel) _ANSI_ARGS_((TkWindow * winPtr)); /* 64 */ - void (*tkMacPreprocessMenu) _ANSI_ARGS_((void)); /* 65 */ - int (*tkpIsWindowFloating) _ANSI_ARGS_((WindowRef window)); /* 66 */ -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK - void (*tkGenerateActivateEvents) _ANSI_ARGS_((TkWindow * winPtr, int active)); /* 0 */ - void *reserved1; - void *reserved2; - void (*tkPointerDeadWindow) _ANSI_ARGS_((TkWindow * winPtr)); /* 3 */ - void (*tkpSetCapture) _ANSI_ARGS_((TkWindow * winPtr)); /* 4 */ - void (*tkpSetCursor) _ANSI_ARGS_((TkpCursor cursor)); /* 5 */ - void (*tkpWmSetState) _ANSI_ARGS_((TkWindow * winPtr, int state)); /* 6 */ - void (*tkAboutDlg) _ANSI_ARGS_((void)); /* 7 */ - unsigned int (*tkMacOSXButtonKeyState) _ANSI_ARGS_((void)); /* 8 */ - void (*tkMacOSXClearMenubarActive) _ANSI_ARGS_((void)); /* 9 */ - int (*tkMacOSXDispatchMenuEvent) _ANSI_ARGS_((int menuID, int index)); /* 10 */ - void (*tkMacOSXInstallCursor) _ANSI_ARGS_((int resizeOverride)); /* 11 */ - void (*tkMacOSXHandleTearoffMenu) _ANSI_ARGS_((void)); /* 12 */ - void *reserved13; - int (*tkMacOSXDoHLEvent) _ANSI_ARGS_((EventRecord * theEvent)); /* 14 */ - void *reserved15; - Window (*tkMacOSXGetXWindow) _ANSI_ARGS_((WindowRef macWinPtr)); /* 16 */ - int (*tkMacOSXGrowToplevel) _ANSI_ARGS_((WindowRef whichWindow, Point start)); /* 17 */ - void (*tkMacOSXHandleMenuSelect) _ANSI_ARGS_((long mResult, int optionKeyPressed)); /* 18 */ - void *reserved19; - void *reserved20; - void (*tkMacOSXInvalidateWindow) _ANSI_ARGS_((MacDrawable * macWin, int flag)); /* 21 */ - int (*tkMacOSXIsCharacterMissing) _ANSI_ARGS_((Tk_Font tkfont, unsigned int searchChar)); /* 22 */ - void (*tkMacOSXMakeRealWindowExist) _ANSI_ARGS_((TkWindow * winPtr)); /* 23 */ - BitMapPtr (*tkMacOSXMakeStippleMap) _ANSI_ARGS_((Drawable d1, Drawable d2)); /* 24 */ - void (*tkMacOSXMenuClick) _ANSI_ARGS_((void)); /* 25 */ - void (*tkMacOSXRegisterOffScreenWindow) _ANSI_ARGS_((Window window, GWorldPtr portPtr)); /* 26 */ - int (*tkMacOSXResizable) _ANSI_ARGS_((TkWindow * winPtr)); /* 27 */ - void (*tkMacOSXSetHelpMenuItemCount) _ANSI_ARGS_((void)); /* 28 */ - void (*tkMacOSXSetScrollbarGrow) _ANSI_ARGS_((TkWindow * winPtr, int flag)); /* 29 */ - void (*tkMacOSXSetUpClippingRgn) _ANSI_ARGS_((Drawable drawable)); /* 30 */ - void (*tkMacOSXSetUpGraphicsPort) _ANSI_ARGS_((GC gc, GWorldPtr destPort)); /* 31 */ - void (*tkMacOSXUpdateClipRgn) _ANSI_ARGS_((TkWindow * winPtr)); /* 32 */ - void (*tkMacOSXUnregisterMacWindow) _ANSI_ARGS_((WindowRef portPtr)); /* 33 */ - int (*tkMacOSXUseMenuID) _ANSI_ARGS_((short macID)); /* 34 */ - RgnHandle (*tkMacOSXVisableClipRgn) _ANSI_ARGS_((TkWindow * winPtr)); /* 35 */ - void (*tkMacOSXWinBounds) _ANSI_ARGS_((TkWindow * winPtr, Rect * geometry)); /* 36 */ - void (*tkMacOSXWindowOffset) _ANSI_ARGS_((WindowRef wRef, int * xOffset, int * yOffset)); /* 37 */ - int (*tkSetMacColor) _ANSI_ARGS_((unsigned long pixel, RGBColor * macColor)); /* 38 */ - void (*tkSetWMName) _ANSI_ARGS_((TkWindow * winPtr, Tk_Uid titleUid)); /* 39 */ - void (*tkSuspendClipboard) _ANSI_ARGS_((void)); /* 40 */ - int (*tkMacOSXZoomToplevel) _ANSI_ARGS_((WindowPtr whichWindow, Point where, short zoomPart)); /* 41 */ - Tk_Window (*tk_TopCoordsToWindow) _ANSI_ARGS_((Tk_Window tkwin, int rootX, int rootY, int * newX, int * newY)); /* 42 */ - MacDrawable * (*tkMacOSXContainerId) _ANSI_ARGS_((TkWindow * winPtr)); /* 43 */ - MacDrawable * (*tkMacOSXGetHostToplevel) _ANSI_ARGS_((TkWindow * winPtr)); /* 44 */ - void (*tkMacOSXPreprocessMenu) _ANSI_ARGS_((void)); /* 45 */ - int (*tkpIsWindowFloating) _ANSI_ARGS_((WindowRef window)); /* 46 */ - Tk_Window (*tkMacOSXGetCapture) _ANSI_ARGS_((void)); /* 47 */ - void *reserved48; - Window (*tkGetTransientMaster) _ANSI_ARGS_((TkWindow * winPtr)); /* 49 */ - int (*tkGenerateButtonEvent) _ANSI_ARGS_((int x, int y, Window window, unsigned int state)); /* 50 */ - void (*tkGenWMDestroyEvent) _ANSI_ARGS_((Tk_Window tkwin)); /* 51 */ - void *reserved52; - unsigned long (*tkpGetMS) _ANSI_ARGS_((void)); /* 53 */ -#endif /* MAC_OSX_TK */ -#if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK)) /* X11 */ - void (*tkCreateXEventSource) _ANSI_ARGS_((void)); /* 0 */ - void (*tkFreeWindowId) _ANSI_ARGS_((TkDisplay * dispPtr, Window w)); /* 1 */ - void (*tkInitXId) _ANSI_ARGS_((TkDisplay * dispPtr)); /* 2 */ - int (*tkpCmapStressed) _ANSI_ARGS_((Tk_Window tkwin, Colormap colormap)); /* 3 */ - void (*tkpSync) _ANSI_ARGS_((Display * display)); /* 4 */ - Window (*tkUnixContainerId) _ANSI_ARGS_((TkWindow * winPtr)); /* 5 */ - int (*tkUnixDoOneXEvent) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 6 */ - void (*tkUnixSetMenubar) _ANSI_ARGS_((Tk_Window tkwin, Tk_Window menubar)); /* 7 */ - int (*tkpScanWindowId) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * string, Window * idPtr)); /* 8 */ - void (*tkWmCleanup) _ANSI_ARGS_((TkDisplay * dispPtr)); /* 9 */ - void (*tkSendCleanup) _ANSI_ARGS_((TkDisplay * dispPtr)); /* 10 */ - void (*tkFreeXId) _ANSI_ARGS_((TkDisplay * dispPtr)); /* 11 */ - int (*tkpWmSetState) _ANSI_ARGS_((TkWindow * winPtr, int state)); /* 12 */ -#endif /* X11 */ -} TkIntPlatStubs; - -#ifdef __cplusplus -extern "C" { -#endif -extern TkIntPlatStubs *tkIntPlatStubsPtr; -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifdef __WIN32__ -#ifndef TkAlignImageData -#define TkAlignImageData \ - (tkIntPlatStubsPtr->tkAlignImageData) /* 0 */ -#endif -/* Slot 1 is reserved */ -#ifndef TkGenerateActivateEvents -#define TkGenerateActivateEvents \ - (tkIntPlatStubsPtr->tkGenerateActivateEvents) /* 2 */ -#endif -#ifndef TkpGetMS -#define TkpGetMS \ - (tkIntPlatStubsPtr->tkpGetMS) /* 3 */ -#endif -#ifndef TkPointerDeadWindow -#define TkPointerDeadWindow \ - (tkIntPlatStubsPtr->tkPointerDeadWindow) /* 4 */ -#endif -#ifndef TkpPrintWindowId -#define TkpPrintWindowId \ - (tkIntPlatStubsPtr->tkpPrintWindowId) /* 5 */ -#endif -#ifndef TkpScanWindowId -#define TkpScanWindowId \ - (tkIntPlatStubsPtr->tkpScanWindowId) /* 6 */ -#endif -#ifndef TkpSetCapture -#define TkpSetCapture \ - (tkIntPlatStubsPtr->tkpSetCapture) /* 7 */ -#endif -#ifndef TkpSetCursor -#define TkpSetCursor \ - (tkIntPlatStubsPtr->tkpSetCursor) /* 8 */ -#endif -#ifndef TkpWmSetState -#define TkpWmSetState \ - (tkIntPlatStubsPtr->tkpWmSetState) /* 9 */ -#endif -#ifndef TkSetPixmapColormap -#define TkSetPixmapColormap \ - (tkIntPlatStubsPtr->tkSetPixmapColormap) /* 10 */ -#endif -#ifndef TkWinCancelMouseTimer -#define TkWinCancelMouseTimer \ - (tkIntPlatStubsPtr->tkWinCancelMouseTimer) /* 11 */ -#endif -#ifndef TkWinClipboardRender -#define TkWinClipboardRender \ - (tkIntPlatStubsPtr->tkWinClipboardRender) /* 12 */ -#endif -#ifndef TkWinEmbeddedEventProc -#define TkWinEmbeddedEventProc \ - (tkIntPlatStubsPtr->tkWinEmbeddedEventProc) /* 13 */ -#endif -#ifndef TkWinFillRect -#define TkWinFillRect \ - (tkIntPlatStubsPtr->tkWinFillRect) /* 14 */ -#endif -#ifndef TkWinGetBorderPixels -#define TkWinGetBorderPixels \ - (tkIntPlatStubsPtr->tkWinGetBorderPixels) /* 15 */ -#endif -#ifndef TkWinGetDrawableDC -#define TkWinGetDrawableDC \ - (tkIntPlatStubsPtr->tkWinGetDrawableDC) /* 16 */ -#endif -#ifndef TkWinGetModifierState -#define TkWinGetModifierState \ - (tkIntPlatStubsPtr->tkWinGetModifierState) /* 17 */ -#endif -#ifndef TkWinGetSystemPalette -#define TkWinGetSystemPalette \ - (tkIntPlatStubsPtr->tkWinGetSystemPalette) /* 18 */ -#endif -#ifndef TkWinGetWrapperWindow -#define TkWinGetWrapperWindow \ - (tkIntPlatStubsPtr->tkWinGetWrapperWindow) /* 19 */ -#endif -#ifndef TkWinHandleMenuEvent -#define TkWinHandleMenuEvent \ - (tkIntPlatStubsPtr->tkWinHandleMenuEvent) /* 20 */ -#endif -#ifndef TkWinIndexOfColor -#define TkWinIndexOfColor \ - (tkIntPlatStubsPtr->tkWinIndexOfColor) /* 21 */ -#endif -#ifndef TkWinReleaseDrawableDC -#define TkWinReleaseDrawableDC \ - (tkIntPlatStubsPtr->tkWinReleaseDrawableDC) /* 22 */ -#endif -#ifndef TkWinResendEvent -#define TkWinResendEvent \ - (tkIntPlatStubsPtr->tkWinResendEvent) /* 23 */ -#endif -#ifndef TkWinSelectPalette -#define TkWinSelectPalette \ - (tkIntPlatStubsPtr->tkWinSelectPalette) /* 24 */ -#endif -#ifndef TkWinSetMenu -#define TkWinSetMenu \ - (tkIntPlatStubsPtr->tkWinSetMenu) /* 25 */ -#endif -#ifndef TkWinSetWindowPos -#define TkWinSetWindowPos \ - (tkIntPlatStubsPtr->tkWinSetWindowPos) /* 26 */ -#endif -#ifndef TkWinWmCleanup -#define TkWinWmCleanup \ - (tkIntPlatStubsPtr->tkWinWmCleanup) /* 27 */ -#endif -#ifndef TkWinXCleanup -#define TkWinXCleanup \ - (tkIntPlatStubsPtr->tkWinXCleanup) /* 28 */ -#endif -#ifndef TkWinXInit -#define TkWinXInit \ - (tkIntPlatStubsPtr->tkWinXInit) /* 29 */ -#endif -#ifndef TkWinSetForegroundWindow -#define TkWinSetForegroundWindow \ - (tkIntPlatStubsPtr->tkWinSetForegroundWindow) /* 30 */ -#endif -#ifndef TkWinDialogDebug -#define TkWinDialogDebug \ - (tkIntPlatStubsPtr->tkWinDialogDebug) /* 31 */ -#endif -#ifndef TkWinGetMenuSystemDefault -#define TkWinGetMenuSystemDefault \ - (tkIntPlatStubsPtr->tkWinGetMenuSystemDefault) /* 32 */ -#endif -#ifndef TkWinGetPlatformId -#define TkWinGetPlatformId \ - (tkIntPlatStubsPtr->tkWinGetPlatformId) /* 33 */ -#endif -#ifndef TkWinSetHINSTANCE -#define TkWinSetHINSTANCE \ - (tkIntPlatStubsPtr->tkWinSetHINSTANCE) /* 34 */ -#endif -#endif /* __WIN32__ */ -#ifdef MAC_TCL -#ifndef TkGenerateActivateEvents -#define TkGenerateActivateEvents \ - (tkIntPlatStubsPtr->tkGenerateActivateEvents) /* 0 */ -#endif -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -#ifndef TkpGetMS -#define TkpGetMS \ - (tkIntPlatStubsPtr->tkpGetMS) /* 3 */ -#endif -/* Slot 4 is reserved */ -#ifndef TkPointerDeadWindow -#define TkPointerDeadWindow \ - (tkIntPlatStubsPtr->tkPointerDeadWindow) /* 5 */ -#endif -#ifndef TkpSetCapture -#define TkpSetCapture \ - (tkIntPlatStubsPtr->tkpSetCapture) /* 6 */ -#endif -#ifndef TkpSetCursor -#define TkpSetCursor \ - (tkIntPlatStubsPtr->tkpSetCursor) /* 7 */ -#endif -#ifndef TkpWmSetState -#define TkpWmSetState \ - (tkIntPlatStubsPtr->tkpWmSetState) /* 8 */ -#endif -/* Slot 9 is reserved */ -#ifndef TkAboutDlg -#define TkAboutDlg \ - (tkIntPlatStubsPtr->tkAboutDlg) /* 10 */ -#endif -/* Slot 11 is reserved */ -/* Slot 12 is reserved */ -#ifndef TkGetTransientMaster -#define TkGetTransientMaster \ - (tkIntPlatStubsPtr->tkGetTransientMaster) /* 13 */ -#endif -#ifndef TkGenerateButtonEvent -#define TkGenerateButtonEvent \ - (tkIntPlatStubsPtr->tkGenerateButtonEvent) /* 14 */ -#endif -/* Slot 15 is reserved */ -#ifndef TkGenWMDestroyEvent -#define TkGenWMDestroyEvent \ - (tkIntPlatStubsPtr->tkGenWMDestroyEvent) /* 16 */ -#endif -/* Slot 17 is reserved */ -#ifndef TkMacButtonKeyState -#define TkMacButtonKeyState \ - (tkIntPlatStubsPtr->tkMacButtonKeyState) /* 18 */ -#endif -#ifndef TkMacClearMenubarActive -#define TkMacClearMenubarActive \ - (tkIntPlatStubsPtr->tkMacClearMenubarActive) /* 19 */ -#endif -/* Slot 20 is reserved */ -#ifndef TkMacDispatchMenuEvent -#define TkMacDispatchMenuEvent \ - (tkIntPlatStubsPtr->tkMacDispatchMenuEvent) /* 21 */ -#endif -#ifndef TkMacInstallCursor -#define TkMacInstallCursor \ - (tkIntPlatStubsPtr->tkMacInstallCursor) /* 22 */ -#endif -/* Slot 23 is reserved */ -#ifndef TkMacHandleTearoffMenu -#define TkMacHandleTearoffMenu \ - (tkIntPlatStubsPtr->tkMacHandleTearoffMenu) /* 24 */ -#endif -/* Slot 25 is reserved */ -/* Slot 26 is reserved */ -#ifndef TkMacDoHLEvent -#define TkMacDoHLEvent \ - (tkIntPlatStubsPtr->tkMacDoHLEvent) /* 27 */ -#endif -/* Slot 28 is reserved */ -#ifndef TkMacGenerateTime -#define TkMacGenerateTime \ - (tkIntPlatStubsPtr->tkMacGenerateTime) /* 29 */ -#endif -/* Slot 30 is reserved */ -#ifndef TkMacGetScrollbarGrowWindow -#define TkMacGetScrollbarGrowWindow \ - (tkIntPlatStubsPtr->tkMacGetScrollbarGrowWindow) /* 31 */ -#endif -#ifndef TkMacGetXWindow -#define TkMacGetXWindow \ - (tkIntPlatStubsPtr->tkMacGetXWindow) /* 32 */ -#endif -#ifndef TkMacGrowToplevel -#define TkMacGrowToplevel \ - (tkIntPlatStubsPtr->tkMacGrowToplevel) /* 33 */ -#endif -#ifndef TkMacHandleMenuSelect -#define TkMacHandleMenuSelect \ - (tkIntPlatStubsPtr->tkMacHandleMenuSelect) /* 34 */ -#endif -/* Slot 35 is reserved */ -/* Slot 36 is reserved */ -/* Slot 37 is reserved */ -#ifndef TkMacInvalidateWindow -#define TkMacInvalidateWindow \ - (tkIntPlatStubsPtr->tkMacInvalidateWindow) /* 38 */ -#endif -#ifndef TkMacIsCharacterMissing -#define TkMacIsCharacterMissing \ - (tkIntPlatStubsPtr->tkMacIsCharacterMissing) /* 39 */ -#endif -#ifndef TkMacMakeRealWindowExist -#define TkMacMakeRealWindowExist \ - (tkIntPlatStubsPtr->tkMacMakeRealWindowExist) /* 40 */ -#endif -#ifndef TkMacMakeStippleMap -#define TkMacMakeStippleMap \ - (tkIntPlatStubsPtr->tkMacMakeStippleMap) /* 41 */ -#endif -#ifndef TkMacMenuClick -#define TkMacMenuClick \ - (tkIntPlatStubsPtr->tkMacMenuClick) /* 42 */ -#endif -#ifndef TkMacRegisterOffScreenWindow -#define TkMacRegisterOffScreenWindow \ - (tkIntPlatStubsPtr->tkMacRegisterOffScreenWindow) /* 43 */ -#endif -#ifndef TkMacResizable -#define TkMacResizable \ - (tkIntPlatStubsPtr->tkMacResizable) /* 44 */ -#endif -/* Slot 45 is reserved */ -#ifndef TkMacSetHelpMenuItemCount -#define TkMacSetHelpMenuItemCount \ - (tkIntPlatStubsPtr->tkMacSetHelpMenuItemCount) /* 46 */ -#endif -#ifndef TkMacSetScrollbarGrow -#define TkMacSetScrollbarGrow \ - (tkIntPlatStubsPtr->tkMacSetScrollbarGrow) /* 47 */ -#endif -#ifndef TkMacSetUpClippingRgn -#define TkMacSetUpClippingRgn \ - (tkIntPlatStubsPtr->tkMacSetUpClippingRgn) /* 48 */ -#endif -#ifndef TkMacSetUpGraphicsPort -#define TkMacSetUpGraphicsPort \ - (tkIntPlatStubsPtr->tkMacSetUpGraphicsPort) /* 49 */ -#endif -#ifndef TkMacUpdateClipRgn -#define TkMacUpdateClipRgn \ - (tkIntPlatStubsPtr->tkMacUpdateClipRgn) /* 50 */ -#endif -#ifndef TkMacUnregisterMacWindow -#define TkMacUnregisterMacWindow \ - (tkIntPlatStubsPtr->tkMacUnregisterMacWindow) /* 51 */ -#endif -#ifndef TkMacUseMenuID -#define TkMacUseMenuID \ - (tkIntPlatStubsPtr->tkMacUseMenuID) /* 52 */ -#endif -#ifndef TkMacVisableClipRgn -#define TkMacVisableClipRgn \ - (tkIntPlatStubsPtr->tkMacVisableClipRgn) /* 53 */ -#endif -#ifndef TkMacWinBounds -#define TkMacWinBounds \ - (tkIntPlatStubsPtr->tkMacWinBounds) /* 54 */ -#endif -#ifndef TkMacWindowOffset -#define TkMacWindowOffset \ - (tkIntPlatStubsPtr->tkMacWindowOffset) /* 55 */ -#endif -/* Slot 56 is reserved */ -#ifndef TkSetMacColor -#define TkSetMacColor \ - (tkIntPlatStubsPtr->tkSetMacColor) /* 57 */ -#endif -#ifndef TkSetWMName -#define TkSetWMName \ - (tkIntPlatStubsPtr->tkSetWMName) /* 58 */ -#endif -#ifndef TkSuspendClipboard -#define TkSuspendClipboard \ - (tkIntPlatStubsPtr->tkSuspendClipboard) /* 59 */ -#endif -/* Slot 60 is reserved */ -#ifndef TkMacZoomToplevel -#define TkMacZoomToplevel \ - (tkIntPlatStubsPtr->tkMacZoomToplevel) /* 61 */ -#endif -#ifndef Tk_TopCoordsToWindow -#define Tk_TopCoordsToWindow \ - (tkIntPlatStubsPtr->tk_TopCoordsToWindow) /* 62 */ -#endif -#ifndef TkMacContainerId -#define TkMacContainerId \ - (tkIntPlatStubsPtr->tkMacContainerId) /* 63 */ -#endif -#ifndef TkMacGetHostToplevel -#define TkMacGetHostToplevel \ - (tkIntPlatStubsPtr->tkMacGetHostToplevel) /* 64 */ -#endif -#ifndef TkMacPreprocessMenu -#define TkMacPreprocessMenu \ - (tkIntPlatStubsPtr->tkMacPreprocessMenu) /* 65 */ -#endif -#ifndef TkpIsWindowFloating -#define TkpIsWindowFloating \ - (tkIntPlatStubsPtr->tkpIsWindowFloating) /* 66 */ -#endif -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -#ifndef TkGenerateActivateEvents -#define TkGenerateActivateEvents \ - (tkIntPlatStubsPtr->tkGenerateActivateEvents) /* 0 */ -#endif -/* Slot 1 is reserved */ -/* Slot 2 is reserved */ -#ifndef TkPointerDeadWindow -#define TkPointerDeadWindow \ - (tkIntPlatStubsPtr->tkPointerDeadWindow) /* 3 */ -#endif -#ifndef TkpSetCapture -#define TkpSetCapture \ - (tkIntPlatStubsPtr->tkpSetCapture) /* 4 */ -#endif -#ifndef TkpSetCursor -#define TkpSetCursor \ - (tkIntPlatStubsPtr->tkpSetCursor) /* 5 */ -#endif -#ifndef TkpWmSetState -#define TkpWmSetState \ - (tkIntPlatStubsPtr->tkpWmSetState) /* 6 */ -#endif -#ifndef TkAboutDlg -#define TkAboutDlg \ - (tkIntPlatStubsPtr->tkAboutDlg) /* 7 */ -#endif -#ifndef TkMacOSXButtonKeyState -#define TkMacOSXButtonKeyState \ - (tkIntPlatStubsPtr->tkMacOSXButtonKeyState) /* 8 */ -#endif -#ifndef TkMacOSXClearMenubarActive -#define TkMacOSXClearMenubarActive \ - (tkIntPlatStubsPtr->tkMacOSXClearMenubarActive) /* 9 */ -#endif -#ifndef TkMacOSXDispatchMenuEvent -#define TkMacOSXDispatchMenuEvent \ - (tkIntPlatStubsPtr->tkMacOSXDispatchMenuEvent) /* 10 */ -#endif -#ifndef TkMacOSXInstallCursor -#define TkMacOSXInstallCursor \ - (tkIntPlatStubsPtr->tkMacOSXInstallCursor) /* 11 */ -#endif -#ifndef TkMacOSXHandleTearoffMenu -#define TkMacOSXHandleTearoffMenu \ - (tkIntPlatStubsPtr->tkMacOSXHandleTearoffMenu) /* 12 */ -#endif -/* Slot 13 is reserved */ -#ifndef TkMacOSXDoHLEvent -#define TkMacOSXDoHLEvent \ - (tkIntPlatStubsPtr->tkMacOSXDoHLEvent) /* 14 */ -#endif -/* Slot 15 is reserved */ -#ifndef TkMacOSXGetXWindow -#define TkMacOSXGetXWindow \ - (tkIntPlatStubsPtr->tkMacOSXGetXWindow) /* 16 */ -#endif -#ifndef TkMacOSXGrowToplevel -#define TkMacOSXGrowToplevel \ - (tkIntPlatStubsPtr->tkMacOSXGrowToplevel) /* 17 */ -#endif -#ifndef TkMacOSXHandleMenuSelect -#define TkMacOSXHandleMenuSelect \ - (tkIntPlatStubsPtr->tkMacOSXHandleMenuSelect) /* 18 */ -#endif -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -#ifndef TkMacOSXInvalidateWindow -#define TkMacOSXInvalidateWindow \ - (tkIntPlatStubsPtr->tkMacOSXInvalidateWindow) /* 21 */ -#endif -#ifndef TkMacOSXIsCharacterMissing -#define TkMacOSXIsCharacterMissing \ - (tkIntPlatStubsPtr->tkMacOSXIsCharacterMissing) /* 22 */ -#endif -#ifndef TkMacOSXMakeRealWindowExist -#define TkMacOSXMakeRealWindowExist \ - (tkIntPlatStubsPtr->tkMacOSXMakeRealWindowExist) /* 23 */ -#endif -#ifndef TkMacOSXMakeStippleMap -#define TkMacOSXMakeStippleMap \ - (tkIntPlatStubsPtr->tkMacOSXMakeStippleMap) /* 24 */ -#endif -#ifndef TkMacOSXMenuClick -#define TkMacOSXMenuClick \ - (tkIntPlatStubsPtr->tkMacOSXMenuClick) /* 25 */ -#endif -#ifndef TkMacOSXRegisterOffScreenWindow -#define TkMacOSXRegisterOffScreenWindow \ - (tkIntPlatStubsPtr->tkMacOSXRegisterOffScreenWindow) /* 26 */ -#endif -#ifndef TkMacOSXResizable -#define TkMacOSXResizable \ - (tkIntPlatStubsPtr->tkMacOSXResizable) /* 27 */ -#endif -#ifndef TkMacOSXSetHelpMenuItemCount -#define TkMacOSXSetHelpMenuItemCount \ - (tkIntPlatStubsPtr->tkMacOSXSetHelpMenuItemCount) /* 28 */ -#endif -#ifndef TkMacOSXSetScrollbarGrow -#define TkMacOSXSetScrollbarGrow \ - (tkIntPlatStubsPtr->tkMacOSXSetScrollbarGrow) /* 29 */ -#endif -#ifndef TkMacOSXSetUpClippingRgn -#define TkMacOSXSetUpClippingRgn \ - (tkIntPlatStubsPtr->tkMacOSXSetUpClippingRgn) /* 30 */ -#endif -#ifndef TkMacOSXSetUpGraphicsPort -#define TkMacOSXSetUpGraphicsPort \ - (tkIntPlatStubsPtr->tkMacOSXSetUpGraphicsPort) /* 31 */ -#endif -#ifndef TkMacOSXUpdateClipRgn -#define TkMacOSXUpdateClipRgn \ - (tkIntPlatStubsPtr->tkMacOSXUpdateClipRgn) /* 32 */ -#endif -#ifndef TkMacOSXUnregisterMacWindow -#define TkMacOSXUnregisterMacWindow \ - (tkIntPlatStubsPtr->tkMacOSXUnregisterMacWindow) /* 33 */ -#endif -#ifndef TkMacOSXUseMenuID -#define TkMacOSXUseMenuID \ - (tkIntPlatStubsPtr->tkMacOSXUseMenuID) /* 34 */ -#endif -#ifndef TkMacOSXVisableClipRgn -#define TkMacOSXVisableClipRgn \ - (tkIntPlatStubsPtr->tkMacOSXVisableClipRgn) /* 35 */ -#endif -#ifndef TkMacOSXWinBounds -#define TkMacOSXWinBounds \ - (tkIntPlatStubsPtr->tkMacOSXWinBounds) /* 36 */ -#endif -#ifndef TkMacOSXWindowOffset -#define TkMacOSXWindowOffset \ - (tkIntPlatStubsPtr->tkMacOSXWindowOffset) /* 37 */ -#endif -#ifndef TkSetMacColor -#define TkSetMacColor \ - (tkIntPlatStubsPtr->tkSetMacColor) /* 38 */ -#endif -#ifndef TkSetWMName -#define TkSetWMName \ - (tkIntPlatStubsPtr->tkSetWMName) /* 39 */ -#endif -#ifndef TkSuspendClipboard -#define TkSuspendClipboard \ - (tkIntPlatStubsPtr->tkSuspendClipboard) /* 40 */ -#endif -#ifndef TkMacOSXZoomToplevel -#define TkMacOSXZoomToplevel \ - (tkIntPlatStubsPtr->tkMacOSXZoomToplevel) /* 41 */ -#endif -#ifndef Tk_TopCoordsToWindow -#define Tk_TopCoordsToWindow \ - (tkIntPlatStubsPtr->tk_TopCoordsToWindow) /* 42 */ -#endif -#ifndef TkMacOSXContainerId -#define TkMacOSXContainerId \ - (tkIntPlatStubsPtr->tkMacOSXContainerId) /* 43 */ -#endif -#ifndef TkMacOSXGetHostToplevel -#define TkMacOSXGetHostToplevel \ - (tkIntPlatStubsPtr->tkMacOSXGetHostToplevel) /* 44 */ -#endif -#ifndef TkMacOSXPreprocessMenu -#define TkMacOSXPreprocessMenu \ - (tkIntPlatStubsPtr->tkMacOSXPreprocessMenu) /* 45 */ -#endif -#ifndef TkpIsWindowFloating -#define TkpIsWindowFloating \ - (tkIntPlatStubsPtr->tkpIsWindowFloating) /* 46 */ -#endif -#ifndef TkMacOSXGetCapture -#define TkMacOSXGetCapture \ - (tkIntPlatStubsPtr->tkMacOSXGetCapture) /* 47 */ -#endif -/* Slot 48 is reserved */ -#ifndef TkGetTransientMaster -#define TkGetTransientMaster \ - (tkIntPlatStubsPtr->tkGetTransientMaster) /* 49 */ -#endif -#ifndef TkGenerateButtonEvent -#define TkGenerateButtonEvent \ - (tkIntPlatStubsPtr->tkGenerateButtonEvent) /* 50 */ -#endif -#ifndef TkGenWMDestroyEvent -#define TkGenWMDestroyEvent \ - (tkIntPlatStubsPtr->tkGenWMDestroyEvent) /* 51 */ -#endif -/* Slot 52 is reserved */ -#ifndef TkpGetMS -#define TkpGetMS \ - (tkIntPlatStubsPtr->tkpGetMS) /* 53 */ -#endif -#endif /* MAC_OSX_TK */ -#if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK)) /* X11 */ -#ifndef TkCreateXEventSource -#define TkCreateXEventSource \ - (tkIntPlatStubsPtr->tkCreateXEventSource) /* 0 */ -#endif -#ifndef TkFreeWindowId -#define TkFreeWindowId \ - (tkIntPlatStubsPtr->tkFreeWindowId) /* 1 */ -#endif -#ifndef TkInitXId -#define TkInitXId \ - (tkIntPlatStubsPtr->tkInitXId) /* 2 */ -#endif -#ifndef TkpCmapStressed -#define TkpCmapStressed \ - (tkIntPlatStubsPtr->tkpCmapStressed) /* 3 */ -#endif -#ifndef TkpSync -#define TkpSync \ - (tkIntPlatStubsPtr->tkpSync) /* 4 */ -#endif -#ifndef TkUnixContainerId -#define TkUnixContainerId \ - (tkIntPlatStubsPtr->tkUnixContainerId) /* 5 */ -#endif -#ifndef TkUnixDoOneXEvent -#define TkUnixDoOneXEvent \ - (tkIntPlatStubsPtr->tkUnixDoOneXEvent) /* 6 */ -#endif -#ifndef TkUnixSetMenubar -#define TkUnixSetMenubar \ - (tkIntPlatStubsPtr->tkUnixSetMenubar) /* 7 */ -#endif -#ifndef TkpScanWindowId -#define TkpScanWindowId \ - (tkIntPlatStubsPtr->tkpScanWindowId) /* 8 */ -#endif -#ifndef TkWmCleanup -#define TkWmCleanup \ - (tkIntPlatStubsPtr->tkWmCleanup) /* 9 */ -#endif -#ifndef TkSendCleanup -#define TkSendCleanup \ - (tkIntPlatStubsPtr->tkSendCleanup) /* 10 */ -#endif -#ifndef TkFreeXId -#define TkFreeXId \ - (tkIntPlatStubsPtr->tkFreeXId) /* 11 */ -#endif -#ifndef TkpWmSetState -#define TkpWmSetState \ - (tkIntPlatStubsPtr->tkpWmSetState) /* 12 */ -#endif -#endif /* X11 */ - -#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKINTPLATDECLS */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls.m b/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls.m deleted file mode 100644 index 203f4d83724..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls.m +++ /dev/null @@ -1,474 +0,0 @@ -#ifndef _TKINTPLATDECLS_VM -#define _TKINTPLATDECLS_VM -#include "tkIntPlatDecls_f.h" -#ifndef NO_VTABLES -#ifndef TkAboutDlg -# define TkAboutDlg (*TkintplatdeclsVptr->V_TkAboutDlg) -#endif - -#ifndef TkAlignImageData -# define TkAlignImageData (*TkintplatdeclsVptr->V_TkAlignImageData) -#endif - -#ifndef TkCreateXEventSource -# define TkCreateXEventSource (*TkintplatdeclsVptr->V_TkCreateXEventSource) -#endif - -#ifndef TkFreeWindowId -# define TkFreeWindowId (*TkintplatdeclsVptr->V_TkFreeWindowId) -#endif - -#ifndef TkFreeXId -# define TkFreeXId (*TkintplatdeclsVptr->V_TkFreeXId) -#endif - -#ifndef TkGenWMDestroyEvent -# define TkGenWMDestroyEvent (*TkintplatdeclsVptr->V_TkGenWMDestroyEvent) -#endif - -#ifndef TkGenerateActivateEvents -# define TkGenerateActivateEvents (*TkintplatdeclsVptr->V_TkGenerateActivateEvents) -#endif - -#ifndef TkGenerateButtonEvent -# define TkGenerateButtonEvent (*TkintplatdeclsVptr->V_TkGenerateButtonEvent) -#endif - -#ifndef TkGetTransientMaster -# define TkGetTransientMaster (*TkintplatdeclsVptr->V_TkGetTransientMaster) -#endif - -#ifndef TkInitXId -# define TkInitXId (*TkintplatdeclsVptr->V_TkInitXId) -#endif - -#ifndef TkMacButtonKeyState -# define TkMacButtonKeyState (*TkintplatdeclsVptr->V_TkMacButtonKeyState) -#endif - -#ifndef TkMacClearMenubarActive -# define TkMacClearMenubarActive (*TkintplatdeclsVptr->V_TkMacClearMenubarActive) -#endif - -#ifndef TkMacContainerId -# define TkMacContainerId (*TkintplatdeclsVptr->V_TkMacContainerId) -#endif - -#ifndef TkMacDispatchMenuEvent -# define TkMacDispatchMenuEvent (*TkintplatdeclsVptr->V_TkMacDispatchMenuEvent) -#endif - -#ifndef TkMacDoHLEvent -# define TkMacDoHLEvent (*TkintplatdeclsVptr->V_TkMacDoHLEvent) -#endif - -#ifndef TkMacGenerateTime -# define TkMacGenerateTime (*TkintplatdeclsVptr->V_TkMacGenerateTime) -#endif - -#ifndef TkMacGetHostToplevel -# define TkMacGetHostToplevel (*TkintplatdeclsVptr->V_TkMacGetHostToplevel) -#endif - -#ifndef TkMacGetScrollbarGrowWindow -# define TkMacGetScrollbarGrowWindow (*TkintplatdeclsVptr->V_TkMacGetScrollbarGrowWindow) -#endif - -#ifndef TkMacGetXWindow -# define TkMacGetXWindow (*TkintplatdeclsVptr->V_TkMacGetXWindow) -#endif - -#ifndef TkMacGrowToplevel -# define TkMacGrowToplevel (*TkintplatdeclsVptr->V_TkMacGrowToplevel) -#endif - -#ifndef TkMacHandleMenuSelect -# define TkMacHandleMenuSelect (*TkintplatdeclsVptr->V_TkMacHandleMenuSelect) -#endif - -#ifndef TkMacHandleTearoffMenu -# define TkMacHandleTearoffMenu (*TkintplatdeclsVptr->V_TkMacHandleTearoffMenu) -#endif - -#ifndef TkMacInstallCursor -# define TkMacInstallCursor (*TkintplatdeclsVptr->V_TkMacInstallCursor) -#endif - -#ifndef TkMacInvalidateWindow -# define TkMacInvalidateWindow (*TkintplatdeclsVptr->V_TkMacInvalidateWindow) -#endif - -#ifndef TkMacIsCharacterMissing -# define TkMacIsCharacterMissing (*TkintplatdeclsVptr->V_TkMacIsCharacterMissing) -#endif - -#ifndef TkMacMakeRealWindowExist -# define TkMacMakeRealWindowExist (*TkintplatdeclsVptr->V_TkMacMakeRealWindowExist) -#endif - -#ifndef TkMacMakeStippleMap -# define TkMacMakeStippleMap (*TkintplatdeclsVptr->V_TkMacMakeStippleMap) -#endif - -#ifndef TkMacMenuClick -# define TkMacMenuClick (*TkintplatdeclsVptr->V_TkMacMenuClick) -#endif - -#ifndef TkMacOSXButtonKeyState -# define TkMacOSXButtonKeyState (*TkintplatdeclsVptr->V_TkMacOSXButtonKeyState) -#endif - -#ifndef TkMacOSXClearMenubarActive -# define TkMacOSXClearMenubarActive (*TkintplatdeclsVptr->V_TkMacOSXClearMenubarActive) -#endif - -#ifndef TkMacOSXContainerId -# define TkMacOSXContainerId (*TkintplatdeclsVptr->V_TkMacOSXContainerId) -#endif - -#ifndef TkMacOSXDispatchMenuEvent -# define TkMacOSXDispatchMenuEvent (*TkintplatdeclsVptr->V_TkMacOSXDispatchMenuEvent) -#endif - -#ifndef TkMacOSXDoHLEvent -# define TkMacOSXDoHLEvent (*TkintplatdeclsVptr->V_TkMacOSXDoHLEvent) -#endif - -#ifndef TkMacOSXGetCapture -# define TkMacOSXGetCapture (*TkintplatdeclsVptr->V_TkMacOSXGetCapture) -#endif - -#ifndef TkMacOSXGetHostToplevel -# define TkMacOSXGetHostToplevel (*TkintplatdeclsVptr->V_TkMacOSXGetHostToplevel) -#endif - -#ifndef TkMacOSXGetXWindow -# define TkMacOSXGetXWindow (*TkintplatdeclsVptr->V_TkMacOSXGetXWindow) -#endif - -#ifndef TkMacOSXGrowToplevel -# define TkMacOSXGrowToplevel (*TkintplatdeclsVptr->V_TkMacOSXGrowToplevel) -#endif - -#ifndef TkMacOSXHandleMenuSelect -# define TkMacOSXHandleMenuSelect (*TkintplatdeclsVptr->V_TkMacOSXHandleMenuSelect) -#endif - -#ifndef TkMacOSXHandleTearoffMenu -# define TkMacOSXHandleTearoffMenu (*TkintplatdeclsVptr->V_TkMacOSXHandleTearoffMenu) -#endif - -#ifndef TkMacOSXInstallCursor -# define TkMacOSXInstallCursor (*TkintplatdeclsVptr->V_TkMacOSXInstallCursor) -#endif - -#ifndef TkMacOSXInvalidateWindow -# define TkMacOSXInvalidateWindow (*TkintplatdeclsVptr->V_TkMacOSXInvalidateWindow) -#endif - -#ifndef TkMacOSXIsCharacterMissing -# define TkMacOSXIsCharacterMissing (*TkintplatdeclsVptr->V_TkMacOSXIsCharacterMissing) -#endif - -#ifndef TkMacOSXMakeRealWindowExist -# define TkMacOSXMakeRealWindowExist (*TkintplatdeclsVptr->V_TkMacOSXMakeRealWindowExist) -#endif - -#ifndef TkMacOSXMakeStippleMap -# define TkMacOSXMakeStippleMap (*TkintplatdeclsVptr->V_TkMacOSXMakeStippleMap) -#endif - -#ifndef TkMacOSXMenuClick -# define TkMacOSXMenuClick (*TkintplatdeclsVptr->V_TkMacOSXMenuClick) -#endif - -#ifndef TkMacOSXPreprocessMenu -# define TkMacOSXPreprocessMenu (*TkintplatdeclsVptr->V_TkMacOSXPreprocessMenu) -#endif - -#ifndef TkMacOSXRegisterOffScreenWindow -# define TkMacOSXRegisterOffScreenWindow (*TkintplatdeclsVptr->V_TkMacOSXRegisterOffScreenWindow) -#endif - -#ifndef TkMacOSXResizable -# define TkMacOSXResizable (*TkintplatdeclsVptr->V_TkMacOSXResizable) -#endif - -#ifndef TkMacOSXSetHelpMenuItemCount -# define TkMacOSXSetHelpMenuItemCount (*TkintplatdeclsVptr->V_TkMacOSXSetHelpMenuItemCount) -#endif - -#ifndef TkMacOSXSetScrollbarGrow -# define TkMacOSXSetScrollbarGrow (*TkintplatdeclsVptr->V_TkMacOSXSetScrollbarGrow) -#endif - -#ifndef TkMacOSXSetUpClippingRgn -# define TkMacOSXSetUpClippingRgn (*TkintplatdeclsVptr->V_TkMacOSXSetUpClippingRgn) -#endif - -#ifndef TkMacOSXSetUpGraphicsPort -# define TkMacOSXSetUpGraphicsPort (*TkintplatdeclsVptr->V_TkMacOSXSetUpGraphicsPort) -#endif - -#ifndef TkMacOSXUnregisterMacWindow -# define TkMacOSXUnregisterMacWindow (*TkintplatdeclsVptr->V_TkMacOSXUnregisterMacWindow) -#endif - -#ifndef TkMacOSXUpdateClipRgn -# define TkMacOSXUpdateClipRgn (*TkintplatdeclsVptr->V_TkMacOSXUpdateClipRgn) -#endif - -#ifndef TkMacOSXUseMenuID -# define TkMacOSXUseMenuID (*TkintplatdeclsVptr->V_TkMacOSXUseMenuID) -#endif - -#ifndef TkMacOSXVisableClipRgn -# define TkMacOSXVisableClipRgn (*TkintplatdeclsVptr->V_TkMacOSXVisableClipRgn) -#endif - -#ifndef TkMacOSXWinBounds -# define TkMacOSXWinBounds (*TkintplatdeclsVptr->V_TkMacOSXWinBounds) -#endif - -#ifndef TkMacOSXWindowOffset -# define TkMacOSXWindowOffset (*TkintplatdeclsVptr->V_TkMacOSXWindowOffset) -#endif - -#ifndef TkMacOSXZoomToplevel -# define TkMacOSXZoomToplevel (*TkintplatdeclsVptr->V_TkMacOSXZoomToplevel) -#endif - -#ifndef TkMacPreprocessMenu -# define TkMacPreprocessMenu (*TkintplatdeclsVptr->V_TkMacPreprocessMenu) -#endif - -#ifndef TkMacRegisterOffScreenWindow -# define TkMacRegisterOffScreenWindow (*TkintplatdeclsVptr->V_TkMacRegisterOffScreenWindow) -#endif - -#ifndef TkMacResizable -# define TkMacResizable (*TkintplatdeclsVptr->V_TkMacResizable) -#endif - -#ifndef TkMacSetHelpMenuItemCount -# define TkMacSetHelpMenuItemCount (*TkintplatdeclsVptr->V_TkMacSetHelpMenuItemCount) -#endif - -#ifndef TkMacSetScrollbarGrow -# define TkMacSetScrollbarGrow (*TkintplatdeclsVptr->V_TkMacSetScrollbarGrow) -#endif - -#ifndef TkMacSetUpClippingRgn -# define TkMacSetUpClippingRgn (*TkintplatdeclsVptr->V_TkMacSetUpClippingRgn) -#endif - -#ifndef TkMacSetUpGraphicsPort -# define TkMacSetUpGraphicsPort (*TkintplatdeclsVptr->V_TkMacSetUpGraphicsPort) -#endif - -#ifndef TkMacUnregisterMacWindow -# define TkMacUnregisterMacWindow (*TkintplatdeclsVptr->V_TkMacUnregisterMacWindow) -#endif - -#ifndef TkMacUpdateClipRgn -# define TkMacUpdateClipRgn (*TkintplatdeclsVptr->V_TkMacUpdateClipRgn) -#endif - -#ifndef TkMacUseMenuID -# define TkMacUseMenuID (*TkintplatdeclsVptr->V_TkMacUseMenuID) -#endif - -#ifndef TkMacVisableClipRgn -# define TkMacVisableClipRgn (*TkintplatdeclsVptr->V_TkMacVisableClipRgn) -#endif - -#ifndef TkMacWinBounds -# define TkMacWinBounds (*TkintplatdeclsVptr->V_TkMacWinBounds) -#endif - -#ifndef TkMacWindowOffset -# define TkMacWindowOffset (*TkintplatdeclsVptr->V_TkMacWindowOffset) -#endif - -#ifndef TkMacZoomToplevel -# define TkMacZoomToplevel (*TkintplatdeclsVptr->V_TkMacZoomToplevel) -#endif - -#ifndef TkPointerDeadWindow -# define TkPointerDeadWindow (*TkintplatdeclsVptr->V_TkPointerDeadWindow) -#endif - -#ifndef TkSendCleanup -# define TkSendCleanup (*TkintplatdeclsVptr->V_TkSendCleanup) -#endif - -#ifndef TkSetMacColor -# define TkSetMacColor (*TkintplatdeclsVptr->V_TkSetMacColor) -#endif - -#ifndef TkSetPixmapColormap -# define TkSetPixmapColormap (*TkintplatdeclsVptr->V_TkSetPixmapColormap) -#endif - -#ifndef TkSetWMName -# define TkSetWMName (*TkintplatdeclsVptr->V_TkSetWMName) -#endif - -#ifndef TkSuspendClipboard -# define TkSuspendClipboard (*TkintplatdeclsVptr->V_TkSuspendClipboard) -#endif - -#ifndef TkUnixContainerId -# define TkUnixContainerId (*TkintplatdeclsVptr->V_TkUnixContainerId) -#endif - -#ifndef TkUnixDoOneXEvent -# define TkUnixDoOneXEvent (*TkintplatdeclsVptr->V_TkUnixDoOneXEvent) -#endif - -#ifndef TkUnixSetMenubar -# define TkUnixSetMenubar (*TkintplatdeclsVptr->V_TkUnixSetMenubar) -#endif - -#ifndef TkWinCancelMouseTimer -# define TkWinCancelMouseTimer (*TkintplatdeclsVptr->V_TkWinCancelMouseTimer) -#endif - -#ifndef TkWinClipboardRender -# define TkWinClipboardRender (*TkintplatdeclsVptr->V_TkWinClipboardRender) -#endif - -#ifndef TkWinDialogDebug -# define TkWinDialogDebug (*TkintplatdeclsVptr->V_TkWinDialogDebug) -#endif - -#ifndef TkWinEmbeddedEventProc -# define TkWinEmbeddedEventProc (*TkintplatdeclsVptr->V_TkWinEmbeddedEventProc) -#endif - -#ifndef TkWinFillRect -# define TkWinFillRect (*TkintplatdeclsVptr->V_TkWinFillRect) -#endif - -#ifndef TkWinGetBorderPixels -# define TkWinGetBorderPixels (*TkintplatdeclsVptr->V_TkWinGetBorderPixels) -#endif - -#ifndef TkWinGetDrawableDC -# define TkWinGetDrawableDC (*TkintplatdeclsVptr->V_TkWinGetDrawableDC) -#endif - -#ifndef TkWinGetMenuSystemDefault -# define TkWinGetMenuSystemDefault (*TkintplatdeclsVptr->V_TkWinGetMenuSystemDefault) -#endif - -#ifndef TkWinGetModifierState -# define TkWinGetModifierState (*TkintplatdeclsVptr->V_TkWinGetModifierState) -#endif - -#ifndef TkWinGetPlatformId -# define TkWinGetPlatformId (*TkintplatdeclsVptr->V_TkWinGetPlatformId) -#endif - -#ifndef TkWinGetSystemPalette -# define TkWinGetSystemPalette (*TkintplatdeclsVptr->V_TkWinGetSystemPalette) -#endif - -#ifndef TkWinGetWrapperWindow -# define TkWinGetWrapperWindow (*TkintplatdeclsVptr->V_TkWinGetWrapperWindow) -#endif - -#ifndef TkWinHandleMenuEvent -# define TkWinHandleMenuEvent (*TkintplatdeclsVptr->V_TkWinHandleMenuEvent) -#endif - -#ifndef TkWinIndexOfColor -# define TkWinIndexOfColor (*TkintplatdeclsVptr->V_TkWinIndexOfColor) -#endif - -#ifndef TkWinReleaseDrawableDC -# define TkWinReleaseDrawableDC (*TkintplatdeclsVptr->V_TkWinReleaseDrawableDC) -#endif - -#ifndef TkWinResendEvent -# define TkWinResendEvent (*TkintplatdeclsVptr->V_TkWinResendEvent) -#endif - -#ifndef TkWinSelectPalette -# define TkWinSelectPalette (*TkintplatdeclsVptr->V_TkWinSelectPalette) -#endif - -#ifndef TkWinSetForegroundWindow -# define TkWinSetForegroundWindow (*TkintplatdeclsVptr->V_TkWinSetForegroundWindow) -#endif - -#ifndef TkWinSetHINSTANCE -# define TkWinSetHINSTANCE (*TkintplatdeclsVptr->V_TkWinSetHINSTANCE) -#endif - -#ifndef TkWinSetMenu -# define TkWinSetMenu (*TkintplatdeclsVptr->V_TkWinSetMenu) -#endif - -#ifndef TkWinSetWindowPos -# define TkWinSetWindowPos (*TkintplatdeclsVptr->V_TkWinSetWindowPos) -#endif - -#ifndef TkWinWmCleanup -# define TkWinWmCleanup (*TkintplatdeclsVptr->V_TkWinWmCleanup) -#endif - -#ifndef TkWinXCleanup -# define TkWinXCleanup (*TkintplatdeclsVptr->V_TkWinXCleanup) -#endif - -#ifndef TkWinXInit -# define TkWinXInit (*TkintplatdeclsVptr->V_TkWinXInit) -#endif - -#ifndef TkWmCleanup -# define TkWmCleanup (*TkintplatdeclsVptr->V_TkWmCleanup) -#endif - -#ifndef Tk_TopCoordsToWindow -# define Tk_TopCoordsToWindow (*TkintplatdeclsVptr->V_Tk_TopCoordsToWindow) -#endif - -#ifndef TkpCmapStressed -# define TkpCmapStressed (*TkintplatdeclsVptr->V_TkpCmapStressed) -#endif - -#ifndef TkpGetMS -# define TkpGetMS (*TkintplatdeclsVptr->V_TkpGetMS) -#endif - -#ifndef TkpIsWindowFloating -# define TkpIsWindowFloating (*TkintplatdeclsVptr->V_TkpIsWindowFloating) -#endif - -#ifndef TkpPrintWindowId -# define TkpPrintWindowId (*TkintplatdeclsVptr->V_TkpPrintWindowId) -#endif - -#ifndef TkpScanWindowId -# define TkpScanWindowId (*TkintplatdeclsVptr->V_TkpScanWindowId) -#endif - -#ifndef TkpSetCapture -# define TkpSetCapture (*TkintplatdeclsVptr->V_TkpSetCapture) -#endif - -#ifndef TkpSetCursor -# define TkpSetCursor (*TkintplatdeclsVptr->V_TkpSetCursor) -#endif - -#ifndef TkpSync -# define TkpSync (*TkintplatdeclsVptr->V_TkpSync) -#endif - -#ifndef TkpWmSetState -# define TkpWmSetState (*TkintplatdeclsVptr->V_TkpWmSetState) -#endif - -#endif /* NO_VTABLES */ -#endif /* _TKINTPLATDECLS_VM */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls.t b/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls.t deleted file mode 100644 index 72bcbc0977e..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls.t +++ /dev/null @@ -1,845 +0,0 @@ -#ifdef _TKINTPLATDECLS
-#ifndef TkAboutDlg
-#ifdef MAC_OSX_TK
-VFUNC(void,TkAboutDlg,V_TkAboutDlg,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,TkAboutDlg,V_TkAboutDlg,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkAboutDlg */
-
-#ifndef TkAlignImageData
-#ifdef __WIN32__
-VFUNC(char *,TkAlignImageData,V_TkAlignImageData,_ANSI_ARGS_((XImage * image,
- int alignment, int bitOrder)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkAlignImageData */
-
-#ifndef TkCreateXEventSource
-#if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK))
-VFUNC(void,TkCreateXEventSource,V_TkCreateXEventSource,_ANSI_ARGS_((void)))
-#endif /* #if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK)) */
-#endif /* #ifndef TkCreateXEventSource */
-
-#ifndef TkFreeWindowId
-#if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK))
-VFUNC(void,TkFreeWindowId,V_TkFreeWindowId,_ANSI_ARGS_((TkDisplay * dispPtr,
- Window w)))
-#endif /* #if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK)) */
-#endif /* #ifndef TkFreeWindowId */
-
-#ifndef TkFreeXId
-#if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK))
-VFUNC(void,TkFreeXId,V_TkFreeXId,_ANSI_ARGS_((TkDisplay * dispPtr)))
-#endif /* #if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK)) */
-#endif /* #ifndef TkFreeXId */
-
-#ifndef TkGenWMDestroyEvent
-#ifdef MAC_OSX_TK
-VFUNC(void,TkGenWMDestroyEvent,V_TkGenWMDestroyEvent,_ANSI_ARGS_((Tk_Window tkwin)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,TkGenWMDestroyEvent,V_TkGenWMDestroyEvent,_ANSI_ARGS_((Tk_Window tkwin)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkGenWMDestroyEvent */
-
-#ifndef TkGenerateActivateEvents
-#ifdef MAC_OSX_TK
-VFUNC(void,TkGenerateActivateEvents,V_TkGenerateActivateEvents,_ANSI_ARGS_((
- TkWindow * winPtr, int active)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,TkGenerateActivateEvents,V_TkGenerateActivateEvents,_ANSI_ARGS_((
- TkWindow * winPtr, int active)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,TkGenerateActivateEvents,V_TkGenerateActivateEvents,_ANSI_ARGS_((
- TkWindow * winPtr, int active)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkGenerateActivateEvents */
-
-#ifndef TkGenerateButtonEvent
-#ifdef MAC_OSX_TK
-VFUNC(int,TkGenerateButtonEvent,V_TkGenerateButtonEvent,_ANSI_ARGS_((int x, int y,
- Window window, unsigned int state)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(int,TkGenerateButtonEvent,V_TkGenerateButtonEvent,_ANSI_ARGS_((int x, int y,
- Window window, unsigned int state)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkGenerateButtonEvent */
-
-#ifndef TkGetTransientMaster
-#ifdef MAC_OSX_TK
-VFUNC(Window,TkGetTransientMaster,V_TkGetTransientMaster,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(Window,TkGetTransientMaster,V_TkGetTransientMaster,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkGetTransientMaster */
-
-#ifndef TkInitXId
-#if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK))
-VFUNC(void,TkInitXId,V_TkInitXId,_ANSI_ARGS_((TkDisplay * dispPtr)))
-#endif /* #if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK)) */
-#endif /* #ifndef TkInitXId */
-
-#ifndef TkMacButtonKeyState
-#ifdef MAC_TCL
-VFUNC(unsigned int,TkMacButtonKeyState,V_TkMacButtonKeyState,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacButtonKeyState */
-
-#ifndef TkMacClearMenubarActive
-#ifdef MAC_TCL
-VFUNC(void,TkMacClearMenubarActive,V_TkMacClearMenubarActive,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacClearMenubarActive */
-
-#ifndef TkMacContainerId
-#ifdef MAC_TCL
-VFUNC(MacDrawable *,TkMacContainerId,V_TkMacContainerId,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacContainerId */
-
-#ifndef TkMacDispatchMenuEvent
-#ifdef MAC_TCL
-VFUNC(int,TkMacDispatchMenuEvent,V_TkMacDispatchMenuEvent,_ANSI_ARGS_((int menuID,
- int index)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacDispatchMenuEvent */
-
-#ifndef TkMacDoHLEvent
-#ifdef MAC_TCL
-VFUNC(void,TkMacDoHLEvent,V_TkMacDoHLEvent,_ANSI_ARGS_((EventRecord * theEvent)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacDoHLEvent */
-
-#ifndef TkMacGenerateTime
-#ifdef MAC_TCL
-VFUNC(Time,TkMacGenerateTime,V_TkMacGenerateTime,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacGenerateTime */
-
-#ifndef TkMacGetHostToplevel
-#ifdef MAC_TCL
-VFUNC(MacDrawable *,TkMacGetHostToplevel,V_TkMacGetHostToplevel,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacGetHostToplevel */
-
-#ifndef TkMacGetScrollbarGrowWindow
-#ifdef MAC_TCL
-VFUNC(TkWindow *,TkMacGetScrollbarGrowWindow,V_TkMacGetScrollbarGrowWindow,_ANSI_ARGS_((
- TkWindow * winPtr)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacGetScrollbarGrowWindow */
-
-#ifndef TkMacGetXWindow
-#ifdef MAC_TCL
-VFUNC(Window,TkMacGetXWindow,V_TkMacGetXWindow,_ANSI_ARGS_((WindowRef macWinPtr)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacGetXWindow */
-
-#ifndef TkMacGrowToplevel
-#ifdef MAC_TCL
-VFUNC(int,TkMacGrowToplevel,V_TkMacGrowToplevel,_ANSI_ARGS_((WindowRef whichWindow,
- Point start)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacGrowToplevel */
-
-#ifndef TkMacHandleMenuSelect
-#ifdef MAC_TCL
-VFUNC(void,TkMacHandleMenuSelect,V_TkMacHandleMenuSelect,_ANSI_ARGS_((long mResult,
- int optionKeyPressed)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacHandleMenuSelect */
-
-#ifndef TkMacHandleTearoffMenu
-#ifdef MAC_TCL
-VFUNC(void,TkMacHandleTearoffMenu,V_TkMacHandleTearoffMenu,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacHandleTearoffMenu */
-
-#ifndef TkMacInstallCursor
-#ifdef MAC_TCL
-VFUNC(void,TkMacInstallCursor,V_TkMacInstallCursor,_ANSI_ARGS_((int resizeOverride)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacInstallCursor */
-
-#ifndef TkMacInvalidateWindow
-#ifdef MAC_TCL
-VFUNC(void,TkMacInvalidateWindow,V_TkMacInvalidateWindow,_ANSI_ARGS_((
- MacDrawable * macWin, int flag)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacInvalidateWindow */
-
-#ifndef TkMacIsCharacterMissing
-#ifdef MAC_TCL
-VFUNC(int,TkMacIsCharacterMissing,V_TkMacIsCharacterMissing,_ANSI_ARGS_((Tk_Font tkfont,
- unsigned int searchChar)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacIsCharacterMissing */
-
-#ifndef TkMacMakeRealWindowExist
-#ifdef MAC_TCL
-VFUNC(void,TkMacMakeRealWindowExist,V_TkMacMakeRealWindowExist,_ANSI_ARGS_((
- TkWindow * winPtr)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacMakeRealWindowExist */
-
-#ifndef TkMacMakeStippleMap
-#ifdef MAC_TCL
-VFUNC(BitMapPtr,TkMacMakeStippleMap,V_TkMacMakeStippleMap,_ANSI_ARGS_((Drawable d1,
- Drawable d2)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacMakeStippleMap */
-
-#ifndef TkMacMenuClick
-#ifdef MAC_TCL
-VFUNC(void,TkMacMenuClick,V_TkMacMenuClick,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacMenuClick */
-
-#ifndef TkMacOSXButtonKeyState
-#ifdef MAC_OSX_TK
-VFUNC(unsigned int,TkMacOSXButtonKeyState,V_TkMacOSXButtonKeyState,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXButtonKeyState */
-
-#ifndef TkMacOSXClearMenubarActive
-#ifdef MAC_OSX_TK
-VFUNC(void,TkMacOSXClearMenubarActive,V_TkMacOSXClearMenubarActive,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXClearMenubarActive */
-
-#ifndef TkMacOSXContainerId
-#ifdef MAC_OSX_TK
-VFUNC(MacDrawable *,TkMacOSXContainerId,V_TkMacOSXContainerId,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXContainerId */
-
-#ifndef TkMacOSXDispatchMenuEvent
-#ifdef MAC_OSX_TK
-VFUNC(int,TkMacOSXDispatchMenuEvent,V_TkMacOSXDispatchMenuEvent,_ANSI_ARGS_((int menuID,
- int index)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXDispatchMenuEvent */
-
-#ifndef TkMacOSXDoHLEvent
-#ifdef MAC_OSX_TK
-VFUNC(int,TkMacOSXDoHLEvent,V_TkMacOSXDoHLEvent,_ANSI_ARGS_((
- EventRecord * theEvent)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXDoHLEvent */
-
-#ifndef TkMacOSXGetCapture
-#ifdef MAC_OSX_TK
-VFUNC(Tk_Window,TkMacOSXGetCapture,V_TkMacOSXGetCapture,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXGetCapture */
-
-#ifndef TkMacOSXGetHostToplevel
-#ifdef MAC_OSX_TK
-VFUNC(MacDrawable *,TkMacOSXGetHostToplevel,V_TkMacOSXGetHostToplevel,_ANSI_ARGS_((
- TkWindow * winPtr)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXGetHostToplevel */
-
-#ifndef TkMacOSXGetXWindow
-#ifdef MAC_OSX_TK
-VFUNC(Window,TkMacOSXGetXWindow,V_TkMacOSXGetXWindow,_ANSI_ARGS_((WindowRef macWinPtr)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXGetXWindow */
-
-#ifndef TkMacOSXGrowToplevel
-#ifdef MAC_OSX_TK
-VFUNC(int,TkMacOSXGrowToplevel,V_TkMacOSXGrowToplevel,_ANSI_ARGS_((
- WindowRef whichWindow, Point start)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXGrowToplevel */
-
-#ifndef TkMacOSXHandleMenuSelect
-#ifdef MAC_OSX_TK
-VFUNC(void,TkMacOSXHandleMenuSelect,V_TkMacOSXHandleMenuSelect,_ANSI_ARGS_((long mResult,
- int optionKeyPressed)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXHandleMenuSelect */
-
-#ifndef TkMacOSXHandleTearoffMenu
-#ifdef MAC_OSX_TK
-VFUNC(void,TkMacOSXHandleTearoffMenu,V_TkMacOSXHandleTearoffMenu,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXHandleTearoffMenu */
-
-#ifndef TkMacOSXInstallCursor
-#ifdef MAC_OSX_TK
-VFUNC(void,TkMacOSXInstallCursor,V_TkMacOSXInstallCursor,_ANSI_ARGS_((
- int resizeOverride)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXInstallCursor */
-
-#ifndef TkMacOSXInvalidateWindow
-#ifdef MAC_OSX_TK
-VFUNC(void,TkMacOSXInvalidateWindow,V_TkMacOSXInvalidateWindow,_ANSI_ARGS_((
- MacDrawable * macWin, int flag)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXInvalidateWindow */
-
-#ifndef TkMacOSXIsCharacterMissing
-#ifdef MAC_OSX_TK
-VFUNC(int,TkMacOSXIsCharacterMissing,V_TkMacOSXIsCharacterMissing,_ANSI_ARGS_((
- Tk_Font tkfont, unsigned int searchChar)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXIsCharacterMissing */
-
-#ifndef TkMacOSXMakeRealWindowExist
-#ifdef MAC_OSX_TK
-VFUNC(void,TkMacOSXMakeRealWindowExist,V_TkMacOSXMakeRealWindowExist,_ANSI_ARGS_((
- TkWindow * winPtr)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXMakeRealWindowExist */
-
-#ifndef TkMacOSXMakeStippleMap
-#ifdef MAC_OSX_TK
-VFUNC(BitMapPtr,TkMacOSXMakeStippleMap,V_TkMacOSXMakeStippleMap,_ANSI_ARGS_((Drawable d1,
- Drawable d2)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXMakeStippleMap */
-
-#ifndef TkMacOSXMenuClick
-#ifdef MAC_OSX_TK
-VFUNC(void,TkMacOSXMenuClick,V_TkMacOSXMenuClick,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXMenuClick */
-
-#ifndef TkMacOSXPreprocessMenu
-#ifdef MAC_OSX_TK
-VFUNC(void,TkMacOSXPreprocessMenu,V_TkMacOSXPreprocessMenu,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXPreprocessMenu */
-
-#ifndef TkMacOSXRegisterOffScreenWindow
-#ifdef MAC_OSX_TK
-VFUNC(void,TkMacOSXRegisterOffScreenWindow,V_TkMacOSXRegisterOffScreenWindow,_ANSI_ARGS_((
- Window window, GWorldPtr portPtr)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXRegisterOffScreenWindow */
-
-#ifndef TkMacOSXResizable
-#ifdef MAC_OSX_TK
-VFUNC(int,TkMacOSXResizable,V_TkMacOSXResizable,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXResizable */
-
-#ifndef TkMacOSXSetHelpMenuItemCount
-#ifdef MAC_OSX_TK
-VFUNC(void,TkMacOSXSetHelpMenuItemCount,V_TkMacOSXSetHelpMenuItemCount,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXSetHelpMenuItemCount */
-
-#ifndef TkMacOSXSetScrollbarGrow
-#ifdef MAC_OSX_TK
-VFUNC(void,TkMacOSXSetScrollbarGrow,V_TkMacOSXSetScrollbarGrow,_ANSI_ARGS_((
- TkWindow * winPtr, int flag)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXSetScrollbarGrow */
-
-#ifndef TkMacOSXSetUpClippingRgn
-#ifdef MAC_OSX_TK
-VFUNC(void,TkMacOSXSetUpClippingRgn,V_TkMacOSXSetUpClippingRgn,_ANSI_ARGS_((
- Drawable drawable)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXSetUpClippingRgn */
-
-#ifndef TkMacOSXSetUpGraphicsPort
-#ifdef MAC_OSX_TK
-VFUNC(void,TkMacOSXSetUpGraphicsPort,V_TkMacOSXSetUpGraphicsPort,_ANSI_ARGS_((GC gc,
- GWorldPtr destPort)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXSetUpGraphicsPort */
-
-#ifndef TkMacOSXUnregisterMacWindow
-#ifdef MAC_OSX_TK
-VFUNC(void,TkMacOSXUnregisterMacWindow,V_TkMacOSXUnregisterMacWindow,_ANSI_ARGS_((
- WindowRef portPtr)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXUnregisterMacWindow */
-
-#ifndef TkMacOSXUpdateClipRgn
-#ifdef MAC_OSX_TK
-VFUNC(void,TkMacOSXUpdateClipRgn,V_TkMacOSXUpdateClipRgn,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXUpdateClipRgn */
-
-#ifndef TkMacOSXUseMenuID
-#ifdef MAC_OSX_TK
-VFUNC(int,TkMacOSXUseMenuID,V_TkMacOSXUseMenuID,_ANSI_ARGS_((short macID)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXUseMenuID */
-
-#ifndef TkMacOSXVisableClipRgn
-#ifdef MAC_OSX_TK
-VFUNC(RgnHandle,TkMacOSXVisableClipRgn,V_TkMacOSXVisableClipRgn,_ANSI_ARGS_((
- TkWindow * winPtr)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXVisableClipRgn */
-
-#ifndef TkMacOSXWinBounds
-#ifdef MAC_OSX_TK
-VFUNC(void,TkMacOSXWinBounds,V_TkMacOSXWinBounds,_ANSI_ARGS_((TkWindow * winPtr,
- Rect * geometry)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXWinBounds */
-
-#ifndef TkMacOSXWindowOffset
-#ifdef MAC_OSX_TK
-VFUNC(void,TkMacOSXWindowOffset,V_TkMacOSXWindowOffset,_ANSI_ARGS_((WindowRef wRef,
- int * xOffset, int * yOffset)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXWindowOffset */
-
-#ifndef TkMacOSXZoomToplevel
-#ifdef MAC_OSX_TK
-VFUNC(int,TkMacOSXZoomToplevel,V_TkMacOSXZoomToplevel,_ANSI_ARGS_((
- WindowPtr whichWindow, Point where,
- short zoomPart)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXZoomToplevel */
-
-#ifndef TkMacPreprocessMenu
-#ifdef MAC_TCL
-VFUNC(void,TkMacPreprocessMenu,V_TkMacPreprocessMenu,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacPreprocessMenu */
-
-#ifndef TkMacRegisterOffScreenWindow
-#ifdef MAC_TCL
-VFUNC(void,TkMacRegisterOffScreenWindow,V_TkMacRegisterOffScreenWindow,_ANSI_ARGS_((
- Window window, GWorldPtr portPtr)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacRegisterOffScreenWindow */
-
-#ifndef TkMacResizable
-#ifdef MAC_TCL
-VFUNC(int,TkMacResizable,V_TkMacResizable,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacResizable */
-
-#ifndef TkMacSetHelpMenuItemCount
-#ifdef MAC_TCL
-VFUNC(void,TkMacSetHelpMenuItemCount,V_TkMacSetHelpMenuItemCount,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacSetHelpMenuItemCount */
-
-#ifndef TkMacSetScrollbarGrow
-#ifdef MAC_TCL
-VFUNC(void,TkMacSetScrollbarGrow,V_TkMacSetScrollbarGrow,_ANSI_ARGS_((TkWindow * winPtr,
- int flag)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacSetScrollbarGrow */
-
-#ifndef TkMacSetUpClippingRgn
-#ifdef MAC_TCL
-VFUNC(void,TkMacSetUpClippingRgn,V_TkMacSetUpClippingRgn,_ANSI_ARGS_((Drawable drawable)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacSetUpClippingRgn */
-
-#ifndef TkMacSetUpGraphicsPort
-#ifdef MAC_TCL
-VFUNC(void,TkMacSetUpGraphicsPort,V_TkMacSetUpGraphicsPort,_ANSI_ARGS_((GC gc)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacSetUpGraphicsPort */
-
-#ifndef TkMacUnregisterMacWindow
-#ifdef MAC_TCL
-VFUNC(void,TkMacUnregisterMacWindow,V_TkMacUnregisterMacWindow,_ANSI_ARGS_((
- GWorldPtr portPtr)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacUnregisterMacWindow */
-
-#ifndef TkMacUpdateClipRgn
-#ifdef MAC_TCL
-VFUNC(void,TkMacUpdateClipRgn,V_TkMacUpdateClipRgn,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacUpdateClipRgn */
-
-#ifndef TkMacUseMenuID
-#ifdef MAC_TCL
-VFUNC(int,TkMacUseMenuID,V_TkMacUseMenuID,_ANSI_ARGS_((short macID)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacUseMenuID */
-
-#ifndef TkMacVisableClipRgn
-#ifdef MAC_TCL
-VFUNC(RgnHandle,TkMacVisableClipRgn,V_TkMacVisableClipRgn,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacVisableClipRgn */
-
-#ifndef TkMacWinBounds
-#ifdef MAC_TCL
-VFUNC(void,TkMacWinBounds,V_TkMacWinBounds,_ANSI_ARGS_((TkWindow * winPtr,
- Rect * geometry)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacWinBounds */
-
-#ifndef TkMacWindowOffset
-#ifdef MAC_TCL
-VFUNC(void,TkMacWindowOffset,V_TkMacWindowOffset,_ANSI_ARGS_((WindowRef wRef,
- int * xOffset, int * yOffset)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacWindowOffset */
-
-#ifndef TkMacZoomToplevel
-#ifdef MAC_TCL
-VFUNC(int,TkMacZoomToplevel,V_TkMacZoomToplevel,_ANSI_ARGS_((WindowPtr whichWindow,
- Point where, short zoomPart)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacZoomToplevel */
-
-#ifndef TkPointerDeadWindow
-#ifdef MAC_OSX_TK
-VFUNC(void,TkPointerDeadWindow,V_TkPointerDeadWindow,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,TkPointerDeadWindow,V_TkPointerDeadWindow,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,TkPointerDeadWindow,V_TkPointerDeadWindow,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkPointerDeadWindow */
-
-#ifndef TkSendCleanup
-#if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK))
-VFUNC(void,TkSendCleanup,V_TkSendCleanup,_ANSI_ARGS_((TkDisplay * dispPtr)))
-#endif /* #if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK)) */
-#endif /* #ifndef TkSendCleanup */
-
-#ifndef TkSetMacColor
-#ifdef MAC_OSX_TK
-VFUNC(int,TkSetMacColor,V_TkSetMacColor,_ANSI_ARGS_((unsigned long pixel,
- RGBColor * macColor)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(int,TkSetMacColor,V_TkSetMacColor,_ANSI_ARGS_((unsigned long pixel,
- RGBColor * macColor)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkSetMacColor */
-
-#ifndef TkSetPixmapColormap
-#ifdef __WIN32__
-VFUNC(void,TkSetPixmapColormap,V_TkSetPixmapColormap,_ANSI_ARGS_((Pixmap pixmap,
- Colormap colormap)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkSetPixmapColormap */
-
-#ifndef TkSetWMName
-#ifdef MAC_OSX_TK
-VFUNC(void,TkSetWMName,V_TkSetWMName,_ANSI_ARGS_((TkWindow * winPtr,
- Tk_Uid titleUid)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,TkSetWMName,V_TkSetWMName,_ANSI_ARGS_((TkWindow * winPtr,
- Tk_Uid titleUid)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkSetWMName */
-
-#ifndef TkSuspendClipboard
-#ifdef MAC_OSX_TK
-VFUNC(void,TkSuspendClipboard,V_TkSuspendClipboard,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,TkSuspendClipboard,V_TkSuspendClipboard,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkSuspendClipboard */
-
-#ifndef TkUnixContainerId
-#if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK))
-VFUNC(Window,TkUnixContainerId,V_TkUnixContainerId,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK)) */
-#endif /* #ifndef TkUnixContainerId */
-
-#ifndef TkUnixDoOneXEvent
-#if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK))
-VFUNC(int,TkUnixDoOneXEvent,V_TkUnixDoOneXEvent,_ANSI_ARGS_((Tcl_Time * timePtr)))
-#endif /* #if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK)) */
-#endif /* #ifndef TkUnixDoOneXEvent */
-
-#ifndef TkUnixSetMenubar
-#if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK))
-VFUNC(void,TkUnixSetMenubar,V_TkUnixSetMenubar,_ANSI_ARGS_((Tk_Window tkwin,
- Tk_Window menubar)))
-#endif /* #if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK)) */
-#endif /* #ifndef TkUnixSetMenubar */
-
-#ifndef TkWinCancelMouseTimer
-#ifdef __WIN32__
-VFUNC(void,TkWinCancelMouseTimer,V_TkWinCancelMouseTimer,_ANSI_ARGS_((void)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinCancelMouseTimer */
-
-#ifndef TkWinClipboardRender
-#ifdef __WIN32__
-VFUNC(void,TkWinClipboardRender,V_TkWinClipboardRender,_ANSI_ARGS_((
- TkDisplay * dispPtr, UINT format)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinClipboardRender */
-
-#ifndef TkWinDialogDebug
-#ifdef __WIN32__
-VFUNC(void,TkWinDialogDebug,V_TkWinDialogDebug,_ANSI_ARGS_((int debug)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinDialogDebug */
-
-#ifndef TkWinEmbeddedEventProc
-#ifdef __WIN32__
-VFUNC(LRESULT,TkWinEmbeddedEventProc,V_TkWinEmbeddedEventProc,_ANSI_ARGS_((HWND hwnd,
- UINT message, WPARAM wParam, LPARAM lParam)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinEmbeddedEventProc */
-
-#ifndef TkWinFillRect
-#ifdef __WIN32__
-VFUNC(void,TkWinFillRect,V_TkWinFillRect,_ANSI_ARGS_((HDC dc, int x, int y,
- int width, int height, int pixel)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinFillRect */
-
-#ifndef TkWinGetBorderPixels
-#ifdef __WIN32__
-VFUNC(COLORREF,TkWinGetBorderPixels,V_TkWinGetBorderPixels,_ANSI_ARGS_((Tk_Window tkwin,
- Tk_3DBorder border, int which)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinGetBorderPixels */
-
-#ifndef TkWinGetDrawableDC
-#ifdef __WIN32__
-VFUNC(HDC,TkWinGetDrawableDC,V_TkWinGetDrawableDC,_ANSI_ARGS_((Display * display,
- Drawable d, TkWinDCState* state)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinGetDrawableDC */
-
-#ifndef TkWinGetMenuSystemDefault
-#ifdef __WIN32__
-VFUNC(Tcl_Obj *,TkWinGetMenuSystemDefault,V_TkWinGetMenuSystemDefault,_ANSI_ARGS_((
- Tk_Window tkwin, CONST char * dbName,
- CONST char * className)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinGetMenuSystemDefault */
-
-#ifndef TkWinGetModifierState
-#ifdef __WIN32__
-VFUNC(int,TkWinGetModifierState,V_TkWinGetModifierState,_ANSI_ARGS_((void)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinGetModifierState */
-
-#ifndef TkWinGetPlatformId
-#ifdef __WIN32__
-VFUNC(int,TkWinGetPlatformId,V_TkWinGetPlatformId,_ANSI_ARGS_((void)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinGetPlatformId */
-
-#ifndef TkWinGetSystemPalette
-#ifdef __WIN32__
-VFUNC(HPALETTE,TkWinGetSystemPalette,V_TkWinGetSystemPalette,_ANSI_ARGS_((void)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinGetSystemPalette */
-
-#ifndef TkWinGetWrapperWindow
-#ifdef __WIN32__
-VFUNC(HWND,TkWinGetWrapperWindow,V_TkWinGetWrapperWindow,_ANSI_ARGS_((Tk_Window tkwin)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinGetWrapperWindow */
-
-#ifndef TkWinHandleMenuEvent
-#ifdef __WIN32__
-VFUNC(int,TkWinHandleMenuEvent,V_TkWinHandleMenuEvent,_ANSI_ARGS_((HWND * phwnd,
- UINT * pMessage, WPARAM * pwParam,
- LPARAM * plParam, LRESULT * plResult)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinHandleMenuEvent */
-
-#ifndef TkWinIndexOfColor
-#ifdef __WIN32__
-VFUNC(int,TkWinIndexOfColor,V_TkWinIndexOfColor,_ANSI_ARGS_((XColor * colorPtr)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinIndexOfColor */
-
-#ifndef TkWinReleaseDrawableDC
-#ifdef __WIN32__
-VFUNC(void,TkWinReleaseDrawableDC,V_TkWinReleaseDrawableDC,_ANSI_ARGS_((Drawable d,
- HDC hdc, TkWinDCState* state)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinReleaseDrawableDC */
-
-#ifndef TkWinResendEvent
-#ifdef __WIN32__
-VFUNC(LRESULT,TkWinResendEvent,V_TkWinResendEvent,_ANSI_ARGS_((WNDPROC wndproc,
- HWND hwnd, XEvent * eventPtr)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinResendEvent */
-
-#ifndef TkWinSelectPalette
-#ifdef __WIN32__
-VFUNC(HPALETTE,TkWinSelectPalette,V_TkWinSelectPalette,_ANSI_ARGS_((HDC dc,
- Colormap colormap)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinSelectPalette */
-
-#ifndef TkWinSetForegroundWindow
-#ifdef __WIN32__
-VFUNC(void,TkWinSetForegroundWindow,V_TkWinSetForegroundWindow,_ANSI_ARGS_((
- TkWindow * winPtr)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinSetForegroundWindow */
-
-#ifndef TkWinSetHINSTANCE
-#ifdef __WIN32__
-VFUNC(void,TkWinSetHINSTANCE,V_TkWinSetHINSTANCE,_ANSI_ARGS_((HINSTANCE hInstance)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinSetHINSTANCE */
-
-#ifndef TkWinSetMenu
-#ifdef __WIN32__
-VFUNC(void,TkWinSetMenu,V_TkWinSetMenu,_ANSI_ARGS_((Tk_Window tkwin,
- HMENU hMenu)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinSetMenu */
-
-#ifndef TkWinSetWindowPos
-#ifdef __WIN32__
-VFUNC(void,TkWinSetWindowPos,V_TkWinSetWindowPos,_ANSI_ARGS_((HWND hwnd,
- HWND siblingHwnd, int pos)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinSetWindowPos */
-
-#ifndef TkWinWmCleanup
-#ifdef __WIN32__
-VFUNC(void,TkWinWmCleanup,V_TkWinWmCleanup,_ANSI_ARGS_((HINSTANCE hInstance)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinWmCleanup */
-
-#ifndef TkWinXCleanup
-#ifdef __WIN32__
-VFUNC(void,TkWinXCleanup,V_TkWinXCleanup,_ANSI_ARGS_((HINSTANCE hInstance)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinXCleanup */
-
-#ifndef TkWinXInit
-#ifdef __WIN32__
-VFUNC(void,TkWinXInit,V_TkWinXInit,_ANSI_ARGS_((HINSTANCE hInstance)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkWinXInit */
-
-#ifndef TkWmCleanup
-#if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK))
-VFUNC(void,TkWmCleanup,V_TkWmCleanup,_ANSI_ARGS_((TkDisplay * dispPtr)))
-#endif /* #if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK)) */
-#endif /* #ifndef TkWmCleanup */
-
-#ifndef Tk_TopCoordsToWindow
-#ifdef MAC_OSX_TK
-VFUNC(Tk_Window,Tk_TopCoordsToWindow,V_Tk_TopCoordsToWindow,_ANSI_ARGS_((Tk_Window tkwin,
- int rootX, int rootY, int * newX, int * newY)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(Tk_Window,Tk_TopCoordsToWindow,V_Tk_TopCoordsToWindow,_ANSI_ARGS_((Tk_Window tkwin,
- int rootX, int rootY, int * newX, int * newY)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef Tk_TopCoordsToWindow */
-
-#ifndef TkpCmapStressed
-#if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK))
-VFUNC(int,TkpCmapStressed,V_TkpCmapStressed,_ANSI_ARGS_((Tk_Window tkwin,
- Colormap colormap)))
-#endif /* #if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK)) */
-#endif /* #ifndef TkpCmapStressed */
-
-#ifndef TkpGetMS
-#ifdef MAC_OSX_TK
-VFUNC(unsigned long,TkpGetMS,V_TkpGetMS,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(unsigned long,TkpGetMS,V_TkpGetMS,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(unsigned long,TkpGetMS,V_TkpGetMS,_ANSI_ARGS_((void)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkpGetMS */
-
-#ifndef TkpIsWindowFloating
-#ifdef MAC_OSX_TK
-VFUNC(int,TkpIsWindowFloating,V_TkpIsWindowFloating,_ANSI_ARGS_((WindowRef window)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(int,TkpIsWindowFloating,V_TkpIsWindowFloating,_ANSI_ARGS_((WindowRef window)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkpIsWindowFloating */
-
-#ifndef TkpPrintWindowId
-#ifdef __WIN32__
-VFUNC(void,TkpPrintWindowId,V_TkpPrintWindowId,_ANSI_ARGS_((char * buf,
- Window window)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkpPrintWindowId */
-
-#ifndef TkpScanWindowId
-#if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK))
-VFUNC(int,TkpScanWindowId,V_TkpScanWindowId,_ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Obj *string, Window * idPtr)))
-#endif /* #if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK)) */
-#ifdef __WIN32__
-VFUNC(int,TkpScanWindowId,V_TkpScanWindowId,_ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Obj * string, Window * idPtr)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkpScanWindowId */
-
-#ifndef TkpSetCapture
-#ifdef MAC_OSX_TK
-VFUNC(void,TkpSetCapture,V_TkpSetCapture,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,TkpSetCapture,V_TkpSetCapture,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,TkpSetCapture,V_TkpSetCapture,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkpSetCapture */
-
-#ifndef TkpSetCursor
-#ifdef MAC_OSX_TK
-VFUNC(void,TkpSetCursor,V_TkpSetCursor,_ANSI_ARGS_((TkpCursor cursor)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,TkpSetCursor,V_TkpSetCursor,_ANSI_ARGS_((TkpCursor cursor)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,TkpSetCursor,V_TkpSetCursor,_ANSI_ARGS_((TkpCursor cursor)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkpSetCursor */
-
-#ifndef TkpSync
-#if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK))
-VFUNC(void,TkpSync,V_TkpSync,_ANSI_ARGS_((Display * display)))
-#endif /* #if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK)) */
-#endif /* #ifndef TkpSync */
-
-#ifndef TkpWmSetState
-#if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK))
-VFUNC(int,TkpWmSetState,V_TkpWmSetState,_ANSI_ARGS_((TkWindow * winPtr,
- int state)))
-#endif /* #if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK)) */
-#ifdef MAC_OSX_TK
-VFUNC(void,TkpWmSetState,V_TkpWmSetState,_ANSI_ARGS_((TkWindow * winPtr,
- int state)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,TkpWmSetState,V_TkpWmSetState,_ANSI_ARGS_((TkWindow * winPtr,
- int state)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,TkpWmSetState,V_TkpWmSetState,_ANSI_ARGS_((TkWindow * winPtr,
- int state)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkpWmSetState */
-
-#endif /* _TKINTPLATDECLS */
diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls_f.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls_f.h deleted file mode 100644 index 8eef38bdcb1..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls_f.h +++ /dev/null @@ -1,14 +0,0 @@ -#ifndef TKINTPLATDECLS_VT -#define TKINTPLATDECLS_VT -typedef struct TkintplatdeclsVtab -{ - unsigned (*tabSize)(void); -#define VFUNC(type,name,mem,args) type (*mem) args; -#define VVAR(type,name,mem) type (*mem); -#include "tkIntPlatDecls.t" -#undef VFUNC -#undef VVAR -} TkintplatdeclsVtab; -extern TkintplatdeclsVtab *TkintplatdeclsVptr; -extern TkintplatdeclsVtab *TkintplatdeclsVGet(void); -#endif /* TKINTPLATDECLS_VT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls.h deleted file mode 100644 index 052c5ba9737..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls.h +++ /dev/null @@ -1,2436 +0,0 @@ -/* - * tkIntXlibDecls.h -- - * - * This file contains the declarations for all platform dependent - * unsupported functions that are exported by the Tk library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - * - * RCS: @(#) $Id: tkIntXlibDecls.h,v 1.16 2002/10/09 11:56:33 das Exp $ - */ - -#ifndef _TKINTXLIBDECLS -#define _TKINTXLIBDECLS - -#include <X11/Xlib.h> - -#ifdef MAC_TCL -#include "Xutil.h" -#else -#include "X11/Xutil.h" -#endif - -#include "Lang.h" - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tkInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -/* - * Exported function declarations: - */ - -#ifdef __WIN32__ -/* 0 */ -EXTERN void XSetDashes _ANSI_ARGS_((Display* display, GC gc, - int dash_offset, _Xconst char* dash_list, - int n)); -/* 1 */ -EXTERN XModifierKeymap* XGetModifierMapping _ANSI_ARGS_((Display* d)); -/* 2 */ -EXTERN XImage * XCreateImage _ANSI_ARGS_((Display* d, Visual* v, - unsigned int ui1, int i1, int i2, char* cp, - unsigned int ui2, unsigned int ui3, int i3, - int i4)); -/* 3 */ -EXTERN XImage * XGetImage _ANSI_ARGS_((Display* d, Drawable dr, - int i1, int i2, unsigned int ui1, - unsigned int ui2, unsigned long ul, int i3)); -/* 4 */ -EXTERN char * XGetAtomName _ANSI_ARGS_((Display* d, Atom a)); -/* 5 */ -EXTERN char * XKeysymToString _ANSI_ARGS_((KeySym k)); -/* 6 */ -EXTERN Colormap XCreateColormap _ANSI_ARGS_((Display* d, Window w, - Visual* v, int i)); -/* 7 */ -EXTERN Cursor XCreatePixmapCursor _ANSI_ARGS_((Display* d, - Pixmap p1, Pixmap p2, XColor* x1, XColor* x2, - unsigned int ui1, unsigned int ui2)); -/* 8 */ -EXTERN Cursor XCreateGlyphCursor _ANSI_ARGS_((Display* d, Font f1, - Font f2, unsigned int ui1, unsigned int ui2, - XColor* x1, XColor* x2)); -/* 9 */ -EXTERN GContext XGContextFromGC _ANSI_ARGS_((GC g)); -/* 10 */ -EXTERN XHostAddress * XListHosts _ANSI_ARGS_((Display* d, int* i, Bool* b)); -/* 11 */ -EXTERN KeySym XKeycodeToKeysym _ANSI_ARGS_((Display* d, - unsigned int k, int i)); -/* 12 */ -EXTERN KeySym XStringToKeysym _ANSI_ARGS_((_Xconst char* c)); -/* 13 */ -EXTERN Window XRootWindow _ANSI_ARGS_((Display* d, int i)); -/* 14 */ -EXTERN XErrorHandler XSetErrorHandler _ANSI_ARGS_((XErrorHandler x)); -/* 15 */ -EXTERN Status XIconifyWindow _ANSI_ARGS_((Display* d, Window w, - int i)); -/* 16 */ -EXTERN Status XWithdrawWindow _ANSI_ARGS_((Display* d, Window w, - int i)); -/* 17 */ -EXTERN Status XGetWMColormapWindows _ANSI_ARGS_((Display* d, - Window w, Window** wpp, int* ip)); -/* 18 */ -EXTERN Status XAllocColor _ANSI_ARGS_((Display* d, Colormap c, - XColor* xp)); -/* 19 */ -EXTERN void XBell _ANSI_ARGS_((Display* d, int i)); -/* 20 */ -EXTERN void XChangeProperty _ANSI_ARGS_((Display* d, Window w, - Atom a1, Atom a2, int i1, int i2, - _Xconst unsigned char* c, int i3)); -/* 21 */ -EXTERN void XChangeWindowAttributes _ANSI_ARGS_((Display* d, - Window w, unsigned long ul, - XSetWindowAttributes* x)); -/* 22 */ -EXTERN void XClearWindow _ANSI_ARGS_((Display* d, Window w)); -/* 23 */ -EXTERN void XConfigureWindow _ANSI_ARGS_((Display* d, Window w, - unsigned int i, XWindowChanges* x)); -/* 24 */ -EXTERN void XCopyArea _ANSI_ARGS_((Display* d, Drawable dr1, - Drawable dr2, GC g, int i1, int i2, - unsigned int ui1, unsigned int ui2, int i3, - int i4)); -/* 25 */ -EXTERN void XCopyPlane _ANSI_ARGS_((Display* d, Drawable dr1, - Drawable dr2, GC g, int i1, int i2, - unsigned int ui1, unsigned int ui2, int i3, - int i4, unsigned long ul)); -/* 26 */ -EXTERN Pixmap XCreateBitmapFromData _ANSI_ARGS_((Display* display, - Drawable d, _Xconst char* data, - unsigned int width, unsigned int height)); -/* 27 */ -EXTERN void XDefineCursor _ANSI_ARGS_((Display* d, Window w, - Cursor c)); -/* 28 */ -EXTERN void XDeleteProperty _ANSI_ARGS_((Display* d, Window w, - Atom a)); -/* 29 */ -EXTERN void XDestroyWindow _ANSI_ARGS_((Display* d, Window w)); -/* 30 */ -EXTERN void XDrawArc _ANSI_ARGS_((Display* d, Drawable dr, GC g, - int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4)); -/* 31 */ -EXTERN void XDrawLines _ANSI_ARGS_((Display* d, Drawable dr, - GC g, XPoint* x, int i1, int i2)); -/* 32 */ -EXTERN void XDrawRectangle _ANSI_ARGS_((Display* d, Drawable dr, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2)); -/* 33 */ -EXTERN void XFillArc _ANSI_ARGS_((Display* d, Drawable dr, GC g, - int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4)); -/* 34 */ -EXTERN void XFillPolygon _ANSI_ARGS_((Display* d, Drawable dr, - GC g, XPoint* x, int i1, int i2, int i3)); -/* 35 */ -EXTERN void XFillRectangles _ANSI_ARGS_((Display* d, Drawable dr, - GC g, XRectangle* x, int i)); -/* 36 */ -EXTERN void XForceScreenSaver _ANSI_ARGS_((Display* d, int i)); -/* 37 */ -EXTERN void XFreeColormap _ANSI_ARGS_((Display* d, Colormap c)); -/* 38 */ -EXTERN void XFreeColors _ANSI_ARGS_((Display* d, Colormap c, - unsigned long* ulp, int i, unsigned long ul)); -/* 39 */ -EXTERN void XFreeCursor _ANSI_ARGS_((Display* d, Cursor c)); -/* 40 */ -EXTERN void XFreeModifiermap _ANSI_ARGS_((XModifierKeymap* x)); -/* 41 */ -EXTERN Status XGetGeometry _ANSI_ARGS_((Display* d, Drawable dr, - Window* w, int* i1, int* i2, - unsigned int* ui1, unsigned int* ui2, - unsigned int* ui3, unsigned int* ui4)); -/* 42 */ -EXTERN void XGetInputFocus _ANSI_ARGS_((Display* d, Window* w, - int* i)); -/* 43 */ -EXTERN int XGetWindowProperty _ANSI_ARGS_((Display* d, Window w, - Atom a1, long l1, long l2, Bool b, Atom a2, - Atom* ap, int* ip, unsigned long* ulp1, - unsigned long* ulp2, unsigned char** cpp)); -/* 44 */ -EXTERN Status XGetWindowAttributes _ANSI_ARGS_((Display* d, - Window w, XWindowAttributes* x)); -/* 45 */ -EXTERN int XGrabKeyboard _ANSI_ARGS_((Display* d, Window w, - Bool b, int i1, int i2, Time t)); -/* 46 */ -EXTERN int XGrabPointer _ANSI_ARGS_((Display* d, Window w1, - Bool b, unsigned int ui, int i1, int i2, - Window w2, Cursor c, Time t)); -/* 47 */ -EXTERN KeyCode XKeysymToKeycode _ANSI_ARGS_((Display* d, KeySym k)); -/* 48 */ -EXTERN Status XLookupColor _ANSI_ARGS_((Display* d, Colormap c1, - _Xconst char* c2, XColor* x1, XColor* x2)); -/* 49 */ -EXTERN void XMapWindow _ANSI_ARGS_((Display* d, Window w)); -/* 50 */ -EXTERN void XMoveResizeWindow _ANSI_ARGS_((Display* d, Window w, - int i1, int i2, unsigned int ui1, - unsigned int ui2)); -/* 51 */ -EXTERN void XMoveWindow _ANSI_ARGS_((Display* d, Window w, - int i1, int i2)); -/* 52 */ -EXTERN void XNextEvent _ANSI_ARGS_((Display* d, XEvent* x)); -/* 53 */ -EXTERN void XPutBackEvent _ANSI_ARGS_((Display* d, XEvent* x)); -/* 54 */ -EXTERN void XQueryColors _ANSI_ARGS_((Display* d, Colormap c, - XColor* x, int i)); -/* 55 */ -EXTERN Bool XQueryPointer _ANSI_ARGS_((Display* d, Window w1, - Window* w2, Window* w3, int* i1, int* i2, - int* i3, int* i4, unsigned int* ui)); -/* 56 */ -EXTERN Status XQueryTree _ANSI_ARGS_((Display* d, Window w1, - Window* w2, Window* w3, Window** w4, - unsigned int* ui)); -/* 57 */ -EXTERN void XRaiseWindow _ANSI_ARGS_((Display* d, Window w)); -/* 58 */ -EXTERN void XRefreshKeyboardMapping _ANSI_ARGS_(( - XMappingEvent* x)); -/* 59 */ -EXTERN void XResizeWindow _ANSI_ARGS_((Display* d, Window w, - unsigned int ui1, unsigned int ui2)); -/* 60 */ -EXTERN void XSelectInput _ANSI_ARGS_((Display* d, Window w, - long l)); -/* 61 */ -EXTERN Status XSendEvent _ANSI_ARGS_((Display* d, Window w, Bool b, - long l, XEvent* x)); -/* 62 */ -EXTERN void XSetCommand _ANSI_ARGS_((Display* d, Window w, - CONST char** c, int i)); -/* 63 */ -EXTERN void XSetIconName _ANSI_ARGS_((Display* d, Window w, - _Xconst char* c)); -/* 64 */ -EXTERN void XSetInputFocus _ANSI_ARGS_((Display* d, Window w, - int i, Time t)); -/* 65 */ -EXTERN void XSetSelectionOwner _ANSI_ARGS_((Display* d, Atom a, - Window w, Time t)); -/* 66 */ -EXTERN void XSetWindowBackground _ANSI_ARGS_((Display* d, - Window w, unsigned long ul)); -/* 67 */ -EXTERN void XSetWindowBackgroundPixmap _ANSI_ARGS_((Display* d, - Window w, Pixmap p)); -/* 68 */ -EXTERN void XSetWindowBorder _ANSI_ARGS_((Display* d, Window w, - unsigned long ul)); -/* 69 */ -EXTERN void XSetWindowBorderPixmap _ANSI_ARGS_((Display* d, - Window w, Pixmap p)); -/* 70 */ -EXTERN void XSetWindowBorderWidth _ANSI_ARGS_((Display* d, - Window w, unsigned int ui)); -/* 71 */ -EXTERN void XSetWindowColormap _ANSI_ARGS_((Display* d, Window w, - Colormap c)); -/* 72 */ -EXTERN Bool XTranslateCoordinates _ANSI_ARGS_((Display* d, - Window w1, Window w2, int i1, int i2, - int* i3, int* i4, Window* w3)); -/* 73 */ -EXTERN void XUngrabKeyboard _ANSI_ARGS_((Display* d, Time t)); -/* 74 */ -EXTERN void XUngrabPointer _ANSI_ARGS_((Display* d, Time t)); -/* 75 */ -EXTERN void XUnmapWindow _ANSI_ARGS_((Display* d, Window w)); -/* 76 */ -EXTERN void XWindowEvent _ANSI_ARGS_((Display* d, Window w, - long l, XEvent* x)); -/* 77 */ -EXTERN void XDestroyIC _ANSI_ARGS_((XIC x)); -/* 78 */ -EXTERN Bool XFilterEvent _ANSI_ARGS_((XEvent* x, Window w)); -/* 79 */ -EXTERN int XmbLookupString _ANSI_ARGS_((XIC xi, - XKeyPressedEvent* xk, char* c, int i, - KeySym* k, Status* s)); -/* 80 */ -EXTERN void TkPutImage _ANSI_ARGS_((unsigned long * colors, - int ncolors, Display* display, Drawable d, - GC gc, XImage* image, int src_x, int src_y, - int dest_x, int dest_y, unsigned int width, - unsigned int height)); -/* Slot 81 is reserved */ -/* 82 */ -EXTERN Status XParseColor _ANSI_ARGS_((Display * display, - Colormap map, _Xconst char* spec, - XColor * colorPtr)); -/* 83 */ -EXTERN GC XCreateGC _ANSI_ARGS_((Display* display, Drawable d, - unsigned long valuemask, XGCValues* values)); -/* 84 */ -EXTERN void XFreeGC _ANSI_ARGS_((Display* display, GC gc)); -/* 85 */ -EXTERN Atom XInternAtom _ANSI_ARGS_((Display* display, - _Xconst char* atom_name, Bool only_if_exists)); -/* 86 */ -EXTERN void XSetBackground _ANSI_ARGS_((Display* display, GC gc, - unsigned long foreground)); -/* 87 */ -EXTERN void XSetForeground _ANSI_ARGS_((Display* display, GC gc, - unsigned long foreground)); -/* 88 */ -EXTERN void XSetClipMask _ANSI_ARGS_((Display* display, GC gc, - Pixmap pixmap)); -/* 89 */ -EXTERN void XSetClipOrigin _ANSI_ARGS_((Display* display, GC gc, - int clip_x_origin, int clip_y_origin)); -/* 90 */ -EXTERN void XSetTSOrigin _ANSI_ARGS_((Display* display, GC gc, - int ts_x_origin, int ts_y_origin)); -/* 91 */ -EXTERN void XChangeGC _ANSI_ARGS_((Display * d, GC gc, - unsigned long mask, XGCValues * values)); -/* 92 */ -EXTERN void XSetFont _ANSI_ARGS_((Display * display, GC gc, - Font font)); -/* 93 */ -EXTERN void XSetArcMode _ANSI_ARGS_((Display * display, GC gc, - int arc_mode)); -/* 94 */ -EXTERN void XSetStipple _ANSI_ARGS_((Display * display, GC gc, - Pixmap stipple)); -/* 95 */ -EXTERN void XSetFillRule _ANSI_ARGS_((Display * display, GC gc, - int fill_rule)); -/* 96 */ -EXTERN void XSetFillStyle _ANSI_ARGS_((Display * display, GC gc, - int fill_style)); -/* 97 */ -EXTERN void XSetFunction _ANSI_ARGS_((Display * display, GC gc, - int function)); -/* 98 */ -EXTERN void XSetLineAttributes _ANSI_ARGS_((Display * display, - GC gc, unsigned int line_width, - int line_style, int cap_style, - int join_style)); -/* 99 */ -EXTERN int _XInitImageFuncPtrs _ANSI_ARGS_((XImage * image)); -/* 100 */ -EXTERN XIC XCreateIC _ANSI_ARGS_((void)); -/* 101 */ -EXTERN XVisualInfo * XGetVisualInfo _ANSI_ARGS_((Display* display, - long vinfo_mask, XVisualInfo* vinfo_template, - int* nitems_return)); -/* 102 */ -EXTERN void XSetWMClientMachine _ANSI_ARGS_((Display* display, - Window w, XTextProperty* text_prop)); -/* 103 */ -EXTERN Status XStringListToTextProperty _ANSI_ARGS_((char** list, - int count, XTextProperty* text_prop_return)); -/* 104 */ -EXTERN void XDrawLine _ANSI_ARGS_((Display* d, Drawable dr, GC g, - int x1, int y1, int x2, int y2)); -/* 105 */ -EXTERN void XWarpPointer _ANSI_ARGS_((Display* d, Window s, - Window dw, int sx, int sy, unsigned int sw, - unsigned int sh, int dx, int dy)); -/* 106 */ -EXTERN void XFillRectangle _ANSI_ARGS_((Display* display, - Drawable d, GC gc, int x, int y, - unsigned int width, unsigned int height)); -#endif /* __WIN32__ */ -#ifdef MAC_TCL -/* 0 */ -EXTERN void XSetDashes _ANSI_ARGS_((Display* display, GC gc, - int dash_offset, _Xconst char* dash_list, - int n)); -/* 1 */ -EXTERN XModifierKeymap* XGetModifierMapping _ANSI_ARGS_((Display* d)); -/* 2 */ -EXTERN XImage * XCreateImage _ANSI_ARGS_((Display* d, Visual* v, - unsigned int ui1, int i1, int i2, char* cp, - unsigned int ui2, unsigned int ui3, int i3, - int i4)); -/* 3 */ -EXTERN XImage * XGetImage _ANSI_ARGS_((Display* d, Drawable dr, - int i1, int i2, unsigned int ui1, - unsigned int ui2, unsigned long ul, int i3)); -/* 4 */ -EXTERN char * XGetAtomName _ANSI_ARGS_((Display* d, Atom a)); -/* 5 */ -EXTERN char * XKeysymToString _ANSI_ARGS_((KeySym k)); -/* 6 */ -EXTERN Colormap XCreateColormap _ANSI_ARGS_((Display* d, Window w, - Visual* v, int i)); -/* 7 */ -EXTERN GContext XGContextFromGC _ANSI_ARGS_((GC g)); -/* 8 */ -EXTERN KeySym XKeycodeToKeysym _ANSI_ARGS_((Display* d, KeyCode k, - int i)); -/* 9 */ -EXTERN KeySym XStringToKeysym _ANSI_ARGS_((_Xconst char* c)); -/* 10 */ -EXTERN Window XRootWindow _ANSI_ARGS_((Display* d, int i)); -/* 11 */ -EXTERN XErrorHandler XSetErrorHandler _ANSI_ARGS_((XErrorHandler x)); -/* 12 */ -EXTERN Status XAllocColor _ANSI_ARGS_((Display* d, Colormap c, - XColor* xp)); -/* 13 */ -EXTERN void XBell _ANSI_ARGS_((Display* d, int i)); -/* 14 */ -EXTERN void XChangeProperty _ANSI_ARGS_((Display* d, Window w, - Atom a1, Atom a2, int i1, int i2, - _Xconst unsigned char* c, int i3)); -/* 15 */ -EXTERN void XChangeWindowAttributes _ANSI_ARGS_((Display* d, - Window w, unsigned long ul, - XSetWindowAttributes* x)); -/* 16 */ -EXTERN void XConfigureWindow _ANSI_ARGS_((Display* d, Window w, - unsigned int i, XWindowChanges* x)); -/* 17 */ -EXTERN void XCopyArea _ANSI_ARGS_((Display* d, Drawable dr1, - Drawable dr2, GC g, int i1, int i2, - unsigned int ui1, unsigned int ui2, int i3, - int i4)); -/* 18 */ -EXTERN void XCopyPlane _ANSI_ARGS_((Display* d, Drawable dr1, - Drawable dr2, GC g, int i1, int i2, - unsigned int ui1, unsigned int ui2, int i3, - int i4, unsigned long ul)); -/* 19 */ -EXTERN Pixmap XCreateBitmapFromData _ANSI_ARGS_((Display* display, - Drawable d, _Xconst char* data, - unsigned int width, unsigned int height)); -/* 20 */ -EXTERN void XDefineCursor _ANSI_ARGS_((Display* d, Window w, - Cursor c)); -/* 21 */ -EXTERN void XDestroyWindow _ANSI_ARGS_((Display* d, Window w)); -/* 22 */ -EXTERN void XDrawArc _ANSI_ARGS_((Display* d, Drawable dr, GC g, - int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4)); -/* 23 */ -EXTERN void XDrawLines _ANSI_ARGS_((Display* d, Drawable dr, - GC g, XPoint* x, int i1, int i2)); -/* 24 */ -EXTERN void XDrawRectangle _ANSI_ARGS_((Display* d, Drawable dr, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2)); -/* 25 */ -EXTERN void XFillArc _ANSI_ARGS_((Display* d, Drawable dr, GC g, - int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4)); -/* 26 */ -EXTERN void XFillPolygon _ANSI_ARGS_((Display* d, Drawable dr, - GC g, XPoint* x, int i1, int i2, int i3)); -/* 27 */ -EXTERN void XFillRectangles _ANSI_ARGS_((Display* d, Drawable dr, - GC g, XRectangle* x, int i)); -/* 28 */ -EXTERN void XFreeColormap _ANSI_ARGS_((Display* d, Colormap c)); -/* 29 */ -EXTERN void XFreeColors _ANSI_ARGS_((Display* d, Colormap c, - unsigned long* ulp, int i, unsigned long ul)); -/* 30 */ -EXTERN void XFreeModifiermap _ANSI_ARGS_((XModifierKeymap* x)); -/* 31 */ -EXTERN Status XGetGeometry _ANSI_ARGS_((Display* d, Drawable dr, - Window* w, int* i1, int* i2, - unsigned int* ui1, unsigned int* ui2, - unsigned int* ui3, unsigned int* ui4)); -/* 32 */ -EXTERN int XGetWindowProperty _ANSI_ARGS_((Display* d, Window w, - Atom a1, long l1, long l2, Bool b, Atom a2, - Atom* ap, int* ip, unsigned long* ulp1, - unsigned long* ulp2, unsigned char** cpp)); -/* 33 */ -EXTERN int XGrabKeyboard _ANSI_ARGS_((Display* d, Window w, - Bool b, int i1, int i2, Time t)); -/* 34 */ -EXTERN int XGrabPointer _ANSI_ARGS_((Display* d, Window w1, - Bool b, unsigned int ui, int i1, int i2, - Window w2, Cursor c, Time t)); -/* 35 */ -EXTERN KeyCode XKeysymToKeycode _ANSI_ARGS_((Display* d, KeySym k)); -/* 36 */ -EXTERN void XMapWindow _ANSI_ARGS_((Display* d, Window w)); -/* 37 */ -EXTERN void XMoveResizeWindow _ANSI_ARGS_((Display* d, Window w, - int i1, int i2, unsigned int ui1, - unsigned int ui2)); -/* 38 */ -EXTERN void XMoveWindow _ANSI_ARGS_((Display* d, Window w, - int i1, int i2)); -/* 39 */ -EXTERN Bool XQueryPointer _ANSI_ARGS_((Display* d, Window w1, - Window* w2, Window* w3, int* i1, int* i2, - int* i3, int* i4, unsigned int* ui)); -/* 40 */ -EXTERN void XRaiseWindow _ANSI_ARGS_((Display* d, Window w)); -/* 41 */ -EXTERN void XRefreshKeyboardMapping _ANSI_ARGS_(( - XMappingEvent* x)); -/* 42 */ -EXTERN void XResizeWindow _ANSI_ARGS_((Display* d, Window w, - unsigned int ui1, unsigned int ui2)); -/* 43 */ -EXTERN void XSelectInput _ANSI_ARGS_((Display* d, Window w, - long l)); -/* 44 */ -EXTERN Status XSendEvent _ANSI_ARGS_((Display* d, Window w, Bool b, - long l, XEvent* x)); -/* 45 */ -EXTERN void XSetIconName _ANSI_ARGS_((Display* d, Window w, - _Xconst char* c)); -/* 46 */ -EXTERN void XSetInputFocus _ANSI_ARGS_((Display* d, Window w, - int i, Time t)); -/* 47 */ -EXTERN void XSetSelectionOwner _ANSI_ARGS_((Display* d, Atom a, - Window w, Time t)); -/* 48 */ -EXTERN void XSetWindowBackground _ANSI_ARGS_((Display* d, - Window w, unsigned long ul)); -/* 49 */ -EXTERN void XSetWindowBackgroundPixmap _ANSI_ARGS_((Display* d, - Window w, Pixmap p)); -/* 50 */ -EXTERN void XSetWindowBorder _ANSI_ARGS_((Display* d, Window w, - unsigned long ul)); -/* 51 */ -EXTERN void XSetWindowBorderPixmap _ANSI_ARGS_((Display* d, - Window w, Pixmap p)); -/* 52 */ -EXTERN void XSetWindowBorderWidth _ANSI_ARGS_((Display* d, - Window w, unsigned int ui)); -/* 53 */ -EXTERN void XSetWindowColormap _ANSI_ARGS_((Display* d, Window w, - Colormap c)); -/* 54 */ -EXTERN void XUngrabKeyboard _ANSI_ARGS_((Display* d, Time t)); -/* 55 */ -EXTERN void XUngrabPointer _ANSI_ARGS_((Display* d, Time t)); -/* 56 */ -EXTERN void XUnmapWindow _ANSI_ARGS_((Display* d, Window w)); -/* 57 */ -EXTERN void TkPutImage _ANSI_ARGS_((unsigned long * colors, - int ncolors, Display* display, Drawable d, - GC gc, XImage* image, int src_x, int src_y, - int dest_x, int dest_y, unsigned int width, - unsigned int height)); -/* 58 */ -EXTERN Status XParseColor _ANSI_ARGS_((Display * display, - Colormap map, _Xconst char* spec, - XColor * colorPtr)); -/* 59 */ -EXTERN GC XCreateGC _ANSI_ARGS_((Display* display, Drawable d, - unsigned long valuemask, XGCValues* values)); -/* 60 */ -EXTERN void XFreeGC _ANSI_ARGS_((Display* display, GC gc)); -/* 61 */ -EXTERN Atom XInternAtom _ANSI_ARGS_((Display* display, - _Xconst char* atom_name, Bool only_if_exists)); -/* 62 */ -EXTERN void XSetBackground _ANSI_ARGS_((Display* display, GC gc, - unsigned long foreground)); -/* 63 */ -EXTERN void XSetForeground _ANSI_ARGS_((Display* display, GC gc, - unsigned long foreground)); -/* 64 */ -EXTERN void XSetClipMask _ANSI_ARGS_((Display* display, GC gc, - Pixmap pixmap)); -/* 65 */ -EXTERN void XSetClipOrigin _ANSI_ARGS_((Display* display, GC gc, - int clip_x_origin, int clip_y_origin)); -/* 66 */ -EXTERN void XSetTSOrigin _ANSI_ARGS_((Display* display, GC gc, - int ts_x_origin, int ts_y_origin)); -/* 67 */ -EXTERN void XChangeGC _ANSI_ARGS_((Display * d, GC gc, - unsigned long mask, XGCValues * values)); -/* 68 */ -EXTERN void XSetFont _ANSI_ARGS_((Display * display, GC gc, - Font font)); -/* 69 */ -EXTERN void XSetArcMode _ANSI_ARGS_((Display * display, GC gc, - int arc_mode)); -/* 70 */ -EXTERN void XSetStipple _ANSI_ARGS_((Display * display, GC gc, - Pixmap stipple)); -/* 71 */ -EXTERN void XSetFillRule _ANSI_ARGS_((Display * display, GC gc, - int fill_rule)); -/* 72 */ -EXTERN void XSetFillStyle _ANSI_ARGS_((Display * display, GC gc, - int fill_style)); -/* 73 */ -EXTERN void XSetFunction _ANSI_ARGS_((Display * display, GC gc, - int function)); -/* 74 */ -EXTERN void XSetLineAttributes _ANSI_ARGS_((Display * display, - GC gc, unsigned int line_width, - int line_style, int cap_style, - int join_style)); -/* 75 */ -EXTERN int _XInitImageFuncPtrs _ANSI_ARGS_((XImage * image)); -/* 76 */ -EXTERN XIC XCreateIC _ANSI_ARGS_((void)); -/* 77 */ -EXTERN XVisualInfo * XGetVisualInfo _ANSI_ARGS_((Display* display, - long vinfo_mask, XVisualInfo* vinfo_template, - int* nitems_return)); -/* 78 */ -EXTERN void XSetWMClientMachine _ANSI_ARGS_((Display* display, - Window w, XTextProperty* text_prop)); -/* 79 */ -EXTERN Status XStringListToTextProperty _ANSI_ARGS_((char** list, - int count, XTextProperty* text_prop_return)); -/* 80 */ -EXTERN void XDrawSegments _ANSI_ARGS_((Display * display, - Drawable d, GC gc, XSegment * segments, - int nsegments)); -/* 81 */ -EXTERN void XForceScreenSaver _ANSI_ARGS_((Display* display, - int mode)); -/* 82 */ -EXTERN void XDrawLine _ANSI_ARGS_((Display* d, Drawable dr, GC g, - int x1, int y1, int x2, int y2)); -/* 83 */ -EXTERN void XFillRectangle _ANSI_ARGS_((Display* display, - Drawable d, GC gc, int x, int y, - unsigned int width, unsigned int height)); -/* 84 */ -EXTERN void XClearWindow _ANSI_ARGS_((Display* d, Window w)); -/* 85 */ -EXTERN void XDrawPoint _ANSI_ARGS_((Display* display, Drawable d, - GC gc, int x, int y)); -/* 86 */ -EXTERN void XDrawPoints _ANSI_ARGS_((Display* display, - Drawable d, GC gc, XPoint * points, - int npoints, int mode)); -/* 87 */ -EXTERN void XWarpPointer _ANSI_ARGS_((Display* display, - Window src_w, Window dest_w, int src_x, - int src_y, unsigned int src_width, - unsigned int src_height, int dest_x, - int dest_y)); -/* 88 */ -EXTERN void XQueryColor _ANSI_ARGS_((Display * display, - Colormap colormap, XColor * def_in_out)); -/* 89 */ -EXTERN void XQueryColors _ANSI_ARGS_((Display * display, - Colormap colormap, XColor * defs_in_out, - int ncolors)); -/* 90 */ -EXTERN Status XQueryTree _ANSI_ARGS_((Display* d, Window w1, - Window* w2, Window* w3, Window** w4, - unsigned int* ui)); -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -/* 0 */ -EXTERN void XSetDashes _ANSI_ARGS_((Display* display, GC gc, - int dash_offset, _Xconst char* dash_list, - int n)); -/* 1 */ -EXTERN XModifierKeymap* XGetModifierMapping _ANSI_ARGS_((Display* d)); -/* 2 */ -EXTERN XImage * XCreateImage _ANSI_ARGS_((Display* d, Visual* v, - unsigned int ui1, int i1, int i2, char* cp, - unsigned int ui2, unsigned int ui3, int i3, - int i4)); -/* 3 */ -EXTERN XImage * XGetImage _ANSI_ARGS_((Display* d, Drawable dr, - int i1, int i2, unsigned int ui1, - unsigned int ui2, unsigned long ul, int i3)); -/* 4 */ -EXTERN char * XGetAtomName _ANSI_ARGS_((Display* d, Atom a)); -/* 5 */ -EXTERN char * XKeysymToString _ANSI_ARGS_((KeySym k)); -/* 6 */ -EXTERN Colormap XCreateColormap _ANSI_ARGS_((Display* d, Window w, - Visual* v, int i)); -/* 7 */ -EXTERN GContext XGContextFromGC _ANSI_ARGS_((GC g)); -/* 8 */ -EXTERN KeySym XKeycodeToKeysym _ANSI_ARGS_((Display* d, KeyCode k, - int i)); -/* 9 */ -EXTERN KeySym XStringToKeysym _ANSI_ARGS_((_Xconst char* c)); -/* 10 */ -EXTERN Window XRootWindow _ANSI_ARGS_((Display* d, int i)); -/* 11 */ -EXTERN XErrorHandler XSetErrorHandler _ANSI_ARGS_((XErrorHandler x)); -/* 12 */ -EXTERN Status XAllocColor _ANSI_ARGS_((Display* d, Colormap c, - XColor* xp)); -/* 13 */ -EXTERN void XBell _ANSI_ARGS_((Display* d, int i)); -/* 14 */ -EXTERN void XChangeProperty _ANSI_ARGS_((Display* d, Window w, - Atom a1, Atom a2, int i1, int i2, - _Xconst unsigned char* c, int i3)); -/* 15 */ -EXTERN void XChangeWindowAttributes _ANSI_ARGS_((Display* d, - Window w, unsigned long ul, - XSetWindowAttributes* x)); -/* 16 */ -EXTERN void XConfigureWindow _ANSI_ARGS_((Display* d, Window w, - unsigned int i, XWindowChanges* x)); -/* 17 */ -EXTERN void XCopyArea _ANSI_ARGS_((Display* d, Drawable dr1, - Drawable dr2, GC g, int i1, int i2, - unsigned int ui1, unsigned int ui2, int i3, - int i4)); -/* 18 */ -EXTERN void XCopyPlane _ANSI_ARGS_((Display* d, Drawable dr1, - Drawable dr2, GC g, int i1, int i2, - unsigned int ui1, unsigned int ui2, int i3, - int i4, unsigned long ul)); -/* 19 */ -EXTERN Pixmap XCreateBitmapFromData _ANSI_ARGS_((Display* display, - Drawable d, _Xconst char* data, - unsigned int width, unsigned int height)); -/* 20 */ -EXTERN void XDefineCursor _ANSI_ARGS_((Display* d, Window w, - Cursor c)); -/* 21 */ -EXTERN void XDestroyWindow _ANSI_ARGS_((Display* d, Window w)); -/* 22 */ -EXTERN void XDrawArc _ANSI_ARGS_((Display* d, Drawable dr, GC g, - int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4)); -/* 23 */ -EXTERN void XDrawLines _ANSI_ARGS_((Display* d, Drawable dr, - GC g, XPoint* x, int i1, int i2)); -/* 24 */ -EXTERN void XDrawRectangle _ANSI_ARGS_((Display* d, Drawable dr, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2)); -/* 25 */ -EXTERN void XFillArc _ANSI_ARGS_((Display* d, Drawable dr, GC g, - int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4)); -/* 26 */ -EXTERN void XFillPolygon _ANSI_ARGS_((Display* d, Drawable dr, - GC g, XPoint* x, int i1, int i2, int i3)); -/* 27 */ -EXTERN void XFillRectangles _ANSI_ARGS_((Display* d, Drawable dr, - GC g, XRectangle* x, int i)); -/* 28 */ -EXTERN void XFreeColormap _ANSI_ARGS_((Display* d, Colormap c)); -/* 29 */ -EXTERN void XFreeColors _ANSI_ARGS_((Display* d, Colormap c, - unsigned long* ulp, int i, unsigned long ul)); -/* 30 */ -EXTERN void XFreeModifiermap _ANSI_ARGS_((XModifierKeymap* x)); -/* 31 */ -EXTERN Status XGetGeometry _ANSI_ARGS_((Display* d, Drawable dr, - Window* w, int* i1, int* i2, - unsigned int* ui1, unsigned int* ui2, - unsigned int* ui3, unsigned int* ui4)); -/* 32 */ -EXTERN int XGetWindowProperty _ANSI_ARGS_((Display* d, Window w, - Atom a1, long l1, long l2, Bool b, Atom a2, - Atom* ap, int* ip, unsigned long* ulp1, - unsigned long* ulp2, unsigned char** cpp)); -/* 33 */ -EXTERN int XGrabKeyboard _ANSI_ARGS_((Display* d, Window w, - Bool b, int i1, int i2, Time t)); -/* 34 */ -EXTERN int XGrabPointer _ANSI_ARGS_((Display* d, Window w1, - Bool b, unsigned int ui, int i1, int i2, - Window w2, Cursor c, Time t)); -/* 35 */ -EXTERN KeyCode XKeysymToKeycode _ANSI_ARGS_((Display* d, KeySym k)); -/* 36 */ -EXTERN void XMapWindow _ANSI_ARGS_((Display* d, Window w)); -/* 37 */ -EXTERN void XMoveResizeWindow _ANSI_ARGS_((Display* d, Window w, - int i1, int i2, unsigned int ui1, - unsigned int ui2)); -/* 38 */ -EXTERN void XMoveWindow _ANSI_ARGS_((Display* d, Window w, - int i1, int i2)); -/* 39 */ -EXTERN Bool XQueryPointer _ANSI_ARGS_((Display* d, Window w1, - Window* w2, Window* w3, int* i1, int* i2, - int* i3, int* i4, unsigned int* ui)); -/* 40 */ -EXTERN void XRaiseWindow _ANSI_ARGS_((Display* d, Window w)); -/* 41 */ -EXTERN void XRefreshKeyboardMapping _ANSI_ARGS_(( - XMappingEvent* x)); -/* 42 */ -EXTERN void XResizeWindow _ANSI_ARGS_((Display* d, Window w, - unsigned int ui1, unsigned int ui2)); -/* 43 */ -EXTERN void XSelectInput _ANSI_ARGS_((Display* d, Window w, - long l)); -/* 44 */ -EXTERN Status XSendEvent _ANSI_ARGS_((Display* d, Window w, Bool b, - long l, XEvent* x)); -/* 45 */ -EXTERN void XSetIconName _ANSI_ARGS_((Display* d, Window w, - _Xconst char* c)); -/* 46 */ -EXTERN void XSetInputFocus _ANSI_ARGS_((Display* d, Window w, - int i, Time t)); -/* 47 */ -EXTERN void XSetSelectionOwner _ANSI_ARGS_((Display* d, Atom a, - Window w, Time t)); -/* 48 */ -EXTERN void XSetWindowBackground _ANSI_ARGS_((Display* d, - Window w, unsigned long ul)); -/* 49 */ -EXTERN void XSetWindowBackgroundPixmap _ANSI_ARGS_((Display* d, - Window w, Pixmap p)); -/* 50 */ -EXTERN void XSetWindowBorder _ANSI_ARGS_((Display* d, Window w, - unsigned long ul)); -/* 51 */ -EXTERN void XSetWindowBorderPixmap _ANSI_ARGS_((Display* d, - Window w, Pixmap p)); -/* 52 */ -EXTERN void XSetWindowBorderWidth _ANSI_ARGS_((Display* d, - Window w, unsigned int ui)); -/* 53 */ -EXTERN void XSetWindowColormap _ANSI_ARGS_((Display* d, Window w, - Colormap c)); -/* 54 */ -EXTERN void XUngrabKeyboard _ANSI_ARGS_((Display* d, Time t)); -/* 55 */ -EXTERN void XUngrabPointer _ANSI_ARGS_((Display* d, Time t)); -/* 56 */ -EXTERN void XUnmapWindow _ANSI_ARGS_((Display* d, Window w)); -/* 57 */ -EXTERN void TkPutImage _ANSI_ARGS_((unsigned long * colors, - int ncolors, Display* display, Drawable d, - GC gc, XImage* image, int src_x, int src_y, - int dest_x, int dest_y, unsigned int width, - unsigned int height)); -/* 58 */ -EXTERN Status XParseColor _ANSI_ARGS_((Display * display, - Colormap map, _Xconst char* spec, - XColor * colorPtr)); -/* 59 */ -EXTERN GC XCreateGC _ANSI_ARGS_((Display* display, Drawable d, - unsigned long valuemask, XGCValues* values)); -/* 60 */ -EXTERN void XFreeGC _ANSI_ARGS_((Display* display, GC gc)); -/* 61 */ -EXTERN Atom XInternAtom _ANSI_ARGS_((Display* display, - _Xconst char* atom_name, Bool only_if_exists)); -/* 62 */ -EXTERN void XSetBackground _ANSI_ARGS_((Display* display, GC gc, - unsigned long foreground)); -/* 63 */ -EXTERN void XSetForeground _ANSI_ARGS_((Display* display, GC gc, - unsigned long foreground)); -/* 64 */ -EXTERN void XSetClipMask _ANSI_ARGS_((Display* display, GC gc, - Pixmap pixmap)); -/* 65 */ -EXTERN void XSetClipOrigin _ANSI_ARGS_((Display* display, GC gc, - int clip_x_origin, int clip_y_origin)); -/* 66 */ -EXTERN void XSetTSOrigin _ANSI_ARGS_((Display* display, GC gc, - int ts_x_origin, int ts_y_origin)); -/* 67 */ -EXTERN void XChangeGC _ANSI_ARGS_((Display * d, GC gc, - unsigned long mask, XGCValues * values)); -/* 68 */ -EXTERN void XSetFont _ANSI_ARGS_((Display * display, GC gc, - Font font)); -/* 69 */ -EXTERN void XSetArcMode _ANSI_ARGS_((Display * display, GC gc, - int arc_mode)); -/* 70 */ -EXTERN void XSetStipple _ANSI_ARGS_((Display * display, GC gc, - Pixmap stipple)); -/* 71 */ -EXTERN void XSetFillRule _ANSI_ARGS_((Display * display, GC gc, - int fill_rule)); -/* 72 */ -EXTERN void XSetFillStyle _ANSI_ARGS_((Display * display, GC gc, - int fill_style)); -/* 73 */ -EXTERN void XSetFunction _ANSI_ARGS_((Display * display, GC gc, - int function)); -/* 74 */ -EXTERN void XSetLineAttributes _ANSI_ARGS_((Display * display, - GC gc, unsigned int line_width, - int line_style, int cap_style, - int join_style)); -/* 75 */ -EXTERN int _XInitImageFuncPtrs _ANSI_ARGS_((XImage * image)); -/* 76 */ -EXTERN XIC XCreateIC _ANSI_ARGS_((void)); -/* 77 */ -EXTERN XVisualInfo * XGetVisualInfo _ANSI_ARGS_((Display* display, - long vinfo_mask, XVisualInfo* vinfo_template, - int* nitems_return)); -/* 78 */ -EXTERN void XSetWMClientMachine _ANSI_ARGS_((Display* display, - Window w, XTextProperty* text_prop)); -/* 79 */ -EXTERN Status XStringListToTextProperty _ANSI_ARGS_((char** list, - int count, XTextProperty* text_prop_return)); -/* 80 */ -EXTERN void XDrawSegments _ANSI_ARGS_((Display * display, - Drawable d, GC gc, XSegment * segments, - int nsegments)); -/* 81 */ -EXTERN void XForceScreenSaver _ANSI_ARGS_((Display* display, - int mode)); -/* 82 */ -EXTERN void XDrawLine _ANSI_ARGS_((Display* d, Drawable dr, GC g, - int x1, int y1, int x2, int y2)); -/* 83 */ -EXTERN void XFillRectangle _ANSI_ARGS_((Display* display, - Drawable d, GC gc, int x, int y, - unsigned int width, unsigned int height)); -/* 84 */ -EXTERN void XClearWindow _ANSI_ARGS_((Display* d, Window w)); -/* 85 */ -EXTERN void XDrawPoint _ANSI_ARGS_((Display* display, Drawable d, - GC gc, int x, int y)); -/* 86 */ -EXTERN void XDrawPoints _ANSI_ARGS_((Display* display, - Drawable d, GC gc, XPoint * points, - int npoints, int mode)); -/* 87 */ -EXTERN void XWarpPointer _ANSI_ARGS_((Display* display, - Window src_w, Window dest_w, int src_x, - int src_y, unsigned int src_width, - unsigned int src_height, int dest_x, - int dest_y)); -/* 88 */ -EXTERN void XQueryColor _ANSI_ARGS_((Display * display, - Colormap colormap, XColor * def_in_out)); -/* 89 */ -EXTERN void XQueryColors _ANSI_ARGS_((Display * display, - Colormap colormap, XColor * defs_in_out, - int ncolors)); -/* 90 */ -EXTERN Status XQueryTree _ANSI_ARGS_((Display* d, Window w1, - Window* w2, Window* w3, Window** w4, - unsigned int* ui)); -#endif /* MAC_OSX_TK */ - -typedef struct TkIntXlibStubs { - int magic; - struct TkIntXlibStubHooks *hooks; - -#ifdef __WIN32__ - void (*xSetDashes) _ANSI_ARGS_((Display* display, GC gc, int dash_offset, _Xconst char* dash_list, int n)); /* 0 */ - XModifierKeymap* (*xGetModifierMapping) _ANSI_ARGS_((Display* d)); /* 1 */ - XImage * (*xCreateImage) _ANSI_ARGS_((Display* d, Visual* v, unsigned int ui1, int i1, int i2, char* cp, unsigned int ui2, unsigned int ui3, int i3, int i4)); /* 2 */ - XImage * (*xGetImage) _ANSI_ARGS_((Display* d, Drawable dr, int i1, int i2, unsigned int ui1, unsigned int ui2, unsigned long ul, int i3)); /* 3 */ - char * (*xGetAtomName) _ANSI_ARGS_((Display* d, Atom a)); /* 4 */ - char * (*xKeysymToString) _ANSI_ARGS_((KeySym k)); /* 5 */ - Colormap (*xCreateColormap) _ANSI_ARGS_((Display* d, Window w, Visual* v, int i)); /* 6 */ - Cursor (*xCreatePixmapCursor) _ANSI_ARGS_((Display* d, Pixmap p1, Pixmap p2, XColor* x1, XColor* x2, unsigned int ui1, unsigned int ui2)); /* 7 */ - Cursor (*xCreateGlyphCursor) _ANSI_ARGS_((Display* d, Font f1, Font f2, unsigned int ui1, unsigned int ui2, XColor* x1, XColor* x2)); /* 8 */ - GContext (*xGContextFromGC) _ANSI_ARGS_((GC g)); /* 9 */ - XHostAddress * (*xListHosts) _ANSI_ARGS_((Display* d, int* i, Bool* b)); /* 10 */ - KeySym (*xKeycodeToKeysym) _ANSI_ARGS_((Display* d, unsigned int k, int i)); /* 11 */ - KeySym (*xStringToKeysym) _ANSI_ARGS_((_Xconst char* c)); /* 12 */ - Window (*xRootWindow) _ANSI_ARGS_((Display* d, int i)); /* 13 */ - XErrorHandler (*xSetErrorHandler) _ANSI_ARGS_((XErrorHandler x)); /* 14 */ - Status (*xIconifyWindow) _ANSI_ARGS_((Display* d, Window w, int i)); /* 15 */ - Status (*xWithdrawWindow) _ANSI_ARGS_((Display* d, Window w, int i)); /* 16 */ - Status (*xGetWMColormapWindows) _ANSI_ARGS_((Display* d, Window w, Window** wpp, int* ip)); /* 17 */ - Status (*xAllocColor) _ANSI_ARGS_((Display* d, Colormap c, XColor* xp)); /* 18 */ - void (*xBell) _ANSI_ARGS_((Display* d, int i)); /* 19 */ - void (*xChangeProperty) _ANSI_ARGS_((Display* d, Window w, Atom a1, Atom a2, int i1, int i2, _Xconst unsigned char* c, int i3)); /* 20 */ - void (*xChangeWindowAttributes) _ANSI_ARGS_((Display* d, Window w, unsigned long ul, XSetWindowAttributes* x)); /* 21 */ - void (*xClearWindow) _ANSI_ARGS_((Display* d, Window w)); /* 22 */ - void (*xConfigureWindow) _ANSI_ARGS_((Display* d, Window w, unsigned int i, XWindowChanges* x)); /* 23 */ - void (*xCopyArea) _ANSI_ARGS_((Display* d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4)); /* 24 */ - void (*xCopyPlane) _ANSI_ARGS_((Display* d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4, unsigned long ul)); /* 25 */ - Pixmap (*xCreateBitmapFromData) _ANSI_ARGS_((Display* display, Drawable d, _Xconst char* data, unsigned int width, unsigned int height)); /* 26 */ - void (*xDefineCursor) _ANSI_ARGS_((Display* d, Window w, Cursor c)); /* 27 */ - void (*xDeleteProperty) _ANSI_ARGS_((Display* d, Window w, Atom a)); /* 28 */ - void (*xDestroyWindow) _ANSI_ARGS_((Display* d, Window w)); /* 29 */ - void (*xDrawArc) _ANSI_ARGS_((Display* d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4)); /* 30 */ - void (*xDrawLines) _ANSI_ARGS_((Display* d, Drawable dr, GC g, XPoint* x, int i1, int i2)); /* 31 */ - void (*xDrawRectangle) _ANSI_ARGS_((Display* d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2)); /* 32 */ - void (*xFillArc) _ANSI_ARGS_((Display* d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4)); /* 33 */ - void (*xFillPolygon) _ANSI_ARGS_((Display* d, Drawable dr, GC g, XPoint* x, int i1, int i2, int i3)); /* 34 */ - void (*xFillRectangles) _ANSI_ARGS_((Display* d, Drawable dr, GC g, XRectangle* x, int i)); /* 35 */ - void (*xForceScreenSaver) _ANSI_ARGS_((Display* d, int i)); /* 36 */ - void (*xFreeColormap) _ANSI_ARGS_((Display* d, Colormap c)); /* 37 */ - void (*xFreeColors) _ANSI_ARGS_((Display* d, Colormap c, unsigned long* ulp, int i, unsigned long ul)); /* 38 */ - void (*xFreeCursor) _ANSI_ARGS_((Display* d, Cursor c)); /* 39 */ - void (*xFreeModifiermap) _ANSI_ARGS_((XModifierKeymap* x)); /* 40 */ - Status (*xGetGeometry) _ANSI_ARGS_((Display* d, Drawable dr, Window* w, int* i1, int* i2, unsigned int* ui1, unsigned int* ui2, unsigned int* ui3, unsigned int* ui4)); /* 41 */ - void (*xGetInputFocus) _ANSI_ARGS_((Display* d, Window* w, int* i)); /* 42 */ - int (*xGetWindowProperty) _ANSI_ARGS_((Display* d, Window w, Atom a1, long l1, long l2, Bool b, Atom a2, Atom* ap, int* ip, unsigned long* ulp1, unsigned long* ulp2, unsigned char** cpp)); /* 43 */ - Status (*xGetWindowAttributes) _ANSI_ARGS_((Display* d, Window w, XWindowAttributes* x)); /* 44 */ - int (*xGrabKeyboard) _ANSI_ARGS_((Display* d, Window w, Bool b, int i1, int i2, Time t)); /* 45 */ - int (*xGrabPointer) _ANSI_ARGS_((Display* d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t)); /* 46 */ - KeyCode (*xKeysymToKeycode) _ANSI_ARGS_((Display* d, KeySym k)); /* 47 */ - Status (*xLookupColor) _ANSI_ARGS_((Display* d, Colormap c1, _Xconst char* c2, XColor* x1, XColor* x2)); /* 48 */ - void (*xMapWindow) _ANSI_ARGS_((Display* d, Window w)); /* 49 */ - void (*xMoveResizeWindow) _ANSI_ARGS_((Display* d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2)); /* 50 */ - void (*xMoveWindow) _ANSI_ARGS_((Display* d, Window w, int i1, int i2)); /* 51 */ - void (*xNextEvent) _ANSI_ARGS_((Display* d, XEvent* x)); /* 52 */ - void (*xPutBackEvent) _ANSI_ARGS_((Display* d, XEvent* x)); /* 53 */ - void (*xQueryColors) _ANSI_ARGS_((Display* d, Colormap c, XColor* x, int i)); /* 54 */ - Bool (*xQueryPointer) _ANSI_ARGS_((Display* d, Window w1, Window* w2, Window* w3, int* i1, int* i2, int* i3, int* i4, unsigned int* ui)); /* 55 */ - Status (*xQueryTree) _ANSI_ARGS_((Display* d, Window w1, Window* w2, Window* w3, Window** w4, unsigned int* ui)); /* 56 */ - void (*xRaiseWindow) _ANSI_ARGS_((Display* d, Window w)); /* 57 */ - void (*xRefreshKeyboardMapping) _ANSI_ARGS_((XMappingEvent* x)); /* 58 */ - void (*xResizeWindow) _ANSI_ARGS_((Display* d, Window w, unsigned int ui1, unsigned int ui2)); /* 59 */ - void (*xSelectInput) _ANSI_ARGS_((Display* d, Window w, long l)); /* 60 */ - Status (*xSendEvent) _ANSI_ARGS_((Display* d, Window w, Bool b, long l, XEvent* x)); /* 61 */ - void (*xSetCommand) _ANSI_ARGS_((Display* d, Window w, CONST char** c, int i)); /* 62 */ - void (*xSetIconName) _ANSI_ARGS_((Display* d, Window w, _Xconst char* c)); /* 63 */ - void (*xSetInputFocus) _ANSI_ARGS_((Display* d, Window w, int i, Time t)); /* 64 */ - void (*xSetSelectionOwner) _ANSI_ARGS_((Display* d, Atom a, Window w, Time t)); /* 65 */ - void (*xSetWindowBackground) _ANSI_ARGS_((Display* d, Window w, unsigned long ul)); /* 66 */ - void (*xSetWindowBackgroundPixmap) _ANSI_ARGS_((Display* d, Window w, Pixmap p)); /* 67 */ - void (*xSetWindowBorder) _ANSI_ARGS_((Display* d, Window w, unsigned long ul)); /* 68 */ - void (*xSetWindowBorderPixmap) _ANSI_ARGS_((Display* d, Window w, Pixmap p)); /* 69 */ - void (*xSetWindowBorderWidth) _ANSI_ARGS_((Display* d, Window w, unsigned int ui)); /* 70 */ - void (*xSetWindowColormap) _ANSI_ARGS_((Display* d, Window w, Colormap c)); /* 71 */ - Bool (*xTranslateCoordinates) _ANSI_ARGS_((Display* d, Window w1, Window w2, int i1, int i2, int* i3, int* i4, Window* w3)); /* 72 */ - void (*xUngrabKeyboard) _ANSI_ARGS_((Display* d, Time t)); /* 73 */ - void (*xUngrabPointer) _ANSI_ARGS_((Display* d, Time t)); /* 74 */ - void (*xUnmapWindow) _ANSI_ARGS_((Display* d, Window w)); /* 75 */ - void (*xWindowEvent) _ANSI_ARGS_((Display* d, Window w, long l, XEvent* x)); /* 76 */ - void (*xDestroyIC) _ANSI_ARGS_((XIC x)); /* 77 */ - Bool (*xFilterEvent) _ANSI_ARGS_((XEvent* x, Window w)); /* 78 */ - int (*xmbLookupString) _ANSI_ARGS_((XIC xi, XKeyPressedEvent* xk, char* c, int i, KeySym* k, Status* s)); /* 79 */ - void (*tkPutImage) _ANSI_ARGS_((unsigned long * colors, int ncolors, Display* display, Drawable d, GC gc, XImage* image, int src_x, int src_y, int dest_x, int dest_y, unsigned int width, unsigned int height)); /* 80 */ - void *reserved81; - Status (*xParseColor) _ANSI_ARGS_((Display * display, Colormap map, _Xconst char* spec, XColor * colorPtr)); /* 82 */ - GC (*xCreateGC) _ANSI_ARGS_((Display* display, Drawable d, unsigned long valuemask, XGCValues* values)); /* 83 */ - void (*xFreeGC) _ANSI_ARGS_((Display* display, GC gc)); /* 84 */ - Atom (*xInternAtom) _ANSI_ARGS_((Display* display, _Xconst char* atom_name, Bool only_if_exists)); /* 85 */ - void (*xSetBackground) _ANSI_ARGS_((Display* display, GC gc, unsigned long foreground)); /* 86 */ - void (*xSetForeground) _ANSI_ARGS_((Display* display, GC gc, unsigned long foreground)); /* 87 */ - void (*xSetClipMask) _ANSI_ARGS_((Display* display, GC gc, Pixmap pixmap)); /* 88 */ - void (*xSetClipOrigin) _ANSI_ARGS_((Display* display, GC gc, int clip_x_origin, int clip_y_origin)); /* 89 */ - void (*xSetTSOrigin) _ANSI_ARGS_((Display* display, GC gc, int ts_x_origin, int ts_y_origin)); /* 90 */ - void (*xChangeGC) _ANSI_ARGS_((Display * d, GC gc, unsigned long mask, XGCValues * values)); /* 91 */ - void (*xSetFont) _ANSI_ARGS_((Display * display, GC gc, Font font)); /* 92 */ - void (*xSetArcMode) _ANSI_ARGS_((Display * display, GC gc, int arc_mode)); /* 93 */ - void (*xSetStipple) _ANSI_ARGS_((Display * display, GC gc, Pixmap stipple)); /* 94 */ - void (*xSetFillRule) _ANSI_ARGS_((Display * display, GC gc, int fill_rule)); /* 95 */ - void (*xSetFillStyle) _ANSI_ARGS_((Display * display, GC gc, int fill_style)); /* 96 */ - void (*xSetFunction) _ANSI_ARGS_((Display * display, GC gc, int function)); /* 97 */ - void (*xSetLineAttributes) _ANSI_ARGS_((Display * display, GC gc, unsigned int line_width, int line_style, int cap_style, int join_style)); /* 98 */ - int (*_XInitImageFuncPtrs) _ANSI_ARGS_((XImage * image)); /* 99 */ - XIC (*xCreateIC) _ANSI_ARGS_((void)); /* 100 */ - XVisualInfo * (*xGetVisualInfo) _ANSI_ARGS_((Display* display, long vinfo_mask, XVisualInfo* vinfo_template, int* nitems_return)); /* 101 */ - void (*xSetWMClientMachine) _ANSI_ARGS_((Display* display, Window w, XTextProperty* text_prop)); /* 102 */ - Status (*xStringListToTextProperty) _ANSI_ARGS_((char** list, int count, XTextProperty* text_prop_return)); /* 103 */ - void (*xDrawLine) _ANSI_ARGS_((Display* d, Drawable dr, GC g, int x1, int y1, int x2, int y2)); /* 104 */ - void (*xWarpPointer) _ANSI_ARGS_((Display* d, Window s, Window dw, int sx, int sy, unsigned int sw, unsigned int sh, int dx, int dy)); /* 105 */ - void (*xFillRectangle) _ANSI_ARGS_((Display* display, Drawable d, GC gc, int x, int y, unsigned int width, unsigned int height)); /* 106 */ -#endif /* __WIN32__ */ -#ifdef MAC_TCL - void (*xSetDashes) _ANSI_ARGS_((Display* display, GC gc, int dash_offset, _Xconst char* dash_list, int n)); /* 0 */ - XModifierKeymap* (*xGetModifierMapping) _ANSI_ARGS_((Display* d)); /* 1 */ - XImage * (*xCreateImage) _ANSI_ARGS_((Display* d, Visual* v, unsigned int ui1, int i1, int i2, char* cp, unsigned int ui2, unsigned int ui3, int i3, int i4)); /* 2 */ - XImage * (*xGetImage) _ANSI_ARGS_((Display* d, Drawable dr, int i1, int i2, unsigned int ui1, unsigned int ui2, unsigned long ul, int i3)); /* 3 */ - char * (*xGetAtomName) _ANSI_ARGS_((Display* d, Atom a)); /* 4 */ - char * (*xKeysymToString) _ANSI_ARGS_((KeySym k)); /* 5 */ - Colormap (*xCreateColormap) _ANSI_ARGS_((Display* d, Window w, Visual* v, int i)); /* 6 */ - GContext (*xGContextFromGC) _ANSI_ARGS_((GC g)); /* 7 */ - KeySym (*xKeycodeToKeysym) _ANSI_ARGS_((Display* d, KeyCode k, int i)); /* 8 */ - KeySym (*xStringToKeysym) _ANSI_ARGS_((_Xconst char* c)); /* 9 */ - Window (*xRootWindow) _ANSI_ARGS_((Display* d, int i)); /* 10 */ - XErrorHandler (*xSetErrorHandler) _ANSI_ARGS_((XErrorHandler x)); /* 11 */ - Status (*xAllocColor) _ANSI_ARGS_((Display* d, Colormap c, XColor* xp)); /* 12 */ - void (*xBell) _ANSI_ARGS_((Display* d, int i)); /* 13 */ - void (*xChangeProperty) _ANSI_ARGS_((Display* d, Window w, Atom a1, Atom a2, int i1, int i2, _Xconst unsigned char* c, int i3)); /* 14 */ - void (*xChangeWindowAttributes) _ANSI_ARGS_((Display* d, Window w, unsigned long ul, XSetWindowAttributes* x)); /* 15 */ - void (*xConfigureWindow) _ANSI_ARGS_((Display* d, Window w, unsigned int i, XWindowChanges* x)); /* 16 */ - void (*xCopyArea) _ANSI_ARGS_((Display* d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4)); /* 17 */ - void (*xCopyPlane) _ANSI_ARGS_((Display* d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4, unsigned long ul)); /* 18 */ - Pixmap (*xCreateBitmapFromData) _ANSI_ARGS_((Display* display, Drawable d, _Xconst char* data, unsigned int width, unsigned int height)); /* 19 */ - void (*xDefineCursor) _ANSI_ARGS_((Display* d, Window w, Cursor c)); /* 20 */ - void (*xDestroyWindow) _ANSI_ARGS_((Display* d, Window w)); /* 21 */ - void (*xDrawArc) _ANSI_ARGS_((Display* d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4)); /* 22 */ - void (*xDrawLines) _ANSI_ARGS_((Display* d, Drawable dr, GC g, XPoint* x, int i1, int i2)); /* 23 */ - void (*xDrawRectangle) _ANSI_ARGS_((Display* d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2)); /* 24 */ - void (*xFillArc) _ANSI_ARGS_((Display* d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4)); /* 25 */ - void (*xFillPolygon) _ANSI_ARGS_((Display* d, Drawable dr, GC g, XPoint* x, int i1, int i2, int i3)); /* 26 */ - void (*xFillRectangles) _ANSI_ARGS_((Display* d, Drawable dr, GC g, XRectangle* x, int i)); /* 27 */ - void (*xFreeColormap) _ANSI_ARGS_((Display* d, Colormap c)); /* 28 */ - void (*xFreeColors) _ANSI_ARGS_((Display* d, Colormap c, unsigned long* ulp, int i, unsigned long ul)); /* 29 */ - void (*xFreeModifiermap) _ANSI_ARGS_((XModifierKeymap* x)); /* 30 */ - Status (*xGetGeometry) _ANSI_ARGS_((Display* d, Drawable dr, Window* w, int* i1, int* i2, unsigned int* ui1, unsigned int* ui2, unsigned int* ui3, unsigned int* ui4)); /* 31 */ - int (*xGetWindowProperty) _ANSI_ARGS_((Display* d, Window w, Atom a1, long l1, long l2, Bool b, Atom a2, Atom* ap, int* ip, unsigned long* ulp1, unsigned long* ulp2, unsigned char** cpp)); /* 32 */ - int (*xGrabKeyboard) _ANSI_ARGS_((Display* d, Window w, Bool b, int i1, int i2, Time t)); /* 33 */ - int (*xGrabPointer) _ANSI_ARGS_((Display* d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t)); /* 34 */ - KeyCode (*xKeysymToKeycode) _ANSI_ARGS_((Display* d, KeySym k)); /* 35 */ - void (*xMapWindow) _ANSI_ARGS_((Display* d, Window w)); /* 36 */ - void (*xMoveResizeWindow) _ANSI_ARGS_((Display* d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2)); /* 37 */ - void (*xMoveWindow) _ANSI_ARGS_((Display* d, Window w, int i1, int i2)); /* 38 */ - Bool (*xQueryPointer) _ANSI_ARGS_((Display* d, Window w1, Window* w2, Window* w3, int* i1, int* i2, int* i3, int* i4, unsigned int* ui)); /* 39 */ - void (*xRaiseWindow) _ANSI_ARGS_((Display* d, Window w)); /* 40 */ - void (*xRefreshKeyboardMapping) _ANSI_ARGS_((XMappingEvent* x)); /* 41 */ - void (*xResizeWindow) _ANSI_ARGS_((Display* d, Window w, unsigned int ui1, unsigned int ui2)); /* 42 */ - void (*xSelectInput) _ANSI_ARGS_((Display* d, Window w, long l)); /* 43 */ - Status (*xSendEvent) _ANSI_ARGS_((Display* d, Window w, Bool b, long l, XEvent* x)); /* 44 */ - void (*xSetIconName) _ANSI_ARGS_((Display* d, Window w, _Xconst char* c)); /* 45 */ - void (*xSetInputFocus) _ANSI_ARGS_((Display* d, Window w, int i, Time t)); /* 46 */ - void (*xSetSelectionOwner) _ANSI_ARGS_((Display* d, Atom a, Window w, Time t)); /* 47 */ - void (*xSetWindowBackground) _ANSI_ARGS_((Display* d, Window w, unsigned long ul)); /* 48 */ - void (*xSetWindowBackgroundPixmap) _ANSI_ARGS_((Display* d, Window w, Pixmap p)); /* 49 */ - void (*xSetWindowBorder) _ANSI_ARGS_((Display* d, Window w, unsigned long ul)); /* 50 */ - void (*xSetWindowBorderPixmap) _ANSI_ARGS_((Display* d, Window w, Pixmap p)); /* 51 */ - void (*xSetWindowBorderWidth) _ANSI_ARGS_((Display* d, Window w, unsigned int ui)); /* 52 */ - void (*xSetWindowColormap) _ANSI_ARGS_((Display* d, Window w, Colormap c)); /* 53 */ - void (*xUngrabKeyboard) _ANSI_ARGS_((Display* d, Time t)); /* 54 */ - void (*xUngrabPointer) _ANSI_ARGS_((Display* d, Time t)); /* 55 */ - void (*xUnmapWindow) _ANSI_ARGS_((Display* d, Window w)); /* 56 */ - void (*tkPutImage) _ANSI_ARGS_((unsigned long * colors, int ncolors, Display* display, Drawable d, GC gc, XImage* image, int src_x, int src_y, int dest_x, int dest_y, unsigned int width, unsigned int height)); /* 57 */ - Status (*xParseColor) _ANSI_ARGS_((Display * display, Colormap map, _Xconst char* spec, XColor * colorPtr)); /* 58 */ - GC (*xCreateGC) _ANSI_ARGS_((Display* display, Drawable d, unsigned long valuemask, XGCValues* values)); /* 59 */ - void (*xFreeGC) _ANSI_ARGS_((Display* display, GC gc)); /* 60 */ - Atom (*xInternAtom) _ANSI_ARGS_((Display* display, _Xconst char* atom_name, Bool only_if_exists)); /* 61 */ - void (*xSetBackground) _ANSI_ARGS_((Display* display, GC gc, unsigned long foreground)); /* 62 */ - void (*xSetForeground) _ANSI_ARGS_((Display* display, GC gc, unsigned long foreground)); /* 63 */ - void (*xSetClipMask) _ANSI_ARGS_((Display* display, GC gc, Pixmap pixmap)); /* 64 */ - void (*xSetClipOrigin) _ANSI_ARGS_((Display* display, GC gc, int clip_x_origin, int clip_y_origin)); /* 65 */ - void (*xSetTSOrigin) _ANSI_ARGS_((Display* display, GC gc, int ts_x_origin, int ts_y_origin)); /* 66 */ - void (*xChangeGC) _ANSI_ARGS_((Display * d, GC gc, unsigned long mask, XGCValues * values)); /* 67 */ - void (*xSetFont) _ANSI_ARGS_((Display * display, GC gc, Font font)); /* 68 */ - void (*xSetArcMode) _ANSI_ARGS_((Display * display, GC gc, int arc_mode)); /* 69 */ - void (*xSetStipple) _ANSI_ARGS_((Display * display, GC gc, Pixmap stipple)); /* 70 */ - void (*xSetFillRule) _ANSI_ARGS_((Display * display, GC gc, int fill_rule)); /* 71 */ - void (*xSetFillStyle) _ANSI_ARGS_((Display * display, GC gc, int fill_style)); /* 72 */ - void (*xSetFunction) _ANSI_ARGS_((Display * display, GC gc, int function)); /* 73 */ - void (*xSetLineAttributes) _ANSI_ARGS_((Display * display, GC gc, unsigned int line_width, int line_style, int cap_style, int join_style)); /* 74 */ - int (*_XInitImageFuncPtrs) _ANSI_ARGS_((XImage * image)); /* 75 */ - XIC (*xCreateIC) _ANSI_ARGS_((void)); /* 76 */ - XVisualInfo * (*xGetVisualInfo) _ANSI_ARGS_((Display* display, long vinfo_mask, XVisualInfo* vinfo_template, int* nitems_return)); /* 77 */ - void (*xSetWMClientMachine) _ANSI_ARGS_((Display* display, Window w, XTextProperty* text_prop)); /* 78 */ - Status (*xStringListToTextProperty) _ANSI_ARGS_((char** list, int count, XTextProperty* text_prop_return)); /* 79 */ - void (*xDrawSegments) _ANSI_ARGS_((Display * display, Drawable d, GC gc, XSegment * segments, int nsegments)); /* 80 */ - void (*xForceScreenSaver) _ANSI_ARGS_((Display* display, int mode)); /* 81 */ - void (*xDrawLine) _ANSI_ARGS_((Display* d, Drawable dr, GC g, int x1, int y1, int x2, int y2)); /* 82 */ - void (*xFillRectangle) _ANSI_ARGS_((Display* display, Drawable d, GC gc, int x, int y, unsigned int width, unsigned int height)); /* 83 */ - void (*xClearWindow) _ANSI_ARGS_((Display* d, Window w)); /* 84 */ - void (*xDrawPoint) _ANSI_ARGS_((Display* display, Drawable d, GC gc, int x, int y)); /* 85 */ - void (*xDrawPoints) _ANSI_ARGS_((Display* display, Drawable d, GC gc, XPoint * points, int npoints, int mode)); /* 86 */ - void (*xWarpPointer) _ANSI_ARGS_((Display* display, Window src_w, Window dest_w, int src_x, int src_y, unsigned int src_width, unsigned int src_height, int dest_x, int dest_y)); /* 87 */ - void (*xQueryColor) _ANSI_ARGS_((Display * display, Colormap colormap, XColor * def_in_out)); /* 88 */ - void (*xQueryColors) _ANSI_ARGS_((Display * display, Colormap colormap, XColor * defs_in_out, int ncolors)); /* 89 */ - Status (*xQueryTree) _ANSI_ARGS_((Display* d, Window w1, Window* w2, Window* w3, Window** w4, unsigned int* ui)); /* 90 */ -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK - void (*xSetDashes) _ANSI_ARGS_((Display* display, GC gc, int dash_offset, _Xconst char* dash_list, int n)); /* 0 */ - XModifierKeymap* (*xGetModifierMapping) _ANSI_ARGS_((Display* d)); /* 1 */ - XImage * (*xCreateImage) _ANSI_ARGS_((Display* d, Visual* v, unsigned int ui1, int i1, int i2, char* cp, unsigned int ui2, unsigned int ui3, int i3, int i4)); /* 2 */ - XImage * (*xGetImage) _ANSI_ARGS_((Display* d, Drawable dr, int i1, int i2, unsigned int ui1, unsigned int ui2, unsigned long ul, int i3)); /* 3 */ - char * (*xGetAtomName) _ANSI_ARGS_((Display* d, Atom a)); /* 4 */ - char * (*xKeysymToString) _ANSI_ARGS_((KeySym k)); /* 5 */ - Colormap (*xCreateColormap) _ANSI_ARGS_((Display* d, Window w, Visual* v, int i)); /* 6 */ - GContext (*xGContextFromGC) _ANSI_ARGS_((GC g)); /* 7 */ - KeySym (*xKeycodeToKeysym) _ANSI_ARGS_((Display* d, KeyCode k, int i)); /* 8 */ - KeySym (*xStringToKeysym) _ANSI_ARGS_((_Xconst char* c)); /* 9 */ - Window (*xRootWindow) _ANSI_ARGS_((Display* d, int i)); /* 10 */ - XErrorHandler (*xSetErrorHandler) _ANSI_ARGS_((XErrorHandler x)); /* 11 */ - Status (*xAllocColor) _ANSI_ARGS_((Display* d, Colormap c, XColor* xp)); /* 12 */ - void (*xBell) _ANSI_ARGS_((Display* d, int i)); /* 13 */ - void (*xChangeProperty) _ANSI_ARGS_((Display* d, Window w, Atom a1, Atom a2, int i1, int i2, _Xconst unsigned char* c, int i3)); /* 14 */ - void (*xChangeWindowAttributes) _ANSI_ARGS_((Display* d, Window w, unsigned long ul, XSetWindowAttributes* x)); /* 15 */ - void (*xConfigureWindow) _ANSI_ARGS_((Display* d, Window w, unsigned int i, XWindowChanges* x)); /* 16 */ - void (*xCopyArea) _ANSI_ARGS_((Display* d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4)); /* 17 */ - void (*xCopyPlane) _ANSI_ARGS_((Display* d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4, unsigned long ul)); /* 18 */ - Pixmap (*xCreateBitmapFromData) _ANSI_ARGS_((Display* display, Drawable d, _Xconst char* data, unsigned int width, unsigned int height)); /* 19 */ - void (*xDefineCursor) _ANSI_ARGS_((Display* d, Window w, Cursor c)); /* 20 */ - void (*xDestroyWindow) _ANSI_ARGS_((Display* d, Window w)); /* 21 */ - void (*xDrawArc) _ANSI_ARGS_((Display* d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4)); /* 22 */ - void (*xDrawLines) _ANSI_ARGS_((Display* d, Drawable dr, GC g, XPoint* x, int i1, int i2)); /* 23 */ - void (*xDrawRectangle) _ANSI_ARGS_((Display* d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2)); /* 24 */ - void (*xFillArc) _ANSI_ARGS_((Display* d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4)); /* 25 */ - void (*xFillPolygon) _ANSI_ARGS_((Display* d, Drawable dr, GC g, XPoint* x, int i1, int i2, int i3)); /* 26 */ - void (*xFillRectangles) _ANSI_ARGS_((Display* d, Drawable dr, GC g, XRectangle* x, int i)); /* 27 */ - void (*xFreeColormap) _ANSI_ARGS_((Display* d, Colormap c)); /* 28 */ - void (*xFreeColors) _ANSI_ARGS_((Display* d, Colormap c, unsigned long* ulp, int i, unsigned long ul)); /* 29 */ - void (*xFreeModifiermap) _ANSI_ARGS_((XModifierKeymap* x)); /* 30 */ - Status (*xGetGeometry) _ANSI_ARGS_((Display* d, Drawable dr, Window* w, int* i1, int* i2, unsigned int* ui1, unsigned int* ui2, unsigned int* ui3, unsigned int* ui4)); /* 31 */ - int (*xGetWindowProperty) _ANSI_ARGS_((Display* d, Window w, Atom a1, long l1, long l2, Bool b, Atom a2, Atom* ap, int* ip, unsigned long* ulp1, unsigned long* ulp2, unsigned char** cpp)); /* 32 */ - int (*xGrabKeyboard) _ANSI_ARGS_((Display* d, Window w, Bool b, int i1, int i2, Time t)); /* 33 */ - int (*xGrabPointer) _ANSI_ARGS_((Display* d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t)); /* 34 */ - KeyCode (*xKeysymToKeycode) _ANSI_ARGS_((Display* d, KeySym k)); /* 35 */ - void (*xMapWindow) _ANSI_ARGS_((Display* d, Window w)); /* 36 */ - void (*xMoveResizeWindow) _ANSI_ARGS_((Display* d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2)); /* 37 */ - void (*xMoveWindow) _ANSI_ARGS_((Display* d, Window w, int i1, int i2)); /* 38 */ - Bool (*xQueryPointer) _ANSI_ARGS_((Display* d, Window w1, Window* w2, Window* w3, int* i1, int* i2, int* i3, int* i4, unsigned int* ui)); /* 39 */ - void (*xRaiseWindow) _ANSI_ARGS_((Display* d, Window w)); /* 40 */ - void (*xRefreshKeyboardMapping) _ANSI_ARGS_((XMappingEvent* x)); /* 41 */ - void (*xResizeWindow) _ANSI_ARGS_((Display* d, Window w, unsigned int ui1, unsigned int ui2)); /* 42 */ - void (*xSelectInput) _ANSI_ARGS_((Display* d, Window w, long l)); /* 43 */ - Status (*xSendEvent) _ANSI_ARGS_((Display* d, Window w, Bool b, long l, XEvent* x)); /* 44 */ - void (*xSetIconName) _ANSI_ARGS_((Display* d, Window w, _Xconst char* c)); /* 45 */ - void (*xSetInputFocus) _ANSI_ARGS_((Display* d, Window w, int i, Time t)); /* 46 */ - void (*xSetSelectionOwner) _ANSI_ARGS_((Display* d, Atom a, Window w, Time t)); /* 47 */ - void (*xSetWindowBackground) _ANSI_ARGS_((Display* d, Window w, unsigned long ul)); /* 48 */ - void (*xSetWindowBackgroundPixmap) _ANSI_ARGS_((Display* d, Window w, Pixmap p)); /* 49 */ - void (*xSetWindowBorder) _ANSI_ARGS_((Display* d, Window w, unsigned long ul)); /* 50 */ - void (*xSetWindowBorderPixmap) _ANSI_ARGS_((Display* d, Window w, Pixmap p)); /* 51 */ - void (*xSetWindowBorderWidth) _ANSI_ARGS_((Display* d, Window w, unsigned int ui)); /* 52 */ - void (*xSetWindowColormap) _ANSI_ARGS_((Display* d, Window w, Colormap c)); /* 53 */ - void (*xUngrabKeyboard) _ANSI_ARGS_((Display* d, Time t)); /* 54 */ - void (*xUngrabPointer) _ANSI_ARGS_((Display* d, Time t)); /* 55 */ - void (*xUnmapWindow) _ANSI_ARGS_((Display* d, Window w)); /* 56 */ - void (*tkPutImage) _ANSI_ARGS_((unsigned long * colors, int ncolors, Display* display, Drawable d, GC gc, XImage* image, int src_x, int src_y, int dest_x, int dest_y, unsigned int width, unsigned int height)); /* 57 */ - Status (*xParseColor) _ANSI_ARGS_((Display * display, Colormap map, _Xconst char* spec, XColor * colorPtr)); /* 58 */ - GC (*xCreateGC) _ANSI_ARGS_((Display* display, Drawable d, unsigned long valuemask, XGCValues* values)); /* 59 */ - void (*xFreeGC) _ANSI_ARGS_((Display* display, GC gc)); /* 60 */ - Atom (*xInternAtom) _ANSI_ARGS_((Display* display, _Xconst char* atom_name, Bool only_if_exists)); /* 61 */ - void (*xSetBackground) _ANSI_ARGS_((Display* display, GC gc, unsigned long foreground)); /* 62 */ - void (*xSetForeground) _ANSI_ARGS_((Display* display, GC gc, unsigned long foreground)); /* 63 */ - void (*xSetClipMask) _ANSI_ARGS_((Display* display, GC gc, Pixmap pixmap)); /* 64 */ - void (*xSetClipOrigin) _ANSI_ARGS_((Display* display, GC gc, int clip_x_origin, int clip_y_origin)); /* 65 */ - void (*xSetTSOrigin) _ANSI_ARGS_((Display* display, GC gc, int ts_x_origin, int ts_y_origin)); /* 66 */ - void (*xChangeGC) _ANSI_ARGS_((Display * d, GC gc, unsigned long mask, XGCValues * values)); /* 67 */ - void (*xSetFont) _ANSI_ARGS_((Display * display, GC gc, Font font)); /* 68 */ - void (*xSetArcMode) _ANSI_ARGS_((Display * display, GC gc, int arc_mode)); /* 69 */ - void (*xSetStipple) _ANSI_ARGS_((Display * display, GC gc, Pixmap stipple)); /* 70 */ - void (*xSetFillRule) _ANSI_ARGS_((Display * display, GC gc, int fill_rule)); /* 71 */ - void (*xSetFillStyle) _ANSI_ARGS_((Display * display, GC gc, int fill_style)); /* 72 */ - void (*xSetFunction) _ANSI_ARGS_((Display * display, GC gc, int function)); /* 73 */ - void (*xSetLineAttributes) _ANSI_ARGS_((Display * display, GC gc, unsigned int line_width, int line_style, int cap_style, int join_style)); /* 74 */ - int (*_XInitImageFuncPtrs) _ANSI_ARGS_((XImage * image)); /* 75 */ - XIC (*xCreateIC) _ANSI_ARGS_((void)); /* 76 */ - XVisualInfo * (*xGetVisualInfo) _ANSI_ARGS_((Display* display, long vinfo_mask, XVisualInfo* vinfo_template, int* nitems_return)); /* 77 */ - void (*xSetWMClientMachine) _ANSI_ARGS_((Display* display, Window w, XTextProperty* text_prop)); /* 78 */ - Status (*xStringListToTextProperty) _ANSI_ARGS_((char** list, int count, XTextProperty* text_prop_return)); /* 79 */ - void (*xDrawSegments) _ANSI_ARGS_((Display * display, Drawable d, GC gc, XSegment * segments, int nsegments)); /* 80 */ - void (*xForceScreenSaver) _ANSI_ARGS_((Display* display, int mode)); /* 81 */ - void (*xDrawLine) _ANSI_ARGS_((Display* d, Drawable dr, GC g, int x1, int y1, int x2, int y2)); /* 82 */ - void (*xFillRectangle) _ANSI_ARGS_((Display* display, Drawable d, GC gc, int x, int y, unsigned int width, unsigned int height)); /* 83 */ - void (*xClearWindow) _ANSI_ARGS_((Display* d, Window w)); /* 84 */ - void (*xDrawPoint) _ANSI_ARGS_((Display* display, Drawable d, GC gc, int x, int y)); /* 85 */ - void (*xDrawPoints) _ANSI_ARGS_((Display* display, Drawable d, GC gc, XPoint * points, int npoints, int mode)); /* 86 */ - void (*xWarpPointer) _ANSI_ARGS_((Display* display, Window src_w, Window dest_w, int src_x, int src_y, unsigned int src_width, unsigned int src_height, int dest_x, int dest_y)); /* 87 */ - void (*xQueryColor) _ANSI_ARGS_((Display * display, Colormap colormap, XColor * def_in_out)); /* 88 */ - void (*xQueryColors) _ANSI_ARGS_((Display * display, Colormap colormap, XColor * defs_in_out, int ncolors)); /* 89 */ - Status (*xQueryTree) _ANSI_ARGS_((Display* d, Window w1, Window* w2, Window* w3, Window** w4, unsigned int* ui)); /* 90 */ -#endif /* MAC_OSX_TK */ -} TkIntXlibStubs; - -#ifdef __cplusplus -extern "C" { -#endif -extern TkIntXlibStubs *tkIntXlibStubsPtr; -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifdef __WIN32__ -#ifndef XSetDashes -#define XSetDashes \ - (tkIntXlibStubsPtr->xSetDashes) /* 0 */ -#endif -#ifndef XGetModifierMapping -#define XGetModifierMapping \ - (tkIntXlibStubsPtr->xGetModifierMapping) /* 1 */ -#endif -#ifndef XCreateImage -#define XCreateImage \ - (tkIntXlibStubsPtr->xCreateImage) /* 2 */ -#endif -#ifndef XGetImage -#define XGetImage \ - (tkIntXlibStubsPtr->xGetImage) /* 3 */ -#endif -#ifndef XGetAtomName -#define XGetAtomName \ - (tkIntXlibStubsPtr->xGetAtomName) /* 4 */ -#endif -#ifndef XKeysymToString -#define XKeysymToString \ - (tkIntXlibStubsPtr->xKeysymToString) /* 5 */ -#endif -#ifndef XCreateColormap -#define XCreateColormap \ - (tkIntXlibStubsPtr->xCreateColormap) /* 6 */ -#endif -#ifndef XCreatePixmapCursor -#define XCreatePixmapCursor \ - (tkIntXlibStubsPtr->xCreatePixmapCursor) /* 7 */ -#endif -#ifndef XCreateGlyphCursor -#define XCreateGlyphCursor \ - (tkIntXlibStubsPtr->xCreateGlyphCursor) /* 8 */ -#endif -#ifndef XGContextFromGC -#define XGContextFromGC \ - (tkIntXlibStubsPtr->xGContextFromGC) /* 9 */ -#endif -#ifndef XListHosts -#define XListHosts \ - (tkIntXlibStubsPtr->xListHosts) /* 10 */ -#endif -#ifndef XKeycodeToKeysym -#define XKeycodeToKeysym \ - (tkIntXlibStubsPtr->xKeycodeToKeysym) /* 11 */ -#endif -#ifndef XStringToKeysym -#define XStringToKeysym \ - (tkIntXlibStubsPtr->xStringToKeysym) /* 12 */ -#endif -#ifndef XRootWindow -#define XRootWindow \ - (tkIntXlibStubsPtr->xRootWindow) /* 13 */ -#endif -#ifndef XSetErrorHandler -#define XSetErrorHandler \ - (tkIntXlibStubsPtr->xSetErrorHandler) /* 14 */ -#endif -#ifndef XIconifyWindow -#define XIconifyWindow \ - (tkIntXlibStubsPtr->xIconifyWindow) /* 15 */ -#endif -#ifndef XWithdrawWindow -#define XWithdrawWindow \ - (tkIntXlibStubsPtr->xWithdrawWindow) /* 16 */ -#endif -#ifndef XGetWMColormapWindows -#define XGetWMColormapWindows \ - (tkIntXlibStubsPtr->xGetWMColormapWindows) /* 17 */ -#endif -#ifndef XAllocColor -#define XAllocColor \ - (tkIntXlibStubsPtr->xAllocColor) /* 18 */ -#endif -#ifndef XBell -#define XBell \ - (tkIntXlibStubsPtr->xBell) /* 19 */ -#endif -#ifndef XChangeProperty -#define XChangeProperty \ - (tkIntXlibStubsPtr->xChangeProperty) /* 20 */ -#endif -#ifndef XChangeWindowAttributes -#define XChangeWindowAttributes \ - (tkIntXlibStubsPtr->xChangeWindowAttributes) /* 21 */ -#endif -#ifndef XClearWindow -#define XClearWindow \ - (tkIntXlibStubsPtr->xClearWindow) /* 22 */ -#endif -#ifndef XConfigureWindow -#define XConfigureWindow \ - (tkIntXlibStubsPtr->xConfigureWindow) /* 23 */ -#endif -#ifndef XCopyArea -#define XCopyArea \ - (tkIntXlibStubsPtr->xCopyArea) /* 24 */ -#endif -#ifndef XCopyPlane -#define XCopyPlane \ - (tkIntXlibStubsPtr->xCopyPlane) /* 25 */ -#endif -#ifndef XCreateBitmapFromData -#define XCreateBitmapFromData \ - (tkIntXlibStubsPtr->xCreateBitmapFromData) /* 26 */ -#endif -#ifndef XDefineCursor -#define XDefineCursor \ - (tkIntXlibStubsPtr->xDefineCursor) /* 27 */ -#endif -#ifndef XDeleteProperty -#define XDeleteProperty \ - (tkIntXlibStubsPtr->xDeleteProperty) /* 28 */ -#endif -#ifndef XDestroyWindow -#define XDestroyWindow \ - (tkIntXlibStubsPtr->xDestroyWindow) /* 29 */ -#endif -#ifndef XDrawArc -#define XDrawArc \ - (tkIntXlibStubsPtr->xDrawArc) /* 30 */ -#endif -#ifndef XDrawLines -#define XDrawLines \ - (tkIntXlibStubsPtr->xDrawLines) /* 31 */ -#endif -#ifndef XDrawRectangle -#define XDrawRectangle \ - (tkIntXlibStubsPtr->xDrawRectangle) /* 32 */ -#endif -#ifndef XFillArc -#define XFillArc \ - (tkIntXlibStubsPtr->xFillArc) /* 33 */ -#endif -#ifndef XFillPolygon -#define XFillPolygon \ - (tkIntXlibStubsPtr->xFillPolygon) /* 34 */ -#endif -#ifndef XFillRectangles -#define XFillRectangles \ - (tkIntXlibStubsPtr->xFillRectangles) /* 35 */ -#endif -#ifndef XForceScreenSaver -#define XForceScreenSaver \ - (tkIntXlibStubsPtr->xForceScreenSaver) /* 36 */ -#endif -#ifndef XFreeColormap -#define XFreeColormap \ - (tkIntXlibStubsPtr->xFreeColormap) /* 37 */ -#endif -#ifndef XFreeColors -#define XFreeColors \ - (tkIntXlibStubsPtr->xFreeColors) /* 38 */ -#endif -#ifndef XFreeCursor -#define XFreeCursor \ - (tkIntXlibStubsPtr->xFreeCursor) /* 39 */ -#endif -#ifndef XFreeModifiermap -#define XFreeModifiermap \ - (tkIntXlibStubsPtr->xFreeModifiermap) /* 40 */ -#endif -#ifndef XGetGeometry -#define XGetGeometry \ - (tkIntXlibStubsPtr->xGetGeometry) /* 41 */ -#endif -#ifndef XGetInputFocus -#define XGetInputFocus \ - (tkIntXlibStubsPtr->xGetInputFocus) /* 42 */ -#endif -#ifndef XGetWindowProperty -#define XGetWindowProperty \ - (tkIntXlibStubsPtr->xGetWindowProperty) /* 43 */ -#endif -#ifndef XGetWindowAttributes -#define XGetWindowAttributes \ - (tkIntXlibStubsPtr->xGetWindowAttributes) /* 44 */ -#endif -#ifndef XGrabKeyboard -#define XGrabKeyboard \ - (tkIntXlibStubsPtr->xGrabKeyboard) /* 45 */ -#endif -#ifndef XGrabPointer -#define XGrabPointer \ - (tkIntXlibStubsPtr->xGrabPointer) /* 46 */ -#endif -#ifndef XKeysymToKeycode -#define XKeysymToKeycode \ - (tkIntXlibStubsPtr->xKeysymToKeycode) /* 47 */ -#endif -#ifndef XLookupColor -#define XLookupColor \ - (tkIntXlibStubsPtr->xLookupColor) /* 48 */ -#endif -#ifndef XMapWindow -#define XMapWindow \ - (tkIntXlibStubsPtr->xMapWindow) /* 49 */ -#endif -#ifndef XMoveResizeWindow -#define XMoveResizeWindow \ - (tkIntXlibStubsPtr->xMoveResizeWindow) /* 50 */ -#endif -#ifndef XMoveWindow -#define XMoveWindow \ - (tkIntXlibStubsPtr->xMoveWindow) /* 51 */ -#endif -#ifndef XNextEvent -#define XNextEvent \ - (tkIntXlibStubsPtr->xNextEvent) /* 52 */ -#endif -#ifndef XPutBackEvent -#define XPutBackEvent \ - (tkIntXlibStubsPtr->xPutBackEvent) /* 53 */ -#endif -#ifndef XQueryColors -#define XQueryColors \ - (tkIntXlibStubsPtr->xQueryColors) /* 54 */ -#endif -#ifndef XQueryPointer -#define XQueryPointer \ - (tkIntXlibStubsPtr->xQueryPointer) /* 55 */ -#endif -#ifndef XQueryTree -#define XQueryTree \ - (tkIntXlibStubsPtr->xQueryTree) /* 56 */ -#endif -#ifndef XRaiseWindow -#define XRaiseWindow \ - (tkIntXlibStubsPtr->xRaiseWindow) /* 57 */ -#endif -#ifndef XRefreshKeyboardMapping -#define XRefreshKeyboardMapping \ - (tkIntXlibStubsPtr->xRefreshKeyboardMapping) /* 58 */ -#endif -#ifndef XResizeWindow -#define XResizeWindow \ - (tkIntXlibStubsPtr->xResizeWindow) /* 59 */ -#endif -#ifndef XSelectInput -#define XSelectInput \ - (tkIntXlibStubsPtr->xSelectInput) /* 60 */ -#endif -#ifndef XSendEvent -#define XSendEvent \ - (tkIntXlibStubsPtr->xSendEvent) /* 61 */ -#endif -#ifndef XSetCommand -#define XSetCommand \ - (tkIntXlibStubsPtr->xSetCommand) /* 62 */ -#endif -#ifndef XSetIconName -#define XSetIconName \ - (tkIntXlibStubsPtr->xSetIconName) /* 63 */ -#endif -#ifndef XSetInputFocus -#define XSetInputFocus \ - (tkIntXlibStubsPtr->xSetInputFocus) /* 64 */ -#endif -#ifndef XSetSelectionOwner -#define XSetSelectionOwner \ - (tkIntXlibStubsPtr->xSetSelectionOwner) /* 65 */ -#endif -#ifndef XSetWindowBackground -#define XSetWindowBackground \ - (tkIntXlibStubsPtr->xSetWindowBackground) /* 66 */ -#endif -#ifndef XSetWindowBackgroundPixmap -#define XSetWindowBackgroundPixmap \ - (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap) /* 67 */ -#endif -#ifndef XSetWindowBorder -#define XSetWindowBorder \ - (tkIntXlibStubsPtr->xSetWindowBorder) /* 68 */ -#endif -#ifndef XSetWindowBorderPixmap -#define XSetWindowBorderPixmap \ - (tkIntXlibStubsPtr->xSetWindowBorderPixmap) /* 69 */ -#endif -#ifndef XSetWindowBorderWidth -#define XSetWindowBorderWidth \ - (tkIntXlibStubsPtr->xSetWindowBorderWidth) /* 70 */ -#endif -#ifndef XSetWindowColormap -#define XSetWindowColormap \ - (tkIntXlibStubsPtr->xSetWindowColormap) /* 71 */ -#endif -#ifndef XTranslateCoordinates -#define XTranslateCoordinates \ - (tkIntXlibStubsPtr->xTranslateCoordinates) /* 72 */ -#endif -#ifndef XUngrabKeyboard -#define XUngrabKeyboard \ - (tkIntXlibStubsPtr->xUngrabKeyboard) /* 73 */ -#endif -#ifndef XUngrabPointer -#define XUngrabPointer \ - (tkIntXlibStubsPtr->xUngrabPointer) /* 74 */ -#endif -#ifndef XUnmapWindow -#define XUnmapWindow \ - (tkIntXlibStubsPtr->xUnmapWindow) /* 75 */ -#endif -#ifndef XWindowEvent -#define XWindowEvent \ - (tkIntXlibStubsPtr->xWindowEvent) /* 76 */ -#endif -#ifndef XDestroyIC -#define XDestroyIC \ - (tkIntXlibStubsPtr->xDestroyIC) /* 77 */ -#endif -#ifndef XFilterEvent -#define XFilterEvent \ - (tkIntXlibStubsPtr->xFilterEvent) /* 78 */ -#endif -#ifndef XmbLookupString -#define XmbLookupString \ - (tkIntXlibStubsPtr->xmbLookupString) /* 79 */ -#endif -#ifndef TkPutImage -#define TkPutImage \ - (tkIntXlibStubsPtr->tkPutImage) /* 80 */ -#endif -/* Slot 81 is reserved */ -#ifndef XParseColor -#define XParseColor \ - (tkIntXlibStubsPtr->xParseColor) /* 82 */ -#endif -#ifndef XCreateGC -#define XCreateGC \ - (tkIntXlibStubsPtr->xCreateGC) /* 83 */ -#endif -#ifndef XFreeGC -#define XFreeGC \ - (tkIntXlibStubsPtr->xFreeGC) /* 84 */ -#endif -#ifndef XInternAtom -#define XInternAtom \ - (tkIntXlibStubsPtr->xInternAtom) /* 85 */ -#endif -#ifndef XSetBackground -#define XSetBackground \ - (tkIntXlibStubsPtr->xSetBackground) /* 86 */ -#endif -#ifndef XSetForeground -#define XSetForeground \ - (tkIntXlibStubsPtr->xSetForeground) /* 87 */ -#endif -#ifndef XSetClipMask -#define XSetClipMask \ - (tkIntXlibStubsPtr->xSetClipMask) /* 88 */ -#endif -#ifndef XSetClipOrigin -#define XSetClipOrigin \ - (tkIntXlibStubsPtr->xSetClipOrigin) /* 89 */ -#endif -#ifndef XSetTSOrigin -#define XSetTSOrigin \ - (tkIntXlibStubsPtr->xSetTSOrigin) /* 90 */ -#endif -#ifndef XChangeGC -#define XChangeGC \ - (tkIntXlibStubsPtr->xChangeGC) /* 91 */ -#endif -#ifndef XSetFont -#define XSetFont \ - (tkIntXlibStubsPtr->xSetFont) /* 92 */ -#endif -#ifndef XSetArcMode -#define XSetArcMode \ - (tkIntXlibStubsPtr->xSetArcMode) /* 93 */ -#endif -#ifndef XSetStipple -#define XSetStipple \ - (tkIntXlibStubsPtr->xSetStipple) /* 94 */ -#endif -#ifndef XSetFillRule -#define XSetFillRule \ - (tkIntXlibStubsPtr->xSetFillRule) /* 95 */ -#endif -#ifndef XSetFillStyle -#define XSetFillStyle \ - (tkIntXlibStubsPtr->xSetFillStyle) /* 96 */ -#endif -#ifndef XSetFunction -#define XSetFunction \ - (tkIntXlibStubsPtr->xSetFunction) /* 97 */ -#endif -#ifndef XSetLineAttributes -#define XSetLineAttributes \ - (tkIntXlibStubsPtr->xSetLineAttributes) /* 98 */ -#endif -#ifndef _XInitImageFuncPtrs -#define _XInitImageFuncPtrs \ - (tkIntXlibStubsPtr->_XInitImageFuncPtrs) /* 99 */ -#endif -#ifndef XCreateIC -#define XCreateIC \ - (tkIntXlibStubsPtr->xCreateIC) /* 100 */ -#endif -#ifndef XGetVisualInfo -#define XGetVisualInfo \ - (tkIntXlibStubsPtr->xGetVisualInfo) /* 101 */ -#endif -#ifndef XSetWMClientMachine -#define XSetWMClientMachine \ - (tkIntXlibStubsPtr->xSetWMClientMachine) /* 102 */ -#endif -#ifndef XStringListToTextProperty -#define XStringListToTextProperty \ - (tkIntXlibStubsPtr->xStringListToTextProperty) /* 103 */ -#endif -#ifndef XDrawLine -#define XDrawLine \ - (tkIntXlibStubsPtr->xDrawLine) /* 104 */ -#endif -#ifndef XWarpPointer -#define XWarpPointer \ - (tkIntXlibStubsPtr->xWarpPointer) /* 105 */ -#endif -#ifndef XFillRectangle -#define XFillRectangle \ - (tkIntXlibStubsPtr->xFillRectangle) /* 106 */ -#endif -#endif /* __WIN32__ */ -#ifdef MAC_TCL -#ifndef XSetDashes -#define XSetDashes \ - (tkIntXlibStubsPtr->xSetDashes) /* 0 */ -#endif -#ifndef XGetModifierMapping -#define XGetModifierMapping \ - (tkIntXlibStubsPtr->xGetModifierMapping) /* 1 */ -#endif -#ifndef XCreateImage -#define XCreateImage \ - (tkIntXlibStubsPtr->xCreateImage) /* 2 */ -#endif -#ifndef XGetImage -#define XGetImage \ - (tkIntXlibStubsPtr->xGetImage) /* 3 */ -#endif -#ifndef XGetAtomName -#define XGetAtomName \ - (tkIntXlibStubsPtr->xGetAtomName) /* 4 */ -#endif -#ifndef XKeysymToString -#define XKeysymToString \ - (tkIntXlibStubsPtr->xKeysymToString) /* 5 */ -#endif -#ifndef XCreateColormap -#define XCreateColormap \ - (tkIntXlibStubsPtr->xCreateColormap) /* 6 */ -#endif -#ifndef XGContextFromGC -#define XGContextFromGC \ - (tkIntXlibStubsPtr->xGContextFromGC) /* 7 */ -#endif -#ifndef XKeycodeToKeysym -#define XKeycodeToKeysym \ - (tkIntXlibStubsPtr->xKeycodeToKeysym) /* 8 */ -#endif -#ifndef XStringToKeysym -#define XStringToKeysym \ - (tkIntXlibStubsPtr->xStringToKeysym) /* 9 */ -#endif -#ifndef XRootWindow -#define XRootWindow \ - (tkIntXlibStubsPtr->xRootWindow) /* 10 */ -#endif -#ifndef XSetErrorHandler -#define XSetErrorHandler \ - (tkIntXlibStubsPtr->xSetErrorHandler) /* 11 */ -#endif -#ifndef XAllocColor -#define XAllocColor \ - (tkIntXlibStubsPtr->xAllocColor) /* 12 */ -#endif -#ifndef XBell -#define XBell \ - (tkIntXlibStubsPtr->xBell) /* 13 */ -#endif -#ifndef XChangeProperty -#define XChangeProperty \ - (tkIntXlibStubsPtr->xChangeProperty) /* 14 */ -#endif -#ifndef XChangeWindowAttributes -#define XChangeWindowAttributes \ - (tkIntXlibStubsPtr->xChangeWindowAttributes) /* 15 */ -#endif -#ifndef XConfigureWindow -#define XConfigureWindow \ - (tkIntXlibStubsPtr->xConfigureWindow) /* 16 */ -#endif -#ifndef XCopyArea -#define XCopyArea \ - (tkIntXlibStubsPtr->xCopyArea) /* 17 */ -#endif -#ifndef XCopyPlane -#define XCopyPlane \ - (tkIntXlibStubsPtr->xCopyPlane) /* 18 */ -#endif -#ifndef XCreateBitmapFromData -#define XCreateBitmapFromData \ - (tkIntXlibStubsPtr->xCreateBitmapFromData) /* 19 */ -#endif -#ifndef XDefineCursor -#define XDefineCursor \ - (tkIntXlibStubsPtr->xDefineCursor) /* 20 */ -#endif -#ifndef XDestroyWindow -#define XDestroyWindow \ - (tkIntXlibStubsPtr->xDestroyWindow) /* 21 */ -#endif -#ifndef XDrawArc -#define XDrawArc \ - (tkIntXlibStubsPtr->xDrawArc) /* 22 */ -#endif -#ifndef XDrawLines -#define XDrawLines \ - (tkIntXlibStubsPtr->xDrawLines) /* 23 */ -#endif -#ifndef XDrawRectangle -#define XDrawRectangle \ - (tkIntXlibStubsPtr->xDrawRectangle) /* 24 */ -#endif -#ifndef XFillArc -#define XFillArc \ - (tkIntXlibStubsPtr->xFillArc) /* 25 */ -#endif -#ifndef XFillPolygon -#define XFillPolygon \ - (tkIntXlibStubsPtr->xFillPolygon) /* 26 */ -#endif -#ifndef XFillRectangles -#define XFillRectangles \ - (tkIntXlibStubsPtr->xFillRectangles) /* 27 */ -#endif -#ifndef XFreeColormap -#define XFreeColormap \ - (tkIntXlibStubsPtr->xFreeColormap) /* 28 */ -#endif -#ifndef XFreeColors -#define XFreeColors \ - (tkIntXlibStubsPtr->xFreeColors) /* 29 */ -#endif -#ifndef XFreeModifiermap -#define XFreeModifiermap \ - (tkIntXlibStubsPtr->xFreeModifiermap) /* 30 */ -#endif -#ifndef XGetGeometry -#define XGetGeometry \ - (tkIntXlibStubsPtr->xGetGeometry) /* 31 */ -#endif -#ifndef XGetWindowProperty -#define XGetWindowProperty \ - (tkIntXlibStubsPtr->xGetWindowProperty) /* 32 */ -#endif -#ifndef XGrabKeyboard -#define XGrabKeyboard \ - (tkIntXlibStubsPtr->xGrabKeyboard) /* 33 */ -#endif -#ifndef XGrabPointer -#define XGrabPointer \ - (tkIntXlibStubsPtr->xGrabPointer) /* 34 */ -#endif -#ifndef XKeysymToKeycode -#define XKeysymToKeycode \ - (tkIntXlibStubsPtr->xKeysymToKeycode) /* 35 */ -#endif -#ifndef XMapWindow -#define XMapWindow \ - (tkIntXlibStubsPtr->xMapWindow) /* 36 */ -#endif -#ifndef XMoveResizeWindow -#define XMoveResizeWindow \ - (tkIntXlibStubsPtr->xMoveResizeWindow) /* 37 */ -#endif -#ifndef XMoveWindow -#define XMoveWindow \ - (tkIntXlibStubsPtr->xMoveWindow) /* 38 */ -#endif -#ifndef XQueryPointer -#define XQueryPointer \ - (tkIntXlibStubsPtr->xQueryPointer) /* 39 */ -#endif -#ifndef XRaiseWindow -#define XRaiseWindow \ - (tkIntXlibStubsPtr->xRaiseWindow) /* 40 */ -#endif -#ifndef XRefreshKeyboardMapping -#define XRefreshKeyboardMapping \ - (tkIntXlibStubsPtr->xRefreshKeyboardMapping) /* 41 */ -#endif -#ifndef XResizeWindow -#define XResizeWindow \ - (tkIntXlibStubsPtr->xResizeWindow) /* 42 */ -#endif -#ifndef XSelectInput -#define XSelectInput \ - (tkIntXlibStubsPtr->xSelectInput) /* 43 */ -#endif -#ifndef XSendEvent -#define XSendEvent \ - (tkIntXlibStubsPtr->xSendEvent) /* 44 */ -#endif -#ifndef XSetIconName -#define XSetIconName \ - (tkIntXlibStubsPtr->xSetIconName) /* 45 */ -#endif -#ifndef XSetInputFocus -#define XSetInputFocus \ - (tkIntXlibStubsPtr->xSetInputFocus) /* 46 */ -#endif -#ifndef XSetSelectionOwner -#define XSetSelectionOwner \ - (tkIntXlibStubsPtr->xSetSelectionOwner) /* 47 */ -#endif -#ifndef XSetWindowBackground -#define XSetWindowBackground \ - (tkIntXlibStubsPtr->xSetWindowBackground) /* 48 */ -#endif -#ifndef XSetWindowBackgroundPixmap -#define XSetWindowBackgroundPixmap \ - (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap) /* 49 */ -#endif -#ifndef XSetWindowBorder -#define XSetWindowBorder \ - (tkIntXlibStubsPtr->xSetWindowBorder) /* 50 */ -#endif -#ifndef XSetWindowBorderPixmap -#define XSetWindowBorderPixmap \ - (tkIntXlibStubsPtr->xSetWindowBorderPixmap) /* 51 */ -#endif -#ifndef XSetWindowBorderWidth -#define XSetWindowBorderWidth \ - (tkIntXlibStubsPtr->xSetWindowBorderWidth) /* 52 */ -#endif -#ifndef XSetWindowColormap -#define XSetWindowColormap \ - (tkIntXlibStubsPtr->xSetWindowColormap) /* 53 */ -#endif -#ifndef XUngrabKeyboard -#define XUngrabKeyboard \ - (tkIntXlibStubsPtr->xUngrabKeyboard) /* 54 */ -#endif -#ifndef XUngrabPointer -#define XUngrabPointer \ - (tkIntXlibStubsPtr->xUngrabPointer) /* 55 */ -#endif -#ifndef XUnmapWindow -#define XUnmapWindow \ - (tkIntXlibStubsPtr->xUnmapWindow) /* 56 */ -#endif -#ifndef TkPutImage -#define TkPutImage \ - (tkIntXlibStubsPtr->tkPutImage) /* 57 */ -#endif -#ifndef XParseColor -#define XParseColor \ - (tkIntXlibStubsPtr->xParseColor) /* 58 */ -#endif -#ifndef XCreateGC -#define XCreateGC \ - (tkIntXlibStubsPtr->xCreateGC) /* 59 */ -#endif -#ifndef XFreeGC -#define XFreeGC \ - (tkIntXlibStubsPtr->xFreeGC) /* 60 */ -#endif -#ifndef XInternAtom -#define XInternAtom \ - (tkIntXlibStubsPtr->xInternAtom) /* 61 */ -#endif -#ifndef XSetBackground -#define XSetBackground \ - (tkIntXlibStubsPtr->xSetBackground) /* 62 */ -#endif -#ifndef XSetForeground -#define XSetForeground \ - (tkIntXlibStubsPtr->xSetForeground) /* 63 */ -#endif -#ifndef XSetClipMask -#define XSetClipMask \ - (tkIntXlibStubsPtr->xSetClipMask) /* 64 */ -#endif -#ifndef XSetClipOrigin -#define XSetClipOrigin \ - (tkIntXlibStubsPtr->xSetClipOrigin) /* 65 */ -#endif -#ifndef XSetTSOrigin -#define XSetTSOrigin \ - (tkIntXlibStubsPtr->xSetTSOrigin) /* 66 */ -#endif -#ifndef XChangeGC -#define XChangeGC \ - (tkIntXlibStubsPtr->xChangeGC) /* 67 */ -#endif -#ifndef XSetFont -#define XSetFont \ - (tkIntXlibStubsPtr->xSetFont) /* 68 */ -#endif -#ifndef XSetArcMode -#define XSetArcMode \ - (tkIntXlibStubsPtr->xSetArcMode) /* 69 */ -#endif -#ifndef XSetStipple -#define XSetStipple \ - (tkIntXlibStubsPtr->xSetStipple) /* 70 */ -#endif -#ifndef XSetFillRule -#define XSetFillRule \ - (tkIntXlibStubsPtr->xSetFillRule) /* 71 */ -#endif -#ifndef XSetFillStyle -#define XSetFillStyle \ - (tkIntXlibStubsPtr->xSetFillStyle) /* 72 */ -#endif -#ifndef XSetFunction -#define XSetFunction \ - (tkIntXlibStubsPtr->xSetFunction) /* 73 */ -#endif -#ifndef XSetLineAttributes -#define XSetLineAttributes \ - (tkIntXlibStubsPtr->xSetLineAttributes) /* 74 */ -#endif -#ifndef _XInitImageFuncPtrs -#define _XInitImageFuncPtrs \ - (tkIntXlibStubsPtr->_XInitImageFuncPtrs) /* 75 */ -#endif -#ifndef XCreateIC -#define XCreateIC \ - (tkIntXlibStubsPtr->xCreateIC) /* 76 */ -#endif -#ifndef XGetVisualInfo -#define XGetVisualInfo \ - (tkIntXlibStubsPtr->xGetVisualInfo) /* 77 */ -#endif -#ifndef XSetWMClientMachine -#define XSetWMClientMachine \ - (tkIntXlibStubsPtr->xSetWMClientMachine) /* 78 */ -#endif -#ifndef XStringListToTextProperty -#define XStringListToTextProperty \ - (tkIntXlibStubsPtr->xStringListToTextProperty) /* 79 */ -#endif -#ifndef XDrawSegments -#define XDrawSegments \ - (tkIntXlibStubsPtr->xDrawSegments) /* 80 */ -#endif -#ifndef XForceScreenSaver -#define XForceScreenSaver \ - (tkIntXlibStubsPtr->xForceScreenSaver) /* 81 */ -#endif -#ifndef XDrawLine -#define XDrawLine \ - (tkIntXlibStubsPtr->xDrawLine) /* 82 */ -#endif -#ifndef XFillRectangle -#define XFillRectangle \ - (tkIntXlibStubsPtr->xFillRectangle) /* 83 */ -#endif -#ifndef XClearWindow -#define XClearWindow \ - (tkIntXlibStubsPtr->xClearWindow) /* 84 */ -#endif -#ifndef XDrawPoint -#define XDrawPoint \ - (tkIntXlibStubsPtr->xDrawPoint) /* 85 */ -#endif -#ifndef XDrawPoints -#define XDrawPoints \ - (tkIntXlibStubsPtr->xDrawPoints) /* 86 */ -#endif -#ifndef XWarpPointer -#define XWarpPointer \ - (tkIntXlibStubsPtr->xWarpPointer) /* 87 */ -#endif -#ifndef XQueryColor -#define XQueryColor \ - (tkIntXlibStubsPtr->xQueryColor) /* 88 */ -#endif -#ifndef XQueryColors -#define XQueryColors \ - (tkIntXlibStubsPtr->xQueryColors) /* 89 */ -#endif -#ifndef XQueryTree -#define XQueryTree \ - (tkIntXlibStubsPtr->xQueryTree) /* 90 */ -#endif -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -#ifndef XSetDashes -#define XSetDashes \ - (tkIntXlibStubsPtr->xSetDashes) /* 0 */ -#endif -#ifndef XGetModifierMapping -#define XGetModifierMapping \ - (tkIntXlibStubsPtr->xGetModifierMapping) /* 1 */ -#endif -#ifndef XCreateImage -#define XCreateImage \ - (tkIntXlibStubsPtr->xCreateImage) /* 2 */ -#endif -#ifndef XGetImage -#define XGetImage \ - (tkIntXlibStubsPtr->xGetImage) /* 3 */ -#endif -#ifndef XGetAtomName -#define XGetAtomName \ - (tkIntXlibStubsPtr->xGetAtomName) /* 4 */ -#endif -#ifndef XKeysymToString -#define XKeysymToString \ - (tkIntXlibStubsPtr->xKeysymToString) /* 5 */ -#endif -#ifndef XCreateColormap -#define XCreateColormap \ - (tkIntXlibStubsPtr->xCreateColormap) /* 6 */ -#endif -#ifndef XGContextFromGC -#define XGContextFromGC \ - (tkIntXlibStubsPtr->xGContextFromGC) /* 7 */ -#endif -#ifndef XKeycodeToKeysym -#define XKeycodeToKeysym \ - (tkIntXlibStubsPtr->xKeycodeToKeysym) /* 8 */ -#endif -#ifndef XStringToKeysym -#define XStringToKeysym \ - (tkIntXlibStubsPtr->xStringToKeysym) /* 9 */ -#endif -#ifndef XRootWindow -#define XRootWindow \ - (tkIntXlibStubsPtr->xRootWindow) /* 10 */ -#endif -#ifndef XSetErrorHandler -#define XSetErrorHandler \ - (tkIntXlibStubsPtr->xSetErrorHandler) /* 11 */ -#endif -#ifndef XAllocColor -#define XAllocColor \ - (tkIntXlibStubsPtr->xAllocColor) /* 12 */ -#endif -#ifndef XBell -#define XBell \ - (tkIntXlibStubsPtr->xBell) /* 13 */ -#endif -#ifndef XChangeProperty -#define XChangeProperty \ - (tkIntXlibStubsPtr->xChangeProperty) /* 14 */ -#endif -#ifndef XChangeWindowAttributes -#define XChangeWindowAttributes \ - (tkIntXlibStubsPtr->xChangeWindowAttributes) /* 15 */ -#endif -#ifndef XConfigureWindow -#define XConfigureWindow \ - (tkIntXlibStubsPtr->xConfigureWindow) /* 16 */ -#endif -#ifndef XCopyArea -#define XCopyArea \ - (tkIntXlibStubsPtr->xCopyArea) /* 17 */ -#endif -#ifndef XCopyPlane -#define XCopyPlane \ - (tkIntXlibStubsPtr->xCopyPlane) /* 18 */ -#endif -#ifndef XCreateBitmapFromData -#define XCreateBitmapFromData \ - (tkIntXlibStubsPtr->xCreateBitmapFromData) /* 19 */ -#endif -#ifndef XDefineCursor -#define XDefineCursor \ - (tkIntXlibStubsPtr->xDefineCursor) /* 20 */ -#endif -#ifndef XDestroyWindow -#define XDestroyWindow \ - (tkIntXlibStubsPtr->xDestroyWindow) /* 21 */ -#endif -#ifndef XDrawArc -#define XDrawArc \ - (tkIntXlibStubsPtr->xDrawArc) /* 22 */ -#endif -#ifndef XDrawLines -#define XDrawLines \ - (tkIntXlibStubsPtr->xDrawLines) /* 23 */ -#endif -#ifndef XDrawRectangle -#define XDrawRectangle \ - (tkIntXlibStubsPtr->xDrawRectangle) /* 24 */ -#endif -#ifndef XFillArc -#define XFillArc \ - (tkIntXlibStubsPtr->xFillArc) /* 25 */ -#endif -#ifndef XFillPolygon -#define XFillPolygon \ - (tkIntXlibStubsPtr->xFillPolygon) /* 26 */ -#endif -#ifndef XFillRectangles -#define XFillRectangles \ - (tkIntXlibStubsPtr->xFillRectangles) /* 27 */ -#endif -#ifndef XFreeColormap -#define XFreeColormap \ - (tkIntXlibStubsPtr->xFreeColormap) /* 28 */ -#endif -#ifndef XFreeColors -#define XFreeColors \ - (tkIntXlibStubsPtr->xFreeColors) /* 29 */ -#endif -#ifndef XFreeModifiermap -#define XFreeModifiermap \ - (tkIntXlibStubsPtr->xFreeModifiermap) /* 30 */ -#endif -#ifndef XGetGeometry -#define XGetGeometry \ - (tkIntXlibStubsPtr->xGetGeometry) /* 31 */ -#endif -#ifndef XGetWindowProperty -#define XGetWindowProperty \ - (tkIntXlibStubsPtr->xGetWindowProperty) /* 32 */ -#endif -#ifndef XGrabKeyboard -#define XGrabKeyboard \ - (tkIntXlibStubsPtr->xGrabKeyboard) /* 33 */ -#endif -#ifndef XGrabPointer -#define XGrabPointer \ - (tkIntXlibStubsPtr->xGrabPointer) /* 34 */ -#endif -#ifndef XKeysymToKeycode -#define XKeysymToKeycode \ - (tkIntXlibStubsPtr->xKeysymToKeycode) /* 35 */ -#endif -#ifndef XMapWindow -#define XMapWindow \ - (tkIntXlibStubsPtr->xMapWindow) /* 36 */ -#endif -#ifndef XMoveResizeWindow -#define XMoveResizeWindow \ - (tkIntXlibStubsPtr->xMoveResizeWindow) /* 37 */ -#endif -#ifndef XMoveWindow -#define XMoveWindow \ - (tkIntXlibStubsPtr->xMoveWindow) /* 38 */ -#endif -#ifndef XQueryPointer -#define XQueryPointer \ - (tkIntXlibStubsPtr->xQueryPointer) /* 39 */ -#endif -#ifndef XRaiseWindow -#define XRaiseWindow \ - (tkIntXlibStubsPtr->xRaiseWindow) /* 40 */ -#endif -#ifndef XRefreshKeyboardMapping -#define XRefreshKeyboardMapping \ - (tkIntXlibStubsPtr->xRefreshKeyboardMapping) /* 41 */ -#endif -#ifndef XResizeWindow -#define XResizeWindow \ - (tkIntXlibStubsPtr->xResizeWindow) /* 42 */ -#endif -#ifndef XSelectInput -#define XSelectInput \ - (tkIntXlibStubsPtr->xSelectInput) /* 43 */ -#endif -#ifndef XSendEvent -#define XSendEvent \ - (tkIntXlibStubsPtr->xSendEvent) /* 44 */ -#endif -#ifndef XSetIconName -#define XSetIconName \ - (tkIntXlibStubsPtr->xSetIconName) /* 45 */ -#endif -#ifndef XSetInputFocus -#define XSetInputFocus \ - (tkIntXlibStubsPtr->xSetInputFocus) /* 46 */ -#endif -#ifndef XSetSelectionOwner -#define XSetSelectionOwner \ - (tkIntXlibStubsPtr->xSetSelectionOwner) /* 47 */ -#endif -#ifndef XSetWindowBackground -#define XSetWindowBackground \ - (tkIntXlibStubsPtr->xSetWindowBackground) /* 48 */ -#endif -#ifndef XSetWindowBackgroundPixmap -#define XSetWindowBackgroundPixmap \ - (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap) /* 49 */ -#endif -#ifndef XSetWindowBorder -#define XSetWindowBorder \ - (tkIntXlibStubsPtr->xSetWindowBorder) /* 50 */ -#endif -#ifndef XSetWindowBorderPixmap -#define XSetWindowBorderPixmap \ - (tkIntXlibStubsPtr->xSetWindowBorderPixmap) /* 51 */ -#endif -#ifndef XSetWindowBorderWidth -#define XSetWindowBorderWidth \ - (tkIntXlibStubsPtr->xSetWindowBorderWidth) /* 52 */ -#endif -#ifndef XSetWindowColormap -#define XSetWindowColormap \ - (tkIntXlibStubsPtr->xSetWindowColormap) /* 53 */ -#endif -#ifndef XUngrabKeyboard -#define XUngrabKeyboard \ - (tkIntXlibStubsPtr->xUngrabKeyboard) /* 54 */ -#endif -#ifndef XUngrabPointer -#define XUngrabPointer \ - (tkIntXlibStubsPtr->xUngrabPointer) /* 55 */ -#endif -#ifndef XUnmapWindow -#define XUnmapWindow \ - (tkIntXlibStubsPtr->xUnmapWindow) /* 56 */ -#endif -#ifndef TkPutImage -#define TkPutImage \ - (tkIntXlibStubsPtr->tkPutImage) /* 57 */ -#endif -#ifndef XParseColor -#define XParseColor \ - (tkIntXlibStubsPtr->xParseColor) /* 58 */ -#endif -#ifndef XCreateGC -#define XCreateGC \ - (tkIntXlibStubsPtr->xCreateGC) /* 59 */ -#endif -#ifndef XFreeGC -#define XFreeGC \ - (tkIntXlibStubsPtr->xFreeGC) /* 60 */ -#endif -#ifndef XInternAtom -#define XInternAtom \ - (tkIntXlibStubsPtr->xInternAtom) /* 61 */ -#endif -#ifndef XSetBackground -#define XSetBackground \ - (tkIntXlibStubsPtr->xSetBackground) /* 62 */ -#endif -#ifndef XSetForeground -#define XSetForeground \ - (tkIntXlibStubsPtr->xSetForeground) /* 63 */ -#endif -#ifndef XSetClipMask -#define XSetClipMask \ - (tkIntXlibStubsPtr->xSetClipMask) /* 64 */ -#endif -#ifndef XSetClipOrigin -#define XSetClipOrigin \ - (tkIntXlibStubsPtr->xSetClipOrigin) /* 65 */ -#endif -#ifndef XSetTSOrigin -#define XSetTSOrigin \ - (tkIntXlibStubsPtr->xSetTSOrigin) /* 66 */ -#endif -#ifndef XChangeGC -#define XChangeGC \ - (tkIntXlibStubsPtr->xChangeGC) /* 67 */ -#endif -#ifndef XSetFont -#define XSetFont \ - (tkIntXlibStubsPtr->xSetFont) /* 68 */ -#endif -#ifndef XSetArcMode -#define XSetArcMode \ - (tkIntXlibStubsPtr->xSetArcMode) /* 69 */ -#endif -#ifndef XSetStipple -#define XSetStipple \ - (tkIntXlibStubsPtr->xSetStipple) /* 70 */ -#endif -#ifndef XSetFillRule -#define XSetFillRule \ - (tkIntXlibStubsPtr->xSetFillRule) /* 71 */ -#endif -#ifndef XSetFillStyle -#define XSetFillStyle \ - (tkIntXlibStubsPtr->xSetFillStyle) /* 72 */ -#endif -#ifndef XSetFunction -#define XSetFunction \ - (tkIntXlibStubsPtr->xSetFunction) /* 73 */ -#endif -#ifndef XSetLineAttributes -#define XSetLineAttributes \ - (tkIntXlibStubsPtr->xSetLineAttributes) /* 74 */ -#endif -#ifndef _XInitImageFuncPtrs -#define _XInitImageFuncPtrs \ - (tkIntXlibStubsPtr->_XInitImageFuncPtrs) /* 75 */ -#endif -#ifndef XCreateIC -#define XCreateIC \ - (tkIntXlibStubsPtr->xCreateIC) /* 76 */ -#endif -#ifndef XGetVisualInfo -#define XGetVisualInfo \ - (tkIntXlibStubsPtr->xGetVisualInfo) /* 77 */ -#endif -#ifndef XSetWMClientMachine -#define XSetWMClientMachine \ - (tkIntXlibStubsPtr->xSetWMClientMachine) /* 78 */ -#endif -#ifndef XStringListToTextProperty -#define XStringListToTextProperty \ - (tkIntXlibStubsPtr->xStringListToTextProperty) /* 79 */ -#endif -#ifndef XDrawSegments -#define XDrawSegments \ - (tkIntXlibStubsPtr->xDrawSegments) /* 80 */ -#endif -#ifndef XForceScreenSaver -#define XForceScreenSaver \ - (tkIntXlibStubsPtr->xForceScreenSaver) /* 81 */ -#endif -#ifndef XDrawLine -#define XDrawLine \ - (tkIntXlibStubsPtr->xDrawLine) /* 82 */ -#endif -#ifndef XFillRectangle -#define XFillRectangle \ - (tkIntXlibStubsPtr->xFillRectangle) /* 83 */ -#endif -#ifndef XClearWindow -#define XClearWindow \ - (tkIntXlibStubsPtr->xClearWindow) /* 84 */ -#endif -#ifndef XDrawPoint -#define XDrawPoint \ - (tkIntXlibStubsPtr->xDrawPoint) /* 85 */ -#endif -#ifndef XDrawPoints -#define XDrawPoints \ - (tkIntXlibStubsPtr->xDrawPoints) /* 86 */ -#endif -#ifndef XWarpPointer -#define XWarpPointer \ - (tkIntXlibStubsPtr->xWarpPointer) /* 87 */ -#endif -#ifndef XQueryColor -#define XQueryColor \ - (tkIntXlibStubsPtr->xQueryColor) /* 88 */ -#endif -#ifndef XQueryColors -#define XQueryColors \ - (tkIntXlibStubsPtr->xQueryColors) /* 89 */ -#endif -#ifndef XQueryTree -#define XQueryTree \ - (tkIntXlibStubsPtr->xQueryTree) /* 90 */ -#endif -#endif /* MAC_OSX_TK */ - -#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKINTXLIBDECLS */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls.m b/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls.m deleted file mode 100644 index 8671ce54721..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls.m +++ /dev/null @@ -1,446 +0,0 @@ -#ifndef _TKINTXLIBDECLS_VM -#define _TKINTXLIBDECLS_VM -#include "tkIntXlibDecls_f.h" -#ifndef NO_VTABLES -#ifndef TkPutImage -# define TkPutImage (*TkintxlibdeclsVptr->V_TkPutImage) -#endif - -#ifndef XAllocColor -# define XAllocColor (*TkintxlibdeclsVptr->V_XAllocColor) -#endif - -#ifndef XBell -# define XBell (*TkintxlibdeclsVptr->V_XBell) -#endif - -#ifndef XChangeGC -# define XChangeGC (*TkintxlibdeclsVptr->V_XChangeGC) -#endif - -#ifndef XChangeProperty -# define XChangeProperty (*TkintxlibdeclsVptr->V_XChangeProperty) -#endif - -#ifndef XChangeWindowAttributes -# define XChangeWindowAttributes (*TkintxlibdeclsVptr->V_XChangeWindowAttributes) -#endif - -#ifndef XClearWindow -# define XClearWindow (*TkintxlibdeclsVptr->V_XClearWindow) -#endif - -#ifndef XConfigureWindow -# define XConfigureWindow (*TkintxlibdeclsVptr->V_XConfigureWindow) -#endif - -#ifndef XCopyArea -# define XCopyArea (*TkintxlibdeclsVptr->V_XCopyArea) -#endif - -#ifndef XCopyPlane -# define XCopyPlane (*TkintxlibdeclsVptr->V_XCopyPlane) -#endif - -#ifndef XCreateBitmapFromData -# define XCreateBitmapFromData (*TkintxlibdeclsVptr->V_XCreateBitmapFromData) -#endif - -#ifndef XCreateColormap -# define XCreateColormap (*TkintxlibdeclsVptr->V_XCreateColormap) -#endif - -#ifndef XCreateGC -# define XCreateGC (*TkintxlibdeclsVptr->V_XCreateGC) -#endif - -#ifndef XCreateGlyphCursor -# define XCreateGlyphCursor (*TkintxlibdeclsVptr->V_XCreateGlyphCursor) -#endif - -#ifndef XCreateIC -# define XCreateIC (*TkintxlibdeclsVptr->V_XCreateIC) -#endif - -#ifndef XCreateImage -# define XCreateImage (*TkintxlibdeclsVptr->V_XCreateImage) -#endif - -#ifndef XCreatePixmapCursor -# define XCreatePixmapCursor (*TkintxlibdeclsVptr->V_XCreatePixmapCursor) -#endif - -#ifndef XDefineCursor -# define XDefineCursor (*TkintxlibdeclsVptr->V_XDefineCursor) -#endif - -#ifndef XDeleteProperty -# define XDeleteProperty (*TkintxlibdeclsVptr->V_XDeleteProperty) -#endif - -#ifndef XDestroyIC -# define XDestroyIC (*TkintxlibdeclsVptr->V_XDestroyIC) -#endif - -#ifndef XDestroyWindow -# define XDestroyWindow (*TkintxlibdeclsVptr->V_XDestroyWindow) -#endif - -#ifndef XDrawArc -# define XDrawArc (*TkintxlibdeclsVptr->V_XDrawArc) -#endif - -#ifndef XDrawLine -# define XDrawLine (*TkintxlibdeclsVptr->V_XDrawLine) -#endif - -#ifndef XDrawLines -# define XDrawLines (*TkintxlibdeclsVptr->V_XDrawLines) -#endif - -#ifndef XDrawPoint -# define XDrawPoint (*TkintxlibdeclsVptr->V_XDrawPoint) -#endif - -#ifndef XDrawPoints -# define XDrawPoints (*TkintxlibdeclsVptr->V_XDrawPoints) -#endif - -#ifndef XDrawRectangle -# define XDrawRectangle (*TkintxlibdeclsVptr->V_XDrawRectangle) -#endif - -#ifndef XDrawSegments -# define XDrawSegments (*TkintxlibdeclsVptr->V_XDrawSegments) -#endif - -#ifndef XFillArc -# define XFillArc (*TkintxlibdeclsVptr->V_XFillArc) -#endif - -#ifndef XFillPolygon -# define XFillPolygon (*TkintxlibdeclsVptr->V_XFillPolygon) -#endif - -#ifndef XFillRectangle -# define XFillRectangle (*TkintxlibdeclsVptr->V_XFillRectangle) -#endif - -#ifndef XFillRectangles -# define XFillRectangles (*TkintxlibdeclsVptr->V_XFillRectangles) -#endif - -#ifndef XFilterEvent -# define XFilterEvent (*TkintxlibdeclsVptr->V_XFilterEvent) -#endif - -#ifndef XForceScreenSaver -# define XForceScreenSaver (*TkintxlibdeclsVptr->V_XForceScreenSaver) -#endif - -#ifndef XFreeColormap -# define XFreeColormap (*TkintxlibdeclsVptr->V_XFreeColormap) -#endif - -#ifndef XFreeColors -# define XFreeColors (*TkintxlibdeclsVptr->V_XFreeColors) -#endif - -#ifndef XFreeCursor -# define XFreeCursor (*TkintxlibdeclsVptr->V_XFreeCursor) -#endif - -#ifndef XFreeGC -# define XFreeGC (*TkintxlibdeclsVptr->V_XFreeGC) -#endif - -#ifndef XFreeModifiermap -# define XFreeModifiermap (*TkintxlibdeclsVptr->V_XFreeModifiermap) -#endif - -#ifndef XGContextFromGC -# define XGContextFromGC (*TkintxlibdeclsVptr->V_XGContextFromGC) -#endif - -#ifndef XGetAtomName -# define XGetAtomName (*TkintxlibdeclsVptr->V_XGetAtomName) -#endif - -#ifndef XGetGeometry -# define XGetGeometry (*TkintxlibdeclsVptr->V_XGetGeometry) -#endif - -#ifndef XGetImage -# define XGetImage (*TkintxlibdeclsVptr->V_XGetImage) -#endif - -#ifndef XGetInputFocus -# define XGetInputFocus (*TkintxlibdeclsVptr->V_XGetInputFocus) -#endif - -#ifndef XGetModifierMapping -# define XGetModifierMapping (*TkintxlibdeclsVptr->V_XGetModifierMapping) -#endif - -#ifndef XGetVisualInfo -# define XGetVisualInfo (*TkintxlibdeclsVptr->V_XGetVisualInfo) -#endif - -#ifndef XGetWMColormapWindows -# define XGetWMColormapWindows (*TkintxlibdeclsVptr->V_XGetWMColormapWindows) -#endif - -#ifndef XGetWindowAttributes -# define XGetWindowAttributes (*TkintxlibdeclsVptr->V_XGetWindowAttributes) -#endif - -#ifndef XGetWindowProperty -# define XGetWindowProperty (*TkintxlibdeclsVptr->V_XGetWindowProperty) -#endif - -#ifndef XGrabKeyboard -# define XGrabKeyboard (*TkintxlibdeclsVptr->V_XGrabKeyboard) -#endif - -#ifndef XGrabPointer -# define XGrabPointer (*TkintxlibdeclsVptr->V_XGrabPointer) -#endif - -#ifndef XIconifyWindow -# define XIconifyWindow (*TkintxlibdeclsVptr->V_XIconifyWindow) -#endif - -#ifndef XInternAtom -# define XInternAtom (*TkintxlibdeclsVptr->V_XInternAtom) -#endif - -#ifndef XKeycodeToKeysym -# define XKeycodeToKeysym (*TkintxlibdeclsVptr->V_XKeycodeToKeysym) -#endif - -#ifndef XKeysymToKeycode -# define XKeysymToKeycode (*TkintxlibdeclsVptr->V_XKeysymToKeycode) -#endif - -#ifndef XKeysymToString -# define XKeysymToString (*TkintxlibdeclsVptr->V_XKeysymToString) -#endif - -#ifndef XListHosts -# define XListHosts (*TkintxlibdeclsVptr->V_XListHosts) -#endif - -#ifndef XLookupColor -# define XLookupColor (*TkintxlibdeclsVptr->V_XLookupColor) -#endif - -#ifndef XMapWindow -# define XMapWindow (*TkintxlibdeclsVptr->V_XMapWindow) -#endif - -#ifndef XMoveResizeWindow -# define XMoveResizeWindow (*TkintxlibdeclsVptr->V_XMoveResizeWindow) -#endif - -#ifndef XMoveWindow -# define XMoveWindow (*TkintxlibdeclsVptr->V_XMoveWindow) -#endif - -#ifndef XNextEvent -# define XNextEvent (*TkintxlibdeclsVptr->V_XNextEvent) -#endif - -#ifndef XParseColor -# define XParseColor (*TkintxlibdeclsVptr->V_XParseColor) -#endif - -#ifndef XPutBackEvent -# define XPutBackEvent (*TkintxlibdeclsVptr->V_XPutBackEvent) -#endif - -#ifndef XQueryColor -# define XQueryColor (*TkintxlibdeclsVptr->V_XQueryColor) -#endif - -#ifndef XQueryColors -# define XQueryColors (*TkintxlibdeclsVptr->V_XQueryColors) -#endif - -#ifndef XQueryPointer -# define XQueryPointer (*TkintxlibdeclsVptr->V_XQueryPointer) -#endif - -#ifndef XQueryTree -# define XQueryTree (*TkintxlibdeclsVptr->V_XQueryTree) -#endif - -#ifndef XRaiseWindow -# define XRaiseWindow (*TkintxlibdeclsVptr->V_XRaiseWindow) -#endif - -#ifndef XRefreshKeyboardMapping -# define XRefreshKeyboardMapping (*TkintxlibdeclsVptr->V_XRefreshKeyboardMapping) -#endif - -#ifndef XResizeWindow -# define XResizeWindow (*TkintxlibdeclsVptr->V_XResizeWindow) -#endif - -#ifndef XRootWindow -# define XRootWindow (*TkintxlibdeclsVptr->V_XRootWindow) -#endif - -#ifndef XSelectInput -# define XSelectInput (*TkintxlibdeclsVptr->V_XSelectInput) -#endif - -#ifndef XSendEvent -# define XSendEvent (*TkintxlibdeclsVptr->V_XSendEvent) -#endif - -#ifndef XSetArcMode -# define XSetArcMode (*TkintxlibdeclsVptr->V_XSetArcMode) -#endif - -#ifndef XSetBackground -# define XSetBackground (*TkintxlibdeclsVptr->V_XSetBackground) -#endif - -#ifndef XSetClipMask -# define XSetClipMask (*TkintxlibdeclsVptr->V_XSetClipMask) -#endif - -#ifndef XSetClipOrigin -# define XSetClipOrigin (*TkintxlibdeclsVptr->V_XSetClipOrigin) -#endif - -#ifndef XSetCommand -# define XSetCommand (*TkintxlibdeclsVptr->V_XSetCommand) -#endif - -#ifndef XSetDashes -# define XSetDashes (*TkintxlibdeclsVptr->V_XSetDashes) -#endif - -#ifndef XSetErrorHandler -# define XSetErrorHandler (*TkintxlibdeclsVptr->V_XSetErrorHandler) -#endif - -#ifndef XSetFillRule -# define XSetFillRule (*TkintxlibdeclsVptr->V_XSetFillRule) -#endif - -#ifndef XSetFillStyle -# define XSetFillStyle (*TkintxlibdeclsVptr->V_XSetFillStyle) -#endif - -#ifndef XSetFont -# define XSetFont (*TkintxlibdeclsVptr->V_XSetFont) -#endif - -#ifndef XSetForeground -# define XSetForeground (*TkintxlibdeclsVptr->V_XSetForeground) -#endif - -#ifndef XSetFunction -# define XSetFunction (*TkintxlibdeclsVptr->V_XSetFunction) -#endif - -#ifndef XSetIconName -# define XSetIconName (*TkintxlibdeclsVptr->V_XSetIconName) -#endif - -#ifndef XSetInputFocus -# define XSetInputFocus (*TkintxlibdeclsVptr->V_XSetInputFocus) -#endif - -#ifndef XSetLineAttributes -# define XSetLineAttributes (*TkintxlibdeclsVptr->V_XSetLineAttributes) -#endif - -#ifndef XSetSelectionOwner -# define XSetSelectionOwner (*TkintxlibdeclsVptr->V_XSetSelectionOwner) -#endif - -#ifndef XSetStipple -# define XSetStipple (*TkintxlibdeclsVptr->V_XSetStipple) -#endif - -#ifndef XSetTSOrigin -# define XSetTSOrigin (*TkintxlibdeclsVptr->V_XSetTSOrigin) -#endif - -#ifndef XSetWMClientMachine -# define XSetWMClientMachine (*TkintxlibdeclsVptr->V_XSetWMClientMachine) -#endif - -#ifndef XSetWindowBackground -# define XSetWindowBackground (*TkintxlibdeclsVptr->V_XSetWindowBackground) -#endif - -#ifndef XSetWindowBackgroundPixmap -# define XSetWindowBackgroundPixmap (*TkintxlibdeclsVptr->V_XSetWindowBackgroundPixmap) -#endif - -#ifndef XSetWindowBorder -# define XSetWindowBorder (*TkintxlibdeclsVptr->V_XSetWindowBorder) -#endif - -#ifndef XSetWindowBorderPixmap -# define XSetWindowBorderPixmap (*TkintxlibdeclsVptr->V_XSetWindowBorderPixmap) -#endif - -#ifndef XSetWindowBorderWidth -# define XSetWindowBorderWidth (*TkintxlibdeclsVptr->V_XSetWindowBorderWidth) -#endif - -#ifndef XSetWindowColormap -# define XSetWindowColormap (*TkintxlibdeclsVptr->V_XSetWindowColormap) -#endif - -#ifndef XStringListToTextProperty -# define XStringListToTextProperty (*TkintxlibdeclsVptr->V_XStringListToTextProperty) -#endif - -#ifndef XStringToKeysym -# define XStringToKeysym (*TkintxlibdeclsVptr->V_XStringToKeysym) -#endif - -#ifndef XTranslateCoordinates -# define XTranslateCoordinates (*TkintxlibdeclsVptr->V_XTranslateCoordinates) -#endif - -#ifndef XUngrabKeyboard -# define XUngrabKeyboard (*TkintxlibdeclsVptr->V_XUngrabKeyboard) -#endif - -#ifndef XUngrabPointer -# define XUngrabPointer (*TkintxlibdeclsVptr->V_XUngrabPointer) -#endif - -#ifndef XUnmapWindow -# define XUnmapWindow (*TkintxlibdeclsVptr->V_XUnmapWindow) -#endif - -#ifndef XWarpPointer -# define XWarpPointer (*TkintxlibdeclsVptr->V_XWarpPointer) -#endif - -#ifndef XWindowEvent -# define XWindowEvent (*TkintxlibdeclsVptr->V_XWindowEvent) -#endif - -#ifndef XWithdrawWindow -# define XWithdrawWindow (*TkintxlibdeclsVptr->V_XWithdrawWindow) -#endif - -#ifndef XmbLookupString -# define XmbLookupString (*TkintxlibdeclsVptr->V_XmbLookupString) -#endif - -#ifndef _XInitImageFuncPtrs -# define _XInitImageFuncPtrs (*TkintxlibdeclsVptr->V__XInitImageFuncPtrs) -#endif - -#endif /* NO_VTABLES */ -#endif /* _TKINTXLIBDECLS_VM */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls.t b/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls.t deleted file mode 100644 index fe7722315d0..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls.t +++ /dev/null @@ -1,1521 +0,0 @@ -#ifdef _TKINTXLIBDECLS
-#ifndef TkPutImage
-#ifdef MAC_OSX_TK
-VFUNC(void,TkPutImage,V_TkPutImage,_ANSI_ARGS_((unsigned long * colors,
- int ncolors, Display* display, Drawable d,
- GC gc, XImage* image, int src_x, int src_y,
- int dest_x, int dest_y, unsigned int width,
- unsigned int height)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,TkPutImage,V_TkPutImage,_ANSI_ARGS_((unsigned long * colors,
- int ncolors, Display* display, Drawable d,
- GC gc, XImage* image, int src_x, int src_y,
- int dest_x, int dest_y, unsigned int width,
- unsigned int height)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,TkPutImage,V_TkPutImage,_ANSI_ARGS_((unsigned long * colors,
- int ncolors, Display* display, Drawable d,
- GC gc, XImage* image, int src_x, int src_y,
- int dest_x, int dest_y, unsigned int width,
- unsigned int height)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef TkPutImage */
-
-#ifndef XAllocColor
-#ifdef MAC_OSX_TK
-VFUNC(Status,XAllocColor,V_XAllocColor,_ANSI_ARGS_((Display* d, Colormap c,
- XColor* xp)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(Status,XAllocColor,V_XAllocColor,_ANSI_ARGS_((Display* d, Colormap c,
- XColor* xp)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(Status,XAllocColor,V_XAllocColor,_ANSI_ARGS_((Display* d, Colormap c,
- XColor* xp)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XAllocColor */
-
-#ifndef XBell
-#ifdef MAC_OSX_TK
-VFUNC(void,XBell,V_XBell,_ANSI_ARGS_((Display* d, int i)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XBell,V_XBell,_ANSI_ARGS_((Display* d, int i)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XBell,V_XBell,_ANSI_ARGS_((Display* d, int i)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XBell */
-
-#ifndef XChangeGC
-#ifdef MAC_OSX_TK
-VFUNC(void,XChangeGC,V_XChangeGC,_ANSI_ARGS_((Display * d, GC gc,
- unsigned long mask, XGCValues * values)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XChangeGC,V_XChangeGC,_ANSI_ARGS_((Display * d, GC gc,
- unsigned long mask, XGCValues * values)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XChangeGC,V_XChangeGC,_ANSI_ARGS_((Display * d, GC gc,
- unsigned long mask, XGCValues * values)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XChangeGC */
-
-#ifndef XChangeProperty
-#ifdef MAC_OSX_TK
-VFUNC(void,XChangeProperty,V_XChangeProperty,_ANSI_ARGS_((Display* d, Window w,
- Atom a1, Atom a2, int i1, int i2,
- _Xconst unsigned char* c, int i3)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XChangeProperty,V_XChangeProperty,_ANSI_ARGS_((Display* d, Window w,
- Atom a1, Atom a2, int i1, int i2,
- _Xconst unsigned char* c, int i3)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XChangeProperty,V_XChangeProperty,_ANSI_ARGS_((Display* d, Window w,
- Atom a1, Atom a2, int i1, int i2,
- _Xconst unsigned char* c, int i3)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XChangeProperty */
-
-#ifndef XChangeWindowAttributes
-#ifdef MAC_OSX_TK
-VFUNC(void,XChangeWindowAttributes,V_XChangeWindowAttributes,_ANSI_ARGS_((Display* d,
- Window w, unsigned long ul,
- XSetWindowAttributes* x)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XChangeWindowAttributes,V_XChangeWindowAttributes,_ANSI_ARGS_((Display* d,
- Window w, unsigned long ul,
- XSetWindowAttributes* x)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XChangeWindowAttributes,V_XChangeWindowAttributes,_ANSI_ARGS_((Display* d,
- Window w, unsigned long ul,
- XSetWindowAttributes* x)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XChangeWindowAttributes */
-
-#ifndef XClearWindow
-#ifdef MAC_OSX_TK
-VFUNC(void,XClearWindow,V_XClearWindow,_ANSI_ARGS_((Display* d, Window w)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XClearWindow,V_XClearWindow,_ANSI_ARGS_((Display* d, Window w)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XClearWindow,V_XClearWindow,_ANSI_ARGS_((Display* d, Window w)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XClearWindow */
-
-#ifndef XConfigureWindow
-#ifdef MAC_OSX_TK
-VFUNC(void,XConfigureWindow,V_XConfigureWindow,_ANSI_ARGS_((Display* d, Window w,
- unsigned int i, XWindowChanges* x)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XConfigureWindow,V_XConfigureWindow,_ANSI_ARGS_((Display* d, Window w,
- unsigned int i, XWindowChanges* x)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XConfigureWindow,V_XConfigureWindow,_ANSI_ARGS_((Display* d, Window w,
- unsigned int i, XWindowChanges* x)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XConfigureWindow */
-
-#ifndef XCopyArea
-#ifdef MAC_OSX_TK
-VFUNC(void,XCopyArea,V_XCopyArea,_ANSI_ARGS_((Display* d, Drawable dr1,
- Drawable dr2, GC g, int i1, int i2,
- unsigned int ui1, unsigned int ui2, int i3,
- int i4)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XCopyArea,V_XCopyArea,_ANSI_ARGS_((Display* d, Drawable dr1,
- Drawable dr2, GC g, int i1, int i2,
- unsigned int ui1, unsigned int ui2, int i3,
- int i4)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XCopyArea,V_XCopyArea,_ANSI_ARGS_((Display* d, Drawable dr1,
- Drawable dr2, GC g, int i1, int i2,
- unsigned int ui1, unsigned int ui2, int i3,
- int i4)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XCopyArea */
-
-#ifndef XCopyPlane
-#ifdef MAC_OSX_TK
-VFUNC(void,XCopyPlane,V_XCopyPlane,_ANSI_ARGS_((Display* d, Drawable dr1,
- Drawable dr2, GC g, int i1, int i2,
- unsigned int ui1, unsigned int ui2, int i3,
- int i4, unsigned long ul)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XCopyPlane,V_XCopyPlane,_ANSI_ARGS_((Display* d, Drawable dr1,
- Drawable dr2, GC g, int i1, int i2,
- unsigned int ui1, unsigned int ui2, int i3,
- int i4, unsigned long ul)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XCopyPlane,V_XCopyPlane,_ANSI_ARGS_((Display* d, Drawable dr1,
- Drawable dr2, GC g, int i1, int i2,
- unsigned int ui1, unsigned int ui2, int i3,
- int i4, unsigned long ul)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XCopyPlane */
-
-#ifndef XCreateBitmapFromData
-#ifdef MAC_OSX_TK
-VFUNC(Pixmap,XCreateBitmapFromData,V_XCreateBitmapFromData,_ANSI_ARGS_((Display* display,
- Drawable d, _Xconst char* data,
- unsigned int width, unsigned int height)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(Pixmap,XCreateBitmapFromData,V_XCreateBitmapFromData,_ANSI_ARGS_((Display* display,
- Drawable d, _Xconst char* data,
- unsigned int width, unsigned int height)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(Pixmap,XCreateBitmapFromData,V_XCreateBitmapFromData,_ANSI_ARGS_((Display* display,
- Drawable d, _Xconst char* data,
- unsigned int width, unsigned int height)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XCreateBitmapFromData */
-
-#ifndef XCreateColormap
-#ifdef MAC_OSX_TK
-VFUNC(Colormap,XCreateColormap,V_XCreateColormap,_ANSI_ARGS_((Display* d, Window w,
- Visual* v, int i)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(Colormap,XCreateColormap,V_XCreateColormap,_ANSI_ARGS_((Display* d, Window w,
- Visual* v, int i)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(Colormap,XCreateColormap,V_XCreateColormap,_ANSI_ARGS_((Display* d, Window w,
- Visual* v, int i)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XCreateColormap */
-
-#ifndef XCreateGC
-#ifdef MAC_OSX_TK
-VFUNC(GC,XCreateGC,V_XCreateGC,_ANSI_ARGS_((Display* display, Drawable d,
- unsigned long valuemask, XGCValues* values)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(GC,XCreateGC,V_XCreateGC,_ANSI_ARGS_((Display* display, Drawable d,
- unsigned long valuemask, XGCValues* values)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(GC,XCreateGC,V_XCreateGC,_ANSI_ARGS_((Display* display, Drawable d,
- unsigned long valuemask, XGCValues* values)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XCreateGC */
-
-#ifndef XCreateGlyphCursor
-#ifdef __WIN32__
-VFUNC(Cursor,XCreateGlyphCursor,V_XCreateGlyphCursor,_ANSI_ARGS_((Display* d, Font f1,
- Font f2, unsigned int ui1, unsigned int ui2,
- XColor* x1, XColor* x2)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XCreateGlyphCursor */
-
-#ifndef XCreateIC
-#ifdef MAC_OSX_TK
-VFUNC(XIC,XCreateIC,V_XCreateIC,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(XIC,XCreateIC,V_XCreateIC,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(XIC,XCreateIC,V_XCreateIC,_ANSI_ARGS_((void)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XCreateIC */
-
-#ifndef XCreateImage
-#ifdef MAC_OSX_TK
-VFUNC(XImage *,XCreateImage,V_XCreateImage,_ANSI_ARGS_((Display* d, Visual* v,
- unsigned int ui1, int i1, int i2, char* cp,
- unsigned int ui2, unsigned int ui3, int i3,
- int i4)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(XImage *,XCreateImage,V_XCreateImage,_ANSI_ARGS_((Display* d, Visual* v,
- unsigned int ui1, int i1, int i2, char* cp,
- unsigned int ui2, unsigned int ui3, int i3,
- int i4)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(XImage *,XCreateImage,V_XCreateImage,_ANSI_ARGS_((Display* d, Visual* v,
- unsigned int ui1, int i1, int i2, char* cp,
- unsigned int ui2, unsigned int ui3, int i3,
- int i4)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XCreateImage */
-
-#ifndef XCreatePixmapCursor
-#ifdef __WIN32__
-VFUNC(Cursor,XCreatePixmapCursor,V_XCreatePixmapCursor,_ANSI_ARGS_((Display* d,
- Pixmap p1, Pixmap p2, XColor* x1, XColor* x2,
- unsigned int ui1, unsigned int ui2)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XCreatePixmapCursor */
-
-#ifndef XDefineCursor
-#ifdef MAC_OSX_TK
-VFUNC(void,XDefineCursor,V_XDefineCursor,_ANSI_ARGS_((Display* d, Window w,
- Cursor c)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XDefineCursor,V_XDefineCursor,_ANSI_ARGS_((Display* d, Window w,
- Cursor c)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XDefineCursor,V_XDefineCursor,_ANSI_ARGS_((Display* d, Window w,
- Cursor c)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XDefineCursor */
-
-#ifndef XDeleteProperty
-#ifdef __WIN32__
-VFUNC(void,XDeleteProperty,V_XDeleteProperty,_ANSI_ARGS_((Display* d, Window w,
- Atom a)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XDeleteProperty */
-
-#ifndef XDestroyIC
-#ifdef __WIN32__
-VFUNC(void,XDestroyIC,V_XDestroyIC,_ANSI_ARGS_((XIC x)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XDestroyIC */
-
-#ifndef XDestroyWindow
-#ifdef MAC_OSX_TK
-VFUNC(void,XDestroyWindow,V_XDestroyWindow,_ANSI_ARGS_((Display* d, Window w)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XDestroyWindow,V_XDestroyWindow,_ANSI_ARGS_((Display* d, Window w)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XDestroyWindow,V_XDestroyWindow,_ANSI_ARGS_((Display* d, Window w)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XDestroyWindow */
-
-#ifndef XDrawArc
-#ifdef MAC_OSX_TK
-VFUNC(void,XDrawArc,V_XDrawArc,_ANSI_ARGS_((Display* d, Drawable dr, GC g,
- int i1, int i2, unsigned int ui1,
- unsigned int ui2, int i3, int i4)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XDrawArc,V_XDrawArc,_ANSI_ARGS_((Display* d, Drawable dr, GC g,
- int i1, int i2, unsigned int ui1,
- unsigned int ui2, int i3, int i4)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XDrawArc,V_XDrawArc,_ANSI_ARGS_((Display* d, Drawable dr, GC g,
- int i1, int i2, unsigned int ui1,
- unsigned int ui2, int i3, int i4)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XDrawArc */
-
-#ifndef XDrawLine
-#ifdef MAC_OSX_TK
-VFUNC(void,XDrawLine,V_XDrawLine,_ANSI_ARGS_((Display* d, Drawable dr, GC g,
- int x1, int y1, int x2, int y2)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XDrawLine,V_XDrawLine,_ANSI_ARGS_((Display* d, Drawable dr, GC g,
- int x1, int y1, int x2, int y2)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XDrawLine,V_XDrawLine,_ANSI_ARGS_((Display* d, Drawable dr, GC g,
- int x1, int y1, int x2, int y2)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XDrawLine */
-
-#ifndef XDrawLines
-#ifdef MAC_OSX_TK
-VFUNC(void,XDrawLines,V_XDrawLines,_ANSI_ARGS_((Display* d, Drawable dr,
- GC g, XPoint* x, int i1, int i2)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XDrawLines,V_XDrawLines,_ANSI_ARGS_((Display* d, Drawable dr,
- GC g, XPoint* x, int i1, int i2)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XDrawLines,V_XDrawLines,_ANSI_ARGS_((Display* d, Drawable dr,
- GC g, XPoint* x, int i1, int i2)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XDrawLines */
-
-#ifndef XDrawPoint
-#ifdef MAC_OSX_TK
-VFUNC(void,XDrawPoint,V_XDrawPoint,_ANSI_ARGS_((Display* display, Drawable d,
- GC gc, int x, int y)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XDrawPoint,V_XDrawPoint,_ANSI_ARGS_((Display* display, Drawable d,
- GC gc, int x, int y)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef XDrawPoint */
-
-#ifndef XDrawPoints
-#ifdef MAC_OSX_TK
-VFUNC(void,XDrawPoints,V_XDrawPoints,_ANSI_ARGS_((Display* display,
- Drawable d, GC gc, XPoint * points,
- int npoints, int mode)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XDrawPoints,V_XDrawPoints,_ANSI_ARGS_((Display* display,
- Drawable d, GC gc, XPoint * points,
- int npoints, int mode)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef XDrawPoints */
-
-#ifndef XDrawRectangle
-#ifdef MAC_OSX_TK
-VFUNC(void,XDrawRectangle,V_XDrawRectangle,_ANSI_ARGS_((Display* d, Drawable dr,
- GC g, int i1, int i2, unsigned int ui1,
- unsigned int ui2)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XDrawRectangle,V_XDrawRectangle,_ANSI_ARGS_((Display* d, Drawable dr,
- GC g, int i1, int i2, unsigned int ui1,
- unsigned int ui2)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XDrawRectangle,V_XDrawRectangle,_ANSI_ARGS_((Display* d, Drawable dr,
- GC g, int i1, int i2, unsigned int ui1,
- unsigned int ui2)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XDrawRectangle */
-
-#ifndef XDrawSegments
-#ifdef MAC_OSX_TK
-VFUNC(void,XDrawSegments,V_XDrawSegments,_ANSI_ARGS_((Display * display,
- Drawable d, GC gc, XSegment * segments,
- int nsegments)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XDrawSegments,V_XDrawSegments,_ANSI_ARGS_((Display * display,
- Drawable d, GC gc, XSegment * segments,
- int nsegments)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef XDrawSegments */
-
-#ifndef XFillArc
-#ifdef MAC_OSX_TK
-VFUNC(void,XFillArc,V_XFillArc,_ANSI_ARGS_((Display* d, Drawable dr, GC g,
- int i1, int i2, unsigned int ui1,
- unsigned int ui2, int i3, int i4)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XFillArc,V_XFillArc,_ANSI_ARGS_((Display* d, Drawable dr, GC g,
- int i1, int i2, unsigned int ui1,
- unsigned int ui2, int i3, int i4)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XFillArc,V_XFillArc,_ANSI_ARGS_((Display* d, Drawable dr, GC g,
- int i1, int i2, unsigned int ui1,
- unsigned int ui2, int i3, int i4)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XFillArc */
-
-#ifndef XFillPolygon
-#ifdef MAC_OSX_TK
-VFUNC(void,XFillPolygon,V_XFillPolygon,_ANSI_ARGS_((Display* d, Drawable dr,
- GC g, XPoint* x, int i1, int i2, int i3)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XFillPolygon,V_XFillPolygon,_ANSI_ARGS_((Display* d, Drawable dr,
- GC g, XPoint* x, int i1, int i2, int i3)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XFillPolygon,V_XFillPolygon,_ANSI_ARGS_((Display* d, Drawable dr,
- GC g, XPoint* x, int i1, int i2, int i3)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XFillPolygon */
-
-#ifndef XFillRectangle
-#ifdef MAC_OSX_TK
-VFUNC(void,XFillRectangle,V_XFillRectangle,_ANSI_ARGS_((Display* display,
- Drawable d, GC gc, int x, int y,
- unsigned int width, unsigned int height)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XFillRectangle,V_XFillRectangle,_ANSI_ARGS_((Display* display,
- Drawable d, GC gc, int x, int y,
- unsigned int width, unsigned int height)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XFillRectangle,V_XFillRectangle,_ANSI_ARGS_((Display* display,
- Drawable d, GC gc, int x, int y,
- unsigned int width, unsigned int height)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XFillRectangle */
-
-#ifndef XFillRectangles
-#ifdef MAC_OSX_TK
-VFUNC(void,XFillRectangles,V_XFillRectangles,_ANSI_ARGS_((Display* d, Drawable dr,
- GC g, XRectangle* x, int i)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XFillRectangles,V_XFillRectangles,_ANSI_ARGS_((Display* d, Drawable dr,
- GC g, XRectangle* x, int i)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XFillRectangles,V_XFillRectangles,_ANSI_ARGS_((Display* d, Drawable dr,
- GC g, XRectangle* x, int i)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XFillRectangles */
-
-#ifndef XFilterEvent
-#ifdef __WIN32__
-VFUNC(Bool,XFilterEvent,V_XFilterEvent,_ANSI_ARGS_((XEvent* x, Window w)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XFilterEvent */
-
-#ifndef XForceScreenSaver
-#ifdef MAC_OSX_TK
-VFUNC(void,XForceScreenSaver,V_XForceScreenSaver,_ANSI_ARGS_((Display* display,
- int mode)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XForceScreenSaver,V_XForceScreenSaver,_ANSI_ARGS_((Display* display,
- int mode)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XForceScreenSaver,V_XForceScreenSaver,_ANSI_ARGS_((Display* d, int i)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XForceScreenSaver */
-
-#ifndef XFreeColormap
-#ifdef MAC_OSX_TK
-VFUNC(void,XFreeColormap,V_XFreeColormap,_ANSI_ARGS_((Display* d, Colormap c)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XFreeColormap,V_XFreeColormap,_ANSI_ARGS_((Display* d, Colormap c)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XFreeColormap,V_XFreeColormap,_ANSI_ARGS_((Display* d, Colormap c)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XFreeColormap */
-
-#ifndef XFreeColors
-#ifdef MAC_OSX_TK
-VFUNC(void,XFreeColors,V_XFreeColors,_ANSI_ARGS_((Display* d, Colormap c,
- unsigned long* ulp, int i, unsigned long ul)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XFreeColors,V_XFreeColors,_ANSI_ARGS_((Display* d, Colormap c,
- unsigned long* ulp, int i, unsigned long ul)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XFreeColors,V_XFreeColors,_ANSI_ARGS_((Display* d, Colormap c,
- unsigned long* ulp, int i, unsigned long ul)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XFreeColors */
-
-#ifndef XFreeCursor
-#ifdef __WIN32__
-VFUNC(void,XFreeCursor,V_XFreeCursor,_ANSI_ARGS_((Display* d, Cursor c)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XFreeCursor */
-
-#ifndef XFreeGC
-#ifdef MAC_OSX_TK
-VFUNC(void,XFreeGC,V_XFreeGC,_ANSI_ARGS_((Display* display, GC gc)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XFreeGC,V_XFreeGC,_ANSI_ARGS_((Display* display, GC gc)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XFreeGC,V_XFreeGC,_ANSI_ARGS_((Display* display, GC gc)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XFreeGC */
-
-#ifndef XFreeModifiermap
-#ifdef MAC_OSX_TK
-VFUNC(void,XFreeModifiermap,V_XFreeModifiermap,_ANSI_ARGS_((XModifierKeymap* x)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XFreeModifiermap,V_XFreeModifiermap,_ANSI_ARGS_((XModifierKeymap* x)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XFreeModifiermap,V_XFreeModifiermap,_ANSI_ARGS_((XModifierKeymap* x)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XFreeModifiermap */
-
-#ifndef XGContextFromGC
-#ifdef MAC_OSX_TK
-VFUNC(GContext,XGContextFromGC,V_XGContextFromGC,_ANSI_ARGS_((GC g)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(GContext,XGContextFromGC,V_XGContextFromGC,_ANSI_ARGS_((GC g)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(GContext,XGContextFromGC,V_XGContextFromGC,_ANSI_ARGS_((GC g)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XGContextFromGC */
-
-#ifndef XGetAtomName
-#ifdef MAC_OSX_TK
-VFUNC(char *,XGetAtomName,V_XGetAtomName,_ANSI_ARGS_((Display* d, Atom a)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(char *,XGetAtomName,V_XGetAtomName,_ANSI_ARGS_((Display* d, Atom a)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(char *,XGetAtomName,V_XGetAtomName,_ANSI_ARGS_((Display* d, Atom a)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XGetAtomName */
-
-#ifndef XGetGeometry
-#ifdef MAC_OSX_TK
-VFUNC(Status,XGetGeometry,V_XGetGeometry,_ANSI_ARGS_((Display* d, Drawable dr,
- Window* w, int* i1, int* i2,
- unsigned int* ui1, unsigned int* ui2,
- unsigned int* ui3, unsigned int* ui4)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(Status,XGetGeometry,V_XGetGeometry,_ANSI_ARGS_((Display* d, Drawable dr,
- Window* w, int* i1, int* i2,
- unsigned int* ui1, unsigned int* ui2,
- unsigned int* ui3, unsigned int* ui4)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(Status,XGetGeometry,V_XGetGeometry,_ANSI_ARGS_((Display* d, Drawable dr,
- Window* w, int* i1, int* i2,
- unsigned int* ui1, unsigned int* ui2,
- unsigned int* ui3, unsigned int* ui4)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XGetGeometry */
-
-#ifndef XGetImage
-#ifdef MAC_OSX_TK
-VFUNC(XImage *,XGetImage,V_XGetImage,_ANSI_ARGS_((Display* d, Drawable dr,
- int i1, int i2, unsigned int ui1,
- unsigned int ui2, unsigned long ul, int i3)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(XImage *,XGetImage,V_XGetImage,_ANSI_ARGS_((Display* d, Drawable dr,
- int i1, int i2, unsigned int ui1,
- unsigned int ui2, unsigned long ul, int i3)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(XImage *,XGetImage,V_XGetImage,_ANSI_ARGS_((Display* d, Drawable dr,
- int i1, int i2, unsigned int ui1,
- unsigned int ui2, unsigned long ul, int i3)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XGetImage */
-
-#ifndef XGetInputFocus
-#ifdef __WIN32__
-VFUNC(void,XGetInputFocus,V_XGetInputFocus,_ANSI_ARGS_((Display* d, Window* w,
- int* i)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XGetInputFocus */
-
-#ifndef XGetModifierMapping
-#ifdef MAC_OSX_TK
-VFUNC(XModifierKeymap*,XGetModifierMapping,V_XGetModifierMapping,_ANSI_ARGS_((Display* d)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(XModifierKeymap*,XGetModifierMapping,V_XGetModifierMapping,_ANSI_ARGS_((Display* d)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(XModifierKeymap*,XGetModifierMapping,V_XGetModifierMapping,_ANSI_ARGS_((Display* d)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XGetModifierMapping */
-
-#ifndef XGetVisualInfo
-#ifdef MAC_OSX_TK
-VFUNC(XVisualInfo *,XGetVisualInfo,V_XGetVisualInfo,_ANSI_ARGS_((Display* display,
- long vinfo_mask, XVisualInfo* vinfo_template,
- int* nitems_return)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(XVisualInfo *,XGetVisualInfo,V_XGetVisualInfo,_ANSI_ARGS_((Display* display,
- long vinfo_mask, XVisualInfo* vinfo_template,
- int* nitems_return)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(XVisualInfo *,XGetVisualInfo,V_XGetVisualInfo,_ANSI_ARGS_((Display* display,
- long vinfo_mask, XVisualInfo* vinfo_template,
- int* nitems_return)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XGetVisualInfo */
-
-#ifndef XGetWMColormapWindows
-#ifdef __WIN32__
-VFUNC(Status,XGetWMColormapWindows,V_XGetWMColormapWindows,_ANSI_ARGS_((Display* d,
- Window w, Window** wpp, int* ip)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XGetWMColormapWindows */
-
-#ifndef XGetWindowAttributes
-#ifdef __WIN32__
-VFUNC(Status,XGetWindowAttributes,V_XGetWindowAttributes,_ANSI_ARGS_((Display* d,
- Window w, XWindowAttributes* x)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XGetWindowAttributes */
-
-#ifndef XGetWindowProperty
-#ifdef MAC_OSX_TK
-VFUNC(int,XGetWindowProperty,V_XGetWindowProperty,_ANSI_ARGS_((Display* d, Window w,
- Atom a1, long l1, long l2, Bool b, Atom a2,
- Atom* ap, int* ip, unsigned long* ulp1,
- unsigned long* ulp2, unsigned char** cpp)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(int,XGetWindowProperty,V_XGetWindowProperty,_ANSI_ARGS_((Display* d, Window w,
- Atom a1, long l1, long l2, Bool b, Atom a2,
- Atom* ap, int* ip, unsigned long* ulp1,
- unsigned long* ulp2, unsigned char** cpp)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(int,XGetWindowProperty,V_XGetWindowProperty,_ANSI_ARGS_((Display* d, Window w,
- Atom a1, long l1, long l2, Bool b, Atom a2,
- Atom* ap, int* ip, unsigned long* ulp1,
- unsigned long* ulp2, unsigned char** cpp)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XGetWindowProperty */
-
-#ifndef XGrabKeyboard
-#ifdef MAC_OSX_TK
-VFUNC(int,XGrabKeyboard,V_XGrabKeyboard,_ANSI_ARGS_((Display* d, Window w,
- Bool b, int i1, int i2, Time t)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(int,XGrabKeyboard,V_XGrabKeyboard,_ANSI_ARGS_((Display* d, Window w,
- Bool b, int i1, int i2, Time t)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(int,XGrabKeyboard,V_XGrabKeyboard,_ANSI_ARGS_((Display* d, Window w,
- Bool b, int i1, int i2, Time t)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XGrabKeyboard */
-
-#ifndef XGrabPointer
-#ifdef MAC_OSX_TK
-VFUNC(int,XGrabPointer,V_XGrabPointer,_ANSI_ARGS_((Display* d, Window w1,
- Bool b, unsigned int ui, int i1, int i2,
- Window w2, Cursor c, Time t)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(int,XGrabPointer,V_XGrabPointer,_ANSI_ARGS_((Display* d, Window w1,
- Bool b, unsigned int ui, int i1, int i2,
- Window w2, Cursor c, Time t)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(int,XGrabPointer,V_XGrabPointer,_ANSI_ARGS_((Display* d, Window w1,
- Bool b, unsigned int ui, int i1, int i2,
- Window w2, Cursor c, Time t)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XGrabPointer */
-
-#ifndef XIconifyWindow
-#ifdef __WIN32__
-VFUNC(Status,XIconifyWindow,V_XIconifyWindow,_ANSI_ARGS_((Display* d, Window w,
- int i)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XIconifyWindow */
-
-#ifndef XInternAtom
-#ifdef MAC_OSX_TK
-VFUNC(Atom,XInternAtom,V_XInternAtom,_ANSI_ARGS_((Display* display,
- _Xconst char* atom_name, Bool only_if_exists)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(Atom,XInternAtom,V_XInternAtom,_ANSI_ARGS_((Display* display,
- _Xconst char* atom_name, Bool only_if_exists)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(Atom,XInternAtom,V_XInternAtom,_ANSI_ARGS_((Display* display,
- _Xconst char* atom_name, Bool only_if_exists)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XInternAtom */
-
-#ifndef XKeycodeToKeysym
-#ifdef MAC_OSX_TK
-VFUNC(KeySym,XKeycodeToKeysym,V_XKeycodeToKeysym,_ANSI_ARGS_((Display* d, KeyCode k,
- int i)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(KeySym,XKeycodeToKeysym,V_XKeycodeToKeysym,_ANSI_ARGS_((Display* d, KeyCode k,
- int i)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(KeySym,XKeycodeToKeysym,V_XKeycodeToKeysym,_ANSI_ARGS_((Display* d,
- unsigned int k, int i)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XKeycodeToKeysym */
-
-#ifndef XKeysymToKeycode
-#ifdef MAC_OSX_TK
-VFUNC(KeyCode,XKeysymToKeycode,V_XKeysymToKeycode,_ANSI_ARGS_((Display* d, KeySym k)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(KeyCode,XKeysymToKeycode,V_XKeysymToKeycode,_ANSI_ARGS_((Display* d, KeySym k)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(KeyCode,XKeysymToKeycode,V_XKeysymToKeycode,_ANSI_ARGS_((Display* d, KeySym k)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XKeysymToKeycode */
-
-#ifndef XKeysymToString
-#ifdef MAC_OSX_TK
-VFUNC(char *,XKeysymToString,V_XKeysymToString,_ANSI_ARGS_((KeySym k)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(char *,XKeysymToString,V_XKeysymToString,_ANSI_ARGS_((KeySym k)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(char *,XKeysymToString,V_XKeysymToString,_ANSI_ARGS_((KeySym k)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XKeysymToString */
-
-#ifndef XListHosts
-#ifdef __WIN32__
-VFUNC(XHostAddress *,XListHosts,V_XListHosts,_ANSI_ARGS_((Display* d, int* i, Bool* b)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XListHosts */
-
-#ifndef XLookupColor
-#ifdef __WIN32__
-VFUNC(Status,XLookupColor,V_XLookupColor,_ANSI_ARGS_((Display* d, Colormap c1,
- _Xconst char* c2, XColor* x1, XColor* x2)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XLookupColor */
-
-#ifndef XMapWindow
-#ifdef MAC_OSX_TK
-VFUNC(void,XMapWindow,V_XMapWindow,_ANSI_ARGS_((Display* d, Window w)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XMapWindow,V_XMapWindow,_ANSI_ARGS_((Display* d, Window w)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XMapWindow,V_XMapWindow,_ANSI_ARGS_((Display* d, Window w)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XMapWindow */
-
-#ifndef XMoveResizeWindow
-#ifdef MAC_OSX_TK
-VFUNC(void,XMoveResizeWindow,V_XMoveResizeWindow,_ANSI_ARGS_((Display* d, Window w,
- int i1, int i2, unsigned int ui1,
- unsigned int ui2)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XMoveResizeWindow,V_XMoveResizeWindow,_ANSI_ARGS_((Display* d, Window w,
- int i1, int i2, unsigned int ui1,
- unsigned int ui2)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XMoveResizeWindow,V_XMoveResizeWindow,_ANSI_ARGS_((Display* d, Window w,
- int i1, int i2, unsigned int ui1,
- unsigned int ui2)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XMoveResizeWindow */
-
-#ifndef XMoveWindow
-#ifdef MAC_OSX_TK
-VFUNC(void,XMoveWindow,V_XMoveWindow,_ANSI_ARGS_((Display* d, Window w,
- int i1, int i2)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XMoveWindow,V_XMoveWindow,_ANSI_ARGS_((Display* d, Window w,
- int i1, int i2)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XMoveWindow,V_XMoveWindow,_ANSI_ARGS_((Display* d, Window w,
- int i1, int i2)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XMoveWindow */
-
-#ifndef XNextEvent
-#ifdef __WIN32__
-VFUNC(void,XNextEvent,V_XNextEvent,_ANSI_ARGS_((Display* d, XEvent* x)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XNextEvent */
-
-#ifndef XParseColor
-#ifdef MAC_OSX_TK
-VFUNC(Status,XParseColor,V_XParseColor,_ANSI_ARGS_((Display * display,
- Colormap map, _Xconst char* spec,
- XColor * colorPtr)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(Status,XParseColor,V_XParseColor,_ANSI_ARGS_((Display * display,
- Colormap map, _Xconst char* spec,
- XColor * colorPtr)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(Status,XParseColor,V_XParseColor,_ANSI_ARGS_((Display * display,
- Colormap map, _Xconst char* spec,
- XColor * colorPtr)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XParseColor */
-
-#ifndef XPutBackEvent
-#ifdef __WIN32__
-VFUNC(void,XPutBackEvent,V_XPutBackEvent,_ANSI_ARGS_((Display* d, XEvent* x)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XPutBackEvent */
-
-#ifndef XQueryColor
-#ifdef MAC_OSX_TK
-VFUNC(void,XQueryColor,V_XQueryColor,_ANSI_ARGS_((Display * display,
- Colormap colormap, XColor * def_in_out)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XQueryColor,V_XQueryColor,_ANSI_ARGS_((Display * display,
- Colormap colormap, XColor * def_in_out)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef XQueryColor */
-
-#ifndef XQueryColors
-#ifdef MAC_OSX_TK
-VFUNC(void,XQueryColors,V_XQueryColors,_ANSI_ARGS_((Display * display,
- Colormap colormap, XColor * defs_in_out,
- int ncolors)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XQueryColors,V_XQueryColors,_ANSI_ARGS_((Display * display,
- Colormap colormap, XColor * defs_in_out,
- int ncolors)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XQueryColors,V_XQueryColors,_ANSI_ARGS_((Display* d, Colormap c,
- XColor* x, int i)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XQueryColors */
-
-#ifndef XQueryPointer
-#ifdef MAC_OSX_TK
-VFUNC(Bool,XQueryPointer,V_XQueryPointer,_ANSI_ARGS_((Display* d, Window w1,
- Window* w2, Window* w3, int* i1, int* i2,
- int* i3, int* i4, unsigned int* ui)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(Bool,XQueryPointer,V_XQueryPointer,_ANSI_ARGS_((Display* d, Window w1,
- Window* w2, Window* w3, int* i1, int* i2,
- int* i3, int* i4, unsigned int* ui)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(Bool,XQueryPointer,V_XQueryPointer,_ANSI_ARGS_((Display* d, Window w1,
- Window* w2, Window* w3, int* i1, int* i2,
- int* i3, int* i4, unsigned int* ui)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XQueryPointer */
-
-#ifndef XQueryTree
-#ifdef MAC_OSX_TK
-VFUNC(Status,XQueryTree,V_XQueryTree,_ANSI_ARGS_((Display* d, Window w1,
- Window* w2, Window* w3, Window** w4,
- unsigned int* ui)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(Status,XQueryTree,V_XQueryTree,_ANSI_ARGS_((Display* d, Window w1,
- Window* w2, Window* w3, Window** w4,
- unsigned int* ui)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(Status,XQueryTree,V_XQueryTree,_ANSI_ARGS_((Display* d, Window w1,
- Window* w2, Window* w3, Window** w4,
- unsigned int* ui)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XQueryTree */
-
-#ifndef XRaiseWindow
-#ifdef MAC_OSX_TK
-VFUNC(void,XRaiseWindow,V_XRaiseWindow,_ANSI_ARGS_((Display* d, Window w)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XRaiseWindow,V_XRaiseWindow,_ANSI_ARGS_((Display* d, Window w)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XRaiseWindow,V_XRaiseWindow,_ANSI_ARGS_((Display* d, Window w)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XRaiseWindow */
-
-#ifndef XRefreshKeyboardMapping
-#ifdef MAC_OSX_TK
-VFUNC(void,XRefreshKeyboardMapping,V_XRefreshKeyboardMapping,_ANSI_ARGS_((
- XMappingEvent* x)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XRefreshKeyboardMapping,V_XRefreshKeyboardMapping,_ANSI_ARGS_((
- XMappingEvent* x)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XRefreshKeyboardMapping,V_XRefreshKeyboardMapping,_ANSI_ARGS_((
- XMappingEvent* x)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XRefreshKeyboardMapping */
-
-#ifndef XResizeWindow
-#ifdef MAC_OSX_TK
-VFUNC(void,XResizeWindow,V_XResizeWindow,_ANSI_ARGS_((Display* d, Window w,
- unsigned int ui1, unsigned int ui2)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XResizeWindow,V_XResizeWindow,_ANSI_ARGS_((Display* d, Window w,
- unsigned int ui1, unsigned int ui2)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XResizeWindow,V_XResizeWindow,_ANSI_ARGS_((Display* d, Window w,
- unsigned int ui1, unsigned int ui2)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XResizeWindow */
-
-#ifndef XRootWindow
-#ifdef MAC_OSX_TK
-VFUNC(Window,XRootWindow,V_XRootWindow,_ANSI_ARGS_((Display* d, int i)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(Window,XRootWindow,V_XRootWindow,_ANSI_ARGS_((Display* d, int i)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(Window,XRootWindow,V_XRootWindow,_ANSI_ARGS_((Display* d, int i)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XRootWindow */
-
-#ifndef XSelectInput
-#ifdef MAC_OSX_TK
-VFUNC(void,XSelectInput,V_XSelectInput,_ANSI_ARGS_((Display* d, Window w,
- long l)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSelectInput,V_XSelectInput,_ANSI_ARGS_((Display* d, Window w,
- long l)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSelectInput,V_XSelectInput,_ANSI_ARGS_((Display* d, Window w,
- long l)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSelectInput */
-
-#ifndef XSendEvent
-#ifdef MAC_OSX_TK
-VFUNC(Status,XSendEvent,V_XSendEvent,_ANSI_ARGS_((Display* d, Window w, Bool b,
- long l, XEvent* x)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(Status,XSendEvent,V_XSendEvent,_ANSI_ARGS_((Display* d, Window w, Bool b,
- long l, XEvent* x)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(Status,XSendEvent,V_XSendEvent,_ANSI_ARGS_((Display* d, Window w, Bool b,
- long l, XEvent* x)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSendEvent */
-
-#ifndef XSetArcMode
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetArcMode,V_XSetArcMode,_ANSI_ARGS_((Display * display, GC gc,
- int arc_mode)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetArcMode,V_XSetArcMode,_ANSI_ARGS_((Display * display, GC gc,
- int arc_mode)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetArcMode,V_XSetArcMode,_ANSI_ARGS_((Display * display, GC gc,
- int arc_mode)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetArcMode */
-
-#ifndef XSetBackground
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetBackground,V_XSetBackground,_ANSI_ARGS_((Display* display, GC gc,
- unsigned long foreground)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetBackground,V_XSetBackground,_ANSI_ARGS_((Display* display, GC gc,
- unsigned long foreground)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetBackground,V_XSetBackground,_ANSI_ARGS_((Display* display, GC gc,
- unsigned long foreground)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetBackground */
-
-#ifndef XSetClipMask
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetClipMask,V_XSetClipMask,_ANSI_ARGS_((Display* display, GC gc,
- Pixmap pixmap)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetClipMask,V_XSetClipMask,_ANSI_ARGS_((Display* display, GC gc,
- Pixmap pixmap)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetClipMask,V_XSetClipMask,_ANSI_ARGS_((Display* display, GC gc,
- Pixmap pixmap)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetClipMask */
-
-#ifndef XSetClipOrigin
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetClipOrigin,V_XSetClipOrigin,_ANSI_ARGS_((Display* display, GC gc,
- int clip_x_origin, int clip_y_origin)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetClipOrigin,V_XSetClipOrigin,_ANSI_ARGS_((Display* display, GC gc,
- int clip_x_origin, int clip_y_origin)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetClipOrigin,V_XSetClipOrigin,_ANSI_ARGS_((Display* display, GC gc,
- int clip_x_origin, int clip_y_origin)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetClipOrigin */
-
-#ifndef XSetCommand
-#ifdef __WIN32__
-VFUNC(void,XSetCommand,V_XSetCommand,_ANSI_ARGS_((Display* d, Window w,
- CONST char** c, int i)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetCommand */
-
-#ifndef XSetDashes
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetDashes,V_XSetDashes,_ANSI_ARGS_((Display* display, GC gc,
- int dash_offset, _Xconst char* dash_list,
- int n)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetDashes,V_XSetDashes,_ANSI_ARGS_((Display* display, GC gc,
- int dash_offset, _Xconst char* dash_list,
- int n)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetDashes,V_XSetDashes,_ANSI_ARGS_((Display* display, GC gc,
- int dash_offset, _Xconst char* dash_list,
- int n)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetDashes */
-
-#ifndef XSetErrorHandler
-#ifdef MAC_OSX_TK
-VFUNC(XErrorHandler,XSetErrorHandler,V_XSetErrorHandler,_ANSI_ARGS_((XErrorHandler x)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(XErrorHandler,XSetErrorHandler,V_XSetErrorHandler,_ANSI_ARGS_((XErrorHandler x)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(XErrorHandler,XSetErrorHandler,V_XSetErrorHandler,_ANSI_ARGS_((XErrorHandler x)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetErrorHandler */
-
-#ifndef XSetFillRule
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetFillRule,V_XSetFillRule,_ANSI_ARGS_((Display * display, GC gc,
- int fill_rule)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetFillRule,V_XSetFillRule,_ANSI_ARGS_((Display * display, GC gc,
- int fill_rule)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetFillRule,V_XSetFillRule,_ANSI_ARGS_((Display * display, GC gc,
- int fill_rule)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetFillRule */
-
-#ifndef XSetFillStyle
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetFillStyle,V_XSetFillStyle,_ANSI_ARGS_((Display * display, GC gc,
- int fill_style)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetFillStyle,V_XSetFillStyle,_ANSI_ARGS_((Display * display, GC gc,
- int fill_style)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetFillStyle,V_XSetFillStyle,_ANSI_ARGS_((Display * display, GC gc,
- int fill_style)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetFillStyle */
-
-#ifndef XSetFont
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetFont,V_XSetFont,_ANSI_ARGS_((Display * display, GC gc,
- Font font)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetFont,V_XSetFont,_ANSI_ARGS_((Display * display, GC gc,
- Font font)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetFont,V_XSetFont,_ANSI_ARGS_((Display * display, GC gc,
- Font font)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetFont */
-
-#ifndef XSetForeground
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetForeground,V_XSetForeground,_ANSI_ARGS_((Display* display, GC gc,
- unsigned long foreground)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetForeground,V_XSetForeground,_ANSI_ARGS_((Display* display, GC gc,
- unsigned long foreground)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetForeground,V_XSetForeground,_ANSI_ARGS_((Display* display, GC gc,
- unsigned long foreground)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetForeground */
-
-#ifndef XSetFunction
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetFunction,V_XSetFunction,_ANSI_ARGS_((Display * display, GC gc,
- int function)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetFunction,V_XSetFunction,_ANSI_ARGS_((Display * display, GC gc,
- int function)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetFunction,V_XSetFunction,_ANSI_ARGS_((Display * display, GC gc,
- int function)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetFunction */
-
-#ifndef XSetIconName
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetIconName,V_XSetIconName,_ANSI_ARGS_((Display* d, Window w,
- _Xconst char* c)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetIconName,V_XSetIconName,_ANSI_ARGS_((Display* d, Window w,
- _Xconst char* c)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetIconName,V_XSetIconName,_ANSI_ARGS_((Display* d, Window w,
- _Xconst char* c)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetIconName */
-
-#ifndef XSetInputFocus
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetInputFocus,V_XSetInputFocus,_ANSI_ARGS_((Display* d, Window w,
- int i, Time t)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetInputFocus,V_XSetInputFocus,_ANSI_ARGS_((Display* d, Window w,
- int i, Time t)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetInputFocus,V_XSetInputFocus,_ANSI_ARGS_((Display* d, Window w,
- int i, Time t)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetInputFocus */
-
-#ifndef XSetLineAttributes
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetLineAttributes,V_XSetLineAttributes,_ANSI_ARGS_((Display * display,
- GC gc, unsigned int line_width,
- int line_style, int cap_style,
- int join_style)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetLineAttributes,V_XSetLineAttributes,_ANSI_ARGS_((Display * display,
- GC gc, unsigned int line_width,
- int line_style, int cap_style,
- int join_style)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetLineAttributes,V_XSetLineAttributes,_ANSI_ARGS_((Display * display,
- GC gc, unsigned int line_width,
- int line_style, int cap_style,
- int join_style)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetLineAttributes */
-
-#ifndef XSetSelectionOwner
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetSelectionOwner,V_XSetSelectionOwner,_ANSI_ARGS_((Display* d, Atom a,
- Window w, Time t)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetSelectionOwner,V_XSetSelectionOwner,_ANSI_ARGS_((Display* d, Atom a,
- Window w, Time t)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetSelectionOwner,V_XSetSelectionOwner,_ANSI_ARGS_((Display* d, Atom a,
- Window w, Time t)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetSelectionOwner */
-
-#ifndef XSetStipple
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetStipple,V_XSetStipple,_ANSI_ARGS_((Display * display, GC gc,
- Pixmap stipple)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetStipple,V_XSetStipple,_ANSI_ARGS_((Display * display, GC gc,
- Pixmap stipple)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetStipple,V_XSetStipple,_ANSI_ARGS_((Display * display, GC gc,
- Pixmap stipple)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetStipple */
-
-#ifndef XSetTSOrigin
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetTSOrigin,V_XSetTSOrigin,_ANSI_ARGS_((Display* display, GC gc,
- int ts_x_origin, int ts_y_origin)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetTSOrigin,V_XSetTSOrigin,_ANSI_ARGS_((Display* display, GC gc,
- int ts_x_origin, int ts_y_origin)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetTSOrigin,V_XSetTSOrigin,_ANSI_ARGS_((Display* display, GC gc,
- int ts_x_origin, int ts_y_origin)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetTSOrigin */
-
-#ifndef XSetWMClientMachine
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetWMClientMachine,V_XSetWMClientMachine,_ANSI_ARGS_((Display* display,
- Window w, XTextProperty* text_prop)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetWMClientMachine,V_XSetWMClientMachine,_ANSI_ARGS_((Display* display,
- Window w, XTextProperty* text_prop)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetWMClientMachine,V_XSetWMClientMachine,_ANSI_ARGS_((Display* display,
- Window w, XTextProperty* text_prop)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetWMClientMachine */
-
-#ifndef XSetWindowBackground
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetWindowBackground,V_XSetWindowBackground,_ANSI_ARGS_((Display* d,
- Window w, unsigned long ul)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetWindowBackground,V_XSetWindowBackground,_ANSI_ARGS_((Display* d,
- Window w, unsigned long ul)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetWindowBackground,V_XSetWindowBackground,_ANSI_ARGS_((Display* d,
- Window w, unsigned long ul)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetWindowBackground */
-
-#ifndef XSetWindowBackgroundPixmap
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetWindowBackgroundPixmap,V_XSetWindowBackgroundPixmap,_ANSI_ARGS_((Display* d,
- Window w, Pixmap p)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetWindowBackgroundPixmap,V_XSetWindowBackgroundPixmap,_ANSI_ARGS_((Display* d,
- Window w, Pixmap p)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetWindowBackgroundPixmap,V_XSetWindowBackgroundPixmap,_ANSI_ARGS_((Display* d,
- Window w, Pixmap p)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetWindowBackgroundPixmap */
-
-#ifndef XSetWindowBorder
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetWindowBorder,V_XSetWindowBorder,_ANSI_ARGS_((Display* d, Window w,
- unsigned long ul)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetWindowBorder,V_XSetWindowBorder,_ANSI_ARGS_((Display* d, Window w,
- unsigned long ul)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetWindowBorder,V_XSetWindowBorder,_ANSI_ARGS_((Display* d, Window w,
- unsigned long ul)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetWindowBorder */
-
-#ifndef XSetWindowBorderPixmap
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetWindowBorderPixmap,V_XSetWindowBorderPixmap,_ANSI_ARGS_((Display* d,
- Window w, Pixmap p)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetWindowBorderPixmap,V_XSetWindowBorderPixmap,_ANSI_ARGS_((Display* d,
- Window w, Pixmap p)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetWindowBorderPixmap,V_XSetWindowBorderPixmap,_ANSI_ARGS_((Display* d,
- Window w, Pixmap p)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetWindowBorderPixmap */
-
-#ifndef XSetWindowBorderWidth
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetWindowBorderWidth,V_XSetWindowBorderWidth,_ANSI_ARGS_((Display* d,
- Window w, unsigned int ui)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetWindowBorderWidth,V_XSetWindowBorderWidth,_ANSI_ARGS_((Display* d,
- Window w, unsigned int ui)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetWindowBorderWidth,V_XSetWindowBorderWidth,_ANSI_ARGS_((Display* d,
- Window w, unsigned int ui)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetWindowBorderWidth */
-
-#ifndef XSetWindowColormap
-#ifdef MAC_OSX_TK
-VFUNC(void,XSetWindowColormap,V_XSetWindowColormap,_ANSI_ARGS_((Display* d, Window w,
- Colormap c)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XSetWindowColormap,V_XSetWindowColormap,_ANSI_ARGS_((Display* d, Window w,
- Colormap c)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XSetWindowColormap,V_XSetWindowColormap,_ANSI_ARGS_((Display* d, Window w,
- Colormap c)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XSetWindowColormap */
-
-#ifndef XStringListToTextProperty
-#ifdef MAC_OSX_TK
-VFUNC(Status,XStringListToTextProperty,V_XStringListToTextProperty,_ANSI_ARGS_((char** list,
- int count, XTextProperty* text_prop_return)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(Status,XStringListToTextProperty,V_XStringListToTextProperty,_ANSI_ARGS_((char** list,
- int count, XTextProperty* text_prop_return)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(Status,XStringListToTextProperty,V_XStringListToTextProperty,_ANSI_ARGS_((char** list,
- int count, XTextProperty* text_prop_return)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XStringListToTextProperty */
-
-#ifndef XStringToKeysym
-#ifdef MAC_OSX_TK
-VFUNC(KeySym,XStringToKeysym,V_XStringToKeysym,_ANSI_ARGS_((_Xconst char* c)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(KeySym,XStringToKeysym,V_XStringToKeysym,_ANSI_ARGS_((_Xconst char* c)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(KeySym,XStringToKeysym,V_XStringToKeysym,_ANSI_ARGS_((_Xconst char* c)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XStringToKeysym */
-
-#ifndef XTranslateCoordinates
-#ifdef __WIN32__
-VFUNC(Bool,XTranslateCoordinates,V_XTranslateCoordinates,_ANSI_ARGS_((Display* d,
- Window w1, Window w2, int i1, int i2,
- int* i3, int* i4, Window* w3)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XTranslateCoordinates */
-
-#ifndef XUngrabKeyboard
-#ifdef MAC_OSX_TK
-VFUNC(void,XUngrabKeyboard,V_XUngrabKeyboard,_ANSI_ARGS_((Display* d, Time t)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XUngrabKeyboard,V_XUngrabKeyboard,_ANSI_ARGS_((Display* d, Time t)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XUngrabKeyboard,V_XUngrabKeyboard,_ANSI_ARGS_((Display* d, Time t)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XUngrabKeyboard */
-
-#ifndef XUngrabPointer
-#ifdef MAC_OSX_TK
-VFUNC(void,XUngrabPointer,V_XUngrabPointer,_ANSI_ARGS_((Display* d, Time t)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XUngrabPointer,V_XUngrabPointer,_ANSI_ARGS_((Display* d, Time t)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XUngrabPointer,V_XUngrabPointer,_ANSI_ARGS_((Display* d, Time t)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XUngrabPointer */
-
-#ifndef XUnmapWindow
-#ifdef MAC_OSX_TK
-VFUNC(void,XUnmapWindow,V_XUnmapWindow,_ANSI_ARGS_((Display* d, Window w)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XUnmapWindow,V_XUnmapWindow,_ANSI_ARGS_((Display* d, Window w)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XUnmapWindow,V_XUnmapWindow,_ANSI_ARGS_((Display* d, Window w)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XUnmapWindow */
-
-#ifndef XWarpPointer
-#ifdef MAC_OSX_TK
-VFUNC(void,XWarpPointer,V_XWarpPointer,_ANSI_ARGS_((Display* display,
- Window src_w, Window dest_w, int src_x,
- int src_y, unsigned int src_width,
- unsigned int src_height, int dest_x,
- int dest_y)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,XWarpPointer,V_XWarpPointer,_ANSI_ARGS_((Display* display,
- Window src_w, Window dest_w, int src_x,
- int src_y, unsigned int src_width,
- unsigned int src_height, int dest_x,
- int dest_y)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(void,XWarpPointer,V_XWarpPointer,_ANSI_ARGS_((Display* d, Window s,
- Window dw, int sx, int sy, unsigned int sw,
- unsigned int sh, int dx, int dy)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XWarpPointer */
-
-#ifndef XWindowEvent
-#ifdef __WIN32__
-VFUNC(void,XWindowEvent,V_XWindowEvent,_ANSI_ARGS_((Display* d, Window w,
- long l, XEvent* x)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XWindowEvent */
-
-#ifndef XWithdrawWindow
-#ifdef __WIN32__
-VFUNC(Status,XWithdrawWindow,V_XWithdrawWindow,_ANSI_ARGS_((Display* d, Window w,
- int i)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XWithdrawWindow */
-
-#ifndef XmbLookupString
-#ifdef __WIN32__
-VFUNC(int,XmbLookupString,V_XmbLookupString,_ANSI_ARGS_((XIC xi,
- XKeyPressedEvent* xk, char* c, int i,
- KeySym* k, Status* s)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef XmbLookupString */
-
-#ifndef _XInitImageFuncPtrs
-#ifdef MAC_OSX_TK
-VFUNC(int,_XInitImageFuncPtrs,V__XInitImageFuncPtrs,_ANSI_ARGS_((XImage * image)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(int,_XInitImageFuncPtrs,V__XInitImageFuncPtrs,_ANSI_ARGS_((XImage * image)))
-#endif /* #ifdef MAC_TCL */
-#ifdef __WIN32__
-VFUNC(int,_XInitImageFuncPtrs,V__XInitImageFuncPtrs,_ANSI_ARGS_((XImage * image)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef _XInitImageFuncPtrs */
-
-#endif /* _TKINTXLIBDECLS */
diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls_f.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls_f.h deleted file mode 100644 index cf6fe23a3eb..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls_f.h +++ /dev/null @@ -1,14 +0,0 @@ -#ifndef TKINTXLIBDECLS_VT -#define TKINTXLIBDECLS_VT -typedef struct TkintxlibdeclsVtab -{ - unsigned (*tabSize)(void); -#define VFUNC(type,name,mem,args) type (*mem) args; -#define VVAR(type,name,mem) type (*mem); -#include "tkIntXlibDecls.t" -#undef VFUNC -#undef VVAR -} TkintxlibdeclsVtab; -extern TkintxlibdeclsVtab *TkintxlibdeclsVptr; -extern TkintxlibdeclsVtab *TkintxlibdeclsVGet(void); -#endif /* TKINTXLIBDECLS_VT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkInt_f.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkInt_f.h deleted file mode 100644 index b8da3f6470e..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkInt_f.h +++ /dev/null @@ -1,14 +0,0 @@ -#ifndef TKINT_VT -#define TKINT_VT -typedef struct TkintVtab -{ - unsigned (*tabSize)(void); -#define VFUNC(type,name,mem,args) type (*mem) args; -#define VVAR(type,name,mem) type (*mem); -#include "tkInt.t" -#undef VFUNC -#undef VVAR -} TkintVtab; -extern TkintVtab *TkintVptr; -extern TkintVtab *TkintVGet(void); -#endif /* TKINT_VT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkMenu.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkMenu.h deleted file mode 100644 index 0b341acd87b..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkMenu.h +++ /dev/null @@ -1,588 +0,0 @@ -/* - * tkMenu.h -- - * - * Declarations shared among all of the files that implement menu widgets. - * - * Copyright (c) 1996-1998 by Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkMenu.h,v 1.6.4.1 2003/07/15 13:59:06 vincentdarley Exp $ - */ - -#ifndef _TKMENU -#define _TKMENU - -#ifndef _TK -#include "tk.h" -#endif - -#ifndef _TKINT -#include "tkInt.h" -#endif - -#ifndef _DEFAULT -#include "default.h" -#endif - -#ifdef BUILD_tk -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * Dummy types used by the platform menu code. - */ - -typedef struct TkMenuPlatformData_ *TkMenuPlatformData; -typedef struct TkMenuPlatformEntryData_ *TkMenuPlatformEntryData; - -/* - * Legal values for the "compound" field of TkMenuEntry and TkMenuButton records. - */ - -enum compound { - COMPOUND_BOTTOM, COMPOUND_CENTER, COMPOUND_LEFT, COMPOUND_NONE, - COMPOUND_RIGHT, COMPOUND_TOP -}; - -/* - * One of the following data structures is kept for each entry of each - * menu managed by this file: - */ - -typedef struct TkMenuEntry { - int type; /* Type of menu entry; see below for - * valid types. */ - struct TkMenu *menuPtr; /* Menu with which this entry is associated. */ - Tk_OptionTable optionTable; /* Option table for this menu entry. */ - Tcl_Obj *labelPtr; /* Main text label displayed in entry (NULL - * if no label). */ - int labelLength; /* Number of non-NULL characters in label. */ - int state; /* State of button for display purposes: - * normal, active, or disabled. */ - int underline; /* Value of -underline option: specifies index - * of character to underline (<0 means don't - * underline anything). */ - Tcl_Obj *underlinePtr; /* Index of character to underline. */ - Tcl_Obj *bitmapPtr; /* Bitmap to display in menu entry, or None. - * If not None then label is ignored. */ - Tcl_Obj *imagePtr; /* Name of image to display, or - * NULL. If non-NULL, bitmap, text, and - * textVarName are ignored. */ - Tk_Image image; /* Image to display in menu entry, or NULL if - * none. */ - Tcl_Obj *selectImagePtr; /* Name of image to display when selected, or - * NULL. */ - Tk_Image selectImage; /* Image to display in entry when selected, - * or NULL if none. Ignored if image is - * NULL. */ - Tcl_Obj *accelPtr; /* Accelerator string displayed at right - * of menu entry. NULL means no such - * accelerator. Malloc'ed. */ - int accelLength; /* Number of non-NULL characters in - * accelerator. */ - int indicatorOn; /* True means draw indicator, false means - * don't draw it. This field is ignored unless - * the entry is a radio or check button. */ - /* - * Display attributes - */ - - Tcl_Obj *borderPtr; /* Structure used to draw background for - * entry. NULL means use overall border - * for menu. */ - Tcl_Obj *fgPtr; /* Foreground color to use for entry. NULL - * means use foreground color from menu. */ - Tcl_Obj *activeBorderPtr; /* Used to draw background and border when - * element is active. NULL means use - * activeBorder from menu. */ - Tcl_Obj *activeFgPtr; /* Foreground color to use when entry is - * active. NULL means use active foreground - * from menu. */ - Tcl_Obj *indicatorFgPtr; /* Color for indicators in radio and check - * button entries. NULL means use indicatorFg - * GC from menu. */ - Tcl_Obj *fontPtr; /* Text font for menu entries. NULL means - * use overall font for menu. */ - int columnBreak; /* If this is 0, this item appears below - * the item in front of it. If this is - * 1, this item starts a new column. This - * field is always 0 for tearoff and separator - * entries. */ - int hideMargin; /* If this is 0, then the item has enough - * margin to accomodate a standard check mark - * and a default right margin. If this is 1, - * then the item has no such margins. and - * checkbuttons and radiobuttons with this set - * will have a rectangle drawn in the indicator - * around the item if the item is checked. This - * is useful for palette menus. This field is - * ignored for separators and tearoffs. */ - int indicatorSpace; /* The width of the indicator space for this - * entry. */ - int labelWidth; /* Number of pixels to allow for displaying - * labels in menu entries. */ - int compound; /* Value of -compound option; specifies whether - * the entry should show both an image and - * text, and, if so, how. */ - - /* - * Information used to implement this entry's action: - */ - - Tcl_Obj *commandPtr; /* Command to invoke when entry is invoked. - * Malloc'ed. */ - Tcl_Obj *namePtr; /* Name of variable (for check buttons and - * radio buttons) or menu (for cascade - * entries). Malloc'ed.*/ - Tcl_Obj *onValuePtr; /* Value to store in variable when selected - * (only for radio and check buttons). - * Malloc'ed. */ - Tcl_Obj *offValuePtr; /* Value to store in variable when not - * selected (only for check buttons). - * Malloc'ed. */ - - /* - * Information used for drawing this menu entry. - */ - - int width; /* Number of pixels occupied by entry in - * horizontal dimension. Not used except - * in menubars. The width of norma menus - * is dependent on the rest of the menu. */ - int x; /* X-coordinate of leftmost pixel in entry */ - int height; /* Number of pixels occupied by entry in - * vertical dimension, including raised - * border drawn around entry when active. */ - int y; /* Y-coordinate of topmost pixel in entry. */ - GC textGC; /* GC for drawing text in entry. NULL means - * use overall textGC for menu. */ - GC activeGC; /* GC for drawing text in entry when active. - * NULL means use overall activeGC for - * menu. */ - GC disabledGC; /* Used to produce disabled effect for entry. - * NULL means use overall disabledGC from - * menu structure. See comments for - * disabledFg in menu structure for more - * information. */ - GC indicatorGC; /* For drawing indicators. None means use - * GC from menu. */ - - /* - * Miscellaneous fields. - */ - - int entryFlags; /* Various flags. See below for - definitions. */ - int index; /* Need to know which index we are. This - * is zero-based. This is the top-left entry - * of the menu. */ - - /* - * Bookeeping for master menus and cascade menus. - */ - - struct TkMenuReferences *childMenuRefPtr; - /* A pointer to the hash table entry for - * the child menu. Stored here when the menu - * entry is configured so that a hash lookup - * is not necessary later.*/ - struct TkMenuEntry *nextCascadePtr; - /* The next cascade entry that is a parent of - * this entry's child cascade menu. NULL - * end of list, this is not a cascade entry, - * or the menu that this entry point to - * does not yet exist. */ - TkMenuPlatformEntryData platformEntryData; - /* The data for the specific type of menu. - * Depends on platform and menu type what - * kind of options are in this structure. - */ -} TkMenuEntry; - -/* - * Flag values defined for menu entries: - * - * ENTRY_SELECTED: Non-zero means this is a radio or check - * button and that it should be drawn in - * the "selected" state. - * ENTRY_NEEDS_REDISPLAY: Non-zero means the entry should be redisplayed. - * ENTRY_LAST_COLUMN: Used by the drawing code. If the entry is in - * the last column, the space to its right needs - * to be filled. - * ENTRY_PLATFORM_FLAG1 - 4 These flags are reserved for use by the - * platform-dependent implementation of menus - * and should not be used by anything else. - */ - -#define ENTRY_SELECTED 1 -#define ENTRY_NEEDS_REDISPLAY 2 -#define ENTRY_LAST_COLUMN 4 -#define ENTRY_PLATFORM_FLAG1 (1 << 30) -#define ENTRY_PLATFORM_FLAG2 (1 << 29) -#define ENTRY_PLATFORM_FLAG3 (1 << 28) -#define ENTRY_PLATFORM_FLAG4 (1 << 27) - -/* - * Types defined for MenuEntries: - */ - -#define CASCADE_ENTRY 0 -#define CHECK_BUTTON_ENTRY 1 -#define COMMAND_ENTRY 2 -#define RADIO_BUTTON_ENTRY 3 -#define SEPARATOR_ENTRY 4 -#define TEAROFF_ENTRY 5 - -/* - * Menu states - */ - -EXTERN char *tkMenuStateStrings[]; - -#define ENTRY_ACTIVE 0 -#define ENTRY_NORMAL 1 -#define ENTRY_DISABLED 2 - -/* - * A data structure of the following type is kept for each - * menu widget: - */ - -typedef struct TkMenu { - Tk_Window tkwin; /* Window that embodies the pane. NULL - * means that the window has been destroyed - * but the data structures haven't yet been - * cleaned up.*/ - Display *display; /* Display containing widget. Needed, among - * other things, so that resources can be - * freed up even after tkwin has gone away. */ - Tcl_Interp *interp; /* Interpreter associated with menu. */ - Tcl_Command widgetCmd; /* Token for menu's widget command. */ - TkMenuEntry **entries; /* Array of pointers to all the entries - * in the menu. NULL means no entries. */ - int numEntries; /* Number of elements in entries. */ - int active; /* Index of active entry. -1 means - * nothing active. */ - int menuType; /* MASTER_MENU, TEAROFF_MENU, or MENUBAR. - * See below for definitions. */ - Tcl_Obj *menuTypePtr; /* Used to control whether created tkwin - * is a toplevel or not. "normal", "menubar", - * or "toplevel" */ - - /* - * Information used when displaying widget: - */ - - Tcl_Obj *borderPtr; /* Structure used to draw 3-D - * border and background for menu. */ - Tcl_Obj *borderWidthPtr; /* Width of border around whole menu. */ - Tcl_Obj *activeBorderPtr; /* Used to draw background and border for - * active element (if any). */ - Tcl_Obj *activeBorderWidthPtr; - /* Width of border around active element. */ - Tcl_Obj *reliefPtr; /* 3-d effect: TK_RELIEF_RAISED, etc. */ - Tcl_Obj *fontPtr; /* Text font for menu entries. */ - Tcl_Obj *fgPtr; /* Foreground color for entries. */ - Tcl_Obj *disabledFgPtr; /* Foreground color when disabled. NULL - * means use normalFg with a 50% stipple - * instead. */ - Tcl_Obj *activeFgPtr; /* Foreground color for active entry. */ - Tcl_Obj *indicatorFgPtr; /* Color for indicators in radio and check - * button entries. */ - Pixmap gray; /* Bitmap for drawing disabled entries in - * a stippled fashion. None means not - * allocated yet. */ - GC textGC; /* GC for drawing text and other features - * of menu entries. */ - GC disabledGC; /* Used to produce disabled effect. If - * disabledFg isn't NULL, this GC is used to - * draw text and icons for disabled entries. - * Otherwise text and icons are drawn with - * normalGC and this GC is used to stipple - * background across them. */ - GC activeGC; /* GC for drawing active entry. */ - GC indicatorGC; /* For drawing indicators. */ - GC disabledImageGC; /* Used for drawing disabled images. They - * have to be stippled. This is created - * when the image is about to be drawn the - * first time. */ - - /* - * Information about geometry of menu. - */ - - int totalWidth; /* Width of entire menu */ - int totalHeight; /* Height of entire menu */ - - /* - * Miscellaneous information: - */ - - int tearoff; /* 1 means this menu can be torn off. On some - * platforms, the user can drag an outline - * of the menu by just dragging outside of - * the menu, and the tearoff is created where - * the mouse is released. On others, an - * indicator (such as a dashed stripe) is - * drawn, and when the menu is selected, the - * tearoff is created. */ - Tcl_Obj *titlePtr; /* The title to use when this menu is torn - * off. If this is NULL, a default scheme - * will be used to generate a title for - * tearoff. */ - Tcl_Obj *tearoffCommandPtr; /* If non-NULL, points to a command to - * run whenever the menu is torn-off. */ - Tcl_Obj *takeFocusPtr; /* Value of -takefocus option; not used in - * the C code, but used by keyboard traversal - * scripts. Malloc'ed, but may be NULL. */ - Tcl_Obj *cursorPtr; /* Current cursor for window, or None. */ - Tcl_Obj *postCommandPtr; /* Used to detect cycles in cascade hierarchy - * trees when preprocessing postcommands - * on some platforms. See PostMenu for - * more details. */ - int postCommandGeneration; /* Need to do pre-invocation post command - * traversal */ - int menuFlags; /* Flags for use by X; see below for - definition */ - TkMenuEntry *postedCascade; /* Points to menu entry for cascaded submenu - * that is currently posted or NULL if no - * submenu posted. */ - struct TkMenu *nextInstancePtr; - /* The next instance of this menu in the - * chain. */ - struct TkMenu *masterMenuPtr; - /* A pointer to the original menu for this - * clone chain. Points back to this structure - * if this menu is a master menu. */ - struct TkMenuOptionTables *optionTablesPtr; - /* A pointer to the collection of option tables - * that work with menus and menu entries. */ - Tk_Window parentTopLevelPtr;/* If this menu is a menubar, this is the - * toplevel that owns the menu. Only applicable - * for menubar clones. - */ - struct TkMenuReferences *menuRefPtr; - /* Each menu is hashed into a table with the - * name of the menu's window as the key. - * The information in this hash table includes - * a pointer to the menu (so that cascades - * can find this menu), a pointer to the - * list of toplevel widgets that have this - * menu as its menubar, and a list of menu - * entries that have this menu specified - * as a cascade. */ - TkMenuPlatformData platformData; - /* The data for the specific type of menu. - * Depends on platform and menu type what - * kind of options are in this structure. - */ - Tk_OptionSpec *extensionPtr; - /* Needed by the configuration package for - * this widget to be extended. */ - Tk_SavedOptions *errorStructPtr; - /* We actually have to allocate these because - * multiple menus get changed during one - * ConfigureMenu call. */ -} TkMenu; - -/* - * When the toplevel configure -menu command is executed, the menu may not - * exist yet. We need to keep a linked list of windows that reference - * a particular menu. - */ - -typedef struct TkMenuTopLevelList { - struct TkMenuTopLevelList *nextPtr; - /* The next window in the list */ - Tk_Window tkwin; /* The window that has this menu as its - * menubar. */ -} TkMenuTopLevelList; - -/* - * The following structure is used to keep track of things which - * reference a menu. It is created when: - * - a menu is created. - * - a cascade entry is added to a menu with a non-null name - * - the "-menu" configuration option is used on a toplevel widget - * with a non-null parameter. - * - * One of these three fields must be non-NULL, but any of the fields may - * be NULL. This structure makes it easy to determine whether or not - * anything like recalculating platform data or geometry is necessary - * when one of the three actions above is performed. - */ - -typedef struct TkMenuReferences { - struct TkMenu *menuPtr; /* The menu data structure. This is NULL - * if the menu does not exist. */ - TkMenuTopLevelList *topLevelListPtr; - /* First in the list of all toplevels that - * have this menu as its menubar. NULL if no - * toplevel widgets have this menu as its - * menubar. */ - TkMenuEntry *parentEntryPtr;/* First in the list of all cascade menu - * entries that have this menu as their child. - * NULL means no cascade entries. */ - Tcl_HashEntry *hashEntryPtr;/* This is needed because the pathname of the - * window (which is what we hash on) may not - * be around when we are deleting. - */ -} TkMenuReferences; - -/* - * This structure contains all of the option tables that are needed - * by menus. - */ - -typedef struct TkMenuOptionTables { - Tk_OptionTable menuOptionTable; /* The option table for menus. */ - Tk_OptionTable entryOptionTables[6];/* The tables for menu entries. */ -} TkMenuOptionTables; - -/* - * Flag bits for menus: - * - * REDRAW_PENDING: Non-zero means a DoWhenIdle handler - * has already been queued to redraw - * this window. - * RESIZE_PENDING: Non-zero means a call to ComputeMenuGeometry - * has already been scheduled. - * MENU_DELETION_PENDING Non-zero means that we are currently destroying - * this menu's internal structures. This is useful - * when we are in the middle of cleaning - * this master menu's chain of menus up when - * TkDestroyMenu was called again on this - * menu (via a destroy binding or somesuch). - * MENU_WIN_DESTRUCTION_PENDING Non-zero means we are in the middle of - * destroying this menu's Tk_Window. - * MENU_PLATFORM_FLAG1... Reserved for use by the platform-specific menu - * code. - */ - -#define REDRAW_PENDING 1 -#define RESIZE_PENDING 2 -#define MENU_DELETION_PENDING 4 -#define MENU_WIN_DESTRUCTION_PENDING 8 -#define MENU_PLATFORM_FLAG1 (1 << 30) -#define MENU_PLATFORM_FLAG2 (1 << 29) -#define MENU_PLATFORM_FLAG3 (1 << 28) - -/* - * Each menu created by the user is a MASTER_MENU. When a menu is torn off, - * a TEAROFF_MENU instance is created. When a menu is assigned to a toplevel - * as a menu bar, a MENUBAR instance is created. All instances have the same - * configuration information. If the master instance is deleted, all instances - * are deleted. If one of the other instances is deleted, only that instance - * is deleted. - */ - -#define UNKNOWN_TYPE -1 -#define MASTER_MENU 0 -#define TEAROFF_MENU 1 -#define MENUBAR 2 - -/* - * Various geometry definitions: - */ - -#define CASCADE_ARROW_HEIGHT 10 -#define CASCADE_ARROW_WIDTH 8 -#define DECORATION_BORDER_WIDTH 2 - -/* - * Menu-related procedures that are shared among Tk modules but not exported - * to the outside world: - */ - -EXTERN int TkActivateMenuEntry _ANSI_ARGS_((TkMenu *menuPtr, - int index)); -EXTERN void TkBindMenu _ANSI_ARGS_(( - Tk_Window tkwin, TkMenu *menuPtr)); -EXTERN TkMenuReferences * - TkCreateMenuReferences _ANSI_ARGS_((Tcl_Interp *interp, - char *name)); -EXTERN void TkDestroyMenu _ANSI_ARGS_((TkMenu *menuPtr)); -EXTERN void TkEventuallyRecomputeMenu _ANSI_ARGS_(( - TkMenu *menuPtr)); -EXTERN void TkEventuallyRedrawMenu _ANSI_ARGS_(( - TkMenu *menuPtr, TkMenuEntry *mePtr)); -EXTERN TkMenuReferences * - TkFindMenuReferences _ANSI_ARGS_((Tcl_Interp *interp, - char *name)); -EXTERN TkMenuReferences * - TkFindMenuReferencesObj _ANSI_ARGS_(( - Tcl_Interp *interp, Tcl_Obj *namePtr)); -EXTERN int TkFreeMenuReferences _ANSI_ARGS_(( - TkMenuReferences *menuRefPtr)); -EXTERN Tcl_HashTable * TkGetMenuHashTable _ANSI_ARGS_((Tcl_Interp *interp)); -EXTERN int TkGetMenuIndex _ANSI_ARGS_((Tcl_Interp *interp, - TkMenu *menuPtr, Tcl_Obj *objPtr, int lastOK, - int *indexPtr)); -EXTERN void TkMenuInitializeDrawingFields _ANSI_ARGS_(( - TkMenu *menuPtr)); -EXTERN void TkMenuInitializeEntryDrawingFields _ANSI_ARGS_(( - TkMenuEntry *mePtr)); -EXTERN int TkInvokeMenu _ANSI_ARGS_((Tcl_Interp *interp, - TkMenu *menuPtr, int index)); -EXTERN void TkMenuConfigureDrawOptions _ANSI_ARGS_(( - TkMenu *menuPtr)); -EXTERN int TkMenuConfigureEntryDrawOptions _ANSI_ARGS_(( - TkMenuEntry *mePtr, int index)); -EXTERN void TkMenuFreeDrawOptions _ANSI_ARGS_((TkMenu *menuPtr)); -EXTERN void TkMenuEntryFreeDrawOptions _ANSI_ARGS_(( - TkMenuEntry *mePtr)); -EXTERN void TkMenuEventProc _ANSI_ARGS_((ClientData clientData, - XEvent *eventPtr)); -EXTERN void TkMenuImageProc _ANSI_ARGS_(( - ClientData clientData, int x, int y, int width, - int height, int imgWidth, int imgHeight)); -EXTERN void TkMenuInit _ANSI_ARGS_((void)); -EXTERN void TkMenuSelectImageProc _ANSI_ARGS_ - ((ClientData clientData, int x, int y, - int width, int height, int imgWidth, - int imgHeight)); -EXTERN Tcl_Obj * TkNewMenuName _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *parentNamePtr, TkMenu *menuPtr)); -EXTERN int TkPostCommand _ANSI_ARGS_((TkMenu *menuPtr)); -EXTERN int TkPostSubmenu _ANSI_ARGS_((Tcl_Interp *interp, - TkMenu *menuPtr, TkMenuEntry *mePtr)); -EXTERN int TkPostTearoffMenu _ANSI_ARGS_((Tcl_Interp *interp, - TkMenu *menuPtr, int x, int y)); -EXTERN int TkPreprocessMenu _ANSI_ARGS_((TkMenu *menuPtr)); -EXTERN void TkRecomputeMenu _ANSI_ARGS_((TkMenu *menuPtr)); - -/* - * These routines are the platform-dependent routines called by the - * common code. - */ - -EXTERN void TkpComputeMenubarGeometry _ANSI_ARGS_(( - TkMenu *menuPtr)); -EXTERN void TkpComputeStandardMenuGeometry _ANSI_ARGS_ - ((TkMenu *menuPtr)); -EXTERN int TkpConfigureMenuEntry - _ANSI_ARGS_((TkMenuEntry *mePtr)); -EXTERN void TkpDestroyMenu _ANSI_ARGS_((TkMenu *menuPtr)); -EXTERN void TkpDestroyMenuEntry - _ANSI_ARGS_((TkMenuEntry *mEntryPtr)); -EXTERN void TkpDrawMenuEntry _ANSI_ARGS_((TkMenuEntry *mePtr, - Drawable d, Tk_Font tkfont, - CONST Tk_FontMetrics *menuMetricsPtr, int x, - int y, int width, int height, int strictMotif, - int drawArrow)); -EXTERN void TkpMenuInit _ANSI_ARGS_((void)); -EXTERN int TkpMenuNewEntry _ANSI_ARGS_((TkMenuEntry *mePtr)); -EXTERN int TkpNewMenu _ANSI_ARGS_((TkMenu *menuPtr)); -EXTERN int TkpPostMenu _ANSI_ARGS_((Tcl_Interp *interp, - TkMenu *menuPtr, int x, int y)); -EXTERN void TkpSetWindowMenuBar _ANSI_ARGS_((Tk_Window tkwin, - TkMenu *menuPtr)); - -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKMENU */ - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkMenubutton.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkMenubutton.h deleted file mode 100644 index 30ae1beba58..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkMenubutton.h +++ /dev/null @@ -1,240 +0,0 @@ -/* - * tkMenubutton.h -- - * - * Declarations of types and functions used to implement - * the menubutton widget. - * - * Copyright (c) 1996-1997 by Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkMenubutton.h,v 1.8.4.1 2003/11/17 23:29:36 hobbs Exp $ - */ - -#ifndef _TKMENUBUTTON -#define _TKMENUBUTTON - -#ifndef _TKINT -#include "tkInt.h" -#endif -#include "tkVMacro.h" - -#ifndef _TKMENU -#include "tkMenu.h" -#endif - -#ifdef BUILD_tk -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * Legal values for the "orient" field of TkMenubutton records. - */ - -enum direction { - DIRECTION_ABOVE, DIRECTION_BELOW, DIRECTION_FLUSH, - DIRECTION_LEFT, DIRECTION_RIGHT -}; - -/* - * Legal values for the "state" field of TkMenubutton records. - */ - -enum state { - STATE_ACTIVE, STATE_DISABLED, STATE_NORMAL -}; - -/* - * A data structure of the following type is kept for each - * widget managed by this file: - */ - -typedef struct { - Tk_Window tkwin; /* Window that embodies the widget. NULL - * means that the window has been destroyed - * but the data structures haven't yet been - * cleaned up.*/ - Display *display; /* Display containing widget. Needed, among - * other things, so that resources can bee - * freed up even after tkwin has gone away. */ - Tcl_Interp *interp; /* Interpreter associated with menubutton. */ - Tcl_Command widgetCmd; /* Token for menubutton's widget command. */ - Tk_OptionTable optionTable; /* Table that defines configuration options - * available for this widget. */ - Tk_Window menuName; /* Name of menu associated with widget. - * Malloc-ed. */ - - /* - * Information about what's displayed in the menu button: - */ - - char *text; /* Text to display in button (malloc'ed) - * or NULL. */ - int underline; /* Index of character to underline. */ - Tcl_Obj *textVarName; /* Name of variable (malloc'ed) or NULL. - * If non-NULL, button displays the contents - * of this variable. */ - Pixmap bitmap; /* Bitmap to display or None. If not None - * then text and textVar and underline - * are ignored. */ - char *imageString; /* Name of image to display (malloc'ed), or - * NULL. If non-NULL, bitmap, text, and - * textVarName are ignored. */ - Tk_Image image; /* Image to display in window, or NULL if - * none. */ - - /* - * Information used when displaying widget: - */ - - enum state state; /* State of button for display purposes: - * normal, active, or disabled. */ - Tk_3DBorder normalBorder; /* Structure used to draw 3-D - * border and background when window - * isn't active. NULL means no such - * border exists. */ - Tk_3DBorder activeBorder; /* Structure used to draw 3-D - * border and background when window - * is active. NULL means no such - * border exists. */ - int borderWidth; /* Width of border. */ - int relief; /* 3-d effect: TK_RELIEF_RAISED, etc. */ - int highlightWidth; /* Width in pixels of highlight to draw - * around widget when it has the focus. - * <= 0 means don't draw a highlight. */ - XColor *highlightBgColorPtr; - /* Color for drawing traversal highlight - * area when highlight is off. */ - XColor *highlightColorPtr; /* Color for drawing traversal highlight. */ - int inset; /* Total width of all borders, including - * traversal highlight and 3-D border. - * Indicates how much interior stuff must - * be offset from outside edges to leave - * room for borders. */ - Tk_Font tkfont; /* Information about text font, or NULL. */ - XColor *normalFg; /* Foreground color in normal mode. */ - XColor *activeFg; /* Foreground color in active mode. NULL - * means use normalFg instead. */ - XColor *disabledFg; /* Foreground color when disabled. NULL - * means use normalFg with a 50% stipple - * instead. */ - GC normalTextGC; /* GC for drawing text in normal mode. */ - GC activeTextGC; /* GC for drawing text in active mode (NULL - * means use normalTextGC). */ - Pixmap gray; /* Pixmap for displaying disabled text/icon if - * disabledFg is NULL. */ - GC disabledGC; /* Used to produce disabled effect for text. */ - GC stippleGC; /* Used to produce disabled stipple effect - * for images when disabled. */ - int leftBearing; /* Distance from text origin to leftmost drawn - * pixel (positive means to right). */ - int rightBearing; /* Amount text sticks right from its origin. */ - Tcl_Obj *widthString; /* Value of -width option. Malloc'ed. */ - Tcl_Obj *heightString; /* Value of -height option. Malloc'ed. */ - int width, height; /* If > 0, these specify dimensions to request - * for window, in characters for text and in - * pixels for bitmaps. In this case the actual - * size of the text string or bitmap is - * ignored in computing desired window size. */ - int wrapLength; /* Line length (in pixels) at which to wrap - * onto next line. <= 0 means don't wrap - * except at newlines. */ - int padX, padY; /* Extra space around text or bitmap (pixels - * on each side). */ - Tk_Anchor anchor; /* Where text/bitmap should be displayed - * inside window region. */ - Tk_Justify justify; /* Justification to use for multi-line text. */ - int textWidth; /* Width needed to display text as requested, - * in pixels. */ - int textHeight; /* Height needed to display text as requested, - * in pixels. */ - Tk_TextLayout textLayout; /* Saved text layout information. */ - int indicatorOn; /* Non-zero means display indicator; 0 means - * don't display. */ - int indicatorHeight; /* Height of indicator in pixels. This same - * amount of extra space is also left on each - * side of the indicator. 0 if no indicator. */ - int indicatorWidth; /* Width of indicator in pixels, including - * indicatorHeight in padding on each side. - * 0 if no indicator. */ - - /* - * Miscellaneous information: - */ - - int compound; /* Value of -compound option; specifies whether - * the menubutton should show both an image and - * text, and, if so, how. */ - - enum direction direction; /* Direction for where to pop the menu. - * Valid directions are "above", "below", - * "left", "right", and "flush". "flush" - * means that the upper left corner of the - * menubutton is where the menu pops up. - * "above" and "below" will attempt to pop - * the menu compleletly above or below - * the menu respectively. - * "left" and "right" will pop the menu - * left or right, and the active item - * will be next to the button. */ - Tk_Cursor cursor; /* Current cursor for window, or None. */ - char *takeFocus; /* Value of -takefocus option; not used in - * the C code, but used by keyboard traversal - * scripts. Malloc'ed, but may be NULL. */ - int flags; /* Various flags; see below for - * definitions. */ -} TkMenuButton; - -/* - * Flag bits for buttons: - * - * REDRAW_PENDING: Non-zero means a DoWhenIdle handler - * has already been queued to redraw - * this window. - * POSTED: Non-zero means that the menu associated - * with this button has been posted (typically - * because of an active button press). - * GOT_FOCUS: Non-zero means this button currently - * has the input focus. - */ - -#define REDRAW_PENDING 1 -#define POSTED 2 -#define GOT_FOCUS 4 - -/* - * The following constants define the dimensions of the cascade indicator, - * which is displayed if the "-indicatoron" option is true. The units for - * these options are 1/10 millimeters. - */ - -#define INDICATOR_WIDTH 40 -#define INDICATOR_HEIGHT 17 - -/* - * Declaration of variables shared between the files in the button module. - */ - -extern Tk_ClassProcs tkpMenubuttonClass; - -/* - * Declaration of procedures used in the implementation of the button - * widget. - */ - -EXTERN void TkpComputeMenuButtonGeometry _ANSI_ARGS_(( - TkMenuButton *mbPtr)); -EXTERN TkMenuButton * TkpCreateMenuButton _ANSI_ARGS_((Tk_Window tkwin)); -EXTERN void TkpDisplayMenuButton _ANSI_ARGS_(( - ClientData clientData)); -EXTERN void TkpDestroyMenuButton _ANSI_ARGS_(( - TkMenuButton *mbPtr)); -EXTERN void TkMenuButtonWorldChanged _ANSI_ARGS_(( - ClientData instanceData)); - -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKMENUBUTTON */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkOption.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkOption.h deleted file mode 100644 index db21505cf68..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkOption.h +++ /dev/null @@ -1,17 +0,0 @@ -#ifndef _TKOPTION -#define _TKOPTION -EXTERN void Tk_AddOption _ANSI_ARGS_((Tk_Window tkwin, - CONST char * name, CONST char * value, - int priority)); -EXTERN Tk_Uid Tk_GetOption _ANSI_ARGS_((Tk_Window tkwin, CONST char *name, - CONST char *className)); -EXTERN int Tk_OptionObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *args)); -#ifndef _TKINT -struct TkWindow; -#endif -EXTERN void TkOptionClassChanged _ANSI_ARGS_((struct TkWindow *winPtr)); -EXTERN void TkOptionDeadWindow _ANSI_ARGS_((struct TkWindow *winPtr)); -#endif /* _TKOPTION */ - - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkOption.m b/Master/tlpkg/tlperl/lib/Tk/pTk/tkOption.m deleted file mode 100644 index 9486a5da573..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkOption.m +++ /dev/null @@ -1,26 +0,0 @@ -#ifndef _TKOPTION_VM -#define _TKOPTION_VM -#include "tkOption_f.h" -#ifndef NO_VTABLES -#ifndef TkOptionClassChanged -# define TkOptionClassChanged (*TkoptionVptr->V_TkOptionClassChanged) -#endif - -#ifndef TkOptionDeadWindow -# define TkOptionDeadWindow (*TkoptionVptr->V_TkOptionDeadWindow) -#endif - -#ifndef Tk_AddOption -# define Tk_AddOption (*TkoptionVptr->V_Tk_AddOption) -#endif - -#ifndef Tk_GetOption -# define Tk_GetOption (*TkoptionVptr->V_Tk_GetOption) -#endif - -#ifndef Tk_OptionObjCmd -# define Tk_OptionObjCmd (*TkoptionVptr->V_Tk_OptionObjCmd) -#endif - -#endif /* NO_VTABLES */ -#endif /* _TKOPTION_VM */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkOption.t b/Master/tlpkg/tlperl/lib/Tk/pTk/tkOption.t deleted file mode 100644 index c782fae5cf4..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkOption.t +++ /dev/null @@ -1,26 +0,0 @@ -#ifdef _TKOPTION -#ifndef TkOptionClassChanged -VFUNC(void,TkOptionClassChanged,V_TkOptionClassChanged,_ANSI_ARGS_((struct TkWindow *winPtr))) -#endif /* #ifndef TkOptionClassChanged */ - -#ifndef TkOptionDeadWindow -VFUNC(void,TkOptionDeadWindow,V_TkOptionDeadWindow,_ANSI_ARGS_((struct TkWindow *winPtr))) -#endif /* #ifndef TkOptionDeadWindow */ - -#ifndef Tk_AddOption -VFUNC(void,Tk_AddOption,V_Tk_AddOption,_ANSI_ARGS_((Tk_Window tkwin, - CONST char * name, CONST char * value, - int priority))) -#endif /* #ifndef Tk_AddOption */ - -#ifndef Tk_GetOption -VFUNC(Tk_Uid,Tk_GetOption,V_Tk_GetOption,_ANSI_ARGS_((Tk_Window tkwin, CONST char *name, - CONST char *className))) -#endif /* #ifndef Tk_GetOption */ - -#ifndef Tk_OptionObjCmd -VFUNC(int,Tk_OptionObjCmd,V_Tk_OptionObjCmd,_ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *args))) -#endif /* #ifndef Tk_OptionObjCmd */ - -#endif /* _TKOPTION */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkOption_f.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkOption_f.h deleted file mode 100644 index 9a3f10cd919..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkOption_f.h +++ /dev/null @@ -1,14 +0,0 @@ -#ifndef TKOPTION_VT -#define TKOPTION_VT -typedef struct TkoptionVtab -{ - unsigned (*tabSize)(void); -#define VFUNC(type,name,mem,args) type (*mem) args; -#define VVAR(type,name,mem) type (*mem); -#include "tkOption.t" -#undef VFUNC -#undef VVAR -} TkoptionVtab; -extern TkoptionVtab *TkoptionVptr; -extern TkoptionVtab *TkoptionVGet(void); -#endif /* TKOPTION_VT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls.h deleted file mode 100644 index 1ac6485307b..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls.h +++ /dev/null @@ -1,300 +0,0 @@ -/* - * tkPlatDecls.h -- - * - * Declarations of functions in the platform-specific public Tcl API. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkPlatDecls.h,v 1.7 2002/08/31 06:12:23 das Exp $ - */ - -#ifndef _TKPLATDECLS -#define _TKPLATDECLS - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tk.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -/* - * Exported function declarations: - */ - -#ifdef __WIN32__ -/* 0 */ -EXTERN Window Tk_AttachHWND _ANSI_ARGS_((Tk_Window tkwin, - HWND hwnd)); -/* 1 */ -EXTERN HINSTANCE Tk_GetHINSTANCE _ANSI_ARGS_((void)); -/* 2 */ -EXTERN HWND Tk_GetHWND _ANSI_ARGS_((Window window)); -/* 3 */ -EXTERN Tk_Window Tk_HWNDToWindow _ANSI_ARGS_((HWND hwnd)); -/* 4 */ -EXTERN void Tk_PointerEvent _ANSI_ARGS_((HWND hwnd, int x, int y)); -/* 5 */ -EXTERN int Tk_TranslateWinEvent _ANSI_ARGS_((HWND hwnd, - UINT message, WPARAM wParam, LPARAM lParam, - LRESULT * result)); -#endif /* __WIN32__ */ -#ifdef MAC_TCL -/* 0 */ -EXTERN void Tk_MacSetEmbedHandler _ANSI_ARGS_(( - Tk_MacEmbedRegisterWinProc * registerWinProcPtr, - Tk_MacEmbedGetGrafPortProc * getPortProcPtr, - Tk_MacEmbedMakeContainerExistProc * containerExistProcPtr, - Tk_MacEmbedGetClipProc * getClipProc, - Tk_MacEmbedGetOffsetInParentProc * getOffsetProc)); -/* 1 */ -EXTERN void Tk_MacTurnOffMenus _ANSI_ARGS_((void)); -/* 2 */ -EXTERN void Tk_MacTkOwnsCursor _ANSI_ARGS_((int tkOwnsIt)); -/* 3 */ -EXTERN void TkMacInitMenus _ANSI_ARGS_((Tcl_Interp * interp)); -/* 4 */ -EXTERN void TkMacInitAppleEvents _ANSI_ARGS_(( - Tcl_Interp * interp)); -/* 5 */ -EXTERN int TkMacConvertEvent _ANSI_ARGS_(( - EventRecord * eventPtr)); -/* 6 */ -EXTERN int TkMacConvertTkEvent _ANSI_ARGS_(( - EventRecord * eventPtr, Window window)); -/* 7 */ -EXTERN void TkGenWMConfigureEvent _ANSI_ARGS_((Tk_Window tkwin, - int x, int y, int width, int height, - int flags)); -/* 8 */ -EXTERN void TkMacInvalClipRgns _ANSI_ARGS_((TkWindow * winPtr)); -/* 9 */ -EXTERN int TkMacHaveAppearance _ANSI_ARGS_((void)); -/* 10 */ -EXTERN GWorldPtr TkMacGetDrawablePort _ANSI_ARGS_((Drawable drawable)); -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -/* 0 */ -EXTERN void Tk_MacOSXSetEmbedHandler _ANSI_ARGS_(( - Tk_MacOSXEmbedRegisterWinProc * registerWinProcPtr, - Tk_MacOSXEmbedGetGrafPortProc * getPortProcPtr, - Tk_MacOSXEmbedMakeContainerExistProc * containerExistProcPtr, - Tk_MacOSXEmbedGetClipProc * getClipProc, - Tk_MacOSXEmbedGetOffsetInParentProc * getOffsetProc)); -/* 1 */ -EXTERN void Tk_MacOSXTurnOffMenus _ANSI_ARGS_((void)); -/* 2 */ -EXTERN void Tk_MacOSXTkOwnsCursor _ANSI_ARGS_((int tkOwnsIt)); -/* 3 */ -EXTERN void TkMacOSXInitMenus _ANSI_ARGS_((Tcl_Interp * interp)); -/* 4 */ -EXTERN void TkMacOSXInitAppleEvents _ANSI_ARGS_(( - Tcl_Interp * interp)); -/* 5 */ -EXTERN void TkGenWMConfigureEvent _ANSI_ARGS_((Tk_Window tkwin, - int x, int y, int width, int height, - int flags)); -/* 6 */ -EXTERN void TkMacOSXInvalClipRgns _ANSI_ARGS_((TkWindow * winPtr)); -/* 7 */ -EXTERN GWorldPtr TkMacOSXGetDrawablePort _ANSI_ARGS_(( - Drawable drawable)); -/* 8 */ -EXTERN ControlRef TkMacOSXGetRootControl _ANSI_ARGS_(( - Drawable drawable)); -/* 9 */ -EXTERN void Tk_MacOSXSetupTkNotifier _ANSI_ARGS_((void)); -/* 10 */ -EXTERN int Tk_MacOSXIsAppInFront _ANSI_ARGS_((void)); -#endif /* MAC_OSX_TK */ - -typedef struct TkPlatStubs { - int magic; - struct TkPlatStubHooks *hooks; - -#ifdef __WIN32__ - Window (*tk_AttachHWND) _ANSI_ARGS_((Tk_Window tkwin, HWND hwnd)); /* 0 */ - HINSTANCE (*tk_GetHINSTANCE) _ANSI_ARGS_((void)); /* 1 */ - HWND (*tk_GetHWND) _ANSI_ARGS_((Window window)); /* 2 */ - Tk_Window (*tk_HWNDToWindow) _ANSI_ARGS_((HWND hwnd)); /* 3 */ - void (*tk_PointerEvent) _ANSI_ARGS_((HWND hwnd, int x, int y)); /* 4 */ - int (*tk_TranslateWinEvent) _ANSI_ARGS_((HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam, LRESULT * result)); /* 5 */ -#endif /* __WIN32__ */ -#ifdef MAC_TCL - void (*tk_MacSetEmbedHandler) _ANSI_ARGS_((Tk_MacEmbedRegisterWinProc * registerWinProcPtr, Tk_MacEmbedGetGrafPortProc * getPortProcPtr, Tk_MacEmbedMakeContainerExistProc * containerExistProcPtr, Tk_MacEmbedGetClipProc * getClipProc, Tk_MacEmbedGetOffsetInParentProc * getOffsetProc)); /* 0 */ - void (*tk_MacTurnOffMenus) _ANSI_ARGS_((void)); /* 1 */ - void (*tk_MacTkOwnsCursor) _ANSI_ARGS_((int tkOwnsIt)); /* 2 */ - void (*tkMacInitMenus) _ANSI_ARGS_((Tcl_Interp * interp)); /* 3 */ - void (*tkMacInitAppleEvents) _ANSI_ARGS_((Tcl_Interp * interp)); /* 4 */ - int (*tkMacConvertEvent) _ANSI_ARGS_((EventRecord * eventPtr)); /* 5 */ - int (*tkMacConvertTkEvent) _ANSI_ARGS_((EventRecord * eventPtr, Window window)); /* 6 */ - void (*tkGenWMConfigureEvent) _ANSI_ARGS_((Tk_Window tkwin, int x, int y, int width, int height, int flags)); /* 7 */ - void (*tkMacInvalClipRgns) _ANSI_ARGS_((TkWindow * winPtr)); /* 8 */ - int (*tkMacHaveAppearance) _ANSI_ARGS_((void)); /* 9 */ - GWorldPtr (*tkMacGetDrawablePort) _ANSI_ARGS_((Drawable drawable)); /* 10 */ -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK - void (*tk_MacOSXSetEmbedHandler) _ANSI_ARGS_((Tk_MacOSXEmbedRegisterWinProc * registerWinProcPtr, Tk_MacOSXEmbedGetGrafPortProc * getPortProcPtr, Tk_MacOSXEmbedMakeContainerExistProc * containerExistProcPtr, Tk_MacOSXEmbedGetClipProc * getClipProc, Tk_MacOSXEmbedGetOffsetInParentProc * getOffsetProc)); /* 0 */ - void (*tk_MacOSXTurnOffMenus) _ANSI_ARGS_((void)); /* 1 */ - void (*tk_MacOSXTkOwnsCursor) _ANSI_ARGS_((int tkOwnsIt)); /* 2 */ - void (*tkMacOSXInitMenus) _ANSI_ARGS_((Tcl_Interp * interp)); /* 3 */ - void (*tkMacOSXInitAppleEvents) _ANSI_ARGS_((Tcl_Interp * interp)); /* 4 */ - void (*tkGenWMConfigureEvent) _ANSI_ARGS_((Tk_Window tkwin, int x, int y, int width, int height, int flags)); /* 5 */ - void (*tkMacOSXInvalClipRgns) _ANSI_ARGS_((TkWindow * winPtr)); /* 6 */ - GWorldPtr (*tkMacOSXGetDrawablePort) _ANSI_ARGS_((Drawable drawable)); /* 7 */ - ControlRef (*tkMacOSXGetRootControl) _ANSI_ARGS_((Drawable drawable)); /* 8 */ - void (*tk_MacOSXSetupTkNotifier) _ANSI_ARGS_((void)); /* 9 */ - int (*tk_MacOSXIsAppInFront) _ANSI_ARGS_((void)); /* 10 */ -#endif /* MAC_OSX_TK */ -} TkPlatStubs; - -#ifdef __cplusplus -extern "C" { -#endif -extern TkPlatStubs *tkPlatStubsPtr; -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifdef __WIN32__ -#ifndef Tk_AttachHWND -#define Tk_AttachHWND \ - (tkPlatStubsPtr->tk_AttachHWND) /* 0 */ -#endif -#ifndef Tk_GetHINSTANCE -#define Tk_GetHINSTANCE \ - (tkPlatStubsPtr->tk_GetHINSTANCE) /* 1 */ -#endif -#ifndef Tk_GetHWND -#define Tk_GetHWND \ - (tkPlatStubsPtr->tk_GetHWND) /* 2 */ -#endif -#ifndef Tk_HWNDToWindow -#define Tk_HWNDToWindow \ - (tkPlatStubsPtr->tk_HWNDToWindow) /* 3 */ -#endif -#ifndef Tk_PointerEvent -#define Tk_PointerEvent \ - (tkPlatStubsPtr->tk_PointerEvent) /* 4 */ -#endif -#ifndef Tk_TranslateWinEvent -#define Tk_TranslateWinEvent \ - (tkPlatStubsPtr->tk_TranslateWinEvent) /* 5 */ -#endif -#endif /* __WIN32__ */ -#ifdef MAC_TCL -#ifndef Tk_MacSetEmbedHandler -#define Tk_MacSetEmbedHandler \ - (tkPlatStubsPtr->tk_MacSetEmbedHandler) /* 0 */ -#endif -#ifndef Tk_MacTurnOffMenus -#define Tk_MacTurnOffMenus \ - (tkPlatStubsPtr->tk_MacTurnOffMenus) /* 1 */ -#endif -#ifndef Tk_MacTkOwnsCursor -#define Tk_MacTkOwnsCursor \ - (tkPlatStubsPtr->tk_MacTkOwnsCursor) /* 2 */ -#endif -#ifndef TkMacInitMenus -#define TkMacInitMenus \ - (tkPlatStubsPtr->tkMacInitMenus) /* 3 */ -#endif -#ifndef TkMacInitAppleEvents -#define TkMacInitAppleEvents \ - (tkPlatStubsPtr->tkMacInitAppleEvents) /* 4 */ -#endif -#ifndef TkMacConvertEvent -#define TkMacConvertEvent \ - (tkPlatStubsPtr->tkMacConvertEvent) /* 5 */ -#endif -#ifndef TkMacConvertTkEvent -#define TkMacConvertTkEvent \ - (tkPlatStubsPtr->tkMacConvertTkEvent) /* 6 */ -#endif -#ifndef TkGenWMConfigureEvent -#define TkGenWMConfigureEvent \ - (tkPlatStubsPtr->tkGenWMConfigureEvent) /* 7 */ -#endif -#ifndef TkMacInvalClipRgns -#define TkMacInvalClipRgns \ - (tkPlatStubsPtr->tkMacInvalClipRgns) /* 8 */ -#endif -#ifndef TkMacHaveAppearance -#define TkMacHaveAppearance \ - (tkPlatStubsPtr->tkMacHaveAppearance) /* 9 */ -#endif -#ifndef TkMacGetDrawablePort -#define TkMacGetDrawablePort \ - (tkPlatStubsPtr->tkMacGetDrawablePort) /* 10 */ -#endif -#endif /* MAC_TCL */ -#ifdef MAC_OSX_TK -#ifndef Tk_MacOSXSetEmbedHandler -#define Tk_MacOSXSetEmbedHandler \ - (tkPlatStubsPtr->tk_MacOSXSetEmbedHandler) /* 0 */ -#endif -#ifndef Tk_MacOSXTurnOffMenus -#define Tk_MacOSXTurnOffMenus \ - (tkPlatStubsPtr->tk_MacOSXTurnOffMenus) /* 1 */ -#endif -#ifndef Tk_MacOSXTkOwnsCursor -#define Tk_MacOSXTkOwnsCursor \ - (tkPlatStubsPtr->tk_MacOSXTkOwnsCursor) /* 2 */ -#endif -#ifndef TkMacOSXInitMenus -#define TkMacOSXInitMenus \ - (tkPlatStubsPtr->tkMacOSXInitMenus) /* 3 */ -#endif -#ifndef TkMacOSXInitAppleEvents -#define TkMacOSXInitAppleEvents \ - (tkPlatStubsPtr->tkMacOSXInitAppleEvents) /* 4 */ -#endif -#ifndef TkGenWMConfigureEvent -#define TkGenWMConfigureEvent \ - (tkPlatStubsPtr->tkGenWMConfigureEvent) /* 5 */ -#endif -#ifndef TkMacOSXInvalClipRgns -#define TkMacOSXInvalClipRgns \ - (tkPlatStubsPtr->tkMacOSXInvalClipRgns) /* 6 */ -#endif -#ifndef TkMacOSXGetDrawablePort -#define TkMacOSXGetDrawablePort \ - (tkPlatStubsPtr->tkMacOSXGetDrawablePort) /* 7 */ -#endif -#ifndef TkMacOSXGetRootControl -#define TkMacOSXGetRootControl \ - (tkPlatStubsPtr->tkMacOSXGetRootControl) /* 8 */ -#endif -#ifndef Tk_MacOSXSetupTkNotifier -#define Tk_MacOSXSetupTkNotifier \ - (tkPlatStubsPtr->tk_MacOSXSetupTkNotifier) /* 9 */ -#endif -#ifndef Tk_MacOSXIsAppInFront -#define Tk_MacOSXIsAppInFront \ - (tkPlatStubsPtr->tk_MacOSXIsAppInFront) /* 10 */ -#endif -#endif /* MAC_OSX_TK */ - -#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKPLATDECLS */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls.m b/Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls.m deleted file mode 100644 index 41dfafb4998..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls.m +++ /dev/null @@ -1,114 +0,0 @@ -#ifndef _TKPLATDECLS_VM -#define _TKPLATDECLS_VM -#include "tkPlatDecls_f.h" -#ifndef NO_VTABLES -#ifndef TkGenWMConfigureEvent -# define TkGenWMConfigureEvent (*TkplatdeclsVptr->V_TkGenWMConfigureEvent) -#endif - -#ifndef TkMacConvertEvent -# define TkMacConvertEvent (*TkplatdeclsVptr->V_TkMacConvertEvent) -#endif - -#ifndef TkMacConvertTkEvent -# define TkMacConvertTkEvent (*TkplatdeclsVptr->V_TkMacConvertTkEvent) -#endif - -#ifndef TkMacGetDrawablePort -# define TkMacGetDrawablePort (*TkplatdeclsVptr->V_TkMacGetDrawablePort) -#endif - -#ifndef TkMacHaveAppearance -# define TkMacHaveAppearance (*TkplatdeclsVptr->V_TkMacHaveAppearance) -#endif - -#ifndef TkMacInitAppleEvents -# define TkMacInitAppleEvents (*TkplatdeclsVptr->V_TkMacInitAppleEvents) -#endif - -#ifndef TkMacInitMenus -# define TkMacInitMenus (*TkplatdeclsVptr->V_TkMacInitMenus) -#endif - -#ifndef TkMacInvalClipRgns -# define TkMacInvalClipRgns (*TkplatdeclsVptr->V_TkMacInvalClipRgns) -#endif - -#ifndef TkMacOSXGetDrawablePort -# define TkMacOSXGetDrawablePort (*TkplatdeclsVptr->V_TkMacOSXGetDrawablePort) -#endif - -#ifndef TkMacOSXGetRootControl -# define TkMacOSXGetRootControl (*TkplatdeclsVptr->V_TkMacOSXGetRootControl) -#endif - -#ifndef TkMacOSXInitAppleEvents -# define TkMacOSXInitAppleEvents (*TkplatdeclsVptr->V_TkMacOSXInitAppleEvents) -#endif - -#ifndef TkMacOSXInitMenus -# define TkMacOSXInitMenus (*TkplatdeclsVptr->V_TkMacOSXInitMenus) -#endif - -#ifndef TkMacOSXInvalClipRgns -# define TkMacOSXInvalClipRgns (*TkplatdeclsVptr->V_TkMacOSXInvalClipRgns) -#endif - -#ifndef Tk_AttachHWND -# define Tk_AttachHWND (*TkplatdeclsVptr->V_Tk_AttachHWND) -#endif - -#ifndef Tk_GetHINSTANCE -# define Tk_GetHINSTANCE (*TkplatdeclsVptr->V_Tk_GetHINSTANCE) -#endif - -#ifndef Tk_GetHWND -# define Tk_GetHWND (*TkplatdeclsVptr->V_Tk_GetHWND) -#endif - -#ifndef Tk_HWNDToWindow -# define Tk_HWNDToWindow (*TkplatdeclsVptr->V_Tk_HWNDToWindow) -#endif - -#ifndef Tk_MacOSXIsAppInFront -# define Tk_MacOSXIsAppInFront (*TkplatdeclsVptr->V_Tk_MacOSXIsAppInFront) -#endif - -#ifndef Tk_MacOSXSetEmbedHandler -# define Tk_MacOSXSetEmbedHandler (*TkplatdeclsVptr->V_Tk_MacOSXSetEmbedHandler) -#endif - -#ifndef Tk_MacOSXSetupTkNotifier -# define Tk_MacOSXSetupTkNotifier (*TkplatdeclsVptr->V_Tk_MacOSXSetupTkNotifier) -#endif - -#ifndef Tk_MacOSXTkOwnsCursor -# define Tk_MacOSXTkOwnsCursor (*TkplatdeclsVptr->V_Tk_MacOSXTkOwnsCursor) -#endif - -#ifndef Tk_MacOSXTurnOffMenus -# define Tk_MacOSXTurnOffMenus (*TkplatdeclsVptr->V_Tk_MacOSXTurnOffMenus) -#endif - -#ifndef Tk_MacSetEmbedHandler -# define Tk_MacSetEmbedHandler (*TkplatdeclsVptr->V_Tk_MacSetEmbedHandler) -#endif - -#ifndef Tk_MacTkOwnsCursor -# define Tk_MacTkOwnsCursor (*TkplatdeclsVptr->V_Tk_MacTkOwnsCursor) -#endif - -#ifndef Tk_MacTurnOffMenus -# define Tk_MacTurnOffMenus (*TkplatdeclsVptr->V_Tk_MacTurnOffMenus) -#endif - -#ifndef Tk_PointerEvent -# define Tk_PointerEvent (*TkplatdeclsVptr->V_Tk_PointerEvent) -#endif - -#ifndef Tk_TranslateWinEvent -# define Tk_TranslateWinEvent (*TkplatdeclsVptr->V_Tk_TranslateWinEvent) -#endif - -#endif /* NO_VTABLES */ -#endif /* _TKPLATDECLS_VM */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls.t b/Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls.t deleted file mode 100644 index 162ddc59545..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls.t +++ /dev/null @@ -1,190 +0,0 @@ -#ifdef _TKPLATDECLS
-#ifndef TkGenWMConfigureEvent
-#ifdef MAC_OSX_TK
-VFUNC(void,TkGenWMConfigureEvent,V_TkGenWMConfigureEvent,_ANSI_ARGS_((Tk_Window tkwin,
- int x, int y, int width, int height,
- int flags)))
-#endif /* #ifdef MAC_OSX_TK */
-#ifdef MAC_TCL
-VFUNC(void,TkGenWMConfigureEvent,V_TkGenWMConfigureEvent,_ANSI_ARGS_((Tk_Window tkwin,
- int x, int y, int width, int height,
- int flags)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkGenWMConfigureEvent */
-
-#ifndef TkMacConvertEvent
-#ifdef MAC_TCL
-VFUNC(int,TkMacConvertEvent,V_TkMacConvertEvent,_ANSI_ARGS_((
- EventRecord * eventPtr)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacConvertEvent */
-
-#ifndef TkMacConvertTkEvent
-#ifdef MAC_TCL
-VFUNC(int,TkMacConvertTkEvent,V_TkMacConvertTkEvent,_ANSI_ARGS_((
- EventRecord * eventPtr, Window window)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacConvertTkEvent */
-
-#ifndef TkMacGetDrawablePort
-#ifdef MAC_TCL
-VFUNC(GWorldPtr,TkMacGetDrawablePort,V_TkMacGetDrawablePort,_ANSI_ARGS_((Drawable drawable)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacGetDrawablePort */
-
-#ifndef TkMacHaveAppearance
-#ifdef MAC_TCL
-VFUNC(int,TkMacHaveAppearance,V_TkMacHaveAppearance,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacHaveAppearance */
-
-#ifndef TkMacInitAppleEvents
-#ifdef MAC_TCL
-VFUNC(void,TkMacInitAppleEvents,V_TkMacInitAppleEvents,_ANSI_ARGS_((
- Tcl_Interp * interp)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacInitAppleEvents */
-
-#ifndef TkMacInitMenus
-#ifdef MAC_TCL
-VFUNC(void,TkMacInitMenus,V_TkMacInitMenus,_ANSI_ARGS_((Tcl_Interp * interp)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacInitMenus */
-
-#ifndef TkMacInvalClipRgns
-#ifdef MAC_TCL
-VFUNC(void,TkMacInvalClipRgns,V_TkMacInvalClipRgns,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef TkMacInvalClipRgns */
-
-#ifndef TkMacOSXGetDrawablePort
-#ifdef MAC_OSX_TK
-VFUNC(GWorldPtr,TkMacOSXGetDrawablePort,V_TkMacOSXGetDrawablePort,_ANSI_ARGS_((
- Drawable drawable)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXGetDrawablePort */
-
-#ifndef TkMacOSXGetRootControl
-#ifdef MAC_OSX_TK
-VFUNC(ControlRef,TkMacOSXGetRootControl,V_TkMacOSXGetRootControl,_ANSI_ARGS_((
- Drawable drawable)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXGetRootControl */
-
-#ifndef TkMacOSXInitAppleEvents
-#ifdef MAC_OSX_TK
-VFUNC(void,TkMacOSXInitAppleEvents,V_TkMacOSXInitAppleEvents,_ANSI_ARGS_((
- Tcl_Interp * interp)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXInitAppleEvents */
-
-#ifndef TkMacOSXInitMenus
-#ifdef MAC_OSX_TK
-VFUNC(void,TkMacOSXInitMenus,V_TkMacOSXInitMenus,_ANSI_ARGS_((Tcl_Interp * interp)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXInitMenus */
-
-#ifndef TkMacOSXInvalClipRgns
-#ifdef MAC_OSX_TK
-VFUNC(void,TkMacOSXInvalClipRgns,V_TkMacOSXInvalClipRgns,_ANSI_ARGS_((TkWindow * winPtr)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef TkMacOSXInvalClipRgns */
-
-#ifndef Tk_AttachHWND
-#ifdef __WIN32__
-VFUNC(Window,Tk_AttachHWND,V_Tk_AttachHWND,_ANSI_ARGS_((Tk_Window tkwin,
- HWND hwnd)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef Tk_AttachHWND */
-
-#ifndef Tk_GetHINSTANCE
-#ifdef __WIN32__
-VFUNC(HINSTANCE,Tk_GetHINSTANCE,V_Tk_GetHINSTANCE,_ANSI_ARGS_((void)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef Tk_GetHINSTANCE */
-
-#ifndef Tk_GetHWND
-#ifdef __WIN32__
-VFUNC(HWND,Tk_GetHWND,V_Tk_GetHWND,_ANSI_ARGS_((Window window)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef Tk_GetHWND */
-
-#ifndef Tk_HWNDToWindow
-#ifdef __WIN32__
-VFUNC(Tk_Window,Tk_HWNDToWindow,V_Tk_HWNDToWindow,_ANSI_ARGS_((HWND hwnd)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef Tk_HWNDToWindow */
-
-#ifndef Tk_MacOSXIsAppInFront
-#ifdef MAC_OSX_TK
-VFUNC(int,Tk_MacOSXIsAppInFront,V_Tk_MacOSXIsAppInFront,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef Tk_MacOSXIsAppInFront */
-
-#ifndef Tk_MacOSXSetEmbedHandler
-#ifdef MAC_OSX_TK
-VFUNC(void,Tk_MacOSXSetEmbedHandler,V_Tk_MacOSXSetEmbedHandler,_ANSI_ARGS_((
- Tk_MacOSXEmbedRegisterWinProc * registerWinProcPtr,
- Tk_MacOSXEmbedGetGrafPortProc * getPortProcPtr,
- Tk_MacOSXEmbedMakeContainerExistProc * containerExistProcPtr,
- Tk_MacOSXEmbedGetClipProc * getClipProc,
- Tk_MacOSXEmbedGetOffsetInParentProc * getOffsetProc)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef Tk_MacOSXSetEmbedHandler */
-
-#ifndef Tk_MacOSXSetupTkNotifier
-#ifdef MAC_OSX_TK
-VFUNC(void,Tk_MacOSXSetupTkNotifier,V_Tk_MacOSXSetupTkNotifier,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef Tk_MacOSXSetupTkNotifier */
-
-#ifndef Tk_MacOSXTkOwnsCursor
-#ifdef MAC_OSX_TK
-VFUNC(void,Tk_MacOSXTkOwnsCursor,V_Tk_MacOSXTkOwnsCursor,_ANSI_ARGS_((int tkOwnsIt)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef Tk_MacOSXTkOwnsCursor */
-
-#ifndef Tk_MacOSXTurnOffMenus
-#ifdef MAC_OSX_TK
-VFUNC(void,Tk_MacOSXTurnOffMenus,V_Tk_MacOSXTurnOffMenus,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_OSX_TK */
-#endif /* #ifndef Tk_MacOSXTurnOffMenus */
-
-#ifndef Tk_MacSetEmbedHandler
-#ifdef MAC_TCL
-VFUNC(void,Tk_MacSetEmbedHandler,V_Tk_MacSetEmbedHandler,_ANSI_ARGS_((
- Tk_MacEmbedRegisterWinProc * registerWinProcPtr,
- Tk_MacEmbedGetGrafPortProc * getPortProcPtr,
- Tk_MacEmbedMakeContainerExistProc * containerExistProcPtr,
- Tk_MacEmbedGetClipProc * getClipProc,
- Tk_MacEmbedGetOffsetInParentProc * getOffsetProc)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef Tk_MacSetEmbedHandler */
-
-#ifndef Tk_MacTkOwnsCursor
-#ifdef MAC_TCL
-VFUNC(void,Tk_MacTkOwnsCursor,V_Tk_MacTkOwnsCursor,_ANSI_ARGS_((int tkOwnsIt)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef Tk_MacTkOwnsCursor */
-
-#ifndef Tk_MacTurnOffMenus
-#ifdef MAC_TCL
-VFUNC(void,Tk_MacTurnOffMenus,V_Tk_MacTurnOffMenus,_ANSI_ARGS_((void)))
-#endif /* #ifdef MAC_TCL */
-#endif /* #ifndef Tk_MacTurnOffMenus */
-
-#ifndef Tk_PointerEvent
-#ifdef __WIN32__
-VFUNC(void,Tk_PointerEvent,V_Tk_PointerEvent,_ANSI_ARGS_((HWND hwnd, int x, int y)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef Tk_PointerEvent */
-
-#ifndef Tk_TranslateWinEvent
-#ifdef __WIN32__
-VFUNC(int,Tk_TranslateWinEvent,V_Tk_TranslateWinEvent,_ANSI_ARGS_((HWND hwnd,
- UINT message, WPARAM wParam, LPARAM lParam,
- LRESULT * result)))
-#endif /* #ifdef __WIN32__ */
-#endif /* #ifndef Tk_TranslateWinEvent */
-
-#endif /* _TKPLATDECLS */
diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls_f.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls_f.h deleted file mode 100644 index 8608bfb276f..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls_f.h +++ /dev/null @@ -1,15 +0,0 @@ -#ifndef TKPLATDECLS_VT -#define TKPLATDECLS_VT -#include "tkPlatDecls.h" -typedef struct TkplatdeclsVtab -{ - unsigned (*tabSize)(void); -#define VFUNC(type,name,mem,args) type (*mem) args; -#define VVAR(type,name,mem) type (*mem); -#include "tkPlatDecls.t" -#undef VFUNC -#undef VVAR -} TkplatdeclsVtab; -extern TkplatdeclsVtab *TkplatdeclsVptr; -extern TkplatdeclsVtab *TkplatdeclsVGet(void); -#endif /* TKPLATDECLS_VT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkPort.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkPort.h deleted file mode 100644 index acaf7703740..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkPort.h +++ /dev/null @@ -1,53 +0,0 @@ -/* - * tkPort.h -- - * - * This header file handles porting issues that occur because of - * differences between systems. It reads in platform specific - * portability files. - * - * Copyright (c) 1995 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkPort.h,v 1.3 2002/08/31 06:12:26 das Exp $ - */ - -#ifndef _TKPORT -#define _TKPORT - -#if defined(__WIN32__) || defined(_WIN32) -#define NEED_REAL_STDIO -#endif - -#ifndef _Lang -#include "Lang.h" -#endif - -#if defined(__WIN32__) && !defined(WIN32) -#define WIN32 -#endif - -#if defined(__WIN32__) || defined(_WIN32) -# include "tkWinPort.h" -# ifndef strcasecmp -# define strcasecmp(a,b) stricmp(a,b) -# endif -# ifdef __CYGWIN__ -# undef strcasecmp -# endif -#else -# if defined(MAC_TCL) -# include "tkMacPort.h" -# elif defined(MAC_OSX_TK) -# include "../macosx/tkMacOSXPort.h" -# else -# ifdef __PM__ -# include "tkOS2Port.h" -# else -# include "tkUnixPort.h" -# endif -# endif -#endif - -#endif /* _TKPORT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkScale.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkScale.h deleted file mode 100644 index 7936adfb18c..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkScale.h +++ /dev/null @@ -1,257 +0,0 @@ -/* - * tkScale.h -- - * - * Declarations of types and functions used to implement - * the scale widget. - * - * Copyright (c) 1996 by Sun Microsystems, Inc. - * Copyright (c) 1999-2000 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkScale.h,v 1.8 2000/04/14 08:33:16 hobbs Exp $ - */ - -#ifndef _TKSCALE -#define _TKSCALE - -#ifndef _TK -#include "tk.h" -#endif -#include "tkVMacro.h" - -#ifdef BUILD_tk -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * Legal values for the "orient" field of TkScale records. - */ - -enum orient { - ORIENT_HORIZONTAL, ORIENT_VERTICAL -}; - -/* - * Legal values for the "state" field of TkScale records. - */ - -enum state { - STATE_ACTIVE, STATE_DISABLED, STATE_NORMAL -}; - -/* - * A data structure of the following type is kept for each scale - * widget managed by this file: - */ - -typedef struct TkScale { - Tk_Window tkwin; /* Window that embodies the scale. NULL - * means that the window has been destroyed - * but the data structures haven't yet been - * cleaned up.*/ - Display *display; /* Display containing widget. Used, among - * other things, so that resources can be - * freed even after tkwin has gone away. */ - Tcl_Interp *interp; /* Interpreter associated with scale. */ - Tcl_Command widgetCmd; /* Token for scale's widget command. */ - Tk_OptionTable optionTable; /* Table that defines configuration options - * available for this widget. */ - enum orient orient; /* Orientation for window (vertical or - * horizontal). */ - int width; /* Desired narrow dimension of scale, - * in pixels. */ - int length; /* Desired long dimension of scale, - * in pixels. */ - double value; /* Current value of scale. */ - Tcl_Obj *varNamePtr; /* Name of variable or NULL. - * If non-NULL, scale's value tracks - * the contents of this variable and - * vice versa. */ - double fromValue; /* Value corresponding to left or top of - * scale. */ - double toValue; /* Value corresponding to right or bottom - * of scale. */ - double tickInterval; /* Distance between tick marks; - * 0 means don't display any tick marks. */ - double resolution; /* If > 0, all values are rounded to an - * even multiple of this value. */ - int digits; /* Number of significant digits to print - * in values. 0 means we get to choose the - * number based on resolution and/or the - * range of the scale. */ - char format[10]; /* Sprintf conversion specifier computed from - * digits and other information. */ - double bigIncrement; /* Amount to use for large increments to - * scale value. (0 means we pick a value). */ - Tcl_Obj *command; /* Command prefix to use when invoking Tcl - * commands because the scale value changed. - * NULL means don't invoke commands. */ - int repeatDelay; /* How long to wait before auto-repeating - * on scrolling actions (in ms). */ - int repeatInterval; /* Interval between autorepeats (in ms). */ - char *label; /* Label to display above or to right of - * scale; NULL means don't display a label. */ - int labelLength; /* Number of non-NULL chars. in label. */ - enum state state; /* Values are active, normal, or disabled. - * Value of scale cannot be changed when - * disabled. */ - - /* - * Information used when displaying widget: - */ - - int borderWidth; /* Width of 3-D border around window. */ - Tk_3DBorder bgBorder; /* Used for drawing slider and other - * background areas. */ - Tk_3DBorder activeBorder; /* For drawing the slider when active. */ - int sliderRelief; /* Is slider to be drawn raised, sunken, - * etc. */ - XColor *troughColorPtr; /* Color for drawing trough. */ - GC troughGC; /* For drawing trough. */ - GC copyGC; /* Used for copying from pixmap onto screen. */ - Tk_Font tkfont; /* Information about text font, or NULL. */ - XColor *textColorPtr; /* Color for drawing text. */ - GC textGC; /* GC for drawing text in normal mode. */ - int relief; /* Indicates whether window as a whole is - * raised, sunken, or flat. */ - int highlightWidth; /* Width in pixels of highlight to draw - * around widget when it has the focus. - * <= 0 means don't draw a highlight. */ - Tk_3DBorder highlightBorder;/* Value of -highlightbackground option: - * specifies background with which to draw 3-D - * default ring and focus highlight area when - * highlight is off. */ - XColor *highlightColorPtr; /* Color for drawing traversal highlight. */ - int inset; /* Total width of all borders, including - * traversal highlight and 3-D border. - * Indicates how much interior stuff must - * be offset from outside edges to leave - * room for borders. */ - int sliderLength; /* Length of slider, measured in pixels along - * long dimension of scale. */ - int showValue; /* Non-zero means to display the scale value - * below or to the left of the slider; zero - * means don't display the value. */ - - /* - * Layout information for horizontal scales, assuming that window - * gets the size it requested: - */ - - int horizLabelY; /* Y-coord at which to draw label. */ - int horizValueY; /* Y-coord at which to draw value text. */ - int horizTroughY; /* Y-coord of top of slider trough. */ - int horizTickY; /* Y-coord at which to draw tick text. */ - /* - * Layout information for vertical scales, assuming that window - * gets the size it requested: - */ - - int vertTickRightX; /* X-location of right side of tick-marks. */ - int vertValueRightX; /* X-location of right side of value string. */ - int vertTroughX; /* X-location of scale's slider trough. */ - int vertLabelX; /* X-location of origin of label. */ - - /* - * Miscellaneous information: - */ - - int fontHeight; /* Height of scale font. */ - Tk_Cursor cursor; /* Current cursor for window, or None. */ - Tcl_Obj *takeFocusPtr; /* Value of -takefocus option; not used in - * the C code, but used by keyboard traversal - * scripts. May be NULL. */ - int flags; /* Various flags; see below for - * definitions. */ -} TkScale; - -/* - * Flag bits for scales: - * - * REDRAW_SLIDER - 1 means slider (and numerical readout) need - * to be redrawn. - * REDRAW_OTHER - 1 means other stuff besides slider and value - * need to be redrawn. - * REDRAW_ALL - 1 means the entire widget needs to be redrawn. - * REDRAW_PENDING - 1 means any sort of redraw is pending - * ACTIVE - 1 means the widget is active (the mouse is - * in its window). - * INVOKE_COMMAND - 1 means the scale's command needs to be - * invoked during the next redisplay (the - * value of the scale has changed since the - * last time the command was invoked). - * SETTING_VAR - 1 means that the associated variable is - * being set by us, so there's no need for - * ScaleVarProc to do anything. - * NEVER_SET - 1 means that the scale's value has never - * been set before (so must invoke -command and - * set associated variable even if the value - * doesn't appear to have changed). - * GOT_FOCUS - 1 means that the focus is currently in - * this widget. - * SCALE_DELETED - 1 means the scale widget is being deleted - */ - -#define REDRAW_SLIDER (1<<0) -#define REDRAW_OTHER (1<<1) -#define REDRAW_ALL (REDRAW_OTHER|REDRAW_SLIDER) -#define REDRAW_PENDING (1<<2) -#define ACTIVE (1<<3) -#define INVOKE_COMMAND (1<<4) -#define SETTING_VAR (1<<5) -#define NEVER_SET (1<<6) -#define GOT_FOCUS (1<<7) -#define SCALE_DELETED (1<<8) - -/* - * Symbolic values for the active parts of a slider. These are - * the values that may be returned by the ScaleElement procedure. - */ - -#define OTHER 0 -#define TROUGH1 1 -#define SLIDER 2 -#define TROUGH2 3 - -/* - * Space to leave between scale area and text, and between text and - * edge of window. - */ - -#define SPACING 2 - -/* - * How many characters of space to provide when formatting the - * scale's value: - */ - -#define PRINT_CHARS 150 - -/* - * Declaration of procedures used in the implementation of the scale - * widget. - */ - -EXTERN void TkEventuallyRedrawScale _ANSI_ARGS_((TkScale *scalePtr, - int what)); -EXTERN double TkRoundToResolution _ANSI_ARGS_((TkScale *scalePtr, - double value)); -EXTERN TkScale * TkpCreateScale _ANSI_ARGS_((Tk_Window tkwin)); -EXTERN void TkpDestroyScale _ANSI_ARGS_((TkScale *scalePtr)); -EXTERN void TkpDisplayScale _ANSI_ARGS_((ClientData clientData)); -EXTERN int TkpScaleElement _ANSI_ARGS_((TkScale *scalePtr, - int x, int y)); -EXTERN void TkScaleSetValue _ANSI_ARGS_((TkScale *scalePtr, - double value, int setVar, int invokeCommand)); -EXTERN double TkScalePixelToValue _ANSI_ARGS_((TkScale *scalePtr, - int x, int y)); -EXTERN int TkScaleValueToPixel _ANSI_ARGS_((TkScale *scalePtr, - double value)); - -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKSCALE */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkScrollbar.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkScrollbar.h deleted file mode 100644 index bf2472fad06..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkScrollbar.h +++ /dev/null @@ -1,209 +0,0 @@ -/* - * tkScrollbar.h -- - * - * Declarations of types and functions used to implement - * the scrollbar widget. - * - * Copyright (c) 1996 by Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkScrollbar.h,v 1.6 2000/11/22 01:49:38 ericm Exp $ - */ - -#ifndef _TKSCROLLBAR -#define _TKSCROLLBAR - -#ifndef _TKINT -#include "tkInt.h" -#endif -#include "tkVMacro.h" - -#ifdef BUILD_tk -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * A data structure of the following type is kept for each scrollbar - * widget. - */ - -typedef struct TkScrollbar { - Tk_Window tkwin; /* Window that embodies the scrollbar. NULL - * means that the window has been destroyed - * but the data structures haven't yet been - * cleaned up.*/ - Display *display; /* Display containing widget. Used, among - * other things, so that resources can be - * freed even after tkwin has gone away. */ - Tcl_Interp *interp; /* Interpreter associated with scrollbar. */ - Tcl_Command widgetCmd; /* Token for scrollbar's widget command. */ - int vertical; /* Non-zero means vertical orientation - * requested, zero means horizontal. */ - int width; /* Desired narrow dimension of scrollbar, - * in pixels. */ - LangCallback *command; /* Command prefix to use when invoking - * scrolling commands. NULL means don't - * invoke commands. Malloc'ed. */ -#if 0 - int commandSize; /* Number of non-NULL bytes in command. */ -#endif - int repeatDelay; /* How long to wait before auto-repeating - * on scrolling actions (in ms). */ - int repeatInterval; /* Interval between autorepeats (in ms). */ - int jump; /* Value of -jump option. */ - - /* - * Information used when displaying widget: - */ - - int borderWidth; /* Width of 3-D borders. */ - Tk_3DBorder bgBorder; /* Used for drawing background (all flat - * surfaces except for trough). */ - Tk_3DBorder activeBorder; /* For drawing backgrounds when active (i.e. - * when mouse is positioned over element). */ - XColor *troughColorPtr; /* Color for drawing trough. */ - int relief; /* Indicates whether window as a whole is - * raised, sunken, or flat. */ - int highlightWidth; /* Width in pixels of highlight to draw - * around widget when it has the focus. - * <= 0 means don't draw a highlight. */ - XColor *highlightBgColorPtr; - /* Color for drawing traversal highlight - * area when highlight is off. */ - XColor *highlightColorPtr; /* Color for drawing traversal highlight. */ - int inset; /* Total width of all borders, including - * traversal highlight and 3-D border. - * Indicates how much interior stuff must - * be offset from outside edges to leave - * room for borders. */ - int elementBorderWidth; /* Width of border to draw around elements - * inside scrollbar (arrows and slider). - * -1 means use borderWidth. */ - int arrowLength; /* Length of arrows along long dimension of - * scrollbar, including space for a small gap - * between the arrow and the slider. - * Recomputed on window size changes. */ - int sliderFirst; /* Pixel coordinate of top or left edge - * of slider area, including border. */ - int sliderLast; /* Coordinate of pixel just after bottom - * or right edge of slider area, including - * border. */ - int activeField; /* Names field to be displayed in active - * colors, such as TOP_ARROW, or 0 for - * no field. */ - int activeRelief; /* Value of -activeRelief option: relief - * to use for active element. */ - - /* - * Information describing the application related to the scrollbar. - * This information is provided by the application by invoking the - * "set" widget command. This information can now be provided in - * two ways: the "old" form (totalUnits, windowUnits, firstUnit, - * and lastUnit), or the "new" form (firstFraction and lastFraction). - * FirstFraction and lastFraction will always be valid, but - * the old-style information is only valid if the NEW_STYLE_COMMANDS - * flag is 0. - */ - - int totalUnits; /* Total dimension of application, in - * units. Valid only if the NEW_STYLE_COMMANDS - * flag isn't set. */ - int windowUnits; /* Maximum number of units that can be - * displayed in the window at once. Valid - * only if the NEW_STYLE_COMMANDS flag isn't - * set. */ - int firstUnit; /* Number of last unit visible in - * application's window. Valid only if the - * NEW_STYLE_COMMANDS flag isn't set. */ - int lastUnit; /* Index of last unit visible in window. - * Valid only if the NEW_STYLE_COMMANDS - * flag isn't set. */ - double firstFraction; /* Position of first visible thing in window, - * specified as a fraction between 0 and - * 1.0. */ - double lastFraction; /* Position of last visible thing in window, - * specified as a fraction between 0 and - * 1.0. */ - - /* - * Miscellaneous information: - */ - - Tk_Cursor cursor; /* Current cursor for window, or None. */ - char *takeFocus; /* Value of -takefocus option; not used in - * the C code, but used by keyboard traversal - * scripts. Malloc'ed, but may be NULL. */ - int flags; /* Various flags; see below for - * definitions. */ -} TkScrollbar; - -/* - * Legal values for "activeField" field of Scrollbar structures. These - * are also the return values from the ScrollbarPosition procedure. - */ - -#define OUTSIDE 0 -#define TOP_ARROW 1 -#define TOP_GAP 2 -#define SLIDER 3 -#define BOTTOM_GAP 4 -#define BOTTOM_ARROW 5 - -/* - * Flag bits for scrollbars: - * - * REDRAW_PENDING: Non-zero means a DoWhenIdle handler - * has already been queued to redraw - * this window. - * NEW_STYLE_COMMANDS: Non-zero means the new style of commands - * should be used to communicate with the - * widget: ".t yview scroll 2 lines", instead - * of ".t yview 40", for example. - * GOT_FOCUS: Non-zero means this window has the input - * focus. - */ - -#define REDRAW_PENDING 1 -#define NEW_STYLE_COMMANDS 2 -#define GOT_FOCUS 4 - -/* - * Declaration of scrollbar class procedures structure. - */ - -extern Tk_ClassProcs tkpScrollbarProcs; - -/* - * Declaration of scrollbar configuration options. - */ - -extern Tk_ConfigSpec tkpScrollbarConfigSpecs[]; - -/* - * Declaration of procedures used in the implementation of the scrollbar - * widget. - */ - -EXTERN void TkScrollbarEventProc _ANSI_ARGS_(( - ClientData clientData, XEvent *eventPtr)); -EXTERN void TkScrollbarEventuallyRedraw _ANSI_ARGS_(( - TkScrollbar *scrollPtr)); -EXTERN void TkpComputeScrollbarGeometry _ANSI_ARGS_(( - TkScrollbar *scrollPtr)); -EXTERN TkScrollbar * TkpCreateScrollbar _ANSI_ARGS_((Tk_Window tkwin)); -EXTERN void TkpDestroyScrollbar _ANSI_ARGS_(( - TkScrollbar *scrollPtr)); -EXTERN void TkpDisplayScrollbar _ANSI_ARGS_(( - ClientData clientData)); -EXTERN void TkpConfigureScrollbar _ANSI_ARGS_(( - TkScrollbar *scrollPtr)); -EXTERN int TkpScrollbarPosition _ANSI_ARGS_(( - TkScrollbar *scrollPtr, int x, int y)); - -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKSCROLLBAR */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkSelect.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkSelect.h deleted file mode 100644 index 7ea06bb84bb..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkSelect.h +++ /dev/null @@ -1,187 +0,0 @@ -/* - * tkSelect.h -- - * - * Declarations of types shared among the files that implement - * selection support. - * - * Copyright (c) 1995 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkSelect.h,v 1.4 1999/05/25 20:40:54 stanton Exp $ - */ - -#ifndef _TKSELECT -#define _TKSELECT - -/* - * When a selection is owned by a window on a given display, one of the - * following structures is present on a list of current selections in the - * display structure. The structure is used to record the current owner of - * a selection for use in later retrieval requests. There is a list of - * such structures because a display can have multiple different selections - * active at the same time. - */ - -typedef struct TkSelectionInfo { - Atom selection; /* Selection name, e.g. XA_PRIMARY. */ - Tk_Window owner; /* Current owner of this selection. */ - int serial; /* Serial number of last XSelectionSetOwner - * request made to server for this - * selection (used to filter out redundant - * SelectionClear events). */ - Time time; /* Timestamp used to acquire selection. */ - Tk_LostSelProc *clearProc; /* Procedure to call when owner loses - * selection. */ - ClientData clearData; /* Info to pass to clearProc. */ - struct TkSelectionInfo *nextPtr; - /* Next in list of current selections on - * this display. NULL means end of list */ -} TkSelectionInfo; - -/* - * One of the following structures exists for each selection handler - * created for a window by calling Tk_CreateSelHandler. The handlers - * are linked in a list rooted in the TkWindow structure. - */ - -typedef struct TkSelHandler { - Atom selection; /* Selection name, e.g. XA_PRIMARY */ - Atom target; /* Target type for selection - * conversion, such as TARGETS or - * STRING. */ - Atom format; /* Format in which selection - * info will be returned, such - * as STRING or ATOM. */ - Tk_XSelectionProc *proc; /* Procedure to generate selection - * in this format. */ - ClientData clientData; /* Argument to pass to proc. */ - int size; /* Size of units returned by proc - * (8 for STRING, 32 for almost - * anything else). */ - struct TkSelHandler *nextPtr; - /* Next selection handler associated - * with same window (NULL for end of - * list). */ -} TkSelHandler; - -/* - * When the selection is being retrieved, one of the following - * structures is present on a list of pending selection retrievals. - * The structure is used to communicate between the background - * procedure that requests the selection and the foreground - * event handler that processes the events in which the selection - * is returned. There is a list of such structures so that there - * can be multiple simultaneous selection retrievals (e.g. on - * different displays). - */ - -typedef struct TkSelRetrievalInfo { - Tcl_Interp *interp; /* Interpreter for error reporting. */ - TkWindow *winPtr; /* Window used as requestor for - * selection. */ - Atom selection; /* Selection being requested. */ - Atom property; /* Property where selection will appear. */ - Atom target; /* Desired form for selection. */ - Tk_GetXSelProc *proc; /* Procedure to call to handle pieces - * of selection. */ - ClientData clientData; /* Argument for proc. */ - int result; /* Initially -1. Set to a Tcl - * return value once the selection - * has been retrieved. */ - Tcl_TimerToken timeout; /* Token for current timeout procedure. */ - int idleTime; /* Number of seconds that have gone by - * without hearing anything from the - * selection owner. */ - Tcl_EncodingState encState; /* Holds intermediate state during translations - * of data that cross buffer boundaries. */ - int encFlags; /* Encoding translation state flags. */ - Tcl_DString buf; /* Buffer to hold translation data. */ - struct TkSelRetrievalInfo *nextPtr; - /* Next in list of all pending - * selection retrievals. NULL means - * end of list. */ -} TkSelRetrievalInfo; - -/* - * The clipboard contains a list of buffers of various types and formats. - * All of the buffers of a given type will be returned in sequence when the - * CLIPBOARD selection is retrieved. All buffers of a given type on the - * same clipboard must have the same format. The TkClipboardTarget structure - * is used to record the information about a chain of buffers of the same - * type. - */ - -typedef struct TkClipboardBuffer { - char *buffer; /* Null terminated data buffer. */ - long length; /* Length of string in buffer. */ - struct TkClipboardBuffer *nextPtr; /* Next in list of buffers. NULL - * means end of list . */ -} TkClipboardBuffer; - -typedef struct TkClipboardTarget { - Atom type; /* Type conversion supported. */ - Atom format; /* Representation used for data. */ - TkClipboardBuffer *firstBufferPtr; /* First in list of data buffers. */ - TkClipboardBuffer *lastBufferPtr; /* Last in list of clipboard buffers. - * Used to speed up appends. */ - struct TkClipboardTarget *nextPtr; /* Next in list of targets on - * clipboard. NULL means end of - * list. */ -} TkClipboardTarget; - -/* - * It is possible for a Tk_SelectionProc to delete the handler that it - * represents. If this happens, the code that is retrieving the selection - * needs to know about it so it doesn't use the now-defunct handler - * structure. One structure of the following form is created for each - * retrieval in progress, so that the retriever can find out if its - * handler is deleted. All of the pending retrievals (if there are more - * than one) are linked into a list. - */ - -typedef struct TkSelInProgress { - TkSelHandler *selPtr; /* Handler being executed. If this handler - * is deleted, the field is set to NULL. */ - struct TkSelInProgress *nextPtr; - /* Next higher nested search. */ -} TkSelInProgress; - -/* - * Chunk size for retrieving selection. It's defined both in - * words and in bytes; the word size is used to allocate - * buffer space that's guaranteed to be word-aligned and that - * has an extra character for the terminating NULL. - */ - -#define TK_SEL_BYTES_AT_ONCE 4000 -#define TK_SEL_WORDS_AT_ONCE 1001 - -/* - * Declarations for procedures that are used by the selection-related files - * but shouldn't be used anywhere else in Tk (or by Tk clients): - */ - -extern TkSelInProgress * - TkSelGetInProgress _ANSI_ARGS_((void)); -extern void TkSelSetInProgress _ANSI_ARGS_(( - TkSelInProgress *pendingPtr)); - -extern void TkSelClearSelection _ANSI_ARGS_((Tk_Window tkwin, - XEvent *eventPtr)); -extern int TkSelDefaultSelection _ANSI_ARGS_(( - TkSelectionInfo *infoPtr, Atom target, - long *lbuffer, int maxBytes, Atom *typePtr, int *formatPtr)); -extern int TkSelGetSelection _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Atom selection, Atom target, - Tk_GetXSelProc *proc, ClientData clientData)); -char * TkSelCvtFromX _ANSI_ARGS_((long *propPtr, int numValues, - Atom type, Tk_Window tkwin)); -int TkSelCvtToX _ANSI_ARGS_((long *buffer, char *string, Atom type, - Tk_Window tkwin, int maxBytes)); -#ifndef TkSelUpdateClipboard -extern void TkSelUpdateClipboard _ANSI_ARGS_((TkWindow *winPtr, - TkClipboardTarget *targetPtr)); -#endif -#endif /* _TKSELECT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkText.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkText.h deleted file mode 100644 index 0c715b6986e..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkText.h +++ /dev/null @@ -1,927 +0,0 @@ -/* - * tkText.h -- - * - * Declarations shared among the files that implement text - * widgets. - * - * Copyright (c) 1992-1994 The Regents of the University of California. - * Copyright (c) 1994-1995 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkText.h,v 1.13 2002/12/27 23:43:38 davygrvy Exp $ - */ - -#ifndef _TKTEXT -#define _TKTEXT - -#ifndef _TK -#include "tk.h" -#endif - -#ifndef _TKUNDO -#include "tkUndo.h" -#endif - -#ifdef BUILD_tk -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * Opaque types for structures whose guts are only needed by a single - * file: - */ - -typedef struct TkTextBTree_ *TkTextBTree; - -/* - * The data structure below defines a single line of text (from newline - * to newline, not necessarily what appears on one line of the screen). - */ - -typedef struct TkTextLine { - struct Node *parentPtr; /* Pointer to parent node containing - * line. */ - struct TkTextLine *nextPtr; /* Next in linked list of lines with - * same parent node in B-tree. NULL - * means end of list. */ - struct TkTextSegment *segPtr; /* First in ordered list of segments - * that make up the line. */ -} TkTextLine; - -/* - * ----------------------------------------------------------------------- - * Segments: each line is divided into one or more segments, where each - * segment is one of several things, such as a group of characters, a - * tag toggle, a mark, or an embedded widget. Each segment starts with - * a standard header followed by a body that varies from type to type. - * ----------------------------------------------------------------------- - */ - -/* - * The data structure below defines the body of a segment that represents - * a tag toggle. There is one of these structures at both the beginning - * and end of each tagged range. - */ - -typedef struct TkTextToggle { - struct TkTextTag *tagPtr; /* Tag that starts or ends here. */ - int inNodeCounts; /* 1 means this toggle has been - * accounted for in node toggle - * counts; 0 means it hasn't, yet. */ -} TkTextToggle; - -/* - * The data structure below defines line segments that represent - * marks. There is one of these for each mark in the text. - */ - -typedef struct TkTextMark { - struct TkText *textPtr; /* Overall information about text - * widget. */ - TkTextLine *linePtr; /* Line structure that contains the - * segment. */ - Tcl_HashEntry *hPtr; /* Pointer to hash table entry for mark - * (in textPtr->markTable). */ -} TkTextMark; - -/* - * A structure of the following type holds information for each window - * embedded in a text widget. This information is only used by the - * file tkTextWind.c - */ - -typedef struct TkTextEmbWindow { - struct TkText *textPtr; /* Information about the overall text - * widget. */ - TkTextLine *linePtr; /* Line structure that contains this - * window. */ - Tk_Window tkwin; /* Window for this segment. NULL - * means that the window hasn't - * been created yet. */ - LangCallback *create; /* Script to create window on-demand. - * NULL means no such script. - * Malloc-ed. */ - int align; /* How to align window in vertical - * space. See definitions in - * tkTextWind.c. */ - int padX, padY; /* Padding to leave around each side - * of window, in pixels. */ - int stretch; /* Should window stretch to fill - * vertical space of line (except for - * pady)? 0 or 1. */ - int chunkCount; /* Number of display chunks that - * refer to this window. */ - int displayed; /* Non-zero means that the window - * has been displayed on the screen - * recently. */ -} TkTextEmbWindow; - -/* - * A structure of the following type holds information for each image - * embedded in a text widget. This information is only used by the - * file tkTextImage.c - */ - -typedef struct TkTextEmbImage { - struct TkText *textPtr; /* Information about the overall text - * widget. */ - TkTextLine *linePtr; /* Line structure that contains this - * image. */ - char *imageString; /* Name of the image for this segment */ - char *imageName; /* Name used by text widget to identify - * this image. May be unique-ified */ - char *name; /* Name used in the hash table. - * used by "image names" to identify - * this instance of the image */ - Tk_Image image; /* Image for this segment. NULL - * means that the image hasn't - * been created yet. */ - int align; /* How to align image in vertical - * space. See definitions in - * tkTextImage.c. */ - int padX, padY; /* Padding to leave around each side - * of image, in pixels. */ - int chunkCount; /* Number of display chunks that - * refer to this image. */ -} TkTextEmbImage; - -/* - * The data structure below defines line segments. - */ - -typedef struct TkTextSegment { - struct Tk_SegType *typePtr; /* Pointer to record describing - * segment's type. */ - struct TkTextSegment *nextPtr; /* Next in list of segments for this - * line, or NULL for end of list. */ - int size; /* Size of this segment (# of bytes - * of index space it occupies). */ - union { - char chars[4]; /* Characters that make up character - * info. Actual length varies to - * hold as many characters as needed.*/ - TkTextToggle toggle; /* Information about tag toggle. */ - TkTextMark mark; /* Information about mark. */ - TkTextEmbWindow ew; /* Information about embedded - * window. */ - TkTextEmbImage ei; /* Information about embedded - * image. */ - } body; -} TkTextSegment; - -/* - * Data structures of the type defined below are used during the - * execution of Tcl commands to keep track of various interesting - * places in a text. An index is only valid up until the next - * modification to the character structure of the b-tree so they - * can't be retained across Tcl commands. However, mods to marks - * or tags don't invalidate indices. - */ - -typedef struct TkTextIndex { - TkTextBTree tree; /* Tree containing desired position. */ - TkTextLine *linePtr; /* Pointer to line containing position - * of interest. */ - int byteIndex; /* Index within line of desired - * character (0 means first one). */ -} TkTextIndex; - -/* - * Types for procedure pointers stored in TkTextDispChunk strutures: - */ - -typedef struct TkTextDispChunk TkTextDispChunk; - -typedef void Tk_ChunkDisplayProc _ANSI_ARGS_(( - TkTextDispChunk *chunkPtr, int x, int y, - int height, int baseline, Display *display, - Drawable dst, int screenY)); -typedef void Tk_ChunkUndisplayProc _ANSI_ARGS_(( - struct TkText *textPtr, - TkTextDispChunk *chunkPtr)); -typedef int Tk_ChunkMeasureProc _ANSI_ARGS_(( - TkTextDispChunk *chunkPtr, int x)); -typedef void Tk_ChunkBboxProc _ANSI_ARGS_(( - TkTextDispChunk *chunkPtr, int index, int y, - int lineHeight, int baseline, int *xPtr, - int *yPtr, int *widthPtr, int *heightPtr)); - -/* - * The structure below represents a chunk of stuff that is displayed - * together on the screen. This structure is allocated and freed by - * generic display code but most of its fields are filled in by - * segment-type-specific code. - */ - -struct TkTextDispChunk { - /* - * The fields below are set by the type-independent code before - * calling the segment-type-specific layoutProc. They should not - * be modified by segment-type-specific code. - */ - - int x; /* X position of chunk, in pixels. - * This position is measured from the - * left edge of the logical line, - * not from the left edge of the - * window (i.e. it doesn't change - * under horizontal scrolling). */ - struct TkTextDispChunk *nextPtr; /* Next chunk in the display line - * or NULL for the end of the list. */ - struct TextStyle *stylePtr; /* Display information, known only - * to tkTextDisp.c. */ - - /* - * The fields below are set by the layoutProc that creates the - * chunk. - */ - - Tk_ChunkDisplayProc *displayProc; /* Procedure to invoke to draw this - * chunk on the display or an - * off-screen pixmap. */ - Tk_ChunkUndisplayProc *undisplayProc; - /* Procedure to invoke when segment - * ceases to be displayed on screen - * anymore. */ - Tk_ChunkMeasureProc *measureProc; /* Procedure to find character under - * a given x-location. */ - Tk_ChunkBboxProc *bboxProc; /* Procedure to find bounding box - * of character in chunk. */ - int numBytes; /* Number of bytes that will be - * displayed in the chunk. */ - int minAscent; /* Minimum space above the baseline - * needed by this chunk. */ - int minDescent; /* Minimum space below the baseline - * needed by this chunk. */ - int minHeight; /* Minimum total line height needed - * by this chunk. */ - int width; /* Width of this chunk, in pixels. - * Initially set by chunk-specific - * code, but may be increased to - * include tab or extra space at end - * of line. */ - int breakIndex; /* Index within chunk of last - * acceptable position for a line - * (break just before this byte index). - * <= 0 means don't break during or - * immediately after this chunk. */ - ClientData clientData; /* Additional information for use - * of displayProc and undisplayProc. */ -}; - -/* - * One data structure of the following type is used for each tag in a - * text widget. These structures are kept in textPtr->tagTable and - * referred to in other structures. - */ - -typedef enum { TEXT_WRAPMODE_NULL, TEXT_WRAPMODE_NONE, - TEXT_WRAPMODE_CHAR, TEXT_WRAPMODE_WORD -} TkWrapMode; - -EXTERN Tk_CustomOption textWrapModeOption; - -typedef struct TkTextTag { - char *name; /* Name of this tag. This field is actually - * a pointer to the key from the entry in - * textPtr->tagTable, so it needn't be freed - * explicitly. */ - int priority; /* Priority of this tag within widget. 0 - * means lowest priority. Exactly one tag - * has each integer value between 0 and - * numTags-1. */ - struct Node *tagRootPtr; /* Pointer into the B-Tree at the lowest - * node that completely dominates the ranges - * of text occupied by the tag. At this - * node there is no information about the - * tag. One or more children of the node - * do contain information about the tag. */ - int toggleCount; /* Total number of tag toggles */ - - /* - * Information for displaying text with this tag. The information - * belows acts as an override on information specified by lower-priority - * tags. If no value is specified, then the next-lower-priority tag - * on the text determins the value. The text widget itself provides - * defaults if no tag specifies an override. - */ - - Tk_3DBorder border; /* Used for drawing background. NULL means - * no value specified here. */ - char *bdString; /* -borderwidth option string (malloc-ed). - * NULL means option not specified. */ - int borderWidth; /* Width of 3-D border for background. */ - char *reliefString; /* -relief option string (malloc-ed). - * NULL means option not specified. */ - int relief; /* 3-D relief for background. */ - Pixmap bgStipple; /* Stipple bitmap for background. None - * means no value specified here. */ - XColor *fgColor; /* Foreground color for text. NULL means - * no value specified here. */ - Tk_Font tkfont; /* Font for displaying text. NULL means - * no value specified here. */ - Pixmap fgStipple; /* Stipple bitmap for text and other - * foreground stuff. None means no value - * specified here.*/ - char *justifyString; /* -justify option string (malloc-ed). - * NULL means option not specified. */ - Tk_Justify justify; /* How to justify text: TK_JUSTIFY_LEFT, - * TK_JUSTIFY_RIGHT, or TK_JUSTIFY_CENTER. - * Only valid if justifyString is non-NULL. */ - char *lMargin1String; /* -lmargin1 option string (malloc-ed). - * NULL means option not specified. */ - int lMargin1; /* Left margin for first display line of - * each text line, in pixels. Only valid - * if lMargin1String is non-NULL. */ - char *lMargin2String; /* -lmargin2 option string (malloc-ed). - * NULL means option not specified. */ - int lMargin2; /* Left margin for second and later display - * lines of each text line, in pixels. Only - * valid if lMargin2String is non-NULL. */ - char *offsetString; /* -offset option string (malloc-ed). - * NULL means option not specified. */ - int offset; /* Vertical offset of text's baseline from - * baseline of line. Used for superscripts - * and subscripts. Only valid if - * offsetString is non-NULL. */ - Tcl_Obj * overstrikeString; /* -overstrike option string (malloc-ed). - * NULL means option not specified. */ - int overstrike; /* Non-zero means draw horizontal line through - * middle of text. Only valid if - * overstrikeString is non-NULL. */ - char *rMarginString; /* -rmargin option string (malloc-ed). - * NULL means option not specified. */ - int rMargin; /* Right margin for text, in pixels. Only - * valid if rMarginString is non-NULL. */ - char *spacing1String; /* -spacing1 option string (malloc-ed). - * NULL means option not specified. */ - int spacing1; /* Extra spacing above first display - * line for text line. Only valid if - * spacing1String is non-NULL. */ - char *spacing2String; /* -spacing2 option string (malloc-ed). - * NULL means option not specified. */ - int spacing2; /* Extra spacing between display - * lines for the same text line. Only valid - * if spacing2String is non-NULL. */ - char *spacing3String; /* -spacing2 option string (malloc-ed). - * NULL means option not specified. */ - int spacing3; /* Extra spacing below last display - * line for text line. Only valid if - * spacing3String is non-NULL. */ - Tcl_Obj * tabString; /* -tabs option string (malloc-ed). - * NULL means option not specified. */ - struct TkTextTabArray *tabArrayPtr; - /* Info about tabs for tag (malloc-ed) - * or NULL. Corresponds to tabString. */ - Tcl_Obj * underlineString; /* -underline option string (malloc-ed). - * NULL means option not specified. */ - int underline; /* Non-zero means draw underline underneath - * text. Only valid if underlineString is - * non-NULL. */ - TkWrapMode wrapMode; /* How to handle wrap-around for this tag. - * Must be TEXT_WRAPMODE_CHAR, - * TEXT_WRAPMODE_NONE, TEXT_WRAPMODE_WORD, - * or TEXT_WRAPMODE_NULL to use wrapmode for - * whole widget. */ - Tcl_Obj * elideString; /* -elide option string (malloc-ed). - * NULL means option not specified. */ - int elide; /* Non-zero means that data under this tag - * should not be displayed. */ - int affectsDisplay; /* Non-zero means that this tag affects the - * way information is displayed on the screen - * (so need to redisplay if tag changes). */ - Tcl_Obj * userData; /* arbitary user data */ -} TkTextTag; - -#define TK_TAG_AFFECTS_DISPLAY 0x1 -#define TK_TAG_UNDERLINE 0x2 -#define TK_TAG_JUSTIFY 0x4 -#define TK_TAG_OFFSET 0x10 - -/* - * The data structure below is used for searching a B-tree for transitions - * on a single tag (or for all tag transitions). No code outside of - * tkTextBTree.c should ever modify any of the fields in these structures, - * but it's OK to use them for read-only information. - */ - -typedef struct TkTextSearch { - TkTextIndex curIndex; /* Position of last tag transition - * returned by TkBTreeNextTag, or - * index of start of segment - * containing starting position for - * search if TkBTreeNextTag hasn't - * been called yet, or same as - * stopIndex if search is over. */ - TkTextSegment *segPtr; /* Actual tag segment returned by last - * call to TkBTreeNextTag, or NULL if - * TkBTreeNextTag hasn't returned - * anything yet. */ - TkTextSegment *nextPtr; /* Where to resume search in next - * call to TkBTreeNextTag. */ - TkTextSegment *lastPtr; /* Stop search before just before - * considering this segment. */ - TkTextTag *tagPtr; /* Tag to search for (or tag found, if - * allTags is non-zero). */ - int linesLeft; /* Lines left to search (including - * curIndex and stopIndex). When - * this becomes <= 0 the search is - * over. */ - int allTags; /* Non-zero means ignore tag check: - * search for transitions on all - * tags. */ -} TkTextSearch; - -/* - * The following data structure describes a single tab stop. - */ - -typedef enum {LEFT, RIGHT, CENTER, NUMERIC} TkTextTabAlign; - -typedef struct TkTextTab { - int location; /* Offset in pixels of this tab stop - * from the left margin (lmargin2) of - * the text. */ - TkTextTabAlign alignment; /* Where the tab stop appears relative - * to the text. */ -} TkTextTab; - -typedef struct TkTextTabArray { - int numTabs; /* Number of tab stops. */ - TkTextTab tabs[1]; /* Array of tabs. The actual size - * will be numTabs. THIS FIELD MUST - * BE THE LAST IN THE STRUCTURE. */ -} TkTextTabArray; - -/* enum definining the edit modes of */ - -typedef enum { - TK_TEXT_EDIT_INSERT, /* insert mode */ - TK_TEXT_EDIT_DELETE, /* delete mode */ - TK_TEXT_EDIT_OTHER /* none of the above */ -} TkTextEditMode; - -/* - * A data structure of the following type is kept for each text widget that - * currently exists for this process: - */ - -typedef struct TkText { - Tk_Window tkwin; /* Window that embodies the text. NULL - * means that the window has been destroyed - * but the data structures haven't yet been - * cleaned up.*/ - Display *display; /* Display for widget. Needed, among other - * things, to allow resources to be freed - * even after tkwin has gone away. */ - Tcl_Interp *interp; /* Interpreter associated with widget. Used - * to delete widget command. */ - Tcl_Command widgetCmd; /* Token for text's widget command. */ - TkTextBTree tree; /* B-tree representation of text and tags for - * widget. */ - Tcl_HashTable tagTable; /* Hash table that maps from tag names to - * pointers to TkTextTag structures. */ - int numTags; /* Number of tags currently defined for - * widget; needed to keep track of - * priorities. */ - Tcl_HashTable markTable; /* Hash table that maps from mark names to - * pointers to mark segments. */ - Tcl_HashTable windowTable; /* Hash table that maps from window names - * to pointers to window segments. If a - * window segment doesn't yet have an - * associated window, there is no entry for - * it here. */ - Tcl_HashTable imageTable; /* Hash table that maps from image names - * to pointers to image segments. If an - * image segment doesn't yet have an - * associated image, there is no entry for - * it here. */ - int state; /* Either STATE_NORMAL or STATE_DISABLED. A - * text widget is read-only when disabled. */ - - /* - * Default information for displaying (may be overridden by tags - * applied to ranges of characters). - */ - - Tk_3DBorder border; /* Structure used to draw 3-D border and - * default background. */ - int borderWidth; /* Width of 3-D border to draw around entire - * widget. */ - int padX, padY; /* Padding between text and window border. */ - int relief; /* 3-d effect for border around entire - * widget: TK_RELIEF_RAISED etc. */ - int highlightWidth; /* Width in pixels of highlight to draw - * around widget when it has the focus. - * <= 0 means don't draw a highlight. */ - XColor *highlightBgColorPtr; - /* Color for drawing traversal highlight - * area when highlight is off. */ - XColor *highlightColorPtr; /* Color for drawing traversal highlight. */ - Tk_Cursor cursor; /* Current cursor for window, or None. */ - XColor *fgColor; /* Default foreground color for text. */ - Tk_Font tkfont; /* Default font for displaying text. */ - int charWidth; /* Width of average character in default - * font. */ - int spacing1; /* Default extra spacing above first display - * line for each text line. */ - int spacing2; /* Default extra spacing between display lines - * for the same text line. */ - int spacing3; /* Default extra spacing below last display - * line for each text line. */ - Tcl_Obj * tabOptionString; /* Value of -tabs option string (malloc'ed). */ - TkTextTabArray *tabArrayPtr; - /* Information about tab stops (malloc'ed). - * NULL means perform default tabbing - * behavior. */ - - /* - * Additional information used for displaying: - */ - - TkWrapMode wrapMode; /* How to handle wrap-around. Must be - * TEXT_WRAPMODE_CHAR, TEXT_WRAPMODE_NONE, or - * TEXT_WRAPMODE_WORD. */ - int width, height; /* Desired dimensions for window, measured - * in characters. */ - int setGrid; /* Non-zero means pass gridding information - * to window manager. */ - int prevWidth, prevHeight; /* Last known dimensions of window; used to - * detect changes in size. */ - TkTextIndex topIndex; /* Identifies first character in top display - * line of window. */ - struct TextDInfo *dInfoPtr; /* Information maintained by tkTextDisp.c. */ - - /* - * Information related to selection. - */ - - TkTextTag *selTagPtr; /* Pointer to "sel" tag. Used to tell when - * a new selection has been made. */ - Tk_3DBorder selBorder; /* Border and background for selected - * characters. This is a copy of information - * in *cursorTagPtr, so it shouldn't be - * explicitly freed. */ - char *selBdString; /* Value of -selectborderwidth option, or NULL - * if not specified (malloc'ed). */ - XColor *selFgColorPtr; /* Foreground color for selected text. - * This is a copy of information in - * *cursorTagPtr, so it shouldn't be - * explicitly freed. */ - int exportSelection; /* Non-zero means tie "sel" tag to X - * selection. */ - TkTextIndex selIndex; /* Used during multi-pass selection retrievals. - * This index identifies the next character - * to be returned from the selection. */ - int abortSelections; /* Set to 1 whenever the text is modified - * in a way that interferes with selection - * retrieval: used to abort incremental - * selection retrievals. */ - int selOffset; /* Offset in selection corresponding to - * selLine and selCh. -1 means neither - * this information nor selIndex is of any - * use. */ - - /* - * Information related to insertion cursor: - */ - - TkTextSegment *insertMarkPtr; - /* Points to segment for "insert" mark. */ - Tk_3DBorder insertBorder; /* Used to draw vertical bar for insertion - * cursor. */ - int insertWidth; /* Total width of insert cursor. */ - int insertBorderWidth; /* Width of 3-D border around insert cursor. */ - int insertOnTime; /* Number of milliseconds cursor should spend - * in "on" state for each blink. */ - int insertOffTime; /* Number of milliseconds cursor should spend - * in "off" state for each blink. */ - Tcl_TimerToken insertBlinkHandler; - /* Timer handler used to blink cursor on and - * off. */ - - /* - * Information used for event bindings associated with tags: - */ - - Tk_BindingTable bindingTable; - /* Table of all bindings currently defined - * for this widget. NULL means that no - * bindings exist, so the table hasn't been - * created. Each "object" used for this - * table is the address of a tag. */ - TkTextSegment *currentMarkPtr; - /* Pointer to segment for "current" mark, - * or NULL if none. */ - XEvent pickEvent; /* The event from which the current character - * was chosen. Must be saved so that we - * can repick after modifications to the - * text. */ - int numCurTags; /* Number of tags associated with character - * at current mark. */ - TkTextTag **curTagArrayPtr; /* Pointer to array of tags for current - * mark, or NULL if none. */ - - /* - * Miscellaneous additional information: - */ - - char *takeFocus; /* Value of -takeFocus option; not used in - * the C code, but used by keyboard traversal - * scripts. Malloc'ed, but may be NULL. */ - LangCallback *xScrollCmd; /* Prefix of command to issue to update - * horizontal scrollbar when view changes. */ - LangCallback *yScrollCmd; /* Prefix of command to issue to update - * vertical scrollbar when view changes. */ - int flags; /* Miscellaneous flags; see below for - * definitions. */ - - /* - * Information related to the undo/redo functonality - */ - - TkUndoRedoStack * undoStack; /* The undo/redo stack */ - - int undo; /* non zero means the undo/redo behaviour is - * enabled */ - - int maxUndo; /* The maximum depth of the undo stack expressed - * as the maximum number of compound statements */ - - int autoSeparators; /* non zero means the separatorss will be - * inserted automatically */ - - int modifiedSet; /* Flag indicating that the 'dirtynesss' of - * the text widget has been expplicitly set. - */ - - int isDirty; /* Flag indicating the 'dirtynesss' of the text - * widget. If the flag is not zero, unsaved - * modifications have been applied to the - * text widget */ - - int isDirtyIncrement; /* Amount with which the isDirty flag is - * incremented every edit action - */ - - TkTextEditMode lastEditMode; /* Keeps track of what the last edit mode was - */ - -} TkText; - -/* - * Flag values for TkText records: - * - * GOT_SELECTION: Non-zero means we've already claimed the - * selection. - * INSERT_ON: Non-zero means insertion cursor should be - * displayed on screen. - * GOT_FOCUS: Non-zero means this window has the input - * focus. - * BUTTON_DOWN: 1 means that a mouse button is currently - * down; this is used to implement grabs - * for the duration of button presses. - * UPDATE_SCROLLBARS: Non-zero means scrollbar(s) should be updated - * during next redisplay operation. - */ - -#define GOT_SELECTION 1 -#define INSERT_ON 2 -#define GOT_FOCUS 4 -#define BUTTON_DOWN 8 -#define UPDATE_SCROLLBARS 0x10 -#define NEED_REPICK 0x20 - -/* - * Records of the following type define segment types in terms of - * a collection of procedures that may be called to manipulate - * segments of that type. - */ - -typedef TkTextSegment * Tk_SegSplitProc _ANSI_ARGS_(( - struct TkTextSegment *segPtr, int index)); -typedef int Tk_SegDeleteProc _ANSI_ARGS_(( - struct TkTextSegment *segPtr, - TkTextLine *linePtr, int treeGone)); -typedef TkTextSegment * Tk_SegCleanupProc _ANSI_ARGS_(( - struct TkTextSegment *segPtr, TkTextLine *linePtr)); -typedef void Tk_SegLineChangeProc _ANSI_ARGS_(( - struct TkTextSegment *segPtr, TkTextLine *linePtr)); -typedef int Tk_SegLayoutProc _ANSI_ARGS_((struct TkText *textPtr, - struct TkTextIndex *indexPtr, TkTextSegment *segPtr, - int offset, int maxX, int maxChars, - int noCharsYet, TkWrapMode wrapMode, - struct TkTextDispChunk *chunkPtr)); -typedef void Tk_SegCheckProc _ANSI_ARGS_((TkTextSegment *segPtr, - TkTextLine *linePtr)); - -typedef struct Tk_SegType { - char *name; /* Name of this kind of segment. */ - int leftGravity; /* If a segment has zero size (e.g. a - * mark or tag toggle), does it - * attach to character to its left - * or right? 1 means left, 0 means - * right. */ - Tk_SegSplitProc *splitProc; /* Procedure to split large segment - * into two smaller ones. */ - Tk_SegDeleteProc *deleteProc; /* Procedure to call to delete - * segment. */ - Tk_SegCleanupProc *cleanupProc; /* After any change to a line, this - * procedure is invoked for all - * segments left in the line to - * perform any cleanup they wish - * (e.g. joining neighboring - * segments). */ - Tk_SegLineChangeProc *lineChangeProc; - /* Invoked when a segment is about - * to be moved from its current line - * to an earlier line because of - * a deletion. The linePtr is that - * for the segment's old line. - * CleanupProc will be invoked after - * the deletion is finished. */ - Tk_SegLayoutProc *layoutProc; /* Returns size information when - * figuring out what to display in - * window. */ - Tk_SegCheckProc *checkProc; /* Called during consistency checks - * to check internal consistency of - * segment. */ -} Tk_SegType; - -/* - * The constant below is used to specify a line when what is really - * wanted is the entire text. For now, just use a very big number. - */ - -#define TK_END_OF_TEXT 1000000 - -/* - * The following definition specifies the maximum number of characters - * needed in a string to hold a position specifier. - */ - -#define TK_POS_CHARS 30 - -/* - * Declarations for variables shared among the text-related files: - */ - -EXTERN int tkBTreeDebug; -EXTERN int tkTextDebug; -EXTERN Tk_SegType tkTextCharType; -EXTERN Tk_SegType tkTextLeftMarkType; -EXTERN Tk_SegType tkTextRightMarkType; -EXTERN Tk_SegType tkTextToggleOnType; -EXTERN Tk_SegType tkTextToggleOffType; - -/* - * Declarations for procedures that are used by the text-related files - * but shouldn't be used anywhere else in Tk (or by Tk clients): - */ - -EXTERN int TkBTreeCharTagged _ANSI_ARGS_((TkTextIndex *indexPtr, - TkTextTag *tagPtr)); -EXTERN void TkBTreeCheck _ANSI_ARGS_((TkTextBTree tree)); -EXTERN int TkBTreeCharsInLine _ANSI_ARGS_((TkTextLine *linePtr)); -EXTERN int TkBTreeBytesInLine _ANSI_ARGS_((TkTextLine *linePtr)); -EXTERN TkTextBTree TkBTreeCreate _ANSI_ARGS_((TkText *textPtr)); -EXTERN void TkBTreeDestroy _ANSI_ARGS_((TkTextBTree tree)); -EXTERN void TkBTreeDeleteChars _ANSI_ARGS_((TkTextIndex *index1Ptr, - TkTextIndex *index2Ptr)); -EXTERN TkTextLine * TkBTreeFindLine _ANSI_ARGS_((TkTextBTree tree, - int line)); -EXTERN TkTextTag ** TkBTreeGetTags _ANSI_ARGS_((TkTextIndex *indexPtr, - int *numTagsPtr)); -EXTERN void TkBTreeInsertChars _ANSI_ARGS_((TkTextIndex *indexPtr, - CONST char *string)); -EXTERN int TkBTreeLineIndex _ANSI_ARGS_((TkTextLine *linePtr)); -EXTERN void TkBTreeLinkSegment _ANSI_ARGS_((TkTextSegment *segPtr, - TkTextIndex *indexPtr)); -EXTERN TkTextLine * TkBTreeNextLine _ANSI_ARGS_((TkTextLine *linePtr)); -EXTERN int TkBTreeNextTag _ANSI_ARGS_((TkTextSearch *searchPtr)); -EXTERN int TkBTreeNumLines _ANSI_ARGS_((TkTextBTree tree)); -EXTERN TkTextLine * TkBTreePreviousLine _ANSI_ARGS_((TkTextLine *linePtr)); -EXTERN int TkBTreePrevTag _ANSI_ARGS_((TkTextSearch *searchPtr)); -EXTERN void TkBTreeStartSearch _ANSI_ARGS_((TkTextIndex *index1Ptr, - TkTextIndex *index2Ptr, TkTextTag *tagPtr, - TkTextSearch *searchPtr)); -EXTERN void TkBTreeStartSearchBack _ANSI_ARGS_((TkTextIndex *index1Ptr, - TkTextIndex *index2Ptr, TkTextTag *tagPtr, - TkTextSearch *searchPtr)); -EXTERN void TkBTreeTag _ANSI_ARGS_((TkTextIndex *index1Ptr, - TkTextIndex *index2Ptr, TkTextTag *tagPtr, - int add)); -EXTERN void TkBTreeUnlinkSegment _ANSI_ARGS_((TkTextBTree tree, - TkTextSegment *segPtr, TkTextLine *linePtr)); -EXTERN void TkTextBindProc _ANSI_ARGS_((ClientData clientData, - XEvent *eventPtr)); -EXTERN void TkTextChanged _ANSI_ARGS_((TkText *textPtr, - TkTextIndex *index1Ptr, TkTextIndex *index2Ptr)); -EXTERN int TkTextCharBbox _ANSI_ARGS_((TkText *textPtr, - TkTextIndex *indexPtr, int *xPtr, int *yPtr, - int *widthPtr, int *heightPtr)); -EXTERN int TkTextCharLayoutProc _ANSI_ARGS_((TkText *textPtr, - TkTextIndex *indexPtr, TkTextSegment *segPtr, - int offset, int maxX, int maxChars, int noBreakYet, - TkWrapMode wrapMode, TkTextDispChunk *chunkPtr)); -EXTERN void TkTextCreateDInfo _ANSI_ARGS_((TkText *textPtr)); -EXTERN int TkTextDLineInfo _ANSI_ARGS_((TkText *textPtr, - TkTextIndex *indexPtr, int *xPtr, int *yPtr, - int *widthPtr, int *heightPtr, int *basePtr)); -EXTERN TkTextTag * TkTextCreateTag _ANSI_ARGS_((TkText *textPtr, - CONST char *tagName)); -EXTERN void TkTextFreeDInfo _ANSI_ARGS_((TkText *textPtr)); -EXTERN void TkTextFreeTag _ANSI_ARGS_((TkText *textPtr, - TkTextTag *tagPtr)); -EXTERN int TkTextGetIndex _ANSI_ARGS_((Tcl_Interp *interp, - TkText *textPtr, CONST char *string, - TkTextIndex *indexPtr)); -EXTERN TkTextTabArray * TkTextGetTabs _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Window tkwin, Tcl_Obj *string)); -EXTERN void TkTextIndexBackBytes _ANSI_ARGS_(( - CONST TkTextIndex *srcPtr, int count, - TkTextIndex *dstPtr)); -EXTERN void TkTextIndexBackChars _ANSI_ARGS_(( - CONST TkTextIndex *srcPtr, int count, - TkTextIndex *dstPtr)); -EXTERN int TkTextIndexCmp _ANSI_ARGS_(( - CONST TkTextIndex *index1Ptr, - CONST TkTextIndex *index2Ptr)); -EXTERN void TkTextIndexForwBytes _ANSI_ARGS_(( - CONST TkTextIndex *srcPtr, int count, - TkTextIndex *dstPtr)); -EXTERN void TkTextIndexForwChars _ANSI_ARGS_(( - CONST TkTextIndex *srcPtr, int count, - TkTextIndex *dstPtr)); -EXTERN TkTextSegment * TkTextIndexToSeg _ANSI_ARGS_(( - CONST TkTextIndex *indexPtr, int *offsetPtr)); -EXTERN void TkTextInsertDisplayProc _ANSI_ARGS_(( - TkTextDispChunk *chunkPtr, int x, int y, int height, - int baseline, Display *display, Drawable dst, - int screenY)); -EXTERN void TkTextLostSelection _ANSI_ARGS_(( - ClientData clientData)); -EXTERN TkTextIndex * TkTextMakeCharIndex _ANSI_ARGS_((TkTextBTree tree, - int lineIndex, int charIndex, - TkTextIndex *indexPtr)); -EXTERN int TkTextIsElided _ANSI_ARGS_((TkText *textPtr, - TkTextIndex *indexPtr)); -EXTERN TkTextIndex * TkTextMakeByteIndex _ANSI_ARGS_((TkTextBTree tree, - int lineIndex, int byteIndex, - TkTextIndex *indexPtr)); -EXTERN int TkTextMarkCmd _ANSI_ARGS_((TkText *textPtr, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int TkTextMarkNameToIndex _ANSI_ARGS_((TkText *textPtr, - CONST char *name, TkTextIndex *indexPtr)); -EXTERN void TkTextMarkSegToIndex _ANSI_ARGS_((TkText *textPtr, - TkTextSegment *markPtr, TkTextIndex *indexPtr)); -EXTERN void TkTextEventuallyRepick _ANSI_ARGS_((TkText *textPtr)); -EXTERN void TkTextPickCurrent _ANSI_ARGS_((TkText *textPtr, - XEvent *eventPtr)); -EXTERN void TkTextPixelIndex _ANSI_ARGS_((TkText *textPtr, - int x, int y, TkTextIndex *indexPtr)); -EXTERN void TkTextPrintIndex _ANSI_ARGS_(( - CONST TkTextIndex *indexPtr, char *string)); -EXTERN void TkTextRedrawRegion _ANSI_ARGS_((TkText *textPtr, - int x, int y, int width, int height)); -EXTERN void TkTextRedrawTag _ANSI_ARGS_((TkText *textPtr, - TkTextIndex *index1Ptr, TkTextIndex *index2Ptr, - TkTextTag *tagPtr, int withTag)); -EXTERN void TkTextRelayoutWindow _ANSI_ARGS_((TkText *textPtr)); -EXTERN int TkTextScanCmd _ANSI_ARGS_((TkText *textPtr, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int TkTextSeeCmd _ANSI_ARGS_((TkText *textPtr, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int TkTextSegToOffset _ANSI_ARGS_(( - CONST TkTextSegment *segPtr, - CONST TkTextLine *linePtr)); -EXTERN TkTextSegment * TkTextSetMark _ANSI_ARGS_((TkText *textPtr, - CONST char *name, TkTextIndex *indexPtr)); -EXTERN void TkTextSetYView _ANSI_ARGS_((TkText *textPtr, - TkTextIndex *indexPtr, int pickPlace)); -EXTERN int TkTextTagCmd _ANSI_ARGS_((TkText *textPtr, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int TkTextImageCmd _ANSI_ARGS_((TkText *textPtr, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int TkTextImageIndex _ANSI_ARGS_((TkText *textPtr, - CONST char *name, TkTextIndex *indexPtr)); -EXTERN int TkTextWindowCmd _ANSI_ARGS_((TkText *textPtr, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int TkTextWindowIndex _ANSI_ARGS_((TkText *textPtr, - CONST char *name, TkTextIndex *indexPtr)); -EXTERN int TkTextXviewCmd _ANSI_ARGS_((TkText *textPtr, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); -EXTERN int TkTextYviewCmd _ANSI_ARGS_((TkText *textPtr, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST *objv)); - -#include "tkPort.h" -#include "tkVMacro.h" - -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKTEXT */ - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkUndo.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkUndo.h deleted file mode 100644 index 96a0c5bace8..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkUndo.h +++ /dev/null @@ -1,90 +0,0 @@ -/* - * tkUndo.h -- - * - * Declarations shared among the files that implement an undo - * stack. - * - * Copyright (c) 2002 Ludwig Callewaert. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkUndo.h,v 1.1 2002/06/21 23:09:55 hobbs Exp $ - */ - -#ifndef _TKUNDO -#define _TKUNDO - -#ifndef _TK -#include "tk.h" -#endif - -#ifdef BUILD_tk -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* enum definining the types used in an undo stack */ - -typedef enum { - TK_UNDO_SEPARATOR, /* Marker */ - TK_UNDO_ACTION /* Command */ -} TkUndoAtomType; - -/* struct defining the basic undo/redo stack element */ - -typedef struct TkUndoAtom { - TkUndoAtomType type; /* The type that will trigger the - * required action*/ - Tcl_Obj * apply; /* Command to apply the action that was taken */ - Tcl_Obj * revert; /* The command to undo the action */ - struct TkUndoAtom * next; /* Pointer to the next element in the - * stack */ -} TkUndoAtom; - -/* struct defining the basic undo/redo stack element */ - -typedef struct TkUndoRedoStack { - TkUndoAtom * undoStack; /* The undo stack */ - TkUndoAtom * redoStack; /* The redo stack */ - Tcl_Interp * interp ; /* The interpreter in which to execute the revert and apply scripts */ - int maxdepth; - int depth; -} TkUndoRedoStack; - -/* basic functions */ - -EXTERN void TkUndoPushStack _ANSI_ARGS_((TkUndoAtom ** stack, - TkUndoAtom * elem)); - -EXTERN TkUndoAtom * TkUndoPopStack _ANSI_ARGS_((TkUndoAtom ** stack)); - -EXTERN int TkUndoInsertSeparator _ANSI_ARGS_((TkUndoAtom ** stack)); - -EXTERN void TkUndoClearStack _ANSI_ARGS_((TkUndoAtom ** stack)); - -/* functions working on an undo/redo stack */ - -EXTERN TkUndoRedoStack * TkUndoInitStack _ANSI_ARGS_((Tcl_Interp * interp, - int maxdepth)); - -EXTERN void TkUndoSetDepth _ANSI_ARGS_((TkUndoRedoStack * stack, - int maxdepth)); - -EXTERN void TkUndoClearStacks _ANSI_ARGS_((TkUndoRedoStack * stack)); - -EXTERN void TkUndoFreeStack _ANSI_ARGS_((TkUndoRedoStack * stack)); - -EXTERN void TkUndoInsertUndoSeparator _ANSI_ARGS_((TkUndoRedoStack * stack)); - -EXTERN void TkUndoPushAction _ANSI_ARGS_((TkUndoRedoStack * stack, - Tcl_DString * actionScript, Tcl_DString * revertScript)); - -EXTERN int TkUndoRevert _ANSI_ARGS_((TkUndoRedoStack * stack)); - -EXTERN int TkUndoApply _ANSI_ARGS_((TkUndoRedoStack * stack)); - -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKUNDO */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkVMacro.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkVMacro.h deleted file mode 100644 index 7ba57d8154a..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkVMacro.h +++ /dev/null @@ -1,69 +0,0 @@ -#ifdef _LANG -#include "Lang.m" -#endif - -#if defined(_TK) -#include "tk.m" -#endif - -#if defined(_TK) || defined(_XLIB_H_) -# if !defined(_XLIB) && !defined(_XLIB_H_) -# include <X11/Xlib.h> -# endif -# ifdef _TKINTXLIBDECLS -# include "tkIntXlibDecls.m" -# else -# if defined(_XLIB_H) && !defined(_XLIB) -# define _XLIB -# endif -# include "Xlib.m" -# endif -#endif - -#ifdef _TKINT -#include "tkInt.m" -#endif -#ifdef _TKIMGPHOTO -#include "tkImgPhoto.m" -#endif -#ifdef _TIX -#include "tix.m" -#endif -#ifdef _TIXINT -#include "tixInt.m" -#endif -#ifdef _TKOPTION -#include "tkOption.m" -#endif -#ifdef _TIXIMGXPM -#include "tixImgXpm.m" -#endif -#ifdef _IMGINT -#include "imgInt.m" -#endif - -#ifdef _TCLDECLS -#include "tclDecls.m" -#endif - -#ifdef _TKDECLS -#include "tkDecls.m" -#endif - -#ifdef _TKPLATDECLS -#include "tkPlatDecls.m" -#endif - -#ifdef _TKINTDECLS -#include "tkIntDecls.m" -#endif - -#ifdef _TKINTPLATDECLS -#include "tkIntPlatDecls.m" -#endif - -#ifdef _TKEVENT -#include "tkEvent.m" -#endif - - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkWin.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkWin.h deleted file mode 100644 index ab1046deb33..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkWin.h +++ /dev/null @@ -1,60 +0,0 @@ -/* - * tkWin.h -- - * - * Declarations of public types and interfaces that are only - * available under Windows. - * - * Copyright (c) 1996-1997 by Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkWin.h,v 1.6 1999/04/16 01:51:48 stanton Exp $ - */ - -#ifndef _TKWIN -#define _TKWIN - -#ifndef _TK -#include "tk.h" -#endif - -#define WIN32_LEAN_AND_MEAN -#include <windows.h> -#undef WIN32_LEAN_AND_MEAN - -#ifdef BUILD_tk -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * The following messages are use to communicate between a Tk toplevel - * and its container window. - */ - -#define TK_CLAIMFOCUS (WM_USER) -#define TK_GEOMETRYREQ (WM_USER+1) -#define TK_ATTACHWINDOW (WM_USER+2) -#define TK_DETACHWINDOW (WM_USER+3) - - -typedef void Tcl_HandleProc (ClientData, HANDLE); - - -/* - *-------------------------------------------------------------- - * - * Exported procedures defined for the Windows platform only. - * - *-------------------------------------------------------------- - */ - -#include "tkPlatDecls.h" - -extern HINSTANCE TclWinGetTclInstance _ANSI_ARGS_((void)); - -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKWIN */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkWinDefault.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkWinDefault.h deleted file mode 100644 index c66a8525ed2..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkWinDefault.h +++ /dev/null @@ -1,525 +0,0 @@ -/* - * tkWinDefault.h -- - * - * This file defines the defaults for all options for all of - * the Tk widgets. - * - * Copyright (c) 1995-1997 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkWinDefault.h,v 1.16 2002/06/21 23:09:54 hobbs Exp $ - */ - -#ifndef _TKWINDEFAULT -#define _TKWINDEFAULT - -/* - * The definitions below provide symbolic names for the default colors. - * NORMAL_BG - Normal background color. - * ACTIVE_BG - Background color when widget is active. - * SELECT_BG - Background color for selected text. - * TROUGH - Background color for troughs in scales and scrollbars. - * INDICATOR - Color for indicator when button is selected. - * DISABLED - Foreground color when widget is disabled. - */ - -#define BLACK "Black" -#define WHITE "White" - -#define CTL_FONT "{MS Sans Serif} 8" -#define FIXED_FONT "{Courier New} 8" -#define NORMAL_BG "SystemButtonFace" -#define NORMAL_FG "SystemButtonText" -#define ACTIVE_BG NORMAL_BG -#define TEXT_FG "SystemWindowText" -#define SELECT_BG "SystemHighlight" -#define SELECT_FG "SystemHighlightText" -#define TROUGH "SystemScrollbar" -#define INDICATOR "SystemWindow" -#define DISABLED "SystemDisabledText" -#define MENU_BG "SystemMenu" -#define MENU_FG "SystemMenuText" -#define HIGHLIGHT "SystemWindowFrame" - -/* - * Defaults for labels, buttons, checkbuttons, and radiobuttons: - */ - -#define DEF_BUTTON_ANCHOR "center" -#define DEF_BUTTON_ACTIVE_BG_COLOR NORMAL_BG -#define DEF_BUTTON_ACTIVE_BG_MONO BLACK -#define DEF_BUTTON_ACTIVE_FG_COLOR NORMAL_FG -#define DEF_CHKRAD_ACTIVE_FG_COLOR TEXT_FG -#define DEF_BUTTON_ACTIVE_FG_MONO WHITE -#define DEF_BUTTON_BG_COLOR NORMAL_BG -#define DEF_BUTTON_BG_MONO WHITE -#define DEF_BUTTON_BITMAP "" -#define DEF_BUTTON_BORDER_WIDTH "2" -#define DEF_BUTTON_CURSOR "" -#define DEF_BUTTON_COMMAND "" -#define DEF_BUTTON_COMPOUND "none" -#define DEF_BUTTON_DEFAULT "disabled" -#define DEF_BUTTON_DISABLED_FG_COLOR DISABLED -#define DEF_BUTTON_DISABLED_FG_MONO "" -#define DEF_BUTTON_FG NORMAL_FG -#define DEF_CHKRAD_FG TEXT_FG -#define DEF_BUTTON_FONT CTL_FONT -#define DEF_BUTTON_HEIGHT "0" -#define DEF_BUTTON_HIGHLIGHT_BG_COLOR DEF_BUTTON_BG_COLOR -#define DEF_BUTTON_HIGHLIGHT_BG_MONO DEF_BUTTON_BG_MONO -#define DEF_BUTTON_HIGHLIGHT HIGHLIGHT -#define DEF_LABEL_HIGHLIGHT_WIDTH "0" -#define DEF_BUTTON_HIGHLIGHT_WIDTH "1" -#define DEF_BUTTON_IMAGE NULL -#define DEF_BUTTON_INDICATOR "1" -#define DEF_BUTTON_JUSTIFY "center" -#define DEF_BUTTON_OFF_VALUE "0" -#define DEF_BUTTON_ON_VALUE "1" -#define DEF_BUTTON_OVER_RELIEF "" -#define DEF_BUTTON_PADX "1" -#define DEF_LABCHKRAD_PADX "1" -#define DEF_BUTTON_PADY "1" -#define DEF_LABCHKRAD_PADY "1" -#define DEF_BUTTON_RELIEF "raised" -#define DEF_LABCHKRAD_RELIEF "flat" -#define DEF_BUTTON_REPEAT_DELAY "0" -#define DEF_BUTTON_REPEAT_INTERVAL "0" -#define DEF_BUTTON_SELECT_COLOR INDICATOR -#define DEF_BUTTON_SELECT_MONO BLACK -#define DEF_BUTTON_SELECT_IMAGE NULL -#define DEF_BUTTON_STATE "normal" -#define DEF_LABEL_TAKE_FOCUS "0" -#define DEF_BUTTON_TAKE_FOCUS NULL -#define DEF_BUTTON_TEXT "" -#define DEF_BUTTON_TEXT_VARIABLE "" -#define DEF_BUTTON_UNDERLINE "-1" -#define DEF_BUTTON_VALUE "" -#define DEF_BUTTON_WIDTH "0" -#define DEF_BUTTON_WRAP_LENGTH "0" -#define DEF_RADIOBUTTON_VARIABLE "selectedButton" -#define DEF_CHECKBUTTON_VARIABLE "" - -/* - * Defaults for canvases: - */ - -#define DEF_CANVAS_BG_COLOR NORMAL_BG -#define DEF_CANVAS_BG_MONO WHITE -#define DEF_CANVAS_BORDER_WIDTH "0" -#define DEF_CANVAS_CLOSE_ENOUGH "1" -#define DEF_CANVAS_CONFINE "1" -#define DEF_CANVAS_CURSOR "" -#define DEF_CANVAS_HEIGHT "7c" -#define DEF_CANVAS_HIGHLIGHT_BG NORMAL_BG -#define DEF_CANVAS_HIGHLIGHT HIGHLIGHT -#define DEF_CANVAS_HIGHLIGHT_WIDTH "2" -#define DEF_CANVAS_INSERT_BG NORMAL_FG -#define DEF_CANVAS_INSERT_BD_COLOR "0" -#define DEF_CANVAS_INSERT_BD_MONO "0" -#define DEF_CANVAS_INSERT_OFF_TIME "300" -#define DEF_CANVAS_INSERT_ON_TIME "600" -#define DEF_CANVAS_INSERT_WIDTH "2" -#define DEF_CANVAS_RELIEF "flat" -#define DEF_CANVAS_SCROLL_REGION "" -#define DEF_CANVAS_SELECT_COLOR SELECT_BG -#define DEF_CANVAS_SELECT_MONO BLACK -#define DEF_CANVAS_SELECT_BD_COLOR "1" -#define DEF_CANVAS_SELECT_BD_MONO "0" -#define DEF_CANVAS_SELECT_FG_COLOR SELECT_FG -#define DEF_CANVAS_SELECT_FG_MONO WHITE -#define DEF_CANVAS_TAKE_FOCUS NULL -#define DEF_CANVAS_WIDTH "10c" -#define DEF_CANVAS_X_SCROLL_CMD "" -#define DEF_CANVAS_X_SCROLL_INCREMENT "0" -#define DEF_CANVAS_Y_SCROLL_CMD "" -#define DEF_CANVAS_Y_SCROLL_INCREMENT "0" - -/* - * Defaults for entries: - */ - -#define DEF_ENTRY_BG_COLOR "SystemWindow" -#define DEF_ENTRY_BG_MONO WHITE -#define DEF_ENTRY_BORDER_WIDTH "2" -#define DEF_ENTRY_CURSOR "xterm" -#define DEF_ENTRY_DISABLED_BG_COLOR "SystemButtonFace" -#define DEF_ENTRY_DISABLED_BG_MONO WHITE -#define DEF_ENTRY_DISABLED_FG DISABLED -#define DEF_ENTRY_EXPORT_SELECTION "1" -#define DEF_ENTRY_FONT CTL_FONT -#define DEF_ENTRY_FG TEXT_FG -#define DEF_ENTRY_HIGHLIGHT_BG NORMAL_BG -#define DEF_ENTRY_HIGHLIGHT HIGHLIGHT -#define DEF_ENTRY_HIGHLIGHT_WIDTH "0" -#define DEF_ENTRY_INSERT_BG TEXT_FG -#define DEF_ENTRY_INSERT_BD_COLOR "0" -#define DEF_ENTRY_INSERT_BD_MONO "0" -#define DEF_ENTRY_INSERT_OFF_TIME "300" -#define DEF_ENTRY_INSERT_ON_TIME "600" -#define DEF_ENTRY_INSERT_WIDTH "2" -#define DEF_ENTRY_JUSTIFY "left" -#define DEF_ENTRY_READONLY_BG_COLOR "SystemButtonFace" -#define DEF_ENTRY_READONLY_BG_MONO WHITE -#define DEF_ENTRY_RELIEF "sunken" -#define DEF_ENTRY_SCROLL_COMMAND "" -#define DEF_ENTRY_SELECT_COLOR SELECT_BG -#define DEF_ENTRY_SELECT_MONO BLACK -#define DEF_ENTRY_SELECT_BD_COLOR "0" -#define DEF_ENTRY_SELECT_BD_MONO "0" -#define DEF_ENTRY_SELECT_FG_COLOR SELECT_FG -#define DEF_ENTRY_SELECT_FG_MONO WHITE -#define DEF_ENTRY_SHOW NULL -#define DEF_ENTRY_STATE "normal" -#define DEF_ENTRY_TAKE_FOCUS NULL -#define DEF_ENTRY_TEXT_VARIABLE "" -#define DEF_ENTRY_WIDTH "20" - -/* - * Defaults for frames: - */ - -#define DEF_FRAME_BG_COLOR NORMAL_BG -#define DEF_FRAME_BG_MONO WHITE -#define DEF_FRAME_BORDER_WIDTH "0" -#define DEF_FRAME_CLASS "Frame" -#define DEF_FRAME_COLORMAP "" -#define DEF_FRAME_CONTAINER "0" -#define DEF_FRAME_CURSOR "" -#define DEF_FRAME_HEIGHT "0" -#define DEF_FRAME_HIGHLIGHT_BG NORMAL_BG -#define DEF_FRAME_HIGHLIGHT HIGHLIGHT -#define DEF_FRAME_HIGHLIGHT_WIDTH "0" -#define DEF_FRAME_PADX "0" -#define DEF_FRAME_PADY "0" -#define DEF_FRAME_RELIEF "flat" -#define DEF_FRAME_TAKE_FOCUS "0" -#define DEF_FRAME_VISUAL "" -#define DEF_FRAME_WIDTH "0" - -/* - * Defaults for labelframes: - */ - -#define DEF_LABELFRAME_BORDER_WIDTH "2" -#define DEF_LABELFRAME_CLASS "Labelframe" -#define DEF_LABELFRAME_RELIEF "groove" -#define DEF_LABELFRAME_FG NORMAL_FG -#define DEF_LABELFRAME_FONT CTL_FONT -#define DEF_LABELFRAME_TEXT "" -#define DEF_LABELFRAME_LABELANCHOR "nw" - -/* - * Defaults for listboxes: - */ - -#define DEF_LISTBOX_ACTIVE_STYLE "underline" -#define DEF_LISTBOX_BG_COLOR "SystemWindow" -#define DEF_LISTBOX_BG_MONO WHITE -#define DEF_LISTBOX_BORDER_WIDTH "2" -#define DEF_LISTBOX_CURSOR "" -#define DEF_LISTBOX_DISABLED_FG DISABLED -#define DEF_LISTBOX_EXPORT_SELECTION "1" -#define DEF_LISTBOX_FONT CTL_FONT -#define DEF_LISTBOX_FG NORMAL_FG -#define DEF_LISTBOX_HEIGHT "10" -#define DEF_LISTBOX_HIGHLIGHT_BG NORMAL_BG -#define DEF_LISTBOX_HIGHLIGHT HIGHLIGHT -#define DEF_LISTBOX_HIGHLIGHT_WIDTH "1" -#define DEF_LISTBOX_RELIEF "sunken" -#define DEF_LISTBOX_SCROLL_COMMAND "" -#define DEF_LISTBOX_LIST_VARIABLE "" -#define DEF_LISTBOX_SELECT_COLOR SELECT_BG -#define DEF_LISTBOX_SELECT_MONO BLACK -#define DEF_LISTBOX_SELECT_BD "0" -#define DEF_LISTBOX_SELECT_FG_COLOR SELECT_FG -#define DEF_LISTBOX_SELECT_FG_MONO WHITE -#define DEF_LISTBOX_SELECT_MODE "browse" -#define DEF_LISTBOX_SET_GRID "0" -#define DEF_LISTBOX_STATE "normal" -#define DEF_LISTBOX_TAKE_FOCUS NULL -#define DEF_LISTBOX_WIDTH "20" - -/* - * Defaults for individual entries of menus: - */ - -#define DEF_MENU_ENTRY_ACTIVE_BG NULL -#define DEF_MENU_ENTRY_ACTIVE_FG NULL -#define DEF_MENU_ENTRY_ACCELERATOR NULL -#define DEF_MENU_ENTRY_BG NULL -#define DEF_MENU_ENTRY_BITMAP None -#define DEF_MENU_ENTRY_COLUMN_BREAK "0" -#define DEF_MENU_ENTRY_COMMAND NULL -#define DEF_MENU_ENTRY_COMPOUND "none" -#define DEF_MENU_ENTRY_FG NULL -#define DEF_MENU_ENTRY_FONT NULL -#define DEF_MENU_ENTRY_HIDE_MARGIN "0" -#define DEF_MENU_ENTRY_IMAGE NULL -#define DEF_MENU_ENTRY_INDICATOR "1" -#define DEF_MENU_ENTRY_LABEL NULL -#define DEF_MENU_ENTRY_MENU NULL -#define DEF_MENU_ENTRY_OFF_VALUE "0" -#define DEF_MENU_ENTRY_ON_VALUE "1" -#define DEF_MENU_ENTRY_SELECT_IMAGE NULL -#define DEF_MENU_ENTRY_STATE "normal" -#define DEF_MENU_ENTRY_VALUE NULL -#define DEF_MENU_ENTRY_CHECK_VARIABLE NULL -#define DEF_MENU_ENTRY_RADIO_VARIABLE "selectedButton" -#define DEF_MENU_ENTRY_SELECT NULL -#define DEF_MENU_ENTRY_UNDERLINE "-1" - -/* - * Defaults for menus overall: - */ - -#define DEF_MENU_ACTIVE_BG_COLOR SELECT_BG -#define DEF_MENU_ACTIVE_BG_MONO BLACK -#define DEF_MENU_ACTIVE_BORDER_WIDTH "0" -#define DEF_MENU_ACTIVE_FG_COLOR SELECT_FG -#define DEF_MENU_ACTIVE_FG_MONO WHITE -#define DEF_MENU_BG_COLOR MENU_BG -#define DEF_MENU_BG_MONO WHITE -#define DEF_MENU_BORDER_WIDTH "0" -#define DEF_MENU_CURSOR "arrow" -#define DEF_MENU_DISABLED_FG_COLOR DISABLED -#define DEF_MENU_DISABLED_FG_MONO "" -#define DEF_MENU_FONT CTL_FONT -#define DEF_MENU_FG MENU_FG -#define DEF_MENU_POST_COMMAND "" -#define DEF_MENU_RELIEF "flat" -#define DEF_MENU_SELECT_COLOR MENU_FG -#define DEF_MENU_SELECT_MONO BLACK -#define DEF_MENU_TAKE_FOCUS "0" -#define DEF_MENU_TEAROFF "1" -#define DEF_MENU_TEAROFF_CMD NULL -#define DEF_MENU_TITLE "" -#define DEF_MENU_TYPE "normal" - -/* - * Defaults for menubuttons: - */ - -#define DEF_MENUBUTTON_ANCHOR "center" -#define DEF_MENUBUTTON_ACTIVE_BG_COLOR ACTIVE_BG -#define DEF_MENUBUTTON_ACTIVE_BG_MONO BLACK -#define DEF_MENUBUTTON_ACTIVE_FG_COLOR NORMAL_FG -#define DEF_MENUBUTTON_ACTIVE_FG_MONO WHITE -#define DEF_MENUBUTTON_BG_COLOR NORMAL_BG -#define DEF_MENUBUTTON_BG_MONO WHITE -#define DEF_MENUBUTTON_BITMAP "" -#define DEF_MENUBUTTON_BORDER_WIDTH "2" -#define DEF_MENUBUTTON_CURSOR "" -#define DEF_MENUBUTTON_DIRECTION "below" -#define DEF_MENUBUTTON_DISABLED_FG_COLOR DISABLED -#define DEF_MENUBUTTON_DISABLED_FG_MONO "" -#define DEF_MENUBUTTON_FONT CTL_FONT -#define DEF_MENUBUTTON_FG NORMAL_FG -#define DEF_MENUBUTTON_HEIGHT "0" -#define DEF_MENUBUTTON_HIGHLIGHT_BG_COLOR DEF_MENUBUTTON_BG_COLOR -#define DEF_MENUBUTTON_HIGHLIGHT_BG_MONO DEF_MENUBUTTON_BG_MONO -#define DEF_MENUBUTTON_HIGHLIGHT HIGHLIGHT -#define DEF_MENUBUTTON_HIGHLIGHT_WIDTH "0" -#define DEF_MENUBUTTON_IMAGE NULL -#define DEF_MENUBUTTON_INDICATOR "0" -#define DEF_MENUBUTTON_JUSTIFY "center" -#define DEF_MENUBUTTON_MENU "" -#define DEF_MENUBUTTON_PADX "4p" -#define DEF_MENUBUTTON_PADY "3p" -#define DEF_MENUBUTTON_RELIEF "flat" -#define DEF_MENUBUTTON_STATE "normal" -#define DEF_MENUBUTTON_TAKE_FOCUS "0" -#define DEF_MENUBUTTON_TEXT "" -#define DEF_MENUBUTTON_TEXT_VARIABLE "" -#define DEF_MENUBUTTON_UNDERLINE "-1" -#define DEF_MENUBUTTON_WIDTH "0" -#define DEF_MENUBUTTON_WRAP_LENGTH "0" - -/* - * Defaults for messages: - */ - -#define DEF_MESSAGE_ANCHOR "center" -#define DEF_MESSAGE_ASPECT "150" -#define DEF_MESSAGE_BG_COLOR NORMAL_BG -#define DEF_MESSAGE_BG_MONO WHITE -#define DEF_MESSAGE_BORDER_WIDTH "2" -#define DEF_MESSAGE_CURSOR "" -#define DEF_MESSAGE_FG NORMAL_FG -#define DEF_MESSAGE_FONT CTL_FONT -#define DEF_MESSAGE_HIGHLIGHT_BG NORMAL_BG -#define DEF_MESSAGE_HIGHLIGHT HIGHLIGHT -#define DEF_MESSAGE_HIGHLIGHT_WIDTH "0" -#define DEF_MESSAGE_JUSTIFY "left" -#define DEF_MESSAGE_PADX "-1" -#define DEF_MESSAGE_PADY "-1" -#define DEF_MESSAGE_RELIEF "flat" -#define DEF_MESSAGE_TAKE_FOCUS "0" -#define DEF_MESSAGE_TEXT "" -#define DEF_MESSAGE_TEXT_VARIABLE "" -#define DEF_MESSAGE_WIDTH "0" - -/* - * Defaults for panedwindows - */ - -#define DEF_PANEDWINDOW_BG_COLOR NORMAL_BG -#define DEF_PANEDWINDOW_BG_MONO WHITE -#define DEF_PANEDWINDOW_BORDERWIDTH "2" -#define DEF_PANEDWINDOW_CURSOR "" -#define DEF_PANEDWINDOW_HANDLEPAD "8" -#define DEF_PANEDWINDOW_HANDLESIZE "8" -#define DEF_PANEDWINDOW_HEIGHT "" -#define DEF_PANEDWINDOW_OPAQUERESIZE "0" -#define DEF_PANEDWINDOW_ORIENT "horizontal" -#define DEF_PANEDWINDOW_RELIEF "flat" -#define DEF_PANEDWINDOW_SASHCURSOR "" -#define DEF_PANEDWINDOW_SASHPAD "2" -#define DEF_PANEDWINDOW_SASHRELIEF "raised" -#define DEF_PANEDWINDOW_SASHWIDTH "2" -#define DEF_PANEDWINDOW_SHOWHANDLE "0" -#define DEF_PANEDWINDOW_WIDTH "" - -/* - * Defaults for panedwindow panes - */ - -#define DEF_PANEDWINDOW_PANE_AFTER "" -#define DEF_PANEDWINDOW_PANE_BEFORE "" -#define DEF_PANEDWINDOW_PANE_HEIGHT "" -#define DEF_PANEDWINDOW_PANE_MINSIZE "0" -#define DEF_PANEDWINDOW_PANE_PADX "0" -#define DEF_PANEDWINDOW_PANE_PADY "0" -#define DEF_PANEDWINDOW_PANE_STICKY "nsew" -#define DEF_PANEDWINDOW_PANE_WIDTH "" - -/* - * Defaults for scales: - */ - -#define DEF_SCALE_ACTIVE_BG_COLOR ACTIVE_BG -#define DEF_SCALE_ACTIVE_BG_MONO BLACK -#define DEF_SCALE_BG_COLOR NORMAL_BG -#define DEF_SCALE_BG_MONO WHITE -#define DEF_SCALE_BIG_INCREMENT "0" -#define DEF_SCALE_BORDER_WIDTH "2" -#define DEF_SCALE_COMMAND "" -#define DEF_SCALE_CURSOR "" -#define DEF_SCALE_DIGITS "0" -#define DEF_SCALE_FONT CTL_FONT -#define DEF_SCALE_FG_COLOR NORMAL_FG -#define DEF_SCALE_FG_MONO BLACK -#define DEF_SCALE_FROM "0" -#define DEF_SCALE_HIGHLIGHT_BG_COLOR DEF_SCALE_BG_COLOR -#define DEF_SCALE_HIGHLIGHT_BG_MONO DEF_SCALE_BG_MONO -#define DEF_SCALE_HIGHLIGHT HIGHLIGHT -#define DEF_SCALE_HIGHLIGHT_WIDTH "2" -#define DEF_SCALE_LABEL "" -#define DEF_SCALE_LENGTH "100" -#define DEF_SCALE_ORIENT "vertical" -#define DEF_SCALE_RELIEF "flat" -#define DEF_SCALE_REPEAT_DELAY "300" -#define DEF_SCALE_REPEAT_INTERVAL "100" -#define DEF_SCALE_RESOLUTION "1" -#define DEF_SCALE_TROUGH_COLOR TROUGH -#define DEF_SCALE_TROUGH_MONO WHITE -#define DEF_SCALE_SHOW_VALUE "1" -#define DEF_SCALE_SLIDER_LENGTH "10m" -#define DEF_SCALE_SLIDER_RELIEF "raised" -#define DEF_SCALE_STATE "normal" -#define DEF_SCALE_TAKE_FOCUS NULL -#define DEF_SCALE_TICK_INTERVAL "0" -#define DEF_SCALE_TO "100" -#define DEF_SCALE_VARIABLE "" -#define DEF_SCALE_WIDTH "5m" - -/* - * Defaults for scrollbars: - */ - -#define DEF_SCROLLBAR_ACTIVE_BG_COLOR ACTIVE_BG -#define DEF_SCROLLBAR_ACTIVE_BG_MONO BLACK -#define DEF_SCROLLBAR_ACTIVE_RELIEF "raised" -#define DEF_SCROLLBAR_BG_COLOR NORMAL_BG -#define DEF_SCROLLBAR_BG_MONO WHITE -#define DEF_SCROLLBAR_BORDER_WIDTH "0" -#define DEF_SCROLLBAR_COMMAND "" -#define DEF_SCROLLBAR_CURSOR "" -#define DEF_SCROLLBAR_EL_BORDER_WIDTH "-1" -#define DEF_SCROLLBAR_HIGHLIGHT_BG NORMAL_BG -#define DEF_SCROLLBAR_HIGHLIGHT HIGHLIGHT -#define DEF_SCROLLBAR_HIGHLIGHT_WIDTH "0" -#define DEF_SCROLLBAR_JUMP "0" -#define DEF_SCROLLBAR_ORIENT "vertical" -#define DEF_SCROLLBAR_RELIEF "sunken" -#define DEF_SCROLLBAR_REPEAT_DELAY "300" -#define DEF_SCROLLBAR_REPEAT_INTERVAL "100" -#define DEF_SCROLLBAR_TAKE_FOCUS NULL -#define DEF_SCROLLBAR_TROUGH_COLOR TROUGH -#define DEF_SCROLLBAR_TROUGH_MONO WHITE -#define DEF_SCROLLBAR_WIDTH "4m" - -/* - * Defaults for texts: - */ - -#define DEF_TEXT_AUTO_SEPARATORS "1" -#define DEF_TEXT_BG_COLOR "SystemWindow" -#define DEF_TEXT_BG_MONO WHITE -#define DEF_TEXT_BORDER_WIDTH "2" -#define DEF_TEXT_CURSOR "xterm" -#define DEF_TEXT_FG TEXT_FG -#define DEF_TEXT_EXPORT_SELECTION "1" -#define DEF_TEXT_FONT FIXED_FONT -#define DEF_TEXT_HEIGHT "24" -#define DEF_TEXT_HIGHLIGHT_BG NORMAL_BG -#define DEF_TEXT_HIGHLIGHT HIGHLIGHT -#define DEF_TEXT_HIGHLIGHT_WIDTH "0" -#define DEF_TEXT_INSERT_BG TEXT_FG -#define DEF_TEXT_INSERT_BD_COLOR "0" -#define DEF_TEXT_INSERT_BD_MONO "0" -#define DEF_TEXT_INSERT_OFF_TIME "300" -#define DEF_TEXT_INSERT_ON_TIME "600" -#define DEF_TEXT_INSERT_WIDTH "2" -#define DEF_TEXT_MAX_UNDO "0" -#define DEF_TEXT_PADX "1" -#define DEF_TEXT_PADY "1" -#define DEF_TEXT_RELIEF "sunken" -#define DEF_TEXT_SELECT_COLOR SELECT_BG -#define DEF_TEXT_SELECT_MONO BLACK -#define DEF_TEXT_SELECT_BD_COLOR "0" -#define DEF_TEXT_SELECT_BD_MONO "0" -#define DEF_TEXT_SELECT_FG_COLOR SELECT_FG -#define DEF_TEXT_SELECT_FG_MONO WHITE -#define DEF_TEXT_SELECT_RELIEF "flat" -#define DEF_TEXT_SET_GRID "0" -#define DEF_TEXT_SPACING1 "0" -#define DEF_TEXT_SPACING2 "0" -#define DEF_TEXT_SPACING3 "0" -#define DEF_TEXT_STATE "normal" -#define DEF_TEXT_TABS "" -#define DEF_TEXT_TAKE_FOCUS NULL -#define DEF_TEXT_UNDO "0" -#define DEF_TEXT_WIDTH "80" -#define DEF_TEXT_WRAP "char" -#define DEF_TEXT_XSCROLL_COMMAND "" -#define DEF_TEXT_YSCROLL_COMMAND "" - -/* - * Defaults for canvas text: - */ - -#define DEF_CANVTEXT_FONT CTL_FONT - -/* - * Defaults for toplevels (most of the defaults for frames also apply - * to toplevels): - */ - -#define DEF_TOPLEVEL_CLASS "Toplevel" -#define DEF_TOPLEVEL_MENU "" -#define DEF_TOPLEVEL_SCREEN "" -#define DEF_TOPLEVEL_USE "" - -#endif /* _TKWINDEFAULT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkWinInt.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkWinInt.h deleted file mode 100644 index 267cb69f6d4..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkWinInt.h +++ /dev/null @@ -1,211 +0,0 @@ -/* - * tkWinInt.h -- - * - * This file contains declarations that are shared among the - * Windows-specific parts of Tk, but aren't used by the rest of - * Tk. - * - * Copyright (c) 1995-1997 Sun Microsystems, Inc. - * Copyright (c) 1998-2000 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkWinInt.h,v 1.14 2003/02/26 02:47:05 hobbs Exp $ - */ - -#ifndef _TKWININT -#define _TKWININT - -/* - * Include platform specific public interfaces. - */ - -#ifndef _TKINT -#include "tkInt.h" -#endif - -#ifndef _TKWIN -#include "tkWin.h" -#endif - -#ifndef _TKPORT -#include "tkPort.h" -#endif - - -/* - * Define constants missing from older Win32 SDK header files. - */ - -#ifndef WS_EX_TOOLWINDOW -#define WS_EX_TOOLWINDOW 0x00000080L -#endif - -/* - * The TkWinDCState is used to save the state of a device context - * so that it can be restored later. - */ - -typedef struct TkWinDCState { - HPALETTE palette; - int bkmode; -} TkWinDCState; - -/* - * The TkWinDrawable is the internal implementation of an X Drawable (either - * a Window or a Pixmap). The following constants define the valid Drawable - * types. - */ - -#define TWD_BITMAP 1 -#define TWD_WINDOW 2 -#define TWD_WINDC 3 - -typedef struct { - int type; - HWND handle; - TkWindow *winPtr; -} TkWinWindow; - -typedef struct { - int type; - HBITMAP handle; - Colormap colormap; - int depth; -} TkWinBitmap; - -typedef struct { - int type; - HDC hdc; -}TkWinDC; - -typedef union { - int type; - TkWinWindow window; - TkWinBitmap bitmap; - TkWinDC winDC; -} TkWinDrawable; - -/* - * The following macros are used to retrieve internal values from a Drawable. - */ - -#define TkWinGetHWND(w) (((TkWinDrawable *) w)->window.handle) -#define TkWinGetWinPtr(w) (((TkWinDrawable *) w)->window.winPtr) -#define TkWinGetHBITMAP(w) (((TkWinDrawable *) w)->bitmap.handle) -#define TkWinGetColormap(w) (((TkWinDrawable *) w)->bitmap.colormap) -#define TkWinGetHDC(w) (((TkWinDrawable *) w)->winDC.hdc) - -/* - * The following structure is used to encapsulate palette information. - */ - -typedef struct { - HPALETTE palette; /* Palette handle used when drawing. */ - UINT size; /* Number of entries in the palette. */ - int stale; /* 1 if palette needs to be realized, - * otherwise 0. If the palette is stale, - * then an idle handler is scheduled to - * realize the palette. */ - Tcl_HashTable refCounts; /* Hash table of palette entry reference counts - * indexed by pixel value. */ -} TkWinColormap; - -/* - * The following macro retrieves the Win32 palette from a colormap. - */ - -#define TkWinGetPalette(colormap) (((TkWinColormap *) colormap)->palette) - -/* - * The following macros define the class names for Tk Window types. - */ - -#define TK_WIN_TOPLEVEL_CLASS_NAME "TkTopLevel" -#define TK_WIN_CHILD_CLASS_NAME "TkChild" -#define TK_WIN_OWNDC_CLASS_NAME "TkOwnDC" - -/* - * The following variable is a translation table between X gc functions and - * Win32 raster and BitBlt op modes. - */ - -extern int tkpWinRopModes[]; -extern int tkpWinBltModes[]; - -/* - * The following defines are used with TkWinGetBorderPixels to get the - * extra 2 border colors from a Tk_3DBorder. - */ - -#define TK_3D_LIGHT2 TK_3D_DARK_GC+1 -#define TK_3D_DARK2 TK_3D_DARK_GC+2 - -/* - * Internal procedures used by more than one source file. - */ - -#include "tkIntPlatDecls.h" - -/* - * We need to specially add the TkWinChildProc because of the special - * prototype it has (doesn't fit into stubs schema) - */ -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -EXTERN LRESULT CALLBACK TkWinChildProc _ANSI_ARGS_((HWND hwnd, UINT message, - WPARAM wParam, LPARAM lParam)); - -/* - * Special proc needed as tsd accessor function between - * tkWinX.c:GenerateXEvent and tkWinClipboard.c:UpdateClipboard - */ -EXTERN void TkWinUpdatingClipboard(int mode); - -/* - * The following structure keeps track of whether we are using the - * multi-byte or the wide-character interfaces to the operating system. - * System calls should be made through the following function table. - * - * While some system calls need to use this A/W jump-table, it is not - * necessary for all calls to do it, which is why you won't see this - * used throughout the Tk code, but only in key areas. -- hobbs - */ - -typedef struct TkWinProcs { - int useWide; - LRESULT (WINAPI *callWindowProc)(WNDPROC lpPrevWndFunc, HWND hWnd, - UINT Msg, WPARAM wParam, LPARAM lParam); - LRESULT (WINAPI *defWindowProc)(HWND hWnd, UINT Msg, WPARAM wParam, - LPARAM lParam); - ATOM (WINAPI *registerClass)(CONST WNDCLASS *lpWndClass); - BOOL (WINAPI *setWindowText)(HWND hWnd, LPCTSTR lpString); - HWND (WINAPI *createWindowEx)(DWORD dwExStyle, LPCTSTR lpClassName, - LPCTSTR lpWindowName, DWORD dwStyle, int x, int y, - int nWidth, int nHeight, HWND hWndParent, HMENU hMenu, - HINSTANCE hInstance, LPVOID lpParam); - BOOL (WINAPI *insertMenu)(HMENU hMenu, UINT uPosition, UINT uFlags, - UINT uIDNewItem, LPCTSTR lpNewItem); -} TkWinProcs; - -EXTERN TkWinProcs *tkWinProcs; - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -/* - * The following allows us to cache these encoding for multiple functions. - */ - - -extern Tcl_Encoding TkWinGetKeyInputEncoding _ANSI_ARGS_((void)); -extern Tcl_Encoding TkWinGetUnicodeEncoding _ANSI_ARGS_((void)); - -extern void LangNoteDC _ANSI_ARGS_((HDC dc,int inc)); - -#endif /* _TKWININT */ - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkWinPort.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkWinPort.h deleted file mode 100644 index 3c95b5d5d10..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkWinPort.h +++ /dev/null @@ -1,156 +0,0 @@ -/* - * tkWinPort.h -- - * - * This header file handles porting issues that occur because of - * differences between Windows and Unix. It should be the only - * file that contains #ifdefs to handle different flavors of OS. - * - * Copyright (c) 1995-1996 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkWinPort.h,v 1.9 2002/10/19 02:10:20 hobbs Exp $ - */ - -#ifndef _WINPORT -#define _WINPORT -#define NEED_REAL_STDIO -#include <X11/Xlib.h> -#include <X11/cursorfont.h> -#include <X11/keysym.h> -#include <X11/Xatom.h> -#include <X11/Xutil.h> - -#include <errno.h> -#include <ctype.h> -#include <math.h> -#include <stdlib.h> -#include <string.h> -#include <limits.h> -#include <fcntl.h> -#include <io.h> -#ifdef __EMX__ -# include <sys/types.h> -#endif - -/* - * Need to block out this include for building extensions with MetroWerks - * compiler for Win32. - */ - -#ifndef __MWERKS__ -#include <sys/stat.h> -#endif - -#include <time.h> -#ifdef __CYGWIN__ -# define _T(x) L##x -#else -# include <tchar.h> -#endif - -#ifdef _MSC_VER -# define hypot _hypot -#else /* _MSC_VER */ -# ifdef __EMX__ -# define strncasecmp strnicmp -# endif -#endif /* _MSC_VER */ - -#ifndef __GNUC__ -# define strncasecmp strnicmp -# define strcasecmp stricmp -#endif - -#define NBBY 8 - -#ifndef OPEN_MAX -#define OPEN_MAX 32 -#endif - -/* - * The following define causes Tk to use its internal keysym hash table - */ - -#define REDO_KEYSYM_LOOKUP - -/* - * The following macro checks to see whether there is buffered - * input data available for a stdio FILE. - */ - -#ifdef _MSC_VER -# define TK_READ_DATA_PENDING(f) ((f)->_cnt > 0) -#else /* _MSC_VER */ -# define TK_READ_DATA_PENDING(f) ((f)->level > 0) -#endif /* _MSC_VER */ - -/* - * The following stubs implement various calls that don't do anything - * under Windows. - */ - -#define TkFreeWindowId(dispPtr,w) -#define TkInitXId(dispPtr) -#define TkpCmapStressed(tkwin,colormap) (0) -#define XFlush(display) -#define XGrabServer(display) -#define XUngrabServer(display) -#define TkpSync(display) - -/* - * The following functions are implemented as macros under Windows. - */ - -#define XFree(data) {if ((data) != NULL) ckfree((char *) (data));} -#define XNoOp(display) {display->request++;} -#define XSynchronize(display, bool) {display->request++;} -#define XSync(display, bool) {display->request++;} -#define XVisualIDFromVisual(visual) (visual->visualid) - -/* Additional translations needed for Tk extensions (Pixmap). */ - -#define XPutImage(display, dr, gc, i, a, b, c, d, e, f) \ - TkPutImage(NULL, 0, display, dr, gc, i, a, b, c, d, e, f) -#define XDefaultVisual(display, screen) ((screen)->root_visual) -#define XDefaultScreen(display) ((display)->screens) -#define XDefaultColormap(display, screen) ((screen)->cmap) -#define XDefaultDepth(display, screen) ((screen)->root_depth) - -/* - * The following Tk functions are implemented as macros under Windows. - */ - -#define TkpGetPixel(p) (((((p)->red >> 8) & 0xff) \ - | ((p)->green & 0xff00) | (((p)->blue << 8) & 0xff0000)) | 0x20000000) - -/* - * These calls implement native bitmaps which are not currently - * supported under Windows. The macros eliminate the calls. - */ - -#define TkpDefineNativeBitmaps() -#define TkpCreateNativeBitmap(display, source) None -#define TkpGetNativeAppBitmap(display, name, w, h) None - -/* - * Define timezone for gettimeofday. - */ -#if 0 -struct timezone { - int tz_minuteswest; - int tz_dsttime; -}; -#else -#undef timezone -struct timezone; -struct timeval; -#endif - -#ifndef _TCLINT -#include <tclInt.h> -#endif - - -#endif /* _WINPORT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkXrm.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkXrm.h deleted file mode 100644 index 041d67b400d..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tkXrm.h +++ /dev/null @@ -1,12 +0,0 @@ -EXTERN void Xrm_AddOption _ANSI_ARGS_((Tk_Window tkwin, CONST char *name, - CONST char *value, int priority)); -EXTERN Tk_Uid Xrm_GetOption _ANSI_ARGS_((Tk_Window tkwin, CONST char *name, - CONST char *className)); -EXTERN int Xrm_OptionCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj *CONST args[])); -EXTERN void XrmOptionClassChanged _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN void XrmOptionDeadWindow _ANSI_ARGS_((TkWindow *winPtr)); -EXTERN void Xrm_import _ANSI_ARGS_((char *class)); - - - diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tk_f.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tk_f.h deleted file mode 100644 index 603919b64f9..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/tk_f.h +++ /dev/null @@ -1,14 +0,0 @@ -#ifndef TK_VT -#define TK_VT -typedef struct TkVtab -{ - unsigned (*tabSize)(void); -#define VFUNC(type,name,mem,args) type (*mem) args; -#define VVAR(type,name,mem) type (*mem); -#include "tk.t" -#undef VFUNC -#undef VVAR -} TkVtab; -extern TkVtab *TkVptr; -extern TkVtab *TkVGet(void); -#endif /* TK_VT */ diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/xbytes.h b/Master/tlpkg/tlperl/lib/Tk/pTk/xbytes.h deleted file mode 100644 index 46be124d92d..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/pTk/xbytes.h +++ /dev/null @@ -1,58 +0,0 @@ -/* - * xbytes.h -- - * - * Declaration of table to reverse bit order of bytes. - * - * Copyright (c) 1995 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: xbytes.h,v 1.2 1998/09/14 18:24:02 stanton Exp $ - */ - -#ifndef _XBYTES -#define _XBYTES - -/* - * The bits in a byte can be reversed so the least significant becomes - * the most significant by indexing xBitReverseTable with the byte - * to be reversed. - */ - -static unsigned char xBitReverseTable[256] = { - 0x00, 0x80, 0x40, 0xc0, 0x20, 0xa0, 0x60, 0xe0, - 0x10, 0x90, 0x50, 0xd0, 0x30, 0xb0, 0x70, 0xf0, - 0x08, 0x88, 0x48, 0xc8, 0x28, 0xa8, 0x68, 0xe8, - 0x18, 0x98, 0x58, 0xd8, 0x38, 0xb8, 0x78, 0xf8, - 0x04, 0x84, 0x44, 0xc4, 0x24, 0xa4, 0x64, 0xe4, - 0x14, 0x94, 0x54, 0xd4, 0x34, 0xb4, 0x74, 0xf4, - 0x0c, 0x8c, 0x4c, 0xcc, 0x2c, 0xac, 0x6c, 0xec, - 0x1c, 0x9c, 0x5c, 0xdc, 0x3c, 0xbc, 0x7c, 0xfc, - 0x02, 0x82, 0x42, 0xc2, 0x22, 0xa2, 0x62, 0xe2, - 0x12, 0x92, 0x52, 0xd2, 0x32, 0xb2, 0x72, 0xf2, - 0x0a, 0x8a, 0x4a, 0xca, 0x2a, 0xaa, 0x6a, 0xea, - 0x1a, 0x9a, 0x5a, 0xda, 0x3a, 0xba, 0x7a, 0xfa, - 0x06, 0x86, 0x46, 0xc6, 0x26, 0xa6, 0x66, 0xe6, - 0x16, 0x96, 0x56, 0xd6, 0x36, 0xb6, 0x76, 0xf6, - 0x0e, 0x8e, 0x4e, 0xce, 0x2e, 0xae, 0x6e, 0xee, - 0x1e, 0x9e, 0x5e, 0xde, 0x3e, 0xbe, 0x7e, 0xfe, - 0x01, 0x81, 0x41, 0xc1, 0x21, 0xa1, 0x61, 0xe1, - 0x11, 0x91, 0x51, 0xd1, 0x31, 0xb1, 0x71, 0xf1, - 0x09, 0x89, 0x49, 0xc9, 0x29, 0xa9, 0x69, 0xe9, - 0x19, 0x99, 0x59, 0xd9, 0x39, 0xb9, 0x79, 0xf9, - 0x05, 0x85, 0x45, 0xc5, 0x25, 0xa5, 0x65, 0xe5, - 0x15, 0x95, 0x55, 0xd5, 0x35, 0xb5, 0x75, 0xf5, - 0x0d, 0x8d, 0x4d, 0xcd, 0x2d, 0xad, 0x6d, 0xed, - 0x1d, 0x9d, 0x5d, 0xdd, 0x3d, 0xbd, 0x7d, 0xfd, - 0x03, 0x83, 0x43, 0xc3, 0x23, 0xa3, 0x63, 0xe3, - 0x13, 0x93, 0x53, 0xd3, 0x33, 0xb3, 0x73, 0xf3, - 0x0b, 0x8b, 0x4b, 0xcb, 0x2b, 0xab, 0x6b, 0xeb, - 0x1b, 0x9b, 0x5b, 0xdb, 0x3b, 0xbb, 0x7b, 0xfb, - 0x07, 0x87, 0x47, 0xc7, 0x27, 0xa7, 0x67, 0xe7, - 0x17, 0x97, 0x57, 0xd7, 0x37, 0xb7, 0x77, 0xf7, - 0x0f, 0x8f, 0x4f, 0xcf, 0x2f, 0xaf, 0x6f, 0xef, - 0x1f, 0x9f, 0x5f, 0xdf, 0x3f, 0xbf, 0x7f, 0xff, -}; - -#endif /* _XBYTES */ |