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
|
/*
* tkPlatStubs.c --
*
* This file contains the wrapper functions for the platform independent
* unsupported Tk API.
*
* Copyright (c) 1998-1999 by Scriptics Corporation.
* All rights reserved.
*
* RCS: @(#) $Id: tkPlatStubs.c,v 1.2 1999/03/10 07:04:42 stanton Exp $
*/
#include "tk.h"
#ifdef __WIN32__
#include "tkWinInt.h"
#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 stub functions:
*/
#ifdef __WIN32__
/* Slot 0 */
Window
Tk_AttachHWND(tkwin, hwnd)
Tk_Window tkwin;
HWND hwnd;
{
return (tkPlatStubsPtr->tk_AttachHWND)(tkwin, hwnd);
}
/* Slot 1 */
HINSTANCE
Tk_GetHINSTANCE()
{
return (tkPlatStubsPtr->tk_GetHINSTANCE)();
}
/* Slot 2 */
HWND
Tk_GetHWND(window)
Window window;
{
return (tkPlatStubsPtr->tk_GetHWND)(window);
}
/* Slot 3 */
Tk_Window
Tk_HWNDToWindow(hwnd)
HWND hwnd;
{
return (tkPlatStubsPtr->tk_HWNDToWindow)(hwnd);
}
/* Slot 4 */
void
Tk_PointerEvent(hwnd, x, y)
HWND hwnd;
int x;
int y;
{
(tkPlatStubsPtr->tk_PointerEvent)(hwnd, x, y);
}
/* Slot 5 */
int
Tk_TranslateWinEvent(hwnd, message, wParam, lParam, result)
HWND hwnd;
UINT message;
WPARAM wParam;
LPARAM lParam;
LRESULT * result;
{
return (tkPlatStubsPtr->tk_TranslateWinEvent)(hwnd, message, wParam, lParam, result);
}
#endif /* __WIN32__ */
#ifdef MAC_TCL
/* Slot 0 */
void
Tk_MacSetEmbedHandler(registerWinProcPtr, getPortProcPtr, containerExistProcPtr, getClipProc, getOffsetProc)
Tk_MacEmbedRegisterWinProc * registerWinProcPtr;
Tk_MacEmbedGetGrafPortProc * getPortProcPtr;
Tk_MacEmbedMakeContainerExistProc * containerExistProcPtr;
Tk_MacEmbedGetClipProc * getClipProc;
Tk_MacEmbedGetOffsetInParentProc * getOffsetProc;
{
(tkPlatStubsPtr->tk_MacSetEmbedHandler)(registerWinProcPtr, getPortProcPtr, containerExistProcPtr, getClipProc, getOffsetProc);
}
/* Slot 1 */
void
Tk_MacTurnOffMenus()
{
(tkPlatStubsPtr->tk_MacTurnOffMenus)();
}
/* Slot 2 */
void
Tk_MacTkOwnsCursor(tkOwnsIt)
int tkOwnsIt;
{
(tkPlatStubsPtr->tk_MacTkOwnsCursor)(tkOwnsIt);
}
/* Slot 3 */
void
TkMacInitMenus(interp)
Tcl_Interp * interp;
{
(tkPlatStubsPtr->tkMacInitMenus)(interp);
}
/* Slot 4 */
void
TkMacInitAppleEvents(interp)
Tcl_Interp * interp;
{
(tkPlatStubsPtr->tkMacInitAppleEvents)(interp);
}
/* Slot 5 */
int
TkMacConvertEvent(eventPtr)
EventRecord * eventPtr;
{
return (tkPlatStubsPtr->tkMacConvertEvent)(eventPtr);
}
/* Slot 6 */
int
TkMacConvertTkEvent(eventPtr, window)
EventRecord * eventPtr;
Window window;
{
return (tkPlatStubsPtr->tkMacConvertTkEvent)(eventPtr, window);
}
/* Slot 7 */
void
TkGenWMConfigureEvent(tkwin, x, y, width, height, flags)
Tk_Window tkwin;
int x;
int y;
int width;
int height;
int flags;
{
(tkPlatStubsPtr->tkGenWMConfigureEvent)(tkwin, x, y, width, height, flags);
}
/* Slot 8 */
void
TkMacInvalClipRgns(winPtr)
TkWindow * winPtr;
{
(tkPlatStubsPtr->tkMacInvalClipRgns)(winPtr);
}
/* Slot 9 */
int
TkMacHaveAppearance()
{
return (tkPlatStubsPtr->tkMacHaveAppearance)();
}
/* Slot 10 */
GWorldPtr
TkMacGetDrawablePort(drawable)
Drawable drawable;
{
return (tkPlatStubsPtr->tkMacGetDrawablePort)(drawable);
}
#endif /* MAC_TCL */
/* !END!: Do not edit above this line. */
|
