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
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
|
/*
* 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.1.4.1 1999/03/09 18:57:11 redman 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));
/* 6 */
EXTERN int Tk_DdeObjCmd _ANSI_ARGS_((ClientData clientData,
Tcl_Interp * interp, int objc,
Tcl_Obj *CONST objv[]));
#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 */
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 */
int (*tk_DdeObjCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 6 */
#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 */
} TkPlatStubs;
extern TkPlatStubs *tkPlatStubsPtr;
#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS)
/*
* Inline function declarations:
*/
#ifdef __WIN32__
#ifndef Tk_AttachHWND
#define Tk_AttachHWND(tkwin, hwnd) \
(tkPlatStubsPtr->tk_AttachHWND)(tkwin, hwnd) /* 0 */
#endif
#ifndef Tk_GetHINSTANCE
#define Tk_GetHINSTANCE() \
(tkPlatStubsPtr->tk_GetHINSTANCE)() /* 1 */
#endif
#ifndef Tk_GetHWND
#define Tk_GetHWND(window) \
(tkPlatStubsPtr->tk_GetHWND)(window) /* 2 */
#endif
#ifndef Tk_HWNDToWindow
#define Tk_HWNDToWindow(hwnd) \
(tkPlatStubsPtr->tk_HWNDToWindow)(hwnd) /* 3 */
#endif
#ifndef Tk_PointerEvent
#define Tk_PointerEvent(hwnd, x, y) \
(tkPlatStubsPtr->tk_PointerEvent)(hwnd, x, y) /* 4 */
#endif
#ifndef Tk_TranslateWinEvent
#define Tk_TranslateWinEvent(hwnd, message, wParam, lParam, result) \
(tkPlatStubsPtr->tk_TranslateWinEvent)(hwnd, message, wParam, lParam, result) /* 5 */
#endif
#ifndef Tk_DdeObjCmd
#define Tk_DdeObjCmd(clientData, interp, objc, objv) \
(tkPlatStubsPtr->tk_DdeObjCmd)(clientData, interp, objc, objv) /* 6 */
#endif
#endif /* __WIN32__ */
#ifdef MAC_TCL
#ifndef Tk_MacSetEmbedHandler
#define Tk_MacSetEmbedHandler(registerWinProcPtr, getPortProcPtr, containerExistProcPtr, getClipProc, getOffsetProc) \
(tkPlatStubsPtr->tk_MacSetEmbedHandler)(registerWinProcPtr, getPortProcPtr, containerExistProcPtr, getClipProc, getOffsetProc) /* 0 */
#endif
#ifndef Tk_MacTurnOffMenus
#define Tk_MacTurnOffMenus() \
(tkPlatStubsPtr->tk_MacTurnOffMenus)() /* 1 */
#endif
#ifndef Tk_MacTkOwnsCursor
#define Tk_MacTkOwnsCursor(tkOwnsIt) \
(tkPlatStubsPtr->tk_MacTkOwnsCursor)(tkOwnsIt) /* 2 */
#endif
#ifndef TkMacInitMenus
#define TkMacInitMenus(interp) \
(tkPlatStubsPtr->tkMacInitMenus)(interp) /* 3 */
#endif
#ifndef TkMacInitAppleEvents
#define TkMacInitAppleEvents(interp) \
(tkPlatStubsPtr->tkMacInitAppleEvents)(interp) /* 4 */
#endif
#ifndef TkMacConvertEvent
#define TkMacConvertEvent(eventPtr) \
(tkPlatStubsPtr->tkMacConvertEvent)(eventPtr) /* 5 */
#endif
#ifndef TkMacConvertTkEvent
#define TkMacConvertTkEvent(eventPtr, window) \
(tkPlatStubsPtr->tkMacConvertTkEvent)(eventPtr, window) /* 6 */
#endif
#ifndef TkGenWMConfigureEvent
#define TkGenWMConfigureEvent(tkwin, x, y, width, height, flags) \
(tkPlatStubsPtr->tkGenWMConfigureEvent)(tkwin, x, y, width, height, flags) /* 7 */
#endif
#ifndef TkMacInvalClipRgns
#define TkMacInvalClipRgns(winPtr) \
(tkPlatStubsPtr->tkMacInvalClipRgns)(winPtr) /* 8 */
#endif
#ifndef TkMacHaveAppearance
#define TkMacHaveAppearance() \
(tkPlatStubsPtr->tkMacHaveAppearance)() /* 9 */
#endif
#ifndef TkMacGetDrawablePort
#define TkMacGetDrawablePort(drawable) \
(tkPlatStubsPtr->tkMacGetDrawablePort)(drawable) /* 10 */
#endif
#endif /* MAC_TCL */
#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 */
|
