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
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
|
/*
* 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 Scriptics Corporation.
*
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*/
#ifndef _TKWININT
#define _TKWININT
#ifndef _TKINT
#include "tkInt.h"
#endif
/*
* Include platform specific public interfaces.
*/
#ifndef _TKWIN
#include "tkWin.h"
#endif
/*
* Define constants missing from older Win32 SDK header files.
*/
#ifndef WS_EX_TOOLWINDOW
#define WS_EX_TOOLWINDOW 0x00000080L
#endif
#ifndef SPI_SETKEYBOARDCUES
#define SPI_SETKEYBOARDCUES 0x100B
#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 L"TkTopLevel"
#define TK_WIN_CHILD_CLASS_NAME L"TkChild"
/*
* The following variable is a translation table between X gc functions and
* Win32 raster and BitBlt op modes.
*/
MODULE_SCOPE const int tkpWinRopModes[];
MODULE_SCOPE const 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 functions used by more than one source file.
*/
#include "tkIntPlatDecls.h"
#ifdef __cplusplus
extern "C" {
#endif
/*
* Special proc needed as tsd accessor function between
* tkWinX.c:GenerateXEvent and tkWinClipboard.c:UpdateClipboard
*/
MODULE_SCOPE void TkWinUpdatingClipboard(int mode);
/*
* Used by tkWinDialog.c to associate the right icon with tk_messageBox
*/
MODULE_SCOPE HICON TkWinGetIcon(Tk_Window tkw, DWORD iconsize);
/*
* Used by tkWinX.c on for certain system display change messages and cleanup
* up containers
*/
MODULE_SCOPE void TkWinDisplayChanged(Display *display);
MODULE_SCOPE void TkWinCleanupContainerList(void);
/*
* Used by tkWinWm.c for embedded menu handling. May become public.
*/
MODULE_SCOPE HWND Tk_GetMenuHWND(Tk_Window tkwin);
MODULE_SCOPE HWND Tk_GetEmbeddedMenuHWND(Tk_Window tkwin);
/*
* The following allows us to cache these encoding for multiple functions.
*/
MODULE_SCOPE Tcl_Encoding TkWinGetKeyInputEncoding(void);
MODULE_SCOPE Tcl_Encoding TkWinGetUnicodeEncoding(void);
MODULE_SCOPE void TkWinSetupSystemFonts(TkMainInfo *mainPtr);
/*
* Values returned by TkWinGetPlatformTheme.
*/
#define TK_THEME_WIN_CLASSIC 1
#define TK_THEME_WIN_XP 2
#define TK_THEME_WIN_VISTA 3
/*
* The following is implemented in tkWinWm and used by tkWinEmbed.c
*/
MODULE_SCOPE void TkpWinToplevelWithDraw(TkWindow *winPtr);
MODULE_SCOPE void TkpWinToplevelIconify(TkWindow *winPtr);
MODULE_SCOPE void TkpWinToplevelDeiconify(TkWindow *winPtr);
MODULE_SCOPE long TkpWinToplevelIsControlledByWm(TkWindow *winPtr);
MODULE_SCOPE long TkpWinToplevelMove(TkWindow *winPtr, int x, int y);
MODULE_SCOPE long TkpWinToplevelOverrideRedirect(TkWindow *winPtr,
int reqValue);
MODULE_SCOPE void TkpWinToplevelDetachWindow(TkWindow *winPtr);
MODULE_SCOPE int TkpWmGetState(TkWindow *winPtr);
MODULE_SCOPE int TkTranslateWinEvent(HWND hwnd, UINT message,
WPARAM wParam, LPARAM lParam, LRESULT *result);
MODULE_SCOPE void TkWinPointerEvent(HWND hwnd, int x, int y);
/*
* The following is implemented in tkWinPointer.c and also used in tkWinWindow.c
*/
MODULE_SCOPE void TkSetCursorPos(int x, int y);
/*
* The following is implemented in tkWinSysTray.c
*/
MODULE_SCOPE int WinIcoInit (Tcl_Interp* interp);
/*
* Common routines used in Windows implementation
*/
MODULE_SCOPE Tcl_Obj * TkWin32ErrorObj(HRESULT hrError);
/*
* The following functions are not present in old versions of Windows
* API headers but are used in the Tk source to ensure 64bit
* compatibility.
*/
#ifndef GetClassLongPtr
# define GetClassLongPtrW GetClassLongW
# define SetClassLongPtrW SetClassLongW
#endif /* !GetClassLongPtr */
#ifndef GCLP_HICON
# define GCLP_HICON GCL_HICON
#endif /* !GCLP_HICON */
#ifndef GCLP_HICONSM
# define GCLP_HICONSM (-34)
#endif /* !GCLP_HICONSM */
#ifndef GetWindowLongPtr
# define GetWindowLongPtrW GetWindowLongW
# define SetWindowLongPtrW SetWindowLongW
#endif /* !GetWindowLongPtr */
#ifndef GWLP_WNDPROC
#define GWLP_WNDPROC GWL_WNDPROC
#define GWLP_HINSTANCE GWL_HINSTANCE
#define GWLP_HWNDPARENT GWL_HWNDPARENT
#define GWLP_USERDATA GWL_USERDATA
#define GWLP_ID GWL_ID
#endif /* !GWLP_WNDPROC */
#ifdef __cplusplus
}
#endif
#endif /* _TKWININT */
|
