Commit | Line | Data |
---|---|---|
1a578e9b | 1 | /* Definitions and headers for communication on the Mac OS. |
0b5538bd | 2 | Copyright (C) 2000, 2001, 2002, 2003, 2004, |
aaef169d | 3 | 2005, 2006 Free Software Foundation, Inc. |
1a578e9b AC |
4 | |
5 | This file is part of GNU Emacs. | |
6 | ||
7 | GNU Emacs is free software; you can redistribute it and/or modify | |
8 | it under the terms of the GNU General Public License as published by | |
9 | the Free Software Foundation; either version 2, or (at your option) | |
10 | any later version. | |
11 | ||
12 | GNU Emacs is distributed in the hope that it will be useful, | |
13 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 | GNU General Public License for more details. | |
16 | ||
17 | You should have received a copy of the GNU General Public License | |
18 | along with GNU Emacs; see the file COPYING. If not, write to | |
4fc5845f LK |
19 | the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
20 | Boston, MA 02110-1301, USA. */ | |
1a578e9b | 21 | |
e0f712ba | 22 | /* Contributed by Andrew Choi (akochoi@mac.com). */ |
1a578e9b AC |
23 | |
24 | #ifndef EMACS_MACGUI_H | |
25 | #define EMACS_MACGUI_H | |
26 | ||
1a578e9b AC |
27 | typedef int Display; /* fix later */ |
28 | ||
e7474cdd | 29 | typedef Lisp_Object XrmDatabase; |
574bdd83 | 30 | |
1a578e9b | 31 | typedef unsigned long Time; |
e0f712ba | 32 | |
24972bf6 YM |
33 | #ifdef HAVE_CARBON |
34 | #undef Z | |
35 | #ifdef MAC_OSX | |
7a92caf8 | 36 | #if ! HAVE_MKTIME || BROKEN_MKTIME |
e3564461 | 37 | #undef mktime |
7a92caf8 | 38 | #endif |
e3564461 | 39 | #undef DEBUG |
e3564461 ST |
40 | #undef free |
41 | #undef malloc | |
42 | #undef realloc | |
43 | /* Macros max and min defined in lisp.h conflict with those in | |
44 | precompiled header Carbon.h. */ | |
45 | #undef max | |
46 | #undef min | |
47 | #undef init_process | |
48 | #include <Carbon/Carbon.h> | |
7a92caf8 | 49 | #if ! HAVE_MKTIME || BROKEN_MKTIME |
c3f4c690 ST |
50 | #undef mktime |
51 | #define mktime emacs_mktime | |
7a92caf8 | 52 | #endif |
e3564461 ST |
53 | #undef free |
54 | #define free unexec_free | |
55 | #undef malloc | |
56 | #define malloc unexec_malloc | |
57 | #undef realloc | |
58 | #define realloc unexec_realloc | |
59 | #undef min | |
60 | #define min(a, b) ((a) < (b) ? (a) : (b)) | |
61 | #undef max | |
62 | #define max(a, b) ((a) > (b) ? (a) : (b)) | |
63 | #undef init_process | |
64 | #define init_process emacs_init_process | |
65 | #undef INFINITY | |
24972bf6 YM |
66 | #else /* not MAC_OSX */ |
67 | #undef SIGHUP | |
68 | #define OLDP2C 1 | |
69 | #include <Carbon.h> | |
70 | #endif /* not MAC_OSX */ | |
71 | #undef Z | |
72 | #define Z (current_buffer->text->z) | |
73 | #else /* not HAVE_CARBON */ | |
e3564461 ST |
74 | #include <QuickDraw.h> /* for WindowPtr */ |
75 | #include <QDOffscreen.h> /* for GWorldPtr */ | |
2f063626 | 76 | #include <Appearance.h> /* for ThemeCursor */ |
b15325b2 | 77 | #include <Windows.h> |
2f063626 | 78 | #include <Controls.h> |
50bf7673 | 79 | #include <Gestalt.h> |
24972bf6 | 80 | #endif /* not HAVE_CARBON */ |
1a578e9b | 81 | |
b15325b2 | 82 | typedef WindowPtr Window; |
e3564461 ST |
83 | typedef GWorldPtr Pixmap; |
84 | ||
50bf7673 ST |
85 | #define Cursor ThemeCursor |
86 | #define No_Cursor (-1) | |
50bf7673 | 87 | |
1a578e9b AC |
88 | #define FACE_DEFAULT (~0) |
89 | ||
886a6e31 YM |
90 | #if !TARGET_API_MAC_CARBON |
91 | #define GetPixDepth(pmh) ((*(pmh))->pixelSize) | |
92 | #endif | |
93 | ||
1a578e9b | 94 | |
26d2699b YM |
95 | #ifndef USE_CG_TEXT_DRAWING |
96 | #if USE_ATSUI && MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 | |
97 | #define USE_CG_TEXT_DRAWING 1 | |
98 | #endif | |
99 | #endif | |
100 | ||
1a578e9b AC |
101 | /* Emulate XCharStruct. */ |
102 | typedef struct _XCharStruct | |
103 | { | |
eaf92438 YM |
104 | short lbearing; /* origin to left edge of raster */ |
105 | short rbearing; /* origin to right edge of raster */ | |
106 | short width; /* advance to next char's origin */ | |
107 | short ascent; /* baseline to top edge of raster */ | |
108 | short descent; /* baseline to bottom edge of raster */ | |
109 | #if 0 | |
110 | unsigned short attributes; /* per char flags (not predefined) */ | |
111 | #endif | |
1a578e9b AC |
112 | } XCharStruct; |
113 | ||
8c2da0fa ST |
114 | #define STORE_XCHARSTRUCT(xcs, w, bds) \ |
115 | ((xcs).width = (w), \ | |
116 | (xcs).lbearing = (bds).left, \ | |
117 | (xcs).rbearing = (bds).right, \ | |
118 | (xcs).ascent = -(bds).top, \ | |
06505fd8 YM |
119 | (xcs).descent = (bds).bottom) |
120 | ||
121 | typedef struct | |
122 | { | |
123 | char valid_bits[0x100 / 8]; | |
124 | XCharStruct per_char[0x100]; | |
125 | } XCharStructRow; | |
126 | ||
127 | #define XCHARSTRUCTROW_CHAR_VALID_P(row, byte2) \ | |
128 | ((row)->valid_bits[(byte2) / 8] & (1 << (byte2) % 8)) | |
129 | ||
130 | #define XCHARSTRUCTROW_SET_CHAR_VALID(row, byte2) \ | |
131 | ((row)->valid_bits[(byte2) / 8] |= (1 << (byte2) % 8)) | |
8c2da0fa | 132 | |
1a578e9b | 133 | struct MacFontStruct { |
a6d1cf01 | 134 | char *full_name; |
1a578e9b | 135 | |
e0f712ba | 136 | short mac_fontnum; /* font number of font used in this window */ |
1a578e9b | 137 | int mac_fontsize; /* size of font */ |
e0f712ba | 138 | short mac_fontface; /* plain, bold, italics, etc. */ |
a6d1cf01 YM |
139 | #if TARGET_API_MAC_CARBON |
140 | int mac_scriptcode; /* Mac OS script code for font used */ | |
141 | #else | |
1a578e9b | 142 | short mac_scriptcode; /* Mac OS script code for font used */ |
a6d1cf01 | 143 | #endif |
04904a23 YM |
144 | #if USE_ATSUI |
145 | ATSUStyle mac_style; /* NULL if QuickDraw Text is used */ | |
26d2699b YM |
146 | #if USE_CG_TEXT_DRAWING |
147 | CGFontRef cg_font; /* NULL if ATSUI text drawing is used */ | |
148 | CGGlyph *cg_glyphs; /* Likewise */ | |
149 | #endif | |
04904a23 | 150 | #endif |
1a578e9b AC |
151 | |
152 | /* from Xlib.h */ | |
153 | #if 0 | |
154 | XExtData *ext_data; /* hook for extension to hang data */ | |
155 | Font fid; /* Font id for this font */ | |
156 | unsigned direction; /* hint about the direction font is painted */ | |
e0f712ba | 157 | #endif /* 0 */ |
1a578e9b AC |
158 | unsigned min_char_or_byte2;/* first character */ |
159 | unsigned max_char_or_byte2;/* last character */ | |
160 | unsigned min_byte1; /* first row that exists */ | |
161 | unsigned max_byte1; /* last row that exists */ | |
162 | #if 0 | |
163 | Bool all_chars_exist; /* flag if all characters have nonzero size */ | |
164 | unsigned default_char; /* char to print for undefined character */ | |
165 | int n_properties; /* how many properties there are */ | |
166 | XFontProp *properties; /* pointer to array of additional properties */ | |
e0f712ba | 167 | #endif /* 0 */ |
1a578e9b AC |
168 | XCharStruct min_bounds; /* minimum bounds over all existing char */ |
169 | XCharStruct max_bounds; /* maximum bounds over all existing char */ | |
06505fd8 YM |
170 | union { |
171 | XCharStruct *per_char; /* first_char to last_char information */ | |
172 | XCharStructRow **rows; /* first row to last row information */ | |
173 | } bounds; | |
1a578e9b AC |
174 | int ascent; /* logical extent above baseline for spacing */ |
175 | int descent; /* logical decent below baseline for spacing */ | |
176 | }; | |
177 | ||
178 | typedef struct MacFontStruct MacFontStruct; | |
179 | typedef struct MacFontStruct XFontStruct; | |
180 | ||
ec480ce0 KS |
181 | /* Structure borrowed from Xlib.h to represent two-byte characters. */ |
182 | ||
183 | typedef struct { | |
184 | unsigned char byte1; | |
185 | unsigned char byte2; | |
186 | } XChar2b; | |
187 | ||
188 | #define STORE_XCHAR2B(chp, b1, b2) \ | |
189 | ((chp)->byte1 = (b1), (chp)->byte2 = (b2)) | |
190 | ||
191 | #define XCHAR2B_BYTE1(chp) \ | |
192 | ((chp)->byte1) | |
193 | ||
194 | #define XCHAR2B_BYTE2(chp) \ | |
195 | ((chp)->byte2) | |
196 | ||
1a578e9b AC |
197 | |
198 | /* Emulate X GC's by keeping color and font info in a structure. */ | |
199 | typedef struct _XGCValues | |
200 | { | |
201 | unsigned long foreground; | |
202 | unsigned long background; | |
203 | XFontStruct *font; | |
204 | } XGCValues; | |
205 | ||
623cc1d8 YM |
206 | typedef struct _XGC |
207 | { | |
208 | /* Original value. */ | |
209 | XGCValues xgcv; | |
210 | ||
211 | /* Cached data members follow. */ | |
1a578e9b | 212 | |
623cc1d8 YM |
213 | /* QuickDraw foreground color. */ |
214 | RGBColor fore_color; | |
1a578e9b | 215 | |
623cc1d8 YM |
216 | /* QuickDraw background color. */ |
217 | RGBColor back_color; | |
2be96ef8 YM |
218 | |
219 | #define MAX_CLIP_RECTS 2 | |
220 | /* QuickDraw clipping region. */ | |
221 | RgnHandle clip_region; | |
222 | ||
223 | #if defined (MAC_OSX) && USE_ATSUI | |
224 | /* Number of clipping rectangles used in Quartz 2D drawing. */ | |
225 | int n_clip_rects; | |
226 | ||
227 | /* Clipping rectangles used in Quartz 2D drawing. The y-coordinate | |
228 | is in QuickDraw's. */ | |
229 | CGRect clip_rects[MAX_CLIP_RECTS]; | |
230 | #endif | |
623cc1d8 YM |
231 | } *GC; |
232 | ||
233 | #define GCForeground (1L<<2) | |
234 | #define GCBackground (1L<<3) | |
235 | #define GCFont (1L<<14) | |
236 | #define GCGraphicsExposures 0 | |
1a578e9b AC |
237 | |
238 | /* Bit Gravity */ | |
239 | ||
240 | #define ForgetGravity 0 | |
241 | #define NorthWestGravity 1 | |
242 | #define NorthGravity 2 | |
243 | #define NorthEastGravity 3 | |
244 | #define WestGravity 4 | |
245 | #define CenterGravity 5 | |
246 | #define EastGravity 6 | |
247 | #define SouthWestGravity 7 | |
248 | #define SouthGravity 8 | |
249 | #define SouthEastGravity 9 | |
250 | #define StaticGravity 10 | |
251 | ||
252 | #define NoValue 0x0000 | |
253 | #define XValue 0x0001 | |
254 | #define YValue 0x0002 | |
255 | #define WidthValue 0x0004 | |
256 | #define HeightValue 0x0008 | |
257 | #define AllValues 0x000F | |
258 | #define XNegative 0x0010 | |
259 | #define YNegative 0x0020 | |
260 | ||
b15325b2 ST |
261 | typedef struct { |
262 | long flags; /* marks which fields in this structure are defined */ | |
263 | #if 0 | |
264 | int x, y; /* obsolete for new window mgrs, but clients */ | |
265 | int width, height; /* should set so old wm's don't mess up */ | |
266 | #endif | |
267 | int min_width, min_height; | |
268 | #if 0 | |
269 | int max_width, max_height; | |
270 | #endif | |
271 | int width_inc, height_inc; | |
272 | #if 0 | |
273 | struct { | |
274 | int x; /* numerator */ | |
275 | int y; /* denominator */ | |
276 | } min_aspect, max_aspect; | |
277 | #endif | |
278 | int base_width, base_height; /* added by ICCCM version 1 */ | |
279 | #if 0 | |
280 | int win_gravity; /* added by ICCCM version 1 */ | |
281 | #endif | |
282 | } XSizeHints; | |
283 | ||
1a578e9b AC |
284 | #define USPosition (1L << 0) /* user specified x, y */ |
285 | #define USSize (1L << 1) /* user specified width, height */ | |
286 | ||
287 | #define PPosition (1L << 2) /* program specified position */ | |
288 | #define PSize (1L << 3) /* program specified size */ | |
289 | #define PMinSize (1L << 4) /* program specified minimum size */ | |
290 | #define PMaxSize (1L << 5) /* program specified maximum size */ | |
291 | #define PResizeInc (1L << 6) /* program specified resize increments */ | |
292 | #define PAspect (1L << 7) /* program specified min and max aspect ratios */ | |
293 | #define PBaseSize (1L << 8) /* program specified base for incrementing */ | |
294 | #define PWinGravity (1L << 9) /* program specified window gravity */ | |
295 | ||
e119ad0d KS |
296 | typedef struct { |
297 | int x, y; | |
298 | unsigned width, height; | |
299 | } XRectangle; | |
300 | ||
301 | #define NativeRectangle Rect | |
302 | ||
303 | #define CONVERT_TO_XRECT(xr,nr) \ | |
304 | ((xr).x = (nr).left, \ | |
305 | (xr).y = (nr).top, \ | |
306 | (xr).width = ((nr).right - (nr).left), \ | |
307 | (xr).height = ((nr).bottom - (nr).top)) | |
308 | ||
309 | #define CONVERT_FROM_XRECT(xr,nr) \ | |
310 | ((nr).left = (xr).x, \ | |
311 | (nr).top = (xr).y, \ | |
312 | (nr).right = ((xr).x + (xr).width), \ | |
313 | (nr).bottom = ((xr).y + (xr).height)) | |
314 | ||
315 | #define STORE_NATIVE_RECT(nr,x,y,width,height) \ | |
316 | ((nr).left = (x), \ | |
317 | (nr).top = (y), \ | |
318 | (nr).right = ((nr).left + (width)), \ | |
319 | (nr).bottom = ((nr).top + (height))) | |
320 | ||
1a578e9b AC |
321 | #endif /* EMACS_MACGUI_H */ |
322 | ||
ab5796a9 MB |
323 | /* arch-tag: 5a0da49a-35e2-418b-a58c-8a55778ae849 |
324 | (do not change this comment) */ |