1 /* Graphical user interface functions for Mac OS.
2 Copyright (C) 2000, 2001, 2002, 2003, 2004,
3 2005, 2006, 2007 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3, or (at your option)
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.
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. */
22 /* Contributed by Andrew Choi (akochoi@mac.com). */
33 #include "intervals.h"
34 #include "dispextern.h"
36 #include "blockinput.h"
42 #include "termhooks.h"
46 #include <sys/types.h>
50 #include <sys/param.h>
52 extern void free_frame_menubar ();
54 #if TARGET_API_MAC_CARBON
56 /* Carbon version info */
58 static Lisp_Object Vmac_carbon_version_string
;
60 #endif /* TARGET_API_MAC_CARBON */
62 /* Non-zero means we're allowed to display an hourglass cursor. */
64 int display_hourglass_p
;
66 /* The background and shape of the mouse pointer, and shape when not
67 over text or in the modeline. */
69 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
70 Lisp_Object Vx_hourglass_pointer_shape
;
72 /* The shape when over mouse-sensitive text. */
74 Lisp_Object Vx_sensitive_text_pointer_shape
;
76 /* If non-nil, the pointer shape to indicate that windows can be
77 dragged horizontally. */
79 Lisp_Object Vx_window_horizontal_drag_shape
;
81 /* Color of chars displayed in cursor box. */
83 Lisp_Object Vx_cursor_fore_pixel
;
85 /* Nonzero if using Windows. */
87 static int mac_in_use
;
89 /* Non nil if no window manager is in use. */
91 Lisp_Object Vx_no_window_manager
;
93 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
95 Lisp_Object Vx_pixel_size_width_font_regexp
;
98 Lisp_Object Qsuppress_icon
;
99 Lisp_Object Qundefined_color
;
100 Lisp_Object Qcancel_timer
;
104 extern Lisp_Object Vwindow_system_version
;
107 int image_cache_refcount
, dpyinfo_refcount
;
111 #if 0 /* Use xstricmp instead. */
112 /* compare two strings ignoring case */
115 stricmp (const char *s
, const char *t
)
117 for ( ; tolower (*s
) == tolower (*t
); s
++, t
++)
120 return tolower (*s
) - tolower (*t
);
124 /* compare two strings up to n characters, ignoring case */
127 strnicmp (const char *s
, const char *t
, unsigned int n
)
129 for ( ; n
> 0 && tolower (*s
) == tolower (*t
); n
--, s
++, t
++)
132 return n
== 0 ? 0 : tolower (*s
) - tolower (*t
);
136 /* Error if we are not running on Mac OS. */
142 error ("Mac native windows not in use or not initialized");
145 /* Nonzero if we can use mouse menus.
146 You should not call this unless HAVE_MENUS is defined. */
154 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
155 and checking validity for Mac. */
158 check_x_frame (frame
)
164 frame
= selected_frame
;
165 CHECK_LIVE_FRAME (frame
);
167 if (! FRAME_MAC_P (f
))
168 error ("Non-Mac frame used");
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. */
176 struct mac_display_info
*
177 check_x_display_info (frame
)
180 struct mac_display_info
*dpyinfo
= NULL
;
184 struct frame
*sf
= XFRAME (selected_frame
);
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
;
191 error ("Mac native windows are not in use or not initialized");
193 else if (STRINGP (frame
))
194 dpyinfo
= x_display_info_for_name (frame
);
197 FRAME_PTR f
= check_x_frame (frame
);
198 dpyinfo
= FRAME_MAC_DISPLAY_INFO (f
);
206 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
207 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
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
));
222 extern void mac_get_window_bounds
P_ ((struct frame
*, Rect
*, Rect
*));
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. */
231 x_real_positions (f
, xptr
, yptr
)
237 mac_get_window_bounds (f
, &inner
, &outer
);
239 f
->x_pixels_diff
= inner
.left
- outer
.left
;
240 f
->y_pixels_diff
= inner
.top
- outer
.top
;
247 /* The default colors for the Mac color map */
248 typedef struct colormap_t
254 static const colormap_t mac_color_map
[] =
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" }
1011 mac_color_map_lookup (colorname
)
1012 const char *colorname
;
1014 Lisp_Object ret
= Qnil
;
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)
1022 ret
= make_number (mac_color_map
[i
].color
);
1032 x_to_mac_color (colorname
)
1035 register Lisp_Object ret
= Qnil
;
1039 if (colorname
[0] == '#')
1041 /* Could be an old-style RGB Device specification. */
1044 color
= colorname
+ 1;
1046 size
= strlen(color
);
1047 if (size
== 3 || size
== 6 || size
== 9 || size
== 12)
1049 unsigned long colorval
;
1055 for (i
= 0; i
< 3; i
++)
1059 unsigned long value
;
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')
1068 value
= strtoul(color
, &end
, 16);
1070 if (errno
== ERANGE
|| end
- color
!= size
)
1075 value
= value
* 0x10;
1086 colorval
|= (value
<< pos
);
1091 return make_number (colorval
);
1097 else if (strnicmp(colorname
, "rgb:", 4) == 0)
1100 unsigned long colorval
;
1105 color
= colorname
+ 4;
1106 for (i
= 0; i
< 3; i
++)
1109 unsigned long value
;
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')
1116 value
= strtoul(color
, &end
, 16);
1117 if (errno
== ERANGE
)
1119 switch (end
- color
)
1122 value
= value
* 0x10 + value
;
1135 if (value
== ULONG_MAX
)
1137 colorval
|= (value
<< pos
);
1144 return make_number (colorval
);
1151 else if (strnicmp(colorname
, "rgbi:", 5) == 0)
1153 /* This is an RGB Intensity specification. */
1155 unsigned long colorval
;
1160 color
= colorname
+ 5;
1161 for (i
= 0; i
< 3; i
++)
1167 value
= strtod(color
, &end
);
1168 if (errno
== ERANGE
)
1170 if (value
< 0.0 || value
> 1.0)
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. */
1178 colorval
|= (val
<< pos
);
1185 return make_number (colorval
);
1193 ret
= mac_color_map_lookup (colorname
);
1199 /* Gamma-correct COLOR on frame F. */
1202 gamma_correct (f
, color
)
1204 unsigned long *color
;
1208 unsigned long red
, green
, blue
;
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
);
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. */
1222 mac_defined_color (f
, color
, color_def
, alloc
)
1228 register Lisp_Object tem
;
1229 unsigned long mac_color_ref
;
1231 tem
= x_to_mac_color (color
);
1237 /* Apply gamma correction. */
1238 mac_color_ref
= XUINT (tem
);
1239 gamma_correct (f
, &mac_color_ref
);
1240 XSETINT (tem
, mac_color_ref
);
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
);
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
1262 x_decode_color (f
, arg
, def
)
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
);
1277 if (FRAME_MAC_DISPLAY_INFO (f
)->n_planes
) == 1)
1281 if (mac_defined_color (f
, SDATA (arg
), &cdef
, 1))
1284 /* defined_color failed; return an ultimate default. */
1288 /* Functions called only from `x_set_frame_param'
1289 to set individual parameters.
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. */
1297 x_set_foreground_color (f
, arg
, oldval
)
1299 Lisp_Object arg
, oldval
;
1301 struct mac_output
*mac
= f
->output_data
.mac
;
1302 unsigned long fg
, old_fg
;
1304 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1305 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
1306 FRAME_FOREGROUND_PIXEL (f
) = fg
;
1308 if (FRAME_MAC_WINDOW (f
) != 0)
1310 Display
*dpy
= FRAME_MAC_DISPLAY (f
);
1313 XSetForeground (dpy
, mac
->normal_gc
, fg
);
1314 XSetBackground (dpy
, mac
->reverse_gc
, fg
);
1316 if (mac
->cursor_pixel
== old_fg
)
1318 unload_color (f
, mac
->cursor_pixel
);
1319 mac
->cursor_pixel
= fg
;
1320 XSetBackground (dpy
, mac
->cursor_gc
, mac
->cursor_pixel
);
1325 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
1327 if (FRAME_VISIBLE_P (f
))
1331 unload_color (f
, old_fg
);
1335 x_set_background_color (f
, arg
, oldval
)
1337 Lisp_Object arg
, oldval
;
1339 struct mac_output
*mac
= f
->output_data
.mac
;
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
;
1346 if (FRAME_MAC_WINDOW (f
) != 0)
1348 Display
*dpy
= FRAME_MAC_DISPLAY (f
);
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
);
1357 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
1359 if (FRAME_VISIBLE_P (f
))
1365 x_set_mouse_color (f
, arg
, oldval
)
1367 Lisp_Object arg
, oldval
;
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
;
1375 /* Don't let pointers be invisible. */
1376 if (mask_color
== pixel
)
1377 pixel
= x
->foreground_pixel
;
1379 f
->output_data
.mac
->mouse_pixel
= pixel
;
1381 if (!NILP (Vx_pointer_shape
))
1383 CHECK_NUMBER (Vx_pointer_shape
);
1384 cursor
= XINT (Vx_pointer_shape
);
1387 cursor
= kThemeIBeamCursor
;
1389 if (!NILP (Vx_nontext_pointer_shape
))
1391 CHECK_NUMBER (Vx_nontext_pointer_shape
);
1392 nontext_cursor
= XINT (Vx_nontext_pointer_shape
);
1395 nontext_cursor
= kThemeArrowCursor
;
1397 if (!NILP (Vx_hourglass_pointer_shape
))
1399 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
1400 hourglass_cursor
= XINT (Vx_hourglass_pointer_shape
);
1403 hourglass_cursor
= kThemeWatchCursor
;
1405 if (!NILP (Vx_mode_pointer_shape
))
1407 CHECK_NUMBER (Vx_mode_pointer_shape
);
1408 mode_cursor
= XINT (Vx_mode_pointer_shape
);
1411 mode_cursor
= kThemeArrowCursor
;
1413 if (!NILP (Vx_sensitive_text_pointer_shape
))
1415 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
1416 hand_cursor
= XINT (Vx_sensitive_text_pointer_shape
);
1419 hand_cursor
= kThemePointingHandCursor
;
1421 if (!NILP (Vx_window_horizontal_drag_shape
))
1423 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1424 horizontal_drag_cursor
= XINT (Vx_window_horizontal_drag_shape
);
1427 horizontal_drag_cursor
= kThemeResizeLeftRightCursor
;
1429 #if 0 /* MAC_TODO: cursor color changes */
1431 XColor fore_color
, back_color
;
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
);
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
);
1449 if (FRAME_MAC_WINDOW (f
) != 0)
1450 rif
->define_frame_cursor (f
, cursor
);
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
;
1461 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1465 x_set_cursor_color (f
, arg
, oldval
)
1467 Lisp_Object arg
, oldval
;
1469 unsigned long fore_pixel
, pixel
;
1471 if (!NILP (Vx_cursor_fore_pixel
))
1472 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1473 WHITE_PIX_DEFAULT (f
));
1475 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1477 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1479 /* Make sure that the cursor color differs from the background color. */
1480 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1482 pixel
= f
->output_data
.mac
->mouse_pixel
;
1483 if (pixel
== fore_pixel
)
1484 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1487 f
->output_data
.mac
->cursor_foreground_pixel
= fore_pixel
;
1488 f
->output_data
.mac
->cursor_pixel
= pixel
;
1490 if (FRAME_MAC_WINDOW (f
) != 0)
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
);
1500 if (FRAME_VISIBLE_P (f
))
1502 x_update_cursor (f
, 0);
1503 x_update_cursor (f
, 1);
1507 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1510 /* Set the border-color of frame F to pixel value PIX.
1511 Note that this does not fully take effect if done before
1515 x_set_border_pixel (f
, pix
)
1520 f
->output_data
.mac
->border_pixel
= pix
;
1522 if (FRAME_MAC_WINDOW (f
) != 0 && f
->border_width
> 0)
1524 if (FRAME_VISIBLE_P (f
))
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. */
1536 x_set_border_color (f
, arg
, oldval
)
1538 Lisp_Object arg
, oldval
;
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
);
1550 x_set_cursor_type (f
, arg
, oldval
)
1552 Lisp_Object arg
, oldval
;
1554 set_frame_cursor_types (f
, arg
);
1556 /* Make sure the cursor gets redrawn. */
1557 cursor_type_changed
= 1;
1560 #if 0 /* MAC_TODO: really no icon for Mac */
1562 x_set_icon_type (f
, arg
, oldval
)
1564 Lisp_Object arg
, oldval
;
1568 if (NILP (arg
) && NILP (oldval
))
1571 if (STRINGP (arg
) && STRINGP (oldval
)
1572 && EQ (Fstring_equal (oldval
, arg
), Qt
))
1575 if (SYMBOLP (arg
) && SYMBOLP (oldval
) && EQ (arg
, oldval
))
1580 result
= x_bitmap_icon (f
, arg
);
1584 error ("No icon window available");
1589 #endif /* MAC_TODO */
1592 x_set_icon_name (f
, arg
, oldval
)
1594 Lisp_Object arg
, oldval
;
1600 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1603 else if (!NILP (arg
) || NILP (oldval
))
1608 #if 0 /* MAC_TODO */
1609 if (f
->output_data
.w32
->icon_bitmap
!= 0)
1614 result
= x_text_icon (f
,
1615 (char *) SDATA ((!NILP (f
->icon_name
)
1624 error ("No icon window available");
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
))
1631 #ifdef USE_X_TOOLKIT
1632 XtPopup (f
->output_data
.w32
->widget
, XtGrabNone
);
1634 XMapWindow (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
));
1637 XFlush (FRAME_W32_DISPLAY (f
));
1639 #endif /* MAC_TODO */
1644 x_set_menu_bar_lines (f
, value
, oldval
)
1646 Lisp_Object value
, oldval
;
1648 /* Make sure we redisplay all windows in this frame. */
1649 windows_or_buffers_changed
++;
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
;
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. */
1668 x_set_tool_bar_lines (f
, value
, oldval
)
1670 Lisp_Object value
, oldval
;
1672 int delta
, nlines
, root_height
;
1673 Lisp_Object root_window
;
1675 /* Treat tool bars like menu bars. */
1676 if (FRAME_MINIBUF_ONLY_P (f
))
1679 /* Use VALUE only if an integer >= 0. */
1680 if (INTEGERP (value
) && XINT (value
) >= 0)
1681 nlines
= XFASTINT (value
);
1685 /* Make sure we redisplay all windows in this frame. */
1686 ++windows_or_buffers_changed
;
1688 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
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)
1695 delta
= root_height
- 1;
1696 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1699 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1700 change_window_heights (root_window
, delta
);
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)
1713 clear_current_matrices (f
);
1714 updating_frame
= NULL
;
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. */
1722 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1723 int width
= FRAME_PIXEL_WIDTH (f
);
1724 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1727 mac_clear_area (f
, 0, y
, width
, height
);
1730 if (WINDOWP (f
->tool_bar_window
))
1731 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1737 /* Set the Mac window title to NAME for frame F. */
1740 x_set_name_internal (f
, name
)
1744 if (FRAME_MAC_WINDOW (f
))
1746 if (STRING_MULTIBYTE (name
))
1747 #if TARGET_API_MAC_CARBON
1748 name
= ENCODE_UTF_8 (name
);
1750 name
= ENCODE_SYSTEM (name
);
1756 #if TARGET_API_MAC_CARBON
1757 CFStringRef windowTitle
=
1758 cfstring_create_with_utf8_cstring (SDATA (name
));
1760 SetWindowTitleWithCFString (FRAME_MAC_WINDOW (f
), windowTitle
);
1761 CFRelease (windowTitle
);
1764 if (strlen (SDATA (name
)) < 255)
1766 strcpy (windowTitle
, SDATA (name
));
1767 c2pstr (windowTitle
);
1768 SetWTitle (FRAME_MAC_WINDOW (f
), windowTitle
);
1777 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
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.
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. */
1789 x_set_name (f
, name
, explicit)
1794 /* Make sure that requests from lisp code override requests from
1795 Emacs redisplay code. */
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;
1803 f
->explicit_name
= ! NILP (name
);
1805 else if (f
->explicit_name
)
1808 /* If NAME is nil, set the name to the mac_id_name. */
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
,
1816 name
= build_string (FRAME_MAC_DISPLAY_INFO (f
)->mac_id_name
);
1819 CHECK_STRING (name
);
1821 /* Don't change the name if it's already NAME. */
1822 if (! NILP (Fstring_equal (name
, f
->name
)))
1827 /* For setting the frame title, the title parameter should override
1828 the name parameter. */
1829 if (! NILP (f
->title
))
1832 x_set_name_internal (f
, name
);
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
1839 x_explicitly_set_name (f
, arg
, oldval
)
1841 Lisp_Object arg
, oldval
;
1843 x_set_name (f
, arg
, 1);
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
1850 x_implicitly_set_name (f
, arg
, oldval
)
1852 Lisp_Object arg
, oldval
;
1854 x_set_name (f
, arg
, 0);
1857 /* Change the title of frame F to NAME.
1858 If NAME is nil, use the frame name as the title. */
1861 x_set_title (f
, name
, old_name
)
1863 Lisp_Object name
, old_name
;
1865 /* Don't change the title if it's already NAME. */
1866 if (EQ (name
, f
->title
))
1869 update_mode_lines
= 1;
1876 CHECK_STRING (name
);
1878 x_set_name_internal (f
, name
);
1882 x_set_scroll_bar_default_width (f
)
1885 /* Imitate X without X Toolkit */
1887 int wid
= FRAME_COLUMN_WIDTH (f
);
1890 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = MAC_AQUA_VERTICAL_SCROLL_BAR_WIDTH
;
1891 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) +
1893 #else /* not MAC_OSX */
1894 /* Make the actual width at least 14 pixels and a multiple of a
1896 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1898 /* Use all of that space (aside from required margins) for the
1900 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1901 #endif /* not MAC_OSX */
1905 mac_set_font (f
, arg
, oldval
)
1907 Lisp_Object arg
, oldval
;
1909 x_set_font (f
, arg
, oldval
);
1910 #if USE_MAC_FONT_PANEL
1912 Lisp_Object focus_frame
= x_get_focus_frame (f
);
1914 if ((NILP (focus_frame
) && f
== SELECTED_FRAME ())
1915 || XFRAME (focus_frame
) == f
)
1918 mac_set_font_info_for_selection (f
, DEFAULT_FACE_ID
, 0);
1925 #if TARGET_API_MAC_CARBON
1927 mac_update_proxy_icon (f
)
1931 Lisp_Object file_name
=
1932 XBUFFER (XWINDOW (FRAME_SELECTED_WINDOW (f
))->buffer
)->filename
;
1933 Window w
= FRAME_MAC_WINDOW (f
);
1934 AliasHandle alias
= NULL
;
1938 err
= GetWindowProxyAlias (w
, &alias
);
1939 if (err
== errWindowDoesNotHaveProxy
&& !STRINGP (file_name
))
1942 if (STRINGP (file_name
))
1946 FSRef fref
, fref_proxy
;
1948 FSSpec fss
, fss_proxy
;
1951 Lisp_Object encoded_file_name
= ENCODE_FILE (file_name
);
1954 err
= AECoercePtr (TYPE_FILE_NAME
, SDATA (encoded_file_name
),
1955 SBYTES (encoded_file_name
), typeFSRef
, &desc
);
1957 SetPortWindowPort (w
);
1958 err
= AECoercePtr (TYPE_FILE_NAME
, SDATA (encoded_file_name
),
1959 SBYTES (encoded_file_name
), typeFSS
, &desc
);
1964 err
= AEGetDescData (&desc
, &fref
, sizeof (FSRef
));
1966 err
= AEGetDescData (&desc
, &fss
, sizeof (FSSpec
));
1968 AEDisposeDesc (&desc
);
1974 /* (FS)ResolveAlias never sets `changed' to true if
1975 `alias' is minimal. */
1977 err
= FSResolveAlias (NULL
, alias
, &fref_proxy
, &changed
);
1979 err
= FSCompareFSRefs (&fref
, &fref_proxy
);
1981 err
= ResolveAlias (NULL
, alias
, &fss_proxy
, &changed
);
1983 err
= !(fss
.vRefNum
== fss_proxy
.vRefNum
1984 && fss
.parID
== fss_proxy
.parID
1985 && EqualString (fss
.name
, fss_proxy
.name
,
1989 if (err
!= noErr
|| alias
== NULL
)
1992 DisposeHandle ((Handle
) alias
);
1994 err
= FSNewAliasMinimal (&fref
, &alias
);
1996 err
= NewAliasMinimal (&fss
, &alias
);
2003 err
= SetWindowProxyAlias (w
, alias
);
2007 DisposeHandle ((Handle
) alias
);
2009 if (err
!= noErr
|| !STRINGP (file_name
))
2010 RemoveWindowProxy (w
);
2018 mac_update_title_bar (f
, save_match_data
)
2020 int save_match_data
;
2022 #if TARGET_API_MAC_CARBON
2026 if (!FRAME_MAC_P (f
))
2029 w
= XWINDOW (FRAME_SELECTED_WINDOW (f
));
2030 modified_p
= (BUF_SAVE_MODIFF (XBUFFER (w
->buffer
))
2031 < BUF_MODIFF (XBUFFER (w
->buffer
)));
2032 if (windows_or_buffers_changed
2033 /* Minibuffer modification status shown in the close button is
2035 || (!MINI_WINDOW_P (w
)
2036 && (modified_p
!= !NILP (w
->last_had_star
))))
2038 SetWindowModified (FRAME_MAC_WINDOW (f
),
2039 !MINI_WINDOW_P (w
) && modified_p
);
2040 mac_update_proxy_icon (f
);
2046 /* Subroutines of creating a frame. */
2048 /* Retrieve the string resource specified by NAME with CLASS from
2051 The return value points to the contents of a Lisp string. So it
2052 will not be valid after the next GC where string compaction will
2056 x_get_string_resource (rdb
, name
, class)
2060 Lisp_Object value
= xrm_get_resource (rdb
, name
, class);
2062 if (STRINGP (value
))
2063 return SDATA (value
);
2068 /* Return the value of parameter PARAM.
2070 First search ALIST, then Vdefault_frame_alist, then the X defaults
2071 database, using ATTRIBUTE as the attribute name and CLASS as its class.
2073 Convert the resource to the type specified by desired_type.
2075 If no default is specified, return Qunbound. If you call
2076 mac_get_arg, make sure you deal with Qunbound in a reasonable way,
2077 and don't let it get stored in any Lisp-visible variables! */
2080 mac_get_arg (alist
, param
, attribute
, class, type
)
2081 Lisp_Object alist
, param
;
2084 enum resource_types type
;
2086 return x_get_arg (check_x_display_info (Qnil
),
2087 alist
, param
, attribute
, class, type
);
2091 /* XParseGeometry copied from w32xfns.c */
2094 * XParseGeometry parses strings of the form
2095 * "=<width>x<height>{+-}<xoffset>{+-}<yoffset>", where
2096 * width, height, xoffset, and yoffset are unsigned integers.
2097 * Example: "=80x24+300-49"
2098 * The equal sign is optional.
2099 * It returns a bitmask that indicates which of the four values
2100 * were actually found in the string. For each value found,
2101 * the corresponding argument is updated; for each value
2102 * not found, the corresponding argument is left unchanged.
2106 read_integer (string
, NextString
)
2107 register char *string
;
2110 register int Result
= 0;
2115 else if (*string
== '-')
2120 for (; (*string
>= '0') && (*string
<= '9'); string
++)
2122 Result
= (Result
* 10) + (*string
- '0');
2124 *NextString
= string
;
2132 XParseGeometry (string
, x
, y
, width
, height
)
2135 unsigned int *width
, *height
; /* RETURN */
2138 register char *strind
;
2139 unsigned int tempWidth
, tempHeight
;
2141 char *nextCharacter
;
2143 if ((string
== NULL
) || (*string
== '\0')) return (mask
);
2145 string
++; /* ignore possible '=' at beg of geometry spec */
2147 strind
= (char *)string
;
2148 if (*strind
!= '+' && *strind
!= '-' && *strind
!= 'x')
2150 tempWidth
= read_integer (strind
, &nextCharacter
);
2151 if (strind
== nextCharacter
)
2153 strind
= nextCharacter
;
2157 if (*strind
== 'x' || *strind
== 'X')
2160 tempHeight
= read_integer (strind
, &nextCharacter
);
2161 if (strind
== nextCharacter
)
2163 strind
= nextCharacter
;
2164 mask
|= HeightValue
;
2167 if ((*strind
== '+') || (*strind
== '-'))
2172 tempX
= -read_integer (strind
, &nextCharacter
);
2173 if (strind
== nextCharacter
)
2175 strind
= nextCharacter
;
2182 tempX
= read_integer (strind
, &nextCharacter
);
2183 if (strind
== nextCharacter
)
2185 strind
= nextCharacter
;
2188 if ((*strind
== '+') || (*strind
== '-'))
2193 tempY
= -read_integer (strind
, &nextCharacter
);
2194 if (strind
== nextCharacter
)
2196 strind
= nextCharacter
;
2203 tempY
= read_integer (strind
, &nextCharacter
);
2204 if (strind
== nextCharacter
)
2206 strind
= nextCharacter
;
2212 /* If strind isn't at the end of the string the it's an invalid
2213 geometry specification. */
2215 if (*strind
!= '\0') return (0);
2221 if (mask
& WidthValue
)
2223 if (mask
& HeightValue
)
2224 *height
= tempHeight
;
2229 /* Create and set up the Mac window for frame F. */
2239 SetRect (&r
, f
->left_pos
, f
->top_pos
,
2240 f
->left_pos
+ FRAME_PIXEL_WIDTH (f
),
2241 f
->top_pos
+ FRAME_PIXEL_HEIGHT (f
));
2242 #if TARGET_API_MAC_CARBON
2243 CreateNewWindow (kDocumentWindowClass
,
2244 kWindowStandardDocumentAttributes
2246 | kWindowToolbarButtonAttribute
2248 , &r
, &FRAME_MAC_WINDOW (f
));
2249 if (FRAME_MAC_WINDOW (f
))
2251 SetWRefCon (FRAME_MAC_WINDOW (f
), (long) f
->output_data
.mac
);
2252 if (install_window_handler (FRAME_MAC_WINDOW (f
)) != noErr
)
2254 DisposeWindow (FRAME_MAC_WINDOW (f
));
2255 FRAME_MAC_WINDOW (f
) = NULL
;
2259 FRAME_MAC_WINDOW (f
)
2260 = NewCWindow (NULL
, &r
, "\p", false, zoomDocProc
,
2261 (WindowPtr
) -1, 1, (long) f
->output_data
.mac
);
2263 /* so that update events can find this mac_output struct */
2264 f
->output_data
.mac
->mFP
= f
; /* point back to emacs frame */
2267 if (FRAME_MAC_WINDOW (f
))
2269 ControlRef root_control
;
2271 if (CreateRootControl (FRAME_MAC_WINDOW (f
), &root_control
) != noErr
)
2273 DisposeWindow (FRAME_MAC_WINDOW (f
));
2274 FRAME_MAC_WINDOW (f
) = NULL
;
2278 if (FRAME_MAC_WINDOW (f
))
2279 XSetWindowBackground (FRAME_MAC_DISPLAY(f
), FRAME_MAC_WINDOW (f
),
2280 FRAME_BACKGROUND_PIXEL (f
));
2282 validate_x_resource_name ();
2284 /* x_set_name normally ignores requests to set the name if the
2285 requested name is the same as the current name. This is the one
2286 place where that assumption isn't correct; f->name is set, but
2287 the server hasn't been told. */
2290 int explicit = f
->explicit_name
;
2292 f
->explicit_name
= 0;
2295 x_set_name (f
, name
, explicit);
2300 if (FRAME_MAC_WINDOW (f
) == 0)
2301 error ("Unable to create window");
2304 /* Handle the icon stuff for this window. Perhaps later we might
2305 want an x_set_icon_position which can be called interactively as
2313 Lisp_Object icon_x
, icon_y
;
2315 /* Set the position of the icon. Note that Windows 95 groups all
2316 icons in the tray. */
2317 icon_x
= mac_get_arg (parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2318 icon_y
= mac_get_arg (parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2319 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2321 CHECK_NUMBER (icon_x
);
2322 CHECK_NUMBER (icon_y
);
2324 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2325 error ("Both left and top icon corners of icon must be specified");
2329 if (! EQ (icon_x
, Qunbound
))
2330 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2333 /* Start up iconic or window? */
2334 x_wm_set_window_state
2335 (f
, (EQ (w32_get_arg (parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
), Qicon
)
2339 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2352 XGCValues gc_values
;
2356 /* Create the GCs of this frame.
2357 Note that many default values are used. */
2360 gc_values
.font
= FRAME_FONT (f
);
2361 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2362 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2363 f
->output_data
.mac
->normal_gc
= XCreateGC (FRAME_MAC_DISPLAY (f
),
2364 FRAME_MAC_WINDOW (f
),
2365 GCFont
| GCForeground
| GCBackground
,
2368 /* Reverse video style. */
2369 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2370 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2371 f
->output_data
.mac
->reverse_gc
= XCreateGC (FRAME_MAC_DISPLAY (f
),
2372 FRAME_MAC_WINDOW (f
),
2373 GCFont
| GCForeground
| GCBackground
,
2376 /* Cursor has cursor-color background, background-color foreground. */
2377 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2378 gc_values
.background
= f
->output_data
.mac
->cursor_pixel
;
2379 f
->output_data
.mac
->cursor_gc
= XCreateGC (FRAME_MAC_DISPLAY (f
),
2380 FRAME_MAC_WINDOW (f
),
2381 GCFont
| GCForeground
| GCBackground
,
2385 f
->output_data
.mac
->white_relief
.gc
= 0;
2386 f
->output_data
.mac
->black_relief
.gc
= 0;
2389 /* Create the gray border tile used when the pointer is not in
2390 the frame. Since this depends on the frame's pixel values,
2391 this must be done on a per-frame basis. */
2392 f
->output_data
.x
->border_tile
2393 = (XCreatePixmapFromBitmapData
2394 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2395 gray_bits
, gray_width
, gray_height
,
2396 f
->output_data
.x
->foreground_pixel
,
2397 f
->output_data
.x
->background_pixel
,
2398 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2405 /* Free what was was allocated in x_make_gc. */
2411 Display
*dpy
= FRAME_MAC_DISPLAY (f
);
2415 if (f
->output_data
.mac
->normal_gc
)
2417 XFreeGC (dpy
, f
->output_data
.mac
->normal_gc
);
2418 f
->output_data
.mac
->normal_gc
= 0;
2421 if (f
->output_data
.mac
->reverse_gc
)
2423 XFreeGC (dpy
, f
->output_data
.mac
->reverse_gc
);
2424 f
->output_data
.mac
->reverse_gc
= 0;
2427 if (f
->output_data
.mac
->cursor_gc
)
2429 XFreeGC (dpy
, f
->output_data
.mac
->cursor_gc
);
2430 f
->output_data
.mac
->cursor_gc
= 0;
2434 if (f
->output_data
.mac
->border_tile
)
2436 XFreePixmap (dpy
, f
->output_data
.mac
->border_tile
);
2437 f
->output_data
.mac
->border_tile
= 0;
2441 if (f
->output_data
.mac
->white_relief
.gc
)
2443 XFreeGC (dpy
, f
->output_data
.mac
->white_relief
.gc
);
2444 f
->output_data
.mac
->white_relief
.gc
= 0;
2447 if (f
->output_data
.mac
->black_relief
.gc
)
2449 XFreeGC (dpy
, f
->output_data
.mac
->black_relief
.gc
);
2450 f
->output_data
.mac
->black_relief
.gc
= 0;
2457 /* Handler for signals raised during x_create_frame and
2458 x_create_top_frame. FRAME is the frame which is partially
2462 unwind_create_frame (frame
)
2465 struct frame
*f
= XFRAME (frame
);
2467 /* If frame is ``official'', nothing to do. */
2468 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2471 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2474 x_free_frame_resources (f
);
2477 /* Check that reference counts are indeed correct. */
2478 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2479 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2488 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2490 doc
: /* Make a new window, which is called a "frame" in Emacs terms.
2491 Returns an Emacs frame object.
2492 ALIST is an alist of frame parameters.
2493 If the parameters specify that the frame should not have a minibuffer,
2494 and do not specify a specific minibuffer window to use,
2495 then `default-minibuffer-frame' must be a frame whose minibuffer can
2496 be shared by the new frame.
2498 This function is an internal primitive--use `make-frame' instead. */)
2503 Lisp_Object frame
, tem
;
2505 int minibuffer_only
= 0;
2506 long window_prompting
= 0;
2508 int count
= SPECPDL_INDEX ();
2509 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
2510 Lisp_Object display
;
2511 struct mac_display_info
*dpyinfo
= NULL
;
2517 parms
= Fcopy_alist (parms
);
2519 /* Use this general default value to start with
2520 until we know if this frame has a specified name. */
2521 Vx_resource_name
= Vinvocation_name
;
2523 display
= mac_get_arg (parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
2524 if (EQ (display
, Qunbound
))
2526 dpyinfo
= check_x_display_info (display
);
2528 kb
= dpyinfo
->kboard
;
2530 kb
= &the_only_kboard
;
2533 name
= mac_get_arg (parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
2535 && ! EQ (name
, Qunbound
)
2537 error ("Invalid frame name--not a string or nil");
2540 Vx_resource_name
= name
;
2542 /* See if parent window is specified. */
2543 parent
= mac_get_arg (parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
2544 if (EQ (parent
, Qunbound
))
2546 if (! NILP (parent
))
2547 CHECK_NUMBER (parent
);
2549 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
2550 /* No need to protect DISPLAY because that's not used after passing
2551 it to make_frame_without_minibuffer. */
2553 GCPRO4 (parms
, parent
, name
, frame
);
2554 tem
= mac_get_arg (parms
, Qminibuffer
, "minibuffer", "Minibuffer",
2556 if (EQ (tem
, Qnone
) || NILP (tem
))
2557 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
2558 else if (EQ (tem
, Qonly
))
2560 f
= make_minibuffer_frame ();
2561 minibuffer_only
= 1;
2563 else if (WINDOWP (tem
))
2564 f
= make_frame_without_minibuffer (tem
, kb
, display
);
2568 XSETFRAME (frame
, f
);
2570 /* Note that X Windows does support scroll bars. */
2571 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
2573 f
->output_method
= output_mac
;
2574 f
->output_data
.mac
= (struct mac_output
*) xmalloc (sizeof (struct mac_output
));
2575 bzero (f
->output_data
.mac
, sizeof (struct mac_output
));
2576 FRAME_FONTSET (f
) = -1;
2579 = mac_get_arg (parms
, Qicon_name
, "iconName", "Title", RES_TYPE_STRING
);
2580 if (! STRINGP (f
->icon_name
))
2581 f
->icon_name
= Qnil
;
2583 /* FRAME_MAC_DISPLAY_INFO (f) = dpyinfo; */
2585 /* With FRAME_MAC_DISPLAY_INFO set up, this unwind-protect is safe. */
2586 record_unwind_protect (unwind_create_frame
, frame
);
2588 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
2589 dpyinfo_refcount
= dpyinfo
->reference_count
;
2590 #endif /* GLYPH_DEBUG */
2592 FRAME_KBOARD (f
) = kb
;
2595 /* Specify the parent under which to make this window. */
2599 f
->output_data
.mac
->parent_desc
= (Window
) XFASTINT (parent
);
2600 f
->output_data
.mac
->explicit_parent
= 1;
2604 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
2605 f
->output_data
.mac
->explicit_parent
= 0;
2608 /* Set the name; the functions to which we pass f expect the name to
2610 if (EQ (name
, Qunbound
) || NILP (name
))
2612 f
->name
= build_string (dpyinfo
->mac_id_name
);
2613 f
->explicit_name
= 0;
2618 f
->explicit_name
= 1;
2619 /* use the frame's title when getting resources for this frame. */
2620 specbind (Qx_resource_name
, name
);
2623 /* Extract the window parameters from the supplied values
2624 that are needed to determine window geometry. */
2628 font
= mac_get_arg (parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
2631 /* First, try whatever font the caller has specified. */
2634 tem
= Fquery_fontset (font
, Qnil
);
2636 font
= x_new_fontset (f
, SDATA (tem
));
2638 font
= x_new_font (f
, SDATA (font
));
2641 /* Try out a font which we hope has bold and italic variations. */
2643 if (! STRINGP (font
))
2644 font
= x_new_font (f
, "-*-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1");
2646 if (! STRINGP (font
))
2647 font
= x_new_font (f
, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1");
2648 /* If those didn't work, look for something which will at least work. */
2649 if (! STRINGP (font
))
2650 font
= x_new_fontset (f
, "fontset-standard");
2651 if (! STRINGP (font
))
2652 font
= x_new_font (f
, "-*-monaco-*-12-*-mac-roman");
2653 if (! STRINGP (font
))
2654 font
= x_new_font (f
, "-*-courier-*-10-*-mac-roman");
2655 if (! STRINGP (font
))
2656 error ("Cannot find any usable font");
2659 x_set_frame_parameters (f
, Fcons (Fcons (Qfont
, font
), Qnil
));
2662 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
2663 "borderwidth", "BorderWidth", RES_TYPE_NUMBER
);
2664 /* This defaults to 2 in order to match xterm. We recognize either
2665 internalBorderWidth or internalBorder (which is what xterm calls
2667 if (NILP (Fassq (Qinternal_border_width
, parms
)))
2671 value
= mac_get_arg (parms
, Qinternal_border_width
,
2672 "internalBorder", "InternalBorder", RES_TYPE_NUMBER
);
2673 if (! EQ (value
, Qunbound
))
2674 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
2677 /* Default internalBorderWidth to 0 on Windows to match other programs. */
2678 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (0),
2679 "internalBorderWidth", "InternalBorder", RES_TYPE_NUMBER
);
2680 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qright
,
2681 "verticalScrollBars", "ScrollBars", RES_TYPE_SYMBOL
);
2683 /* Also do the stuff which must be set before the window exists. */
2684 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
2685 "foreground", "Foreground", RES_TYPE_STRING
);
2686 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
2687 "background", "Background", RES_TYPE_STRING
);
2688 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
2689 "pointerColor", "Foreground", RES_TYPE_STRING
);
2690 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
2691 "cursorColor", "Foreground", RES_TYPE_STRING
);
2692 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
2693 "borderColor", "BorderColor", RES_TYPE_STRING
);
2694 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
2695 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
2696 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
2697 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
2698 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
2699 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
2700 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
2701 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
2704 /* Init faces before x_default_parameter is called for scroll-bar
2705 parameters because that function calls x_set_scroll_bar_width,
2706 which calls change_frame_size, which calls Fset_window_buffer,
2707 which runs hooks, which call Fvertical_motion. At the end, we
2708 end up in init_iterator with a null face cache, which should not
2710 init_frame_faces (f
);
2712 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
2713 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
2714 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
2715 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
2716 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
2717 "bufferPredicate", "BufferPredicate",
2719 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
2720 "title", "Title", RES_TYPE_STRING
);
2721 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
2722 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
2724 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
2726 /* Compute the size of the window. */
2727 window_prompting
= x_figure_window_size (f
, parms
, 1);
2729 tem
= mac_get_arg (parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
2730 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
2737 /* Now consider the frame official. */
2738 FRAME_MAC_DISPLAY_INFO (f
)->reference_count
++;
2739 Vframe_list
= Fcons (frame
, Vframe_list
);
2741 /* We need to do this after creating the window, so that the
2742 icon-creation functions can say whose icon they're describing. */
2743 x_default_parameter (f
, parms
, Qicon_type
, Qnil
,
2744 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
2746 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
2747 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
2748 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
2749 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
2750 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
2751 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
2752 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
2753 "scrollBarWidth", "ScrollBarWidth",
2756 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
2757 Change will not be effected unless different from the current
2759 width
= FRAME_COLS (f
);
2760 height
= FRAME_LINES (f
);
2762 SET_FRAME_COLS (f
, 0);
2763 FRAME_LINES (f
) = 0;
2764 change_frame_size (f
, height
, width
, 1, 0, 0);
2766 /* Tell the server what size and position, etc, we want, and how
2767 badly we want them. This should be done after we have the menu
2768 bar so that its size can be taken into account. */
2770 x_wm_set_size_hint (f
, window_prompting
, 0);
2773 /* Make the window appear on the frame and enable display, unless
2774 the caller says not to. However, with explicit parent, Emacs
2775 cannot control visibility, so don't try. */
2776 if (! f
->output_data
.mac
->explicit_parent
)
2778 Lisp_Object visibility
;
2780 visibility
= mac_get_arg (parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
);
2781 if (EQ (visibility
, Qunbound
))
2784 if (EQ (visibility
, Qicon
))
2785 x_iconify_frame (f
);
2786 else if (! NILP (visibility
))
2787 x_make_frame_visible (f
);
2789 /* Must have been Qnil. */
2793 /* Initialize `default-minibuffer-frame' in case this is the first
2794 frame on this display device. */
2795 if (FRAME_HAS_MINIBUF_P (f
)
2796 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
2797 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
2798 kb
->Vdefault_minibuffer_frame
= frame
;
2800 /* All remaining specified parameters, which have not been "used"
2801 by x_get_arg and friends, now go in the misc. alist of the frame. */
2802 for (tem
= parms
; !NILP (tem
); tem
= XCDR (tem
))
2803 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
2804 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
2808 /* Make sure windows on this frame appear in calls to next-window
2809 and similar functions. */
2810 Vwindow_list
= Qnil
;
2812 return unbind_to (count
, frame
);
2816 /* FRAME is used only to get a handle on the X display. We don't pass the
2817 display info directly because we're called from frame.c, which doesn't
2818 know about that structure. */
2821 x_get_focus_frame (frame
)
2822 struct frame
*frame
;
2824 struct mac_display_info
*dpyinfo
= FRAME_MAC_DISPLAY_INFO (frame
);
2826 if (! dpyinfo
->x_focus_frame
)
2829 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
2834 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
2835 doc
: /* Set the input focus to FRAME.
2836 FRAME nil means use the selected frame. */)
2841 ProcessSerialNumber front_psn
;
2842 static const ProcessSerialNumber current_psn
= {0, kCurrentProcess
};
2844 struct frame
*f
= check_x_frame (frame
);
2847 /* Move the current process to the foreground if it is not. Don't
2848 call SetFrontProcess if the current process is already running in
2849 the foreground so as not to change the z-order of windows. */
2850 err
= GetFrontProcess (&front_psn
);
2852 err
= SameProcess (&front_psn
, ¤t_psn
, &front_p
);
2856 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
2857 if (FrontNonFloatingWindow () == FRAME_MAC_WINDOW (f
))
2858 SetFrontProcessWithOptions (¤t_psn
,
2859 kSetFrontProcessFrontWindowOnly
);
2862 SetFrontProcess (¤t_psn
);
2866 ActivateWindow (ActiveNonFloatingWindow (), false);
2867 ActivateWindow (FRAME_MAC_WINDOW (f
), true);
2869 #if !TARGET_API_MAC_CARBON
2870 /* SelectWindow (Non-Carbon) does not issue deactivate events if the
2871 possibly inactive window that is to be selected is already the
2873 SendBehind (FRAME_MAC_WINDOW (f
), NULL
);
2875 /* This brings the window to the front. */
2876 SelectWindow (FRAME_MAC_WINDOW (f
));
2884 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
2885 doc
: /* Internal function called by `color-defined-p', which see. */)
2887 Lisp_Object color
, frame
;
2890 FRAME_PTR f
= check_x_frame (frame
);
2892 CHECK_STRING (color
);
2894 if (mac_defined_color (f
, SDATA (color
), &foo
, 0))
2900 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
2901 doc
: /* Internal function called by `color-values', which see. */)
2903 Lisp_Object color
, frame
;
2906 FRAME_PTR f
= check_x_frame (frame
);
2908 CHECK_STRING (color
);
2910 if (mac_defined_color (f
, SDATA (color
), &foo
, 0))
2911 return list3 (make_number (foo
.red
),
2912 make_number (foo
.green
),
2913 make_number (foo
.blue
));
2918 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
2919 doc
: /* Internal function called by `display-color-p', which see. */)
2921 Lisp_Object display
;
2923 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2925 if (!dpyinfo
->color_p
)
2931 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
2933 doc
: /* Return t if DISPLAY supports shades of gray.
2934 Note that color displays do support shades of gray.
2935 The optional argument DISPLAY specifies which display to ask about.
2936 DISPLAY should be either a frame or a display name (a string).
2937 If omitted or nil, that stands for the selected frame's display. */)
2939 Lisp_Object display
;
2941 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2943 if (dpyinfo
->n_planes
<= 1)
2949 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
2951 doc
: /* Returns the width in pixels of DISPLAY.
2952 The optional argument DISPLAY specifies which display to ask about.
2953 DISPLAY should be either a frame or a display name (a string).
2954 If omitted or nil, that stands for the selected frame's display. */)
2956 Lisp_Object display
;
2958 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2960 return make_number (dpyinfo
->width
);
2963 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
2964 Sx_display_pixel_height
, 0, 1, 0,
2965 doc
: /* Returns the height in pixels of DISPLAY.
2966 The optional argument DISPLAY specifies which display to ask about.
2967 DISPLAY should be either a frame or a display name (a string).
2968 If omitted or nil, that stands for the selected frame's display. */)
2970 Lisp_Object display
;
2972 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2974 return make_number (dpyinfo
->height
);
2977 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
2979 doc
: /* Returns the number of bitplanes of DISPLAY.
2980 The optional argument DISPLAY specifies which display to ask about.
2981 DISPLAY should be either a frame or a display name (a string).
2982 If omitted or nil, that stands for the selected frame's display. */)
2984 Lisp_Object display
;
2986 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2988 return make_number (dpyinfo
->n_planes
);
2991 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
2993 doc
: /* Returns the number of color cells of DISPLAY.
2994 The optional argument DISPLAY specifies which display to ask about.
2995 DISPLAY should be either a frame or a display name (a string).
2996 If omitted or nil, that stands for the selected frame's display. */)
2998 Lisp_Object display
;
3000 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3002 /* We force 24+ bit depths to 24-bit to prevent an overflow. */
3003 return make_number (1 << min (dpyinfo
->n_planes
, 24));
3006 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3007 Sx_server_max_request_size
,
3009 doc
: /* Returns the maximum request size of the server of DISPLAY.
3010 The optional argument DISPLAY specifies which display to ask about.
3011 DISPLAY should be either a frame or a display name (a string).
3012 If omitted or nil, that stands for the selected frame's display. */)
3014 Lisp_Object display
;
3016 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3018 return make_number (1);
3021 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3022 doc
: /* Returns the "vendor ID" string of the Mac OS system (Apple).
3023 The optional argument DISPLAY specifies which display to ask about.
3024 DISPLAY should be either a frame or a display name (a string).
3025 If omitted or nil, that stands for the selected frame's display. */)
3027 Lisp_Object display
;
3029 return build_string ("Apple Inc.");
3032 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3033 doc
: /* Returns the version numbers of the Mac OS system.
3034 The value is a list of three integers: the major and minor
3035 version numbers, and the vendor-specific release
3036 number. See also the function `x-server-vendor'.
3038 The optional argument DISPLAY specifies which display to ask about.
3039 DISPLAY should be either a frame or a display name (a string).
3040 If omitted or nil, that stands for the selected frame's display. */)
3042 Lisp_Object display
;
3044 UInt32 response
, major
, minor
, bugfix
;
3048 err
= Gestalt (gestaltSystemVersion
, &response
);
3051 if (response
>= 0x00001040)
3053 err
= Gestalt (gestaltSystemVersionMajor
, &major
);
3055 err
= Gestalt (gestaltSystemVersionMinor
, &minor
);
3057 err
= Gestalt (gestaltSystemVersionBugFix
, &bugfix
);
3061 bugfix
= response
& 0xf;
3063 minor
= response
& 0xf;
3065 /* convert BCD to int */
3066 major
= response
- (response
>> 4) * 6;
3072 error ("Cannot get Mac OS version");
3074 return Fcons (make_number (major
),
3075 Fcons (make_number (minor
),
3076 Fcons (make_number (bugfix
),
3080 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3081 doc
: /* Return the number of screens on the server of DISPLAY.
3082 The optional argument DISPLAY specifies which display to ask about.
3083 DISPLAY should be either a frame or a display name (a string).
3084 If omitted or nil, that stands for the selected frame's display. */)
3086 Lisp_Object display
;
3088 return make_number (1);
3091 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3092 doc
: /* Return the height in millimeters of DISPLAY.
3093 The optional argument DISPLAY specifies which display to ask about.
3094 DISPLAY should be either a frame or a display name (a string).
3095 If omitted or nil, that stands for the selected frame's display. */)
3097 Lisp_Object display
;
3099 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3102 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
3103 #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3104 if (CGDisplayScreenSize
!= NULL
)
3110 size
= CGDisplayScreenSize (kCGDirectMainDisplay
);
3111 mm_per_pixel
= size
.height
/ CGDisplayPixelsHigh (kCGDirectMainDisplay
);
3114 #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3117 #endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 */
3118 #if MAC_OS_X_VERSION_MAX_ALLOWED < 1030 || MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3120 /* This is an approximation. */
3121 mm_per_pixel
= 25.4f
/ dpyinfo
->resy
;
3125 return make_number ((int) (dpyinfo
->height
* mm_per_pixel
+ 0.5f
));
3128 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3129 doc
: /* Return the width in millimeters of DISPLAY.
3130 The optional argument DISPLAY specifies which display to ask about.
3131 DISPLAY should be either a frame or a display name (a string).
3132 If omitted or nil, that stands for the selected frame's display. */)
3134 Lisp_Object display
;
3136 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3139 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
3140 #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3141 if (CGDisplayScreenSize
!= NULL
)
3147 size
= CGDisplayScreenSize (kCGDirectMainDisplay
);
3148 mm_per_pixel
= size
.width
/ CGDisplayPixelsWide (kCGDirectMainDisplay
);
3151 #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3154 #endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 */
3155 #if MAC_OS_X_VERSION_MAX_ALLOWED < 1030 || MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3157 /* This is an approximation. */
3158 mm_per_pixel
= 25.4f
/ dpyinfo
->resx
;
3162 return make_number ((int) (dpyinfo
->width
* mm_per_pixel
+ 0.5f
));
3165 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3166 Sx_display_backing_store
, 0, 1, 0,
3167 doc
: /* Returns an indication of whether DISPLAY does backing store.
3168 The value may be `always', `when-mapped', or `not-useful'.
3169 The optional argument DISPLAY specifies which display to ask about.
3170 DISPLAY should be either a frame or a display name (a string).
3171 If omitted or nil, that stands for the selected frame's display. */)
3173 Lisp_Object display
;
3175 return intern ("not-useful");
3178 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3179 Sx_display_visual_class
, 0, 1, 0,
3180 doc
: /* Returns the visual class of DISPLAY.
3181 The value is one of the symbols `static-gray', `gray-scale',
3182 `static-color', `pseudo-color', `true-color', or `direct-color'.
3184 The optional argument DISPLAY specifies which display to ask about.
3185 DISPLAY should be either a frame or a display name (a string).
3186 If omitted or nil, that stands for the selected frame's display. */)
3188 Lisp_Object display
;
3190 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3193 switch (dpyinfo
->visual
->class)
3195 case StaticGray
: return (intern ("static-gray"));
3196 case GrayScale
: return (intern ("gray-scale"));
3197 case StaticColor
: return (intern ("static-color"));
3198 case PseudoColor
: return (intern ("pseudo-color"));
3199 case TrueColor
: return (intern ("true-color"));
3200 case DirectColor
: return (intern ("direct-color"));
3202 error ("Display has an unknown visual class");
3206 return (intern ("true-color"));
3209 DEFUN ("x-display-save-under", Fx_display_save_under
,
3210 Sx_display_save_under
, 0, 1, 0,
3211 doc
: /* Returns t if DISPLAY supports the save-under feature.
3212 The optional argument DISPLAY specifies which display to ask about.
3213 DISPLAY should be either a frame or a display name (a string).
3214 If omitted or nil, that stands for the selected frame's display. */)
3216 Lisp_Object display
;
3223 register struct frame
*f
;
3225 return FRAME_PIXEL_WIDTH (f
);
3230 register struct frame
*f
;
3232 return FRAME_PIXEL_HEIGHT (f
);
3237 register struct frame
*f
;
3239 return FRAME_COLUMN_WIDTH (f
);
3244 register struct frame
*f
;
3246 return FRAME_LINE_HEIGHT (f
);
3251 register struct frame
*f
;
3253 return FRAME_MAC_DISPLAY_INFO (f
)->n_planes
;
3256 /* Return the display structure for the display named NAME.
3257 Open a new connection if necessary. */
3259 struct mac_display_info
*
3260 x_display_info_for_name (name
)
3264 struct mac_display_info
*dpyinfo
;
3266 CHECK_STRING (name
);
3268 if (! EQ (Vwindow_system
, intern ("mac")))
3269 error ("Not using Mac native windows");
3271 for (dpyinfo
= &one_mac_display_info
, names
= x_display_name_list
;
3273 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
3276 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
3281 /* Use this general default value to start with. */
3282 Vx_resource_name
= Vinvocation_name
;
3284 validate_x_resource_name ();
3286 dpyinfo
= mac_term_init (name
, (unsigned char *) 0,
3287 (char *) SDATA (Vx_resource_name
));
3290 error ("Cannot connect to server %s", SDATA (name
));
3293 XSETFASTINT (Vwindow_system_version
, 3);
3298 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
3300 doc
: /* Open a connection to a server.
3301 DISPLAY is the name of the display to connect to.
3302 Optional second arg XRM-STRING is a string of resources in xrdb format.
3303 If the optional third arg MUST-SUCCEED is non-nil,
3304 terminate Emacs if we can't open the connection. */)
3305 (display
, xrm_string
, must_succeed
)
3306 Lisp_Object display
, xrm_string
, must_succeed
;
3308 unsigned char *xrm_option
;
3309 struct mac_display_info
*dpyinfo
;
3311 CHECK_STRING (display
);
3312 if (! NILP (xrm_string
))
3313 CHECK_STRING (xrm_string
);
3315 if (! EQ (Vwindow_system
, intern ("mac")))
3316 error ("Not using Mac native windows");
3318 if (! NILP (xrm_string
))
3319 xrm_option
= (unsigned char *) SDATA (xrm_string
);
3321 xrm_option
= (unsigned char *) 0;
3323 validate_x_resource_name ();
3325 /* This is what opens the connection and sets x_current_display.
3326 This also initializes many symbols, such as those used for input. */
3327 dpyinfo
= mac_term_init (display
, xrm_option
,
3328 (char *) SDATA (Vx_resource_name
));
3332 if (!NILP (must_succeed
))
3333 fatal ("Cannot connect to server %s.\n",
3336 error ("Cannot connect to server %s", SDATA (display
));
3341 XSETFASTINT (Vwindow_system_version
, 3);
3345 DEFUN ("x-close-connection", Fx_close_connection
,
3346 Sx_close_connection
, 1, 1, 0,
3347 doc
: /* Close the connection to DISPLAY's server.
3348 For DISPLAY, specify either a frame or a display name (a string).
3349 If DISPLAY is nil, that stands for the selected frame's display. */)
3351 Lisp_Object display
;
3353 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3356 if (dpyinfo
->reference_count
> 0)
3357 error ("Display still has frames on it");
3360 /* Free the fonts in the font table. */
3361 for (i
= 0; i
< dpyinfo
->n_fonts
; i
++)
3362 if (dpyinfo
->font_table
[i
].name
)
3364 mac_unload_font (dpyinfo
, dpyinfo
->font_table
[i
].font
);
3367 x_destroy_all_bitmaps (dpyinfo
);
3369 x_delete_display (dpyinfo
);
3375 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
3376 doc
: /* Return the list of display names that Emacs has connections to. */)
3379 Lisp_Object tail
, result
;
3382 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
3383 result
= Fcons (XCAR (XCAR (tail
)), result
);
3388 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
3389 doc
: /* This is a noop on Mac OS systems. */)
3391 Lisp_Object display
, on
;
3396 /* x_sync is a no-op on Mac. */
3405 /***********************************************************************
3407 ***********************************************************************/
3409 DEFUN ("x-change-window-property", Fx_change_window_property
,
3410 Sx_change_window_property
, 2, 6, 0,
3411 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
3412 VALUE may be a string or a list of conses, numbers and/or strings.
3413 If an element in the list is a string, it is converted to
3414 an Atom and the value of the Atom is used. If an element is a cons,
3415 it is converted to a 32 bit number where the car is the 16 top bits and the
3416 cdr is the lower 16 bits.
3417 FRAME nil or omitted means use the selected frame.
3418 If TYPE is given and non-nil, it is the name of the type of VALUE.
3419 If TYPE is not given or nil, the type is STRING.
3420 FORMAT gives the size in bits of each element if VALUE is a list.
3421 It must be one of 8, 16 or 32.
3422 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
3423 If OUTER_P is non-nil, the property is changed for the outer X window of
3424 FRAME. Default is to change on the edit X window.
3427 (prop
, value
, frame
, type
, format
, outer_p
)
3428 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
3430 #if 0 /* MAC_TODO : port window properties to Mac */
3431 struct frame
*f
= check_x_frame (frame
);
3434 CHECK_STRING (prop
);
3435 CHECK_STRING (value
);
3438 prop_atom
= XInternAtom (FRAME_W32_DISPLAY (f
), SDATA (prop
), False
);
3439 XChangeProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
),
3440 prop_atom
, XA_STRING
, 8, PropModeReplace
,
3441 SDATA (value
), SCHARS (value
));
3443 /* Make sure the property is set when we return. */
3444 XFlush (FRAME_W32_DISPLAY (f
));
3447 #endif /* MAC_TODO */
3453 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
3454 Sx_delete_window_property
, 1, 2, 0,
3455 doc
: /* Remove window property PROP from X window of FRAME.
3456 FRAME nil or omitted means use the selected frame. Value is PROP. */)
3458 Lisp_Object prop
, frame
;
3460 #if 0 /* MAC_TODO : port window properties to Mac */
3462 struct frame
*f
= check_x_frame (frame
);
3465 CHECK_STRING (prop
);
3467 prop_atom
= XInternAtom (FRAME_W32_DISPLAY (f
), SDATA (prop
), False
);
3468 XDeleteProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
), prop_atom
);
3470 /* Make sure the property is removed when we return. */
3471 XFlush (FRAME_W32_DISPLAY (f
));
3473 #endif /* MAC_TODO */
3479 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
3481 doc
: /* Value is the value of window property PROP on FRAME.
3482 If FRAME is nil or omitted, use the selected frame. Value is nil
3483 if FRAME hasn't a property with name PROP or if PROP has no string
3486 Lisp_Object prop
, frame
;
3488 #if 0 /* MAC_TODO : port window properties to Mac */
3490 struct frame
*f
= check_x_frame (frame
);
3493 Lisp_Object prop_value
= Qnil
;
3494 char *tmp_data
= NULL
;
3497 unsigned long actual_size
, bytes_remaining
;
3499 CHECK_STRING (prop
);
3501 prop_atom
= XInternAtom (FRAME_W32_DISPLAY (f
), SDATA (prop
), False
);
3502 rc
= XGetWindowProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
),
3503 prop_atom
, 0, 0, False
, XA_STRING
,
3504 &actual_type
, &actual_format
, &actual_size
,
3505 &bytes_remaining
, (unsigned char **) &tmp_data
);
3508 int size
= bytes_remaining
;
3513 rc
= XGetWindowProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
),
3514 prop_atom
, 0, bytes_remaining
,
3516 &actual_type
, &actual_format
,
3517 &actual_size
, &bytes_remaining
,
3518 (unsigned char **) &tmp_data
);
3520 prop_value
= make_string (tmp_data
, size
);
3529 #endif /* MAC_TODO */
3535 /***********************************************************************
3537 ***********************************************************************/
3539 /* If non-null, an asynchronous timer that, when it expires, displays
3540 an hourglass cursor on all frames. */
3542 static struct atimer
*hourglass_atimer
;
3544 /* Non-zero means an hourglass cursor is currently shown. */
3546 static int hourglass_shown_p
;
3548 /* Number of seconds to wait before displaying an hourglass cursor. */
3550 static Lisp_Object Vhourglass_delay
;
3552 /* Default number of seconds to wait before displaying an hourglass
3555 #define DEFAULT_HOURGLASS_DELAY 1
3557 /* Function prototypes. */
3559 static void show_hourglass
P_ ((struct atimer
*));
3560 static void hide_hourglass
P_ ((void));
3562 /* Return non-zero if houglass timer has been started or hourglass is shown. */
3565 hourglass_started ()
3567 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
3571 /* Cancel a currently active hourglass timer, and start a new one. */
3578 int secs
, usecs
= 0;
3580 /* Don't bother for ttys. */
3581 if (NILP (Vwindow_system
))
3584 cancel_hourglass ();
3586 if (INTEGERP (Vhourglass_delay
)
3587 && XINT (Vhourglass_delay
) > 0)
3588 secs
= XFASTINT (Vhourglass_delay
);
3589 else if (FLOATP (Vhourglass_delay
)
3590 && XFLOAT_DATA (Vhourglass_delay
) > 0)
3593 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
3594 secs
= XFASTINT (tem
);
3595 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
3598 secs
= DEFAULT_HOURGLASS_DELAY
;
3600 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
3601 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
3602 show_hourglass
, NULL
);
3603 #endif /* MAC_OSX */
3607 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
3614 if (hourglass_atimer
)
3616 cancel_atimer (hourglass_atimer
);
3617 hourglass_atimer
= NULL
;
3620 if (hourglass_shown_p
)
3622 #endif /* MAC_OSX */
3626 /* Timer function of hourglass_atimer. TIMER is equal to
3629 On Mac, busy status is shown by the progress indicator (chasing
3630 arrows) at the upper-right corner of each frame instead of the
3631 hourglass pointer. */
3634 show_hourglass (timer
)
3635 struct atimer
*timer
;
3637 #if TARGET_API_MAC_CARBON
3638 /* The timer implementation will cancel this timer automatically
3639 after this function has run. Set hourglass_atimer to null
3640 so that we know the timer doesn't have to be canceled. */
3641 hourglass_atimer
= NULL
;
3643 if (!hourglass_shown_p
)
3645 Lisp_Object rest
, frame
;
3649 FOR_EACH_FRAME (rest
, frame
)
3651 struct frame
*f
= XFRAME (frame
);
3653 if (FRAME_LIVE_P (f
) && FRAME_MAC_P (f
)
3654 && FRAME_MAC_WINDOW (f
) != tip_window
)
3657 mac_prepare_for_quickdraw (f
);
3659 if (!f
->output_data
.mac
->hourglass_control
)
3661 Window w
= FRAME_MAC_WINDOW (f
);
3665 GetWindowPortBounds (w
, &r
);
3666 r
.left
= r
.right
- HOURGLASS_WIDTH
;
3667 r
.bottom
= r
.top
+ HOURGLASS_HEIGHT
;
3668 if (CreateChasingArrowsControl (w
, &r
, &c
) == noErr
)
3669 f
->output_data
.mac
->hourglass_control
= c
;
3672 if (f
->output_data
.mac
->hourglass_control
)
3673 ShowControl (f
->output_data
.mac
->hourglass_control
);
3677 hourglass_shown_p
= 1;
3680 #endif /* TARGET_API_MAC_CARBON */
3684 /* Hide the progress indicators on all frames, if it is currently
3690 #if TARGET_API_MAC_CARBON
3691 if (hourglass_shown_p
)
3693 Lisp_Object rest
, frame
;
3696 FOR_EACH_FRAME (rest
, frame
)
3698 struct frame
*f
= XFRAME (frame
);
3701 /* Watch out for newly created frames. */
3702 && f
->output_data
.mac
->hourglass_control
)
3705 mac_prepare_for_quickdraw (f
);
3707 HideControl (f
->output_data
.mac
->hourglass_control
);
3711 hourglass_shown_p
= 0;
3714 #endif /* TARGET_API_MAC_CARBON */
3719 /***********************************************************************
3721 ***********************************************************************/
3723 static Lisp_Object x_create_tip_frame
P_ ((struct mac_display_info
*,
3724 Lisp_Object
, Lisp_Object
));
3725 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
3726 Lisp_Object
, int, int, int *, int *));
3728 /* The frame of a currently visible tooltip. */
3730 Lisp_Object tip_frame
;
3732 /* If non-nil, a timer started that hides the last tooltip when it
3735 Lisp_Object tip_timer
;
3738 /* If non-nil, a vector of 3 elements containing the last args
3739 with which x-show-tip was called. See there. */
3741 Lisp_Object last_show_tip_args
;
3743 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
3745 Lisp_Object Vx_max_tooltip_size
;
3749 unwind_create_tip_frame (frame
)
3752 Lisp_Object deleted
;
3754 deleted
= unwind_create_frame (frame
);
3755 if (EQ (deleted
, Qt
))
3765 /* Create a frame for a tooltip on the display described by DPYINFO.
3766 PARMS is a list of frame parameters. TEXT is the string to
3767 display in the tip frame. Value is the frame.
3769 Note that functions called here, esp. x_default_parameter can
3770 signal errors, for instance when a specified color name is
3771 undefined. We have to make sure that we're in a consistent state
3772 when this happens. */
3775 x_create_tip_frame (dpyinfo
, parms
, text
)
3776 struct mac_display_info
*dpyinfo
;
3777 Lisp_Object parms
, text
;
3780 Lisp_Object frame
, tem
;
3782 long window_prompting
= 0;
3784 int count
= SPECPDL_INDEX ();
3785 struct gcpro gcpro1
, gcpro2
, gcpro3
;
3787 int face_change_count_before
= face_change_count
;
3789 struct buffer
*old_buffer
;
3793 parms
= Fcopy_alist (parms
);
3796 kb
= dpyinfo
->kboard
;
3798 kb
= &the_only_kboard
;
3801 /* Get the name of the frame to use for resource lookup. */
3802 name
= mac_get_arg (parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3804 && !EQ (name
, Qunbound
)
3806 error ("Invalid frame name--not a string or nil");
3809 GCPRO3 (parms
, name
, frame
);
3811 XSETFRAME (frame
, f
);
3813 buffer
= Fget_buffer_create (build_string (" *tip*"));
3814 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
3815 old_buffer
= current_buffer
;
3816 set_buffer_internal_1 (XBUFFER (buffer
));
3817 current_buffer
->truncate_lines
= Qnil
;
3818 specbind (Qinhibit_read_only
, Qt
);
3819 specbind (Qinhibit_modification_hooks
, Qt
);
3822 set_buffer_internal_1 (old_buffer
);
3824 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
3825 record_unwind_protect (unwind_create_tip_frame
, frame
);
3827 /* By setting the output method, we're essentially saying that
3828 the frame is live, as per FRAME_LIVE_P. If we get a signal
3829 from this point on, x_destroy_window might screw up reference
3831 f
->output_method
= output_mac
;
3832 f
->output_data
.mac
=
3833 (struct mac_output
*) xmalloc (sizeof (struct mac_output
));
3834 bzero (f
->output_data
.mac
, sizeof (struct mac_output
));
3836 FRAME_FONTSET (f
) = -1;
3837 f
->icon_name
= Qnil
;
3838 /* FRAME_X_DISPLAY_INFO (f) = dpyinfo; */
3840 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
3841 dpyinfo_refcount
= dpyinfo
->reference_count
;
3842 #endif /* GLYPH_DEBUG */
3844 FRAME_KBOARD (f
) = kb
;
3846 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
3847 f
->output_data
.mac
->explicit_parent
= 0;
3849 /* Set the name; the functions to which we pass f expect the name to
3851 if (EQ (name
, Qunbound
) || NILP (name
))
3853 f
->name
= build_string (dpyinfo
->mac_id_name
);
3854 f
->explicit_name
= 0;
3859 f
->explicit_name
= 1;
3860 /* use the frame's title when getting resources for this frame. */
3861 specbind (Qx_resource_name
, name
);
3864 /* Extract the window parameters from the supplied values that are
3865 needed to determine window geometry. */
3869 font
= mac_get_arg (parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3872 /* First, try whatever font the caller has specified. */
3875 tem
= Fquery_fontset (font
, Qnil
);
3877 font
= x_new_fontset (f
, SDATA (tem
));
3879 font
= x_new_font (f
, SDATA (font
));
3882 /* Try out a font which we hope has bold and italic variations. */
3884 if (! STRINGP (font
))
3885 font
= x_new_font (f
, "-*-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1");
3887 if (! STRINGP (font
))
3888 font
= x_new_font (f
, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1");
3889 /* If those didn't work, look for something which will at least work. */
3890 if (! STRINGP (font
))
3891 font
= x_new_fontset (f
, "fontset-standard");
3892 if (! STRINGP (font
))
3893 font
= x_new_font (f
, "-*-monaco-*-12-*-mac-roman");
3894 if (! STRINGP (font
))
3895 font
= x_new_font (f
, "-*-courier-*-10-*-mac-roman");
3897 if (! STRINGP (font
))
3898 error ("Cannot find any usable font");
3900 x_default_parameter (f
, parms
, Qfont
, font
,
3901 "font", "Font", RES_TYPE_STRING
);
3904 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3905 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3907 /* This defaults to 2 in order to match xterm. We recognize either
3908 internalBorderWidth or internalBorder (which is what xterm calls
3910 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3914 value
= mac_get_arg (parms
, Qinternal_border_width
,
3915 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3916 if (! EQ (value
, Qunbound
))
3917 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3921 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3922 "internalBorderWidth", "internalBorderWidth",
3925 /* Also do the stuff which must be set before the window exists. */
3926 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3927 "foreground", "Foreground", RES_TYPE_STRING
);
3928 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3929 "background", "Background", RES_TYPE_STRING
);
3930 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3931 "pointerColor", "Foreground", RES_TYPE_STRING
);
3932 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3933 "cursorColor", "Foreground", RES_TYPE_STRING
);
3934 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3935 "borderColor", "BorderColor", RES_TYPE_STRING
);
3937 /* Init faces before x_default_parameter is called for scroll-bar
3938 parameters because that function calls x_set_scroll_bar_width,
3939 which calls change_frame_size, which calls Fset_window_buffer,
3940 which runs hooks, which call Fvertical_motion. At the end, we
3941 end up in init_iterator with a null face cache, which should not
3943 init_frame_faces (f
);
3945 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
3947 window_prompting
= x_figure_window_size (f
, parms
, 0);
3953 SetRect (&r
, 0, 0, 1, 1);
3954 #if TARGET_API_MAC_CARBON
3955 if (CreateNewWindow (kHelpWindowClass
,
3956 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
3957 kWindowIgnoreClicksAttribute
|
3959 kWindowNoUpdatesAttribute
|
3960 kWindowNoActivatesAttribute
,
3961 &r
, &tip_window
) == noErr
)
3963 if (tip_window
= NewCWindow (NULL
, &r
, "\p", false, plainDBox
,
3967 FRAME_MAC_WINDOW (f
) = tip_window
;
3968 XSetWindowBackground (FRAME_MAC_DISPLAY(f
), tip_window
,
3969 FRAME_BACKGROUND_PIXEL (f
));
3970 SetWRefCon (tip_window
, (long) f
->output_data
.mac
);
3971 /* so that update events can find this mac_output struct */
3972 f
->output_data
.mac
->mFP
= f
;
3979 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3980 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3981 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3982 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3983 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3984 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3986 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3987 Change will not be effected unless different from the current
3989 width
= FRAME_COLS (f
);
3990 height
= FRAME_LINES (f
);
3991 SET_FRAME_COLS (f
, 0);
3992 FRAME_LINES (f
) = 0;
3993 change_frame_size (f
, height
, width
, 1, 0, 0);
3995 /* Add `tooltip' frame parameter's default value. */
3996 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
3997 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4000 /* Set up faces after all frame parameters are known. This call
4001 also merges in face attributes specified for new frames.
4003 Frame parameters may be changed if .Xdefaults contains
4004 specifications for the default font. For example, if there is an
4005 `Emacs.default.attributeBackground: pink', the `background-color'
4006 attribute of the frame get's set, which let's the internal border
4007 of the tooltip frame appear in pink. Prevent this. */
4009 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4011 /* Set tip_frame here, so that */
4013 call1 (Qface_set_after_frame_default
, frame
);
4015 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4016 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4024 /* It is now ok to make the frame official even if we get an error
4025 below. And the frame needs to be on Vframe_list or making it
4026 visible won't work. */
4027 Vframe_list
= Fcons (frame
, Vframe_list
);
4029 /* Now that the frame is official, it counts as a reference to
4031 FRAME_MAC_DISPLAY_INFO (f
)->reference_count
++;
4033 /* Setting attributes of faces of the tooltip frame from resources
4034 and similar will increment face_change_count, which leads to the
4035 clearing of all current matrices. Since this isn't necessary
4036 here, avoid it by resetting face_change_count to the value it
4037 had before we created the tip frame. */
4038 face_change_count
= face_change_count_before
;
4040 /* Discard the unwind_protect. */
4041 return unbind_to (count
, frame
);
4045 /* Compute where to display tip frame F. PARMS is the list of frame
4046 parameters for F. DX and DY are specified offsets from the current
4047 location of the mouse. WIDTH and HEIGHT are the width and height
4048 of the tooltip. Return coordinates relative to the root window of
4049 the display in *ROOT_X, and *ROOT_Y. */
4052 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4054 Lisp_Object parms
, dx
, dy
;
4056 int *root_x
, *root_y
;
4058 Lisp_Object left
, top
;
4060 /* User-specified position? */
4061 left
= Fcdr (Fassq (Qleft
, parms
));
4062 top
= Fcdr (Fassq (Qtop
, parms
));
4064 /* Move the tooltip window where the mouse pointer is. Resize and
4066 if (!INTEGERP (left
) || !INTEGERP (top
))
4071 GetMouse (&mouse_pos
);
4072 LocalToGlobal (&mouse_pos
);
4073 *root_x
= mouse_pos
.h
;
4074 *root_y
= mouse_pos
.v
;
4079 *root_y
= XINT (top
);
4080 else if (*root_y
+ XINT (dy
) <= 0)
4081 *root_y
= 0; /* Can happen for negative dy */
4082 else if (*root_y
+ XINT (dy
) + height
<= FRAME_MAC_DISPLAY_INFO (f
)->height
)
4083 /* It fits below the pointer */
4084 *root_y
+= XINT (dy
);
4085 else if (height
+ XINT (dy
) <= *root_y
)
4086 /* It fits above the pointer. */
4087 *root_y
-= height
+ XINT (dy
);
4089 /* Put it on the top. */
4092 if (INTEGERP (left
))
4093 *root_x
= XINT (left
);
4094 else if (*root_x
+ XINT (dx
) <= 0)
4095 *root_x
= 0; /* Can happen for negative dx */
4096 else if (*root_x
+ XINT (dx
) + width
<= FRAME_MAC_DISPLAY_INFO (f
)->width
)
4097 /* It fits to the right of the pointer. */
4098 *root_x
+= XINT (dx
);
4099 else if (width
+ XINT (dx
) <= *root_x
)
4100 /* It fits to the left of the pointer. */
4101 *root_x
-= width
+ XINT (dx
);
4103 /* Put it left-justified on the screen -- it ought to fit that way. */
4108 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4109 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4110 A tooltip window is a small window displaying a string.
4112 This is an internal function; Lisp code should call `tooltip-show'.
4114 FRAME nil or omitted means use the selected frame.
4116 PARMS is an optional list of frame parameters which can be used to
4117 change the tooltip's appearance.
4119 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4120 means use the default timeout of 5 seconds.
4122 If the list of frame parameters PARMS contains a `left' parameter,
4123 the tooltip is displayed at that x-position. Otherwise it is
4124 displayed at the mouse position, with offset DX added (default is 5 if
4125 DX isn't specified). Likewise for the y-position; if a `top' frame
4126 parameter is specified, it determines the y-position of the tooltip
4127 window, otherwise it is displayed at the mouse position, with offset
4128 DY added (default is -10).
4130 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4131 Text larger than the specified size is clipped. */)
4132 (string
, frame
, parms
, timeout
, dx
, dy
)
4133 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
4138 struct buffer
*old_buffer
;
4139 struct text_pos pos
;
4140 int i
, width
, height
;
4141 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
4142 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
4143 int count
= SPECPDL_INDEX ();
4145 specbind (Qinhibit_redisplay
, Qt
);
4147 GCPRO4 (string
, parms
, frame
, timeout
);
4149 CHECK_STRING (string
);
4150 f
= check_x_frame (frame
);
4152 timeout
= make_number (5);
4154 CHECK_NATNUM (timeout
);
4157 dx
= make_number (5);
4162 dy
= make_number (-10);
4166 if (NILP (last_show_tip_args
))
4167 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
4169 if (!NILP (tip_frame
))
4171 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
4172 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
4173 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
4175 if (EQ (frame
, last_frame
)
4176 && !NILP (Fequal (last_string
, string
))
4177 && !NILP (Fequal (last_parms
, parms
)))
4179 struct frame
*f
= XFRAME (tip_frame
);
4181 /* Only DX and DY have changed. */
4182 if (!NILP (tip_timer
))
4184 Lisp_Object timer
= tip_timer
;
4186 call1 (Qcancel_timer
, timer
);
4190 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
4191 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
4192 MoveWindow (FRAME_MAC_WINDOW (f
), root_x
, root_y
, false);
4198 /* Hide a previous tip, if any. */
4201 ASET (last_show_tip_args
, 0, string
);
4202 ASET (last_show_tip_args
, 1, frame
);
4203 ASET (last_show_tip_args
, 2, parms
);
4205 /* Add default values to frame parameters. */
4206 if (NILP (Fassq (Qname
, parms
)))
4207 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
4208 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4209 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
4210 if (NILP (Fassq (Qborder_width
, parms
)))
4211 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
4212 if (NILP (Fassq (Qborder_color
, parms
)))
4213 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
4214 if (NILP (Fassq (Qbackground_color
, parms
)))
4215 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
4218 /* Create a frame for the tooltip, and record it in the global
4219 variable tip_frame. */
4220 frame
= x_create_tip_frame (FRAME_MAC_DISPLAY_INFO (f
), parms
, string
);
4223 /* Set up the frame's root window. */
4224 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
4225 w
->left_col
= w
->top_line
= make_number (0);
4227 if (CONSP (Vx_max_tooltip_size
)
4228 && INTEGERP (XCAR (Vx_max_tooltip_size
))
4229 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
4230 && INTEGERP (XCDR (Vx_max_tooltip_size
))
4231 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
4233 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
4234 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
4238 w
->total_cols
= make_number (80);
4239 w
->total_lines
= make_number (40);
4242 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
4244 w
->pseudo_window_p
= 1;
4246 /* Display the tooltip text in a temporary buffer. */
4247 old_buffer
= current_buffer
;
4248 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
4249 current_buffer
->truncate_lines
= Qnil
;
4250 clear_glyph_matrix (w
->desired_matrix
);
4251 clear_glyph_matrix (w
->current_matrix
);
4252 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
4253 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
4255 /* Compute width and height of the tooltip. */
4257 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
4259 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
4263 /* Stop at the first empty row at the end. */
4264 if (!row
->enabled_p
|| !row
->displays_text_p
)
4267 /* Let the row go over the full width of the frame. */
4268 row
->full_width_p
= 1;
4270 /* There's a glyph at the end of rows that is used to place
4271 the cursor there. Don't include the width of this glyph. */
4272 if (row
->used
[TEXT_AREA
])
4274 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
4275 row_width
= row
->pixel_width
- last
->pixel_width
;
4278 row_width
= row
->pixel_width
;
4280 height
+= row
->height
;
4281 width
= max (width
, row_width
);
4284 /* Add the frame's internal border to the width and height the X
4285 window should have. */
4286 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
4287 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
4289 /* Move the tooltip window where the mouse pointer is. Resize and
4291 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
4294 MoveWindow (FRAME_MAC_WINDOW (f
), root_x
, root_y
, false);
4295 SizeWindow (FRAME_MAC_WINDOW (f
), width
, height
, true);
4296 ShowWindow (FRAME_MAC_WINDOW (f
));
4297 BringToFront (FRAME_MAC_WINDOW (f
));
4300 FRAME_PIXEL_WIDTH (f
) = width
;
4301 FRAME_PIXEL_HEIGHT (f
) = height
;
4303 /* Draw into the window. */
4304 w
->must_be_updated_p
= 1;
4305 update_single_window (w
, 1);
4307 /* Restore original current buffer. */
4308 set_buffer_internal_1 (old_buffer
);
4309 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
4312 /* Let the tip disappear after timeout seconds. */
4313 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
4314 intern ("x-hide-tip"));
4317 return unbind_to (count
, Qnil
);
4321 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
4322 doc
: /* Hide the current tooltip window, if there is any.
4323 Value is t if tooltip was open, nil otherwise. */)
4327 Lisp_Object deleted
, frame
, timer
;
4328 struct gcpro gcpro1
, gcpro2
;
4330 /* Return quickly if nothing to do. */
4331 if (NILP (tip_timer
) && NILP (tip_frame
))
4336 GCPRO2 (frame
, timer
);
4337 tip_frame
= tip_timer
= deleted
= Qnil
;
4339 count
= SPECPDL_INDEX ();
4340 specbind (Qinhibit_redisplay
, Qt
);
4341 specbind (Qinhibit_quit
, Qt
);
4344 call1 (Qcancel_timer
, timer
);
4348 Fdelete_frame (frame
, Qnil
);
4353 return unbind_to (count
, deleted
);
4358 #if TARGET_API_MAC_CARBON
4359 /***********************************************************************
4360 File selection dialog
4361 ***********************************************************************/
4363 static pascal void mac_nav_event_callback
P_ ((NavEventCallbackMessage
,
4364 NavCBRecPtr
, void *));
4367 There is a relatively standard way to do this using applescript to run
4368 a (choose file) method. However, this doesn't do "the right thing"
4369 by working only if the find-file occurred during a menu or toolbar
4370 click. So we must do the file dialog by hand, using the navigation
4371 manager. This also has more flexibility in determining the default
4372 directory and whether or not we are going to choose a file.
4375 extern Lisp_Object Qfile_name_history
;
4377 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
4378 doc
: /* Read file name, prompting with PROMPT in directory DIR.
4379 Use a file selection dialog.
4380 Select DEFAULT-FILENAME in the dialog's file selection box, if
4381 specified. Ensure that file exists if MUSTMATCH is non-nil.
4382 If ONLY-DIR-P is non-nil, the user can only select directories. */)
4383 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
4384 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
4386 Lisp_Object file
= Qnil
;
4387 int count
= SPECPDL_INDEX ();
4388 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
4389 char filename
[MAXPATHLEN
];
4390 static NavEventUPP mac_nav_event_callbackUPP
= NULL
;
4394 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, file
, only_dir_p
);
4395 CHECK_STRING (prompt
);
4398 /* Create the dialog with PROMPT as title, using DIR as initial
4399 directory and using "*" as pattern. */
4400 dir
= Fexpand_file_name (dir
, Qnil
);
4404 NavDialogCreationOptions options
;
4405 NavDialogRef dialogRef
;
4406 NavTypeListHandle fileTypes
= NULL
;
4407 NavUserAction userAction
;
4408 CFStringRef message
=NULL
, saveName
= NULL
;
4411 /* No need for a callback function because we are modal */
4412 NavGetDefaultDialogCreationOptions(&options
);
4413 options
.modality
= kWindowModalityAppModal
;
4414 options
.location
.h
= options
.location
.v
= -1;
4415 options
.optionFlags
= kNavDefaultNavDlogOptions
;
4416 options
.optionFlags
|= kNavAllFilesInPopup
; /* All files allowed */
4417 options
.optionFlags
|= kNavSelectAllReadableItem
;
4418 options
.optionFlags
&= ~kNavAllowMultipleFiles
;
4421 message
= cfstring_create_with_string (prompt
);
4422 options
.message
= message
;
4424 /* Don't set the application, let it use default.
4425 options.clientName = CFSTR ("Emacs");
4428 if (mac_nav_event_callbackUPP
== NULL
)
4429 mac_nav_event_callbackUPP
= NewNavEventUPP (mac_nav_event_callback
);
4431 if (!NILP (only_dir_p
))
4432 status
= NavCreateChooseFolderDialog(&options
, mac_nav_event_callbackUPP
,
4433 NULL
, NULL
, &dialogRef
);
4434 else if (NILP (mustmatch
))
4436 /* This is a save dialog */
4437 options
.optionFlags
|= kNavDontConfirmReplacement
;
4438 options
.actionButtonLabel
= CFSTR ("Ok");
4439 options
.windowTitle
= CFSTR ("Enter name");
4441 if (STRINGP (default_filename
))
4443 Lisp_Object utf8
= ENCODE_UTF_8 (default_filename
);
4444 char *begPtr
= SDATA(utf8
);
4445 char *filePtr
= begPtr
+ SBYTES(utf8
);
4446 while (filePtr
!= begPtr
&& !IS_DIRECTORY_SEP(filePtr
[-1]))
4448 saveName
= cfstring_create_with_utf8_cstring (filePtr
);
4449 options
.saveFileName
= saveName
;
4450 options
.optionFlags
|= kNavSelectDefaultLocation
;
4452 status
= NavCreatePutFileDialog(&options
,
4453 'TEXT', kNavGenericSignature
,
4454 mac_nav_event_callbackUPP
, NULL
,
4459 /* This is an open dialog*/
4460 status
= NavCreateChooseFileDialog(&options
, fileTypes
,
4461 mac_nav_event_callbackUPP
, NULL
,
4462 NULL
, NULL
, &dialogRef
);
4465 /* Set the default location and continue*/
4466 if (status
== noErr
)
4468 Lisp_Object encoded_dir
= ENCODE_FILE (dir
);
4471 status
= AECreateDesc (TYPE_FILE_NAME
, SDATA (encoded_dir
),
4472 SBYTES (encoded_dir
), &defLocAed
);
4473 if (status
== noErr
)
4475 NavCustomControl(dialogRef
, kNavCtlSetLocation
, (void*) &defLocAed
);
4476 AEDisposeDesc(&defLocAed
);
4478 status
= NavDialogRun(dialogRef
);
4481 if (saveName
) CFRelease(saveName
);
4482 if (message
) CFRelease(message
);
4484 if (status
== noErr
) {
4485 userAction
= NavDialogGetUserAction(dialogRef
);
4488 case kNavUserActionNone
:
4489 case kNavUserActionCancel
:
4490 break; /* Treat cancel like C-g */
4491 case kNavUserActionOpen
:
4492 case kNavUserActionChoose
:
4493 case kNavUserActionSaveAs
:
4495 NavReplyRecord reply
;
4498 status
= NavDialogGetReply(dialogRef
, &reply
);
4499 if (status
!= noErr
)
4501 status
= AEGetNthPtr (&reply
.selection
, 1, TYPE_FILE_NAME
,
4502 NULL
, NULL
, filename
,
4503 sizeof (filename
) - 1, &len
);
4504 if (status
== noErr
)
4506 len
= min (len
, sizeof (filename
) - 1);
4507 filename
[len
] = '\0';
4508 if (reply
.saveFileName
)
4510 /* If it was a saved file, we need to add the file name */
4511 if (len
&& len
< sizeof (filename
) - 1
4512 && filename
[len
-1] != '/')
4513 filename
[len
++] = '/';
4514 CFStringGetCString(reply
.saveFileName
, filename
+len
,
4515 sizeof (filename
) - len
,
4517 kCFStringEncodingUTF8
4519 CFStringGetSystemEncoding ()
4523 file
= DECODE_FILE (make_unibyte_string (filename
,
4524 strlen (filename
)));
4526 NavDisposeReply(&reply
);
4530 NavDialogDispose(dialogRef
);
4535 /* Fall back on minibuffer if there was a problem */
4536 file
= Fcompleting_read (prompt
, intern ("read-file-name-internal"),
4537 dir
, mustmatch
, dir
, Qfile_name_history
,
4538 default_filename
, Qnil
);
4544 /* Make "Cancel" equivalent to C-g. */
4546 Fsignal (Qquit
, Qnil
);
4548 return unbind_to (count
, file
);
4552 /* Need to register some event callback function for enabling drag and
4553 drop in Navigation Service dialogs. */
4555 mac_nav_event_callback (selector
, parms
, data
)
4556 NavEventCallbackMessage selector
;
4563 /***********************************************************************
4565 ***********************************************************************/
4567 DEFUN ("mac-clear-font-name-table", Fmac_clear_font_name_table
,
4568 Smac_clear_font_name_table
, 0, 0, 0,
4569 doc
: /* Clear the font name table. */)
4573 mac_clear_font_name_table ();
4577 #if USE_MAC_FONT_PANEL
4578 DEFUN ("mac-set-font-panel-visible-p", Fmac_set_font_panel_visible_p
,
4579 Smac_set_font_panel_visible_p
, 1, 1, 0,
4580 doc
: /* Make the font panel visible if and only if FLAG is non-nil.
4581 This is for internal use only. Use `mac-font-panel-mode' instead. */)
4585 OSStatus err
= noErr
;
4590 if (NILP (flag
) != !mac_font_panel_visible_p ())
4592 err
= mac_show_hide_font_panel ();
4593 if (err
== noErr
&& !NILP (flag
))
4595 Lisp_Object focus_frame
= x_get_focus_frame (SELECTED_FRAME ());
4596 struct frame
*f
= (NILP (focus_frame
) ? SELECTED_FRAME ()
4597 : XFRAME (focus_frame
));
4599 mac_set_font_info_for_selection (f
, DEFAULT_FACE_ID
, 0);
4605 error ("Cannot change visibility of the font panel");
4611 extern Lisp_Object mac_atsu_font_face_attributes
P_ ((ATSUFontID
));
4613 DEFUN ("mac-atsu-font-face-attributes", Fmac_atsu_font_face_attributes
,
4614 Smac_atsu_font_face_attributes
, 1, 1, 0,
4615 doc
: /* Return plist of face attributes and values for ATSU font ID.
4616 ID is specified by either an integer or a float. */)
4624 CHECK_NUMBER_OR_FLOAT(id
);
4625 font_id
= NUMBERP (id
) ? XINT (id
) : (ATSUFontID
) XFLOAT (id
);
4627 result
= mac_atsu_font_face_attributes (font_id
);
4634 /***********************************************************************
4636 ***********************************************************************/
4638 /* Keep this list in the same order as frame_parms in frame.c.
4639 Use 0 for unsupported frame parameters. */
4641 frame_parm_handler mac_frame_parm_handlers
[] =
4645 x_set_background_color
,
4651 x_set_foreground_color
,
4653 0, /* MAC_TODO: x_set_icon_type, */
4654 x_set_internal_border_width
,
4655 x_set_menu_bar_lines
,
4657 x_explicitly_set_name
,
4658 x_set_scroll_bar_width
,
4661 x_set_vertical_scroll_bars
,
4663 x_set_tool_bar_lines
,
4664 0, /* MAC_TODO: x_set_scroll_bar_foreground, */
4665 0, /* MAC_TODO: x_set_scroll_bar_background, */
4670 0, /* x_set_wait_for_wm, */
4678 /* This is zero if not using Mac native windows. */
4681 /* Certainly running on Mac native windows. */
4685 /* The section below is built by the lisp expression at the top of the file,
4686 just above where these variables are declared. */
4687 /*&&& init symbols here &&&*/
4688 Qnone
= intern ("none");
4690 Qsuppress_icon
= intern ("suppress-icon");
4691 staticpro (&Qsuppress_icon
);
4692 Qundefined_color
= intern ("undefined-color");
4693 staticpro (&Qundefined_color
);
4694 Qcancel_timer
= intern ("cancel-timer");
4695 staticpro (&Qcancel_timer
);
4696 /* This is the end of symbol initialization. */
4698 /* Text property `display' should be nonsticky by default. */
4699 Vtext_property_default_nonsticky
4700 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
4703 Fput (Qundefined_color
, Qerror_conditions
,
4704 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
4705 Fput (Qundefined_color
, Qerror_message
,
4706 build_string ("Undefined color"));
4708 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
4709 doc
: /* The shape of the pointer when over text.
4710 Changing the value does not affect existing frames
4711 unless you set the mouse color. */);
4712 Vx_pointer_shape
= Qnil
;
4714 #if 0 /* This doesn't really do anything. */
4715 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
4716 doc
: /* The shape of the pointer when not over text.
4717 This variable takes effect when you create a new frame
4718 or when you set the mouse color. */);
4720 Vx_nontext_pointer_shape
= Qnil
;
4722 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
4723 doc
: /* The shape of the pointer when Emacs is busy.
4724 This variable takes effect when you create a new frame
4725 or when you set the mouse color. */);
4726 Vx_hourglass_pointer_shape
= Qnil
;
4728 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
4729 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
4730 display_hourglass_p
= 1;
4732 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
4733 doc
: /* *Seconds to wait before displaying an hourglass pointer.
4734 Value must be an integer or float. */);
4735 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
4737 #if 0 /* This doesn't really do anything. */
4738 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
4739 doc
: /* The shape of the pointer when over the mode line.
4740 This variable takes effect when you create a new frame
4741 or when you set the mouse color. */);
4743 Vx_mode_pointer_shape
= Qnil
;
4745 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
4746 &Vx_sensitive_text_pointer_shape
,
4747 doc
: /* The shape of the pointer when over mouse-sensitive text.
4748 This variable takes effect when you create a new frame
4749 or when you set the mouse color. */);
4750 Vx_sensitive_text_pointer_shape
= Qnil
;
4752 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
4753 &Vx_window_horizontal_drag_shape
,
4754 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
4755 This variable takes effect when you create a new frame
4756 or when you set the mouse color. */);
4757 Vx_window_horizontal_drag_shape
= Qnil
;
4759 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
4760 doc
: /* A string indicating the foreground color of the cursor box. */);
4761 Vx_cursor_fore_pixel
= Qnil
;
4763 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
4764 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
4765 Text larger than this is clipped. */);
4766 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
4768 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
4769 doc
: /* Non-nil if no window manager is in use.
4770 Emacs doesn't try to figure this out; this is always nil
4771 unless you set it to something else. */);
4772 /* We don't have any way to find this out, so set it to nil
4773 and maybe the user would like to set it to t. */
4774 Vx_no_window_manager
= Qnil
;
4776 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
4777 &Vx_pixel_size_width_font_regexp
,
4778 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
4780 Since Emacs gets width of a font matching with this regexp from
4781 PIXEL_SIZE field of the name, font finding mechanism gets faster for
4782 such a font. This is especially effective for such large fonts as
4783 Chinese, Japanese, and Korean. */);
4784 Vx_pixel_size_width_font_regexp
= Qnil
;
4786 #if TARGET_API_MAC_CARBON
4787 DEFVAR_LISP ("mac-carbon-version-string", &Vmac_carbon_version_string
,
4788 doc
: /* Version info for Carbon API. */);
4792 char carbon_version
[16] = "Unknown";
4794 err
= Gestalt (gestaltCarbonVersion
, &response
);
4796 sprintf (carbon_version
, "%u.%u.%u",
4797 (response
>> 8) & 0xf, (response
>> 4) & 0xf, response
& 0xf);
4798 Vmac_carbon_version_string
= build_string (carbon_version
);
4800 #endif /* TARGET_API_MAC_CARBON */
4802 /* X window properties. */
4803 defsubr (&Sx_change_window_property
);
4804 defsubr (&Sx_delete_window_property
);
4805 defsubr (&Sx_window_property
);
4807 defsubr (&Sxw_display_color_p
);
4808 defsubr (&Sx_display_grayscale_p
);
4809 defsubr (&Sxw_color_defined_p
);
4810 defsubr (&Sxw_color_values
);
4811 defsubr (&Sx_server_max_request_size
);
4812 defsubr (&Sx_server_vendor
);
4813 defsubr (&Sx_server_version
);
4814 defsubr (&Sx_display_pixel_width
);
4815 defsubr (&Sx_display_pixel_height
);
4816 defsubr (&Sx_display_mm_width
);
4817 defsubr (&Sx_display_mm_height
);
4818 defsubr (&Sx_display_screens
);
4819 defsubr (&Sx_display_planes
);
4820 defsubr (&Sx_display_color_cells
);
4821 defsubr (&Sx_display_visual_class
);
4822 defsubr (&Sx_display_backing_store
);
4823 defsubr (&Sx_display_save_under
);
4824 defsubr (&Sx_create_frame
);
4825 defsubr (&Sx_open_connection
);
4826 defsubr (&Sx_close_connection
);
4827 defsubr (&Sx_display_list
);
4828 defsubr (&Sx_synchronize
);
4829 defsubr (&Sx_focus_frame
);
4831 /* Setting callback functions for fontset handler. */
4832 get_font_info_func
= x_get_font_info
;
4834 #if 0 /* This function pointer doesn't seem to be used anywhere.
4835 And the pointer assigned has the wrong type, anyway. */
4836 list_fonts_func
= x_list_fonts
;
4839 load_font_func
= x_load_font
;
4840 find_ccl_program_func
= x_find_ccl_program
;
4841 query_font_func
= x_query_font
;
4842 set_frame_fontset_func
= mac_set_font
;
4843 check_window_system_func
= check_mac
;
4845 hourglass_atimer
= NULL
;
4846 hourglass_shown_p
= 0;
4848 defsubr (&Sx_show_tip
);
4849 defsubr (&Sx_hide_tip
);
4851 staticpro (&tip_timer
);
4853 staticpro (&tip_frame
);
4855 last_show_tip_args
= Qnil
;
4856 staticpro (&last_show_tip_args
);
4858 #if TARGET_API_MAC_CARBON
4859 defsubr (&Sx_file_dialog
);
4861 defsubr (&Smac_clear_font_name_table
);
4862 #if USE_MAC_FONT_PANEL
4863 defsubr (&Smac_set_font_panel_visible_p
);
4866 defsubr (&Smac_atsu_font_face_attributes
);
4870 /* arch-tag: d7591289-f374-4377-b245-12f5dbbb8edc
4871 (do not change this comment) */