]> code.delx.au - gnu-emacs/blob - src/macfns.c
delx.au / code / gnu-emacs / blob
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Restore deleted entry.
[gnu-emacs] / src / macfns.c
1 /* Graphical user interface functions for Mac OS.
2 Copyright (C) 2000, 2001, 2002, 2003, 2004,
3 2005, 2006, 2007 Free Software Foundation, Inc.
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 3, 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
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 Boston, MA 02110-1301, USA. */
21
22 /* Contributed by Andrew Choi (akochoi@mac.com). */
23
24 #include <config.h>
25 #include <stdio.h>
26 #include <math.h>
27
28 #include "lisp.h"
29 #include "macterm.h"
30 #include "frame.h"
31 #include "window.h"
32 #include "buffer.h"
33 #include "intervals.h"
34 #include "dispextern.h"
35 #include "keyboard.h"
36 #include "blockinput.h"
37 #include <epaths.h>
38 #include "charset.h"
39 #include "coding.h"
40 #include "fontset.h"
41 #include "systime.h"
42 #include "termhooks.h"
43 #include "atimer.h"
44
45 #include <ctype.h>
46 #include <sys/types.h>
47 #include <sys/stat.h>
48 #include <limits.h>
49 #include <errno.h>
50 #include <sys/param.h>
51
52 extern void free_frame_menubar ();
53
54 #if TARGET_API_MAC_CARBON
55
56 /* Carbon version info */
57
58 static Lisp_Object Vmac_carbon_version_string;
59
60 #endif /* TARGET_API_MAC_CARBON */
61
62 /* Non-zero means we're allowed to display an hourglass cursor. */
63
64 int display_hourglass_p;
65
66 /* The background and shape of the mouse pointer, and shape when not
67 over text or in the modeline. */
68
69 Lisp_Object Vx_pointer_shape, Vx_nontext_pointer_shape, Vx_mode_pointer_shape;
70 Lisp_Object Vx_hourglass_pointer_shape;
71
72 /* The shape when over mouse-sensitive text. */
73
74 Lisp_Object Vx_sensitive_text_pointer_shape;
75
76 /* If non-nil, the pointer shape to indicate that windows can be
77 dragged horizontally. */
78
79 Lisp_Object Vx_window_horizontal_drag_shape;
80
81 /* Color of chars displayed in cursor box. */
82
83 Lisp_Object Vx_cursor_fore_pixel;
84
85 /* Nonzero if using Windows. */
86
87 static int mac_in_use;
88
89 /* Non nil if no window manager is in use. */
90
91 Lisp_Object Vx_no_window_manager;
92
93 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
94
95 Lisp_Object Vx_pixel_size_width_font_regexp;
96
97 Lisp_Object Qnone;
98 Lisp_Object Qsuppress_icon;
99 Lisp_Object Qundefined_color;
100 Lisp_Object Qcancel_timer;
101
102 /* In dispnew.c */
103
104 extern Lisp_Object Vwindow_system_version;
105
106 #if GLYPH_DEBUG
107 int image_cache_refcount, dpyinfo_refcount;
108 #endif
109
110
111 #if 0 /* Use xstricmp instead. */
112 /* compare two strings ignoring case */
113
114 static int
115 stricmp (const char *s, const char *t)
116 {
117 for ( ; tolower (*s) == tolower (*t); s++, t++)
118 if (*s == '\0')
119 return 0;
120 return tolower (*s) - tolower (*t);
121 }
122 #endif
123
124 /* compare two strings up to n characters, ignoring case */
125
126 static int
127 strnicmp (const char *s, const char *t, unsigned int n)
128 {
129 for ( ; n > 0 && tolower (*s) == tolower (*t); n--, s++, t++)
130 if (*s == '\0')
131 return 0;
132 return n == 0 ? 0 : tolower (*s) - tolower (*t);
133 }
134
135 \f
136 /* Error if we are not running on Mac OS. */
137
138 void
139 check_mac ()
140 {
141 if (! mac_in_use)
142 error ("Mac native windows not in use or not initialized");
143 }
144
145 /* Nonzero if we can use mouse menus.
146 You should not call this unless HAVE_MENUS is defined. */
147
148 int
149 have_menus_p ()
150 {
151 return mac_in_use;
152 }
153
154 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
155 and checking validity for Mac. */
156
157 FRAME_PTR
158 check_x_frame (frame)
159 Lisp_Object frame;
160 {
161 FRAME_PTR f;
162
163 if (NILP (frame))
164 frame = selected_frame;
165 CHECK_LIVE_FRAME (frame);
166 f = XFRAME (frame);
167 if (! FRAME_MAC_P (f))
168 error ("Non-Mac frame used");
169 return f;
170 }
171
172 /* Let the user specify a display with a frame.
173 nil stands for the selected frame--or, if that is not a mac frame,
174 the first display on the list. */
175
176 struct mac_display_info *
177 check_x_display_info (frame)
178 Lisp_Object frame;
179 {
180 struct mac_display_info *dpyinfo = NULL;
181
182 if (NILP (frame))
183 {
184 struct frame *sf = XFRAME (selected_frame);
185
186 if (FRAME_MAC_P (sf) && FRAME_LIVE_P (sf))
187 dpyinfo = FRAME_MAC_DISPLAY_INFO (sf);
188 else if (x_display_list != 0)
189 dpyinfo = x_display_list;
190 else
191 error ("Mac native windows are not in use or not initialized");
192 }
193 else if (STRINGP (frame))
194 dpyinfo = x_display_info_for_name (frame);
195 else
196 {
197 FRAME_PTR f = check_x_frame (frame);
198 dpyinfo = FRAME_MAC_DISPLAY_INFO (f);
199 }
200
201 return dpyinfo;
202 }
203
204 \f
205
206 static Lisp_Object unwind_create_frame P_ ((Lisp_Object));
207 static Lisp_Object unwind_create_tip_frame P_ ((Lisp_Object));
208
209 void x_set_foreground_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
210 void x_set_background_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
211 void x_set_mouse_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
212 void x_set_cursor_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
213 void x_set_border_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
214 void x_set_cursor_type P_ ((struct frame *, Lisp_Object, Lisp_Object));
215 void x_set_icon_type P_ ((struct frame *, Lisp_Object, Lisp_Object));
216 void x_set_icon_name P_ ((struct frame *, Lisp_Object, Lisp_Object));
217 void x_explicitly_set_name P_ ((struct frame *, Lisp_Object, Lisp_Object));
218 void x_set_menu_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object));
219 void x_set_title P_ ((struct frame *, Lisp_Object, Lisp_Object));
220 void x_set_tool_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object));
221
222 extern void mac_get_window_bounds P_ ((struct frame *, Rect *, Rect *));
223
224 \f
225
226 /* Store the screen positions of frame F into XPTR and YPTR.
227 These are the positions of the containing window manager window,
228 not Emacs's own window. */
229
230 void
231 x_real_positions (f, xptr, yptr)
232 FRAME_PTR f;
233 int *xptr, *yptr;
234 {
235 Rect inner, outer;
236
237 mac_get_window_bounds (f, &inner, &outer);
238
239 f->x_pixels_diff = inner.left - outer.left;
240 f->y_pixels_diff = inner.top - outer.top;
241
242 *xptr = outer.left;
243 *yptr = outer.top;
244 }
245
246 \f
247 /* The default colors for the Mac color map */
248 typedef struct colormap_t
249 {
250 unsigned long color;
251 char *name;
252 } colormap_t;
253
254 static const colormap_t mac_color_map[] =
255 {
256 { RGB_TO_ULONG(255, 250, 250), "snow" },
257 { RGB_TO_ULONG(248, 248, 255), "ghost white" },
258 { RGB_TO_ULONG(248, 248, 255), "GhostWhite" },
259 { RGB_TO_ULONG(245, 245, 245), "white smoke" },
260 { RGB_TO_ULONG(245, 245, 245), "WhiteSmoke" },
261 { RGB_TO_ULONG(220, 220, 220), "gainsboro" },
262 { RGB_TO_ULONG(255, 250, 240), "floral white" },
263 { RGB_TO_ULONG(255, 250, 240), "FloralWhite" },
264 { RGB_TO_ULONG(253, 245, 230), "old lace" },
265 { RGB_TO_ULONG(253, 245, 230), "OldLace" },
266 { RGB_TO_ULONG(250, 240, 230), "linen" },
267 { RGB_TO_ULONG(250, 235, 215), "antique white" },
268 { RGB_TO_ULONG(250, 235, 215), "AntiqueWhite" },
269 { RGB_TO_ULONG(255, 239, 213), "papaya whip" },
270 { RGB_TO_ULONG(255, 239, 213), "PapayaWhip" },
271 { RGB_TO_ULONG(255, 235, 205), "blanched almond" },
272 { RGB_TO_ULONG(255, 235, 205), "BlanchedAlmond" },
273 { RGB_TO_ULONG(255, 228, 196), "bisque" },
274 { RGB_TO_ULONG(255, 218, 185), "peach puff" },
275 { RGB_TO_ULONG(255, 218, 185), "PeachPuff" },
276 { RGB_TO_ULONG(255, 222, 173), "navajo white" },
277 { RGB_TO_ULONG(255, 222, 173), "NavajoWhite" },
278 { RGB_TO_ULONG(255, 228, 181), "moccasin" },
279 { RGB_TO_ULONG(255, 248, 220), "cornsilk" },
280 { RGB_TO_ULONG(255, 255, 240), "ivory" },
281 { RGB_TO_ULONG(255, 250, 205), "lemon chiffon" },
282 { RGB_TO_ULONG(255, 250, 205), "LemonChiffon" },
283 { RGB_TO_ULONG(255, 245, 238), "seashell" },
284 { RGB_TO_ULONG(240, 255, 240), "honeydew" },
285 { RGB_TO_ULONG(245, 255, 250), "mint cream" },
286 { RGB_TO_ULONG(245, 255, 250), "MintCream" },
287 { RGB_TO_ULONG(240, 255, 255), "azure" },
288 { RGB_TO_ULONG(240, 248, 255), "alice blue" },
289 { RGB_TO_ULONG(240, 248, 255), "AliceBlue" },
290 { RGB_TO_ULONG(230, 230, 250), "lavender" },
291 { RGB_TO_ULONG(255, 240, 245), "lavender blush" },
292 { RGB_TO_ULONG(255, 240, 245), "LavenderBlush" },
293 { RGB_TO_ULONG(255, 228, 225), "misty rose" },
294 { RGB_TO_ULONG(255, 228, 225), "MistyRose" },
295 { RGB_TO_ULONG(255, 255, 255), "white" },
296 { RGB_TO_ULONG(0 , 0 , 0 ), "black" },
297 { RGB_TO_ULONG(47 , 79 , 79 ), "dark slate gray" },
298 { RGB_TO_ULONG(47 , 79 , 79 ), "DarkSlateGray" },
299 { RGB_TO_ULONG(47 , 79 , 79 ), "dark slate grey" },
300 { RGB_TO_ULONG(47 , 79 , 79 ), "DarkSlateGrey" },
301 { RGB_TO_ULONG(105, 105, 105), "dim gray" },
302 { RGB_TO_ULONG(105, 105, 105), "DimGray" },
303 { RGB_TO_ULONG(105, 105, 105), "dim grey" },
304 { RGB_TO_ULONG(105, 105, 105), "DimGrey" },
305 { RGB_TO_ULONG(112, 128, 144), "slate gray" },
306 { RGB_TO_ULONG(112, 128, 144), "SlateGray" },
307 { RGB_TO_ULONG(112, 128, 144), "slate grey" },
308 { RGB_TO_ULONG(112, 128, 144), "SlateGrey" },
309 { RGB_TO_ULONG(119, 136, 153), "light slate gray" },
310 { RGB_TO_ULONG(119, 136, 153), "LightSlateGray" },
311 { RGB_TO_ULONG(119, 136, 153), "light slate grey" },
312 { RGB_TO_ULONG(119, 136, 153), "LightSlateGrey" },
313 { RGB_TO_ULONG(190, 190, 190), "gray" },
314 { RGB_TO_ULONG(190, 190, 190), "grey" },
315 { RGB_TO_ULONG(211, 211, 211), "light grey" },
316 { RGB_TO_ULONG(211, 211, 211), "LightGrey" },
317 { RGB_TO_ULONG(211, 211, 211), "light gray" },
318 { RGB_TO_ULONG(211, 211, 211), "LightGray" },
319 { RGB_TO_ULONG(25 , 25 , 112), "midnight blue" },
320 { RGB_TO_ULONG(25 , 25 , 112), "MidnightBlue" },
321 { RGB_TO_ULONG(0 , 0 , 128), "navy" },
322 { RGB_TO_ULONG(0 , 0 , 128), "navy blue" },
323 { RGB_TO_ULONG(0 , 0 , 128), "NavyBlue" },
324 { RGB_TO_ULONG(100, 149, 237), "cornflower blue" },
325 { RGB_TO_ULONG(100, 149, 237), "CornflowerBlue" },
326 { RGB_TO_ULONG(72 , 61 , 139), "dark slate blue" },
327 { RGB_TO_ULONG(72 , 61 , 139), "DarkSlateBlue" },
328 { RGB_TO_ULONG(106, 90 , 205), "slate blue" },
329 { RGB_TO_ULONG(106, 90 , 205), "SlateBlue" },
330 { RGB_TO_ULONG(123, 104, 238), "medium slate blue" },
331 { RGB_TO_ULONG(123, 104, 238), "MediumSlateBlue" },
332 { RGB_TO_ULONG(132, 112, 255), "light slate blue" },
333 { RGB_TO_ULONG(132, 112, 255), "LightSlateBlue" },
334 { RGB_TO_ULONG(0 , 0 , 205), "medium blue" },
335 { RGB_TO_ULONG(0 , 0 , 205), "MediumBlue" },
336 { RGB_TO_ULONG(65 , 105, 225), "royal blue" },
337 { RGB_TO_ULONG(65 , 105, 225), "RoyalBlue" },
338 { RGB_TO_ULONG(0 , 0 , 255), "blue" },
339 { RGB_TO_ULONG(30 , 144, 255), "dodger blue" },
340 { RGB_TO_ULONG(30 , 144, 255), "DodgerBlue" },
341 { RGB_TO_ULONG(0 , 191, 255), "deep sky blue" },
342 { RGB_TO_ULONG(0 , 191, 255), "DeepSkyBlue" },
343 { RGB_TO_ULONG(135, 206, 235), "sky blue" },
344 { RGB_TO_ULONG(135, 206, 235), "SkyBlue" },
345 { RGB_TO_ULONG(135, 206, 250), "light sky blue" },
346 { RGB_TO_ULONG(135, 206, 250), "LightSkyBlue" },
347 { RGB_TO_ULONG(70 , 130, 180), "steel blue" },
348 { RGB_TO_ULONG(70 , 130, 180), "SteelBlue" },
349 { RGB_TO_ULONG(176, 196, 222), "light steel blue" },
350 { RGB_TO_ULONG(176, 196, 222), "LightSteelBlue" },
351 { RGB_TO_ULONG(173, 216, 230), "light blue" },
352 { RGB_TO_ULONG(173, 216, 230), "LightBlue" },
353 { RGB_TO_ULONG(176, 224, 230), "powder blue" },
354 { RGB_TO_ULONG(176, 224, 230), "PowderBlue" },
355 { RGB_TO_ULONG(175, 238, 238), "pale turquoise" },
356 { RGB_TO_ULONG(175, 238, 238), "PaleTurquoise" },
357 { RGB_TO_ULONG(0 , 206, 209), "dark turquoise" },
358 { RGB_TO_ULONG(0 , 206, 209), "DarkTurquoise" },
359 { RGB_TO_ULONG(72 , 209, 204), "medium turquoise" },
360 { RGB_TO_ULONG(72 , 209, 204), "MediumTurquoise" },
361 { RGB_TO_ULONG(64 , 224, 208), "turquoise" },
362 { RGB_TO_ULONG(0 , 255, 255), "cyan" },
363 { RGB_TO_ULONG(224, 255, 255), "light cyan" },
364 { RGB_TO_ULONG(224, 255, 255), "LightCyan" },
365 { RGB_TO_ULONG(95 , 158, 160), "cadet blue" },
366 { RGB_TO_ULONG(95 , 158, 160), "CadetBlue" },
367 { RGB_TO_ULONG(102, 205, 170), "medium aquamarine" },
368 { RGB_TO_ULONG(102, 205, 170), "MediumAquamarine" },
369 { RGB_TO_ULONG(127, 255, 212), "aquamarine" },
370 { RGB_TO_ULONG(0 , 100, 0 ), "dark green" },
371 { RGB_TO_ULONG(0 , 100, 0 ), "DarkGreen" },
372 { RGB_TO_ULONG(85 , 107, 47 ), "dark olive green" },
373 { RGB_TO_ULONG(85 , 107, 47 ), "DarkOliveGreen" },
374 { RGB_TO_ULONG(143, 188, 143), "dark sea green" },
375 { RGB_TO_ULONG(143, 188, 143), "DarkSeaGreen" },
376 { RGB_TO_ULONG(46 , 139, 87 ), "sea green" },
377 { RGB_TO_ULONG(46 , 139, 87 ), "SeaGreen" },
378 { RGB_TO_ULONG(60 , 179, 113), "medium sea green" },
379 { RGB_TO_ULONG(60 , 179, 113), "MediumSeaGreen" },
380 { RGB_TO_ULONG(32 , 178, 170), "light sea green" },
381 { RGB_TO_ULONG(32 , 178, 170), "LightSeaGreen" },
382 { RGB_TO_ULONG(152, 251, 152), "pale green" },
383 { RGB_TO_ULONG(152, 251, 152), "PaleGreen" },
384 { RGB_TO_ULONG(0 , 255, 127), "spring green" },
385 { RGB_TO_ULONG(0 , 255, 127), "SpringGreen" },
386 { RGB_TO_ULONG(124, 252, 0 ), "lawn green" },
387 { RGB_TO_ULONG(124, 252, 0 ), "LawnGreen" },
388 { RGB_TO_ULONG(0 , 255, 0 ), "green" },
389 { RGB_TO_ULONG(127, 255, 0 ), "chartreuse" },
390 { RGB_TO_ULONG(0 , 250, 154), "medium spring green" },
391 { RGB_TO_ULONG(0 , 250, 154), "MediumSpringGreen" },
392 { RGB_TO_ULONG(173, 255, 47 ), "green yellow" },
393 { RGB_TO_ULONG(173, 255, 47 ), "GreenYellow" },
394 { RGB_TO_ULONG(50 , 205, 50 ), "lime green" },
395 { RGB_TO_ULONG(50 , 205, 50 ), "LimeGreen" },
396 { RGB_TO_ULONG(154, 205, 50 ), "yellow green" },
397 { RGB_TO_ULONG(154, 205, 50 ), "YellowGreen" },
398 { RGB_TO_ULONG(34 , 139, 34 ), "forest green" },
399 { RGB_TO_ULONG(34 , 139, 34 ), "ForestGreen" },
400 { RGB_TO_ULONG(107, 142, 35 ), "olive drab" },
401 { RGB_TO_ULONG(107, 142, 35 ), "OliveDrab" },
402 { RGB_TO_ULONG(189, 183, 107), "dark khaki" },
403 { RGB_TO_ULONG(189, 183, 107), "DarkKhaki" },
404 { RGB_TO_ULONG(240, 230, 140), "khaki" },
405 { RGB_TO_ULONG(238, 232, 170), "pale goldenrod" },
406 { RGB_TO_ULONG(238, 232, 170), "PaleGoldenrod" },
407 { RGB_TO_ULONG(250, 250, 210), "light goldenrod yellow" },
408 { RGB_TO_ULONG(250, 250, 210), "LightGoldenrodYellow" },
409 { RGB_TO_ULONG(255, 255, 224), "light yellow" },
410 { RGB_TO_ULONG(255, 255, 224), "LightYellow" },
411 { RGB_TO_ULONG(255, 255, 0 ), "yellow" },
412 { RGB_TO_ULONG(255, 215, 0 ), "gold" },
413 { RGB_TO_ULONG(238, 221, 130), "light goldenrod" },
414 { RGB_TO_ULONG(238, 221, 130), "LightGoldenrod" },
415 { RGB_TO_ULONG(218, 165, 32 ), "goldenrod" },
416 { RGB_TO_ULONG(184, 134, 11 ), "dark goldenrod" },
417 { RGB_TO_ULONG(184, 134, 11 ), "DarkGoldenrod" },
418 { RGB_TO_ULONG(188, 143, 143), "rosy brown" },
419 { RGB_TO_ULONG(188, 143, 143), "RosyBrown" },
420 { RGB_TO_ULONG(205, 92 , 92 ), "indian red" },
421 { RGB_TO_ULONG(205, 92 , 92 ), "IndianRed" },
422 { RGB_TO_ULONG(139, 69 , 19 ), "saddle brown" },
423 { RGB_TO_ULONG(139, 69 , 19 ), "SaddleBrown" },
424 { RGB_TO_ULONG(160, 82 , 45 ), "sienna" },
425 { RGB_TO_ULONG(205, 133, 63 ), "peru" },
426 { RGB_TO_ULONG(222, 184, 135), "burlywood" },
427 { RGB_TO_ULONG(245, 245, 220), "beige" },
428 { RGB_TO_ULONG(245, 222, 179), "wheat" },
429 { RGB_TO_ULONG(244, 164, 96 ), "sandy brown" },
430 { RGB_TO_ULONG(244, 164, 96 ), "SandyBrown" },
431 { RGB_TO_ULONG(210, 180, 140), "tan" },
432 { RGB_TO_ULONG(210, 105, 30 ), "chocolate" },
433 { RGB_TO_ULONG(178, 34 , 34 ), "firebrick" },
434 { RGB_TO_ULONG(165, 42 , 42 ), "brown" },
435 { RGB_TO_ULONG(233, 150, 122), "dark salmon" },
436 { RGB_TO_ULONG(233, 150, 122), "DarkSalmon" },
437 { RGB_TO_ULONG(250, 128, 114), "salmon" },
438 { RGB_TO_ULONG(255, 160, 122), "light salmon" },
439 { RGB_TO_ULONG(255, 160, 122), "LightSalmon" },
440 { RGB_TO_ULONG(255, 165, 0 ), "orange" },
441 { RGB_TO_ULONG(255, 140, 0 ), "dark orange" },
442 { RGB_TO_ULONG(255, 140, 0 ), "DarkOrange" },
443 { RGB_TO_ULONG(255, 127, 80 ), "coral" },
444 { RGB_TO_ULONG(240, 128, 128), "light coral" },
445 { RGB_TO_ULONG(240, 128, 128), "LightCoral" },
446 { RGB_TO_ULONG(255, 99 , 71 ), "tomato" },
447 { RGB_TO_ULONG(255, 69 , 0 ), "orange red" },
448 { RGB_TO_ULONG(255, 69 , 0 ), "OrangeRed" },
449 { RGB_TO_ULONG(255, 0 , 0 ), "red" },
450 { RGB_TO_ULONG(255, 105, 180), "hot pink" },
451 { RGB_TO_ULONG(255, 105, 180), "HotPink" },
452 { RGB_TO_ULONG(255, 20 , 147), "deep pink" },
453 { RGB_TO_ULONG(255, 20 , 147), "DeepPink" },
454 { RGB_TO_ULONG(255, 192, 203), "pink" },
455 { RGB_TO_ULONG(255, 182, 193), "light pink" },
456 { RGB_TO_ULONG(255, 182, 193), "LightPink" },
457 { RGB_TO_ULONG(219, 112, 147), "pale violet red" },
458 { RGB_TO_ULONG(219, 112, 147), "PaleVioletRed" },
459 { RGB_TO_ULONG(176, 48 , 96 ), "maroon" },
460 { RGB_TO_ULONG(199, 21 , 133), "medium violet red" },
461 { RGB_TO_ULONG(199, 21 , 133), "MediumVioletRed" },
462 { RGB_TO_ULONG(208, 32 , 144), "violet red" },
463 { RGB_TO_ULONG(208, 32 , 144), "VioletRed" },
464 { RGB_TO_ULONG(255, 0 , 255), "magenta" },
465 { RGB_TO_ULONG(238, 130, 238), "violet" },
466 { RGB_TO_ULONG(221, 160, 221), "plum" },
467 { RGB_TO_ULONG(218, 112, 214), "orchid" },
468 { RGB_TO_ULONG(186, 85 , 211), "medium orchid" },
469 { RGB_TO_ULONG(186, 85 , 211), "MediumOrchid" },
470 { RGB_TO_ULONG(153, 50 , 204), "dark orchid" },
471 { RGB_TO_ULONG(153, 50 , 204), "DarkOrchid" },
472 { RGB_TO_ULONG(148, 0 , 211), "dark violet" },
473 { RGB_TO_ULONG(148, 0 , 211), "DarkViolet" },
474 { RGB_TO_ULONG(138, 43 , 226), "blue violet" },
475 { RGB_TO_ULONG(138, 43 , 226), "BlueViolet" },
476 { RGB_TO_ULONG(160, 32 , 240), "purple" },
477 { RGB_TO_ULONG(147, 112, 219), "medium purple" },
478 { RGB_TO_ULONG(147, 112, 219), "MediumPurple" },
479 { RGB_TO_ULONG(216, 191, 216), "thistle" },
480 { RGB_TO_ULONG(255, 250, 250), "snow1" },
481 { RGB_TO_ULONG(238, 233, 233), "snow2" },
482 { RGB_TO_ULONG(205, 201, 201), "snow3" },
483 { RGB_TO_ULONG(139, 137, 137), "snow4" },
484 { RGB_TO_ULONG(255, 245, 238), "seashell1" },
485 { RGB_TO_ULONG(238, 229, 222), "seashell2" },
486 { RGB_TO_ULONG(205, 197, 191), "seashell3" },
487 { RGB_TO_ULONG(139, 134, 130), "seashell4" },
488 { RGB_TO_ULONG(255, 239, 219), "AntiqueWhite1" },
489 { RGB_TO_ULONG(238, 223, 204), "AntiqueWhite2" },
490 { RGB_TO_ULONG(205, 192, 176), "AntiqueWhite3" },
491 { RGB_TO_ULONG(139, 131, 120), "AntiqueWhite4" },
492 { RGB_TO_ULONG(255, 228, 196), "bisque1" },
493 { RGB_TO_ULONG(238, 213, 183), "bisque2" },
494 { RGB_TO_ULONG(205, 183, 158), "bisque3" },
495 { RGB_TO_ULONG(139, 125, 107), "bisque4" },
496 { RGB_TO_ULONG(255, 218, 185), "PeachPuff1" },
497 { RGB_TO_ULONG(238, 203, 173), "PeachPuff2" },
498 { RGB_TO_ULONG(205, 175, 149), "PeachPuff3" },
499 { RGB_TO_ULONG(139, 119, 101), "PeachPuff4" },
500 { RGB_TO_ULONG(255, 222, 173), "NavajoWhite1" },
501 { RGB_TO_ULONG(238, 207, 161), "NavajoWhite2" },
502 { RGB_TO_ULONG(205, 179, 139), "NavajoWhite3" },
503 { RGB_TO_ULONG(139, 121, 94), "NavajoWhite4" },
504 { RGB_TO_ULONG(255, 250, 205), "LemonChiffon1" },
505 { RGB_TO_ULONG(238, 233, 191), "LemonChiffon2" },
506 { RGB_TO_ULONG(205, 201, 165), "LemonChiffon3" },
507 { RGB_TO_ULONG(139, 137, 112), "LemonChiffon4" },
508 { RGB_TO_ULONG(255, 248, 220), "cornsilk1" },
509 { RGB_TO_ULONG(238, 232, 205), "cornsilk2" },
510 { RGB_TO_ULONG(205, 200, 177), "cornsilk3" },
511 { RGB_TO_ULONG(139, 136, 120), "cornsilk4" },
512 { RGB_TO_ULONG(255, 255, 240), "ivory1" },
513 { RGB_TO_ULONG(238, 238, 224), "ivory2" },
514 { RGB_TO_ULONG(205, 205, 193), "ivory3" },
515 { RGB_TO_ULONG(139, 139, 131), "ivory4" },
516 { RGB_TO_ULONG(240, 255, 240), "honeydew1" },
517 { RGB_TO_ULONG(224, 238, 224), "honeydew2" },
518 { RGB_TO_ULONG(193, 205, 193), "honeydew3" },
519 { RGB_TO_ULONG(131, 139, 131), "honeydew4" },
520 { RGB_TO_ULONG(255, 240, 245), "LavenderBlush1" },
521 { RGB_TO_ULONG(238, 224, 229), "LavenderBlush2" },
522 { RGB_TO_ULONG(205, 193, 197), "LavenderBlush3" },
523 { RGB_TO_ULONG(139, 131, 134), "LavenderBlush4" },
524 { RGB_TO_ULONG(255, 228, 225), "MistyRose1" },
525 { RGB_TO_ULONG(238, 213, 210), "MistyRose2" },
526 { RGB_TO_ULONG(205, 183, 181), "MistyRose3" },
527 { RGB_TO_ULONG(139, 125, 123), "MistyRose4" },
528 { RGB_TO_ULONG(240, 255, 255), "azure1" },
529 { RGB_TO_ULONG(224, 238, 238), "azure2" },
530 { RGB_TO_ULONG(193, 205, 205), "azure3" },
531 { RGB_TO_ULONG(131, 139, 139), "azure4" },
532 { RGB_TO_ULONG(131, 111, 255), "SlateBlue1" },
533 { RGB_TO_ULONG(122, 103, 238), "SlateBlue2" },
534 { RGB_TO_ULONG(105, 89 , 205), "SlateBlue3" },
535 { RGB_TO_ULONG(71 , 60 , 139), "SlateBlue4" },
536 { RGB_TO_ULONG(72 , 118, 255), "RoyalBlue1" },
537 { RGB_TO_ULONG(67 , 110, 238), "RoyalBlue2" },
538 { RGB_TO_ULONG(58 , 95 , 205), "RoyalBlue3" },
539 { RGB_TO_ULONG(39 , 64 , 139), "RoyalBlue4" },
540 { RGB_TO_ULONG(0 , 0 , 255), "blue1" },
541 { RGB_TO_ULONG(0 , 0 , 238), "blue2" },
542 { RGB_TO_ULONG(0 , 0 , 205), "blue3" },
543 { RGB_TO_ULONG(0 , 0 , 139), "blue4" },
544 { RGB_TO_ULONG(30 , 144, 255), "DodgerBlue1" },
545 { RGB_TO_ULONG(28 , 134, 238), "DodgerBlue2" },
546 { RGB_TO_ULONG(24 , 116, 205), "DodgerBlue3" },
547 { RGB_TO_ULONG(16 , 78 , 139), "DodgerBlue4" },
548 { RGB_TO_ULONG(99 , 184, 255), "SteelBlue1" },
549 { RGB_TO_ULONG(92 , 172, 238), "SteelBlue2" },
550 { RGB_TO_ULONG(79 , 148, 205), "SteelBlue3" },
551 { RGB_TO_ULONG(54 , 100, 139), "SteelBlue4" },
552 { RGB_TO_ULONG(0 , 191, 255), "DeepSkyBlue1" },
553 { RGB_TO_ULONG(0 , 178, 238), "DeepSkyBlue2" },
554 { RGB_TO_ULONG(0 , 154, 205), "DeepSkyBlue3" },
555 { RGB_TO_ULONG(0 , 104, 139), "DeepSkyBlue4" },
556 { RGB_TO_ULONG(135, 206, 255), "SkyBlue1" },
557 { RGB_TO_ULONG(126, 192, 238), "SkyBlue2" },
558 { RGB_TO_ULONG(108, 166, 205), "SkyBlue3" },
559 { RGB_TO_ULONG(74 , 112, 139), "SkyBlue4" },
560 { RGB_TO_ULONG(176, 226, 255), "LightSkyBlue1" },
561 { RGB_TO_ULONG(164, 211, 238), "LightSkyBlue2" },
562 { RGB_TO_ULONG(141, 182, 205), "LightSkyBlue3" },
563 { RGB_TO_ULONG(96 , 123, 139), "LightSkyBlue4" },
564 { RGB_TO_ULONG(198, 226, 255), "SlateGray1" },
565 { RGB_TO_ULONG(185, 211, 238), "SlateGray2" },
566 { RGB_TO_ULONG(159, 182, 205), "SlateGray3" },
567 { RGB_TO_ULONG(108, 123, 139), "SlateGray4" },
568 { RGB_TO_ULONG(202, 225, 255), "LightSteelBlue1" },
569 { RGB_TO_ULONG(188, 210, 238), "LightSteelBlue2" },
570 { RGB_TO_ULONG(162, 181, 205), "LightSteelBlue3" },
571 { RGB_TO_ULONG(110, 123, 139), "LightSteelBlue4" },
572 { RGB_TO_ULONG(191, 239, 255), "LightBlue1" },
573 { RGB_TO_ULONG(178, 223, 238), "LightBlue2" },
574 { RGB_TO_ULONG(154, 192, 205), "LightBlue3" },
575 { RGB_TO_ULONG(104, 131, 139), "LightBlue4" },
576 { RGB_TO_ULONG(224, 255, 255), "LightCyan1" },
577 { RGB_TO_ULONG(209, 238, 238), "LightCyan2" },
578 { RGB_TO_ULONG(180, 205, 205), "LightCyan3" },
579 { RGB_TO_ULONG(122, 139, 139), "LightCyan4" },
580 { RGB_TO_ULONG(187, 255, 255), "PaleTurquoise1" },
581 { RGB_TO_ULONG(174, 238, 238), "PaleTurquoise2" },
582 { RGB_TO_ULONG(150, 205, 205), "PaleTurquoise3" },
583 { RGB_TO_ULONG(102, 139, 139), "PaleTurquoise4" },
584 { RGB_TO_ULONG(152, 245, 255), "CadetBlue1" },
585 { RGB_TO_ULONG(142, 229, 238), "CadetBlue2" },
586 { RGB_TO_ULONG(122, 197, 205), "CadetBlue3" },
587 { RGB_TO_ULONG(83 , 134, 139), "CadetBlue4" },
588 { RGB_TO_ULONG(0 , 245, 255), "turquoise1" },
589 { RGB_TO_ULONG(0 , 229, 238), "turquoise2" },
590 { RGB_TO_ULONG(0 , 197, 205), "turquoise3" },
591 { RGB_TO_ULONG(0 , 134, 139), "turquoise4" },
592 { RGB_TO_ULONG(0 , 255, 255), "cyan1" },
593 { RGB_TO_ULONG(0 , 238, 238), "cyan2" },
594 { RGB_TO_ULONG(0 , 205, 205), "cyan3" },
595 { RGB_TO_ULONG(0 , 139, 139), "cyan4" },
596 { RGB_TO_ULONG(151, 255, 255), "DarkSlateGray1" },
597 { RGB_TO_ULONG(141, 238, 238), "DarkSlateGray2" },
598 { RGB_TO_ULONG(121, 205, 205), "DarkSlateGray3" },
599 { RGB_TO_ULONG(82 , 139, 139), "DarkSlateGray4" },
600 { RGB_TO_ULONG(127, 255, 212), "aquamarine1" },
601 { RGB_TO_ULONG(118, 238, 198), "aquamarine2" },
602 { RGB_TO_ULONG(102, 205, 170), "aquamarine3" },
603 { RGB_TO_ULONG(69 , 139, 116), "aquamarine4" },
604 { RGB_TO_ULONG(193, 255, 193), "DarkSeaGreen1" },
605 { RGB_TO_ULONG(180, 238, 180), "DarkSeaGreen2" },
606 { RGB_TO_ULONG(155, 205, 155), "DarkSeaGreen3" },
607 { RGB_TO_ULONG(105, 139, 105), "DarkSeaGreen4" },
608 { RGB_TO_ULONG(84 , 255, 159), "SeaGreen1" },
609 { RGB_TO_ULONG(78 , 238, 148), "SeaGreen2" },
610 { RGB_TO_ULONG(67 , 205, 128), "SeaGreen3" },
611 { RGB_TO_ULONG(46 , 139, 87 ), "SeaGreen4" },
612 { RGB_TO_ULONG(154, 255, 154), "PaleGreen1" },
613 { RGB_TO_ULONG(144, 238, 144), "PaleGreen2" },
614 { RGB_TO_ULONG(124, 205, 124), "PaleGreen3" },
615 { RGB_TO_ULONG(84 , 139, 84 ), "PaleGreen4" },
616 { RGB_TO_ULONG(0 , 255, 127), "SpringGreen1" },
617 { RGB_TO_ULONG(0 , 238, 118), "SpringGreen2" },
618 { RGB_TO_ULONG(0 , 205, 102), "SpringGreen3" },
619 { RGB_TO_ULONG(0 , 139, 69 ), "SpringGreen4" },
620 { RGB_TO_ULONG(0 , 255, 0 ), "green1" },
621 { RGB_TO_ULONG(0 , 238, 0 ), "green2" },
622 { RGB_TO_ULONG(0 , 205, 0 ), "green3" },
623 { RGB_TO_ULONG(0 , 139, 0 ), "green4" },
624 { RGB_TO_ULONG(127, 255, 0 ), "chartreuse1" },
625 { RGB_TO_ULONG(118, 238, 0 ), "chartreuse2" },
626 { RGB_TO_ULONG(102, 205, 0 ), "chartreuse3" },
627 { RGB_TO_ULONG(69 , 139, 0 ), "chartreuse4" },
628 { RGB_TO_ULONG(192, 255, 62 ), "OliveDrab1" },
629 { RGB_TO_ULONG(179, 238, 58 ), "OliveDrab2" },
630 { RGB_TO_ULONG(154, 205, 50 ), "OliveDrab3" },
631 { RGB_TO_ULONG(105, 139, 34 ), "OliveDrab4" },
632 { RGB_TO_ULONG(202, 255, 112), "DarkOliveGreen1" },
633 { RGB_TO_ULONG(188, 238, 104), "DarkOliveGreen2" },
634 { RGB_TO_ULONG(162, 205, 90 ), "DarkOliveGreen3" },
635 { RGB_TO_ULONG(110, 139, 61 ), "DarkOliveGreen4" },
636 { RGB_TO_ULONG(255, 246, 143), "khaki1" },
637 { RGB_TO_ULONG(238, 230, 133), "khaki2" },
638 { RGB_TO_ULONG(205, 198, 115), "khaki3" },
639 { RGB_TO_ULONG(139, 134, 78 ), "khaki4" },
640 { RGB_TO_ULONG(255, 236, 139), "LightGoldenrod1" },
641 { RGB_TO_ULONG(238, 220, 130), "LightGoldenrod2" },
642 { RGB_TO_ULONG(205, 190, 112), "LightGoldenrod3" },
643 { RGB_TO_ULONG(139, 129, 76 ), "LightGoldenrod4" },
644 { RGB_TO_ULONG(255, 255, 224), "LightYellow1" },
645 { RGB_TO_ULONG(238, 238, 209), "LightYellow2" },
646 { RGB_TO_ULONG(205, 205, 180), "LightYellow3" },
647 { RGB_TO_ULONG(139, 139, 122), "LightYellow4" },
648 { RGB_TO_ULONG(255, 255, 0 ), "yellow1" },
649 { RGB_TO_ULONG(238, 238, 0 ), "yellow2" },
650 { RGB_TO_ULONG(205, 205, 0 ), "yellow3" },
651 { RGB_TO_ULONG(139, 139, 0 ), "yellow4" },
652 { RGB_TO_ULONG(255, 215, 0 ), "gold1" },
653 { RGB_TO_ULONG(238, 201, 0 ), "gold2" },
654 { RGB_TO_ULONG(205, 173, 0 ), "gold3" },
655 { RGB_TO_ULONG(139, 117, 0 ), "gold4" },
656 { RGB_TO_ULONG(255, 193, 37 ), "goldenrod1" },
657 { RGB_TO_ULONG(238, 180, 34 ), "goldenrod2" },
658 { RGB_TO_ULONG(205, 155, 29 ), "goldenrod3" },
659 { RGB_TO_ULONG(139, 105, 20 ), "goldenrod4" },
660 { RGB_TO_ULONG(255, 185, 15 ), "DarkGoldenrod1" },
661 { RGB_TO_ULONG(238, 173, 14 ), "DarkGoldenrod2" },
662 { RGB_TO_ULONG(205, 149, 12 ), "DarkGoldenrod3" },
663 { RGB_TO_ULONG(139, 101, 8 ), "DarkGoldenrod4" },
664 { RGB_TO_ULONG(255, 193, 193), "RosyBrown1" },
665 { RGB_TO_ULONG(238, 180, 180), "RosyBrown2" },
666 { RGB_TO_ULONG(205, 155, 155), "RosyBrown3" },
667 { RGB_TO_ULONG(139, 105, 105), "RosyBrown4" },
668 { RGB_TO_ULONG(255, 106, 106), "IndianRed1" },
669 { RGB_TO_ULONG(238, 99 , 99 ), "IndianRed2" },
670 { RGB_TO_ULONG(205, 85 , 85 ), "IndianRed3" },
671 { RGB_TO_ULONG(139, 58 , 58 ), "IndianRed4" },
672 { RGB_TO_ULONG(255, 130, 71 ), "sienna1" },
673 { RGB_TO_ULONG(238, 121, 66 ), "sienna2" },
674 { RGB_TO_ULONG(205, 104, 57 ), "sienna3" },
675 { RGB_TO_ULONG(139, 71 , 38 ), "sienna4" },
676 { RGB_TO_ULONG(255, 211, 155), "burlywood1" },
677 { RGB_TO_ULONG(238, 197, 145), "burlywood2" },
678 { RGB_TO_ULONG(205, 170, 125), "burlywood3" },
679 { RGB_TO_ULONG(139, 115, 85 ), "burlywood4" },
680 { RGB_TO_ULONG(255, 231, 186), "wheat1" },
681 { RGB_TO_ULONG(238, 216, 174), "wheat2" },
682 { RGB_TO_ULONG(205, 186, 150), "wheat3" },
683 { RGB_TO_ULONG(139, 126, 102), "wheat4" },
684 { RGB_TO_ULONG(255, 165, 79 ), "tan1" },
685 { RGB_TO_ULONG(238, 154, 73 ), "tan2" },
686 { RGB_TO_ULONG(205, 133, 63 ), "tan3" },
687 { RGB_TO_ULONG(139, 90 , 43 ), "tan4" },
688 { RGB_TO_ULONG(255, 127, 36 ), "chocolate1" },
689 { RGB_TO_ULONG(238, 118, 33 ), "chocolate2" },
690 { RGB_TO_ULONG(205, 102, 29 ), "chocolate3" },
691 { RGB_TO_ULONG(139, 69 , 19 ), "chocolate4" },
692 { RGB_TO_ULONG(255, 48 , 48 ), "firebrick1" },
693 { RGB_TO_ULONG(238, 44 , 44 ), "firebrick2" },
694 { RGB_TO_ULONG(205, 38 , 38 ), "firebrick3" },
695 { RGB_TO_ULONG(139, 26 , 26 ), "firebrick4" },
696 { RGB_TO_ULONG(255, 64 , 64 ), "brown1" },
697 { RGB_TO_ULONG(238, 59 , 59 ), "brown2" },
698 { RGB_TO_ULONG(205, 51 , 51 ), "brown3" },
699 { RGB_TO_ULONG(139, 35 , 35 ), "brown4" },
700 { RGB_TO_ULONG(255, 140, 105), "salmon1" },
701 { RGB_TO_ULONG(238, 130, 98 ), "salmon2" },
702 { RGB_TO_ULONG(205, 112, 84 ), "salmon3" },
703 { RGB_TO_ULONG(139, 76 , 57 ), "salmon4" },
704 { RGB_TO_ULONG(255, 160, 122), "LightSalmon1" },
705 { RGB_TO_ULONG(238, 149, 114), "LightSalmon2" },
706 { RGB_TO_ULONG(205, 129, 98 ), "LightSalmon3" },
707 { RGB_TO_ULONG(139, 87 , 66 ), "LightSalmon4" },
708 { RGB_TO_ULONG(255, 165, 0 ), "orange1" },
709 { RGB_TO_ULONG(238, 154, 0 ), "orange2" },
710 { RGB_TO_ULONG(205, 133, 0 ), "orange3" },
711 { RGB_TO_ULONG(139, 90 , 0 ), "orange4" },
712 { RGB_TO_ULONG(255, 127, 0 ), "DarkOrange1" },
713 { RGB_TO_ULONG(238, 118, 0 ), "DarkOrange2" },
714 { RGB_TO_ULONG(205, 102, 0 ), "DarkOrange3" },
715 { RGB_TO_ULONG(139, 69 , 0 ), "DarkOrange4" },
716 { RGB_TO_ULONG(255, 114, 86 ), "coral1" },
717 { RGB_TO_ULONG(238, 106, 80 ), "coral2" },
718 { RGB_TO_ULONG(205, 91 , 69 ), "coral3" },
719 { RGB_TO_ULONG(139, 62 , 47 ), "coral4" },
720 { RGB_TO_ULONG(255, 99 , 71 ), "tomato1" },
721 { RGB_TO_ULONG(238, 92 , 66 ), "tomato2" },
722 { RGB_TO_ULONG(205, 79 , 57 ), "tomato3" },
723 { RGB_TO_ULONG(139, 54 , 38 ), "tomato4" },
724 { RGB_TO_ULONG(255, 69 , 0 ), "OrangeRed1" },
725 { RGB_TO_ULONG(238, 64 , 0 ), "OrangeRed2" },
726 { RGB_TO_ULONG(205, 55 , 0 ), "OrangeRed3" },
727 { RGB_TO_ULONG(139, 37 , 0 ), "OrangeRed4" },
728 { RGB_TO_ULONG(255, 0 , 0 ), "red1" },
729 { RGB_TO_ULONG(238, 0 , 0 ), "red2" },
730 { RGB_TO_ULONG(205, 0 , 0 ), "red3" },
731 { RGB_TO_ULONG(139, 0 , 0 ), "red4" },
732 { RGB_TO_ULONG(255, 20 , 147), "DeepPink1" },
733 { RGB_TO_ULONG(238, 18 , 137), "DeepPink2" },
734 { RGB_TO_ULONG(205, 16 , 118), "DeepPink3" },
735 { RGB_TO_ULONG(139, 10 , 80 ), "DeepPink4" },
736 { RGB_TO_ULONG(255, 110, 180), "HotPink1" },
737 { RGB_TO_ULONG(238, 106, 167), "HotPink2" },
738 { RGB_TO_ULONG(205, 96 , 144), "HotPink3" },
739 { RGB_TO_ULONG(139, 58 , 98 ), "HotPink4" },
740 { RGB_TO_ULONG(255, 181, 197), "pink1" },
741 { RGB_TO_ULONG(238, 169, 184), "pink2" },
742 { RGB_TO_ULONG(205, 145, 158), "pink3" },
743 { RGB_TO_ULONG(139, 99 , 108), "pink4" },
744 { RGB_TO_ULONG(255, 174, 185), "LightPink1" },
745 { RGB_TO_ULONG(238, 162, 173), "LightPink2" },
746 { RGB_TO_ULONG(205, 140, 149), "LightPink3" },
747 { RGB_TO_ULONG(139, 95 , 101), "LightPink4" },
748 { RGB_TO_ULONG(255, 130, 171), "PaleVioletRed1" },
749 { RGB_TO_ULONG(238, 121, 159), "PaleVioletRed2" },
750 { RGB_TO_ULONG(205, 104, 137), "PaleVioletRed3" },
751 { RGB_TO_ULONG(139, 71 , 93 ), "PaleVioletRed4" },
752 { RGB_TO_ULONG(255, 52 , 179), "maroon1" },
753 { RGB_TO_ULONG(238, 48 , 167), "maroon2" },
754 { RGB_TO_ULONG(205, 41 , 144), "maroon3" },
755 { RGB_TO_ULONG(139, 28 , 98 ), "maroon4" },
756 { RGB_TO_ULONG(255, 62 , 150), "VioletRed1" },
757 { RGB_TO_ULONG(238, 58 , 140), "VioletRed2" },
758 { RGB_TO_ULONG(205, 50 , 120), "VioletRed3" },
759 { RGB_TO_ULONG(139, 34 , 82 ), "VioletRed4" },
760 { RGB_TO_ULONG(255, 0 , 255), "magenta1" },
761 { RGB_TO_ULONG(238, 0 , 238), "magenta2" },
762 { RGB_TO_ULONG(205, 0 , 205), "magenta3" },
763 { RGB_TO_ULONG(139, 0 , 139), "magenta4" },
764 { RGB_TO_ULONG(255, 131, 250), "orchid1" },
765 { RGB_TO_ULONG(238, 122, 233), "orchid2" },
766 { RGB_TO_ULONG(205, 105, 201), "orchid3" },
767 { RGB_TO_ULONG(139, 71 , 137), "orchid4" },
768 { RGB_TO_ULONG(255, 187, 255), "plum1" },
769 { RGB_TO_ULONG(238, 174, 238), "plum2" },
770 { RGB_TO_ULONG(205, 150, 205), "plum3" },
771 { RGB_TO_ULONG(139, 102, 139), "plum4" },
772 { RGB_TO_ULONG(224, 102, 255), "MediumOrchid1" },
773 { RGB_TO_ULONG(209, 95 , 238), "MediumOrchid2" },
774 { RGB_TO_ULONG(180, 82 , 205), "MediumOrchid3" },
775 { RGB_TO_ULONG(122, 55 , 139), "MediumOrchid4" },
776 { RGB_TO_ULONG(191, 62 , 255), "DarkOrchid1" },
777 { RGB_TO_ULONG(178, 58 , 238), "DarkOrchid2" },
778 { RGB_TO_ULONG(154, 50 , 205), "DarkOrchid3" },
779 { RGB_TO_ULONG(104, 34 , 139), "DarkOrchid4" },
780 { RGB_TO_ULONG(155, 48 , 255), "purple1" },
781 { RGB_TO_ULONG(145, 44 , 238), "purple2" },
782 { RGB_TO_ULONG(125, 38 , 205), "purple3" },
783 { RGB_TO_ULONG(85 , 26 , 139), "purple4" },
784 { RGB_TO_ULONG(171, 130, 255), "MediumPurple1" },
785 { RGB_TO_ULONG(159, 121, 238), "MediumPurple2" },
786 { RGB_TO_ULONG(137, 104, 205), "MediumPurple3" },
787 { RGB_TO_ULONG(93 , 71 , 139), "MediumPurple4" },
788 { RGB_TO_ULONG(255, 225, 255), "thistle1" },
789 { RGB_TO_ULONG(238, 210, 238), "thistle2" },
790 { RGB_TO_ULONG(205, 181, 205), "thistle3" },
791 { RGB_TO_ULONG(139, 123, 139), "thistle4" },
792 { RGB_TO_ULONG(0 , 0 , 0 ), "gray0" },
793 { RGB_TO_ULONG(0 , 0 , 0 ), "grey0" },
794 { RGB_TO_ULONG(3 , 3 , 3 ), "gray1" },
795 { RGB_TO_ULONG(3 , 3 , 3 ), "grey1" },
796 { RGB_TO_ULONG(5 , 5 , 5 ), "gray2" },
797 { RGB_TO_ULONG(5 , 5 , 5 ), "grey2" },
798 { RGB_TO_ULONG(8 , 8 , 8 ), "gray3" },
799 { RGB_TO_ULONG(8 , 8 , 8 ), "grey3" },
800 { RGB_TO_ULONG(10 , 10 , 10 ), "gray4" },
801 { RGB_TO_ULONG(10 , 10 , 10 ), "grey4" },
802 { RGB_TO_ULONG(13 , 13 , 13 ), "gray5" },
803 { RGB_TO_ULONG(13 , 13 , 13 ), "grey5" },
804 { RGB_TO_ULONG(15 , 15 , 15 ), "gray6" },
805 { RGB_TO_ULONG(15 , 15 , 15 ), "grey6" },
806 { RGB_TO_ULONG(18 , 18 , 18 ), "gray7" },
807 { RGB_TO_ULONG(18 , 18 , 18 ), "grey7" },
808 { RGB_TO_ULONG(20 , 20 , 20 ), "gray8" },
809 { RGB_TO_ULONG(20 , 20 , 20 ), "grey8" },
810 { RGB_TO_ULONG(23 , 23 , 23 ), "gray9" },
811 { RGB_TO_ULONG(23 , 23 , 23 ), "grey9" },
812 { RGB_TO_ULONG(26 , 26 , 26 ), "gray10" },
813 { RGB_TO_ULONG(26 , 26 , 26 ), "grey10" },
814 { RGB_TO_ULONG(28 , 28 , 28 ), "gray11" },
815 { RGB_TO_ULONG(28 , 28 , 28 ), "grey11" },
816 { RGB_TO_ULONG(31 , 31 , 31 ), "gray12" },
817 { RGB_TO_ULONG(31 , 31 , 31 ), "grey12" },
818 { RGB_TO_ULONG(33 , 33 , 33 ), "gray13" },
819 { RGB_TO_ULONG(33 , 33 , 33 ), "grey13" },
820 { RGB_TO_ULONG(36 , 36 , 36 ), "gray14" },
821 { RGB_TO_ULONG(36 , 36 , 36 ), "grey14" },
822 { RGB_TO_ULONG(38 , 38 , 38 ), "gray15" },
823 { RGB_TO_ULONG(38 , 38 , 38 ), "grey15" },
824 { RGB_TO_ULONG(41 , 41 , 41 ), "gray16" },
825 { RGB_TO_ULONG(41 , 41 , 41 ), "grey16" },
826 { RGB_TO_ULONG(43 , 43 , 43 ), "gray17" },
827 { RGB_TO_ULONG(43 , 43 , 43 ), "grey17" },
828 { RGB_TO_ULONG(46 , 46 , 46 ), "gray18" },
829 { RGB_TO_ULONG(46 , 46 , 46 ), "grey18" },
830 { RGB_TO_ULONG(48 , 48 , 48 ), "gray19" },
831 { RGB_TO_ULONG(48 , 48 , 48 ), "grey19" },
832 { RGB_TO_ULONG(51 , 51 , 51 ), "gray20" },
833 { RGB_TO_ULONG(51 , 51 , 51 ), "grey20" },
834 { RGB_TO_ULONG(54 , 54 , 54 ), "gray21" },
835 { RGB_TO_ULONG(54 , 54 , 54 ), "grey21" },
836 { RGB_TO_ULONG(56 , 56 , 56 ), "gray22" },
837 { RGB_TO_ULONG(56 , 56 , 56 ), "grey22" },
838 { RGB_TO_ULONG(59 , 59 , 59 ), "gray23" },
839 { RGB_TO_ULONG(59 , 59 , 59 ), "grey23" },
840 { RGB_TO_ULONG(61 , 61 , 61 ), "gray24" },
841 { RGB_TO_ULONG(61 , 61 , 61 ), "grey24" },
842 { RGB_TO_ULONG(64 , 64 , 64 ), "gray25" },
843 { RGB_TO_ULONG(64 , 64 , 64 ), "grey25" },
844 { RGB_TO_ULONG(66 , 66 , 66 ), "gray26" },
845 { RGB_TO_ULONG(66 , 66 , 66 ), "grey26" },
846 { RGB_TO_ULONG(69 , 69 , 69 ), "gray27" },
847 { RGB_TO_ULONG(69 , 69 , 69 ), "grey27" },
848 { RGB_TO_ULONG(71 , 71 , 71 ), "gray28" },
849 { RGB_TO_ULONG(71 , 71 , 71 ), "grey28" },
850 { RGB_TO_ULONG(74 , 74 , 74 ), "gray29" },
851 { RGB_TO_ULONG(74 , 74 , 74 ), "grey29" },
852 { RGB_TO_ULONG(77 , 77 , 77 ), "gray30" },
853 { RGB_TO_ULONG(77 , 77 , 77 ), "grey30" },
854 { RGB_TO_ULONG(79 , 79 , 79 ), "gray31" },
855 { RGB_TO_ULONG(79 , 79 , 79 ), "grey31" },
856 { RGB_TO_ULONG(82 , 82 , 82 ), "gray32" },
857 { RGB_TO_ULONG(82 , 82 , 82 ), "grey32" },
858 { RGB_TO_ULONG(84 , 84 , 84 ), "gray33" },
859 { RGB_TO_ULONG(84 , 84 , 84 ), "grey33" },
860 { RGB_TO_ULONG(87 , 87 , 87 ), "gray34" },
861 { RGB_TO_ULONG(87 , 87 , 87 ), "grey34" },
862 { RGB_TO_ULONG(89 , 89 , 89 ), "gray35" },
863 { RGB_TO_ULONG(89 , 89 , 89 ), "grey35" },
864 { RGB_TO_ULONG(92 , 92 , 92 ), "gray36" },
865 { RGB_TO_ULONG(92 , 92 , 92 ), "grey36" },
866 { RGB_TO_ULONG(94 , 94 , 94 ), "gray37" },
867 { RGB_TO_ULONG(94 , 94 , 94 ), "grey37" },
868 { RGB_TO_ULONG(97 , 97 , 97 ), "gray38" },
869 { RGB_TO_ULONG(97 , 97 , 97 ), "grey38" },
870 { RGB_TO_ULONG(99 , 99 , 99 ), "gray39" },
871 { RGB_TO_ULONG(99 , 99 , 99 ), "grey39" },
872 { RGB_TO_ULONG(102, 102, 102), "gray40" },
873 { RGB_TO_ULONG(102, 102, 102), "grey40" },
874 { RGB_TO_ULONG(105, 105, 105), "gray41" },
875 { RGB_TO_ULONG(105, 105, 105), "grey41" },
876 { RGB_TO_ULONG(107, 107, 107), "gray42" },
877 { RGB_TO_ULONG(107, 107, 107), "grey42" },
878 { RGB_TO_ULONG(110, 110, 110), "gray43" },
879 { RGB_TO_ULONG(110, 110, 110), "grey43" },
880 { RGB_TO_ULONG(112, 112, 112), "gray44" },
881 { RGB_TO_ULONG(112, 112, 112), "grey44" },
882 { RGB_TO_ULONG(115, 115, 115), "gray45" },
883 { RGB_TO_ULONG(115, 115, 115), "grey45" },
884 { RGB_TO_ULONG(117, 117, 117), "gray46" },
885 { RGB_TO_ULONG(117, 117, 117), "grey46" },
886 { RGB_TO_ULONG(120, 120, 120), "gray47" },
887 { RGB_TO_ULONG(120, 120, 120), "grey47" },
888 { RGB_TO_ULONG(122, 122, 122), "gray48" },
889 { RGB_TO_ULONG(122, 122, 122), "grey48" },
890 { RGB_TO_ULONG(125, 125, 125), "gray49" },
891 { RGB_TO_ULONG(125, 125, 125), "grey49" },
892 { RGB_TO_ULONG(127, 127, 127), "gray50" },
893 { RGB_TO_ULONG(127, 127, 127), "grey50" },
894 { RGB_TO_ULONG(130, 130, 130), "gray51" },
895 { RGB_TO_ULONG(130, 130, 130), "grey51" },
896 { RGB_TO_ULONG(133, 133, 133), "gray52" },
897 { RGB_TO_ULONG(133, 133, 133), "grey52" },
898 { RGB_TO_ULONG(135, 135, 135), "gray53" },
899 { RGB_TO_ULONG(135, 135, 135), "grey53" },
900 { RGB_TO_ULONG(138, 138, 138), "gray54" },
901 { RGB_TO_ULONG(138, 138, 138), "grey54" },
902 { RGB_TO_ULONG(140, 140, 140), "gray55" },
903 { RGB_TO_ULONG(140, 140, 140), "grey55" },
904 { RGB_TO_ULONG(143, 143, 143), "gray56" },
905 { RGB_TO_ULONG(143, 143, 143), "grey56" },
906 { RGB_TO_ULONG(145, 145, 145), "gray57" },
907 { RGB_TO_ULONG(145, 145, 145), "grey57" },
908 { RGB_TO_ULONG(148, 148, 148), "gray58" },
909 { RGB_TO_ULONG(148, 148, 148), "grey58" },
910 { RGB_TO_ULONG(150, 150, 150), "gray59" },
911 { RGB_TO_ULONG(150, 150, 150), "grey59" },
912 { RGB_TO_ULONG(153, 153, 153), "gray60" },
913 { RGB_TO_ULONG(153, 153, 153), "grey60" },
914 { RGB_TO_ULONG(156, 156, 156), "gray61" },
915 { RGB_TO_ULONG(156, 156, 156), "grey61" },
916 { RGB_TO_ULONG(158, 158, 158), "gray62" },
917 { RGB_TO_ULONG(158, 158, 158), "grey62" },
918 { RGB_TO_ULONG(161, 161, 161), "gray63" },
919 { RGB_TO_ULONG(161, 161, 161), "grey63" },
920 { RGB_TO_ULONG(163, 163, 163), "gray64" },
921 { RGB_TO_ULONG(163, 163, 163), "grey64" },
922 { RGB_TO_ULONG(166, 166, 166), "gray65" },
923 { RGB_TO_ULONG(166, 166, 166), "grey65" },
924 { RGB_TO_ULONG(168, 168, 168), "gray66" },
925 { RGB_TO_ULONG(168, 168, 168), "grey66" },
926 { RGB_TO_ULONG(171, 171, 171), "gray67" },
927 { RGB_TO_ULONG(171, 171, 171), "grey67" },
928 { RGB_TO_ULONG(173, 173, 173), "gray68" },
929 { RGB_TO_ULONG(173, 173, 173), "grey68" },
930 { RGB_TO_ULONG(176, 176, 176), "gray69" },
931 { RGB_TO_ULONG(176, 176, 176), "grey69" },
932 { RGB_TO_ULONG(179, 179, 179), "gray70" },
933 { RGB_TO_ULONG(179, 179, 179), "grey70" },
934 { RGB_TO_ULONG(181, 181, 181), "gray71" },
935 { RGB_TO_ULONG(181, 181, 181), "grey71" },
936 { RGB_TO_ULONG(184, 184, 184), "gray72" },
937 { RGB_TO_ULONG(184, 184, 184), "grey72" },
938 { RGB_TO_ULONG(186, 186, 186), "gray73" },
939 { RGB_TO_ULONG(186, 186, 186), "grey73" },
940 { RGB_TO_ULONG(189, 189, 189), "gray74" },
941 { RGB_TO_ULONG(189, 189, 189), "grey74" },
942 { RGB_TO_ULONG(191, 191, 191), "gray75" },
943 { RGB_TO_ULONG(191, 191, 191), "grey75" },
944 { RGB_TO_ULONG(194, 194, 194), "gray76" },
945 { RGB_TO_ULONG(194, 194, 194), "grey76" },
946 { RGB_TO_ULONG(196, 196, 196), "gray77" },
947 { RGB_TO_ULONG(196, 196, 196), "grey77" },
948 { RGB_TO_ULONG(199, 199, 199), "gray78" },
949 { RGB_TO_ULONG(199, 199, 199), "grey78" },
950 { RGB_TO_ULONG(201, 201, 201), "gray79" },
951 { RGB_TO_ULONG(201, 201, 201), "grey79" },
952 { RGB_TO_ULONG(204, 204, 204), "gray80" },
953 { RGB_TO_ULONG(204, 204, 204), "grey80" },
954 { RGB_TO_ULONG(207, 207, 207), "gray81" },
955 { RGB_TO_ULONG(207, 207, 207), "grey81" },
956 { RGB_TO_ULONG(209, 209, 209), "gray82" },
957 { RGB_TO_ULONG(209, 209, 209), "grey82" },
958 { RGB_TO_ULONG(212, 212, 212), "gray83" },
959 { RGB_TO_ULONG(212, 212, 212), "grey83" },
960 { RGB_TO_ULONG(214, 214, 214), "gray84" },
961 { RGB_TO_ULONG(214, 214, 214), "grey84" },
962 { RGB_TO_ULONG(217, 217, 217), "gray85" },
963 { RGB_TO_ULONG(217, 217, 217), "grey85" },
964 { RGB_TO_ULONG(219, 219, 219), "gray86" },
965 { RGB_TO_ULONG(219, 219, 219), "grey86" },
966 { RGB_TO_ULONG(222, 222, 222), "gray87" },
967 { RGB_TO_ULONG(222, 222, 222), "grey87" },
968 { RGB_TO_ULONG(224, 224, 224), "gray88" },
969 { RGB_TO_ULONG(224, 224, 224), "grey88" },
970 { RGB_TO_ULONG(227, 227, 227), "gray89" },
971 { RGB_TO_ULONG(227, 227, 227), "grey89" },
972 { RGB_TO_ULONG(229, 229, 229), "gray90" },
973 { RGB_TO_ULONG(229, 229, 229), "grey90" },
974 { RGB_TO_ULONG(232, 232, 232), "gray91" },
975 { RGB_TO_ULONG(232, 232, 232), "grey91" },
976 { RGB_TO_ULONG(235, 235, 235), "gray92" },
977 { RGB_TO_ULONG(235, 235, 235), "grey92" },
978 { RGB_TO_ULONG(237, 237, 237), "gray93" },
979 { RGB_TO_ULONG(237, 237, 237), "grey93" },
980 { RGB_TO_ULONG(240, 240, 240), "gray94" },
981 { RGB_TO_ULONG(240, 240, 240), "grey94" },
982 { RGB_TO_ULONG(242, 242, 242), "gray95" },
983 { RGB_TO_ULONG(242, 242, 242), "grey95" },
984 { RGB_TO_ULONG(245, 245, 245), "gray96" },
985 { RGB_TO_ULONG(245, 245, 245), "grey96" },
986 { RGB_TO_ULONG(247, 247, 247), "gray97" },
987 { RGB_TO_ULONG(247, 247, 247), "grey97" },
988 { RGB_TO_ULONG(250, 250, 250), "gray98" },
989 { RGB_TO_ULONG(250, 250, 250), "grey98" },
990 { RGB_TO_ULONG(252, 252, 252), "gray99" },
991 { RGB_TO_ULONG(252, 252, 252), "grey99" },
992 { RGB_TO_ULONG(255, 255, 255), "gray100" },
993 { RGB_TO_ULONG(255, 255, 255), "grey100" },
994 { RGB_TO_ULONG(169, 169, 169), "dark grey" },
995 { RGB_TO_ULONG(169, 169, 169), "DarkGrey" },
996 { RGB_TO_ULONG(169, 169, 169), "dark gray" },
997 { RGB_TO_ULONG(169, 169, 169), "DarkGray" },
998 { RGB_TO_ULONG(0 , 0 , 139), "dark blue" },
999 { RGB_TO_ULONG(0 , 0 , 139), "DarkBlue" },
1000 { RGB_TO_ULONG(0 , 139, 139), "dark cyan" },
1001 { RGB_TO_ULONG(0 , 139, 139), "DarkCyan" },
1002 { RGB_TO_ULONG(139, 0 , 139), "dark magenta" },
1003 { RGB_TO_ULONG(139, 0 , 139), "DarkMagenta" },
1004 { RGB_TO_ULONG(139, 0 , 0 ), "dark red" },
1005 { RGB_TO_ULONG(139, 0 , 0 ), "DarkRed" },
1006 { RGB_TO_ULONG(144, 238, 144), "light green" },
1007 { RGB_TO_ULONG(144, 238, 144), "LightGreen" }
1008 };
1009
1010 Lisp_Object
1011 mac_color_map_lookup (colorname)
1012 const char *colorname;
1013 {
1014 Lisp_Object ret = Qnil;
1015 int i;
1016
1017 BLOCK_INPUT;
1018
1019 for (i = 0; i < sizeof (mac_color_map) / sizeof (mac_color_map[0]); i++)
1020 if (xstricmp (colorname, mac_color_map[i].name) == 0)
1021 {
1022 ret = make_number (mac_color_map[i].color);
1023 break;
1024 }
1025
1026 UNBLOCK_INPUT;
1027
1028 return ret;
1029 }
1030
1031 Lisp_Object
1032 x_to_mac_color (colorname)
1033 char * colorname;
1034 {
1035 register Lisp_Object ret = Qnil;
1036
1037 BLOCK_INPUT;
1038
1039 if (colorname[0] == '#')
1040 {
1041 /* Could be an old-style RGB Device specification. */
1042 char *color;
1043 int size;
1044 color = colorname + 1;
1045
1046 size = strlen(color);
1047 if (size == 3 || size == 6 || size == 9 || size == 12)
1048 {
1049 unsigned long colorval;
1050 int i, pos;
1051 pos = 16;
1052 size /= 3;
1053 colorval = 0;
1054
1055 for (i = 0; i < 3; i++)
1056 {
1057 char *end;
1058 char t;
1059 unsigned long value;
1060
1061 /* The check for 'x' in the following conditional takes into
1062 account the fact that strtol allows a "0x" in front of
1063 our numbers, and we don't. */
1064 if (!isxdigit(color[0]) || color[1] == 'x')
1065 break;
1066 t = color[size];
1067 color[size] = '\0';
1068 value = strtoul(color, &end, 16);
1069 color[size] = t;
1070 if (errno == ERANGE || end - color != size)
1071 break;
1072 switch (size)
1073 {
1074 case 1:
1075 value = value * 0x10;
1076 break;
1077 case 2:
1078 break;
1079 case 3:
1080 value /= 0x10;
1081 break;
1082 case 4:
1083 value /= 0x100;
1084 break;
1085 }
1086 colorval |= (value << pos);
1087 pos -= 8;
1088 if (i == 2)
1089 {
1090 UNBLOCK_INPUT;
1091 return make_number (colorval);
1092 }
1093 color = end;
1094 }
1095 }
1096 }
1097 else if (strnicmp(colorname, "rgb:", 4) == 0)
1098 {
1099 char *color;
1100 unsigned long colorval;
1101 int i, pos;
1102 pos = 16;
1103
1104 colorval = 0;
1105 color = colorname + 4;
1106 for (i = 0; i < 3; i++)
1107 {
1108 char *end;
1109 unsigned long value;
1110
1111 /* The check for 'x' in the following conditional takes into
1112 account the fact that strtol allows a "0x" in front of
1113 our numbers, and we don't. */
1114 if (!isxdigit(color[0]) || color[1] == 'x')
1115 break;
1116 value = strtoul(color, &end, 16);
1117 if (errno == ERANGE)
1118 break;
1119 switch (end - color)
1120 {
1121 case 1:
1122 value = value * 0x10 + value;
1123 break;
1124 case 2:
1125 break;
1126 case 3:
1127 value /= 0x10;
1128 break;
1129 case 4:
1130 value /= 0x100;
1131 break;
1132 default:
1133 value = ULONG_MAX;
1134 }
1135 if (value == ULONG_MAX)
1136 break;
1137 colorval |= (value << pos);
1138 pos -= 0x8;
1139 if (i == 2)
1140 {
1141 if (*end != '\0')
1142 break;
1143 UNBLOCK_INPUT;
1144 return make_number (colorval);
1145 }
1146 if (*end != '/')
1147 break;
1148 color = end + 1;
1149 }
1150 }
1151 else if (strnicmp(colorname, "rgbi:", 5) == 0)
1152 {
1153 /* This is an RGB Intensity specification. */
1154 char *color;
1155 unsigned long colorval;
1156 int i, pos;
1157 pos = 16;
1158
1159 colorval = 0;
1160 color = colorname + 5;
1161 for (i = 0; i < 3; i++)
1162 {
1163 char *end;
1164 double value;
1165 unsigned long val;
1166
1167 value = strtod(color, &end);
1168 if (errno == ERANGE)
1169 break;
1170 if (value < 0.0 || value > 1.0)
1171 break;
1172 val = (unsigned long)(0x100 * value);
1173 /* We used 0x100 instead of 0xFF to give a continuous
1174 range between 0.0 and 1.0 inclusive. The next statement
1175 fixes the 1.0 case. */
1176 if (val == 0x100)
1177 val = 0xFF;
1178 colorval |= (val << pos);
1179 pos -= 0x8;
1180 if (i == 2)
1181 {
1182 if (*end != '\0')
1183 break;
1184 UNBLOCK_INPUT;
1185 return make_number (colorval);
1186 }
1187 if (*end != '/')
1188 break;
1189 color = end + 1;
1190 }
1191 }
1192
1193 ret = mac_color_map_lookup (colorname);
1194
1195 UNBLOCK_INPUT;
1196 return ret;
1197 }
1198
1199 /* Gamma-correct COLOR on frame F. */
1200
1201 void
1202 gamma_correct (f, color)
1203 struct frame *f;
1204 unsigned long *color;
1205 {
1206 if (f->gamma)
1207 {
1208 unsigned long red, green, blue;
1209
1210 red = pow (RED_FROM_ULONG (*color) / 255.0, f->gamma) * 255.0 + 0.5;
1211 green = pow (GREEN_FROM_ULONG (*color) / 255.0, f->gamma) * 255.0 + 0.5;
1212 blue = pow (BLUE_FROM_ULONG (*color) / 255.0, f->gamma) * 255.0 + 0.5;
1213 *color = RGB_TO_ULONG (red, green, blue);
1214 }
1215 }
1216
1217 /* Decide if color named COLOR is valid for the display associated
1218 with the selected frame; if so, return the rgb values in COLOR_DEF.
1219 If ALLOC is nonzero, allocate a new colormap cell. */
1220
1221 int
1222 mac_defined_color (f, color, color_def, alloc)
1223 FRAME_PTR f;
1224 char *color;
1225 XColor *color_def;
1226 int alloc;
1227 {
1228 register Lisp_Object tem;
1229 unsigned long mac_color_ref;
1230
1231 tem = x_to_mac_color (color);
1232
1233 if (!NILP (tem))
1234 {
1235 if (f)
1236 {
1237 /* Apply gamma correction. */
1238 mac_color_ref = XUINT (tem);
1239 gamma_correct (f, &mac_color_ref);
1240 XSETINT (tem, mac_color_ref);
1241 }
1242
1243 color_def->pixel = mac_color_ref;
1244 color_def->red = RED16_FROM_ULONG (mac_color_ref);
1245 color_def->green = GREEN16_FROM_ULONG (mac_color_ref);
1246 color_def->blue = BLUE16_FROM_ULONG (mac_color_ref);
1247
1248 return 1;
1249 }
1250 else
1251 {
1252 return 0;
1253 }
1254 }
1255
1256 /* Given a string ARG naming a color, compute a pixel value from it
1257 suitable for screen F.
1258 If F is not a color screen, return DEF (default) regardless of what
1259 ARG says. */
1260
1261 int
1262 x_decode_color (f, arg, def)
1263 FRAME_PTR f;
1264 Lisp_Object arg;
1265 int def;
1266 {
1267 XColor cdef;
1268
1269 CHECK_STRING (arg);
1270
1271 if (strcmp (SDATA (arg), "black") == 0)
1272 return BLACK_PIX_DEFAULT (f);
1273 else if (strcmp (SDATA (arg), "white") == 0)
1274 return WHITE_PIX_DEFAULT (f);
1275
1276 #if 0
1277 if (FRAME_MAC_DISPLAY_INFO (f)->n_planes) == 1)
1278 return def;
1279 #endif
1280
1281 if (mac_defined_color (f, SDATA (arg), &cdef, 1))
1282 return cdef.pixel;
1283
1284 /* defined_color failed; return an ultimate default. */
1285 return def;
1286 }
1287 \f
1288 /* Functions called only from `x_set_frame_param'
1289 to set individual parameters.
1290
1291 If FRAME_MAC_WINDOW (f) is 0,
1292 the frame is being created and its window does not exist yet.
1293 In that case, just record the parameter's new value
1294 in the standard place; do not attempt to change the window. */
1295
1296 void
1297 x_set_foreground_color (f, arg, oldval)
1298 struct frame *f;
1299 Lisp_Object arg, oldval;
1300 {
1301 struct mac_output *mac = f->output_data.mac;
1302 unsigned long fg, old_fg;
1303
1304 fg = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f));
1305 old_fg = FRAME_FOREGROUND_PIXEL (f);
1306 FRAME_FOREGROUND_PIXEL (f) = fg;
1307
1308 if (FRAME_MAC_WINDOW (f) != 0)
1309 {
1310 Display *dpy = FRAME_MAC_DISPLAY (f);
1311
1312 BLOCK_INPUT;
1313 XSetForeground (dpy, mac->normal_gc, fg);
1314 XSetBackground (dpy, mac->reverse_gc, fg);
1315
1316 if (mac->cursor_pixel == old_fg)
1317 {
1318 unload_color (f, mac->cursor_pixel);
1319 mac->cursor_pixel = fg;
1320 XSetBackground (dpy, mac->cursor_gc, mac->cursor_pixel);
1321 }
1322
1323 UNBLOCK_INPUT;
1324
1325 update_face_from_frame_parameter (f, Qforeground_color, arg);
1326
1327 if (FRAME_VISIBLE_P (f))
1328 redraw_frame (f);
1329 }
1330
1331 unload_color (f, old_fg);
1332 }
1333
1334 void
1335 x_set_background_color (f, arg, oldval)
1336 struct frame *f;
1337 Lisp_Object arg, oldval;
1338 {
1339 struct mac_output *mac = f->output_data.mac;
1340 unsigned long bg;
1341
1342 bg = x_decode_color (f, arg, WHITE_PIX_DEFAULT (f));
1343 unload_color (f, FRAME_BACKGROUND_PIXEL (f));
1344 FRAME_BACKGROUND_PIXEL (f) = bg;
1345
1346 if (FRAME_MAC_WINDOW (f) != 0)
1347 {
1348 Display *dpy = FRAME_MAC_DISPLAY (f);
1349
1350 BLOCK_INPUT;
1351 XSetBackground (dpy, mac->normal_gc, bg);
1352 XSetForeground (dpy, mac->reverse_gc, bg);
1353 XSetWindowBackground (dpy, FRAME_MAC_WINDOW (f), bg);
1354 XSetForeground (dpy, mac->cursor_gc, bg);
1355
1356 UNBLOCK_INPUT;
1357 update_face_from_frame_parameter (f, Qbackground_color, arg);
1358
1359 if (FRAME_VISIBLE_P (f))
1360 redraw_frame (f);
1361 }
1362 }
1363
1364 void
1365 x_set_mouse_color (f, arg, oldval)
1366 struct frame *f;
1367 Lisp_Object arg, oldval;
1368 {
1369 struct x_output *x = f->output_data.x;
1370 Cursor cursor, nontext_cursor, mode_cursor, hand_cursor;
1371 Cursor hourglass_cursor, horizontal_drag_cursor;
1372 unsigned long pixel = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f));
1373 unsigned long mask_color = x->background_pixel;
1374
1375 /* Don't let pointers be invisible. */
1376 if (mask_color == pixel)
1377 pixel = x->foreground_pixel;
1378
1379 f->output_data.mac->mouse_pixel = pixel;
1380
1381 if (!NILP (Vx_pointer_shape))
1382 {
1383 CHECK_NUMBER (Vx_pointer_shape);
1384 cursor = XINT (Vx_pointer_shape);
1385 }
1386 else
1387 cursor = kThemeIBeamCursor;
1388
1389 if (!NILP (Vx_nontext_pointer_shape))
1390 {
1391 CHECK_NUMBER (Vx_nontext_pointer_shape);
1392 nontext_cursor = XINT (Vx_nontext_pointer_shape);
1393 }
1394 else
1395 nontext_cursor = kThemeArrowCursor;
1396
1397 if (!NILP (Vx_hourglass_pointer_shape))
1398 {
1399 CHECK_NUMBER (Vx_hourglass_pointer_shape);
1400 hourglass_cursor = XINT (Vx_hourglass_pointer_shape);
1401 }
1402 else
1403 hourglass_cursor = kThemeWatchCursor;
1404
1405 if (!NILP (Vx_mode_pointer_shape))
1406 {
1407 CHECK_NUMBER (Vx_mode_pointer_shape);
1408 mode_cursor = XINT (Vx_mode_pointer_shape);
1409 }
1410 else
1411 mode_cursor = kThemeArrowCursor;
1412
1413 if (!NILP (Vx_sensitive_text_pointer_shape))
1414 {
1415 CHECK_NUMBER (Vx_sensitive_text_pointer_shape);
1416 hand_cursor = XINT (Vx_sensitive_text_pointer_shape);
1417 }
1418 else
1419 hand_cursor = kThemePointingHandCursor;
1420
1421 if (!NILP (Vx_window_horizontal_drag_shape))
1422 {
1423 CHECK_NUMBER (Vx_window_horizontal_drag_shape);
1424 horizontal_drag_cursor = XINT (Vx_window_horizontal_drag_shape);
1425 }
1426 else
1427 horizontal_drag_cursor = kThemeResizeLeftRightCursor;
1428
1429 #if 0 /* MAC_TODO: cursor color changes */
1430 {
1431 XColor fore_color, back_color;
1432
1433 fore_color.pixel = f->output_data.mac->mouse_pixel;
1434 x_query_color (f, &fore_color);
1435 back_color.pixel = mask_color;
1436 x_query_color (f, &back_color);
1437
1438 XRecolorCursor (dpy, cursor, &fore_color, &back_color);
1439 XRecolorCursor (dpy, nontext_cursor, &fore_color, &back_color);
1440 XRecolorCursor (dpy, mode_cursor, &fore_color, &back_color);
1441 XRecolorCursor (dpy, hand_cursor, &fore_color, &back_color);
1442 XRecolorCursor (dpy, hourglass_cursor, &fore_color, &back_color);
1443 XRecolorCursor (dpy, horizontal_drag_cursor, &fore_color, &back_color);
1444 }
1445 #endif
1446
1447 BLOCK_INPUT;
1448
1449 if (FRAME_MAC_WINDOW (f) != 0)
1450 rif->define_frame_cursor (f, cursor);
1451
1452 f->output_data.mac->text_cursor = cursor;
1453 f->output_data.mac->nontext_cursor = nontext_cursor;
1454 f->output_data.mac->hourglass_cursor = hourglass_cursor;
1455 f->output_data.mac->modeline_cursor = mode_cursor;
1456 f->output_data.mac->hand_cursor = hand_cursor;
1457 f->output_data.mac->horizontal_drag_cursor = horizontal_drag_cursor;
1458
1459 UNBLOCK_INPUT;
1460
1461 update_face_from_frame_parameter (f, Qmouse_color, arg);
1462 }
1463
1464 void
1465 x_set_cursor_color (f, arg, oldval)
1466 struct frame *f;
1467 Lisp_Object arg, oldval;
1468 {
1469 unsigned long fore_pixel, pixel;
1470
1471 if (!NILP (Vx_cursor_fore_pixel))
1472 fore_pixel = x_decode_color (f, Vx_cursor_fore_pixel,
1473 WHITE_PIX_DEFAULT (f));
1474 else
1475 fore_pixel = FRAME_BACKGROUND_PIXEL (f);
1476
1477 pixel = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f));
1478
1479 /* Make sure that the cursor color differs from the background color. */
1480 if (pixel == FRAME_BACKGROUND_PIXEL (f))
1481 {
1482 pixel = f->output_data.mac->mouse_pixel;
1483 if (pixel == fore_pixel)
1484 fore_pixel = FRAME_BACKGROUND_PIXEL (f);
1485 }
1486
1487 f->output_data.mac->cursor_foreground_pixel = fore_pixel;
1488 f->output_data.mac->cursor_pixel = pixel;
1489
1490 if (FRAME_MAC_WINDOW (f) != 0)
1491 {
1492 BLOCK_INPUT;
1493 /* Update frame's cursor_gc. */
1494 XSetBackground (FRAME_MAC_DISPLAY (f),
1495 f->output_data.mac->cursor_gc, pixel);
1496 XSetForeground (FRAME_MAC_DISPLAY (f),
1497 f->output_data.mac->cursor_gc, fore_pixel);
1498 UNBLOCK_INPUT;
1499
1500 if (FRAME_VISIBLE_P (f))
1501 {
1502 x_update_cursor (f, 0);
1503 x_update_cursor (f, 1);
1504 }
1505 }
1506
1507 update_face_from_frame_parameter (f, Qcursor_color, arg);
1508 }
1509
1510 /* Set the border-color of frame F to pixel value PIX.
1511 Note that this does not fully take effect if done before
1512 F has a window. */
1513
1514 void
1515 x_set_border_pixel (f, pix)
1516 struct frame *f;
1517 int pix;
1518 {
1519
1520 f->output_data.mac->border_pixel = pix;
1521
1522 if (FRAME_MAC_WINDOW (f) != 0 && f->border_width > 0)
1523 {
1524 if (FRAME_VISIBLE_P (f))
1525 redraw_frame (f);
1526 }
1527 }
1528
1529 /* Set the border-color of frame F to value described by ARG.
1530 ARG can be a string naming a color.
1531 The border-color is used for the border that is drawn by the server.
1532 Note that this does not fully take effect if done before
1533 F has a window; it must be redone when the window is created. */
1534
1535 void
1536 x_set_border_color (f, arg, oldval)
1537 struct frame *f;
1538 Lisp_Object arg, oldval;
1539 {
1540 int pix;
1541
1542 CHECK_STRING (arg);
1543 pix = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f));
1544 x_set_border_pixel (f, pix);
1545 update_face_from_frame_parameter (f, Qborder_color, arg);
1546 }
1547
1548
1549 void
1550 x_set_cursor_type (f, arg, oldval)
1551 FRAME_PTR f;
1552 Lisp_Object arg, oldval;
1553 {
1554 set_frame_cursor_types (f, arg);
1555
1556 /* Make sure the cursor gets redrawn. */
1557 cursor_type_changed = 1;
1558 }
1559 \f
1560 #if 0 /* MAC_TODO: really no icon for Mac */
1561 void
1562 x_set_icon_type (f, arg, oldval)
1563 struct frame *f;
1564 Lisp_Object arg, oldval;
1565 {
1566 int result;
1567
1568 if (NILP (arg) && NILP (oldval))
1569 return;
1570
1571 if (STRINGP (arg) && STRINGP (oldval)
1572 && EQ (Fstring_equal (oldval, arg), Qt))
1573 return;
1574
1575 if (SYMBOLP (arg) && SYMBOLP (oldval) && EQ (arg, oldval))
1576 return;
1577
1578 BLOCK_INPUT;
1579
1580 result = x_bitmap_icon (f, arg);
1581 if (result)
1582 {
1583 UNBLOCK_INPUT;
1584 error ("No icon window available");
1585 }
1586
1587 UNBLOCK_INPUT;
1588 }
1589 #endif /* MAC_TODO */
1590
1591 void
1592 x_set_icon_name (f, arg, oldval)
1593 struct frame *f;
1594 Lisp_Object arg, oldval;
1595 {
1596 int result;
1597
1598 if (STRINGP (arg))
1599 {
1600 if (STRINGP (oldval) && EQ (Fstring_equal (oldval, arg), Qt))
1601 return;
1602 }
1603 else if (!NILP (arg) || NILP (oldval))
1604 return;
1605
1606 f->icon_name = arg;
1607
1608 #if 0 /* MAC_TODO */
1609 if (f->output_data.w32->icon_bitmap != 0)
1610 return;
1611
1612 BLOCK_INPUT;
1613
1614 result = x_text_icon (f,
1615 (char *) SDATA ((!NILP (f->icon_name)
1616 ? f->icon_name
1617 : !NILP (f->title)
1618 ? f->title
1619 : f->name)));
1620
1621 if (result)
1622 {
1623 UNBLOCK_INPUT;
1624 error ("No icon window available");
1625 }
1626
1627 /* If the window was unmapped (and its icon was mapped),
1628 the new icon is not mapped, so map the window in its stead. */
1629 if (FRAME_VISIBLE_P (f))
1630 {
1631 #ifdef USE_X_TOOLKIT
1632 XtPopup (f->output_data.w32->widget, XtGrabNone);
1633 #endif
1634 XMapWindow (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f));
1635 }
1636
1637 XFlush (FRAME_W32_DISPLAY (f));
1638 UNBLOCK_INPUT;
1639 #endif /* MAC_TODO */
1640 }
1641
1642 \f
1643 void
1644 x_set_menu_bar_lines (f, value, oldval)
1645 struct frame *f;
1646 Lisp_Object value, oldval;
1647 {
1648 /* Make sure we redisplay all windows in this frame. */
1649 windows_or_buffers_changed++;
1650
1651 FRAME_MENU_BAR_LINES (f) = 0;
1652 /* The menu bar is always shown. */
1653 FRAME_EXTERNAL_MENU_BAR (f) = 1;
1654 if (FRAME_MAC_P (f) && f->output_data.mac->menubar_widget == 0)
1655 /* Make sure next redisplay shows the menu bar. */
1656 XWINDOW (FRAME_SELECTED_WINDOW (f))->update_mode_line = Qt;
1657 adjust_glyphs (f);
1658 }
1659
1660
1661 /* Set the number of lines used for the tool bar of frame F to VALUE.
1662 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1663 is the old number of tool bar lines. This function changes the
1664 height of all windows on frame F to match the new tool bar height.
1665 The frame's height doesn't change. */
1666
1667 void
1668 x_set_tool_bar_lines (f, value, oldval)
1669 struct frame *f;
1670 Lisp_Object value, oldval;
1671 {
1672 int delta, nlines, root_height;
1673 Lisp_Object root_window;
1674
1675 /* Treat tool bars like menu bars. */
1676 if (FRAME_MINIBUF_ONLY_P (f))
1677 return;
1678
1679 /* Use VALUE only if an integer >= 0. */
1680 if (INTEGERP (value) && XINT (value) >= 0)
1681 nlines = XFASTINT (value);
1682 else
1683 nlines = 0;
1684
1685 /* Make sure we redisplay all windows in this frame. */
1686 ++windows_or_buffers_changed;
1687
1688 delta = nlines - FRAME_TOOL_BAR_LINES (f);
1689
1690 /* Don't resize the tool-bar to more than we have room for. */
1691 root_window = FRAME_ROOT_WINDOW (f);
1692 root_height = WINDOW_TOTAL_LINES (XWINDOW (root_window));
1693 if (root_height - delta < 1)
1694 {
1695 delta = root_height - 1;
1696 nlines = FRAME_TOOL_BAR_LINES (f) + delta;
1697 }
1698
1699 FRAME_TOOL_BAR_LINES (f) = nlines;
1700 change_window_heights (root_window, delta);
1701 adjust_glyphs (f);
1702
1703 /* We also have to make sure that the internal border at the top of
1704 the frame, below the menu bar or tool bar, is redrawn when the
1705 tool bar disappears. This is so because the internal border is
1706 below the tool bar if one is displayed, but is below the menu bar
1707 if there isn't a tool bar. The tool bar draws into the area
1708 below the menu bar. */
1709 if (FRAME_MAC_WINDOW (f) && FRAME_TOOL_BAR_LINES (f) == 0)
1710 {
1711 updating_frame = f;
1712 clear_frame ();
1713 clear_current_matrices (f);
1714 updating_frame = NULL;
1715 }
1716
1717 /* If the tool bar gets smaller, the internal border below it
1718 has to be cleared. It was formerly part of the display
1719 of the larger tool bar, and updating windows won't clear it. */
1720 if (delta < 0)
1721 {
1722 int height = FRAME_INTERNAL_BORDER_WIDTH (f);
1723 int width = FRAME_PIXEL_WIDTH (f);
1724 int y = nlines * FRAME_LINE_HEIGHT (f);
1725
1726 BLOCK_INPUT;
1727 mac_clear_area (f, 0, y, width, height);
1728 UNBLOCK_INPUT;
1729
1730 if (WINDOWP (f->tool_bar_window))
1731 clear_glyph_matrix (XWINDOW (f->tool_bar_window)->current_matrix);
1732 }
1733 }
1734
1735
1736 \f
1737 /* Set the Mac window title to NAME for frame F. */
1738
1739 static void
1740 x_set_name_internal (f, name)
1741 FRAME_PTR f;
1742 Lisp_Object name;
1743 {
1744 if (FRAME_MAC_WINDOW (f))
1745 {
1746 if (STRING_MULTIBYTE (name))
1747 #if TARGET_API_MAC_CARBON
1748 name = ENCODE_UTF_8 (name);
1749 #else
1750 name = ENCODE_SYSTEM (name);
1751 #endif
1752
1753 BLOCK_INPUT;
1754
1755 {
1756 #if TARGET_API_MAC_CARBON
1757 CFStringRef windowTitle =
1758 cfstring_create_with_utf8_cstring (SDATA (name));
1759
1760 SetWindowTitleWithCFString (FRAME_MAC_WINDOW (f), windowTitle);
1761 CFRelease (windowTitle);
1762 #else
1763 Str255 windowTitle;
1764 if (strlen (SDATA (name)) < 255)
1765 {
1766 strcpy (windowTitle, SDATA (name));
1767 c2pstr (windowTitle);
1768 SetWTitle (FRAME_MAC_WINDOW (f), windowTitle);
1769 }
1770 #endif
1771 }
1772
1773 UNBLOCK_INPUT;
1774 }
1775 }
1776
1777 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1778 mac_id_name.
1779
1780 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1781 name; if NAME is a string, set F's name to NAME and set
1782 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1783
1784 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1785 suggesting a new name, which lisp code should override; if
1786 F->explicit_name is set, ignore the new name; otherwise, set it. */
1787
1788 void
1789 x_set_name (f, name, explicit)
1790 struct frame *f;
1791 Lisp_Object name;
1792 int explicit;
1793 {
1794 /* Make sure that requests from lisp code override requests from
1795 Emacs redisplay code. */
1796 if (explicit)
1797 {
1798 /* If we're switching from explicit to implicit, we had better
1799 update the mode lines and thereby update the title. */
1800 if (f->explicit_name && NILP (name))
1801 update_mode_lines = 1;
1802
1803 f->explicit_name = ! NILP (name);
1804 }
1805 else if (f->explicit_name)
1806 return;
1807
1808 /* If NAME is nil, set the name to the mac_id_name. */
1809 if (NILP (name))
1810 {
1811 /* Check for no change needed in this very common case
1812 before we do any consing. */
1813 if (!strcmp (FRAME_MAC_DISPLAY_INFO (f)->mac_id_name,
1814 SDATA (f->name)))
1815 return;
1816 name = build_string (FRAME_MAC_DISPLAY_INFO (f)->mac_id_name);
1817 }
1818 else
1819 CHECK_STRING (name);
1820
1821 /* Don't change the name if it's already NAME. */
1822 if (! NILP (Fstring_equal (name, f->name)))
1823 return;
1824
1825 f->name = name;
1826
1827 /* For setting the frame title, the title parameter should override
1828 the name parameter. */
1829 if (! NILP (f->title))
1830 name = f->title;
1831
1832 x_set_name_internal (f, name);
1833 }
1834
1835 /* This function should be called when the user's lisp code has
1836 specified a name for the frame; the name will override any set by the
1837 redisplay code. */
1838 void
1839 x_explicitly_set_name (f, arg, oldval)
1840 FRAME_PTR f;
1841 Lisp_Object arg, oldval;
1842 {
1843 x_set_name (f, arg, 1);
1844 }
1845
1846 /* This function should be called by Emacs redisplay code to set the
1847 name; names set this way will never override names set by the user's
1848 lisp code. */
1849 void
1850 x_implicitly_set_name (f, arg, oldval)
1851 FRAME_PTR f;
1852 Lisp_Object arg, oldval;
1853 {
1854 x_set_name (f, arg, 0);
1855 }
1856 \f
1857 /* Change the title of frame F to NAME.
1858 If NAME is nil, use the frame name as the title. */
1859
1860 void
1861 x_set_title (f, name, old_name)
1862 struct frame *f;
1863 Lisp_Object name, old_name;
1864 {
1865 /* Don't change the title if it's already NAME. */
1866 if (EQ (name, f->title))
1867 return;
1868
1869 update_mode_lines = 1;
1870
1871 f->title = name;
1872
1873 if (NILP (name))
1874 name = f->name;
1875 else
1876 CHECK_STRING (name);
1877
1878 x_set_name_internal (f, name);
1879 }
1880
1881 void
1882 x_set_scroll_bar_default_width (f)
1883 struct frame *f;
1884 {
1885 /* Imitate X without X Toolkit */
1886
1887 int wid = FRAME_COLUMN_WIDTH (f);
1888
1889 #ifdef MAC_OSX
1890 FRAME_CONFIG_SCROLL_BAR_WIDTH (f) = MAC_AQUA_VERTICAL_SCROLL_BAR_WIDTH;
1891 FRAME_CONFIG_SCROLL_BAR_COLS (f) = (FRAME_CONFIG_SCROLL_BAR_WIDTH (f) +
1892 wid - 1) / wid;
1893 #else /* not MAC_OSX */
1894 /* Make the actual width at least 14 pixels and a multiple of a
1895 character width. */
1896 FRAME_CONFIG_SCROLL_BAR_COLS (f) = (14 + wid - 1) / wid;
1897
1898 /* Use all of that space (aside from required margins) for the
1899 scroll bar. */
1900 FRAME_CONFIG_SCROLL_BAR_WIDTH (f) = 0;
1901 #endif /* not MAC_OSX */
1902 }
1903
1904 static void
1905 mac_set_font (f, arg, oldval)
1906 struct frame *f;
1907 Lisp_Object arg, oldval;
1908 {
1909 x_set_font (f, arg, oldval);
1910 #if USE_MAC_FONT_PANEL
1911 {
1912 Lisp_Object focus_frame = x_get_focus_frame (f);
1913
1914 if ((NILP (focus_frame) && f == SELECTED_FRAME ())
1915 || XFRAME (focus_frame) == f)
1916 {
1917 BLOCK_INPUT;
1918 mac_set_font_info_for_selection (f, DEFAULT_FACE_ID, 0);
1919 UNBLOCK_INPUT;
1920 }
1921 }
1922 #endif
1923 }
1924
1925 #if TARGET_API_MAC_CARBON
1926 static void
1927 mac_update_proxy_icon (f)
1928 struct frame *f;
1929 {
1930 OSStatus err;
1931 Lisp_Object file_name =
1932 XBUFFER (XWINDOW (FRAME_SELECTED_WINDOW (f))->buffer)->filename;
1933 Window w = FRAME_MAC_WINDOW (f);
1934 AliasHandle alias = NULL;
1935
1936 BLOCK_INPUT;
1937
1938 err = GetWindowProxyAlias (w, &alias);
1939 if (err == errWindowDoesNotHaveProxy && !STRINGP (file_name))
1940 goto out;
1941
1942 if (STRINGP (file_name))
1943 {
1944 AEDesc desc;
1945 #ifdef MAC_OSX
1946 FSRef fref, fref_proxy;
1947 #else
1948 FSSpec fss, fss_proxy;
1949 #endif
1950 Boolean changed;
1951 Lisp_Object encoded_file_name = ENCODE_FILE (file_name);
1952
1953 #ifdef MAC_OSX
1954 err = AECoercePtr (TYPE_FILE_NAME, SDATA (encoded_file_name),
1955 SBYTES (encoded_file_name), typeFSRef, &desc);
1956 #else
1957 SetPortWindowPort (w);
1958 err = AECoercePtr (TYPE_FILE_NAME, SDATA (encoded_file_name),
1959 SBYTES (encoded_file_name), typeFSS, &desc);
1960 #endif
1961 if (err == noErr)
1962 {
1963 #ifdef MAC_OSX
1964 err = AEGetDescData (&desc, &fref, sizeof (FSRef));
1965 #else
1966 err = AEGetDescData (&desc, &fss, sizeof (FSSpec));
1967 #endif
1968 AEDisposeDesc (&desc);
1969 }
1970 if (err == noErr)
1971 {
1972 if (alias)
1973 {
1974 /* (FS)ResolveAlias never sets `changed' to true if
1975 `alias' is minimal. */
1976 #ifdef MAC_OSX
1977 err = FSResolveAlias (NULL, alias, &fref_proxy, &changed);
1978 if (err == noErr)
1979 err = FSCompareFSRefs (&fref, &fref_proxy);
1980 #else
1981 err = ResolveAlias (NULL, alias, &fss_proxy, &changed);
1982 if (err == noErr)
1983 err = !(fss.vRefNum == fss_proxy.vRefNum
1984 && fss.parID == fss_proxy.parID
1985 && EqualString (fss.name, fss_proxy.name,
1986 false, true));
1987 #endif
1988 }
1989 if (err != noErr || alias == NULL)
1990 {
1991 if (alias)
1992 DisposeHandle ((Handle) alias);
1993 #ifdef MAC_OSX
1994 err = FSNewAliasMinimal (&fref, &alias);
1995 #else
1996 err = NewAliasMinimal (&fss, &alias);
1997 #endif
1998 changed = true;
1999 }
2000 }
2001 if (err == noErr)
2002 if (changed)
2003 err = SetWindowProxyAlias (w, alias);
2004 }
2005
2006 if (alias)
2007 DisposeHandle ((Handle) alias);
2008
2009 if (err != noErr || !STRINGP (file_name))
2010 RemoveWindowProxy (w);
2011
2012 out:
2013 UNBLOCK_INPUT;
2014 }
2015 #endif
2016
2017 void
2018 mac_update_title_bar (f, save_match_data)
2019 struct frame *f;
2020 int save_match_data;
2021 {
2022 #if TARGET_API_MAC_CARBON
2023 struct window *w;
2024 int modified_p;
2025
2026 if (!FRAME_MAC_P (f))
2027 return;
2028
2029 w = XWINDOW (FRAME_SELECTED_WINDOW (f));
2030 modified_p = (BUF_SAVE_MODIFF (XBUFFER (w->buffer))
2031 < BUF_MODIFF (XBUFFER (w->buffer)));
2032 if (windows_or_buffers_changed
2033 /* Minibuffer modification status shown in the close button is
2034 confusing. */
2035 || (!MINI_WINDOW_P (w)
2036 && (modified_p != !NILP (w->last_had_star))))
2037 {
2038 SetWindowModified (FRAME_MAC_WINDOW (f),
2039 !MINI_WINDOW_P (w) && modified_p);
2040 mac_update_proxy_icon (f);
2041 }
2042 #endif
2043 }
2044
2045 \f
2046 /* Subroutines of creating a frame. */
2047
2048 /* Retrieve the string resource specified by NAME with CLASS from
2049 database RDB.
2050
2051 The return value points to the contents of a Lisp string. So it
2052 will not be valid after the next GC where string compaction will
2053 occur. */
2054
2055 char *
2056 x_get_string_resource (rdb, name, class)
2057 XrmDatabase rdb;
2058 char *name, *class;
2059 {
2060 Lisp_Object value = xrm_get_resource (rdb, name, class);
2061
2062 if (STRINGP (value))
2063 return SDATA (value);
2064 else
2065 return NULL;
2066 }
2067
2068 /* Return the value of parameter PARAM.
2069
2070 First search ALIST, then Vdefault_frame_alist, then the X defaults
2071 database, using ATTRIBUTE as the attribute name and CLASS as its class.
2072
2073 Convert the resource to the type specified by desired_type.
2074
2075 If no default is specified, return Qunbound. If you call
2076 mac_get_arg, make sure you deal with Qunbound in a reasonable way,
2077 and don't let it get stored in any Lisp-visible variables! */
2078
2079 static Lisp_Object
2080 mac_get_arg (alist, param, attribute, class, type)
2081 Lisp_Object alist, param;
2082 char *attribute;
2083 char *class;
2084 enum resource_types type;
2085 {
2086 return x_get_arg (check_x_display_info (Qnil),
2087 alist, param, attribute, class, type);
2088 }
2089
2090 \f
2091 /* XParseGeometry copied from w32xfns.c */
2092
2093 /*
2094 * XParseGeometry parses strings of the form
2095 * "=<width>x<height>{+-}<xoffset>{+-}<yoffset>", where
2096 * width, height, xoffset, and yoffset are unsigned integers.
2097 * Example: "=80x24+300-49"
2098 * The equal sign is optional.
2099 * It returns a bitmask that indicates which of the four values
2100 * were actually found in the string. For each value found,
2101 * the corresponding argument is updated; for each value
2102 * not found, the corresponding argument is left unchanged.
2103 */
2104
2105 static int
2106 read_integer (string, NextString)
2107 register char *string;
2108 char **NextString;
2109 {
2110 register int Result = 0;
2111 int Sign = 1;
2112
2113 if (*string == '+')
2114 string++;
2115 else if (*string == '-')
2116 {
2117 string++;
2118 Sign = -1;
2119 }
2120 for (; (*string >= '0') && (*string <= '9'); string++)
2121 {
2122 Result = (Result * 10) + (*string - '0');
2123 }
2124 *NextString = string;
2125 if (Sign >= 0)
2126 return (Result);
2127 else
2128 return (-Result);
2129 }
2130
2131 int
2132 XParseGeometry (string, x, y, width, height)
2133 char *string;
2134 int *x, *y;
2135 unsigned int *width, *height; /* RETURN */
2136 {
2137 int mask = NoValue;
2138 register char *strind;
2139 unsigned int tempWidth, tempHeight;
2140 int tempX, tempY;
2141 char *nextCharacter;
2142
2143 if ((string == NULL) || (*string == '\0')) return (mask);
2144 if (*string == '=')
2145 string++; /* ignore possible '=' at beg of geometry spec */
2146
2147 strind = (char *)string;
2148 if (*strind != '+' && *strind != '-' && *strind != 'x')
2149 {
2150 tempWidth = read_integer (strind, &nextCharacter);
2151 if (strind == nextCharacter)
2152 return (0);
2153 strind = nextCharacter;
2154 mask |= WidthValue;
2155 }
2156
2157 if (*strind == 'x' || *strind == 'X')
2158 {
2159 strind++;
2160 tempHeight = read_integer (strind, &nextCharacter);
2161 if (strind == nextCharacter)
2162 return (0);
2163 strind = nextCharacter;
2164 mask |= HeightValue;
2165 }
2166
2167 if ((*strind == '+') || (*strind == '-'))
2168 {
2169 if (*strind == '-')
2170 {
2171 strind++;
2172 tempX = -read_integer (strind, &nextCharacter);
2173 if (strind == nextCharacter)
2174 return (0);
2175 strind = nextCharacter;
2176 mask |= XNegative;
2177
2178 }
2179 else
2180 {
2181 strind++;
2182 tempX = read_integer (strind, &nextCharacter);
2183 if (strind == nextCharacter)
2184 return (0);
2185 strind = nextCharacter;
2186 }
2187 mask |= XValue;
2188 if ((*strind == '+') || (*strind == '-'))
2189 {
2190 if (*strind == '-')
2191 {
2192 strind++;
2193 tempY = -read_integer (strind, &nextCharacter);
2194 if (strind == nextCharacter)
2195 return (0);
2196 strind = nextCharacter;
2197 mask |= YNegative;
2198
2199 }
2200 else
2201 {
2202 strind++;
2203 tempY = read_integer (strind, &nextCharacter);
2204 if (strind == nextCharacter)
2205 return (0);
2206 strind = nextCharacter;
2207 }
2208 mask |= YValue;
2209 }
2210 }
2211
2212 /* If strind isn't at the end of the string the it's an invalid
2213 geometry specification. */
2214
2215 if (*strind != '\0') return (0);
2216
2217 if (mask & XValue)
2218 *x = tempX;
2219 if (mask & YValue)
2220 *y = tempY;
2221 if (mask & WidthValue)
2222 *width = tempWidth;
2223 if (mask & HeightValue)
2224 *height = tempHeight;
2225 return (mask);
2226 }
2227
2228 \f
2229 /* Create and set up the Mac window for frame F. */
2230
2231 static void
2232 mac_window (f)
2233 struct frame *f;
2234 {
2235 Rect r;
2236
2237 BLOCK_INPUT;
2238
2239 SetRect (&r, f->left_pos, f->top_pos,
2240 f->left_pos + FRAME_PIXEL_WIDTH (f),
2241 f->top_pos + FRAME_PIXEL_HEIGHT (f));
2242 #if TARGET_API_MAC_CARBON
2243 CreateNewWindow (kDocumentWindowClass,
2244 kWindowStandardDocumentAttributes
2245 #ifdef MAC_OSX
2246 | kWindowToolbarButtonAttribute
2247 #endif
2248 , &r, &FRAME_MAC_WINDOW (f));
2249 if (FRAME_MAC_WINDOW (f))
2250 {
2251 SetWRefCon (FRAME_MAC_WINDOW (f), (long) f->output_data.mac);
2252 if (install_window_handler (FRAME_MAC_WINDOW (f)) != noErr)
2253 {
2254 DisposeWindow (FRAME_MAC_WINDOW (f));
2255 FRAME_MAC_WINDOW (f) = NULL;
2256 }
2257 }
2258 #else
2259 FRAME_MAC_WINDOW (f)
2260 = NewCWindow (NULL, &r, "\p", false, zoomDocProc,
2261 (WindowPtr) -1, 1, (long) f->output_data.mac);
2262 #endif
2263 /* so that update events can find this mac_output struct */
2264 f->output_data.mac->mFP = f; /* point back to emacs frame */
2265
2266 #ifndef MAC_OSX
2267 if (FRAME_MAC_WINDOW (f))
2268 {
2269 ControlRef root_control;
2270
2271 if (CreateRootControl (FRAME_MAC_WINDOW (f), &root_control) != noErr)
2272 {
2273 DisposeWindow (FRAME_MAC_WINDOW (f));
2274 FRAME_MAC_WINDOW (f) = NULL;
2275 }
2276 }
2277 #endif
2278 if (FRAME_MAC_WINDOW (f))
2279 XSetWindowBackground (FRAME_MAC_DISPLAY(f), FRAME_MAC_WINDOW (f),
2280 FRAME_BACKGROUND_PIXEL (f));
2281
2282 validate_x_resource_name ();
2283
2284 /* x_set_name normally ignores requests to set the name if the
2285 requested name is the same as the current name. This is the one
2286 place where that assumption isn't correct; f->name is set, but
2287 the server hasn't been told. */
2288 {
2289 Lisp_Object name;
2290 int explicit = f->explicit_name;
2291
2292 f->explicit_name = 0;
2293 name = f->name;
2294 f->name = Qnil;
2295 x_set_name (f, name, explicit);
2296 }
2297
2298 UNBLOCK_INPUT;
2299
2300 if (FRAME_MAC_WINDOW (f) == 0)
2301 error ("Unable to create window");
2302 }
2303
2304 /* Handle the icon stuff for this window. Perhaps later we might
2305 want an x_set_icon_position which can be called interactively as
2306 well. */
2307
2308 static void
2309 x_icon (f, parms)
2310 struct frame *f;
2311 Lisp_Object parms;
2312 {
2313 Lisp_Object icon_x, icon_y;
2314
2315 /* Set the position of the icon. Note that Windows 95 groups all
2316 icons in the tray. */
2317 icon_x = mac_get_arg (parms, Qicon_left, 0, 0, RES_TYPE_NUMBER);
2318 icon_y = mac_get_arg (parms, Qicon_top, 0, 0, RES_TYPE_NUMBER);
2319 if (!EQ (icon_x, Qunbound) && !EQ (icon_y, Qunbound))
2320 {
2321 CHECK_NUMBER (icon_x);
2322 CHECK_NUMBER (icon_y);
2323 }
2324 else if (!EQ (icon_x, Qunbound) || !EQ (icon_y, Qunbound))
2325 error ("Both left and top icon corners of icon must be specified");
2326
2327 BLOCK_INPUT;
2328
2329 if (! EQ (icon_x, Qunbound))
2330 x_wm_set_icon_position (f, XINT (icon_x), XINT (icon_y));
2331
2332 #if 0 /* TODO */
2333 /* Start up iconic or window? */
2334 x_wm_set_window_state
2335 (f, (EQ (w32_get_arg (parms, Qvisibility, 0, 0, RES_TYPE_SYMBOL), Qicon)
2336 ? IconicState
2337 : NormalState));
2338
2339 x_text_icon (f, (char *) SDATA ((!NILP (f->icon_name)
2340 ? f->icon_name
2341 : f->name)));
2342 #endif
2343
2344 UNBLOCK_INPUT;
2345 }
2346
2347
2348 void
2349 x_make_gc (f)
2350 struct frame *f;
2351 {
2352 XGCValues gc_values;
2353
2354 BLOCK_INPUT;
2355
2356 /* Create the GCs of this frame.
2357 Note that many default values are used. */
2358
2359 /* Normal video */
2360 gc_values.font = FRAME_FONT (f);
2361 gc_values.foreground = FRAME_FOREGROUND_PIXEL (f);
2362 gc_values.background = FRAME_BACKGROUND_PIXEL (f);
2363 f->output_data.mac->normal_gc = XCreateGC (FRAME_MAC_DISPLAY (f),
2364 FRAME_MAC_WINDOW (f),
2365 GCFont | GCForeground | GCBackground,
2366 &gc_values);
2367
2368 /* Reverse video style. */
2369 gc_values.foreground = FRAME_BACKGROUND_PIXEL (f);
2370 gc_values.background = FRAME_FOREGROUND_PIXEL (f);
2371 f->output_data.mac->reverse_gc = XCreateGC (FRAME_MAC_DISPLAY (f),
2372 FRAME_MAC_WINDOW (f),
2373 GCFont | GCForeground | GCBackground,
2374 &gc_values);
2375
2376 /* Cursor has cursor-color background, background-color foreground. */
2377 gc_values.foreground = FRAME_BACKGROUND_PIXEL (f);
2378 gc_values.background = f->output_data.mac->cursor_pixel;
2379 f->output_data.mac->cursor_gc = XCreateGC (FRAME_MAC_DISPLAY (f),
2380 FRAME_MAC_WINDOW (f),
2381 GCFont | GCForeground | GCBackground,
2382 &gc_values);
2383
2384 /* Reliefs. */
2385 f->output_data.mac->white_relief.gc = 0;
2386 f->output_data.mac->black_relief.gc = 0;
2387
2388 #if 0
2389 /* Create the gray border tile used when the pointer is not in
2390 the frame. Since this depends on the frame's pixel values,
2391 this must be done on a per-frame basis. */
2392 f->output_data.x->border_tile
2393 = (XCreatePixmapFromBitmapData
2394 (FRAME_X_DISPLAY (f), FRAME_X_DISPLAY_INFO (f)->root_window,
2395 gray_bits, gray_width, gray_height,
2396 f->output_data.x->foreground_pixel,
2397 f->output_data.x->background_pixel,
2398 DefaultDepth (FRAME_X_DISPLAY (f), FRAME_X_SCREEN_NUMBER (f))));
2399 #endif
2400
2401 UNBLOCK_INPUT;
2402 }
2403
2404
2405 /* Free what was was allocated in x_make_gc. */
2406
2407 void
2408 x_free_gcs (f)
2409 struct frame *f;
2410 {
2411 Display *dpy = FRAME_MAC_DISPLAY (f);
2412
2413 BLOCK_INPUT;
2414
2415 if (f->output_data.mac->normal_gc)
2416 {
2417 XFreeGC (dpy, f->output_data.mac->normal_gc);
2418 f->output_data.mac->normal_gc = 0;
2419 }
2420
2421 if (f->output_data.mac->reverse_gc)
2422 {
2423 XFreeGC (dpy, f->output_data.mac->reverse_gc);
2424 f->output_data.mac->reverse_gc = 0;
2425 }
2426
2427 if (f->output_data.mac->cursor_gc)
2428 {
2429 XFreeGC (dpy, f->output_data.mac->cursor_gc);
2430 f->output_data.mac->cursor_gc = 0;
2431 }
2432
2433 #if 0
2434 if (f->output_data.mac->border_tile)
2435 {
2436 XFreePixmap (dpy, f->output_data.mac->border_tile);
2437 f->output_data.mac->border_tile = 0;
2438 }
2439 #endif
2440
2441 if (f->output_data.mac->white_relief.gc)
2442 {
2443 XFreeGC (dpy, f->output_data.mac->white_relief.gc);
2444 f->output_data.mac->white_relief.gc = 0;
2445 }
2446
2447 if (f->output_data.mac->black_relief.gc)
2448 {
2449 XFreeGC (dpy, f->output_data.mac->black_relief.gc);
2450 f->output_data.mac->black_relief.gc = 0;
2451 }
2452
2453 UNBLOCK_INPUT;
2454 }
2455
2456
2457 /* Handler for signals raised during x_create_frame and
2458 x_create_top_frame. FRAME is the frame which is partially
2459 constructed. */
2460
2461 static Lisp_Object
2462 unwind_create_frame (frame)
2463 Lisp_Object frame;
2464 {
2465 struct frame *f = XFRAME (frame);
2466
2467 /* If frame is ``official'', nothing to do. */
2468 if (!CONSP (Vframe_list) || !EQ (XCAR (Vframe_list), frame))
2469 {
2470 #if GLYPH_DEBUG
2471 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
2472 #endif
2473
2474 x_free_frame_resources (f);
2475
2476 #if GLYPH_DEBUG
2477 /* Check that reference counts are indeed correct. */
2478 xassert (dpyinfo->reference_count == dpyinfo_refcount);
2479 xassert (dpyinfo->image_cache->refcount == image_cache_refcount);
2480 #endif
2481 return Qt;
2482 }
2483
2484 return Qnil;
2485 }
2486
2487
2488 DEFUN ("x-create-frame", Fx_create_frame, Sx_create_frame,
2489 1, 1, 0,
2490 doc: /* Make a new window, which is called a "frame" in Emacs terms.
2491 Returns an Emacs frame object.
2492 ALIST is an alist of frame parameters.
2493 If the parameters specify that the frame should not have a minibuffer,
2494 and do not specify a specific minibuffer window to use,
2495 then `default-minibuffer-frame' must be a frame whose minibuffer can
2496 be shared by the new frame.
2497
2498 This function is an internal primitive--use `make-frame' instead. */)
2499 (parms)
2500 Lisp_Object parms;
2501 {
2502 struct frame *f;
2503 Lisp_Object frame, tem;
2504 Lisp_Object name;
2505 int minibuffer_only = 0;
2506 long window_prompting = 0;
2507 int width, height;
2508 int count = SPECPDL_INDEX ();
2509 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
2510 Lisp_Object display;
2511 struct mac_display_info *dpyinfo = NULL;
2512 Lisp_Object parent;
2513 struct kboard *kb;
2514
2515 check_mac ();
2516
2517 parms = Fcopy_alist (parms);
2518
2519 /* Use this general default value to start with
2520 until we know if this frame has a specified name. */
2521 Vx_resource_name = Vinvocation_name;
2522
2523 display = mac_get_arg (parms, Qdisplay, 0, 0, RES_TYPE_STRING);
2524 if (EQ (display, Qunbound))
2525 display = Qnil;
2526 dpyinfo = check_x_display_info (display);
2527 #ifdef MULTI_KBOARD
2528 kb = dpyinfo->kboard;
2529 #else
2530 kb = &the_only_kboard;
2531 #endif
2532
2533 name = mac_get_arg (parms, Qname, "name", "Name", RES_TYPE_STRING);
2534 if (!STRINGP (name)
2535 && ! EQ (name, Qunbound)
2536 && ! NILP (name))
2537 error ("Invalid frame name--not a string or nil");
2538
2539 if (STRINGP (name))
2540 Vx_resource_name = name;
2541
2542 /* See if parent window is specified. */
2543 parent = mac_get_arg (parms, Qparent_id, NULL, NULL, RES_TYPE_NUMBER);
2544 if (EQ (parent, Qunbound))
2545 parent = Qnil;
2546 if (! NILP (parent))
2547 CHECK_NUMBER (parent);
2548
2549 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
2550 /* No need to protect DISPLAY because that's not used after passing
2551 it to make_frame_without_minibuffer. */
2552 frame = Qnil;
2553 GCPRO4 (parms, parent, name, frame);
2554 tem = mac_get_arg (parms, Qminibuffer, "minibuffer", "Minibuffer",
2555 RES_TYPE_SYMBOL);
2556 if (EQ (tem, Qnone) || NILP (tem))
2557 f = make_frame_without_minibuffer (Qnil, kb, display);
2558 else if (EQ (tem, Qonly))
2559 {
2560 f = make_minibuffer_frame ();
2561 minibuffer_only = 1;
2562 }
2563 else if (WINDOWP (tem))
2564 f = make_frame_without_minibuffer (tem, kb, display);
2565 else
2566 f = make_frame (1);
2567
2568 XSETFRAME (frame, f);
2569
2570 /* Note that X Windows does support scroll bars. */
2571 FRAME_CAN_HAVE_SCROLL_BARS (f) = 1;
2572
2573 f->output_method = output_mac;
2574 f->output_data.mac = (struct mac_output *) xmalloc (sizeof (struct mac_output));
2575 bzero (f->output_data.mac, sizeof (struct mac_output));
2576 FRAME_FONTSET (f) = -1;
2577
2578 f->icon_name
2579 = mac_get_arg (parms, Qicon_name, "iconName", "Title", RES_TYPE_STRING);
2580 if (! STRINGP (f->icon_name))
2581 f->icon_name = Qnil;
2582
2583 /* FRAME_MAC_DISPLAY_INFO (f) = dpyinfo; */
2584
2585 /* With FRAME_MAC_DISPLAY_INFO set up, this unwind-protect is safe. */
2586 record_unwind_protect (unwind_create_frame, frame);
2587 #if GLYPH_DEBUG
2588 image_cache_refcount = FRAME_X_IMAGE_CACHE (f)->refcount;
2589 dpyinfo_refcount = dpyinfo->reference_count;
2590 #endif /* GLYPH_DEBUG */
2591 #ifdef MULTI_KBOARD
2592 FRAME_KBOARD (f) = kb;
2593 #endif
2594
2595 /* Specify the parent under which to make this window. */
2596
2597 if (!NILP (parent))
2598 {
2599 f->output_data.mac->parent_desc = (Window) XFASTINT (parent);
2600 f->output_data.mac->explicit_parent = 1;
2601 }
2602 else
2603 {
2604 f->output_data.mac->parent_desc = FRAME_MAC_DISPLAY_INFO (f)->root_window;
2605 f->output_data.mac->explicit_parent = 0;
2606 }
2607
2608 /* Set the name; the functions to which we pass f expect the name to
2609 be set. */
2610 if (EQ (name, Qunbound) || NILP (name))
2611 {
2612 f->name = build_string (dpyinfo->mac_id_name);
2613 f->explicit_name = 0;
2614 }
2615 else
2616 {
2617 f->name = name;
2618 f->explicit_name = 1;
2619 /* use the frame's title when getting resources for this frame. */
2620 specbind (Qx_resource_name, name);
2621 }
2622
2623 /* Extract the window parameters from the supplied values
2624 that are needed to determine window geometry. */
2625 {
2626 Lisp_Object font;
2627
2628 font = mac_get_arg (parms, Qfont, "font", "Font", RES_TYPE_STRING);
2629
2630 BLOCK_INPUT;
2631 /* First, try whatever font the caller has specified. */
2632 if (STRINGP (font))
2633 {
2634 tem = Fquery_fontset (font, Qnil);
2635 if (STRINGP (tem))
2636 font = x_new_fontset (f, SDATA (tem));
2637 else
2638 font = x_new_font (f, SDATA (font));
2639 }
2640
2641 /* Try out a font which we hope has bold and italic variations. */
2642 #if USE_ATSUI
2643 if (! STRINGP (font))
2644 font = x_new_font (f, "-*-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1");
2645 #endif
2646 if (! STRINGP (font))
2647 font = x_new_font (f, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1");
2648 /* If those didn't work, look for something which will at least work. */
2649 if (! STRINGP (font))
2650 font = x_new_fontset (f, "fontset-standard");
2651 if (! STRINGP (font))
2652 font = x_new_font (f, "-*-monaco-*-12-*-mac-roman");
2653 if (! STRINGP (font))
2654 font = x_new_font (f, "-*-courier-*-10-*-mac-roman");
2655 if (! STRINGP (font))
2656 error ("Cannot find any usable font");
2657 UNBLOCK_INPUT;
2658
2659 x_set_frame_parameters (f, Fcons (Fcons (Qfont, font), Qnil));
2660 }
2661
2662 x_default_parameter (f, parms, Qborder_width, make_number (0),
2663 "borderwidth", "BorderWidth", RES_TYPE_NUMBER);
2664 /* This defaults to 2 in order to match xterm. We recognize either
2665 internalBorderWidth or internalBorder (which is what xterm calls
2666 it). */
2667 if (NILP (Fassq (Qinternal_border_width, parms)))
2668 {
2669 Lisp_Object value;
2670
2671 value = mac_get_arg (parms, Qinternal_border_width,
2672 "internalBorder", "InternalBorder", RES_TYPE_NUMBER);
2673 if (! EQ (value, Qunbound))
2674 parms = Fcons (Fcons (Qinternal_border_width, value),
2675 parms);
2676 }
2677 /* Default internalBorderWidth to 0 on Windows to match other programs. */
2678 x_default_parameter (f, parms, Qinternal_border_width, make_number (0),
2679 "internalBorderWidth", "InternalBorder", RES_TYPE_NUMBER);
2680 x_default_parameter (f, parms, Qvertical_scroll_bars, Qright,
2681 "verticalScrollBars", "ScrollBars", RES_TYPE_SYMBOL);
2682
2683 /* Also do the stuff which must be set before the window exists. */
2684 x_default_parameter (f, parms, Qforeground_color, build_string ("black"),
2685 "foreground", "Foreground", RES_TYPE_STRING);
2686 x_default_parameter (f, parms, Qbackground_color, build_string ("white"),
2687 "background", "Background", RES_TYPE_STRING);
2688 x_default_parameter (f, parms, Qmouse_color, build_string ("black"),
2689 "pointerColor", "Foreground", RES_TYPE_STRING);
2690 x_default_parameter (f, parms, Qcursor_color, build_string ("black"),
2691 "cursorColor", "Foreground", RES_TYPE_STRING);
2692 x_default_parameter (f, parms, Qborder_color, build_string ("black"),
2693 "borderColor", "BorderColor", RES_TYPE_STRING);
2694 x_default_parameter (f, parms, Qscreen_gamma, Qnil,
2695 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT);
2696 x_default_parameter (f, parms, Qline_spacing, Qnil,
2697 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER);
2698 x_default_parameter (f, parms, Qleft_fringe, Qnil,
2699 "leftFringe", "LeftFringe", RES_TYPE_NUMBER);
2700 x_default_parameter (f, parms, Qright_fringe, Qnil,
2701 "rightFringe", "RightFringe", RES_TYPE_NUMBER);
2702
2703
2704 /* Init faces before x_default_parameter is called for scroll-bar
2705 parameters because that function calls x_set_scroll_bar_width,
2706 which calls change_frame_size, which calls Fset_window_buffer,
2707 which runs hooks, which call Fvertical_motion. At the end, we
2708 end up in init_iterator with a null face cache, which should not
2709 happen. */
2710 init_frame_faces (f);
2711
2712 x_default_parameter (f, parms, Qmenu_bar_lines, make_number (1),
2713 "menuBar", "MenuBar", RES_TYPE_NUMBER);
2714 x_default_parameter (f, parms, Qtool_bar_lines, make_number (1),
2715 "toolBar", "ToolBar", RES_TYPE_NUMBER);
2716 x_default_parameter (f, parms, Qbuffer_predicate, Qnil,
2717 "bufferPredicate", "BufferPredicate",
2718 RES_TYPE_SYMBOL);
2719 x_default_parameter (f, parms, Qtitle, Qnil,
2720 "title", "Title", RES_TYPE_STRING);
2721 x_default_parameter (f, parms, Qfullscreen, Qnil,
2722 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL);
2723
2724 f->output_data.mac->parent_desc = FRAME_MAC_DISPLAY_INFO (f)->root_window;
2725
2726 /* Compute the size of the window. */
2727 window_prompting = x_figure_window_size (f, parms, 1);
2728
2729 tem = mac_get_arg (parms, Qunsplittable, 0, 0, RES_TYPE_BOOLEAN);
2730 f->no_split = minibuffer_only || EQ (tem, Qt);
2731
2732 mac_window (f);
2733
2734 x_icon (f, parms);
2735 x_make_gc (f);
2736
2737 /* Now consider the frame official. */
2738 FRAME_MAC_DISPLAY_INFO (f)->reference_count++;
2739 Vframe_list = Fcons (frame, Vframe_list);
2740
2741 /* We need to do this after creating the window, so that the
2742 icon-creation functions can say whose icon they're describing. */
2743 x_default_parameter (f, parms, Qicon_type, Qnil,
2744 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL);
2745
2746 x_default_parameter (f, parms, Qauto_raise, Qnil,
2747 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN);
2748 x_default_parameter (f, parms, Qauto_lower, Qnil,
2749 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN);
2750 x_default_parameter (f, parms, Qcursor_type, Qbox,
2751 "cursorType", "CursorType", RES_TYPE_SYMBOL);
2752 x_default_parameter (f, parms, Qscroll_bar_width, Qnil,
2753 "scrollBarWidth", "ScrollBarWidth",
2754 RES_TYPE_NUMBER);
2755
2756 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
2757 Change will not be effected unless different from the current
2758 FRAME_LINES (f). */
2759 width = FRAME_COLS (f);
2760 height = FRAME_LINES (f);
2761
2762 SET_FRAME_COLS (f, 0);
2763 FRAME_LINES (f) = 0;
2764 change_frame_size (f, height, width, 1, 0, 0);
2765
2766 /* Tell the server what size and position, etc, we want, and how
2767 badly we want them. This should be done after we have the menu
2768 bar so that its size can be taken into account. */
2769 BLOCK_INPUT;
2770 x_wm_set_size_hint (f, window_prompting, 0);
2771 UNBLOCK_INPUT;
2772
2773 /* Make the window appear on the frame and enable display, unless
2774 the caller says not to. However, with explicit parent, Emacs
2775 cannot control visibility, so don't try. */
2776 if (! f->output_data.mac->explicit_parent)
2777 {
2778 Lisp_Object visibility;
2779
2780 visibility = mac_get_arg (parms, Qvisibility, 0, 0, RES_TYPE_SYMBOL);
2781 if (EQ (visibility, Qunbound))
2782 visibility = Qt;
2783
2784 if (EQ (visibility, Qicon))
2785 x_iconify_frame (f);
2786 else if (! NILP (visibility))
2787 x_make_frame_visible (f);
2788 else
2789 /* Must have been Qnil. */
2790 ;
2791 }
2792
2793 /* Initialize `default-minibuffer-frame' in case this is the first
2794 frame on this display device. */
2795 if (FRAME_HAS_MINIBUF_P (f)
2796 && (!FRAMEP (kb->Vdefault_minibuffer_frame)
2797 || !FRAME_LIVE_P (XFRAME (kb->Vdefault_minibuffer_frame))))
2798 kb->Vdefault_minibuffer_frame = frame;
2799
2800 /* All remaining specified parameters, which have not been "used"
2801 by x_get_arg and friends, now go in the misc. alist of the frame. */
2802 for (tem = parms; !NILP (tem); tem = XCDR (tem))
2803 if (CONSP (XCAR (tem)) && !NILP (XCAR (XCAR (tem))))
2804 f->param_alist = Fcons (XCAR (tem), f->param_alist);
2805
2806 UNGCPRO;
2807
2808 /* Make sure windows on this frame appear in calls to next-window
2809 and similar functions. */
2810 Vwindow_list = Qnil;
2811
2812 return unbind_to (count, frame);
2813 }
2814
2815
2816 /* FRAME is used only to get a handle on the X display. We don't pass the
2817 display info directly because we're called from frame.c, which doesn't
2818 know about that structure. */
2819
2820 Lisp_Object
2821 x_get_focus_frame (frame)
2822 struct frame *frame;
2823 {
2824 struct mac_display_info *dpyinfo = FRAME_MAC_DISPLAY_INFO (frame);
2825 Lisp_Object xfocus;
2826 if (! dpyinfo->x_focus_frame)
2827 return Qnil;
2828
2829 XSETFRAME (xfocus, dpyinfo->x_focus_frame);
2830 return xfocus;
2831 }
2832
2833
2834 DEFUN ("x-focus-frame", Fx_focus_frame, Sx_focus_frame, 1, 1, 0,
2835 doc: /* Set the input focus to FRAME.
2836 FRAME nil means use the selected frame. */)
2837 (frame)
2838 Lisp_Object frame;
2839 {
2840 OSErr err;
2841 ProcessSerialNumber front_psn;
2842 static const ProcessSerialNumber current_psn = {0, kCurrentProcess};
2843 Boolean front_p;
2844 struct frame *f = check_x_frame (frame);
2845
2846 BLOCK_INPUT;
2847 /* Move the current process to the foreground if it is not. Don't
2848 call SetFrontProcess if the current process is already running in
2849 the foreground so as not to change the z-order of windows. */
2850 err = GetFrontProcess (&front_psn);
2851 if (err == noErr)
2852 err = SameProcess (&front_psn, &current_psn, &front_p);
2853 if (err == noErr)
2854 if (!front_p)
2855 {
2856 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
2857 if (FrontNonFloatingWindow () == FRAME_MAC_WINDOW (f))
2858 SetFrontProcessWithOptions (&current_psn,
2859 kSetFrontProcessFrontWindowOnly);
2860 else
2861 #endif
2862 SetFrontProcess (&current_psn);
2863 }
2864
2865 #ifdef MAC_OSX
2866 ActivateWindow (ActiveNonFloatingWindow (), false);
2867 ActivateWindow (FRAME_MAC_WINDOW (f), true);
2868 #else
2869 #if !TARGET_API_MAC_CARBON
2870 /* SelectWindow (Non-Carbon) does not issue deactivate events if the
2871 possibly inactive window that is to be selected is already the
2872 frontmost one. */
2873 SendBehind (FRAME_MAC_WINDOW (f), NULL);
2874 #endif
2875 /* This brings the window to the front. */
2876 SelectWindow (FRAME_MAC_WINDOW (f));
2877 #endif
2878 UNBLOCK_INPUT;
2879
2880 return Qnil;
2881 }
2882
2883 \f
2884 DEFUN ("xw-color-defined-p", Fxw_color_defined_p, Sxw_color_defined_p, 1, 2, 0,
2885 doc: /* Internal function called by `color-defined-p', which see. */)
2886 (color, frame)
2887 Lisp_Object color, frame;
2888 {
2889 XColor foo;
2890 FRAME_PTR f = check_x_frame (frame);
2891
2892 CHECK_STRING (color);
2893
2894 if (mac_defined_color (f, SDATA (color), &foo, 0))
2895 return Qt;
2896 else
2897 return Qnil;
2898 }
2899
2900 DEFUN ("xw-color-values", Fxw_color_values, Sxw_color_values, 1, 2, 0,
2901 doc: /* Internal function called by `color-values', which see. */)
2902 (color, frame)
2903 Lisp_Object color, frame;
2904 {
2905 XColor foo;
2906 FRAME_PTR f = check_x_frame (frame);
2907
2908 CHECK_STRING (color);
2909
2910 if (mac_defined_color (f, SDATA (color), &foo, 0))
2911 return list3 (make_number (foo.red),
2912 make_number (foo.green),
2913 make_number (foo.blue));
2914 else
2915 return Qnil;
2916 }
2917
2918 DEFUN ("xw-display-color-p", Fxw_display_color_p, Sxw_display_color_p, 0, 1, 0,
2919 doc: /* Internal function called by `display-color-p', which see. */)
2920 (display)
2921 Lisp_Object display;
2922 {
2923 struct mac_display_info *dpyinfo = check_x_display_info (display);
2924
2925 if (!dpyinfo->color_p)
2926 return Qnil;
2927
2928 return Qt;
2929 }
2930
2931 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p, Sx_display_grayscale_p,
2932 0, 1, 0,
2933 doc: /* Return t if DISPLAY supports shades of gray.
2934 Note that color displays do support shades of gray.
2935 The optional argument DISPLAY specifies which display to ask about.
2936 DISPLAY should be either a frame or a display name (a string).
2937 If omitted or nil, that stands for the selected frame's display. */)
2938 (display)
2939 Lisp_Object display;
2940 {
2941 struct mac_display_info *dpyinfo = check_x_display_info (display);
2942
2943 if (dpyinfo->n_planes <= 1)
2944 return Qnil;
2945
2946 return Qt;
2947 }
2948
2949 DEFUN ("x-display-pixel-width", Fx_display_pixel_width, Sx_display_pixel_width,
2950 0, 1, 0,
2951 doc: /* Returns the width in pixels of DISPLAY.
2952 The optional argument DISPLAY specifies which display to ask about.
2953 DISPLAY should be either a frame or a display name (a string).
2954 If omitted or nil, that stands for the selected frame's display. */)
2955 (display)
2956 Lisp_Object display;
2957 {
2958 struct mac_display_info *dpyinfo = check_x_display_info (display);
2959
2960 return make_number (dpyinfo->width);
2961 }
2962
2963 DEFUN ("x-display-pixel-height", Fx_display_pixel_height,
2964 Sx_display_pixel_height, 0, 1, 0,
2965 doc: /* Returns the height in pixels of DISPLAY.
2966 The optional argument DISPLAY specifies which display to ask about.
2967 DISPLAY should be either a frame or a display name (a string).
2968 If omitted or nil, that stands for the selected frame's display. */)
2969 (display)
2970 Lisp_Object display;
2971 {
2972 struct mac_display_info *dpyinfo = check_x_display_info (display);
2973
2974 return make_number (dpyinfo->height);
2975 }
2976
2977 DEFUN ("x-display-planes", Fx_display_planes, Sx_display_planes,
2978 0, 1, 0,
2979 doc: /* Returns the number of bitplanes of DISPLAY.
2980 The optional argument DISPLAY specifies which display to ask about.
2981 DISPLAY should be either a frame or a display name (a string).
2982 If omitted or nil, that stands for the selected frame's display. */)
2983 (display)
2984 Lisp_Object display;
2985 {
2986 struct mac_display_info *dpyinfo = check_x_display_info (display);
2987
2988 return make_number (dpyinfo->n_planes);
2989 }
2990
2991 DEFUN ("x-display-color-cells", Fx_display_color_cells, Sx_display_color_cells,
2992 0, 1, 0,
2993 doc: /* Returns the number of color cells of DISPLAY.
2994 The optional argument DISPLAY specifies which display to ask about.
2995 DISPLAY should be either a frame or a display name (a string).
2996 If omitted or nil, that stands for the selected frame's display. */)
2997 (display)
2998 Lisp_Object display;
2999 {
3000 struct mac_display_info *dpyinfo = check_x_display_info (display);
3001
3002 /* We force 24+ bit depths to 24-bit to prevent an overflow. */
3003 return make_number (1 << min (dpyinfo->n_planes, 24));
3004 }
3005
3006 DEFUN ("x-server-max-request-size", Fx_server_max_request_size,
3007 Sx_server_max_request_size,
3008 0, 1, 0,
3009 doc: /* Returns the maximum request size of the server of DISPLAY.
3010 The optional argument DISPLAY specifies which display to ask about.
3011 DISPLAY should be either a frame or a display name (a string).
3012 If omitted or nil, that stands for the selected frame's display. */)
3013 (display)
3014 Lisp_Object display;
3015 {
3016 struct mac_display_info *dpyinfo = check_x_display_info (display);
3017
3018 return make_number (1);
3019 }
3020
3021 DEFUN ("x-server-vendor", Fx_server_vendor, Sx_server_vendor, 0, 1, 0,
3022 doc: /* Returns the "vendor ID" string of the Mac OS system (Apple).
3023 The optional argument DISPLAY specifies which display to ask about.
3024 DISPLAY should be either a frame or a display name (a string).
3025 If omitted or nil, that stands for the selected frame's display. */)
3026 (display)
3027 Lisp_Object display;
3028 {
3029 return build_string ("Apple Inc.");
3030 }
3031
3032 DEFUN ("x-server-version", Fx_server_version, Sx_server_version, 0, 1, 0,
3033 doc: /* Returns the version numbers of the Mac OS system.
3034 The value is a list of three integers: the major and minor
3035 version numbers, and the vendor-specific release
3036 number. See also the function `x-server-vendor'.
3037
3038 The optional argument DISPLAY specifies which display to ask about.
3039 DISPLAY should be either a frame or a display name (a string).
3040 If omitted or nil, that stands for the selected frame's display. */)
3041 (display)
3042 Lisp_Object display;
3043 {
3044 UInt32 response, major, minor, bugfix;
3045 OSErr err;
3046
3047 BLOCK_INPUT;
3048 err = Gestalt (gestaltSystemVersion, &response);
3049 if (err == noErr)
3050 {
3051 if (response >= 0x00001040)
3052 {
3053 err = Gestalt (gestaltSystemVersionMajor, &major);
3054 if (err == noErr)
3055 err = Gestalt (gestaltSystemVersionMinor, &minor);
3056 if (err == noErr)
3057 err = Gestalt (gestaltSystemVersionBugFix, &bugfix);
3058 }
3059 else
3060 {
3061 bugfix = response & 0xf;
3062 response >>= 4;
3063 minor = response & 0xf;
3064 response >>= 4;
3065 /* convert BCD to int */
3066 major = response - (response >> 4) * 6;
3067 }
3068 }
3069 UNBLOCK_INPUT;
3070
3071 if (err != noErr)
3072 error ("Cannot get Mac OS version");
3073
3074 return Fcons (make_number (major),
3075 Fcons (make_number (minor),
3076 Fcons (make_number (bugfix),
3077 Qnil)));
3078 }
3079
3080 DEFUN ("x-display-screens", Fx_display_screens, Sx_display_screens, 0, 1, 0,
3081 doc: /* Return the number of screens on the server of DISPLAY.
3082 The optional argument DISPLAY specifies which display to ask about.
3083 DISPLAY should be either a frame or a display name (a string).
3084 If omitted or nil, that stands for the selected frame's display. */)
3085 (display)
3086 Lisp_Object display;
3087 {
3088 return make_number (1);
3089 }
3090
3091 DEFUN ("x-display-mm-height", Fx_display_mm_height, Sx_display_mm_height, 0, 1, 0,
3092 doc: /* Return the height in millimeters of DISPLAY.
3093 The optional argument DISPLAY specifies which display to ask about.
3094 DISPLAY should be either a frame or a display name (a string).
3095 If omitted or nil, that stands for the selected frame's display. */)
3096 (display)
3097 Lisp_Object display;
3098 {
3099 struct mac_display_info *dpyinfo = check_x_display_info (display);
3100 float mm_per_pixel;
3101
3102 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
3103 #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3104 if (CGDisplayScreenSize != NULL)
3105 #endif
3106 {
3107 CGSize size;
3108
3109 BLOCK_INPUT;
3110 size = CGDisplayScreenSize (kCGDirectMainDisplay);
3111 mm_per_pixel = size.height / CGDisplayPixelsHigh (kCGDirectMainDisplay);
3112 UNBLOCK_INPUT;
3113 }
3114 #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3115 else
3116 #endif
3117 #endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 */
3118 #if MAC_OS_X_VERSION_MAX_ALLOWED < 1030 || MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3119 {
3120 /* This is an approximation. */
3121 mm_per_pixel = 25.4f / dpyinfo->resy;
3122 }
3123 #endif
3124
3125 return make_number ((int) (dpyinfo->height * mm_per_pixel + 0.5f));
3126 }
3127
3128 DEFUN ("x-display-mm-width", Fx_display_mm_width, Sx_display_mm_width, 0, 1, 0,
3129 doc: /* Return the width in millimeters of DISPLAY.
3130 The optional argument DISPLAY specifies which display to ask about.
3131 DISPLAY should be either a frame or a display name (a string).
3132 If omitted or nil, that stands for the selected frame's display. */)
3133 (display)
3134 Lisp_Object display;
3135 {
3136 struct mac_display_info *dpyinfo = check_x_display_info (display);
3137 float mm_per_pixel;
3138
3139 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
3140 #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3141 if (CGDisplayScreenSize != NULL)
3142 #endif
3143 {
3144 CGSize size;
3145
3146 BLOCK_INPUT;
3147 size = CGDisplayScreenSize (kCGDirectMainDisplay);
3148 mm_per_pixel = size.width / CGDisplayPixelsWide (kCGDirectMainDisplay);
3149 UNBLOCK_INPUT;
3150 }
3151 #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3152 else
3153 #endif
3154 #endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 */
3155 #if MAC_OS_X_VERSION_MAX_ALLOWED < 1030 || MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3156 {
3157 /* This is an approximation. */
3158 mm_per_pixel = 25.4f / dpyinfo->resx;
3159 }
3160 #endif
3161
3162 return make_number ((int) (dpyinfo->width * mm_per_pixel + 0.5f));
3163 }
3164
3165 DEFUN ("x-display-backing-store", Fx_display_backing_store,
3166 Sx_display_backing_store, 0, 1, 0,
3167 doc: /* Returns an indication of whether DISPLAY does backing store.
3168 The value may be `always', `when-mapped', or `not-useful'.
3169 The optional argument DISPLAY specifies which display to ask about.
3170 DISPLAY should be either a frame or a display name (a string).
3171 If omitted or nil, that stands for the selected frame's display. */)
3172 (display)
3173 Lisp_Object display;
3174 {
3175 return intern ("not-useful");
3176 }
3177
3178 DEFUN ("x-display-visual-class", Fx_display_visual_class,
3179 Sx_display_visual_class, 0, 1, 0,
3180 doc: /* Returns the visual class of DISPLAY.
3181 The value is one of the symbols `static-gray', `gray-scale',
3182 `static-color', `pseudo-color', `true-color', or `direct-color'.
3183
3184 The optional argument DISPLAY specifies which display to ask about.
3185 DISPLAY should be either a frame or a display name (a string).
3186 If omitted or nil, that stands for the selected frame's display. */)
3187 (display)
3188 Lisp_Object display;
3189 {
3190 struct mac_display_info *dpyinfo = check_x_display_info (display);
3191
3192 #if 0
3193 switch (dpyinfo->visual->class)
3194 {
3195 case StaticGray: return (intern ("static-gray"));
3196 case GrayScale: return (intern ("gray-scale"));
3197 case StaticColor: return (intern ("static-color"));
3198 case PseudoColor: return (intern ("pseudo-color"));
3199 case TrueColor: return (intern ("true-color"));
3200 case DirectColor: return (intern ("direct-color"));
3201 default:
3202 error ("Display has an unknown visual class");
3203 }
3204 #endif /* 0 */
3205
3206 return (intern ("true-color"));
3207 }
3208
3209 DEFUN ("x-display-save-under", Fx_display_save_under,
3210 Sx_display_save_under, 0, 1, 0,
3211 doc: /* Returns t if DISPLAY supports the save-under feature.
3212 The optional argument DISPLAY specifies which display to ask about.
3213 DISPLAY should be either a frame or a display name (a string).
3214 If omitted or nil, that stands for the selected frame's display. */)
3215 (display)
3216 Lisp_Object display;
3217 {
3218 return Qnil;
3219 }
3220 \f
3221 int
3222 x_pixel_width (f)
3223 register struct frame *f;
3224 {
3225 return FRAME_PIXEL_WIDTH (f);
3226 }
3227
3228 int
3229 x_pixel_height (f)
3230 register struct frame *f;
3231 {
3232 return FRAME_PIXEL_HEIGHT (f);
3233 }
3234
3235 int
3236 x_char_width (f)
3237 register struct frame *f;
3238 {
3239 return FRAME_COLUMN_WIDTH (f);
3240 }
3241
3242 int
3243 x_char_height (f)
3244 register struct frame *f;
3245 {
3246 return FRAME_LINE_HEIGHT (f);
3247 }
3248
3249 int
3250 x_screen_planes (f)
3251 register struct frame *f;
3252 {
3253 return FRAME_MAC_DISPLAY_INFO (f)->n_planes;
3254 }
3255 \f
3256 /* Return the display structure for the display named NAME.
3257 Open a new connection if necessary. */
3258
3259 struct mac_display_info *
3260 x_display_info_for_name (name)
3261 Lisp_Object name;
3262 {
3263 Lisp_Object names;
3264 struct mac_display_info *dpyinfo;
3265
3266 CHECK_STRING (name);
3267
3268 if (! EQ (Vwindow_system, intern ("mac")))
3269 error ("Not using Mac native windows");
3270
3271 for (dpyinfo = &one_mac_display_info, names = x_display_name_list;
3272 dpyinfo;
3273 dpyinfo = dpyinfo->next, names = XCDR (names))
3274 {
3275 Lisp_Object tem;
3276 tem = Fstring_equal (XCAR (XCAR (names)), name);
3277 if (!NILP (tem))
3278 return dpyinfo;
3279 }
3280
3281 /* Use this general default value to start with. */
3282 Vx_resource_name = Vinvocation_name;
3283
3284 validate_x_resource_name ();
3285
3286 dpyinfo = mac_term_init (name, (unsigned char *) 0,
3287 (char *) SDATA (Vx_resource_name));
3288
3289 if (dpyinfo == 0)
3290 error ("Cannot connect to server %s", SDATA (name));
3291
3292 mac_in_use = 1;
3293 XSETFASTINT (Vwindow_system_version, 3);
3294
3295 return dpyinfo;
3296 }
3297
3298 DEFUN ("x-open-connection", Fx_open_connection, Sx_open_connection,
3299 1, 3, 0,
3300 doc: /* Open a connection to a server.
3301 DISPLAY is the name of the display to connect to.
3302 Optional second arg XRM-STRING is a string of resources in xrdb format.
3303 If the optional third arg MUST-SUCCEED is non-nil,
3304 terminate Emacs if we can't open the connection. */)
3305 (display, xrm_string, must_succeed)
3306 Lisp_Object display, xrm_string, must_succeed;
3307 {
3308 unsigned char *xrm_option;
3309 struct mac_display_info *dpyinfo;
3310
3311 CHECK_STRING (display);
3312 if (! NILP (xrm_string))
3313 CHECK_STRING (xrm_string);
3314
3315 if (! EQ (Vwindow_system, intern ("mac")))
3316 error ("Not using Mac native windows");
3317
3318 if (! NILP (xrm_string))
3319 xrm_option = (unsigned char *) SDATA (xrm_string);
3320 else
3321 xrm_option = (unsigned char *) 0;
3322
3323 validate_x_resource_name ();
3324
3325 /* This is what opens the connection and sets x_current_display.
3326 This also initializes many symbols, such as those used for input. */
3327 dpyinfo = mac_term_init (display, xrm_option,
3328 (char *) SDATA (Vx_resource_name));
3329
3330 if (dpyinfo == 0)
3331 {
3332 if (!NILP (must_succeed))
3333 fatal ("Cannot connect to server %s.\n",
3334 SDATA (display));
3335 else
3336 error ("Cannot connect to server %s", SDATA (display));
3337 }
3338
3339 mac_in_use = 1;
3340
3341 XSETFASTINT (Vwindow_system_version, 3);
3342 return Qnil;
3343 }
3344
3345 DEFUN ("x-close-connection", Fx_close_connection,
3346 Sx_close_connection, 1, 1, 0,
3347 doc: /* Close the connection to DISPLAY's server.
3348 For DISPLAY, specify either a frame or a display name (a string).
3349 If DISPLAY is nil, that stands for the selected frame's display. */)
3350 (display)
3351 Lisp_Object display;
3352 {
3353 struct mac_display_info *dpyinfo = check_x_display_info (display);
3354 int i;
3355
3356 if (dpyinfo->reference_count > 0)
3357 error ("Display still has frames on it");
3358
3359 BLOCK_INPUT;
3360 /* Free the fonts in the font table. */
3361 for (i = 0; i < dpyinfo->n_fonts; i++)
3362 if (dpyinfo->font_table[i].name)
3363 {
3364 mac_unload_font (dpyinfo, dpyinfo->font_table[i].font);
3365 }
3366
3367 x_destroy_all_bitmaps (dpyinfo);
3368
3369 x_delete_display (dpyinfo);
3370 UNBLOCK_INPUT;
3371
3372 return Qnil;
3373 }
3374
3375 DEFUN ("x-display-list", Fx_display_list, Sx_display_list, 0, 0, 0,
3376 doc: /* Return the list of display names that Emacs has connections to. */)
3377 ()
3378 {
3379 Lisp_Object tail, result;
3380
3381 result = Qnil;
3382 for (tail = x_display_name_list; ! NILP (tail); tail = XCDR (tail))
3383 result = Fcons (XCAR (XCAR (tail)), result);
3384
3385 return result;
3386 }
3387
3388 DEFUN ("x-synchronize", Fx_synchronize, Sx_synchronize, 1, 2, 0,
3389 doc: /* This is a noop on Mac OS systems. */)
3390 (on, display)
3391 Lisp_Object display, on;
3392 {
3393 return Qnil;
3394 }
3395
3396 /* x_sync is a no-op on Mac. */
3397
3398 void
3399 x_sync (f)
3400 FRAME_PTR f;
3401 {
3402 }
3403
3404 \f
3405 /***********************************************************************
3406 Window properties
3407 ***********************************************************************/
3408
3409 DEFUN ("x-change-window-property", Fx_change_window_property,
3410 Sx_change_window_property, 2, 6, 0,
3411 doc: /* Change window property PROP to VALUE on the X window of FRAME.
3412 VALUE may be a string or a list of conses, numbers and/or strings.
3413 If an element in the list is a string, it is converted to
3414 an Atom and the value of the Atom is used. If an element is a cons,
3415 it is converted to a 32 bit number where the car is the 16 top bits and the
3416 cdr is the lower 16 bits.
3417 FRAME nil or omitted means use the selected frame.
3418 If TYPE is given and non-nil, it is the name of the type of VALUE.
3419 If TYPE is not given or nil, the type is STRING.
3420 FORMAT gives the size in bits of each element if VALUE is a list.
3421 It must be one of 8, 16 or 32.
3422 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
3423 If OUTER_P is non-nil, the property is changed for the outer X window of
3424 FRAME. Default is to change on the edit X window.
3425
3426 Value is VALUE. */)
3427 (prop, value, frame, type, format, outer_p)
3428 Lisp_Object prop, value, frame, type, format, outer_p;
3429 {
3430 #if 0 /* MAC_TODO : port window properties to Mac */
3431 struct frame *f = check_x_frame (frame);
3432 Atom prop_atom;
3433
3434 CHECK_STRING (prop);
3435 CHECK_STRING (value);
3436
3437 BLOCK_INPUT;
3438 prop_atom = XInternAtom (FRAME_W32_DISPLAY (f), SDATA (prop), False);
3439 XChangeProperty (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f),
3440 prop_atom, XA_STRING, 8, PropModeReplace,
3441 SDATA (value), SCHARS (value));
3442
3443 /* Make sure the property is set when we return. */
3444 XFlush (FRAME_W32_DISPLAY (f));
3445 UNBLOCK_INPUT;
3446
3447 #endif /* MAC_TODO */
3448
3449 return value;
3450 }
3451
3452
3453 DEFUN ("x-delete-window-property", Fx_delete_window_property,
3454 Sx_delete_window_property, 1, 2, 0,
3455 doc: /* Remove window property PROP from X window of FRAME.
3456 FRAME nil or omitted means use the selected frame. Value is PROP. */)
3457 (prop, frame)
3458 Lisp_Object prop, frame;
3459 {
3460 #if 0 /* MAC_TODO : port window properties to Mac */
3461
3462 struct frame *f = check_x_frame (frame);
3463 Atom prop_atom;
3464
3465 CHECK_STRING (prop);
3466 BLOCK_INPUT;
3467 prop_atom = XInternAtom (FRAME_W32_DISPLAY (f), SDATA (prop), False);
3468 XDeleteProperty (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f), prop_atom);
3469
3470 /* Make sure the property is removed when we return. */
3471 XFlush (FRAME_W32_DISPLAY (f));
3472 UNBLOCK_INPUT;
3473 #endif /* MAC_TODO */
3474
3475 return prop;
3476 }
3477
3478
3479 DEFUN ("x-window-property", Fx_window_property, Sx_window_property,
3480 1, 2, 0,
3481 doc: /* Value is the value of window property PROP on FRAME.
3482 If FRAME is nil or omitted, use the selected frame. Value is nil
3483 if FRAME hasn't a property with name PROP or if PROP has no string
3484 value. */)
3485 (prop, frame)
3486 Lisp_Object prop, frame;
3487 {
3488 #if 0 /* MAC_TODO : port window properties to Mac */
3489
3490 struct frame *f = check_x_frame (frame);
3491 Atom prop_atom;
3492 int rc;
3493 Lisp_Object prop_value = Qnil;
3494 char *tmp_data = NULL;
3495 Atom actual_type;
3496 int actual_format;
3497 unsigned long actual_size, bytes_remaining;
3498
3499 CHECK_STRING (prop);
3500 BLOCK_INPUT;
3501 prop_atom = XInternAtom (FRAME_W32_DISPLAY (f), SDATA (prop), False);
3502 rc = XGetWindowProperty (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f),
3503 prop_atom, 0, 0, False, XA_STRING,
3504 &actual_type, &actual_format, &actual_size,
3505 &bytes_remaining, (unsigned char **) &tmp_data);
3506 if (rc == Success)
3507 {
3508 int size = bytes_remaining;
3509
3510 XFree (tmp_data);
3511 tmp_data = NULL;
3512
3513 rc = XGetWindowProperty (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f),
3514 prop_atom, 0, bytes_remaining,
3515 False, XA_STRING,
3516 &actual_type, &actual_format,
3517 &actual_size, &bytes_remaining,
3518 (unsigned char **) &tmp_data);
3519 if (rc == Success)
3520 prop_value = make_string (tmp_data, size);
3521
3522 XFree (tmp_data);
3523 }
3524
3525 UNBLOCK_INPUT;
3526
3527 return prop_value;
3528
3529 #endif /* MAC_TODO */
3530 return Qnil;
3531 }
3532
3533
3534 \f
3535 /***********************************************************************
3536 Busy cursor
3537 ***********************************************************************/
3538
3539 /* If non-null, an asynchronous timer that, when it expires, displays
3540 an hourglass cursor on all frames. */
3541
3542 static struct atimer *hourglass_atimer;
3543
3544 /* Non-zero means an hourglass cursor is currently shown. */
3545
3546 static int hourglass_shown_p;
3547
3548 /* Number of seconds to wait before displaying an hourglass cursor. */
3549
3550 static Lisp_Object Vhourglass_delay;
3551
3552 /* Default number of seconds to wait before displaying an hourglass
3553 cursor. */
3554
3555 #define DEFAULT_HOURGLASS_DELAY 1
3556
3557 /* Function prototypes. */
3558
3559 static void show_hourglass P_ ((struct atimer *));
3560 static void hide_hourglass P_ ((void));
3561
3562 /* Return non-zero if houglass timer has been started or hourglass is shown. */
3563
3564 int
3565 hourglass_started ()
3566 {
3567 return hourglass_shown_p || hourglass_atimer != NULL;
3568 }
3569
3570
3571 /* Cancel a currently active hourglass timer, and start a new one. */
3572
3573 void
3574 start_hourglass ()
3575 {
3576 #ifdef MAC_OSX
3577 EMACS_TIME delay;
3578 int secs, usecs = 0;
3579
3580 /* Don't bother for ttys. */
3581 if (NILP (Vwindow_system))
3582 return;
3583
3584 cancel_hourglass ();
3585
3586 if (INTEGERP (Vhourglass_delay)
3587 && XINT (Vhourglass_delay) > 0)
3588 secs = XFASTINT (Vhourglass_delay);
3589 else if (FLOATP (Vhourglass_delay)
3590 && XFLOAT_DATA (Vhourglass_delay) > 0)
3591 {
3592 Lisp_Object tem;
3593 tem = Ftruncate (Vhourglass_delay, Qnil);
3594 secs = XFASTINT (tem);
3595 usecs = (XFLOAT_DATA (Vhourglass_delay) - secs) * 1000000;
3596 }
3597 else
3598 secs = DEFAULT_HOURGLASS_DELAY;
3599
3600 EMACS_SET_SECS_USECS (delay, secs, usecs);
3601 hourglass_atimer = start_atimer (ATIMER_RELATIVE, delay,
3602 show_hourglass, NULL);
3603 #endif /* MAC_OSX */
3604 }
3605
3606
3607 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
3608 shown. */
3609
3610 void
3611 cancel_hourglass ()
3612 {
3613 #ifdef MAC_OSX
3614 if (hourglass_atimer)
3615 {
3616 cancel_atimer (hourglass_atimer);
3617 hourglass_atimer = NULL;
3618 }
3619
3620 if (hourglass_shown_p)
3621 hide_hourglass ();
3622 #endif /* MAC_OSX */
3623 }
3624
3625
3626 /* Timer function of hourglass_atimer. TIMER is equal to
3627 hourglass_atimer.
3628
3629 On Mac, busy status is shown by the progress indicator (chasing
3630 arrows) at the upper-right corner of each frame instead of the
3631 hourglass pointer. */
3632
3633 static void
3634 show_hourglass (timer)
3635 struct atimer *timer;
3636 {
3637 #if TARGET_API_MAC_CARBON
3638 /* The timer implementation will cancel this timer automatically
3639 after this function has run. Set hourglass_atimer to null
3640 so that we know the timer doesn't have to be canceled. */
3641 hourglass_atimer = NULL;
3642
3643 if (!hourglass_shown_p)
3644 {
3645 Lisp_Object rest, frame;
3646
3647 BLOCK_INPUT;
3648
3649 FOR_EACH_FRAME (rest, frame)
3650 {
3651 struct frame *f = XFRAME (frame);
3652
3653 if (FRAME_LIVE_P (f) && FRAME_MAC_P (f)
3654 && FRAME_MAC_WINDOW (f) != tip_window)
3655 {
3656 #if USE_CG_DRAWING
3657 mac_prepare_for_quickdraw (f);
3658 #endif
3659 if (!f->output_data.mac->hourglass_control)
3660 {
3661 Window w = FRAME_MAC_WINDOW (f);
3662 Rect r;
3663 ControlRef c;
3664
3665 GetWindowPortBounds (w, &r);
3666 r.left = r.right - HOURGLASS_WIDTH;
3667 r.bottom = r.top + HOURGLASS_HEIGHT;
3668 if (CreateChasingArrowsControl (w, &r, &c) == noErr)
3669 f->output_data.mac->hourglass_control = c;
3670 }
3671
3672 if (f->output_data.mac->hourglass_control)
3673 ShowControl (f->output_data.mac->hourglass_control);
3674 }
3675 }
3676
3677 hourglass_shown_p = 1;
3678 UNBLOCK_INPUT;
3679 }
3680 #endif /* TARGET_API_MAC_CARBON */
3681 }
3682
3683
3684 /* Hide the progress indicators on all frames, if it is currently
3685 shown. */
3686
3687 static void
3688 hide_hourglass ()
3689 {
3690 #if TARGET_API_MAC_CARBON
3691 if (hourglass_shown_p)
3692 {
3693 Lisp_Object rest, frame;
3694
3695 BLOCK_INPUT;
3696 FOR_EACH_FRAME (rest, frame)
3697 {
3698 struct frame *f = XFRAME (frame);
3699
3700 if (FRAME_MAC_P (f)
3701 /* Watch out for newly created frames. */
3702 && f->output_data.mac->hourglass_control)
3703 {
3704 #if USE_CG_DRAWING
3705 mac_prepare_for_quickdraw (f);
3706 #endif
3707 HideControl (f->output_data.mac->hourglass_control);
3708 }
3709 }
3710
3711 hourglass_shown_p = 0;
3712 UNBLOCK_INPUT;
3713 }
3714 #endif /* TARGET_API_MAC_CARBON */
3715 }
3716
3717
3718 \f
3719 /***********************************************************************
3720 Tool tips
3721 ***********************************************************************/
3722
3723 static Lisp_Object x_create_tip_frame P_ ((struct mac_display_info *,
3724 Lisp_Object, Lisp_Object));
3725 static void compute_tip_xy P_ ((struct frame *, Lisp_Object, Lisp_Object,
3726 Lisp_Object, int, int, int *, int *));
3727
3728 /* The frame of a currently visible tooltip. */
3729
3730 Lisp_Object tip_frame;
3731
3732 /* If non-nil, a timer started that hides the last tooltip when it
3733 fires. */
3734
3735 Lisp_Object tip_timer;
3736 Window tip_window;
3737
3738 /* If non-nil, a vector of 3 elements containing the last args
3739 with which x-show-tip was called. See there. */
3740
3741 Lisp_Object last_show_tip_args;
3742
3743 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
3744
3745 Lisp_Object Vx_max_tooltip_size;
3746
3747
3748 static Lisp_Object
3749 unwind_create_tip_frame (frame)
3750 Lisp_Object frame;
3751 {
3752 Lisp_Object deleted;
3753
3754 deleted = unwind_create_frame (frame);
3755 if (EQ (deleted, Qt))
3756 {
3757 tip_window = NULL;
3758 tip_frame = Qnil;
3759 }
3760
3761 return deleted;
3762 }
3763
3764
3765 /* Create a frame for a tooltip on the display described by DPYINFO.
3766 PARMS is a list of frame parameters. TEXT is the string to
3767 display in the tip frame. Value is the frame.
3768
3769 Note that functions called here, esp. x_default_parameter can
3770 signal errors, for instance when a specified color name is
3771 undefined. We have to make sure that we're in a consistent state
3772 when this happens. */
3773
3774 static Lisp_Object
3775 x_create_tip_frame (dpyinfo, parms, text)
3776 struct mac_display_info *dpyinfo;
3777 Lisp_Object parms, text;
3778 {
3779 struct frame *f;
3780 Lisp_Object frame, tem;
3781 Lisp_Object name;
3782 long window_prompting = 0;
3783 int width, height;
3784 int count = SPECPDL_INDEX ();
3785 struct gcpro gcpro1, gcpro2, gcpro3;
3786 struct kboard *kb;
3787 int face_change_count_before = face_change_count;
3788 Lisp_Object buffer;
3789 struct buffer *old_buffer;
3790
3791 check_mac ();
3792
3793 parms = Fcopy_alist (parms);
3794
3795 #ifdef MULTI_KBOARD
3796 kb = dpyinfo->kboard;
3797 #else
3798 kb = &the_only_kboard;
3799 #endif
3800
3801 /* Get the name of the frame to use for resource lookup. */
3802 name = mac_get_arg (parms, Qname, "name", "Name", RES_TYPE_STRING);
3803 if (!STRINGP (name)
3804 && !EQ (name, Qunbound)
3805 && !NILP (name))
3806 error ("Invalid frame name--not a string or nil");
3807
3808 frame = Qnil;
3809 GCPRO3 (parms, name, frame);
3810 f = make_frame (1);
3811 XSETFRAME (frame, f);
3812
3813 buffer = Fget_buffer_create (build_string (" *tip*"));
3814 Fset_window_buffer (FRAME_ROOT_WINDOW (f), buffer, Qnil);
3815 old_buffer = current_buffer;
3816 set_buffer_internal_1 (XBUFFER (buffer));
3817 current_buffer->truncate_lines = Qnil;
3818 specbind (Qinhibit_read_only, Qt);
3819 specbind (Qinhibit_modification_hooks, Qt);
3820 Ferase_buffer ();
3821 Finsert (1, &text);
3822 set_buffer_internal_1 (old_buffer);
3823
3824 FRAME_CAN_HAVE_SCROLL_BARS (f) = 0;
3825 record_unwind_protect (unwind_create_tip_frame, frame);
3826
3827 /* By setting the output method, we're essentially saying that
3828 the frame is live, as per FRAME_LIVE_P. If we get a signal
3829 from this point on, x_destroy_window might screw up reference
3830 counts etc. */
3831 f->output_method = output_mac;
3832 f->output_data.mac =
3833 (struct mac_output *) xmalloc (sizeof (struct mac_output));
3834 bzero (f->output_data.mac, sizeof (struct mac_output));
3835
3836 FRAME_FONTSET (f) = -1;
3837 f->icon_name = Qnil;
3838 /* FRAME_X_DISPLAY_INFO (f) = dpyinfo; */
3839 #if GLYPH_DEBUG
3840 image_cache_refcount = FRAME_X_IMAGE_CACHE (f)->refcount;
3841 dpyinfo_refcount = dpyinfo->reference_count;
3842 #endif /* GLYPH_DEBUG */
3843 #ifdef MULTI_KBOARD
3844 FRAME_KBOARD (f) = kb;
3845 #endif
3846 f->output_data.mac->parent_desc = FRAME_MAC_DISPLAY_INFO (f)->root_window;
3847 f->output_data.mac->explicit_parent = 0;
3848
3849 /* Set the name; the functions to which we pass f expect the name to
3850 be set. */
3851 if (EQ (name, Qunbound) || NILP (name))
3852 {
3853 f->name = build_string (dpyinfo->mac_id_name);
3854 f->explicit_name = 0;
3855 }
3856 else
3857 {
3858 f->name = name;
3859 f->explicit_name = 1;
3860 /* use the frame's title when getting resources for this frame. */
3861 specbind (Qx_resource_name, name);
3862 }
3863
3864 /* Extract the window parameters from the supplied values that are
3865 needed to determine window geometry. */
3866 {
3867 Lisp_Object font;
3868
3869 font = mac_get_arg (parms, Qfont, "font", "Font", RES_TYPE_STRING);
3870
3871 BLOCK_INPUT;
3872 /* First, try whatever font the caller has specified. */
3873 if (STRINGP (font))
3874 {
3875 tem = Fquery_fontset (font, Qnil);
3876 if (STRINGP (tem))
3877 font = x_new_fontset (f, SDATA (tem));
3878 else
3879 font = x_new_font (f, SDATA (font));
3880 }
3881
3882 /* Try out a font which we hope has bold and italic variations. */
3883 #if USE_ATSUI
3884 if (! STRINGP (font))
3885 font = x_new_font (f, "-*-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1");
3886 #endif
3887 if (! STRINGP (font))
3888 font = x_new_font (f, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1");
3889 /* If those didn't work, look for something which will at least work. */
3890 if (! STRINGP (font))
3891 font = x_new_fontset (f, "fontset-standard");
3892 if (! STRINGP (font))
3893 font = x_new_font (f, "-*-monaco-*-12-*-mac-roman");
3894 if (! STRINGP (font))
3895 font = x_new_font (f, "-*-courier-*-10-*-mac-roman");
3896 UNBLOCK_INPUT;
3897 if (! STRINGP (font))
3898 error ("Cannot find any usable font");
3899
3900 x_default_parameter (f, parms, Qfont, font,
3901 "font", "Font", RES_TYPE_STRING);
3902 }
3903
3904 x_default_parameter (f, parms, Qborder_width, make_number (2),
3905 "borderWidth", "BorderWidth", RES_TYPE_NUMBER);
3906
3907 /* This defaults to 2 in order to match xterm. We recognize either
3908 internalBorderWidth or internalBorder (which is what xterm calls
3909 it). */
3910 if (NILP (Fassq (Qinternal_border_width, parms)))
3911 {
3912 Lisp_Object value;
3913
3914 value = mac_get_arg (parms, Qinternal_border_width,
3915 "internalBorder", "internalBorder", RES_TYPE_NUMBER);
3916 if (! EQ (value, Qunbound))
3917 parms = Fcons (Fcons (Qinternal_border_width, value),
3918 parms);
3919 }
3920
3921 x_default_parameter (f, parms, Qinternal_border_width, make_number (1),
3922 "internalBorderWidth", "internalBorderWidth",
3923 RES_TYPE_NUMBER);
3924
3925 /* Also do the stuff which must be set before the window exists. */
3926 x_default_parameter (f, parms, Qforeground_color, build_string ("black"),
3927 "foreground", "Foreground", RES_TYPE_STRING);
3928 x_default_parameter (f, parms, Qbackground_color, build_string ("white"),
3929 "background", "Background", RES_TYPE_STRING);
3930 x_default_parameter (f, parms, Qmouse_color, build_string ("black"),
3931 "pointerColor", "Foreground", RES_TYPE_STRING);
3932 x_default_parameter (f, parms, Qcursor_color, build_string ("black"),
3933 "cursorColor", "Foreground", RES_TYPE_STRING);
3934 x_default_parameter (f, parms, Qborder_color, build_string ("black"),
3935 "borderColor", "BorderColor", RES_TYPE_STRING);
3936
3937 /* Init faces before x_default_parameter is called for scroll-bar
3938 parameters because that function calls x_set_scroll_bar_width,
3939 which calls change_frame_size, which calls Fset_window_buffer,
3940 which runs hooks, which call Fvertical_motion. At the end, we
3941 end up in init_iterator with a null face cache, which should not
3942 happen. */
3943 init_frame_faces (f);
3944
3945 f->output_data.mac->parent_desc = FRAME_MAC_DISPLAY_INFO (f)->root_window;
3946
3947 window_prompting = x_figure_window_size (f, parms, 0);
3948
3949 {
3950 Rect r;
3951
3952 BLOCK_INPUT;
3953 SetRect (&r, 0, 0, 1, 1);
3954 #if TARGET_API_MAC_CARBON
3955 if (CreateNewWindow (kHelpWindowClass,
3956 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
3957 kWindowIgnoreClicksAttribute |
3958 #endif
3959 kWindowNoUpdatesAttribute |
3960 kWindowNoActivatesAttribute,
3961 &r, &tip_window) == noErr)
3962 #else
3963 if (tip_window = NewCWindow (NULL, &r, "\p", false, plainDBox,
3964 NULL, false, 0L))
3965 #endif
3966 {
3967 FRAME_MAC_WINDOW (f) = tip_window;
3968 XSetWindowBackground (FRAME_MAC_DISPLAY(f), tip_window,
3969 FRAME_BACKGROUND_PIXEL (f));
3970 SetWRefCon (tip_window, (long) f->output_data.mac);
3971 /* so that update events can find this mac_output struct */
3972 f->output_data.mac->mFP = f;
3973 }
3974 UNBLOCK_INPUT;
3975 }
3976
3977 x_make_gc (f);
3978
3979 x_default_parameter (f, parms, Qauto_raise, Qnil,
3980 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN);
3981 x_default_parameter (f, parms, Qauto_lower, Qnil,
3982 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN);
3983 x_default_parameter (f, parms, Qcursor_type, Qbox,
3984 "cursorType", "CursorType", RES_TYPE_SYMBOL);
3985
3986 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3987 Change will not be effected unless different from the current
3988 FRAME_LINES (f). */
3989 width = FRAME_COLS (f);
3990 height = FRAME_LINES (f);
3991 SET_FRAME_COLS (f, 0);
3992 FRAME_LINES (f) = 0;
3993 change_frame_size (f, height, width, 1, 0, 0);
3994
3995 /* Add `tooltip' frame parameter's default value. */
3996 if (NILP (Fframe_parameter (frame, intern ("tooltip"))))
3997 Fmodify_frame_parameters (frame, Fcons (Fcons (intern ("tooltip"), Qt),
3998 Qnil));
3999
4000 /* Set up faces after all frame parameters are known. This call
4001 also merges in face attributes specified for new frames.
4002
4003 Frame parameters may be changed if .Xdefaults contains
4004 specifications for the default font. For example, if there is an
4005 `Emacs.default.attributeBackground: pink', the `background-color'
4006 attribute of the frame get's set, which let's the internal border
4007 of the tooltip frame appear in pink. Prevent this. */
4008 {
4009 Lisp_Object bg = Fframe_parameter (frame, Qbackground_color);
4010
4011 /* Set tip_frame here, so that */
4012 tip_frame = frame;
4013 call1 (Qface_set_after_frame_default, frame);
4014
4015 if (!EQ (bg, Fframe_parameter (frame, Qbackground_color)))
4016 Fmodify_frame_parameters (frame, Fcons (Fcons (Qbackground_color, bg),
4017 Qnil));
4018 }
4019
4020 f->no_split = 1;
4021
4022 UNGCPRO;
4023
4024 /* It is now ok to make the frame official even if we get an error
4025 below. And the frame needs to be on Vframe_list or making it
4026 visible won't work. */
4027 Vframe_list = Fcons (frame, Vframe_list);
4028
4029 /* Now that the frame is official, it counts as a reference to
4030 its display. */
4031 FRAME_MAC_DISPLAY_INFO (f)->reference_count++;
4032
4033 /* Setting attributes of faces of the tooltip frame from resources
4034 and similar will increment face_change_count, which leads to the
4035 clearing of all current matrices. Since this isn't necessary
4036 here, avoid it by resetting face_change_count to the value it
4037 had before we created the tip frame. */
4038 face_change_count = face_change_count_before;
4039
4040 /* Discard the unwind_protect. */
4041 return unbind_to (count, frame);
4042 }
4043
4044
4045 /* Compute where to display tip frame F. PARMS is the list of frame
4046 parameters for F. DX and DY are specified offsets from the current
4047 location of the mouse. WIDTH and HEIGHT are the width and height
4048 of the tooltip. Return coordinates relative to the root window of
4049 the display in *ROOT_X, and *ROOT_Y. */
4050
4051 static void
4052 compute_tip_xy (f, parms, dx, dy, width, height, root_x, root_y)
4053 struct frame *f;
4054 Lisp_Object parms, dx, dy;
4055 int width, height;
4056 int *root_x, *root_y;
4057 {
4058 Lisp_Object left, top;
4059
4060 /* User-specified position? */
4061 left = Fcdr (Fassq (Qleft, parms));
4062 top = Fcdr (Fassq (Qtop, parms));
4063
4064 /* Move the tooltip window where the mouse pointer is. Resize and
4065 show it. */
4066 if (!INTEGERP (left) || !INTEGERP (top))
4067 {
4068 Point mouse_pos;
4069
4070 BLOCK_INPUT;
4071 GetMouse (&mouse_pos);
4072 LocalToGlobal (&mouse_pos);
4073 *root_x = mouse_pos.h;
4074 *root_y = mouse_pos.v;
4075 UNBLOCK_INPUT;
4076 }
4077
4078 if (INTEGERP (top))
4079 *root_y = XINT (top);
4080 else if (*root_y + XINT (dy) <= 0)
4081 *root_y = 0; /* Can happen for negative dy */
4082 else if (*root_y + XINT (dy) + height <= FRAME_MAC_DISPLAY_INFO (f)->height)
4083 /* It fits below the pointer */
4084 *root_y += XINT (dy);
4085 else if (height + XINT (dy) <= *root_y)
4086 /* It fits above the pointer. */
4087 *root_y -= height + XINT (dy);
4088 else
4089 /* Put it on the top. */
4090 *root_y = 0;
4091
4092 if (INTEGERP (left))
4093 *root_x = XINT (left);
4094 else if (*root_x + XINT (dx) <= 0)
4095 *root_x = 0; /* Can happen for negative dx */
4096 else if (*root_x + XINT (dx) + width <= FRAME_MAC_DISPLAY_INFO (f)->width)
4097 /* It fits to the right of the pointer. */
4098 *root_x += XINT (dx);
4099 else if (width + XINT (dx) <= *root_x)
4100 /* It fits to the left of the pointer. */
4101 *root_x -= width + XINT (dx);
4102 else
4103 /* Put it left-justified on the screen -- it ought to fit that way. */
4104 *root_x = 0;
4105 }
4106
4107
4108 DEFUN ("x-show-tip", Fx_show_tip, Sx_show_tip, 1, 6, 0,
4109 doc: /* Show STRING in a "tooltip" window on frame FRAME.
4110 A tooltip window is a small window displaying a string.
4111
4112 This is an internal function; Lisp code should call `tooltip-show'.
4113
4114 FRAME nil or omitted means use the selected frame.
4115
4116 PARMS is an optional list of frame parameters which can be used to
4117 change the tooltip's appearance.
4118
4119 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4120 means use the default timeout of 5 seconds.
4121
4122 If the list of frame parameters PARMS contains a `left' parameter,
4123 the tooltip is displayed at that x-position. Otherwise it is
4124 displayed at the mouse position, with offset DX added (default is 5 if
4125 DX isn't specified). Likewise for the y-position; if a `top' frame
4126 parameter is specified, it determines the y-position of the tooltip
4127 window, otherwise it is displayed at the mouse position, with offset
4128 DY added (default is -10).
4129
4130 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4131 Text larger than the specified size is clipped. */)
4132 (string, frame, parms, timeout, dx, dy)
4133 Lisp_Object string, frame, parms, timeout, dx, dy;
4134 {
4135 struct frame *f;
4136 struct window *w;
4137 int root_x, root_y;
4138 struct buffer *old_buffer;
4139 struct text_pos pos;
4140 int i, width, height;
4141 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
4142 int old_windows_or_buffers_changed = windows_or_buffers_changed;
4143 int count = SPECPDL_INDEX ();
4144
4145 specbind (Qinhibit_redisplay, Qt);
4146
4147 GCPRO4 (string, parms, frame, timeout);
4148
4149 CHECK_STRING (string);
4150 f = check_x_frame (frame);
4151 if (NILP (timeout))
4152 timeout = make_number (5);
4153 else
4154 CHECK_NATNUM (timeout);
4155
4156 if (NILP (dx))
4157 dx = make_number (5);
4158 else
4159 CHECK_NUMBER (dx);
4160
4161 if (NILP (dy))
4162 dy = make_number (-10);
4163 else
4164 CHECK_NUMBER (dy);
4165
4166 if (NILP (last_show_tip_args))
4167 last_show_tip_args = Fmake_vector (make_number (3), Qnil);
4168
4169 if (!NILP (tip_frame))
4170 {
4171 Lisp_Object last_string = AREF (last_show_tip_args, 0);
4172 Lisp_Object last_frame = AREF (last_show_tip_args, 1);
4173 Lisp_Object last_parms = AREF (last_show_tip_args, 2);
4174
4175 if (EQ (frame, last_frame)
4176 && !NILP (Fequal (last_string, string))
4177 && !NILP (Fequal (last_parms, parms)))
4178 {
4179 struct frame *f = XFRAME (tip_frame);
4180
4181 /* Only DX and DY have changed. */
4182 if (!NILP (tip_timer))
4183 {
4184 Lisp_Object timer = tip_timer;
4185 tip_timer = Qnil;
4186 call1 (Qcancel_timer, timer);
4187 }
4188
4189 BLOCK_INPUT;
4190 compute_tip_xy (f, parms, dx, dy, FRAME_PIXEL_WIDTH (f),
4191 FRAME_PIXEL_HEIGHT (f), &root_x, &root_y);
4192 MoveWindow (FRAME_MAC_WINDOW (f), root_x, root_y, false);
4193 UNBLOCK_INPUT;
4194 goto start_timer;
4195 }
4196 }
4197
4198 /* Hide a previous tip, if any. */
4199 Fx_hide_tip ();
4200
4201 ASET (last_show_tip_args, 0, string);
4202 ASET (last_show_tip_args, 1, frame);
4203 ASET (last_show_tip_args, 2, parms);
4204
4205 /* Add default values to frame parameters. */
4206 if (NILP (Fassq (Qname, parms)))
4207 parms = Fcons (Fcons (Qname, build_string ("tooltip")), parms);
4208 if (NILP (Fassq (Qinternal_border_width, parms)))
4209 parms = Fcons (Fcons (Qinternal_border_width, make_number (3)), parms);
4210 if (NILP (Fassq (Qborder_width, parms)))
4211 parms = Fcons (Fcons (Qborder_width, make_number (1)), parms);
4212 if (NILP (Fassq (Qborder_color, parms)))
4213 parms = Fcons (Fcons (Qborder_color, build_string ("lightyellow")), parms);
4214 if (NILP (Fassq (Qbackground_color, parms)))
4215 parms = Fcons (Fcons (Qbackground_color, build_string ("lightyellow")),
4216 parms);
4217
4218 /* Create a frame for the tooltip, and record it in the global
4219 variable tip_frame. */
4220 frame = x_create_tip_frame (FRAME_MAC_DISPLAY_INFO (f), parms, string);
4221 f = XFRAME (frame);
4222
4223 /* Set up the frame's root window. */
4224 w = XWINDOW (FRAME_ROOT_WINDOW (f));
4225 w->left_col = w->top_line = make_number (0);
4226
4227 if (CONSP (Vx_max_tooltip_size)
4228 && INTEGERP (XCAR (Vx_max_tooltip_size))
4229 && XINT (XCAR (Vx_max_tooltip_size)) > 0
4230 && INTEGERP (XCDR (Vx_max_tooltip_size))
4231 && XINT (XCDR (Vx_max_tooltip_size)) > 0)
4232 {
4233 w->total_cols = XCAR (Vx_max_tooltip_size);
4234 w->total_lines = XCDR (Vx_max_tooltip_size);
4235 }
4236 else
4237 {
4238 w->total_cols = make_number (80);
4239 w->total_lines = make_number (40);
4240 }
4241
4242 FRAME_TOTAL_COLS (f) = XINT (w->total_cols);
4243 adjust_glyphs (f);
4244 w->pseudo_window_p = 1;
4245
4246 /* Display the tooltip text in a temporary buffer. */
4247 old_buffer = current_buffer;
4248 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f))->buffer));
4249 current_buffer->truncate_lines = Qnil;
4250 clear_glyph_matrix (w->desired_matrix);
4251 clear_glyph_matrix (w->current_matrix);
4252 SET_TEXT_POS (pos, BEGV, BEGV_BYTE);
4253 try_window (FRAME_ROOT_WINDOW (f), pos, 0);
4254
4255 /* Compute width and height of the tooltip. */
4256 width = height = 0;
4257 for (i = 0; i < w->desired_matrix->nrows; ++i)
4258 {
4259 struct glyph_row *row = &w->desired_matrix->rows[i];
4260 struct glyph *last;
4261 int row_width;
4262
4263 /* Stop at the first empty row at the end. */
4264 if (!row->enabled_p || !row->displays_text_p)
4265 break;
4266
4267 /* Let the row go over the full width of the frame. */
4268 row->full_width_p = 1;
4269
4270 /* There's a glyph at the end of rows that is used to place
4271 the cursor there. Don't include the width of this glyph. */
4272 if (row->used[TEXT_AREA])
4273 {
4274 last = &row->glyphs[TEXT_AREA][row->used[TEXT_AREA] - 1];
4275 row_width = row->pixel_width - last->pixel_width;
4276 }
4277 else
4278 row_width = row->pixel_width;
4279
4280 height += row->height;
4281 width = max (width, row_width);
4282 }
4283
4284 /* Add the frame's internal border to the width and height the X
4285 window should have. */
4286 height += 2 * FRAME_INTERNAL_BORDER_WIDTH (f);
4287 width += 2 * FRAME_INTERNAL_BORDER_WIDTH (f);
4288
4289 /* Move the tooltip window where the mouse pointer is. Resize and
4290 show it. */
4291 compute_tip_xy (f, parms, dx, dy, width, height, &root_x, &root_y);
4292
4293 BLOCK_INPUT;
4294 MoveWindow (FRAME_MAC_WINDOW (f), root_x, root_y, false);
4295 SizeWindow (FRAME_MAC_WINDOW (f), width, height, true);
4296 ShowWindow (FRAME_MAC_WINDOW (f));
4297 BringToFront (FRAME_MAC_WINDOW (f));
4298 UNBLOCK_INPUT;
4299
4300 FRAME_PIXEL_WIDTH (f) = width;
4301 FRAME_PIXEL_HEIGHT (f) = height;
4302
4303 /* Draw into the window. */
4304 w->must_be_updated_p = 1;
4305 update_single_window (w, 1);
4306
4307 /* Restore original current buffer. */
4308 set_buffer_internal_1 (old_buffer);
4309 windows_or_buffers_changed = old_windows_or_buffers_changed;
4310
4311 start_timer:
4312 /* Let the tip disappear after timeout seconds. */
4313 tip_timer = call3 (intern ("run-at-time"), timeout, Qnil,
4314 intern ("x-hide-tip"));
4315
4316 UNGCPRO;
4317 return unbind_to (count, Qnil);
4318 }
4319
4320
4321 DEFUN ("x-hide-tip", Fx_hide_tip, Sx_hide_tip, 0, 0, 0,
4322 doc: /* Hide the current tooltip window, if there is any.
4323 Value is t if tooltip was open, nil otherwise. */)
4324 ()
4325 {
4326 int count;
4327 Lisp_Object deleted, frame, timer;
4328 struct gcpro gcpro1, gcpro2;
4329
4330 /* Return quickly if nothing to do. */
4331 if (NILP (tip_timer) && NILP (tip_frame))
4332 return Qnil;
4333
4334 frame = tip_frame;
4335 timer = tip_timer;
4336 GCPRO2 (frame, timer);
4337 tip_frame = tip_timer = deleted = Qnil;
4338
4339 count = SPECPDL_INDEX ();
4340 specbind (Qinhibit_redisplay, Qt);
4341 specbind (Qinhibit_quit, Qt);
4342
4343 if (!NILP (timer))
4344 call1 (Qcancel_timer, timer);
4345
4346 if (FRAMEP (frame))
4347 {
4348 Fdelete_frame (frame, Qnil);
4349 deleted = Qt;
4350 }
4351
4352 UNGCPRO;
4353 return unbind_to (count, deleted);
4354 }
4355
4356
4357 \f
4358 #if TARGET_API_MAC_CARBON
4359 /***********************************************************************
4360 File selection dialog
4361 ***********************************************************************/
4362
4363 static pascal void mac_nav_event_callback P_ ((NavEventCallbackMessage,
4364 NavCBRecPtr, void *));
4365
4366 /**
4367 There is a relatively standard way to do this using applescript to run
4368 a (choose file) method. However, this doesn't do "the right thing"
4369 by working only if the find-file occurred during a menu or toolbar
4370 click. So we must do the file dialog by hand, using the navigation
4371 manager. This also has more flexibility in determining the default
4372 directory and whether or not we are going to choose a file.
4373 **/
4374
4375 extern Lisp_Object Qfile_name_history;
4376
4377 DEFUN ("x-file-dialog", Fx_file_dialog, Sx_file_dialog, 2, 5, 0,
4378 doc: /* Read file name, prompting with PROMPT in directory DIR.
4379 Use a file selection dialog.
4380 Select DEFAULT-FILENAME in the dialog's file selection box, if
4381 specified. Ensure that file exists if MUSTMATCH is non-nil.
4382 If ONLY-DIR-P is non-nil, the user can only select directories. */)
4383 (prompt, dir, default_filename, mustmatch, only_dir_p)
4384 Lisp_Object prompt, dir, default_filename, mustmatch, only_dir_p;
4385 {
4386 Lisp_Object file = Qnil;
4387 int count = SPECPDL_INDEX ();
4388 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6;
4389 char filename[MAXPATHLEN];
4390 static NavEventUPP mac_nav_event_callbackUPP = NULL;
4391
4392 check_mac ();
4393
4394 GCPRO6 (prompt, dir, default_filename, mustmatch, file, only_dir_p);
4395 CHECK_STRING (prompt);
4396 CHECK_STRING (dir);
4397
4398 /* Create the dialog with PROMPT as title, using DIR as initial
4399 directory and using "*" as pattern. */
4400 dir = Fexpand_file_name (dir, Qnil);
4401
4402 {
4403 OSStatus status;
4404 NavDialogCreationOptions options;
4405 NavDialogRef dialogRef;
4406 NavTypeListHandle fileTypes = NULL;
4407 NavUserAction userAction;
4408 CFStringRef message=NULL, saveName = NULL;
4409
4410 BLOCK_INPUT;
4411 /* No need for a callback function because we are modal */
4412 NavGetDefaultDialogCreationOptions(&options);
4413 options.modality = kWindowModalityAppModal;
4414 options.location.h = options.location.v = -1;
4415 options.optionFlags = kNavDefaultNavDlogOptions;
4416 options.optionFlags |= kNavAllFilesInPopup; /* All files allowed */
4417 options.optionFlags |= kNavSelectAllReadableItem;
4418 options.optionFlags &= ~kNavAllowMultipleFiles;
4419 if (!NILP(prompt))
4420 {
4421 message = cfstring_create_with_string (prompt);
4422 options.message = message;
4423 }
4424 /* Don't set the application, let it use default.
4425 options.clientName = CFSTR ("Emacs");
4426 */
4427
4428 if (mac_nav_event_callbackUPP == NULL)
4429 mac_nav_event_callbackUPP = NewNavEventUPP (mac_nav_event_callback);
4430
4431 if (!NILP (only_dir_p))
4432 status = NavCreateChooseFolderDialog(&options, mac_nav_event_callbackUPP,
4433 NULL, NULL, &dialogRef);
4434 else if (NILP (mustmatch))
4435 {
4436 /* This is a save dialog */
4437 options.optionFlags |= kNavDontConfirmReplacement;
4438 options.actionButtonLabel = CFSTR ("Ok");
4439 options.windowTitle = CFSTR ("Enter name");
4440
4441 if (STRINGP (default_filename))
4442 {
4443 Lisp_Object utf8 = ENCODE_UTF_8 (default_filename);
4444 char *begPtr = SDATA(utf8);
4445 char *filePtr = begPtr + SBYTES(utf8);
4446 while (filePtr != begPtr && !IS_DIRECTORY_SEP(filePtr[-1]))
4447 filePtr--;
4448 saveName = cfstring_create_with_utf8_cstring (filePtr);
4449 options.saveFileName = saveName;
4450 options.optionFlags |= kNavSelectDefaultLocation;
4451 }
4452 status = NavCreatePutFileDialog(&options,
4453 'TEXT', kNavGenericSignature,
4454 mac_nav_event_callbackUPP, NULL,
4455 &dialogRef);
4456 }
4457 else
4458 {
4459 /* This is an open dialog*/
4460 status = NavCreateChooseFileDialog(&options, fileTypes,
4461 mac_nav_event_callbackUPP, NULL,
4462 NULL, NULL, &dialogRef);
4463 }
4464
4465 /* Set the default location and continue*/
4466 if (status == noErr)
4467 {
4468 Lisp_Object encoded_dir = ENCODE_FILE (dir);
4469 AEDesc defLocAed;
4470
4471 status = AECreateDesc (TYPE_FILE_NAME, SDATA (encoded_dir),
4472 SBYTES (encoded_dir), &defLocAed);
4473 if (status == noErr)
4474 {
4475 NavCustomControl(dialogRef, kNavCtlSetLocation, (void*) &defLocAed);
4476 AEDisposeDesc(&defLocAed);
4477 }
4478 status = NavDialogRun(dialogRef);
4479 }
4480
4481 if (saveName) CFRelease(saveName);
4482 if (message) CFRelease(message);
4483
4484 if (status == noErr) {
4485 userAction = NavDialogGetUserAction(dialogRef);
4486 switch (userAction)
4487 {
4488 case kNavUserActionNone:
4489 case kNavUserActionCancel:
4490 break; /* Treat cancel like C-g */
4491 case kNavUserActionOpen:
4492 case kNavUserActionChoose:
4493 case kNavUserActionSaveAs:
4494 {
4495 NavReplyRecord reply;
4496 Size len;
4497
4498 status = NavDialogGetReply(dialogRef, &reply);
4499 if (status != noErr)
4500 break;
4501 status = AEGetNthPtr (&reply.selection, 1, TYPE_FILE_NAME,
4502 NULL, NULL, filename,
4503 sizeof (filename) - 1, &len);
4504 if (status == noErr)
4505 {
4506 len = min (len, sizeof (filename) - 1);
4507 filename[len] = '\0';
4508 if (reply.saveFileName)
4509 {
4510 /* If it was a saved file, we need to add the file name */
4511 if (len && len < sizeof (filename) - 1
4512 && filename[len-1] != '/')
4513 filename[len++] = '/';
4514 CFStringGetCString(reply.saveFileName, filename+len,
4515 sizeof (filename) - len,
4516 #ifdef MAC_OSX
4517 kCFStringEncodingUTF8
4518 #else
4519 CFStringGetSystemEncoding ()
4520 #endif
4521 );
4522 }
4523 file = DECODE_FILE (make_unibyte_string (filename,
4524 strlen (filename)));
4525 }
4526 NavDisposeReply(&reply);
4527 }
4528 break;
4529 }
4530 NavDialogDispose(dialogRef);
4531 UNBLOCK_INPUT;
4532 }
4533 else {
4534 UNBLOCK_INPUT;
4535 /* Fall back on minibuffer if there was a problem */
4536 file = Fcompleting_read (prompt, intern ("read-file-name-internal"),
4537 dir, mustmatch, dir, Qfile_name_history,
4538 default_filename, Qnil);
4539 }
4540 }
4541
4542 UNGCPRO;
4543
4544 /* Make "Cancel" equivalent to C-g. */
4545 if (NILP (file))
4546 Fsignal (Qquit, Qnil);
4547
4548 return unbind_to (count, file);
4549 }
4550
4551
4552 /* Need to register some event callback function for enabling drag and
4553 drop in Navigation Service dialogs. */
4554 static pascal void
4555 mac_nav_event_callback (selector, parms, data)
4556 NavEventCallbackMessage selector;
4557 NavCBRecPtr parms;
4558 void *data ;
4559 {
4560 }
4561 #endif
4562 \f
4563 /***********************************************************************
4564 Fonts
4565 ***********************************************************************/
4566
4567 DEFUN ("mac-clear-font-name-table", Fmac_clear_font_name_table,
4568 Smac_clear_font_name_table, 0, 0, 0,
4569 doc: /* Clear the font name table. */)
4570 ()
4571 {
4572 check_mac ();
4573 mac_clear_font_name_table ();
4574 return Qnil;
4575 }
4576
4577 #if USE_MAC_FONT_PANEL
4578 DEFUN ("mac-set-font-panel-visible-p", Fmac_set_font_panel_visible_p,
4579 Smac_set_font_panel_visible_p, 1, 1, 0,
4580 doc: /* Make the font panel visible if and only if FLAG is non-nil.
4581 This is for internal use only. Use `mac-font-panel-mode' instead. */)
4582 (flag)
4583 Lisp_Object flag;
4584 {
4585 OSStatus err = noErr;
4586
4587 check_mac ();
4588
4589 BLOCK_INPUT;
4590 if (NILP (flag) != !mac_font_panel_visible_p ())
4591 {
4592 err = mac_show_hide_font_panel ();
4593 if (err == noErr && !NILP (flag))
4594 {
4595 Lisp_Object focus_frame = x_get_focus_frame (SELECTED_FRAME ());
4596 struct frame *f = (NILP (focus_frame) ? SELECTED_FRAME ()
4597 : XFRAME (focus_frame));
4598
4599 mac_set_font_info_for_selection (f, DEFAULT_FACE_ID, 0);
4600 }
4601 }
4602 UNBLOCK_INPUT;
4603
4604 if (err != noErr)
4605 error ("Cannot change visibility of the font panel");
4606 return Qnil;
4607 }
4608 #endif
4609
4610 #if USE_ATSUI
4611 extern Lisp_Object mac_atsu_font_face_attributes P_ ((ATSUFontID));
4612
4613 DEFUN ("mac-atsu-font-face-attributes", Fmac_atsu_font_face_attributes,
4614 Smac_atsu_font_face_attributes, 1, 1, 0,
4615 doc: /* Return plist of face attributes and values for ATSU font ID.
4616 ID is specified by either an integer or a float. */)
4617 (id)
4618 Lisp_Object id;
4619 {
4620 ATSUFontID font_id;
4621 Lisp_Object result;
4622
4623 check_mac ();
4624 CHECK_NUMBER_OR_FLOAT(id);
4625 font_id = NUMBERP (id) ? XINT (id) : (ATSUFontID) XFLOAT (id);
4626 BLOCK_INPUT;
4627 result = mac_atsu_font_face_attributes (font_id);
4628 UNBLOCK_INPUT;
4629 return result;
4630 }
4631 #endif
4632
4633 \f
4634 /***********************************************************************
4635 Initialization
4636 ***********************************************************************/
4637
4638 /* Keep this list in the same order as frame_parms in frame.c.
4639 Use 0 for unsupported frame parameters. */
4640
4641 frame_parm_handler mac_frame_parm_handlers[] =
4642 {
4643 x_set_autoraise,
4644 x_set_autolower,
4645 x_set_background_color,
4646 x_set_border_color,
4647 x_set_border_width,
4648 x_set_cursor_color,
4649 x_set_cursor_type,
4650 mac_set_font,
4651 x_set_foreground_color,
4652 x_set_icon_name,
4653 0, /* MAC_TODO: x_set_icon_type, */
4654 x_set_internal_border_width,
4655 x_set_menu_bar_lines,
4656 x_set_mouse_color,
4657 x_explicitly_set_name,
4658 x_set_scroll_bar_width,
4659 x_set_title,
4660 x_set_unsplittable,
4661 x_set_vertical_scroll_bars,
4662 x_set_visibility,
4663 x_set_tool_bar_lines,
4664 0, /* MAC_TODO: x_set_scroll_bar_foreground, */
4665 0, /* MAC_TODO: x_set_scroll_bar_background, */
4666 x_set_screen_gamma,
4667 x_set_line_spacing,
4668 x_set_fringe_width,
4669 x_set_fringe_width,
4670 0, /* x_set_wait_for_wm, */
4671 x_set_fullscreen,
4672 };
4673
4674 void
4675 syms_of_macfns ()
4676 {
4677 #ifdef MAC_OSX
4678 /* This is zero if not using Mac native windows. */
4679 mac_in_use = 0;
4680 #else
4681 /* Certainly running on Mac native windows. */
4682 mac_in_use = 1;
4683 #endif
4684
4685 /* The section below is built by the lisp expression at the top of the file,
4686 just above where these variables are declared. */
4687 /*&&& init symbols here &&&*/
4688 Qnone = intern ("none");
4689 staticpro (&Qnone);
4690 Qsuppress_icon = intern ("suppress-icon");
4691 staticpro (&Qsuppress_icon);
4692 Qundefined_color = intern ("undefined-color");
4693 staticpro (&Qundefined_color);
4694 Qcancel_timer = intern ("cancel-timer");
4695 staticpro (&Qcancel_timer);
4696 /* This is the end of symbol initialization. */
4697
4698 /* Text property `display' should be nonsticky by default. */
4699 Vtext_property_default_nonsticky
4700 = Fcons (Fcons (Qdisplay, Qt), Vtext_property_default_nonsticky);
4701
4702
4703 Fput (Qundefined_color, Qerror_conditions,
4704 Fcons (Qundefined_color, Fcons (Qerror, Qnil)));
4705 Fput (Qundefined_color, Qerror_message,
4706 build_string ("Undefined color"));
4707
4708 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape,
4709 doc: /* The shape of the pointer when over text.
4710 Changing the value does not affect existing frames
4711 unless you set the mouse color. */);
4712 Vx_pointer_shape = Qnil;
4713
4714 #if 0 /* This doesn't really do anything. */
4715 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape,
4716 doc: /* The shape of the pointer when not over text.
4717 This variable takes effect when you create a new frame
4718 or when you set the mouse color. */);
4719 #endif
4720 Vx_nontext_pointer_shape = Qnil;
4721
4722 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape,
4723 doc: /* The shape of the pointer when Emacs is busy.
4724 This variable takes effect when you create a new frame
4725 or when you set the mouse color. */);
4726 Vx_hourglass_pointer_shape = Qnil;
4727
4728 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p,
4729 doc: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
4730 display_hourglass_p = 1;
4731
4732 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay,
4733 doc: /* *Seconds to wait before displaying an hourglass pointer.
4734 Value must be an integer or float. */);
4735 Vhourglass_delay = make_number (DEFAULT_HOURGLASS_DELAY);
4736
4737 #if 0 /* This doesn't really do anything. */
4738 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape,
4739 doc: /* The shape of the pointer when over the mode line.
4740 This variable takes effect when you create a new frame
4741 or when you set the mouse color. */);
4742 #endif
4743 Vx_mode_pointer_shape = Qnil;
4744
4745 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
4746 &Vx_sensitive_text_pointer_shape,
4747 doc: /* The shape of the pointer when over mouse-sensitive text.
4748 This variable takes effect when you create a new frame
4749 or when you set the mouse color. */);
4750 Vx_sensitive_text_pointer_shape = Qnil;
4751
4752 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
4753 &Vx_window_horizontal_drag_shape,
4754 doc: /* Pointer shape to use for indicating a window can be dragged horizontally.
4755 This variable takes effect when you create a new frame
4756 or when you set the mouse color. */);
4757 Vx_window_horizontal_drag_shape = Qnil;
4758
4759 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel,
4760 doc: /* A string indicating the foreground color of the cursor box. */);
4761 Vx_cursor_fore_pixel = Qnil;
4762
4763 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size,
4764 doc: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
4765 Text larger than this is clipped. */);
4766 Vx_max_tooltip_size = Fcons (make_number (80), make_number (40));
4767
4768 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager,
4769 doc: /* Non-nil if no window manager is in use.
4770 Emacs doesn't try to figure this out; this is always nil
4771 unless you set it to something else. */);
4772 /* We don't have any way to find this out, so set it to nil
4773 and maybe the user would like to set it to t. */
4774 Vx_no_window_manager = Qnil;
4775
4776 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
4777 &Vx_pixel_size_width_font_regexp,
4778 doc: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
4779
4780 Since Emacs gets width of a font matching with this regexp from
4781 PIXEL_SIZE field of the name, font finding mechanism gets faster for
4782 such a font. This is especially effective for such large fonts as
4783 Chinese, Japanese, and Korean. */);
4784 Vx_pixel_size_width_font_regexp = Qnil;
4785
4786 #if TARGET_API_MAC_CARBON
4787 DEFVAR_LISP ("mac-carbon-version-string", &Vmac_carbon_version_string,
4788 doc: /* Version info for Carbon API. */);
4789 {
4790 OSErr err;
4791 UInt32 response;
4792 char carbon_version[16] = "Unknown";
4793
4794 err = Gestalt (gestaltCarbonVersion, &response);
4795 if (err == noErr)
4796 sprintf (carbon_version, "%u.%u.%u",
4797 (response >> 8) & 0xf, (response >> 4) & 0xf, response & 0xf);
4798 Vmac_carbon_version_string = build_string (carbon_version);
4799 }
4800 #endif /* TARGET_API_MAC_CARBON */
4801
4802 /* X window properties. */
4803 defsubr (&Sx_change_window_property);
4804 defsubr (&Sx_delete_window_property);
4805 defsubr (&Sx_window_property);
4806
4807 defsubr (&Sxw_display_color_p);
4808 defsubr (&Sx_display_grayscale_p);
4809 defsubr (&Sxw_color_defined_p);
4810 defsubr (&Sxw_color_values);
4811 defsubr (&Sx_server_max_request_size);
4812 defsubr (&Sx_server_vendor);
4813 defsubr (&Sx_server_version);
4814 defsubr (&Sx_display_pixel_width);
4815 defsubr (&Sx_display_pixel_height);
4816 defsubr (&Sx_display_mm_width);
4817 defsubr (&Sx_display_mm_height);
4818 defsubr (&Sx_display_screens);
4819 defsubr (&Sx_display_planes);
4820 defsubr (&Sx_display_color_cells);
4821 defsubr (&Sx_display_visual_class);
4822 defsubr (&Sx_display_backing_store);
4823 defsubr (&Sx_display_save_under);
4824 defsubr (&Sx_create_frame);
4825 defsubr (&Sx_open_connection);
4826 defsubr (&Sx_close_connection);
4827 defsubr (&Sx_display_list);
4828 defsubr (&Sx_synchronize);
4829 defsubr (&Sx_focus_frame);
4830
4831 /* Setting callback functions for fontset handler. */
4832 get_font_info_func = x_get_font_info;
4833
4834 #if 0 /* This function pointer doesn't seem to be used anywhere.
4835 And the pointer assigned has the wrong type, anyway. */
4836 list_fonts_func = x_list_fonts;
4837 #endif
4838
4839 load_font_func = x_load_font;
4840 find_ccl_program_func = x_find_ccl_program;
4841 query_font_func = x_query_font;
4842 set_frame_fontset_func = mac_set_font;
4843 check_window_system_func = check_mac;
4844
4845 hourglass_atimer = NULL;
4846 hourglass_shown_p = 0;
4847
4848 defsubr (&Sx_show_tip);
4849 defsubr (&Sx_hide_tip);
4850 tip_timer = Qnil;
4851 staticpro (&tip_timer);
4852 tip_frame = Qnil;
4853 staticpro (&tip_frame);
4854
4855 last_show_tip_args = Qnil;
4856 staticpro (&last_show_tip_args);
4857
4858 #if TARGET_API_MAC_CARBON
4859 defsubr (&Sx_file_dialog);
4860 #endif
4861 defsubr (&Smac_clear_font_name_table);
4862 #if USE_MAC_FONT_PANEL
4863 defsubr (&Smac_set_font_panel_visible_p);
4864 #endif
4865 #if USE_ATSUI
4866 defsubr (&Smac_atsu_font_face_attributes);
4867 #endif
4868 }
4869
4870 /* arch-tag: d7591289-f374-4377-b245-12f5dbbb8edc
4871 (do not change this comment) */