1 |
/* $Header: /cvsroot/esrg/sfesrg/esrgpcpj/shared/tk_base/tkplatdecls.h,v 1.1.1.1 2001/06/13 05:07:09 dtashley Exp $ */
|
2 |
|
3 |
/*
|
4 |
* tkPlatDecls.h --
|
5 |
*
|
6 |
* Declarations of functions in the platform-specific public Tcl API.
|
7 |
*
|
8 |
* Copyright (c) 1998-1999 by Scriptics Corporation.
|
9 |
*
|
10 |
* See the file "license.terms" for information on usage and redistribution
|
11 |
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
12 |
*
|
13 |
* RCS: @(#) $Id: tkplatdecls.h,v 1.1.1.1 2001/06/13 05:07:09 dtashley Exp $
|
14 |
*/
|
15 |
|
16 |
#ifndef _TKPLATDECLS
|
17 |
#define _TKPLATDECLS
|
18 |
|
19 |
#ifdef BUILD_tk
|
20 |
#undef TCL_STORAGE_CLASS
|
21 |
#define TCL_STORAGE_CLASS DLLEXPORT
|
22 |
#endif
|
23 |
|
24 |
/*
|
25 |
* WARNING: This file is automatically generated by the tools/genStubs.tcl
|
26 |
* script. Any modifications to the function declarations below should be made
|
27 |
* in the generic/tk.decls script.
|
28 |
*/
|
29 |
|
30 |
|
31 |
/* !BEGIN!: Do not edit below this line. */
|
32 |
|
33 |
/*
|
34 |
* Exported function declarations:
|
35 |
*/
|
36 |
|
37 |
#ifdef __WIN32__
|
38 |
/* 0 */
|
39 |
extern Window Tk_AttachHWND _ANSI_ARGS_((Tk_Window tkwin,
|
40 |
HWND hwnd));
|
41 |
/* 1 */
|
42 |
extern HINSTANCE Tk_GetHINSTANCE _ANSI_ARGS_((void));
|
43 |
/* 2 */
|
44 |
extern HWND Tk_GetHWND _ANSI_ARGS_((Window window));
|
45 |
/* 3 */
|
46 |
extern Tk_Window Tk_HWNDToWindow _ANSI_ARGS_((HWND hwnd));
|
47 |
/* 4 */
|
48 |
extern void Tk_PointerEvent _ANSI_ARGS_((HWND hwnd, int x, int y));
|
49 |
/* 5 */
|
50 |
extern int Tk_TranslateWinEvent _ANSI_ARGS_((HWND hwnd,
|
51 |
UINT message, WPARAM wParam, LPARAM lParam,
|
52 |
LRESULT * result));
|
53 |
#endif /* __WIN32__ */
|
54 |
#ifdef MAC_TCL
|
55 |
/* 0 */
|
56 |
extern void Tk_MacSetEmbedHandler _ANSI_ARGS_((
|
57 |
Tk_MacEmbedRegisterWinProc * registerWinProcPtr,
|
58 |
Tk_MacEmbedGetGrafPortProc * getPortProcPtr,
|
59 |
Tk_MacEmbedMakeContainerExistProc * containerExistProcPtr,
|
60 |
Tk_MacEmbedGetClipProc * getClipProc,
|
61 |
Tk_MacEmbedGetOffsetInParentProc * getOffsetProc));
|
62 |
/* 1 */
|
63 |
extern void Tk_MacTurnOffMenus _ANSI_ARGS_((void));
|
64 |
/* 2 */
|
65 |
extern void Tk_MacTkOwnsCursor _ANSI_ARGS_((int tkOwnsIt));
|
66 |
/* 3 */
|
67 |
extern void TkMacInitMenus _ANSI_ARGS_((Tcl_Interp * interp));
|
68 |
/* 4 */
|
69 |
extern void TkMacInitAppleEvents _ANSI_ARGS_((
|
70 |
Tcl_Interp * interp));
|
71 |
/* 5 */
|
72 |
extern int TkMacConvertEvent _ANSI_ARGS_((
|
73 |
EventRecord * eventPtr));
|
74 |
/* 6 */
|
75 |
extern int TkMacConvertTkEvent _ANSI_ARGS_((
|
76 |
EventRecord * eventPtr, Window window));
|
77 |
/* 7 */
|
78 |
extern void TkGenWMConfigureEvent _ANSI_ARGS_((Tk_Window tkwin,
|
79 |
int x, int y, int width, int height,
|
80 |
int flags));
|
81 |
/* 8 */
|
82 |
extern void TkMacInvalClipRgns _ANSI_ARGS_((TkWindow * winPtr));
|
83 |
/* 9 */
|
84 |
extern int TkMacHaveAppearance _ANSI_ARGS_((void));
|
85 |
/* 10 */
|
86 |
extern GWorldPtr TkMacGetDrawablePort _ANSI_ARGS_((Drawable drawable));
|
87 |
#endif /* MAC_TCL */
|
88 |
|
89 |
typedef struct TkPlatStubs {
|
90 |
int magic;
|
91 |
struct TkPlatStubHooks *hooks;
|
92 |
|
93 |
#ifdef __WIN32__
|
94 |
Window (*tk_AttachHWND) _ANSI_ARGS_((Tk_Window tkwin, HWND hwnd)); /* 0 */
|
95 |
HINSTANCE (*tk_GetHINSTANCE) _ANSI_ARGS_((void)); /* 1 */
|
96 |
HWND (*tk_GetHWND) _ANSI_ARGS_((Window window)); /* 2 */
|
97 |
Tk_Window (*tk_HWNDToWindow) _ANSI_ARGS_((HWND hwnd)); /* 3 */
|
98 |
void (*tk_PointerEvent) _ANSI_ARGS_((HWND hwnd, int x, int y)); /* 4 */
|
99 |
int (*tk_TranslateWinEvent) _ANSI_ARGS_((HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam, LRESULT * result)); /* 5 */
|
100 |
#endif /* __WIN32__ */
|
101 |
#ifdef MAC_TCL
|
102 |
void (*tk_MacSetEmbedHandler) _ANSI_ARGS_((Tk_MacEmbedRegisterWinProc * registerWinProcPtr, Tk_MacEmbedGetGrafPortProc * getPortProcPtr, Tk_MacEmbedMakeContainerExistProc * containerExistProcPtr, Tk_MacEmbedGetClipProc * getClipProc, Tk_MacEmbedGetOffsetInParentProc * getOffsetProc)); /* 0 */
|
103 |
void (*tk_MacTurnOffMenus) _ANSI_ARGS_((void)); /* 1 */
|
104 |
void (*tk_MacTkOwnsCursor) _ANSI_ARGS_((int tkOwnsIt)); /* 2 */
|
105 |
void (*tkMacInitMenus) _ANSI_ARGS_((Tcl_Interp * interp)); /* 3 */
|
106 |
void (*tkMacInitAppleEvents) _ANSI_ARGS_((Tcl_Interp * interp)); /* 4 */
|
107 |
int (*tkMacConvertEvent) _ANSI_ARGS_((EventRecord * eventPtr)); /* 5 */
|
108 |
int (*tkMacConvertTkEvent) _ANSI_ARGS_((EventRecord * eventPtr, Window window)); /* 6 */
|
109 |
void (*tkGenWMConfigureEvent) _ANSI_ARGS_((Tk_Window tkwin, int x, int y, int width, int height, int flags)); /* 7 */
|
110 |
void (*tkMacInvalClipRgns) _ANSI_ARGS_((TkWindow * winPtr)); /* 8 */
|
111 |
int (*tkMacHaveAppearance) _ANSI_ARGS_((void)); /* 9 */
|
112 |
GWorldPtr (*tkMacGetDrawablePort) _ANSI_ARGS_((Drawable drawable)); /* 10 */
|
113 |
#endif /* MAC_TCL */
|
114 |
} TkPlatStubs;
|
115 |
|
116 |
#ifdef __cplusplus
|
117 |
extern "C" {
|
118 |
#endif
|
119 |
extern TkPlatStubs *tkPlatStubsPtr;
|
120 |
#ifdef __cplusplus
|
121 |
}
|
122 |
#endif
|
123 |
|
124 |
#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS)
|
125 |
|
126 |
/*
|
127 |
* Inline function declarations:
|
128 |
*/
|
129 |
|
130 |
#ifdef __WIN32__
|
131 |
#ifndef Tk_AttachHWND
|
132 |
#define Tk_AttachHWND \
|
133 |
(tkPlatStubsPtr->tk_AttachHWND) /* 0 */
|
134 |
#endif
|
135 |
#ifndef Tk_GetHINSTANCE
|
136 |
#define Tk_GetHINSTANCE \
|
137 |
(tkPlatStubsPtr->tk_GetHINSTANCE) /* 1 */
|
138 |
#endif
|
139 |
#ifndef Tk_GetHWND
|
140 |
#define Tk_GetHWND \
|
141 |
(tkPlatStubsPtr->tk_GetHWND) /* 2 */
|
142 |
#endif
|
143 |
#ifndef Tk_HWNDToWindow
|
144 |
#define Tk_HWNDToWindow \
|
145 |
(tkPlatStubsPtr->tk_HWNDToWindow) /* 3 */
|
146 |
#endif
|
147 |
#ifndef Tk_PointerEvent
|
148 |
#define Tk_PointerEvent \
|
149 |
(tkPlatStubsPtr->tk_PointerEvent) /* 4 */
|
150 |
#endif
|
151 |
#ifndef Tk_TranslateWinEvent
|
152 |
#define Tk_TranslateWinEvent \
|
153 |
(tkPlatStubsPtr->tk_TranslateWinEvent) /* 5 */
|
154 |
#endif
|
155 |
#endif /* __WIN32__ */
|
156 |
#ifdef MAC_TCL
|
157 |
#ifndef Tk_MacSetEmbedHandler
|
158 |
#define Tk_MacSetEmbedHandler \
|
159 |
(tkPlatStubsPtr->tk_MacSetEmbedHandler) /* 0 */
|
160 |
#endif
|
161 |
#ifndef Tk_MacTurnOffMenus
|
162 |
#define Tk_MacTurnOffMenus \
|
163 |
(tkPlatStubsPtr->tk_MacTurnOffMenus) /* 1 */
|
164 |
#endif
|
165 |
#ifndef Tk_MacTkOwnsCursor
|
166 |
#define Tk_MacTkOwnsCursor \
|
167 |
(tkPlatStubsPtr->tk_MacTkOwnsCursor) /* 2 */
|
168 |
#endif
|
169 |
#ifndef TkMacInitMenus
|
170 |
#define TkMacInitMenus \
|
171 |
(tkPlatStubsPtr->tkMacInitMenus) /* 3 */
|
172 |
#endif
|
173 |
#ifndef TkMacInitAppleEvents
|
174 |
#define TkMacInitAppleEvents \
|
175 |
(tkPlatStubsPtr->tkMacInitAppleEvents) /* 4 */
|
176 |
#endif
|
177 |
#ifndef TkMacConvertEvent
|
178 |
#define TkMacConvertEvent \
|
179 |
(tkPlatStubsPtr->tkMacConvertEvent) /* 5 */
|
180 |
#endif
|
181 |
#ifndef TkMacConvertTkEvent
|
182 |
#define TkMacConvertTkEvent \
|
183 |
(tkPlatStubsPtr->tkMacConvertTkEvent) /* 6 */
|
184 |
#endif
|
185 |
#ifndef TkGenWMConfigureEvent
|
186 |
#define TkGenWMConfigureEvent \
|
187 |
(tkPlatStubsPtr->tkGenWMConfigureEvent) /* 7 */
|
188 |
#endif
|
189 |
#ifndef TkMacInvalClipRgns
|
190 |
#define TkMacInvalClipRgns \
|
191 |
(tkPlatStubsPtr->tkMacInvalClipRgns) /* 8 */
|
192 |
#endif
|
193 |
#ifndef TkMacHaveAppearance
|
194 |
#define TkMacHaveAppearance \
|
195 |
(tkPlatStubsPtr->tkMacHaveAppearance) /* 9 */
|
196 |
#endif
|
197 |
#ifndef TkMacGetDrawablePort
|
198 |
#define TkMacGetDrawablePort \
|
199 |
(tkPlatStubsPtr->tkMacGetDrawablePort) /* 10 */
|
200 |
#endif
|
201 |
#endif /* MAC_TCL */
|
202 |
|
203 |
#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */
|
204 |
|
205 |
/* !END!: Do not edit above this line. */
|
206 |
|
207 |
#undef TCL_STORAGE_CLASS
|
208 |
#define TCL_STORAGE_CLASS DLLIMPORT
|
209 |
|
210 |
#endif /* _TKPLATDECLS */
|
211 |
|
212 |
|
213 |
/* $History: tkPlatDecls.h $
|
214 |
*
|
215 |
* ***************** Version 1 *****************
|
216 |
* User: Dtashley Date: 1/02/01 Time: 3:04a
|
217 |
* Created in $/IjuScripter, IjuConsole/Source/Tk Base
|
218 |
* Initial check-in.
|
219 |
*/
|
220 |
|
221 |
/* End of TKPLATDECLS.H */ |