summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl.straw/lib/Tk/pTk/tkEvent.h
blob: 9787af4425e806f8831f4690fd1b8bdfc3db6f0b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
#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 */