?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
(NUM_RECENT_KEYS): Bump up to 300.
[emacs.git] / src / macfns.c
blob1857950aad751b469518652c5d891c38d3b0000b
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 2, or (at your option)
10 any later version.
11
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to
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 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1861 name; if NAME is a string, set F's name to NAME and set
1862 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1863
1864 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1865 suggesting a new name, which lisp code should override; if
1866 F->explicit_name is set, ignore the new name; otherwise, set it. */
1867
1868 void
1869 x_set_title (f, name, old_name)
1870 struct frame *f;
1871 Lisp_Object name, old_name;
1872 {
1873 /* Don't change the title if it's already NAME. */
1874 if (EQ (name, f->title))
1875 return;
1876
1877 update_mode_lines = 1;
1878
1879 f->title = name;
1880
1881 if (NILP (name))
1882 name = f->name;
1883 else
1884 CHECK_STRING (name);
1885
1886 x_set_name_internal (f, name);
1887 }
1888
1889 void
1890 x_set_scroll_bar_default_width (f)
1891 struct frame *f;
1892 {
1893 /* Imitate X without X Toolkit */
1894
1895 int wid = FRAME_COLUMN_WIDTH (f);
1896
1897 #ifdef MAC_OSX
1898 FRAME_CONFIG_SCROLL_BAR_WIDTH (f) = MAC_AQUA_VERTICAL_SCROLL_BAR_WIDTH;
1899 FRAME_CONFIG_SCROLL_BAR_COLS (f) = (FRAME_CONFIG_SCROLL_BAR_WIDTH (f) +
1900 wid - 1) / wid;
1901 #else /* not MAC_OSX */
1902 /* Make the actual width at least 14 pixels and a multiple of a
1903 character width. */
1904 FRAME_CONFIG_SCROLL_BAR_COLS (f) = (14 + wid - 1) / wid;
1905
1906 /* Use all of that space (aside from required margins) for the
1907 scroll bar. */
1908 FRAME_CONFIG_SCROLL_BAR_WIDTH (f) = 0;
1909 #endif /* not MAC_OSX */
1910 }
1911
1912 static void
1913 mac_set_font (f, arg, oldval)
1914 struct frame *f;
1915 Lisp_Object arg, oldval;
1916 {
1917 x_set_font (f, arg, oldval);
1918 #if USE_MAC_FONT_PANEL
1919 {
1920 Lisp_Object focus_frame = x_get_focus_frame (f);
1921
1922 if ((NILP (focus_frame) && f == SELECTED_FRAME ())
1923 || XFRAME (focus_frame) == f)
1924 {
1925 BLOCK_INPUT;
1926 mac_set_font_info_for_selection (f, DEFAULT_FACE_ID, 0);
1927 UNBLOCK_INPUT;
1928 }
1929 }
1930 #endif
1931 }
1932
1933 #if TARGET_API_MAC_CARBON
1934 static void
1935 mac_update_proxy_icon (f)
1936 struct frame *f;
1937 {
1938 OSStatus err;
1939 Lisp_Object file_name =
1940 XBUFFER (XWINDOW (FRAME_SELECTED_WINDOW (f))->buffer)->filename;
1941 Window w = FRAME_MAC_WINDOW (f);
1942 AliasHandle alias = NULL;
1943
1944 BLOCK_INPUT;
1945
1946 err = GetWindowProxyAlias (w, &alias);
1947 if (err == errWindowDoesNotHaveProxy && !STRINGP (file_name))
1948 goto out;
1949
1950 if (STRINGP (file_name))
1951 {
1952 AEDesc desc;
1953 #ifdef MAC_OSX
1954 FSRef fref, fref_proxy;
1955 #else
1956 FSSpec fss, fss_proxy;
1957 #endif
1958 Boolean changed;
1959 Lisp_Object encoded_file_name = ENCODE_FILE (file_name);
1960
1961 #ifdef MAC_OSX
1962 err = AECoercePtr (TYPE_FILE_NAME, SDATA (encoded_file_name),
1963 SBYTES (encoded_file_name), typeFSRef, &desc);
1964 #else
1965 SetPortWindowPort (w);
1966 err = AECoercePtr (TYPE_FILE_NAME, SDATA (encoded_file_name),
1967 SBYTES (encoded_file_name), typeFSS, &desc);
1968 #endif
1969 if (err == noErr)
1970 {
1971 #ifdef MAC_OSX
1972 err = AEGetDescData (&desc, &fref, sizeof (FSRef));
1973 #else
1974 err = AEGetDescData (&desc, &fss, sizeof (FSSpec));
1975 #endif
1976 AEDisposeDesc (&desc);
1977 }
1978 if (err == noErr)
1979 {
1980 if (alias)
1981 {
1982 /* (FS)ResolveAlias never sets `changed' to true if
1983 `alias' is minimal. */
1984 #ifdef MAC_OSX
1985 err = FSResolveAlias (NULL, alias, &fref_proxy, &changed);
1986 if (err == noErr)
1987 err = FSCompareFSRefs (&fref, &fref_proxy);
1988 #else
1989 err = ResolveAlias (NULL, alias, &fss_proxy, &changed);
1990 if (err == noErr)
1991 err = !(fss.vRefNum == fss_proxy.vRefNum
1992 && fss.parID == fss_proxy.parID
1993 && EqualString (fss.name, fss_proxy.name,
1994 false, true));
1995 #endif
1996 }
1997 if (err != noErr || alias == NULL)
1998 {
1999 if (alias)
2000 DisposeHandle ((Handle) alias);
2001 #ifdef MAC_OSX
2002 err = FSNewAliasMinimal (&fref, &alias);
2003 #else
2004 err = NewAliasMinimal (&fss, &alias);
2005 #endif
2006 changed = true;
2007 }
2008 }
2009 if (err == noErr)
2010 if (changed)
2011 err = SetWindowProxyAlias (w, alias);
2012 }
2013
2014 if (alias)
2015 DisposeHandle ((Handle) alias);
2016
2017 if (err != noErr || !STRINGP (file_name))
2018 RemoveWindowProxy (w);
2019
2020 out:
2021 UNBLOCK_INPUT;
2022 }
2023 #endif
2024
2025 void
2026 mac_update_title_bar (f, save_match_data)
2027 struct frame *f;
2028 int save_match_data;
2029 {
2030 #if TARGET_API_MAC_CARBON
2031 struct window *w;
2032 int modified_p;
2033
2034 if (!FRAME_MAC_P (f))
2035 return;
2036
2037 w = XWINDOW (FRAME_SELECTED_WINDOW (f));
2038 modified_p = (BUF_SAVE_MODIFF (XBUFFER (w->buffer))
2039 < BUF_MODIFF (XBUFFER (w->buffer)));
2040 if (windows_or_buffers_changed
2041 /* Minibuffer modification status shown in the close button is
2042 confusing. */
2043 || (!MINI_WINDOW_P (w)
2044 && (modified_p != !NILP (w->last_had_star))))
2045 {
2046 SetWindowModified (FRAME_MAC_WINDOW (f),
2047 !MINI_WINDOW_P (w) && modified_p);
2048 mac_update_proxy_icon (f);
2049 }
2050 #endif
2051 }
2052
2053 \f
2054 /* Subroutines of creating a frame. */
2055
2056 /* Retrieve the string resource specified by NAME with CLASS from
2057 database RDB.
2058
2059 The return value points to the contents of a Lisp string. So it
2060 will not be valid after the next GC where string compaction will
2061 occur. */
2062
2063 char *
2064 x_get_string_resource (rdb, name, class)
2065 XrmDatabase rdb;
2066 char *name, *class;
2067 {
2068 Lisp_Object value = xrm_get_resource (rdb, name, class);
2069
2070 if (STRINGP (value))
2071 return SDATA (value);
2072 else
2073 return NULL;
2074 }
2075
2076 /* Return the value of parameter PARAM.
2077
2078 First search ALIST, then Vdefault_frame_alist, then the X defaults
2079 database, using ATTRIBUTE as the attribute name and CLASS as its class.
2080
2081 Convert the resource to the type specified by desired_type.
2082
2083 If no default is specified, return Qunbound. If you call
2084 mac_get_arg, make sure you deal with Qunbound in a reasonable way,
2085 and don't let it get stored in any Lisp-visible variables! */
2086
2087 static Lisp_Object
2088 mac_get_arg (alist, param, attribute, class, type)
2089 Lisp_Object alist, param;
2090 char *attribute;
2091 char *class;
2092 enum resource_types type;
2093 {
2094 return x_get_arg (check_x_display_info (Qnil),
2095 alist, param, attribute, class, type);
2096 }
2097
2098 \f
2099 /* XParseGeometry copied from w32xfns.c */
2100
2101 /*
2102 * XParseGeometry parses strings of the form
2103 * "=<width>x<height>{+-}<xoffset>{+-}<yoffset>", where
2104 * width, height, xoffset, and yoffset are unsigned integers.
2105 * Example: "=80x24+300-49"
2106 * The equal sign is optional.
2107 * It returns a bitmask that indicates which of the four values
2108 * were actually found in the string. For each value found,
2109 * the corresponding argument is updated; for each value
2110 * not found, the corresponding argument is left unchanged.
2111 */
2112
2113 static int
2114 read_integer (string, NextString)
2115 register char *string;
2116 char **NextString;
2117 {
2118 register int Result = 0;
2119 int Sign = 1;
2120
2121 if (*string == '+')
2122 string++;
2123 else if (*string == '-')
2124 {
2125 string++;
2126 Sign = -1;
2127 }
2128 for (; (*string >= '0') && (*string <= '9'); string++)
2129 {
2130 Result = (Result * 10) + (*string - '0');
2131 }
2132 *NextString = string;
2133 if (Sign >= 0)
2134 return (Result);
2135 else
2136 return (-Result);
2137 }
2138
2139 int
2140 XParseGeometry (string, x, y, width, height)
2141 char *string;
2142 int *x, *y;
2143 unsigned int *width, *height; /* RETURN */
2144 {
2145 int mask = NoValue;
2146 register char *strind;
2147 unsigned int tempWidth, tempHeight;
2148 int tempX, tempY;
2149 char *nextCharacter;
2150
2151 if ((string == NULL) || (*string == '\0')) return (mask);
2152 if (*string == '=')
2153 string++; /* ignore possible '=' at beg of geometry spec */
2154
2155 strind = (char *)string;
2156 if (*strind != '+' && *strind != '-' && *strind != 'x')
2157 {
2158 tempWidth = read_integer (strind, &nextCharacter);
2159 if (strind == nextCharacter)
2160 return (0);
2161 strind = nextCharacter;
2162 mask |= WidthValue;
2163 }
2164
2165 if (*strind == 'x' || *strind == 'X')
2166 {
2167 strind++;
2168 tempHeight = read_integer (strind, &nextCharacter);
2169 if (strind == nextCharacter)
2170 return (0);
2171 strind = nextCharacter;
2172 mask |= HeightValue;
2173 }
2174
2175 if ((*strind == '+') || (*strind == '-'))
2176 {
2177 if (*strind == '-')
2178 {
2179 strind++;
2180 tempX = -read_integer (strind, &nextCharacter);
2181 if (strind == nextCharacter)
2182 return (0);
2183 strind = nextCharacter;
2184 mask |= XNegative;
2185
2186 }
2187 else
2188 {
2189 strind++;
2190 tempX = read_integer (strind, &nextCharacter);
2191 if (strind == nextCharacter)
2192 return (0);
2193 strind = nextCharacter;
2194 }
2195 mask |= XValue;
2196 if ((*strind == '+') || (*strind == '-'))
2197 {
2198 if (*strind == '-')
2199 {
2200 strind++;
2201 tempY = -read_integer (strind, &nextCharacter);
2202 if (strind == nextCharacter)
2203 return (0);
2204 strind = nextCharacter;
2205 mask |= YNegative;
2206
2207 }
2208 else
2209 {
2210 strind++;
2211 tempY = read_integer (strind, &nextCharacter);
2212 if (strind == nextCharacter)
2213 return (0);
2214 strind = nextCharacter;
2215 }
2216 mask |= YValue;
2217 }
2218 }
2219
2220 /* If strind isn't at the end of the string the it's an invalid
2221 geometry specification. */
2222
2223 if (*strind != '\0') return (0);
2224
2225 if (mask & XValue)
2226 *x = tempX;
2227 if (mask & YValue)
2228 *y = tempY;
2229 if (mask & WidthValue)
2230 *width = tempWidth;
2231 if (mask & HeightValue)
2232 *height = tempHeight;
2233 return (mask);
2234 }
2235
2236 \f
2237 /* Create and set up the Mac window for frame F. */
2238
2239 static void
2240 mac_window (f)
2241 struct frame *f;
2242 {
2243 Rect r;
2244
2245 BLOCK_INPUT;
2246
2247 SetRect (&r, f->left_pos, f->top_pos,
2248 f->left_pos + FRAME_PIXEL_WIDTH (f),
2249 f->top_pos + FRAME_PIXEL_HEIGHT (f));
2250 #if TARGET_API_MAC_CARBON
2251 CreateNewWindow (kDocumentWindowClass,
2252 kWindowStandardDocumentAttributes
2253 #ifdef MAC_OSX
2254 | kWindowToolbarButtonAttribute
2255 #endif
2256 , &r, &FRAME_MAC_WINDOW (f));
2257 if (FRAME_MAC_WINDOW (f))
2258 {
2259 SetWRefCon (FRAME_MAC_WINDOW (f), (long) f->output_data.mac);
2260 if (install_window_handler (FRAME_MAC_WINDOW (f)) != noErr)
2261 {
2262 DisposeWindow (FRAME_MAC_WINDOW (f));
2263 FRAME_MAC_WINDOW (f) = NULL;
2264 }
2265 }
2266 #else
2267 FRAME_MAC_WINDOW (f)
2268 = NewCWindow (NULL, &r, "\p", false, zoomDocProc,
2269 (WindowPtr) -1, 1, (long) f->output_data.mac);
2270 #endif
2271 /* so that update events can find this mac_output struct */
2272 f->output_data.mac->mFP = f; /* point back to emacs frame */
2273
2274 #ifndef MAC_OSX
2275 if (FRAME_MAC_WINDOW (f))
2276 {
2277 ControlRef root_control;
2278
2279 if (CreateRootControl (FRAME_MAC_WINDOW (f), &root_control) != noErr)
2280 {
2281 DisposeWindow (FRAME_MAC_WINDOW (f));
2282 FRAME_MAC_WINDOW (f) = NULL;
2283 }
2284 }
2285 #endif
2286 if (FRAME_MAC_WINDOW (f))
2287 XSetWindowBackground (FRAME_MAC_DISPLAY(f), FRAME_MAC_WINDOW (f),
2288 FRAME_BACKGROUND_PIXEL (f));
2289
2290 validate_x_resource_name ();
2291
2292 /* x_set_name normally ignores requests to set the name if the
2293 requested name is the same as the current name. This is the one
2294 place where that assumption isn't correct; f->name is set, but
2295 the server hasn't been told. */
2296 {
2297 Lisp_Object name;
2298 int explicit = f->explicit_name;
2299
2300 f->explicit_name = 0;
2301 name = f->name;
2302 f->name = Qnil;
2303 x_set_name (f, name, explicit);
2304 }
2305
2306 UNBLOCK_INPUT;
2307
2308 if (FRAME_MAC_WINDOW (f) == 0)
2309 error ("Unable to create window");
2310 }
2311
2312 /* Handle the icon stuff for this window. Perhaps later we might
2313 want an x_set_icon_position which can be called interactively as
2314 well. */
2315
2316 static void
2317 x_icon (f, parms)
2318 struct frame *f;
2319 Lisp_Object parms;
2320 {
2321 Lisp_Object icon_x, icon_y;
2322
2323 /* Set the position of the icon. Note that Windows 95 groups all
2324 icons in the tray. */
2325 icon_x = mac_get_arg (parms, Qicon_left, 0, 0, RES_TYPE_NUMBER);
2326 icon_y = mac_get_arg (parms, Qicon_top, 0, 0, RES_TYPE_NUMBER);
2327 if (!EQ (icon_x, Qunbound) && !EQ (icon_y, Qunbound))
2328 {
2329 CHECK_NUMBER (icon_x);
2330 CHECK_NUMBER (icon_y);
2331 }
2332 else if (!EQ (icon_x, Qunbound) || !EQ (icon_y, Qunbound))
2333 error ("Both left and top icon corners of icon must be specified");
2334
2335 BLOCK_INPUT;
2336
2337 if (! EQ (icon_x, Qunbound))
2338 x_wm_set_icon_position (f, XINT (icon_x), XINT (icon_y));
2339
2340 #if 0 /* TODO */
2341 /* Start up iconic or window? */
2342 x_wm_set_window_state
2343 (f, (EQ (w32_get_arg (parms, Qvisibility, 0, 0, RES_TYPE_SYMBOL), Qicon)
2344 ? IconicState
2345 : NormalState));
2346
2347 x_text_icon (f, (char *) SDATA ((!NILP (f->icon_name)
2348 ? f->icon_name
2349 : f->name)));
2350 #endif
2351
2352 UNBLOCK_INPUT;
2353 }
2354
2355
2356 void
2357 x_make_gc (f)
2358 struct frame *f;
2359 {
2360 XGCValues gc_values;
2361
2362 BLOCK_INPUT;
2363
2364 /* Create the GCs of this frame.
2365 Note that many default values are used. */
2366
2367 /* Normal video */
2368 gc_values.font = FRAME_FONT (f);
2369 gc_values.foreground = FRAME_FOREGROUND_PIXEL (f);
2370 gc_values.background = FRAME_BACKGROUND_PIXEL (f);
2371 f->output_data.mac->normal_gc = XCreateGC (FRAME_MAC_DISPLAY (f),
2372 FRAME_MAC_WINDOW (f),
2373 GCFont | GCForeground | GCBackground,
2374 &gc_values);
2375
2376 /* Reverse video style. */
2377 gc_values.foreground = FRAME_BACKGROUND_PIXEL (f);
2378 gc_values.background = FRAME_FOREGROUND_PIXEL (f);
2379 f->output_data.mac->reverse_gc = XCreateGC (FRAME_MAC_DISPLAY (f),
2380 FRAME_MAC_WINDOW (f),
2381 GCFont | GCForeground | GCBackground,
2382 &gc_values);
2383
2384 /* Cursor has cursor-color background, background-color foreground. */
2385 gc_values.foreground = FRAME_BACKGROUND_PIXEL (f);
2386 gc_values.background = f->output_data.mac->cursor_pixel;
2387 f->output_data.mac->cursor_gc = XCreateGC (FRAME_MAC_DISPLAY (f),
2388 FRAME_MAC_WINDOW (f),
2389 GCFont | GCForeground | GCBackground,
2390 &gc_values);
2391
2392 /* Reliefs. */
2393 f->output_data.mac->white_relief.gc = 0;
2394 f->output_data.mac->black_relief.gc = 0;
2395
2396 #if 0
2397 /* Create the gray border tile used when the pointer is not in
2398 the frame. Since this depends on the frame's pixel values,
2399 this must be done on a per-frame basis. */
2400 f->output_data.x->border_tile
2401 = (XCreatePixmapFromBitmapData
2402 (FRAME_X_DISPLAY (f), FRAME_X_DISPLAY_INFO (f)->root_window,
2403 gray_bits, gray_width, gray_height,
2404 f->output_data.x->foreground_pixel,
2405 f->output_data.x->background_pixel,
2406 DefaultDepth (FRAME_X_DISPLAY (f), FRAME_X_SCREEN_NUMBER (f))));
2407 #endif
2408
2409 UNBLOCK_INPUT;
2410 }
2411
2412
2413 /* Free what was was allocated in x_make_gc. */
2414
2415 void
2416 x_free_gcs (f)
2417 struct frame *f;
2418 {
2419 Display *dpy = FRAME_MAC_DISPLAY (f);
2420
2421 BLOCK_INPUT;
2422
2423 if (f->output_data.mac->normal_gc)
2424 {
2425 XFreeGC (dpy, f->output_data.mac->normal_gc);
2426 f->output_data.mac->normal_gc = 0;
2427 }
2428
2429 if (f->output_data.mac->reverse_gc)
2430 {
2431 XFreeGC (dpy, f->output_data.mac->reverse_gc);
2432 f->output_data.mac->reverse_gc = 0;
2433 }
2434
2435 if (f->output_data.mac->cursor_gc)
2436 {
2437 XFreeGC (dpy, f->output_data.mac->cursor_gc);
2438 f->output_data.mac->cursor_gc = 0;
2439 }
2440
2441 #if 0
2442 if (f->output_data.mac->border_tile)
2443 {
2444 XFreePixmap (dpy, f->output_data.mac->border_tile);
2445 f->output_data.mac->border_tile = 0;
2446 }
2447 #endif
2448
2449 if (f->output_data.mac->white_relief.gc)
2450 {
2451 XFreeGC (dpy, f->output_data.mac->white_relief.gc);
2452 f->output_data.mac->white_relief.gc = 0;
2453 }
2454
2455 if (f->output_data.mac->black_relief.gc)
2456 {
2457 XFreeGC (dpy, f->output_data.mac->black_relief.gc);
2458 f->output_data.mac->black_relief.gc = 0;
2459 }
2460
2461 UNBLOCK_INPUT;
2462 }
2463
2464
2465 /* Handler for signals raised during x_create_frame and
2466 x_create_top_frame. FRAME is the frame which is partially
2467 constructed. */
2468
2469 static Lisp_Object
2470 unwind_create_frame (frame)
2471 Lisp_Object frame;
2472 {
2473 struct frame *f = XFRAME (frame);
2474
2475 /* If frame is ``official'', nothing to do. */
2476 if (!CONSP (Vframe_list) || !EQ (XCAR (Vframe_list), frame))
2477 {
2478 #if GLYPH_DEBUG
2479 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
2480 #endif
2481
2482 x_free_frame_resources (f);
2483
2484 #if GLYPH_DEBUG
2485 /* Check that reference counts are indeed correct. */
2486 xassert (dpyinfo->reference_count == dpyinfo_refcount);
2487 xassert (dpyinfo->image_cache->refcount == image_cache_refcount);
2488 #endif
2489 return Qt;
2490 }
2491
2492 return Qnil;
2493 }
2494
2495
2496 DEFUN ("x-create-frame", Fx_create_frame, Sx_create_frame,
2497 1, 1, 0,
2498 doc: /* Make a new window, which is called a "frame" in Emacs terms.
2499 Returns an Emacs frame object.
2500 ALIST is an alist of frame parameters.
2501 If the parameters specify that the frame should not have a minibuffer,
2502 and do not specify a specific minibuffer window to use,
2503 then `default-minibuffer-frame' must be a frame whose minibuffer can
2504 be shared by the new frame.
2505
2506 This function is an internal primitive--use `make-frame' instead. */)
2507 (parms)
2508 Lisp_Object parms;
2509 {
2510 struct frame *f;
2511 Lisp_Object frame, tem;
2512 Lisp_Object name;
2513 int minibuffer_only = 0;
2514 long window_prompting = 0;
2515 int width, height;
2516 int count = SPECPDL_INDEX ();
2517 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
2518 Lisp_Object display;
2519 struct mac_display_info *dpyinfo = NULL;
2520 Lisp_Object parent;
2521 struct kboard *kb;
2522
2523 check_mac ();
2524
2525 parms = Fcopy_alist (parms);
2526
2527 /* Use this general default value to start with
2528 until we know if this frame has a specified name. */
2529 Vx_resource_name = Vinvocation_name;
2530
2531 display = mac_get_arg (parms, Qdisplay, 0, 0, RES_TYPE_STRING);
2532 if (EQ (display, Qunbound))
2533 display = Qnil;
2534 dpyinfo = check_x_display_info (display);
2535 #ifdef MULTI_KBOARD
2536 kb = dpyinfo->kboard;
2537 #else
2538 kb = &the_only_kboard;
2539 #endif
2540
2541 name = mac_get_arg (parms, Qname, "name", "Name", RES_TYPE_STRING);
2542 if (!STRINGP (name)
2543 && ! EQ (name, Qunbound)
2544 && ! NILP (name))
2545 error ("Invalid frame name--not a string or nil");
2546
2547 if (STRINGP (name))
2548 Vx_resource_name = name;
2549
2550 /* See if parent window is specified. */
2551 parent = mac_get_arg (parms, Qparent_id, NULL, NULL, RES_TYPE_NUMBER);
2552 if (EQ (parent, Qunbound))
2553 parent = Qnil;
2554 if (! NILP (parent))
2555 CHECK_NUMBER (parent);
2556
2557 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
2558 /* No need to protect DISPLAY because that's not used after passing
2559 it to make_frame_without_minibuffer. */
2560 frame = Qnil;
2561 GCPRO4 (parms, parent, name, frame);
2562 tem = mac_get_arg (parms, Qminibuffer, "minibuffer", "Minibuffer",
2563 RES_TYPE_SYMBOL);
2564 if (EQ (tem, Qnone) || NILP (tem))
2565 f = make_frame_without_minibuffer (Qnil, kb, display);
2566 else if (EQ (tem, Qonly))
2567 {
2568 f = make_minibuffer_frame ();
2569 minibuffer_only = 1;
2570 }
2571 else if (WINDOWP (tem))
2572 f = make_frame_without_minibuffer (tem, kb, display);
2573 else
2574 f = make_frame (1);
2575
2576 XSETFRAME (frame, f);
2577
2578 /* Note that X Windows does support scroll bars. */
2579 FRAME_CAN_HAVE_SCROLL_BARS (f) = 1;
2580
2581 f->output_method = output_mac;
2582 f->output_data.mac = (struct mac_output *) xmalloc (sizeof (struct mac_output));
2583 bzero (f->output_data.mac, sizeof (struct mac_output));
2584 FRAME_FONTSET (f) = -1;
2585
2586 f->icon_name
2587 = mac_get_arg (parms, Qicon_name, "iconName", "Title", RES_TYPE_STRING);
2588 if (! STRINGP (f->icon_name))
2589 f->icon_name = Qnil;
2590
2591 /* FRAME_MAC_DISPLAY_INFO (f) = dpyinfo; */
2592
2593 /* With FRAME_MAC_DISPLAY_INFO set up, this unwind-protect is safe. */
2594 record_unwind_protect (unwind_create_frame, frame);
2595 #if GLYPH_DEBUG
2596 image_cache_refcount = FRAME_X_IMAGE_CACHE (f)->refcount;
2597 dpyinfo_refcount = dpyinfo->reference_count;
2598 #endif /* GLYPH_DEBUG */
2599 #ifdef MULTI_KBOARD
2600 FRAME_KBOARD (f) = kb;
2601 #endif
2602
2603 /* Specify the parent under which to make this window. */
2604
2605 if (!NILP (parent))
2606 {
2607 f->output_data.mac->parent_desc = (Window) XFASTINT (parent);
2608 f->output_data.mac->explicit_parent = 1;
2609 }
2610 else
2611 {
2612 f->output_data.mac->parent_desc = FRAME_MAC_DISPLAY_INFO (f)->root_window;
2613 f->output_data.mac->explicit_parent = 0;
2614 }
2615
2616 /* Set the name; the functions to which we pass f expect the name to
2617 be set. */
2618 if (EQ (name, Qunbound) || NILP (name))
2619 {
2620 f->name = build_string (dpyinfo->mac_id_name);
2621 f->explicit_name = 0;
2622 }
2623 else
2624 {
2625 f->name = name;
2626 f->explicit_name = 1;
2627 /* use the frame's title when getting resources for this frame. */
2628 specbind (Qx_resource_name, name);
2629 }
2630
2631 /* Extract the window parameters from the supplied values
2632 that are needed to determine window geometry. */
2633 {
2634 Lisp_Object font;
2635
2636 font = mac_get_arg (parms, Qfont, "font", "Font", RES_TYPE_STRING);
2637
2638 BLOCK_INPUT;
2639 /* First, try whatever font the caller has specified. */
2640 if (STRINGP (font))
2641 {
2642 tem = Fquery_fontset (font, Qnil);
2643 if (STRINGP (tem))
2644 font = x_new_fontset (f, SDATA (tem));
2645 else
2646 font = x_new_font (f, SDATA (font));
2647 }
2648
2649 /* Try out a font which we hope has bold and italic variations. */
2650 #if USE_ATSUI
2651 if (! STRINGP (font))
2652 font = x_new_font (f, "-*-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1");
2653 #endif
2654 if (! STRINGP (font))
2655 font = x_new_font (f, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1");
2656 /* If those didn't work, look for something which will at least work. */
2657 if (! STRINGP (font))
2658 font = x_new_fontset (f, "fontset-standard");
2659 if (! STRINGP (font))
2660 font = x_new_font (f, "-*-monaco-*-12-*-mac-roman");
2661 if (! STRINGP (font))
2662 font = x_new_font (f, "-*-courier-*-10-*-mac-roman");
2663 if (! STRINGP (font))
2664 error ("Cannot find any usable font");
2665 UNBLOCK_INPUT;
2666
2667 x_set_frame_parameters (f, Fcons (Fcons (Qfont, font), Qnil));
2668 }
2669
2670 x_default_parameter (f, parms, Qborder_width, make_number (0),
2671 "borderwidth", "BorderWidth", RES_TYPE_NUMBER);
2672 /* This defaults to 2 in order to match xterm. We recognize either
2673 internalBorderWidth or internalBorder (which is what xterm calls
2674 it). */
2675 if (NILP (Fassq (Qinternal_border_width, parms)))
2676 {
2677 Lisp_Object value;
2678
2679 value = mac_get_arg (parms, Qinternal_border_width,
2680 "internalBorder", "InternalBorder", RES_TYPE_NUMBER);
2681 if (! EQ (value, Qunbound))
2682 parms = Fcons (Fcons (Qinternal_border_width, value),
2683 parms);
2684 }
2685 /* Default internalBorderWidth to 0 on Windows to match other programs. */
2686 x_default_parameter (f, parms, Qinternal_border_width, make_number (0),
2687 "internalBorderWidth", "InternalBorder", RES_TYPE_NUMBER);
2688 x_default_parameter (f, parms, Qvertical_scroll_bars, Qright,
2689 "verticalScrollBars", "ScrollBars", RES_TYPE_SYMBOL);
2690
2691 /* Also do the stuff which must be set before the window exists. */
2692 x_default_parameter (f, parms, Qforeground_color, build_string ("black"),
2693 "foreground", "Foreground", RES_TYPE_STRING);
2694 x_default_parameter (f, parms, Qbackground_color, build_string ("white"),
2695 "background", "Background", RES_TYPE_STRING);
2696 x_default_parameter (f, parms, Qmouse_color, build_string ("black"),
2697 "pointerColor", "Foreground", RES_TYPE_STRING);
2698 x_default_parameter (f, parms, Qcursor_color, build_string ("black"),
2699 "cursorColor", "Foreground", RES_TYPE_STRING);
2700 x_default_parameter (f, parms, Qborder_color, build_string ("black"),
2701 "borderColor", "BorderColor", RES_TYPE_STRING);
2702 x_default_parameter (f, parms, Qscreen_gamma, Qnil,
2703 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT);
2704 x_default_parameter (f, parms, Qline_spacing, Qnil,
2705 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER);
2706 x_default_parameter (f, parms, Qleft_fringe, Qnil,
2707 "leftFringe", "LeftFringe", RES_TYPE_NUMBER);
2708 x_default_parameter (f, parms, Qright_fringe, Qnil,
2709 "rightFringe", "RightFringe", RES_TYPE_NUMBER);
2710
2711
2712 /* Init faces before x_default_parameter is called for scroll-bar
2713 parameters because that function calls x_set_scroll_bar_width,
2714 which calls change_frame_size, which calls Fset_window_buffer,
2715 which runs hooks, which call Fvertical_motion. At the end, we
2716 end up in init_iterator with a null face cache, which should not
2717 happen. */
2718 init_frame_faces (f);
2719
2720 x_default_parameter (f, parms, Qmenu_bar_lines, make_number (1),
2721 "menuBar", "MenuBar", RES_TYPE_NUMBER);
2722 x_default_parameter (f, parms, Qtool_bar_lines, make_number (1),
2723 "toolBar", "ToolBar", RES_TYPE_NUMBER);
2724 x_default_parameter (f, parms, Qbuffer_predicate, Qnil,
2725 "bufferPredicate", "BufferPredicate",
2726 RES_TYPE_SYMBOL);
2727 x_default_parameter (f, parms, Qtitle, Qnil,
2728 "title", "Title", RES_TYPE_STRING);
2729 x_default_parameter (f, parms, Qfullscreen, Qnil,
2730 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL);
2731
2732 f->output_data.mac->parent_desc = FRAME_MAC_DISPLAY_INFO (f)->root_window;
2733
2734 /* Compute the size of the window. */
2735 window_prompting = x_figure_window_size (f, parms, 1);
2736
2737 tem = mac_get_arg (parms, Qunsplittable, 0, 0, RES_TYPE_BOOLEAN);
2738 f->no_split = minibuffer_only || EQ (tem, Qt);
2739
2740 mac_window (f);
2741
2742 x_icon (f, parms);
2743 x_make_gc (f);
2744
2745 /* Now consider the frame official. */
2746 FRAME_MAC_DISPLAY_INFO (f)->reference_count++;
2747 Vframe_list = Fcons (frame, Vframe_list);
2748
2749 /* We need to do this after creating the window, so that the
2750 icon-creation functions can say whose icon they're describing. */
2751 x_default_parameter (f, parms, Qicon_type, Qnil,
2752 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL);
2753
2754 x_default_parameter (f, parms, Qauto_raise, Qnil,
2755 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN);
2756 x_default_parameter (f, parms, Qauto_lower, Qnil,
2757 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN);
2758 x_default_parameter (f, parms, Qcursor_type, Qbox,
2759 "cursorType", "CursorType", RES_TYPE_SYMBOL);
2760 x_default_parameter (f, parms, Qscroll_bar_width, Qnil,
2761 "scrollBarWidth", "ScrollBarWidth",
2762 RES_TYPE_NUMBER);
2763
2764 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
2765 Change will not be effected unless different from the current
2766 FRAME_LINES (f). */
2767 width = FRAME_COLS (f);
2768 height = FRAME_LINES (f);
2769
2770 SET_FRAME_COLS (f, 0);
2771 FRAME_LINES (f) = 0;
2772 change_frame_size (f, height, width, 1, 0, 0);
2773
2774 /* Tell the server what size and position, etc, we want, and how
2775 badly we want them. This should be done after we have the menu
2776 bar so that its size can be taken into account. */
2777 BLOCK_INPUT;
2778 x_wm_set_size_hint (f, window_prompting, 0);
2779 UNBLOCK_INPUT;
2780
2781 /* Make the window appear on the frame and enable display, unless
2782 the caller says not to. However, with explicit parent, Emacs
2783 cannot control visibility, so don't try. */
2784 if (! f->output_data.mac->explicit_parent)
2785 {
2786 Lisp_Object visibility;
2787
2788 visibility = mac_get_arg (parms, Qvisibility, 0, 0, RES_TYPE_SYMBOL);
2789 if (EQ (visibility, Qunbound))
2790 visibility = Qt;
2791
2792 if (EQ (visibility, Qicon))
2793 x_iconify_frame (f);
2794 else if (! NILP (visibility))
2795 x_make_frame_visible (f);
2796 else
2797 /* Must have been Qnil. */
2798 ;
2799 }
2800
2801 /* Initialize `default-minibuffer-frame' in case this is the first
2802 frame on this display device. */
2803 if (FRAME_HAS_MINIBUF_P (f)
2804 && (!FRAMEP (kb->Vdefault_minibuffer_frame)
2805 || !FRAME_LIVE_P (XFRAME (kb->Vdefault_minibuffer_frame))))
2806 kb->Vdefault_minibuffer_frame = frame;
2807
2808 /* All remaining specified parameters, which have not been "used"
2809 by x_get_arg and friends, now go in the misc. alist of the frame. */
2810 for (tem = parms; !NILP (tem); tem = XCDR (tem))
2811 if (CONSP (XCAR (tem)) && !NILP (XCAR (XCAR (tem))))
2812 f->param_alist = Fcons (XCAR (tem), f->param_alist);
2813
2814 UNGCPRO;
2815
2816 /* Make sure windows on this frame appear in calls to next-window
2817 and similar functions. */
2818 Vwindow_list = Qnil;
2819
2820 return unbind_to (count, frame);
2821 }
2822
2823
2824 /* FRAME is used only to get a handle on the X display. We don't pass the
2825 display info directly because we're called from frame.c, which doesn't
2826 know about that structure. */
2827
2828 Lisp_Object
2829 x_get_focus_frame (frame)
2830 struct frame *frame;
2831 {
2832 struct mac_display_info *dpyinfo = FRAME_MAC_DISPLAY_INFO (frame);
2833 Lisp_Object xfocus;
2834 if (! dpyinfo->x_focus_frame)
2835 return Qnil;
2836
2837 XSETFRAME (xfocus, dpyinfo->x_focus_frame);
2838 return xfocus;
2839 }
2840
2841
2842 DEFUN ("x-focus-frame", Fx_focus_frame, Sx_focus_frame, 1, 1, 0,
2843 doc: /* Set the input focus to FRAME.
2844 FRAME nil means use the selected frame. */)
2845 (frame)
2846 Lisp_Object frame;
2847 {
2848 OSErr err;
2849 ProcessSerialNumber front_psn;
2850 static const ProcessSerialNumber current_psn = {0, kCurrentProcess};
2851 Boolean front_p;
2852 struct frame *f = check_x_frame (frame);
2853
2854 BLOCK_INPUT;
2855 /* Move the current process to the foreground if it is not. Don't
2856 call SetFrontProcess if the current process is already running in
2857 the foreground so as not to change the z-order of windows. */
2858 err = GetFrontProcess (&front_psn);
2859 if (err == noErr)
2860 err = SameProcess (&front_psn, &current_psn, &front_p);
2861 if (err == noErr)
2862 if (!front_p)
2863 {
2864 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
2865 if (FrontNonFloatingWindow () == FRAME_MAC_WINDOW (f))
2866 SetFrontProcessWithOptions (&current_psn,
2867 kSetFrontProcessFrontWindowOnly);
2868 else
2869 #endif
2870 SetFrontProcess (&current_psn);
2871 }
2872
2873 #ifdef MAC_OSX
2874 ActivateWindow (ActiveNonFloatingWindow (), false);
2875 ActivateWindow (FRAME_MAC_WINDOW (f), true);
2876 #else
2877 #if !TARGET_API_MAC_CARBON
2878 /* SelectWindow (Non-Carbon) does not issue deactivate events if the
2879 possibly inactive window that is to be selected is already the
2880 frontmost one. */
2881 SendBehind (FRAME_MAC_WINDOW (f), NULL);
2882 #endif
2883 /* This brings the window to the front. */
2884 SelectWindow (FRAME_MAC_WINDOW (f));
2885 #endif
2886 UNBLOCK_INPUT;
2887
2888 return Qnil;
2889 }
2890
2891 \f
2892 DEFUN ("xw-color-defined-p", Fxw_color_defined_p, Sxw_color_defined_p, 1, 2, 0,
2893 doc: /* Internal function called by `color-defined-p', which see. */)
2894 (color, frame)
2895 Lisp_Object color, frame;
2896 {
2897 XColor foo;
2898 FRAME_PTR f = check_x_frame (frame);
2899
2900 CHECK_STRING (color);
2901
2902 if (mac_defined_color (f, SDATA (color), &foo, 0))
2903 return Qt;
2904 else
2905 return Qnil;
2906 }
2907
2908 DEFUN ("xw-color-values", Fxw_color_values, Sxw_color_values, 1, 2, 0,
2909 doc: /* Internal function called by `color-values', which see. */)
2910 (color, frame)
2911 Lisp_Object color, frame;
2912 {
2913 XColor foo;
2914 FRAME_PTR f = check_x_frame (frame);
2915
2916 CHECK_STRING (color);
2917
2918 if (mac_defined_color (f, SDATA (color), &foo, 0))
2919 return list3 (make_number (foo.red),
2920 make_number (foo.green),
2921 make_number (foo.blue));
2922 else
2923 return Qnil;
2924 }
2925
2926 DEFUN ("xw-display-color-p", Fxw_display_color_p, Sxw_display_color_p, 0, 1, 0,
2927 doc: /* Internal function called by `display-color-p', which see. */)
2928 (display)
2929 Lisp_Object display;
2930 {
2931 struct mac_display_info *dpyinfo = check_x_display_info (display);
2932
2933 if (!dpyinfo->color_p)
2934 return Qnil;
2935
2936 return Qt;
2937 }
2938
2939 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p, Sx_display_grayscale_p,
2940 0, 1, 0,
2941 doc: /* Return t if DISPLAY supports shades of gray.
2942 Note that color displays do support shades of gray.
2943 The optional argument DISPLAY specifies which display to ask about.
2944 DISPLAY should be either a frame or a display name (a string).
2945 If omitted or nil, that stands for the selected frame's display. */)
2946 (display)
2947 Lisp_Object display;
2948 {
2949 struct mac_display_info *dpyinfo = check_x_display_info (display);
2950
2951 if (dpyinfo->n_planes <= 1)
2952 return Qnil;
2953
2954 return Qt;
2955 }
2956
2957 DEFUN ("x-display-pixel-width", Fx_display_pixel_width, Sx_display_pixel_width,
2958 0, 1, 0,
2959 doc: /* Returns the width in pixels of DISPLAY.
2960 The optional argument DISPLAY specifies which display to ask about.
2961 DISPLAY should be either a frame or a display name (a string).
2962 If omitted or nil, that stands for the selected frame's display. */)
2963 (display)
2964 Lisp_Object display;
2965 {
2966 struct mac_display_info *dpyinfo = check_x_display_info (display);
2967
2968 return make_number (dpyinfo->width);
2969 }
2970
2971 DEFUN ("x-display-pixel-height", Fx_display_pixel_height,
2972 Sx_display_pixel_height, 0, 1, 0,
2973 doc: /* Returns the height in pixels of DISPLAY.
2974 The optional argument DISPLAY specifies which display to ask about.
2975 DISPLAY should be either a frame or a display name (a string).
2976 If omitted or nil, that stands for the selected frame's display. */)
2977 (display)
2978 Lisp_Object display;
2979 {
2980 struct mac_display_info *dpyinfo = check_x_display_info (display);
2981
2982 return make_number (dpyinfo->height);
2983 }
2984
2985 DEFUN ("x-display-planes", Fx_display_planes, Sx_display_planes,
2986 0, 1, 0,
2987 doc: /* Returns the number of bitplanes of DISPLAY.
2988 The optional argument DISPLAY specifies which display to ask about.
2989 DISPLAY should be either a frame or a display name (a string).
2990 If omitted or nil, that stands for the selected frame's display. */)
2991 (display)
2992 Lisp_Object display;
2993 {
2994 struct mac_display_info *dpyinfo = check_x_display_info (display);
2995
2996 return make_number (dpyinfo->n_planes);
2997 }
2998
2999 DEFUN ("x-display-color-cells", Fx_display_color_cells, Sx_display_color_cells,
3000 0, 1, 0,
3001 doc: /* Returns the number of color cells of DISPLAY.
3002 The optional argument DISPLAY specifies which display to ask about.
3003 DISPLAY should be either a frame or a display name (a string).
3004 If omitted or nil, that stands for the selected frame's display. */)
3005 (display)
3006 Lisp_Object display;
3007 {
3008 struct mac_display_info *dpyinfo = check_x_display_info (display);
3009
3010 /* We force 24+ bit depths to 24-bit to prevent an overflow. */
3011 return make_number (1 << min (dpyinfo->n_planes, 24));
3012 }
3013
3014 DEFUN ("x-server-max-request-size", Fx_server_max_request_size,
3015 Sx_server_max_request_size,
3016 0, 1, 0,
3017 doc: /* Returns the maximum request size of the server of DISPLAY.
3018 The optional argument DISPLAY specifies which display to ask about.
3019 DISPLAY should be either a frame or a display name (a string).
3020 If omitted or nil, that stands for the selected frame's display. */)
3021 (display)
3022 Lisp_Object display;
3023 {
3024 struct mac_display_info *dpyinfo = check_x_display_info (display);
3025
3026 return make_number (1);
3027 }
3028
3029 DEFUN ("x-server-vendor", Fx_server_vendor, Sx_server_vendor, 0, 1, 0,
3030 doc: /* Returns the "vendor ID" string of the Mac OS system (Apple).
3031 The optional argument DISPLAY specifies which display to ask about.
3032 DISPLAY should be either a frame or a display name (a string).
3033 If omitted or nil, that stands for the selected frame's display. */)
3034 (display)
3035 Lisp_Object display;
3036 {
3037 return build_string ("Apple Inc.");
3038 }
3039
3040 DEFUN ("x-server-version", Fx_server_version, Sx_server_version, 0, 1, 0,
3041 doc: /* Returns the version numbers of the Mac OS system.
3042 The value is a list of three integers: the major and minor
3043 version numbers, and the vendor-specific release
3044 number. See also the function `x-server-vendor'.
3045
3046 The optional argument DISPLAY specifies which display to ask about.
3047 DISPLAY should be either a frame or a display name (a string).
3048 If omitted or nil, that stands for the selected frame's display. */)
3049 (display)
3050 Lisp_Object display;
3051 {
3052 UInt32 response, major, minor, bugfix;
3053 OSErr err;
3054
3055 BLOCK_INPUT;
3056 err = Gestalt (gestaltSystemVersion, &response);
3057 if (err == noErr)
3058 {
3059 if (response >= 0x00001040)
3060 {
3061 err = Gestalt (gestaltSystemVersionMajor, &major);
3062 if (err == noErr)
3063 err = Gestalt (gestaltSystemVersionMinor, &minor);
3064 if (err == noErr)
3065 err = Gestalt (gestaltSystemVersionBugFix, &bugfix);
3066 }
3067 else
3068 {
3069 bugfix = response & 0xf;
3070 response >>= 4;
3071 minor = response & 0xf;
3072 response >>= 4;
3073 /* convert BCD to int */
3074 major = response - (response >> 4) * 6;
3075 }
3076 }
3077 UNBLOCK_INPUT;
3078
3079 if (err != noErr)
3080 error ("Cannot get Mac OS version");
3081
3082 return Fcons (make_number (major),
3083 Fcons (make_number (minor),
3084 Fcons (make_number (bugfix),
3085 Qnil)));
3086 }
3087
3088 DEFUN ("x-display-screens", Fx_display_screens, Sx_display_screens, 0, 1, 0,
3089 doc: /* Return the number of screens on the server of DISPLAY.
3090 The optional argument DISPLAY specifies which display to ask about.
3091 DISPLAY should be either a frame or a display name (a string).
3092 If omitted or nil, that stands for the selected frame's display. */)
3093 (display)
3094 Lisp_Object display;
3095 {
3096 return make_number (1);
3097 }
3098
3099 DEFUN ("x-display-mm-height", Fx_display_mm_height, Sx_display_mm_height, 0, 1, 0,
3100 doc: /* Return the height in millimeters of DISPLAY.
3101 The optional argument DISPLAY specifies which display to ask about.
3102 DISPLAY should be either a frame or a display name (a string).
3103 If omitted or nil, that stands for the selected frame's display. */)
3104 (display)
3105 Lisp_Object display;
3106 {
3107 struct mac_display_info *dpyinfo = check_x_display_info (display);
3108
3109 /* Only of the main display. */
3110 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
3111 #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3112 if (CGDisplayScreenSize != NULL)
3113 #endif
3114 {
3115 CGSize size;
3116
3117 BLOCK_INPUT;
3118 size = CGDisplayScreenSize (kCGDirectMainDisplay);
3119 UNBLOCK_INPUT;
3120
3121 return make_number ((int) (size.height + .5f));
3122 }
3123 #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3124 else
3125 #endif
3126 #endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 */
3127 #if MAC_OS_X_VERSION_MAX_ALLOWED < 1030 || MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3128 {
3129 /* This is an approximation. */
3130 return make_number ((int) (dpyinfo->height * 25.4 / dpyinfo->resy));
3131 }
3132 #endif
3133 }
3134
3135 DEFUN ("x-display-mm-width", Fx_display_mm_width, Sx_display_mm_width, 0, 1, 0,
3136 doc: /* Return the width in millimeters of DISPLAY.
3137 The optional argument DISPLAY specifies which display to ask about.
3138 DISPLAY should be either a frame or a display name (a string).
3139 If omitted or nil, that stands for the selected frame's display. */)
3140 (display)
3141 Lisp_Object display;
3142 {
3143 struct mac_display_info *dpyinfo = check_x_display_info (display);
3144
3145 /* Only of the main display. */
3146 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
3147 #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3148 if (CGDisplayScreenSize != NULL)
3149 #endif
3150 {
3151 CGSize size;
3152
3153 BLOCK_INPUT;
3154 size = CGDisplayScreenSize (kCGDirectMainDisplay);
3155 UNBLOCK_INPUT;
3156
3157 return make_number ((int) (size.width + .5f));
3158 }
3159 #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3160 else
3161 #endif
3162 #endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 */
3163 #if MAC_OS_X_VERSION_MAX_ALLOWED < 1030 || MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3164 {
3165 /* This is an approximation. */
3166 return make_number ((int) (dpyinfo->width * 25.4 / dpyinfo->resx));
3167 }
3168 #endif
3169 }
3170
3171 DEFUN ("x-display-backing-store", Fx_display_backing_store,
3172 Sx_display_backing_store, 0, 1, 0,
3173 doc: /* Returns an indication of whether DISPLAY does backing store.
3174 The value may be `always', `when-mapped', or `not-useful'.
3175 The optional argument DISPLAY specifies which display to ask about.
3176 DISPLAY should be either a frame or a display name (a string).
3177 If omitted or nil, that stands for the selected frame's display. */)
3178 (display)
3179 Lisp_Object display;
3180 {
3181 return intern ("not-useful");
3182 }
3183
3184 DEFUN ("x-display-visual-class", Fx_display_visual_class,
3185 Sx_display_visual_class, 0, 1, 0,
3186 doc: /* Returns the visual class of DISPLAY.
3187 The value is one of the symbols `static-gray', `gray-scale',
3188 `static-color', `pseudo-color', `true-color', or `direct-color'.
3189
3190 The optional argument DISPLAY specifies which display to ask about.
3191 DISPLAY should be either a frame or a display name (a string).
3192 If omitted or nil, that stands for the selected frame's display. */)
3193 (display)
3194 Lisp_Object display;
3195 {
3196 struct mac_display_info *dpyinfo = check_x_display_info (display);
3197
3198 #if 0
3199 switch (dpyinfo->visual->class)
3200 {
3201 case StaticGray: return (intern ("static-gray"));
3202 case GrayScale: return (intern ("gray-scale"));
3203 case StaticColor: return (intern ("static-color"));
3204 case PseudoColor: return (intern ("pseudo-color"));
3205 case TrueColor: return (intern ("true-color"));
3206 case DirectColor: return (intern ("direct-color"));
3207 default:
3208 error ("Display has an unknown visual class");
3209 }
3210 #endif /* 0 */
3211
3212 return (intern ("true-color"));
3213 }
3214
3215 DEFUN ("x-display-save-under", Fx_display_save_under,
3216 Sx_display_save_under, 0, 1, 0,
3217 doc: /* Returns t if DISPLAY supports the save-under feature.
3218 The optional argument DISPLAY specifies which display to ask about.
3219 DISPLAY should be either a frame or a display name (a string).
3220 If omitted or nil, that stands for the selected frame's display. */)
3221 (display)
3222 Lisp_Object display;
3223 {
3224 return Qnil;
3225 }
3226 \f
3227 int
3228 x_pixel_width (f)
3229 register struct frame *f;
3230 {
3231 return FRAME_PIXEL_WIDTH (f);
3232 }
3233
3234 int
3235 x_pixel_height (f)
3236 register struct frame *f;
3237 {
3238 return FRAME_PIXEL_HEIGHT (f);
3239 }
3240
3241 int
3242 x_char_width (f)
3243 register struct frame *f;
3244 {
3245 return FRAME_COLUMN_WIDTH (f);
3246 }
3247
3248 int
3249 x_char_height (f)
3250 register struct frame *f;
3251 {
3252 return FRAME_LINE_HEIGHT (f);
3253 }
3254
3255 int
3256 x_screen_planes (f)
3257 register struct frame *f;
3258 {
3259 return FRAME_MAC_DISPLAY_INFO (f)->n_planes;
3260 }
3261 \f
3262 /* Return the display structure for the display named NAME.
3263 Open a new connection if necessary. */
3264
3265 struct mac_display_info *
3266 x_display_info_for_name (name)
3267 Lisp_Object name;
3268 {
3269 Lisp_Object names;
3270 struct mac_display_info *dpyinfo;
3271
3272 CHECK_STRING (name);
3273
3274 if (! EQ (Vwindow_system, intern ("mac")))
3275 error ("Not using Mac native windows");
3276
3277 for (dpyinfo = &one_mac_display_info, names = x_display_name_list;
3278 dpyinfo;
3279 dpyinfo = dpyinfo->next, names = XCDR (names))
3280 {
3281 Lisp_Object tem;
3282 tem = Fstring_equal (XCAR (XCAR (names)), name);
3283 if (!NILP (tem))
3284 return dpyinfo;
3285 }
3286
3287 /* Use this general default value to start with. */
3288 Vx_resource_name = Vinvocation_name;
3289
3290 validate_x_resource_name ();
3291
3292 dpyinfo = mac_term_init (name, (unsigned char *) 0,
3293 (char *) SDATA (Vx_resource_name));
3294
3295 if (dpyinfo == 0)
3296 error ("Cannot connect to server %s", SDATA (name));
3297
3298 mac_in_use = 1;
3299 XSETFASTINT (Vwindow_system_version, 3);
3300
3301 return dpyinfo;
3302 }
3303
3304 DEFUN ("x-open-connection", Fx_open_connection, Sx_open_connection,
3305 1, 3, 0,
3306 doc: /* Open a connection to a server.
3307 DISPLAY is the name of the display to connect to.
3308 Optional second arg XRM-STRING is a string of resources in xrdb format.
3309 If the optional third arg MUST-SUCCEED is non-nil,
3310 terminate Emacs if we can't open the connection. */)
3311 (display, xrm_string, must_succeed)
3312 Lisp_Object display, xrm_string, must_succeed;
3313 {
3314 unsigned char *xrm_option;
3315 struct mac_display_info *dpyinfo;
3316
3317 CHECK_STRING (display);
3318 if (! NILP (xrm_string))
3319 CHECK_STRING (xrm_string);
3320
3321 if (! EQ (Vwindow_system, intern ("mac")))
3322 error ("Not using Mac native windows");
3323
3324 if (! NILP (xrm_string))
3325 xrm_option = (unsigned char *) SDATA (xrm_string);
3326 else
3327 xrm_option = (unsigned char *) 0;
3328
3329 validate_x_resource_name ();
3330
3331 /* This is what opens the connection and sets x_current_display.
3332 This also initializes many symbols, such as those used for input. */
3333 dpyinfo = mac_term_init (display, xrm_option,
3334 (char *) SDATA (Vx_resource_name));
3335
3336 if (dpyinfo == 0)
3337 {
3338 if (!NILP (must_succeed))
3339 fatal ("Cannot connect to server %s.\n",
3340 SDATA (display));
3341 else
3342 error ("Cannot connect to server %s", SDATA (display));
3343 }
3344
3345 mac_in_use = 1;
3346
3347 XSETFASTINT (Vwindow_system_version, 3);
3348 return Qnil;
3349 }
3350
3351 DEFUN ("x-close-connection", Fx_close_connection,
3352 Sx_close_connection, 1, 1, 0,
3353 doc: /* Close the connection to DISPLAY's server.
3354 For DISPLAY, specify either a frame or a display name (a string).
3355 If DISPLAY is nil, that stands for the selected frame's display. */)
3356 (display)
3357 Lisp_Object display;
3358 {
3359 struct mac_display_info *dpyinfo = check_x_display_info (display);
3360 int i;
3361
3362 if (dpyinfo->reference_count > 0)
3363 error ("Display still has frames on it");
3364
3365 BLOCK_INPUT;
3366 /* Free the fonts in the font table. */
3367 for (i = 0; i < dpyinfo->n_fonts; i++)
3368 if (dpyinfo->font_table[i].name)
3369 {
3370 mac_unload_font (dpyinfo, dpyinfo->font_table[i].font);
3371 }
3372
3373 x_destroy_all_bitmaps (dpyinfo);
3374
3375 x_delete_display (dpyinfo);
3376 UNBLOCK_INPUT;
3377
3378 return Qnil;
3379 }
3380
3381 DEFUN ("x-display-list", Fx_display_list, Sx_display_list, 0, 0, 0,
3382 doc: /* Return the list of display names that Emacs has connections to. */)
3383 ()
3384 {
3385 Lisp_Object tail, result;
3386
3387 result = Qnil;
3388 for (tail = x_display_name_list; ! NILP (tail); tail = XCDR (tail))
3389 result = Fcons (XCAR (XCAR (tail)), result);
3390
3391 return result;
3392 }
3393
3394 DEFUN ("x-synchronize", Fx_synchronize, Sx_synchronize, 1, 2, 0,
3395 doc: /* This is a noop on Mac OS systems. */)
3396 (on, display)
3397 Lisp_Object display, on;
3398 {
3399 return Qnil;
3400 }
3401
3402 /* x_sync is a no-op on Mac. */
3403
3404 void
3405 x_sync (f)
3406 FRAME_PTR f;
3407 {
3408 }
3409
3410 \f
3411 /***********************************************************************
3412 Window properties
3413 ***********************************************************************/
3414
3415 DEFUN ("x-change-window-property", Fx_change_window_property,
3416 Sx_change_window_property, 2, 6, 0,
3417 doc: /* Change window property PROP to VALUE on the X window of FRAME.
3418 VALUE may be a string or a list of conses, numbers and/or strings.
3419 If an element in the list is a string, it is converted to
3420 an Atom and the value of the Atom is used. If an element is a cons,
3421 it is converted to a 32 bit number where the car is the 16 top bits and the
3422 cdr is the lower 16 bits.
3423 FRAME nil or omitted means use the selected frame.
3424 If TYPE is given and non-nil, it is the name of the type of VALUE.
3425 If TYPE is not given or nil, the type is STRING.
3426 FORMAT gives the size in bits of each element if VALUE is a list.
3427 It must be one of 8, 16 or 32.
3428 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
3429 If OUTER_P is non-nil, the property is changed for the outer X window of
3430 FRAME. Default is to change on the edit X window.
3431
3432 Value is VALUE. */)
3433 (prop, value, frame, type, format, outer_p)
3434 Lisp_Object prop, value, frame, type, format, outer_p;
3435 {
3436 #if 0 /* MAC_TODO : port window properties to Mac */
3437 struct frame *f = check_x_frame (frame);
3438 Atom prop_atom;
3439
3440 CHECK_STRING (prop);
3441 CHECK_STRING (value);
3442
3443 BLOCK_INPUT;
3444 prop_atom = XInternAtom (FRAME_W32_DISPLAY (f), SDATA (prop), False);
3445 XChangeProperty (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f),
3446 prop_atom, XA_STRING, 8, PropModeReplace,
3447 SDATA (value), SCHARS (value));
3448
3449 /* Make sure the property is set when we return. */
3450 XFlush (FRAME_W32_DISPLAY (f));
3451 UNBLOCK_INPUT;
3452
3453 #endif /* MAC_TODO */
3454
3455 return value;
3456 }
3457
3458
3459 DEFUN ("x-delete-window-property", Fx_delete_window_property,
3460 Sx_delete_window_property, 1, 2, 0,
3461 doc: /* Remove window property PROP from X window of FRAME.
3462 FRAME nil or omitted means use the selected frame. Value is PROP. */)
3463 (prop, frame)
3464 Lisp_Object prop, frame;
3465 {
3466 #if 0 /* MAC_TODO : port window properties to Mac */
3467
3468 struct frame *f = check_x_frame (frame);
3469 Atom prop_atom;
3470
3471 CHECK_STRING (prop);
3472 BLOCK_INPUT;
3473 prop_atom = XInternAtom (FRAME_W32_DISPLAY (f), SDATA (prop), False);
3474 XDeleteProperty (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f), prop_atom);
3475
3476 /* Make sure the property is removed when we return. */
3477 XFlush (FRAME_W32_DISPLAY (f));
3478 UNBLOCK_INPUT;
3479 #endif /* MAC_TODO */
3480
3481 return prop;
3482 }
3483
3484
3485 DEFUN ("x-window-property", Fx_window_property, Sx_window_property,
3486 1, 2, 0,
3487 doc: /* Value is the value of window property PROP on FRAME.
3488 If FRAME is nil or omitted, use the selected frame. Value is nil
3489 if FRAME hasn't a property with name PROP or if PROP has no string
3490 value. */)
3491 (prop, frame)
3492 Lisp_Object prop, frame;
3493 {
3494 #if 0 /* MAC_TODO : port window properties to Mac */
3495
3496 struct frame *f = check_x_frame (frame);
3497 Atom prop_atom;
3498 int rc;
3499 Lisp_Object prop_value = Qnil;
3500 char *tmp_data = NULL;
3501 Atom actual_type;
3502 int actual_format;
3503 unsigned long actual_size, bytes_remaining;
3504
3505 CHECK_STRING (prop);
3506 BLOCK_INPUT;
3507 prop_atom = XInternAtom (FRAME_W32_DISPLAY (f), SDATA (prop), False);
3508 rc = XGetWindowProperty (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f),
3509 prop_atom, 0, 0, False, XA_STRING,
3510 &actual_type, &actual_format, &actual_size,
3511 &bytes_remaining, (unsigned char **) &tmp_data);
3512 if (rc == Success)
3513 {
3514 int size = bytes_remaining;
3515
3516 XFree (tmp_data);
3517 tmp_data = NULL;
3518
3519 rc = XGetWindowProperty (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f),
3520 prop_atom, 0, bytes_remaining,
3521 False, XA_STRING,
3522 &actual_type, &actual_format,
3523 &actual_size, &bytes_remaining,
3524 (unsigned char **) &tmp_data);
3525 if (rc == Success)
3526 prop_value = make_string (tmp_data, size);
3527
3528 XFree (tmp_data);
3529 }
3530
3531 UNBLOCK_INPUT;
3532
3533 return prop_value;
3534
3535 #endif /* MAC_TODO */
3536 return Qnil;
3537 }
3538
3539
3540 \f
3541 /***********************************************************************
3542 Busy cursor
3543 ***********************************************************************/
3544
3545 /* If non-null, an asynchronous timer that, when it expires, displays
3546 an hourglass cursor on all frames. */
3547
3548 static struct atimer *hourglass_atimer;
3549
3550 /* Non-zero means an hourglass cursor is currently shown. */
3551
3552 static int hourglass_shown_p;
3553
3554 /* Number of seconds to wait before displaying an hourglass cursor. */
3555
3556 static Lisp_Object Vhourglass_delay;
3557
3558 /* Default number of seconds to wait before displaying an hourglass
3559 cursor. */
3560
3561 #define DEFAULT_HOURGLASS_DELAY 1
3562
3563 /* Function prototypes. */
3564
3565 static void show_hourglass P_ ((struct atimer *));
3566 static void hide_hourglass P_ ((void));
3567
3568 /* Return non-zero if houglass timer has been started or hourglass is shown. */
3569
3570 int
3571 hourglass_started ()
3572 {
3573 return hourglass_shown_p || hourglass_atimer != NULL;
3574 }
3575
3576
3577 /* Cancel a currently active hourglass timer, and start a new one. */
3578
3579 void
3580 start_hourglass ()
3581 {
3582 #ifdef MAC_OSX
3583 EMACS_TIME delay;
3584 int secs, usecs = 0;
3585
3586 /* Don't bother for ttys. */
3587 if (NILP (Vwindow_system))
3588 return;
3589
3590 cancel_hourglass ();
3591
3592 if (INTEGERP (Vhourglass_delay)
3593 && XINT (Vhourglass_delay) > 0)
3594 secs = XFASTINT (Vhourglass_delay);
3595 else if (FLOATP (Vhourglass_delay)
3596 && XFLOAT_DATA (Vhourglass_delay) > 0)
3597 {
3598 Lisp_Object tem;
3599 tem = Ftruncate (Vhourglass_delay, Qnil);
3600 secs = XFASTINT (tem);
3601 usecs = (XFLOAT_DATA (Vhourglass_delay) - secs) * 1000000;
3602 }
3603 else
3604 secs = DEFAULT_HOURGLASS_DELAY;
3605
3606 EMACS_SET_SECS_USECS (delay, secs, usecs);
3607 hourglass_atimer = start_atimer (ATIMER_RELATIVE, delay,
3608 show_hourglass, NULL);
3609 #endif /* MAC_OSX */
3610 }
3611
3612
3613 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
3614 shown. */
3615
3616 void
3617 cancel_hourglass ()
3618 {
3619 #ifdef MAC_OSX
3620 if (hourglass_atimer)
3621 {
3622 cancel_atimer (hourglass_atimer);
3623 hourglass_atimer = NULL;
3624 }
3625
3626 if (hourglass_shown_p)
3627 hide_hourglass ();
3628 #endif /* MAC_OSX */
3629 }
3630
3631
3632 /* Timer function of hourglass_atimer. TIMER is equal to
3633 hourglass_atimer.
3634
3635 On Mac, busy status is shown by the progress indicator (chasing
3636 arrows) at the upper-right corner of each frame instead of the
3637 hourglass pointer. */
3638
3639 static void
3640 show_hourglass (timer)
3641 struct atimer *timer;
3642 {
3643 #if TARGET_API_MAC_CARBON
3644 /* The timer implementation will cancel this timer automatically
3645 after this function has run. Set hourglass_atimer to null
3646 so that we know the timer doesn't have to be canceled. */
3647 hourglass_atimer = NULL;
3648
3649 if (!hourglass_shown_p)
3650 {
3651 Lisp_Object rest, frame;
3652
3653 BLOCK_INPUT;
3654
3655 FOR_EACH_FRAME (rest, frame)
3656 {
3657 struct frame *f = XFRAME (frame);
3658
3659 if (FRAME_LIVE_P (f) && FRAME_MAC_P (f)
3660 && FRAME_MAC_WINDOW (f) != tip_window)
3661 {
3662 #if USE_CG_DRAWING
3663 mac_prepare_for_quickdraw (f);
3664 #endif
3665 if (!f->output_data.mac->hourglass_control)
3666 {
3667 Window w = FRAME_MAC_WINDOW (f);
3668 Rect r;
3669 ControlRef c;
3670
3671 GetWindowPortBounds (w, &r);
3672 r.left = r.right - HOURGLASS_WIDTH;
3673 r.bottom = r.top + HOURGLASS_HEIGHT;
3674 if (CreateChasingArrowsControl (w, &r, &c) == noErr)
3675 f->output_data.mac->hourglass_control = c;
3676 }
3677
3678 if (f->output_data.mac->hourglass_control)
3679 ShowControl (f->output_data.mac->hourglass_control);
3680 }
3681 }
3682
3683 hourglass_shown_p = 1;
3684 UNBLOCK_INPUT;
3685 }
3686 #endif /* TARGET_API_MAC_CARBON */
3687 }
3688
3689
3690 /* Hide the progress indicators on all frames, if it is currently
3691 shown. */
3692
3693 static void
3694 hide_hourglass ()
3695 {
3696 #if TARGET_API_MAC_CARBON
3697 if (hourglass_shown_p)
3698 {
3699 Lisp_Object rest, frame;
3700
3701 BLOCK_INPUT;
3702 FOR_EACH_FRAME (rest, frame)
3703 {
3704 struct frame *f = XFRAME (frame);
3705
3706 if (FRAME_MAC_P (f)
3707 /* Watch out for newly created frames. */
3708 && f->output_data.mac->hourglass_control)
3709 {
3710 #if USE_CG_DRAWING
3711 mac_prepare_for_quickdraw (f);
3712 #endif
3713 HideControl (f->output_data.mac->hourglass_control);
3714 }
3715 }
3716
3717 hourglass_shown_p = 0;
3718 UNBLOCK_INPUT;
3719 }
3720 #endif /* TARGET_API_MAC_CARBON */
3721 }
3722
3723
3724 \f
3725 /***********************************************************************
3726 Tool tips
3727 ***********************************************************************/
3728
3729 static Lisp_Object x_create_tip_frame P_ ((struct mac_display_info *,
3730 Lisp_Object, Lisp_Object));
3731 static void compute_tip_xy P_ ((struct frame *, Lisp_Object, Lisp_Object,
3732 Lisp_Object, int, int, int *, int *));
3733
3734 /* The frame of a currently visible tooltip. */
3735
3736 Lisp_Object tip_frame;
3737
3738 /* If non-nil, a timer started that hides the last tooltip when it
3739 fires. */
3740
3741 Lisp_Object tip_timer;
3742 Window tip_window;
3743
3744 /* If non-nil, a vector of 3 elements containing the last args
3745 with which x-show-tip was called. See there. */
3746
3747 Lisp_Object last_show_tip_args;
3748
3749 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
3750
3751 Lisp_Object Vx_max_tooltip_size;
3752
3753
3754 static Lisp_Object
3755 unwind_create_tip_frame (frame)
3756 Lisp_Object frame;
3757 {
3758 Lisp_Object deleted;
3759
3760 deleted = unwind_create_frame (frame);
3761 if (EQ (deleted, Qt))
3762 {
3763 tip_window = NULL;
3764 tip_frame = Qnil;
3765 }
3766
3767 return deleted;
3768 }
3769
3770
3771 /* Create a frame for a tooltip on the display described by DPYINFO.
3772 PARMS is a list of frame parameters. TEXT is the string to
3773 display in the tip frame. Value is the frame.
3774
3775 Note that functions called here, esp. x_default_parameter can
3776 signal errors, for instance when a specified color name is
3777 undefined. We have to make sure that we're in a consistent state
3778 when this happens. */
3779
3780 static Lisp_Object
3781 x_create_tip_frame (dpyinfo, parms, text)
3782 struct mac_display_info *dpyinfo;
3783 Lisp_Object parms, text;
3784 {
3785 struct frame *f;
3786 Lisp_Object frame, tem;
3787 Lisp_Object name;
3788 long window_prompting = 0;
3789 int width, height;
3790 int count = SPECPDL_INDEX ();
3791 struct gcpro gcpro1, gcpro2, gcpro3;
3792 struct kboard *kb;
3793 int face_change_count_before = face_change_count;
3794 Lisp_Object buffer;
3795 struct buffer *old_buffer;
3796
3797 check_mac ();
3798
3799 parms = Fcopy_alist (parms);
3800
3801 #ifdef MULTI_KBOARD
3802 kb = dpyinfo->kboard;
3803 #else
3804 kb = &the_only_kboard;
3805 #endif
3806
3807 /* Get the name of the frame to use for resource lookup. */
3808 name = mac_get_arg (parms, Qname, "name", "Name", RES_TYPE_STRING);
3809 if (!STRINGP (name)
3810 && !EQ (name, Qunbound)
3811 && !NILP (name))
3812 error ("Invalid frame name--not a string or nil");
3813
3814 frame = Qnil;
3815 GCPRO3 (parms, name, frame);
3816 f = make_frame (1);
3817 XSETFRAME (frame, f);
3818
3819 buffer = Fget_buffer_create (build_string (" *tip*"));
3820 Fset_window_buffer (FRAME_ROOT_WINDOW (f), buffer, Qnil);
3821 old_buffer = current_buffer;
3822 set_buffer_internal_1 (XBUFFER (buffer));
3823 current_buffer->truncate_lines = Qnil;
3824 specbind (Qinhibit_read_only, Qt);
3825 specbind (Qinhibit_modification_hooks, Qt);
3826 Ferase_buffer ();
3827 Finsert (1, &text);
3828 set_buffer_internal_1 (old_buffer);
3829
3830 FRAME_CAN_HAVE_SCROLL_BARS (f) = 0;
3831 record_unwind_protect (unwind_create_tip_frame, frame);
3832
3833 /* By setting the output method, we're essentially saying that
3834 the frame is live, as per FRAME_LIVE_P. If we get a signal
3835 from this point on, x_destroy_window might screw up reference
3836 counts etc. */
3837 f->output_method = output_mac;
3838 f->output_data.mac =
3839 (struct mac_output *) xmalloc (sizeof (struct mac_output));
3840 bzero (f->output_data.mac, sizeof (struct mac_output));
3841
3842 FRAME_FONTSET (f) = -1;
3843 f->icon_name = Qnil;
3844 /* FRAME_X_DISPLAY_INFO (f) = dpyinfo; */
3845 #if GLYPH_DEBUG
3846 image_cache_refcount = FRAME_X_IMAGE_CACHE (f)->refcount;
3847 dpyinfo_refcount = dpyinfo->reference_count;
3848 #endif /* GLYPH_DEBUG */
3849 #ifdef MULTI_KBOARD
3850 FRAME_KBOARD (f) = kb;
3851 #endif
3852 f->output_data.mac->parent_desc = FRAME_MAC_DISPLAY_INFO (f)->root_window;
3853 f->output_data.mac->explicit_parent = 0;
3854
3855 /* Set the name; the functions to which we pass f expect the name to
3856 be set. */
3857 if (EQ (name, Qunbound) || NILP (name))
3858 {
3859 f->name = build_string (dpyinfo->mac_id_name);
3860 f->explicit_name = 0;
3861 }
3862 else
3863 {
3864 f->name = name;
3865 f->explicit_name = 1;
3866 /* use the frame's title when getting resources for this frame. */
3867 specbind (Qx_resource_name, name);
3868 }
3869
3870 /* Extract the window parameters from the supplied values that are
3871 needed to determine window geometry. */
3872 {
3873 Lisp_Object font;
3874
3875 font = mac_get_arg (parms, Qfont, "font", "Font", RES_TYPE_STRING);
3876
3877 BLOCK_INPUT;
3878 /* First, try whatever font the caller has specified. */
3879 if (STRINGP (font))
3880 {
3881 tem = Fquery_fontset (font, Qnil);
3882 if (STRINGP (tem))
3883 font = x_new_fontset (f, SDATA (tem));
3884 else
3885 font = x_new_font (f, SDATA (font));
3886 }
3887
3888 /* Try out a font which we hope has bold and italic variations. */
3889 #if USE_ATSUI
3890 if (! STRINGP (font))
3891 font = x_new_font (f, "-*-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1");
3892 #endif
3893 if (! STRINGP (font))
3894 font = x_new_font (f, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1");
3895 /* If those didn't work, look for something which will at least work. */
3896 if (! STRINGP (font))
3897 font = x_new_fontset (f, "fontset-standard");
3898 if (! STRINGP (font))
3899 font = x_new_font (f, "-*-monaco-*-12-*-mac-roman");
3900 if (! STRINGP (font))
3901 font = x_new_font (f, "-*-courier-*-10-*-mac-roman");
3902 UNBLOCK_INPUT;
3903 if (! STRINGP (font))
3904 error ("Cannot find any usable font");
3905
3906 x_default_parameter (f, parms, Qfont, font,
3907 "font", "Font", RES_TYPE_STRING);
3908 }
3909
3910 x_default_parameter (f, parms, Qborder_width, make_number (2),
3911 "borderWidth", "BorderWidth", RES_TYPE_NUMBER);
3912
3913 /* This defaults to 2 in order to match xterm. We recognize either
3914 internalBorderWidth or internalBorder (which is what xterm calls
3915 it). */
3916 if (NILP (Fassq (Qinternal_border_width, parms)))
3917 {
3918 Lisp_Object value;
3919
3920 value = mac_get_arg (parms, Qinternal_border_width,
3921 "internalBorder", "internalBorder", RES_TYPE_NUMBER);
3922 if (! EQ (value, Qunbound))
3923 parms = Fcons (Fcons (Qinternal_border_width, value),
3924 parms);
3925 }
3926
3927 x_default_parameter (f, parms, Qinternal_border_width, make_number (1),
3928 "internalBorderWidth", "internalBorderWidth",
3929 RES_TYPE_NUMBER);
3930
3931 /* Also do the stuff which must be set before the window exists. */
3932 x_default_parameter (f, parms, Qforeground_color, build_string ("black"),
3933 "foreground", "Foreground", RES_TYPE_STRING);
3934 x_default_parameter (f, parms, Qbackground_color, build_string ("white"),
3935 "background", "Background", RES_TYPE_STRING);
3936 x_default_parameter (f, parms, Qmouse_color, build_string ("black"),
3937 "pointerColor", "Foreground", RES_TYPE_STRING);
3938 x_default_parameter (f, parms, Qcursor_color, build_string ("black"),
3939 "cursorColor", "Foreground", RES_TYPE_STRING);
3940 x_default_parameter (f, parms, Qborder_color, build_string ("black"),
3941 "borderColor", "BorderColor", RES_TYPE_STRING);
3942
3943 /* Init faces before x_default_parameter is called for scroll-bar
3944 parameters because that function calls x_set_scroll_bar_width,
3945 which calls change_frame_size, which calls Fset_window_buffer,
3946 which runs hooks, which call Fvertical_motion. At the end, we
3947 end up in init_iterator with a null face cache, which should not
3948 happen. */
3949 init_frame_faces (f);
3950
3951 f->output_data.mac->parent_desc = FRAME_MAC_DISPLAY_INFO (f)->root_window;
3952
3953 window_prompting = x_figure_window_size (f, parms, 0);
3954
3955 {
3956 Rect r;
3957
3958 BLOCK_INPUT;
3959 SetRect (&r, 0, 0, 1, 1);
3960 #if TARGET_API_MAC_CARBON
3961 if (CreateNewWindow (kHelpWindowClass,
3962 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
3963 kWindowIgnoreClicksAttribute |
3964 #endif
3965 kWindowNoUpdatesAttribute |
3966 kWindowNoActivatesAttribute,
3967 &r, &tip_window) == noErr)
3968 #else
3969 if (tip_window = NewCWindow (NULL, &r, "\p", false, plainDBox,
3970 NULL, false, 0L))
3971 #endif
3972 {
3973 FRAME_MAC_WINDOW (f) = tip_window;
3974 XSetWindowBackground (FRAME_MAC_DISPLAY(f), tip_window,
3975 FRAME_BACKGROUND_PIXEL (f));
3976 SetWRefCon (tip_window, (long) f->output_data.mac);
3977 /* so that update events can find this mac_output struct */
3978 f->output_data.mac->mFP = f;
3979 }
3980 UNBLOCK_INPUT;
3981 }
3982
3983 x_make_gc (f);
3984
3985 x_default_parameter (f, parms, Qauto_raise, Qnil,
3986 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN);
3987 x_default_parameter (f, parms, Qauto_lower, Qnil,
3988 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN);
3989 x_default_parameter (f, parms, Qcursor_type, Qbox,
3990 "cursorType", "CursorType", RES_TYPE_SYMBOL);
3991
3992 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3993 Change will not be effected unless different from the current
3994 FRAME_LINES (f). */
3995 width = FRAME_COLS (f);
3996 height = FRAME_LINES (f);
3997 SET_FRAME_COLS (f, 0);
3998 FRAME_LINES (f) = 0;
3999 change_frame_size (f, height, width, 1, 0, 0);
4000
4001 /* Add `tooltip' frame parameter's default value. */
4002 if (NILP (Fframe_parameter (frame, intern ("tooltip"))))
4003 Fmodify_frame_parameters (frame, Fcons (Fcons (intern ("tooltip"), Qt),
4004 Qnil));
4005
4006 /* Set up faces after all frame parameters are known. This call
4007 also merges in face attributes specified for new frames.
4008
4009 Frame parameters may be changed if .Xdefaults contains
4010 specifications for the default font. For example, if there is an
4011 `Emacs.default.attributeBackground: pink', the `background-color'
4012 attribute of the frame get's set, which let's the internal border
4013 of the tooltip frame appear in pink. Prevent this. */
4014 {
4015 Lisp_Object bg = Fframe_parameter (frame, Qbackground_color);
4016
4017 /* Set tip_frame here, so that */
4018 tip_frame = frame;
4019 call1 (Qface_set_after_frame_default, frame);
4020
4021 if (!EQ (bg, Fframe_parameter (frame, Qbackground_color)))
4022 Fmodify_frame_parameters (frame, Fcons (Fcons (Qbackground_color, bg),
4023 Qnil));
4024 }
4025
4026 f->no_split = 1;
4027
4028 UNGCPRO;
4029
4030 /* It is now ok to make the frame official even if we get an error
4031 below. And the frame needs to be on Vframe_list or making it
4032 visible won't work. */
4033 Vframe_list = Fcons (frame, Vframe_list);
4034
4035 /* Now that the frame is official, it counts as a reference to
4036 its display. */
4037 FRAME_MAC_DISPLAY_INFO (f)->reference_count++;
4038
4039 /* Setting attributes of faces of the tooltip frame from resources
4040 and similar will increment face_change_count, which leads to the
4041 clearing of all current matrices. Since this isn't necessary
4042 here, avoid it by resetting face_change_count to the value it
4043 had before we created the tip frame. */
4044 face_change_count = face_change_count_before;
4045
4046 /* Discard the unwind_protect. */
4047 return unbind_to (count, frame);
4048 }
4049
4050
4051 /* Compute where to display tip frame F. PARMS is the list of frame
4052 parameters for F. DX and DY are specified offsets from the current
4053 location of the mouse. WIDTH and HEIGHT are the width and height
4054 of the tooltip. Return coordinates relative to the root window of
4055 the display in *ROOT_X, and *ROOT_Y. */
4056
4057 static void
4058 compute_tip_xy (f, parms, dx, dy, width, height, root_x, root_y)
4059 struct frame *f;
4060 Lisp_Object parms, dx, dy;
4061 int width, height;
4062 int *root_x, *root_y;
4063 {
4064 Lisp_Object left, top;
4065
4066 /* User-specified position? */
4067 left = Fcdr (Fassq (Qleft, parms));
4068 top = Fcdr (Fassq (Qtop, parms));
4069
4070 /* Move the tooltip window where the mouse pointer is. Resize and
4071 show it. */
4072 if (!INTEGERP (left) || !INTEGERP (top))
4073 {
4074 Point mouse_pos;
4075
4076 BLOCK_INPUT;
4077 GetMouse (&mouse_pos);
4078 LocalToGlobal (&mouse_pos);
4079 *root_x = mouse_pos.h;
4080 *root_y = mouse_pos.v;
4081 UNBLOCK_INPUT;
4082 }
4083
4084 if (INTEGERP (top))
4085 *root_y = XINT (top);
4086 else if (*root_y + XINT (dy) <= 0)
4087 *root_y = 0; /* Can happen for negative dy */
4088 else if (*root_y + XINT (dy) + height <= FRAME_MAC_DISPLAY_INFO (f)->height)
4089 /* It fits below the pointer */
4090 *root_y += XINT (dy);
4091 else if (height + XINT (dy) <= *root_y)
4092 /* It fits above the pointer. */
4093 *root_y -= height + XINT (dy);
4094 else
4095 /* Put it on the top. */
4096 *root_y = 0;
4097
4098 if (INTEGERP (left))
4099 *root_x = XINT (left);
4100 else if (*root_x + XINT (dx) <= 0)
4101 *root_x = 0; /* Can happen for negative dx */
4102 else if (*root_x + XINT (dx) + width <= FRAME_MAC_DISPLAY_INFO (f)->width)
4103 /* It fits to the right of the pointer. */
4104 *root_x += XINT (dx);
4105 else if (width + XINT (dx) <= *root_x)
4106 /* It fits to the left of the pointer. */
4107 *root_x -= width + XINT (dx);
4108 else
4109 /* Put it left-justified on the screen -- it ought to fit that way. */
4110 *root_x = 0;
4111 }
4112
4113
4114 DEFUN ("x-show-tip", Fx_show_tip, Sx_show_tip, 1, 6, 0,
4115 doc: /* Show STRING in a "tooltip" window on frame FRAME.
4116 A tooltip window is a small window displaying a string.
4117
4118 FRAME nil or omitted means use the selected frame.
4119
4120 PARMS is an optional list of frame parameters which can be used to
4121 change the tooltip's appearance.
4122
4123 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4124 means use the default timeout of 5 seconds.
4125
4126 If the list of frame parameters PARMS contains a `left' parameter,
4127 the tooltip is displayed at that x-position. Otherwise it is
4128 displayed at the mouse position, with offset DX added (default is 5 if
4129 DX isn't specified). Likewise for the y-position; if a `top' frame
4130 parameter is specified, it determines the y-position of the tooltip
4131 window, otherwise it is displayed at the mouse position, with offset
4132 DY added (default is -10).
4133
4134 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4135 Text larger than the specified size is clipped. */)
4136 (string, frame, parms, timeout, dx, dy)
4137 Lisp_Object string, frame, parms, timeout, dx, dy;
4138 {
4139 struct frame *f;
4140 struct window *w;
4141 int root_x, root_y;
4142 struct buffer *old_buffer;
4143 struct text_pos pos;
4144 int i, width, height;
4145 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
4146 int old_windows_or_buffers_changed = windows_or_buffers_changed;
4147 int count = SPECPDL_INDEX ();
4148
4149 specbind (Qinhibit_redisplay, Qt);
4150
4151 GCPRO4 (string, parms, frame, timeout);
4152
4153 CHECK_STRING (string);
4154 f = check_x_frame (frame);
4155 if (NILP (timeout))
4156 timeout = make_number (5);
4157 else
4158 CHECK_NATNUM (timeout);
4159
4160 if (NILP (dx))
4161 dx = make_number (5);
4162 else
4163 CHECK_NUMBER (dx);
4164
4165 if (NILP (dy))
4166 dy = make_number (-10);
4167 else
4168 CHECK_NUMBER (dy);
4169
4170 if (NILP (last_show_tip_args))
4171 last_show_tip_args = Fmake_vector (make_number (3), Qnil);
4172
4173 if (!NILP (tip_frame))
4174 {
4175 Lisp_Object last_string = AREF (last_show_tip_args, 0);
4176 Lisp_Object last_frame = AREF (last_show_tip_args, 1);
4177 Lisp_Object last_parms = AREF (last_show_tip_args, 2);
4178
4179 if (EQ (frame, last_frame)
4180 && !NILP (Fequal (last_string, string))
4181 && !NILP (Fequal (last_parms, parms)))
4182 {
4183 struct frame *f = XFRAME (tip_frame);
4184
4185 /* Only DX and DY have changed. */
4186 if (!NILP (tip_timer))
4187 {
4188 Lisp_Object timer = tip_timer;
4189 tip_timer = Qnil;
4190 call1 (Qcancel_timer, timer);
4191 }
4192
4193 BLOCK_INPUT;
4194 compute_tip_xy (f, parms, dx, dy, FRAME_PIXEL_WIDTH (f),
4195 FRAME_PIXEL_HEIGHT (f), &root_x, &root_y);
4196 MoveWindow (FRAME_MAC_WINDOW (f), root_x, root_y, false);
4197 UNBLOCK_INPUT;
4198 goto start_timer;
4199 }
4200 }
4201
4202 /* Hide a previous tip, if any. */
4203 Fx_hide_tip ();
4204
4205 ASET (last_show_tip_args, 0, string);
4206 ASET (last_show_tip_args, 1, frame);
4207 ASET (last_show_tip_args, 2, parms);
4208
4209 /* Add default values to frame parameters. */
4210 if (NILP (Fassq (Qname, parms)))
4211 parms = Fcons (Fcons (Qname, build_string ("tooltip")), parms);
4212 if (NILP (Fassq (Qinternal_border_width, parms)))
4213 parms = Fcons (Fcons (Qinternal_border_width, make_number (3)), parms);
4214 if (NILP (Fassq (Qborder_width, parms)))
4215 parms = Fcons (Fcons (Qborder_width, make_number (1)), parms);
4216 if (NILP (Fassq (Qborder_color, parms)))
4217 parms = Fcons (Fcons (Qborder_color, build_string ("lightyellow")), parms);
4218 if (NILP (Fassq (Qbackground_color, parms)))
4219 parms = Fcons (Fcons (Qbackground_color, build_string ("lightyellow")),
4220 parms);
4221
4222 /* Create a frame for the tooltip, and record it in the global
4223 variable tip_frame. */
4224 frame = x_create_tip_frame (FRAME_MAC_DISPLAY_INFO (f), parms, string);
4225 f = XFRAME (frame);
4226
4227 /* Set up the frame's root window. */
4228 w = XWINDOW (FRAME_ROOT_WINDOW (f));
4229 w->left_col = w->top_line = make_number (0);
4230
4231 if (CONSP (Vx_max_tooltip_size)
4232 && INTEGERP (XCAR (Vx_max_tooltip_size))
4233 && XINT (XCAR (Vx_max_tooltip_size)) > 0
4234 && INTEGERP (XCDR (Vx_max_tooltip_size))
4235 && XINT (XCDR (Vx_max_tooltip_size)) > 0)
4236 {
4237 w->total_cols = XCAR (Vx_max_tooltip_size);
4238 w->total_lines = XCDR (Vx_max_tooltip_size);
4239 }
4240 else
4241 {
4242 w->total_cols = make_number (80);
4243 w->total_lines = make_number (40);
4244 }
4245
4246 FRAME_TOTAL_COLS (f) = XINT (w->total_cols);
4247 adjust_glyphs (f);
4248 w->pseudo_window_p = 1;
4249
4250 /* Display the tooltip text in a temporary buffer. */
4251 old_buffer = current_buffer;
4252 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f))->buffer));
4253 current_buffer->truncate_lines = Qnil;
4254 clear_glyph_matrix (w->desired_matrix);
4255 clear_glyph_matrix (w->current_matrix);
4256 SET_TEXT_POS (pos, BEGV, BEGV_BYTE);
4257 try_window (FRAME_ROOT_WINDOW (f), pos, 0);
4258
4259 /* Compute width and height of the tooltip. */
4260 width = height = 0;
4261 for (i = 0; i < w->desired_matrix->nrows; ++i)
4262 {
4263 struct glyph_row *row = &w->desired_matrix->rows[i];
4264 struct glyph *last;
4265 int row_width;
4266
4267 /* Stop at the first empty row at the end. */
4268 if (!row->enabled_p || !row->displays_text_p)
4269 break;
4270
4271 /* Let the row go over the full width of the frame. */
4272 row->full_width_p = 1;
4273
4274 /* There's a glyph at the end of rows that is used to place
4275 the cursor there. Don't include the width of this glyph. */
4276 if (row->used[TEXT_AREA])
4277 {
4278 last = &row->glyphs[TEXT_AREA][row->used[TEXT_AREA] - 1];
4279 row_width = row->pixel_width - last->pixel_width;
4280 }
4281 else
4282 row_width = row->pixel_width;
4283
4284 height += row->height;
4285 width = max (width, row_width);
4286 }
4287
4288 /* Add the frame's internal border to the width and height the X
4289 window should have. */
4290 height += 2 * FRAME_INTERNAL_BORDER_WIDTH (f);
4291 width += 2 * FRAME_INTERNAL_BORDER_WIDTH (f);
4292
4293 /* Move the tooltip window where the mouse pointer is. Resize and
4294 show it. */
4295 compute_tip_xy (f, parms, dx, dy, width, height, &root_x, &root_y);
4296
4297 BLOCK_INPUT;
4298 MoveWindow (FRAME_MAC_WINDOW (f), root_x, root_y, false);
4299 SizeWindow (FRAME_MAC_WINDOW (f), width, height, true);
4300 ShowWindow (FRAME_MAC_WINDOW (f));
4301 BringToFront (FRAME_MAC_WINDOW (f));
4302 UNBLOCK_INPUT;
4303
4304 FRAME_PIXEL_WIDTH (f) = width;
4305 FRAME_PIXEL_HEIGHT (f) = height;
4306
4307 /* Draw into the window. */
4308 w->must_be_updated_p = 1;
4309 update_single_window (w, 1);
4310
4311 /* Restore original current buffer. */
4312 set_buffer_internal_1 (old_buffer);
4313 windows_or_buffers_changed = old_windows_or_buffers_changed;
4314
4315 start_timer:
4316 /* Let the tip disappear after timeout seconds. */
4317 tip_timer = call3 (intern ("run-at-time"), timeout, Qnil,
4318 intern ("x-hide-tip"));
4319
4320 UNGCPRO;
4321 return unbind_to (count, Qnil);
4322 }
4323
4324
4325 DEFUN ("x-hide-tip", Fx_hide_tip, Sx_hide_tip, 0, 0, 0,
4326 doc: /* Hide the current tooltip window, if there is any.
4327 Value is t if tooltip was open, nil otherwise. */)
4328 ()
4329 {
4330 int count;
4331 Lisp_Object deleted, frame, timer;
4332 struct gcpro gcpro1, gcpro2;
4333
4334 /* Return quickly if nothing to do. */
4335 if (NILP (tip_timer) && NILP (tip_frame))
4336 return Qnil;
4337
4338 frame = tip_frame;
4339 timer = tip_timer;
4340 GCPRO2 (frame, timer);
4341 tip_frame = tip_timer = deleted = Qnil;
4342
4343 count = SPECPDL_INDEX ();
4344 specbind (Qinhibit_redisplay, Qt);
4345 specbind (Qinhibit_quit, Qt);
4346
4347 if (!NILP (timer))
4348 call1 (Qcancel_timer, timer);
4349
4350 if (FRAMEP (frame))
4351 {
4352 Fdelete_frame (frame, Qnil);
4353 deleted = Qt;
4354 }
4355
4356 UNGCPRO;
4357 return unbind_to (count, deleted);
4358 }
4359
4360
4361 \f
4362 #if TARGET_API_MAC_CARBON
4363 /***********************************************************************
4364 File selection dialog
4365 ***********************************************************************/
4366
4367 static pascal void mac_nav_event_callback P_ ((NavEventCallbackMessage,
4368 NavCBRecPtr, void *));
4369
4370 /**
4371 There is a relatively standard way to do this using applescript to run
4372 a (choose file) method. However, this doesn't do "the right thing"
4373 by working only if the find-file occurred during a menu or toolbar
4374 click. So we must do the file dialog by hand, using the navigation
4375 manager. This also has more flexibility in determining the default
4376 directory and whether or not we are going to choose a file.
4377 **/
4378
4379 extern Lisp_Object Qfile_name_history;
4380
4381 DEFUN ("x-file-dialog", Fx_file_dialog, Sx_file_dialog, 2, 5, 0,
4382 doc: /* Read file name, prompting with PROMPT in directory DIR.
4383 Use a file selection dialog.
4384 Select DEFAULT-FILENAME in the dialog's file selection box, if
4385 specified. Ensure that file exists if MUSTMATCH is non-nil.
4386 If ONLY-DIR-P is non-nil, the user can only select directories. */)
4387 (prompt, dir, default_filename, mustmatch, only_dir_p)
4388 Lisp_Object prompt, dir, default_filename, mustmatch, only_dir_p;
4389 {
4390 Lisp_Object file = Qnil;
4391 int count = SPECPDL_INDEX ();
4392 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6;
4393 char filename[MAXPATHLEN];
4394 static NavEventUPP mac_nav_event_callbackUPP = NULL;
4395
4396 check_mac ();
4397
4398 GCPRO6 (prompt, dir, default_filename, mustmatch, file, only_dir_p);
4399 CHECK_STRING (prompt);
4400 CHECK_STRING (dir);
4401
4402 /* Create the dialog with PROMPT as title, using DIR as initial
4403 directory and using "*" as pattern. */
4404 dir = Fexpand_file_name (dir, Qnil);
4405
4406 {
4407 OSStatus status;
4408 NavDialogCreationOptions options;
4409 NavDialogRef dialogRef;
4410 NavTypeListHandle fileTypes = NULL;
4411 NavUserAction userAction;
4412 CFStringRef message=NULL, saveName = NULL;
4413
4414 BLOCK_INPUT;
4415 /* No need for a callback function because we are modal */
4416 NavGetDefaultDialogCreationOptions(&options);
4417 options.modality = kWindowModalityAppModal;
4418 options.location.h = options.location.v = -1;
4419 options.optionFlags = kNavDefaultNavDlogOptions;
4420 options.optionFlags |= kNavAllFilesInPopup; /* All files allowed */
4421 options.optionFlags |= kNavSelectAllReadableItem;
4422 options.optionFlags &= ~kNavAllowMultipleFiles;
4423 if (!NILP(prompt))
4424 {
4425 message = cfstring_create_with_string (prompt);
4426 options.message = message;
4427 }
4428 /* Don't set the application, let it use default.
4429 options.clientName = CFSTR ("Emacs");
4430 */
4431
4432 if (mac_nav_event_callbackUPP == NULL)
4433 mac_nav_event_callbackUPP = NewNavEventUPP (mac_nav_event_callback);
4434
4435 if (!NILP (only_dir_p))
4436 status = NavCreateChooseFolderDialog(&options, mac_nav_event_callbackUPP,
4437 NULL, NULL, &dialogRef);
4438 else if (NILP (mustmatch))
4439 {
4440 /* This is a save dialog */
4441 options.optionFlags |= kNavDontConfirmReplacement;
4442 options.actionButtonLabel = CFSTR ("Ok");
4443 options.windowTitle = CFSTR ("Enter name");
4444
4445 if (STRINGP (default_filename))
4446 {
4447 Lisp_Object utf8 = ENCODE_UTF_8 (default_filename);
4448 char *begPtr = SDATA(utf8);
4449 char *filePtr = begPtr + SBYTES(utf8);
4450 while (filePtr != begPtr && !IS_DIRECTORY_SEP(filePtr[-1]))
4451 filePtr--;
4452 saveName = cfstring_create_with_utf8_cstring (filePtr);
4453 options.saveFileName = saveName;
4454 options.optionFlags |= kNavSelectDefaultLocation;
4455 }
4456 status = NavCreatePutFileDialog(&options,
4457 'TEXT', kNavGenericSignature,
4458 mac_nav_event_callbackUPP, NULL,
4459 &dialogRef);
4460 }
4461 else
4462 {
4463 /* This is an open dialog*/
4464 status = NavCreateChooseFileDialog(&options, fileTypes,
4465 mac_nav_event_callbackUPP, NULL,
4466 NULL, NULL, &dialogRef);
4467 }
4468
4469 /* Set the default location and continue*/
4470 if (status == noErr)
4471 {
4472 Lisp_Object encoded_dir = ENCODE_FILE (dir);
4473 AEDesc defLocAed;
4474
4475 status = AECreateDesc (TYPE_FILE_NAME, SDATA (encoded_dir),
4476 SBYTES (encoded_dir), &defLocAed);
4477 if (status == noErr)
4478 {
4479 NavCustomControl(dialogRef, kNavCtlSetLocation, (void*) &defLocAed);
4480 AEDisposeDesc(&defLocAed);
4481 }
4482 status = NavDialogRun(dialogRef);
4483 }
4484
4485 if (saveName) CFRelease(saveName);
4486 if (message) CFRelease(message);
4487
4488 if (status == noErr) {
4489 userAction = NavDialogGetUserAction(dialogRef);
4490 switch (userAction)
4491 {
4492 case kNavUserActionNone:
4493 case kNavUserActionCancel:
4494 break; /* Treat cancel like C-g */
4495 case kNavUserActionOpen:
4496 case kNavUserActionChoose:
4497 case kNavUserActionSaveAs:
4498 {
4499 NavReplyRecord reply;
4500 Size len;
4501
4502 status = NavDialogGetReply(dialogRef, &reply);
4503 if (status != noErr)
4504 break;
4505 status = AEGetNthPtr (&reply.selection, 1, TYPE_FILE_NAME,
4506 NULL, NULL, filename,
4507 sizeof (filename) - 1, &len);
4508 if (status == noErr)
4509 {
4510 len = min (len, sizeof (filename) - 1);
4511 filename[len] = '\0';
4512 if (reply.saveFileName)
4513 {
4514 /* If it was a saved file, we need to add the file name */
4515 if (len && len < sizeof (filename) - 1
4516 && filename[len-1] != '/')
4517 filename[len++] = '/';
4518 CFStringGetCString(reply.saveFileName, filename+len,
4519 sizeof (filename) - len,
4520 #ifdef MAC_OSX
4521 kCFStringEncodingUTF8
4522 #else
4523 CFStringGetSystemEncoding ()
4524 #endif
4525 );
4526 }
4527 file = DECODE_FILE (make_unibyte_string (filename,
4528 strlen (filename)));
4529 }
4530 NavDisposeReply(&reply);
4531 }
4532 break;
4533 }
4534 NavDialogDispose(dialogRef);
4535 UNBLOCK_INPUT;
4536 }
4537 else {
4538 UNBLOCK_INPUT;
4539 /* Fall back on minibuffer if there was a problem */
4540 file = Fcompleting_read (prompt, intern ("read-file-name-internal"),
4541 dir, mustmatch, dir, Qfile_name_history,
4542 default_filename, Qnil);
4543 }
4544 }
4545
4546 UNGCPRO;
4547
4548 /* Make "Cancel" equivalent to C-g. */
4549 if (NILP (file))
4550 Fsignal (Qquit, Qnil);
4551
4552 return unbind_to (count, file);
4553 }
4554
4555
4556 /* Need to register some event callback function for enabling drag and
4557 drop in Navigation Service dialogs. */
4558 static pascal void
4559 mac_nav_event_callback (selector, parms, data)
4560 NavEventCallbackMessage selector;
4561 NavCBRecPtr parms;
4562 void *data ;
4563 {
4564 }
4565 #endif
4566 \f
4567 /***********************************************************************
4568 Fonts
4569 ***********************************************************************/
4570
4571 DEFUN ("mac-clear-font-name-table", Fmac_clear_font_name_table,
4572 Smac_clear_font_name_table, 0, 0, 0,
4573 doc: /* Clear the font name table. */)
4574 ()
4575 {
4576 check_mac ();
4577 mac_clear_font_name_table ();
4578 return Qnil;
4579 }
4580
4581 #if USE_MAC_FONT_PANEL
4582 DEFUN ("mac-set-font-panel-visible-p", Fmac_set_font_panel_visible_p,
4583 Smac_set_font_panel_visible_p, 1, 1, 0,
4584 doc: /* Make the font panel visible if and only if FLAG is non-nil.
4585 This is for internal use only. Use `mac-font-panel-mode' instead. */)
4586 (flag)
4587 Lisp_Object flag;
4588 {
4589 OSStatus err = noErr;
4590
4591 check_mac ();
4592
4593 BLOCK_INPUT;
4594 if (NILP (flag) != !mac_font_panel_visible_p ())
4595 {
4596 err = mac_show_hide_font_panel ();
4597 if (err == noErr && !NILP (flag))
4598 {
4599 Lisp_Object focus_frame = x_get_focus_frame (SELECTED_FRAME ());
4600 struct frame *f = (NILP (focus_frame) ? SELECTED_FRAME ()
4601 : XFRAME (focus_frame));
4602
4603 mac_set_font_info_for_selection (f, DEFAULT_FACE_ID, 0);
4604 }
4605 }
4606 UNBLOCK_INPUT;
4607
4608 if (err != noErr)
4609 error ("Cannot change visibility of the font panel");
4610 return Qnil;
4611 }
4612 #endif
4613
4614 #if USE_ATSUI
4615 extern Lisp_Object mac_atsu_font_face_attributes P_ ((ATSUFontID));
4616
4617 DEFUN ("mac-atsu-font-face-attributes", Fmac_atsu_font_face_attributes,
4618 Smac_atsu_font_face_attributes, 1, 1, 0,
4619 doc: /* Return plist of face attributes and values for ATSU font ID.
4620 ID is specified by either an integer or a float. */)
4621 (id)
4622 Lisp_Object id;
4623 {
4624 ATSUFontID font_id;
4625 Lisp_Object result;
4626
4627 check_mac ();
4628 CHECK_NUMBER_OR_FLOAT(id);
4629 font_id = NUMBERP (id) ? XINT (id) : (ATSUFontID) XFLOAT (id);
4630 BLOCK_INPUT;
4631 result = mac_atsu_font_face_attributes (font_id);
4632 UNBLOCK_INPUT;
4633 return result;
4634 }
4635 #endif
4636
4637 \f
4638 /***********************************************************************
4639 Initialization
4640 ***********************************************************************/
4641
4642 /* Keep this list in the same order as frame_parms in frame.c.
4643 Use 0 for unsupported frame parameters. */
4644
4645 frame_parm_handler mac_frame_parm_handlers[] =
4646 {
4647 x_set_autoraise,
4648 x_set_autolower,
4649 x_set_background_color,
4650 x_set_border_color,
4651 x_set_border_width,
4652 x_set_cursor_color,
4653 x_set_cursor_type,
4654 mac_set_font,
4655 x_set_foreground_color,
4656 x_set_icon_name,
4657 0, /* MAC_TODO: x_set_icon_type, */
4658 x_set_internal_border_width,
4659 x_set_menu_bar_lines,
4660 x_set_mouse_color,
4661 x_explicitly_set_name,
4662 x_set_scroll_bar_width,
4663 x_set_title,
4664 x_set_unsplittable,
4665 x_set_vertical_scroll_bars,
4666 x_set_visibility,
4667 x_set_tool_bar_lines,
4668 0, /* MAC_TODO: x_set_scroll_bar_foreground, */
4669 0, /* MAC_TODO: x_set_scroll_bar_background, */
4670 x_set_screen_gamma,
4671 x_set_line_spacing,
4672 x_set_fringe_width,
4673 x_set_fringe_width,
4674 0, /* x_set_wait_for_wm, */
4675 x_set_fullscreen,
4676 };
4677
4678 void
4679 syms_of_macfns ()
4680 {
4681 #ifdef MAC_OSX
4682 /* This is zero if not using Mac native windows. */
4683 mac_in_use = 0;
4684 #else
4685 /* Certainly running on Mac native windows. */
4686 mac_in_use = 1;
4687 #endif
4688
4689 /* The section below is built by the lisp expression at the top of the file,
4690 just above where these variables are declared. */
4691 /*&&& init symbols here &&&*/
4692 Qnone = intern ("none");
4693 staticpro (&Qnone);
4694 Qsuppress_icon = intern ("suppress-icon");
4695 staticpro (&Qsuppress_icon);
4696 Qundefined_color = intern ("undefined-color");
4697 staticpro (&Qundefined_color);
4698 Qcancel_timer = intern ("cancel-timer");
4699 staticpro (&Qcancel_timer);
4700 /* This is the end of symbol initialization. */
4701
4702 /* Text property `display' should be nonsticky by default. */
4703 Vtext_property_default_nonsticky
4704 = Fcons (Fcons (Qdisplay, Qt), Vtext_property_default_nonsticky);
4705
4706
4707 Fput (Qundefined_color, Qerror_conditions,
4708 Fcons (Qundefined_color, Fcons (Qerror, Qnil)));
4709 Fput (Qundefined_color, Qerror_message,
4710 build_string ("Undefined color"));
4711
4712 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape,
4713 doc: /* The shape of the pointer when over text.
4714 Changing the value does not affect existing frames
4715 unless you set the mouse color. */);
4716 Vx_pointer_shape = Qnil;
4717
4718 #if 0 /* This doesn't really do anything. */
4719 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape,
4720 doc: /* The shape of the pointer when not over text.
4721 This variable takes effect when you create a new frame
4722 or when you set the mouse color. */);
4723 #endif
4724 Vx_nontext_pointer_shape = Qnil;
4725
4726 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape,
4727 doc: /* The shape of the pointer when Emacs is busy.
4728 This variable takes effect when you create a new frame
4729 or when you set the mouse color. */);
4730 Vx_hourglass_pointer_shape = Qnil;
4731
4732 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p,
4733 doc: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
4734 display_hourglass_p = 1;
4735
4736 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay,
4737 doc: /* *Seconds to wait before displaying an hourglass pointer.
4738 Value must be an integer or float. */);
4739 Vhourglass_delay = make_number (DEFAULT_HOURGLASS_DELAY);
4740
4741 #if 0 /* This doesn't really do anything. */
4742 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape,
4743 doc: /* The shape of the pointer when over the mode line.
4744 This variable takes effect when you create a new frame
4745 or when you set the mouse color. */);
4746 #endif
4747 Vx_mode_pointer_shape = Qnil;
4748
4749 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
4750 &Vx_sensitive_text_pointer_shape,
4751 doc: /* The shape of the pointer when over mouse-sensitive text.
4752 This variable takes effect when you create a new frame
4753 or when you set the mouse color. */);
4754 Vx_sensitive_text_pointer_shape = Qnil;
4755
4756 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
4757 &Vx_window_horizontal_drag_shape,
4758 doc: /* Pointer shape to use for indicating a window can be dragged horizontally.
4759 This variable takes effect when you create a new frame
4760 or when you set the mouse color. */);
4761 Vx_window_horizontal_drag_shape = Qnil;
4762
4763 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel,
4764 doc: /* A string indicating the foreground color of the cursor box. */);
4765 Vx_cursor_fore_pixel = Qnil;
4766
4767 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size,
4768 doc: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
4769 Text larger than this is clipped. */);
4770 Vx_max_tooltip_size = Fcons (make_number (80), make_number (40));
4771
4772 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager,
4773 doc: /* Non-nil if no window manager is in use.
4774 Emacs doesn't try to figure this out; this is always nil
4775 unless you set it to something else. */);
4776 /* We don't have any way to find this out, so set it to nil
4777 and maybe the user would like to set it to t. */
4778 Vx_no_window_manager = Qnil;
4779
4780 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
4781 &Vx_pixel_size_width_font_regexp,
4782 doc: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
4783
4784 Since Emacs gets width of a font matching with this regexp from
4785 PIXEL_SIZE field of the name, font finding mechanism gets faster for
4786 such a font. This is especially effective for such large fonts as
4787 Chinese, Japanese, and Korean. */);
4788 Vx_pixel_size_width_font_regexp = Qnil;
4789
4790 #if TARGET_API_MAC_CARBON
4791 DEFVAR_LISP ("mac-carbon-version-string", &Vmac_carbon_version_string,
4792 doc: /* Version info for Carbon API. */);
4793 {
4794 OSErr err;
4795 UInt32 response;
4796 char carbon_version[16] = "Unknown";
4797
4798 err = Gestalt (gestaltCarbonVersion, &response);
4799 if (err == noErr)
4800 sprintf (carbon_version, "%u.%u.%u",
4801 (response >> 8) & 0xf, (response >> 4) & 0xf, response & 0xf);
4802 Vmac_carbon_version_string = build_string (carbon_version);
4803 }
4804 #endif /* TARGET_API_MAC_CARBON */
4805
4806 /* X window properties. */
4807 defsubr (&Sx_change_window_property);
4808 defsubr (&Sx_delete_window_property);
4809 defsubr (&Sx_window_property);
4810
4811 defsubr (&Sxw_display_color_p);
4812 defsubr (&Sx_display_grayscale_p);
4813 defsubr (&Sxw_color_defined_p);
4814 defsubr (&Sxw_color_values);
4815 defsubr (&Sx_server_max_request_size);
4816 defsubr (&Sx_server_vendor);
4817 defsubr (&Sx_server_version);
4818 defsubr (&Sx_display_pixel_width);
4819 defsubr (&Sx_display_pixel_height);
4820 defsubr (&Sx_display_mm_width);
4821 defsubr (&Sx_display_mm_height);
4822 defsubr (&Sx_display_screens);
4823 defsubr (&Sx_display_planes);
4824 defsubr (&Sx_display_color_cells);
4825 defsubr (&Sx_display_visual_class);
4826 defsubr (&Sx_display_backing_store);
4827 defsubr (&Sx_display_save_under);
4828 defsubr (&Sx_create_frame);
4829 defsubr (&Sx_open_connection);
4830 defsubr (&Sx_close_connection);
4831 defsubr (&Sx_display_list);
4832 defsubr (&Sx_synchronize);
4833 defsubr (&Sx_focus_frame);
4834
4835 /* Setting callback functions for fontset handler. */
4836 get_font_info_func = x_get_font_info;
4837
4838 #if 0 /* This function pointer doesn't seem to be used anywhere.
4839 And the pointer assigned has the wrong type, anyway. */
4840 list_fonts_func = x_list_fonts;
4841 #endif
4842
4843 load_font_func = x_load_font;
4844 find_ccl_program_func = x_find_ccl_program;
4845 query_font_func = x_query_font;
4846 set_frame_fontset_func = mac_set_font;
4847 check_window_system_func = check_mac;
4848
4849 hourglass_atimer = NULL;
4850 hourglass_shown_p = 0;
4851
4852 defsubr (&Sx_show_tip);
4853 defsubr (&Sx_hide_tip);
4854 tip_timer = Qnil;
4855 staticpro (&tip_timer);
4856 tip_frame = Qnil;
4857 staticpro (&tip_frame);
4858
4859 last_show_tip_args = Qnil;
4860 staticpro (&last_show_tip_args);
4861
4862 #if TARGET_API_MAC_CARBON
4863 defsubr (&Sx_file_dialog);
4864 #endif
4865 defsubr (&Smac_clear_font_name_table);
4866 #if USE_MAC_FONT_PANEL
4867 defsubr (&Smac_set_font_panel_visible_p);
4868 #endif
4869 #if USE_ATSUI
4870 defsubr (&Smac_atsu_font_face_attributes);
4871 #endif
4872 }
4873
4874 /* arch-tag: d7591289-f374-4377-b245-12f5dbbb8edc
4875 (do not change this comment) */
Emacs repository mirror