1 /* Graphical user interface functions for Mac OS.
2 Copyright (C) 2000, 2001, 2002, 2003, 2004,
3 2005, 2006 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 2, 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 /* Non-zero means we're allowed to display an hourglass cursor. */
56 int display_hourglass_p
;
58 /* The background and shape of the mouse pointer, and shape when not
59 over text or in the modeline. */
61 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
62 Lisp_Object Vx_hourglass_pointer_shape
;
64 /* The shape when over mouse-sensitive text. */
66 Lisp_Object Vx_sensitive_text_pointer_shape
;
68 /* If non-nil, the pointer shape to indicate that windows can be
69 dragged horizontally. */
71 Lisp_Object Vx_window_horizontal_drag_shape
;
73 /* Color of chars displayed in cursor box. */
75 Lisp_Object Vx_cursor_fore_pixel
;
77 /* Nonzero if using Windows. */
79 static int mac_in_use
;
81 /* Non nil if no window manager is in use. */
83 Lisp_Object Vx_no_window_manager
;
85 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
87 Lisp_Object Vx_pixel_size_width_font_regexp
;
90 Lisp_Object Qsuppress_icon
;
91 Lisp_Object Qundefined_color
;
92 Lisp_Object Qcancel_timer
;
96 extern Lisp_Object Vwindow_system_version
;
99 int image_cache_refcount
, dpyinfo_refcount
;
103 #if 0 /* Use xstricmp instead. */
104 /* compare two strings ignoring case */
107 stricmp (const char *s
, const char *t
)
109 for ( ; tolower (*s
) == tolower (*t
); s
++, t
++)
112 return tolower (*s
) - tolower (*t
);
116 /* compare two strings up to n characters, ignoring case */
119 strnicmp (const char *s
, const char *t
, unsigned int n
)
121 for ( ; n
> 0 && tolower (*s
) == tolower (*t
); n
--, s
++, t
++)
124 return n
== 0 ? 0 : tolower (*s
) - tolower (*t
);
128 /* Error if we are not running on Mac OS. */
134 error ("Mac native windows not in use or not initialized");
137 /* Nonzero if we can use mouse menus.
138 You should not call this unless HAVE_MENUS is defined. */
146 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
147 and checking validity for Mac. */
150 check_x_frame (frame
)
156 frame
= selected_frame
;
157 CHECK_LIVE_FRAME (frame
);
159 if (! FRAME_MAC_P (f
))
160 error ("Non-Mac frame used");
164 /* Let the user specify a display with a frame.
165 nil stands for the selected frame--or, if that is not a mac frame,
166 the first display on the list. */
168 struct mac_display_info
*
169 check_x_display_info (frame
)
172 struct mac_display_info
*dpyinfo
= NULL
;
176 struct frame
*sf
= XFRAME (selected_frame
);
178 if (FRAME_MAC_P (sf
) && FRAME_LIVE_P (sf
))
179 dpyinfo
= FRAME_MAC_DISPLAY_INFO (sf
);
180 else if (x_display_list
!= 0)
181 dpyinfo
= x_display_list
;
183 error ("Mac native windows are not in use or not initialized");
185 else if (STRINGP (frame
))
186 dpyinfo
= x_display_info_for_name (frame
);
189 FRAME_PTR f
= check_x_frame (frame
);
190 dpyinfo
= FRAME_MAC_DISPLAY_INFO (f
);
198 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
199 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
201 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
202 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
203 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
204 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
205 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
206 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
207 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
208 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
209 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
210 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
211 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
212 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
213 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
215 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
217 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
223 extern void mac_get_window_bounds
P_ ((struct frame
*, Rect
*, Rect
*));
227 /* Store the screen positions of frame F into XPTR and YPTR.
228 These are the positions of the containing window manager window,
229 not Emacs's own window. */
232 x_real_positions (f
, xptr
, yptr
)
238 mac_get_window_bounds (f
, &inner
, &outer
);
240 f
->x_pixels_diff
= inner
.left
- outer
.left
;
241 f
->y_pixels_diff
= inner
.top
- outer
.top
;
248 /* The default colors for the Mac color map */
249 typedef struct colormap_t
255 colormap_t mac_color_map
[] =
257 { RGB_TO_ULONG(255, 250, 250), "snow" },
258 { RGB_TO_ULONG(248, 248, 255), "ghost white" },
259 { RGB_TO_ULONG(248, 248, 255), "GhostWhite" },
260 { RGB_TO_ULONG(245, 245, 245), "white smoke" },
261 { RGB_TO_ULONG(245, 245, 245), "WhiteSmoke" },
262 { RGB_TO_ULONG(220, 220, 220), "gainsboro" },
263 { RGB_TO_ULONG(255, 250, 240), "floral white" },
264 { RGB_TO_ULONG(255, 250, 240), "FloralWhite" },
265 { RGB_TO_ULONG(253, 245, 230), "old lace" },
266 { RGB_TO_ULONG(253, 245, 230), "OldLace" },
267 { RGB_TO_ULONG(250, 240, 230), "linen" },
268 { RGB_TO_ULONG(250, 235, 215), "antique white" },
269 { RGB_TO_ULONG(250, 235, 215), "AntiqueWhite" },
270 { RGB_TO_ULONG(255, 239, 213), "papaya whip" },
271 { RGB_TO_ULONG(255, 239, 213), "PapayaWhip" },
272 { RGB_TO_ULONG(255, 235, 205), "blanched almond" },
273 { RGB_TO_ULONG(255, 235, 205), "BlanchedAlmond" },
274 { RGB_TO_ULONG(255, 228, 196), "bisque" },
275 { RGB_TO_ULONG(255, 218, 185), "peach puff" },
276 { RGB_TO_ULONG(255, 218, 185), "PeachPuff" },
277 { RGB_TO_ULONG(255, 222, 173), "navajo white" },
278 { RGB_TO_ULONG(255, 222, 173), "NavajoWhite" },
279 { RGB_TO_ULONG(255, 228, 181), "moccasin" },
280 { RGB_TO_ULONG(255, 248, 220), "cornsilk" },
281 { RGB_TO_ULONG(255, 255, 240), "ivory" },
282 { RGB_TO_ULONG(255, 250, 205), "lemon chiffon" },
283 { RGB_TO_ULONG(255, 250, 205), "LemonChiffon" },
284 { RGB_TO_ULONG(255, 245, 238), "seashell" },
285 { RGB_TO_ULONG(240, 255, 240), "honeydew" },
286 { RGB_TO_ULONG(245, 255, 250), "mint cream" },
287 { RGB_TO_ULONG(245, 255, 250), "MintCream" },
288 { RGB_TO_ULONG(240, 255, 255), "azure" },
289 { RGB_TO_ULONG(240, 248, 255), "alice blue" },
290 { RGB_TO_ULONG(240, 248, 255), "AliceBlue" },
291 { RGB_TO_ULONG(230, 230, 250), "lavender" },
292 { RGB_TO_ULONG(255, 240, 245), "lavender blush" },
293 { RGB_TO_ULONG(255, 240, 245), "LavenderBlush" },
294 { RGB_TO_ULONG(255, 228, 225), "misty rose" },
295 { RGB_TO_ULONG(255, 228, 225), "MistyRose" },
296 { RGB_TO_ULONG(255, 255, 255), "white" },
297 { RGB_TO_ULONG(0 , 0 , 0 ), "black" },
298 { RGB_TO_ULONG(47 , 79 , 79 ), "dark slate gray" },
299 { RGB_TO_ULONG(47 , 79 , 79 ), "DarkSlateGray" },
300 { RGB_TO_ULONG(47 , 79 , 79 ), "dark slate grey" },
301 { RGB_TO_ULONG(47 , 79 , 79 ), "DarkSlateGrey" },
302 { RGB_TO_ULONG(105, 105, 105), "dim gray" },
303 { RGB_TO_ULONG(105, 105, 105), "DimGray" },
304 { RGB_TO_ULONG(105, 105, 105), "dim grey" },
305 { RGB_TO_ULONG(105, 105, 105), "DimGrey" },
306 { RGB_TO_ULONG(112, 128, 144), "slate gray" },
307 { RGB_TO_ULONG(112, 128, 144), "SlateGray" },
308 { RGB_TO_ULONG(112, 128, 144), "slate grey" },
309 { RGB_TO_ULONG(112, 128, 144), "SlateGrey" },
310 { RGB_TO_ULONG(119, 136, 153), "light slate gray" },
311 { RGB_TO_ULONG(119, 136, 153), "LightSlateGray" },
312 { RGB_TO_ULONG(119, 136, 153), "light slate grey" },
313 { RGB_TO_ULONG(119, 136, 153), "LightSlateGrey" },
314 { RGB_TO_ULONG(190, 190, 190), "gray" },
315 { RGB_TO_ULONG(190, 190, 190), "grey" },
316 { RGB_TO_ULONG(211, 211, 211), "light grey" },
317 { RGB_TO_ULONG(211, 211, 211), "LightGrey" },
318 { RGB_TO_ULONG(211, 211, 211), "light gray" },
319 { RGB_TO_ULONG(211, 211, 211), "LightGray" },
320 { RGB_TO_ULONG(25 , 25 , 112), "midnight blue" },
321 { RGB_TO_ULONG(25 , 25 , 112), "MidnightBlue" },
322 { RGB_TO_ULONG(0 , 0 , 128), "navy" },
323 { RGB_TO_ULONG(0 , 0 , 128), "navy blue" },
324 { RGB_TO_ULONG(0 , 0 , 128), "NavyBlue" },
325 { RGB_TO_ULONG(100, 149, 237), "cornflower blue" },
326 { RGB_TO_ULONG(100, 149, 237), "CornflowerBlue" },
327 { RGB_TO_ULONG(72 , 61 , 139), "dark slate blue" },
328 { RGB_TO_ULONG(72 , 61 , 139), "DarkSlateBlue" },
329 { RGB_TO_ULONG(106, 90 , 205), "slate blue" },
330 { RGB_TO_ULONG(106, 90 , 205), "SlateBlue" },
331 { RGB_TO_ULONG(123, 104, 238), "medium slate blue" },
332 { RGB_TO_ULONG(123, 104, 238), "MediumSlateBlue" },
333 { RGB_TO_ULONG(132, 112, 255), "light slate blue" },
334 { RGB_TO_ULONG(132, 112, 255), "LightSlateBlue" },
335 { RGB_TO_ULONG(0 , 0 , 205), "medium blue" },
336 { RGB_TO_ULONG(0 , 0 , 205), "MediumBlue" },
337 { RGB_TO_ULONG(65 , 105, 225), "royal blue" },
338 { RGB_TO_ULONG(65 , 105, 225), "RoyalBlue" },
339 { RGB_TO_ULONG(0 , 0 , 255), "blue" },
340 { RGB_TO_ULONG(30 , 144, 255), "dodger blue" },
341 { RGB_TO_ULONG(30 , 144, 255), "DodgerBlue" },
342 { RGB_TO_ULONG(0 , 191, 255), "deep sky blue" },
343 { RGB_TO_ULONG(0 , 191, 255), "DeepSkyBlue" },
344 { RGB_TO_ULONG(135, 206, 235), "sky blue" },
345 { RGB_TO_ULONG(135, 206, 235), "SkyBlue" },
346 { RGB_TO_ULONG(135, 206, 250), "light sky blue" },
347 { RGB_TO_ULONG(135, 206, 250), "LightSkyBlue" },
348 { RGB_TO_ULONG(70 , 130, 180), "steel blue" },
349 { RGB_TO_ULONG(70 , 130, 180), "SteelBlue" },
350 { RGB_TO_ULONG(176, 196, 222), "light steel blue" },
351 { RGB_TO_ULONG(176, 196, 222), "LightSteelBlue" },
352 { RGB_TO_ULONG(173, 216, 230), "light blue" },
353 { RGB_TO_ULONG(173, 216, 230), "LightBlue" },
354 { RGB_TO_ULONG(176, 224, 230), "powder blue" },
355 { RGB_TO_ULONG(176, 224, 230), "PowderBlue" },
356 { RGB_TO_ULONG(175, 238, 238), "pale turquoise" },
357 { RGB_TO_ULONG(175, 238, 238), "PaleTurquoise" },
358 { RGB_TO_ULONG(0 , 206, 209), "dark turquoise" },
359 { RGB_TO_ULONG(0 , 206, 209), "DarkTurquoise" },
360 { RGB_TO_ULONG(72 , 209, 204), "medium turquoise" },
361 { RGB_TO_ULONG(72 , 209, 204), "MediumTurquoise" },
362 { RGB_TO_ULONG(64 , 224, 208), "turquoise" },
363 { RGB_TO_ULONG(0 , 255, 255), "cyan" },
364 { RGB_TO_ULONG(224, 255, 255), "light cyan" },
365 { RGB_TO_ULONG(224, 255, 255), "LightCyan" },
366 { RGB_TO_ULONG(95 , 158, 160), "cadet blue" },
367 { RGB_TO_ULONG(95 , 158, 160), "CadetBlue" },
368 { RGB_TO_ULONG(102, 205, 170), "medium aquamarine" },
369 { RGB_TO_ULONG(102, 205, 170), "MediumAquamarine" },
370 { RGB_TO_ULONG(127, 255, 212), "aquamarine" },
371 { RGB_TO_ULONG(0 , 100, 0 ), "dark green" },
372 { RGB_TO_ULONG(0 , 100, 0 ), "DarkGreen" },
373 { RGB_TO_ULONG(85 , 107, 47 ), "dark olive green" },
374 { RGB_TO_ULONG(85 , 107, 47 ), "DarkOliveGreen" },
375 { RGB_TO_ULONG(143, 188, 143), "dark sea green" },
376 { RGB_TO_ULONG(143, 188, 143), "DarkSeaGreen" },
377 { RGB_TO_ULONG(46 , 139, 87 ), "sea green" },
378 { RGB_TO_ULONG(46 , 139, 87 ), "SeaGreen" },
379 { RGB_TO_ULONG(60 , 179, 113), "medium sea green" },
380 { RGB_TO_ULONG(60 , 179, 113), "MediumSeaGreen" },
381 { RGB_TO_ULONG(32 , 178, 170), "light sea green" },
382 { RGB_TO_ULONG(32 , 178, 170), "LightSeaGreen" },
383 { RGB_TO_ULONG(152, 251, 152), "pale green" },
384 { RGB_TO_ULONG(152, 251, 152), "PaleGreen" },
385 { RGB_TO_ULONG(0 , 255, 127), "spring green" },
386 { RGB_TO_ULONG(0 , 255, 127), "SpringGreen" },
387 { RGB_TO_ULONG(124, 252, 0 ), "lawn green" },
388 { RGB_TO_ULONG(124, 252, 0 ), "LawnGreen" },
389 { RGB_TO_ULONG(0 , 255, 0 ), "green" },
390 { RGB_TO_ULONG(127, 255, 0 ), "chartreuse" },
391 { RGB_TO_ULONG(0 , 250, 154), "medium spring green" },
392 { RGB_TO_ULONG(0 , 250, 154), "MediumSpringGreen" },
393 { RGB_TO_ULONG(173, 255, 47 ), "green yellow" },
394 { RGB_TO_ULONG(173, 255, 47 ), "GreenYellow" },
395 { RGB_TO_ULONG(50 , 205, 50 ), "lime green" },
396 { RGB_TO_ULONG(50 , 205, 50 ), "LimeGreen" },
397 { RGB_TO_ULONG(154, 205, 50 ), "yellow green" },
398 { RGB_TO_ULONG(154, 205, 50 ), "YellowGreen" },
399 { RGB_TO_ULONG(34 , 139, 34 ), "forest green" },
400 { RGB_TO_ULONG(34 , 139, 34 ), "ForestGreen" },
401 { RGB_TO_ULONG(107, 142, 35 ), "olive drab" },
402 { RGB_TO_ULONG(107, 142, 35 ), "OliveDrab" },
403 { RGB_TO_ULONG(189, 183, 107), "dark khaki" },
404 { RGB_TO_ULONG(189, 183, 107), "DarkKhaki" },
405 { RGB_TO_ULONG(240, 230, 140), "khaki" },
406 { RGB_TO_ULONG(238, 232, 170), "pale goldenrod" },
407 { RGB_TO_ULONG(238, 232, 170), "PaleGoldenrod" },
408 { RGB_TO_ULONG(250, 250, 210), "light goldenrod yellow" },
409 { RGB_TO_ULONG(250, 250, 210), "LightGoldenrodYellow" },
410 { RGB_TO_ULONG(255, 255, 224), "light yellow" },
411 { RGB_TO_ULONG(255, 255, 224), "LightYellow" },
412 { RGB_TO_ULONG(255, 255, 0 ), "yellow" },
413 { RGB_TO_ULONG(255, 215, 0 ), "gold" },
414 { RGB_TO_ULONG(238, 221, 130), "light goldenrod" },
415 { RGB_TO_ULONG(238, 221, 130), "LightGoldenrod" },
416 { RGB_TO_ULONG(218, 165, 32 ), "goldenrod" },
417 { RGB_TO_ULONG(184, 134, 11 ), "dark goldenrod" },
418 { RGB_TO_ULONG(184, 134, 11 ), "DarkGoldenrod" },
419 { RGB_TO_ULONG(188, 143, 143), "rosy brown" },
420 { RGB_TO_ULONG(188, 143, 143), "RosyBrown" },
421 { RGB_TO_ULONG(205, 92 , 92 ), "indian red" },
422 { RGB_TO_ULONG(205, 92 , 92 ), "IndianRed" },
423 { RGB_TO_ULONG(139, 69 , 19 ), "saddle brown" },
424 { RGB_TO_ULONG(139, 69 , 19 ), "SaddleBrown" },
425 { RGB_TO_ULONG(160, 82 , 45 ), "sienna" },
426 { RGB_TO_ULONG(205, 133, 63 ), "peru" },
427 { RGB_TO_ULONG(222, 184, 135), "burlywood" },
428 { RGB_TO_ULONG(245, 245, 220), "beige" },
429 { RGB_TO_ULONG(245, 222, 179), "wheat" },
430 { RGB_TO_ULONG(244, 164, 96 ), "sandy brown" },
431 { RGB_TO_ULONG(244, 164, 96 ), "SandyBrown" },
432 { RGB_TO_ULONG(210, 180, 140), "tan" },
433 { RGB_TO_ULONG(210, 105, 30 ), "chocolate" },
434 { RGB_TO_ULONG(178, 34 , 34 ), "firebrick" },
435 { RGB_TO_ULONG(165, 42 , 42 ), "brown" },
436 { RGB_TO_ULONG(233, 150, 122), "dark salmon" },
437 { RGB_TO_ULONG(233, 150, 122), "DarkSalmon" },
438 { RGB_TO_ULONG(250, 128, 114), "salmon" },
439 { RGB_TO_ULONG(255, 160, 122), "light salmon" },
440 { RGB_TO_ULONG(255, 160, 122), "LightSalmon" },
441 { RGB_TO_ULONG(255, 165, 0 ), "orange" },
442 { RGB_TO_ULONG(255, 140, 0 ), "dark orange" },
443 { RGB_TO_ULONG(255, 140, 0 ), "DarkOrange" },
444 { RGB_TO_ULONG(255, 127, 80 ), "coral" },
445 { RGB_TO_ULONG(240, 128, 128), "light coral" },
446 { RGB_TO_ULONG(240, 128, 128), "LightCoral" },
447 { RGB_TO_ULONG(255, 99 , 71 ), "tomato" },
448 { RGB_TO_ULONG(255, 69 , 0 ), "orange red" },
449 { RGB_TO_ULONG(255, 69 , 0 ), "OrangeRed" },
450 { RGB_TO_ULONG(255, 0 , 0 ), "red" },
451 { RGB_TO_ULONG(255, 105, 180), "hot pink" },
452 { RGB_TO_ULONG(255, 105, 180), "HotPink" },
453 { RGB_TO_ULONG(255, 20 , 147), "deep pink" },
454 { RGB_TO_ULONG(255, 20 , 147), "DeepPink" },
455 { RGB_TO_ULONG(255, 192, 203), "pink" },
456 { RGB_TO_ULONG(255, 182, 193), "light pink" },
457 { RGB_TO_ULONG(255, 182, 193), "LightPink" },
458 { RGB_TO_ULONG(219, 112, 147), "pale violet red" },
459 { RGB_TO_ULONG(219, 112, 147), "PaleVioletRed" },
460 { RGB_TO_ULONG(176, 48 , 96 ), "maroon" },
461 { RGB_TO_ULONG(199, 21 , 133), "medium violet red" },
462 { RGB_TO_ULONG(199, 21 , 133), "MediumVioletRed" },
463 { RGB_TO_ULONG(208, 32 , 144), "violet red" },
464 { RGB_TO_ULONG(208, 32 , 144), "VioletRed" },
465 { RGB_TO_ULONG(255, 0 , 255), "magenta" },
466 { RGB_TO_ULONG(238, 130, 238), "violet" },
467 { RGB_TO_ULONG(221, 160, 221), "plum" },
468 { RGB_TO_ULONG(218, 112, 214), "orchid" },
469 { RGB_TO_ULONG(186, 85 , 211), "medium orchid" },
470 { RGB_TO_ULONG(186, 85 , 211), "MediumOrchid" },
471 { RGB_TO_ULONG(153, 50 , 204), "dark orchid" },
472 { RGB_TO_ULONG(153, 50 , 204), "DarkOrchid" },
473 { RGB_TO_ULONG(148, 0 , 211), "dark violet" },
474 { RGB_TO_ULONG(148, 0 , 211), "DarkViolet" },
475 { RGB_TO_ULONG(138, 43 , 226), "blue violet" },
476 { RGB_TO_ULONG(138, 43 , 226), "BlueViolet" },
477 { RGB_TO_ULONG(160, 32 , 240), "purple" },
478 { RGB_TO_ULONG(147, 112, 219), "medium purple" },
479 { RGB_TO_ULONG(147, 112, 219), "MediumPurple" },
480 { RGB_TO_ULONG(216, 191, 216), "thistle" },
481 { RGB_TO_ULONG(255, 250, 250), "snow1" },
482 { RGB_TO_ULONG(238, 233, 233), "snow2" },
483 { RGB_TO_ULONG(205, 201, 201), "snow3" },
484 { RGB_TO_ULONG(139, 137, 137), "snow4" },
485 { RGB_TO_ULONG(255, 245, 238), "seashell1" },
486 { RGB_TO_ULONG(238, 229, 222), "seashell2" },
487 { RGB_TO_ULONG(205, 197, 191), "seashell3" },
488 { RGB_TO_ULONG(139, 134, 130), "seashell4" },
489 { RGB_TO_ULONG(255, 239, 219), "AntiqueWhite1" },
490 { RGB_TO_ULONG(238, 223, 204), "AntiqueWhite2" },
491 { RGB_TO_ULONG(205, 192, 176), "AntiqueWhite3" },
492 { RGB_TO_ULONG(139, 131, 120), "AntiqueWhite4" },
493 { RGB_TO_ULONG(255, 228, 196), "bisque1" },
494 { RGB_TO_ULONG(238, 213, 183), "bisque2" },
495 { RGB_TO_ULONG(205, 183, 158), "bisque3" },
496 { RGB_TO_ULONG(139, 125, 107), "bisque4" },
497 { RGB_TO_ULONG(255, 218, 185), "PeachPuff1" },
498 { RGB_TO_ULONG(238, 203, 173), "PeachPuff2" },
499 { RGB_TO_ULONG(205, 175, 149), "PeachPuff3" },
500 { RGB_TO_ULONG(139, 119, 101), "PeachPuff4" },
501 { RGB_TO_ULONG(255, 222, 173), "NavajoWhite1" },
502 { RGB_TO_ULONG(238, 207, 161), "NavajoWhite2" },
503 { RGB_TO_ULONG(205, 179, 139), "NavajoWhite3" },
504 { RGB_TO_ULONG(139, 121, 94), "NavajoWhite4" },
505 { RGB_TO_ULONG(255, 250, 205), "LemonChiffon1" },
506 { RGB_TO_ULONG(238, 233, 191), "LemonChiffon2" },
507 { RGB_TO_ULONG(205, 201, 165), "LemonChiffon3" },
508 { RGB_TO_ULONG(139, 137, 112), "LemonChiffon4" },
509 { RGB_TO_ULONG(255, 248, 220), "cornsilk1" },
510 { RGB_TO_ULONG(238, 232, 205), "cornsilk2" },
511 { RGB_TO_ULONG(205, 200, 177), "cornsilk3" },
512 { RGB_TO_ULONG(139, 136, 120), "cornsilk4" },
513 { RGB_TO_ULONG(255, 255, 240), "ivory1" },
514 { RGB_TO_ULONG(238, 238, 224), "ivory2" },
515 { RGB_TO_ULONG(205, 205, 193), "ivory3" },
516 { RGB_TO_ULONG(139, 139, 131), "ivory4" },
517 { RGB_TO_ULONG(240, 255, 240), "honeydew1" },
518 { RGB_TO_ULONG(224, 238, 224), "honeydew2" },
519 { RGB_TO_ULONG(193, 205, 193), "honeydew3" },
520 { RGB_TO_ULONG(131, 139, 131), "honeydew4" },
521 { RGB_TO_ULONG(255, 240, 245), "LavenderBlush1" },
522 { RGB_TO_ULONG(238, 224, 229), "LavenderBlush2" },
523 { RGB_TO_ULONG(205, 193, 197), "LavenderBlush3" },
524 { RGB_TO_ULONG(139, 131, 134), "LavenderBlush4" },
525 { RGB_TO_ULONG(255, 228, 225), "MistyRose1" },
526 { RGB_TO_ULONG(238, 213, 210), "MistyRose2" },
527 { RGB_TO_ULONG(205, 183, 181), "MistyRose3" },
528 { RGB_TO_ULONG(139, 125, 123), "MistyRose4" },
529 { RGB_TO_ULONG(240, 255, 255), "azure1" },
530 { RGB_TO_ULONG(224, 238, 238), "azure2" },
531 { RGB_TO_ULONG(193, 205, 205), "azure3" },
532 { RGB_TO_ULONG(131, 139, 139), "azure4" },
533 { RGB_TO_ULONG(131, 111, 255), "SlateBlue1" },
534 { RGB_TO_ULONG(122, 103, 238), "SlateBlue2" },
535 { RGB_TO_ULONG(105, 89 , 205), "SlateBlue3" },
536 { RGB_TO_ULONG(71 , 60 , 139), "SlateBlue4" },
537 { RGB_TO_ULONG(72 , 118, 255), "RoyalBlue1" },
538 { RGB_TO_ULONG(67 , 110, 238), "RoyalBlue2" },
539 { RGB_TO_ULONG(58 , 95 , 205), "RoyalBlue3" },
540 { RGB_TO_ULONG(39 , 64 , 139), "RoyalBlue4" },
541 { RGB_TO_ULONG(0 , 0 , 255), "blue1" },
542 { RGB_TO_ULONG(0 , 0 , 238), "blue2" },
543 { RGB_TO_ULONG(0 , 0 , 205), "blue3" },
544 { RGB_TO_ULONG(0 , 0 , 139), "blue4" },
545 { RGB_TO_ULONG(30 , 144, 255), "DodgerBlue1" },
546 { RGB_TO_ULONG(28 , 134, 238), "DodgerBlue2" },
547 { RGB_TO_ULONG(24 , 116, 205), "DodgerBlue3" },
548 { RGB_TO_ULONG(16 , 78 , 139), "DodgerBlue4" },
549 { RGB_TO_ULONG(99 , 184, 255), "SteelBlue1" },
550 { RGB_TO_ULONG(92 , 172, 238), "SteelBlue2" },
551 { RGB_TO_ULONG(79 , 148, 205), "SteelBlue3" },
552 { RGB_TO_ULONG(54 , 100, 139), "SteelBlue4" },
553 { RGB_TO_ULONG(0 , 191, 255), "DeepSkyBlue1" },
554 { RGB_TO_ULONG(0 , 178, 238), "DeepSkyBlue2" },
555 { RGB_TO_ULONG(0 , 154, 205), "DeepSkyBlue3" },
556 { RGB_TO_ULONG(0 , 104, 139), "DeepSkyBlue4" },
557 { RGB_TO_ULONG(135, 206, 255), "SkyBlue1" },
558 { RGB_TO_ULONG(126, 192, 238), "SkyBlue2" },
559 { RGB_TO_ULONG(108, 166, 205), "SkyBlue3" },
560 { RGB_TO_ULONG(74 , 112, 139), "SkyBlue4" },
561 { RGB_TO_ULONG(176, 226, 255), "LightSkyBlue1" },
562 { RGB_TO_ULONG(164, 211, 238), "LightSkyBlue2" },
563 { RGB_TO_ULONG(141, 182, 205), "LightSkyBlue3" },
564 { RGB_TO_ULONG(96 , 123, 139), "LightSkyBlue4" },
565 { RGB_TO_ULONG(198, 226, 255), "SlateGray1" },
566 { RGB_TO_ULONG(185, 211, 238), "SlateGray2" },
567 { RGB_TO_ULONG(159, 182, 205), "SlateGray3" },
568 { RGB_TO_ULONG(108, 123, 139), "SlateGray4" },
569 { RGB_TO_ULONG(202, 225, 255), "LightSteelBlue1" },
570 { RGB_TO_ULONG(188, 210, 238), "LightSteelBlue2" },
571 { RGB_TO_ULONG(162, 181, 205), "LightSteelBlue3" },
572 { RGB_TO_ULONG(110, 123, 139), "LightSteelBlue4" },
573 { RGB_TO_ULONG(191, 239, 255), "LightBlue1" },
574 { RGB_TO_ULONG(178, 223, 238), "LightBlue2" },
575 { RGB_TO_ULONG(154, 192, 205), "LightBlue3" },
576 { RGB_TO_ULONG(104, 131, 139), "LightBlue4" },
577 { RGB_TO_ULONG(224, 255, 255), "LightCyan1" },
578 { RGB_TO_ULONG(209, 238, 238), "LightCyan2" },
579 { RGB_TO_ULONG(180, 205, 205), "LightCyan3" },
580 { RGB_TO_ULONG(122, 139, 139), "LightCyan4" },
581 { RGB_TO_ULONG(187, 255, 255), "PaleTurquoise1" },
582 { RGB_TO_ULONG(174, 238, 238), "PaleTurquoise2" },
583 { RGB_TO_ULONG(150, 205, 205), "PaleTurquoise3" },
584 { RGB_TO_ULONG(102, 139, 139), "PaleTurquoise4" },
585 { RGB_TO_ULONG(152, 245, 255), "CadetBlue1" },
586 { RGB_TO_ULONG(142, 229, 238), "CadetBlue2" },
587 { RGB_TO_ULONG(122, 197, 205), "CadetBlue3" },
588 { RGB_TO_ULONG(83 , 134, 139), "CadetBlue4" },
589 { RGB_TO_ULONG(0 , 245, 255), "turquoise1" },
590 { RGB_TO_ULONG(0 , 229, 238), "turquoise2" },
591 { RGB_TO_ULONG(0 , 197, 205), "turquoise3" },
592 { RGB_TO_ULONG(0 , 134, 139), "turquoise4" },
593 { RGB_TO_ULONG(0 , 255, 255), "cyan1" },
594 { RGB_TO_ULONG(0 , 238, 238), "cyan2" },
595 { RGB_TO_ULONG(0 , 205, 205), "cyan3" },
596 { RGB_TO_ULONG(0 , 139, 139), "cyan4" },
597 { RGB_TO_ULONG(151, 255, 255), "DarkSlateGray1" },
598 { RGB_TO_ULONG(141, 238, 238), "DarkSlateGray2" },
599 { RGB_TO_ULONG(121, 205, 205), "DarkSlateGray3" },
600 { RGB_TO_ULONG(82 , 139, 139), "DarkSlateGray4" },
601 { RGB_TO_ULONG(127, 255, 212), "aquamarine1" },
602 { RGB_TO_ULONG(118, 238, 198), "aquamarine2" },
603 { RGB_TO_ULONG(102, 205, 170), "aquamarine3" },
604 { RGB_TO_ULONG(69 , 139, 116), "aquamarine4" },
605 { RGB_TO_ULONG(193, 255, 193), "DarkSeaGreen1" },
606 { RGB_TO_ULONG(180, 238, 180), "DarkSeaGreen2" },
607 { RGB_TO_ULONG(155, 205, 155), "DarkSeaGreen3" },
608 { RGB_TO_ULONG(105, 139, 105), "DarkSeaGreen4" },
609 { RGB_TO_ULONG(84 , 255, 159), "SeaGreen1" },
610 { RGB_TO_ULONG(78 , 238, 148), "SeaGreen2" },
611 { RGB_TO_ULONG(67 , 205, 128), "SeaGreen3" },
612 { RGB_TO_ULONG(46 , 139, 87 ), "SeaGreen4" },
613 { RGB_TO_ULONG(154, 255, 154), "PaleGreen1" },
614 { RGB_TO_ULONG(144, 238, 144), "PaleGreen2" },
615 { RGB_TO_ULONG(124, 205, 124), "PaleGreen3" },
616 { RGB_TO_ULONG(84 , 139, 84 ), "PaleGreen4" },
617 { RGB_TO_ULONG(0 , 255, 127), "SpringGreen1" },
618 { RGB_TO_ULONG(0 , 238, 118), "SpringGreen2" },
619 { RGB_TO_ULONG(0 , 205, 102), "SpringGreen3" },
620 { RGB_TO_ULONG(0 , 139, 69 ), "SpringGreen4" },
621 { RGB_TO_ULONG(0 , 255, 0 ), "green1" },
622 { RGB_TO_ULONG(0 , 238, 0 ), "green2" },
623 { RGB_TO_ULONG(0 , 205, 0 ), "green3" },
624 { RGB_TO_ULONG(0 , 139, 0 ), "green4" },
625 { RGB_TO_ULONG(127, 255, 0 ), "chartreuse1" },
626 { RGB_TO_ULONG(118, 238, 0 ), "chartreuse2" },
627 { RGB_TO_ULONG(102, 205, 0 ), "chartreuse3" },
628 { RGB_TO_ULONG(69 , 139, 0 ), "chartreuse4" },
629 { RGB_TO_ULONG(192, 255, 62 ), "OliveDrab1" },
630 { RGB_TO_ULONG(179, 238, 58 ), "OliveDrab2" },
631 { RGB_TO_ULONG(154, 205, 50 ), "OliveDrab3" },
632 { RGB_TO_ULONG(105, 139, 34 ), "OliveDrab4" },
633 { RGB_TO_ULONG(202, 255, 112), "DarkOliveGreen1" },
634 { RGB_TO_ULONG(188, 238, 104), "DarkOliveGreen2" },
635 { RGB_TO_ULONG(162, 205, 90 ), "DarkOliveGreen3" },
636 { RGB_TO_ULONG(110, 139, 61 ), "DarkOliveGreen4" },
637 { RGB_TO_ULONG(255, 246, 143), "khaki1" },
638 { RGB_TO_ULONG(238, 230, 133), "khaki2" },
639 { RGB_TO_ULONG(205, 198, 115), "khaki3" },
640 { RGB_TO_ULONG(139, 134, 78 ), "khaki4" },
641 { RGB_TO_ULONG(255, 236, 139), "LightGoldenrod1" },
642 { RGB_TO_ULONG(238, 220, 130), "LightGoldenrod2" },
643 { RGB_TO_ULONG(205, 190, 112), "LightGoldenrod3" },
644 { RGB_TO_ULONG(139, 129, 76 ), "LightGoldenrod4" },
645 { RGB_TO_ULONG(255, 255, 224), "LightYellow1" },
646 { RGB_TO_ULONG(238, 238, 209), "LightYellow2" },
647 { RGB_TO_ULONG(205, 205, 180), "LightYellow3" },
648 { RGB_TO_ULONG(139, 139, 122), "LightYellow4" },
649 { RGB_TO_ULONG(255, 255, 0 ), "yellow1" },
650 { RGB_TO_ULONG(238, 238, 0 ), "yellow2" },
651 { RGB_TO_ULONG(205, 205, 0 ), "yellow3" },
652 { RGB_TO_ULONG(139, 139, 0 ), "yellow4" },
653 { RGB_TO_ULONG(255, 215, 0 ), "gold1" },
654 { RGB_TO_ULONG(238, 201, 0 ), "gold2" },
655 { RGB_TO_ULONG(205, 173, 0 ), "gold3" },
656 { RGB_TO_ULONG(139, 117, 0 ), "gold4" },
657 { RGB_TO_ULONG(255, 193, 37 ), "goldenrod1" },
658 { RGB_TO_ULONG(238, 180, 34 ), "goldenrod2" },
659 { RGB_TO_ULONG(205, 155, 29 ), "goldenrod3" },
660 { RGB_TO_ULONG(139, 105, 20 ), "goldenrod4" },
661 { RGB_TO_ULONG(255, 185, 15 ), "DarkGoldenrod1" },
662 { RGB_TO_ULONG(238, 173, 14 ), "DarkGoldenrod2" },
663 { RGB_TO_ULONG(205, 149, 12 ), "DarkGoldenrod3" },
664 { RGB_TO_ULONG(139, 101, 8 ), "DarkGoldenrod4" },
665 { RGB_TO_ULONG(255, 193, 193), "RosyBrown1" },
666 { RGB_TO_ULONG(238, 180, 180), "RosyBrown2" },
667 { RGB_TO_ULONG(205, 155, 155), "RosyBrown3" },
668 { RGB_TO_ULONG(139, 105, 105), "RosyBrown4" },
669 { RGB_TO_ULONG(255, 106, 106), "IndianRed1" },
670 { RGB_TO_ULONG(238, 99 , 99 ), "IndianRed2" },
671 { RGB_TO_ULONG(205, 85 , 85 ), "IndianRed3" },
672 { RGB_TO_ULONG(139, 58 , 58 ), "IndianRed4" },
673 { RGB_TO_ULONG(255, 130, 71 ), "sienna1" },
674 { RGB_TO_ULONG(238, 121, 66 ), "sienna2" },
675 { RGB_TO_ULONG(205, 104, 57 ), "sienna3" },
676 { RGB_TO_ULONG(139, 71 , 38 ), "sienna4" },
677 { RGB_TO_ULONG(255, 211, 155), "burlywood1" },
678 { RGB_TO_ULONG(238, 197, 145), "burlywood2" },
679 { RGB_TO_ULONG(205, 170, 125), "burlywood3" },
680 { RGB_TO_ULONG(139, 115, 85 ), "burlywood4" },
681 { RGB_TO_ULONG(255, 231, 186), "wheat1" },
682 { RGB_TO_ULONG(238, 216, 174), "wheat2" },
683 { RGB_TO_ULONG(205, 186, 150), "wheat3" },
684 { RGB_TO_ULONG(139, 126, 102), "wheat4" },
685 { RGB_TO_ULONG(255, 165, 79 ), "tan1" },
686 { RGB_TO_ULONG(238, 154, 73 ), "tan2" },
687 { RGB_TO_ULONG(205, 133, 63 ), "tan3" },
688 { RGB_TO_ULONG(139, 90 , 43 ), "tan4" },
689 { RGB_TO_ULONG(255, 127, 36 ), "chocolate1" },
690 { RGB_TO_ULONG(238, 118, 33 ), "chocolate2" },
691 { RGB_TO_ULONG(205, 102, 29 ), "chocolate3" },
692 { RGB_TO_ULONG(139, 69 , 19 ), "chocolate4" },
693 { RGB_TO_ULONG(255, 48 , 48 ), "firebrick1" },
694 { RGB_TO_ULONG(238, 44 , 44 ), "firebrick2" },
695 { RGB_TO_ULONG(205, 38 , 38 ), "firebrick3" },
696 { RGB_TO_ULONG(139, 26 , 26 ), "firebrick4" },
697 { RGB_TO_ULONG(255, 64 , 64 ), "brown1" },
698 { RGB_TO_ULONG(238, 59 , 59 ), "brown2" },
699 { RGB_TO_ULONG(205, 51 , 51 ), "brown3" },
700 { RGB_TO_ULONG(139, 35 , 35 ), "brown4" },
701 { RGB_TO_ULONG(255, 140, 105), "salmon1" },
702 { RGB_TO_ULONG(238, 130, 98 ), "salmon2" },
703 { RGB_TO_ULONG(205, 112, 84 ), "salmon3" },
704 { RGB_TO_ULONG(139, 76 , 57 ), "salmon4" },
705 { RGB_TO_ULONG(255, 160, 122), "LightSalmon1" },
706 { RGB_TO_ULONG(238, 149, 114), "LightSalmon2" },
707 { RGB_TO_ULONG(205, 129, 98 ), "LightSalmon3" },
708 { RGB_TO_ULONG(139, 87 , 66 ), "LightSalmon4" },
709 { RGB_TO_ULONG(255, 165, 0 ), "orange1" },
710 { RGB_TO_ULONG(238, 154, 0 ), "orange2" },
711 { RGB_TO_ULONG(205, 133, 0 ), "orange3" },
712 { RGB_TO_ULONG(139, 90 , 0 ), "orange4" },
713 { RGB_TO_ULONG(255, 127, 0 ), "DarkOrange1" },
714 { RGB_TO_ULONG(238, 118, 0 ), "DarkOrange2" },
715 { RGB_TO_ULONG(205, 102, 0 ), "DarkOrange3" },
716 { RGB_TO_ULONG(139, 69 , 0 ), "DarkOrange4" },
717 { RGB_TO_ULONG(255, 114, 86 ), "coral1" },
718 { RGB_TO_ULONG(238, 106, 80 ), "coral2" },
719 { RGB_TO_ULONG(205, 91 , 69 ), "coral3" },
720 { RGB_TO_ULONG(139, 62 , 47 ), "coral4" },
721 { RGB_TO_ULONG(255, 99 , 71 ), "tomato1" },
722 { RGB_TO_ULONG(238, 92 , 66 ), "tomato2" },
723 { RGB_TO_ULONG(205, 79 , 57 ), "tomato3" },
724 { RGB_TO_ULONG(139, 54 , 38 ), "tomato4" },
725 { RGB_TO_ULONG(255, 69 , 0 ), "OrangeRed1" },
726 { RGB_TO_ULONG(238, 64 , 0 ), "OrangeRed2" },
727 { RGB_TO_ULONG(205, 55 , 0 ), "OrangeRed3" },
728 { RGB_TO_ULONG(139, 37 , 0 ), "OrangeRed4" },
729 { RGB_TO_ULONG(255, 0 , 0 ), "red1" },
730 { RGB_TO_ULONG(238, 0 , 0 ), "red2" },
731 { RGB_TO_ULONG(205, 0 , 0 ), "red3" },
732 { RGB_TO_ULONG(139, 0 , 0 ), "red4" },
733 { RGB_TO_ULONG(255, 20 , 147), "DeepPink1" },
734 { RGB_TO_ULONG(238, 18 , 137), "DeepPink2" },
735 { RGB_TO_ULONG(205, 16 , 118), "DeepPink3" },
736 { RGB_TO_ULONG(139, 10 , 80 ), "DeepPink4" },
737 { RGB_TO_ULONG(255, 110, 180), "HotPink1" },
738 { RGB_TO_ULONG(238, 106, 167), "HotPink2" },
739 { RGB_TO_ULONG(205, 96 , 144), "HotPink3" },
740 { RGB_TO_ULONG(139, 58 , 98 ), "HotPink4" },
741 { RGB_TO_ULONG(255, 181, 197), "pink1" },
742 { RGB_TO_ULONG(238, 169, 184), "pink2" },
743 { RGB_TO_ULONG(205, 145, 158), "pink3" },
744 { RGB_TO_ULONG(139, 99 , 108), "pink4" },
745 { RGB_TO_ULONG(255, 174, 185), "LightPink1" },
746 { RGB_TO_ULONG(238, 162, 173), "LightPink2" },
747 { RGB_TO_ULONG(205, 140, 149), "LightPink3" },
748 { RGB_TO_ULONG(139, 95 , 101), "LightPink4" },
749 { RGB_TO_ULONG(255, 130, 171), "PaleVioletRed1" },
750 { RGB_TO_ULONG(238, 121, 159), "PaleVioletRed2" },
751 { RGB_TO_ULONG(205, 104, 137), "PaleVioletRed3" },
752 { RGB_TO_ULONG(139, 71 , 93 ), "PaleVioletRed4" },
753 { RGB_TO_ULONG(255, 52 , 179), "maroon1" },
754 { RGB_TO_ULONG(238, 48 , 167), "maroon2" },
755 { RGB_TO_ULONG(205, 41 , 144), "maroon3" },
756 { RGB_TO_ULONG(139, 28 , 98 ), "maroon4" },
757 { RGB_TO_ULONG(255, 62 , 150), "VioletRed1" },
758 { RGB_TO_ULONG(238, 58 , 140), "VioletRed2" },
759 { RGB_TO_ULONG(205, 50 , 120), "VioletRed3" },
760 { RGB_TO_ULONG(139, 34 , 82 ), "VioletRed4" },
761 { RGB_TO_ULONG(255, 0 , 255), "magenta1" },
762 { RGB_TO_ULONG(238, 0 , 238), "magenta2" },
763 { RGB_TO_ULONG(205, 0 , 205), "magenta3" },
764 { RGB_TO_ULONG(139, 0 , 139), "magenta4" },
765 { RGB_TO_ULONG(255, 131, 250), "orchid1" },
766 { RGB_TO_ULONG(238, 122, 233), "orchid2" },
767 { RGB_TO_ULONG(205, 105, 201), "orchid3" },
768 { RGB_TO_ULONG(139, 71 , 137), "orchid4" },
769 { RGB_TO_ULONG(255, 187, 255), "plum1" },
770 { RGB_TO_ULONG(238, 174, 238), "plum2" },
771 { RGB_TO_ULONG(205, 150, 205), "plum3" },
772 { RGB_TO_ULONG(139, 102, 139), "plum4" },
773 { RGB_TO_ULONG(224, 102, 255), "MediumOrchid1" },
774 { RGB_TO_ULONG(209, 95 , 238), "MediumOrchid2" },
775 { RGB_TO_ULONG(180, 82 , 205), "MediumOrchid3" },
776 { RGB_TO_ULONG(122, 55 , 139), "MediumOrchid4" },
777 { RGB_TO_ULONG(191, 62 , 255), "DarkOrchid1" },
778 { RGB_TO_ULONG(178, 58 , 238), "DarkOrchid2" },
779 { RGB_TO_ULONG(154, 50 , 205), "DarkOrchid3" },
780 { RGB_TO_ULONG(104, 34 , 139), "DarkOrchid4" },
781 { RGB_TO_ULONG(155, 48 , 255), "purple1" },
782 { RGB_TO_ULONG(145, 44 , 238), "purple2" },
783 { RGB_TO_ULONG(125, 38 , 205), "purple3" },
784 { RGB_TO_ULONG(85 , 26 , 139), "purple4" },
785 { RGB_TO_ULONG(171, 130, 255), "MediumPurple1" },
786 { RGB_TO_ULONG(159, 121, 238), "MediumPurple2" },
787 { RGB_TO_ULONG(137, 104, 205), "MediumPurple3" },
788 { RGB_TO_ULONG(93 , 71 , 139), "MediumPurple4" },
789 { RGB_TO_ULONG(255, 225, 255), "thistle1" },
790 { RGB_TO_ULONG(238, 210, 238), "thistle2" },
791 { RGB_TO_ULONG(205, 181, 205), "thistle3" },
792 { RGB_TO_ULONG(139, 123, 139), "thistle4" },
793 { RGB_TO_ULONG(0 , 0 , 0 ), "gray0" },
794 { RGB_TO_ULONG(0 , 0 , 0 ), "grey0" },
795 { RGB_TO_ULONG(3 , 3 , 3 ), "gray1" },
796 { RGB_TO_ULONG(3 , 3 , 3 ), "grey1" },
797 { RGB_TO_ULONG(5 , 5 , 5 ), "gray2" },
798 { RGB_TO_ULONG(5 , 5 , 5 ), "grey2" },
799 { RGB_TO_ULONG(8 , 8 , 8 ), "gray3" },
800 { RGB_TO_ULONG(8 , 8 , 8 ), "grey3" },
801 { RGB_TO_ULONG(10 , 10 , 10 ), "gray4" },
802 { RGB_TO_ULONG(10 , 10 , 10 ), "grey4" },
803 { RGB_TO_ULONG(13 , 13 , 13 ), "gray5" },
804 { RGB_TO_ULONG(13 , 13 , 13 ), "grey5" },
805 { RGB_TO_ULONG(15 , 15 , 15 ), "gray6" },
806 { RGB_TO_ULONG(15 , 15 , 15 ), "grey6" },
807 { RGB_TO_ULONG(18 , 18 , 18 ), "gray7" },
808 { RGB_TO_ULONG(18 , 18 , 18 ), "grey7" },
809 { RGB_TO_ULONG(20 , 20 , 20 ), "gray8" },
810 { RGB_TO_ULONG(20 , 20 , 20 ), "grey8" },
811 { RGB_TO_ULONG(23 , 23 , 23 ), "gray9" },
812 { RGB_TO_ULONG(23 , 23 , 23 ), "grey9" },
813 { RGB_TO_ULONG(26 , 26 , 26 ), "gray10" },
814 { RGB_TO_ULONG(26 , 26 , 26 ), "grey10" },
815 { RGB_TO_ULONG(28 , 28 , 28 ), "gray11" },
816 { RGB_TO_ULONG(28 , 28 , 28 ), "grey11" },
817 { RGB_TO_ULONG(31 , 31 , 31 ), "gray12" },
818 { RGB_TO_ULONG(31 , 31 , 31 ), "grey12" },
819 { RGB_TO_ULONG(33 , 33 , 33 ), "gray13" },
820 { RGB_TO_ULONG(33 , 33 , 33 ), "grey13" },
821 { RGB_TO_ULONG(36 , 36 , 36 ), "gray14" },
822 { RGB_TO_ULONG(36 , 36 , 36 ), "grey14" },
823 { RGB_TO_ULONG(38 , 38 , 38 ), "gray15" },
824 { RGB_TO_ULONG(38 , 38 , 38 ), "grey15" },
825 { RGB_TO_ULONG(41 , 41 , 41 ), "gray16" },
826 { RGB_TO_ULONG(41 , 41 , 41 ), "grey16" },
827 { RGB_TO_ULONG(43 , 43 , 43 ), "gray17" },
828 { RGB_TO_ULONG(43 , 43 , 43 ), "grey17" },
829 { RGB_TO_ULONG(46 , 46 , 46 ), "gray18" },
830 { RGB_TO_ULONG(46 , 46 , 46 ), "grey18" },
831 { RGB_TO_ULONG(48 , 48 , 48 ), "gray19" },
832 { RGB_TO_ULONG(48 , 48 , 48 ), "grey19" },
833 { RGB_TO_ULONG(51 , 51 , 51 ), "gray20" },
834 { RGB_TO_ULONG(51 , 51 , 51 ), "grey20" },
835 { RGB_TO_ULONG(54 , 54 , 54 ), "gray21" },
836 { RGB_TO_ULONG(54 , 54 , 54 ), "grey21" },
837 { RGB_TO_ULONG(56 , 56 , 56 ), "gray22" },
838 { RGB_TO_ULONG(56 , 56 , 56 ), "grey22" },
839 { RGB_TO_ULONG(59 , 59 , 59 ), "gray23" },
840 { RGB_TO_ULONG(59 , 59 , 59 ), "grey23" },
841 { RGB_TO_ULONG(61 , 61 , 61 ), "gray24" },
842 { RGB_TO_ULONG(61 , 61 , 61 ), "grey24" },
843 { RGB_TO_ULONG(64 , 64 , 64 ), "gray25" },
844 { RGB_TO_ULONG(64 , 64 , 64 ), "grey25" },
845 { RGB_TO_ULONG(66 , 66 , 66 ), "gray26" },
846 { RGB_TO_ULONG(66 , 66 , 66 ), "grey26" },
847 { RGB_TO_ULONG(69 , 69 , 69 ), "gray27" },
848 { RGB_TO_ULONG(69 , 69 , 69 ), "grey27" },
849 { RGB_TO_ULONG(71 , 71 , 71 ), "gray28" },
850 { RGB_TO_ULONG(71 , 71 , 71 ), "grey28" },
851 { RGB_TO_ULONG(74 , 74 , 74 ), "gray29" },
852 { RGB_TO_ULONG(74 , 74 , 74 ), "grey29" },
853 { RGB_TO_ULONG(77 , 77 , 77 ), "gray30" },
854 { RGB_TO_ULONG(77 , 77 , 77 ), "grey30" },
855 { RGB_TO_ULONG(79 , 79 , 79 ), "gray31" },
856 { RGB_TO_ULONG(79 , 79 , 79 ), "grey31" },
857 { RGB_TO_ULONG(82 , 82 , 82 ), "gray32" },
858 { RGB_TO_ULONG(82 , 82 , 82 ), "grey32" },
859 { RGB_TO_ULONG(84 , 84 , 84 ), "gray33" },
860 { RGB_TO_ULONG(84 , 84 , 84 ), "grey33" },
861 { RGB_TO_ULONG(87 , 87 , 87 ), "gray34" },
862 { RGB_TO_ULONG(87 , 87 , 87 ), "grey34" },
863 { RGB_TO_ULONG(89 , 89 , 89 ), "gray35" },
864 { RGB_TO_ULONG(89 , 89 , 89 ), "grey35" },
865 { RGB_TO_ULONG(92 , 92 , 92 ), "gray36" },
866 { RGB_TO_ULONG(92 , 92 , 92 ), "grey36" },
867 { RGB_TO_ULONG(94 , 94 , 94 ), "gray37" },
868 { RGB_TO_ULONG(94 , 94 , 94 ), "grey37" },
869 { RGB_TO_ULONG(97 , 97 , 97 ), "gray38" },
870 { RGB_TO_ULONG(97 , 97 , 97 ), "grey38" },
871 { RGB_TO_ULONG(99 , 99 , 99 ), "gray39" },
872 { RGB_TO_ULONG(99 , 99 , 99 ), "grey39" },
873 { RGB_TO_ULONG(102, 102, 102), "gray40" },
874 { RGB_TO_ULONG(102, 102, 102), "grey40" },
875 { RGB_TO_ULONG(105, 105, 105), "gray41" },
876 { RGB_TO_ULONG(105, 105, 105), "grey41" },
877 { RGB_TO_ULONG(107, 107, 107), "gray42" },
878 { RGB_TO_ULONG(107, 107, 107), "grey42" },
879 { RGB_TO_ULONG(110, 110, 110), "gray43" },
880 { RGB_TO_ULONG(110, 110, 110), "grey43" },
881 { RGB_TO_ULONG(112, 112, 112), "gray44" },
882 { RGB_TO_ULONG(112, 112, 112), "grey44" },
883 { RGB_TO_ULONG(115, 115, 115), "gray45" },
884 { RGB_TO_ULONG(115, 115, 115), "grey45" },
885 { RGB_TO_ULONG(117, 117, 117), "gray46" },
886 { RGB_TO_ULONG(117, 117, 117), "grey46" },
887 { RGB_TO_ULONG(120, 120, 120), "gray47" },
888 { RGB_TO_ULONG(120, 120, 120), "grey47" },
889 { RGB_TO_ULONG(122, 122, 122), "gray48" },
890 { RGB_TO_ULONG(122, 122, 122), "grey48" },
891 { RGB_TO_ULONG(125, 125, 125), "gray49" },
892 { RGB_TO_ULONG(125, 125, 125), "grey49" },
893 { RGB_TO_ULONG(127, 127, 127), "gray50" },
894 { RGB_TO_ULONG(127, 127, 127), "grey50" },
895 { RGB_TO_ULONG(130, 130, 130), "gray51" },
896 { RGB_TO_ULONG(130, 130, 130), "grey51" },
897 { RGB_TO_ULONG(133, 133, 133), "gray52" },
898 { RGB_TO_ULONG(133, 133, 133), "grey52" },
899 { RGB_TO_ULONG(135, 135, 135), "gray53" },
900 { RGB_TO_ULONG(135, 135, 135), "grey53" },
901 { RGB_TO_ULONG(138, 138, 138), "gray54" },
902 { RGB_TO_ULONG(138, 138, 138), "grey54" },
903 { RGB_TO_ULONG(140, 140, 140), "gray55" },
904 { RGB_TO_ULONG(140, 140, 140), "grey55" },
905 { RGB_TO_ULONG(143, 143, 143), "gray56" },
906 { RGB_TO_ULONG(143, 143, 143), "grey56" },
907 { RGB_TO_ULONG(145, 145, 145), "gray57" },
908 { RGB_TO_ULONG(145, 145, 145), "grey57" },
909 { RGB_TO_ULONG(148, 148, 148), "gray58" },
910 { RGB_TO_ULONG(148, 148, 148), "grey58" },
911 { RGB_TO_ULONG(150, 150, 150), "gray59" },
912 { RGB_TO_ULONG(150, 150, 150), "grey59" },
913 { RGB_TO_ULONG(153, 153, 153), "gray60" },
914 { RGB_TO_ULONG(153, 153, 153), "grey60" },
915 { RGB_TO_ULONG(156, 156, 156), "gray61" },
916 { RGB_TO_ULONG(156, 156, 156), "grey61" },
917 { RGB_TO_ULONG(158, 158, 158), "gray62" },
918 { RGB_TO_ULONG(158, 158, 158), "grey62" },
919 { RGB_TO_ULONG(161, 161, 161), "gray63" },
920 { RGB_TO_ULONG(161, 161, 161), "grey63" },
921 { RGB_TO_ULONG(163, 163, 163), "gray64" },
922 { RGB_TO_ULONG(163, 163, 163), "grey64" },
923 { RGB_TO_ULONG(166, 166, 166), "gray65" },
924 { RGB_TO_ULONG(166, 166, 166), "grey65" },
925 { RGB_TO_ULONG(168, 168, 168), "gray66" },
926 { RGB_TO_ULONG(168, 168, 168), "grey66" },
927 { RGB_TO_ULONG(171, 171, 171), "gray67" },
928 { RGB_TO_ULONG(171, 171, 171), "grey67" },
929 { RGB_TO_ULONG(173, 173, 173), "gray68" },
930 { RGB_TO_ULONG(173, 173, 173), "grey68" },
931 { RGB_TO_ULONG(176, 176, 176), "gray69" },
932 { RGB_TO_ULONG(176, 176, 176), "grey69" },
933 { RGB_TO_ULONG(179, 179, 179), "gray70" },
934 { RGB_TO_ULONG(179, 179, 179), "grey70" },
935 { RGB_TO_ULONG(181, 181, 181), "gray71" },
936 { RGB_TO_ULONG(181, 181, 181), "grey71" },
937 { RGB_TO_ULONG(184, 184, 184), "gray72" },
938 { RGB_TO_ULONG(184, 184, 184), "grey72" },
939 { RGB_TO_ULONG(186, 186, 186), "gray73" },
940 { RGB_TO_ULONG(186, 186, 186), "grey73" },
941 { RGB_TO_ULONG(189, 189, 189), "gray74" },
942 { RGB_TO_ULONG(189, 189, 189), "grey74" },
943 { RGB_TO_ULONG(191, 191, 191), "gray75" },
944 { RGB_TO_ULONG(191, 191, 191), "grey75" },
945 { RGB_TO_ULONG(194, 194, 194), "gray76" },
946 { RGB_TO_ULONG(194, 194, 194), "grey76" },
947 { RGB_TO_ULONG(196, 196, 196), "gray77" },
948 { RGB_TO_ULONG(196, 196, 196), "grey77" },
949 { RGB_TO_ULONG(199, 199, 199), "gray78" },
950 { RGB_TO_ULONG(199, 199, 199), "grey78" },
951 { RGB_TO_ULONG(201, 201, 201), "gray79" },
952 { RGB_TO_ULONG(201, 201, 201), "grey79" },
953 { RGB_TO_ULONG(204, 204, 204), "gray80" },
954 { RGB_TO_ULONG(204, 204, 204), "grey80" },
955 { RGB_TO_ULONG(207, 207, 207), "gray81" },
956 { RGB_TO_ULONG(207, 207, 207), "grey81" },
957 { RGB_TO_ULONG(209, 209, 209), "gray82" },
958 { RGB_TO_ULONG(209, 209, 209), "grey82" },
959 { RGB_TO_ULONG(212, 212, 212), "gray83" },
960 { RGB_TO_ULONG(212, 212, 212), "grey83" },
961 { RGB_TO_ULONG(214, 214, 214), "gray84" },
962 { RGB_TO_ULONG(214, 214, 214), "grey84" },
963 { RGB_TO_ULONG(217, 217, 217), "gray85" },
964 { RGB_TO_ULONG(217, 217, 217), "grey85" },
965 { RGB_TO_ULONG(219, 219, 219), "gray86" },
966 { RGB_TO_ULONG(219, 219, 219), "grey86" },
967 { RGB_TO_ULONG(222, 222, 222), "gray87" },
968 { RGB_TO_ULONG(222, 222, 222), "grey87" },
969 { RGB_TO_ULONG(224, 224, 224), "gray88" },
970 { RGB_TO_ULONG(224, 224, 224), "grey88" },
971 { RGB_TO_ULONG(227, 227, 227), "gray89" },
972 { RGB_TO_ULONG(227, 227, 227), "grey89" },
973 { RGB_TO_ULONG(229, 229, 229), "gray90" },
974 { RGB_TO_ULONG(229, 229, 229), "grey90" },
975 { RGB_TO_ULONG(232, 232, 232), "gray91" },
976 { RGB_TO_ULONG(232, 232, 232), "grey91" },
977 { RGB_TO_ULONG(235, 235, 235), "gray92" },
978 { RGB_TO_ULONG(235, 235, 235), "grey92" },
979 { RGB_TO_ULONG(237, 237, 237), "gray93" },
980 { RGB_TO_ULONG(237, 237, 237), "grey93" },
981 { RGB_TO_ULONG(240, 240, 240), "gray94" },
982 { RGB_TO_ULONG(240, 240, 240), "grey94" },
983 { RGB_TO_ULONG(242, 242, 242), "gray95" },
984 { RGB_TO_ULONG(242, 242, 242), "grey95" },
985 { RGB_TO_ULONG(245, 245, 245), "gray96" },
986 { RGB_TO_ULONG(245, 245, 245), "grey96" },
987 { RGB_TO_ULONG(247, 247, 247), "gray97" },
988 { RGB_TO_ULONG(247, 247, 247), "grey97" },
989 { RGB_TO_ULONG(250, 250, 250), "gray98" },
990 { RGB_TO_ULONG(250, 250, 250), "grey98" },
991 { RGB_TO_ULONG(252, 252, 252), "gray99" },
992 { RGB_TO_ULONG(252, 252, 252), "grey99" },
993 { RGB_TO_ULONG(255, 255, 255), "gray100" },
994 { RGB_TO_ULONG(255, 255, 255), "grey100" },
995 { RGB_TO_ULONG(169, 169, 169), "dark grey" },
996 { RGB_TO_ULONG(169, 169, 169), "DarkGrey" },
997 { RGB_TO_ULONG(169, 169, 169), "dark gray" },
998 { RGB_TO_ULONG(169, 169, 169), "DarkGray" },
999 { RGB_TO_ULONG(0 , 0 , 139), "dark blue" },
1000 { RGB_TO_ULONG(0 , 0 , 139), "DarkBlue" },
1001 { RGB_TO_ULONG(0 , 139, 139), "dark cyan" },
1002 { RGB_TO_ULONG(0 , 139, 139), "DarkCyan" },
1003 { RGB_TO_ULONG(139, 0 , 139), "dark magenta" },
1004 { RGB_TO_ULONG(139, 0 , 139), "DarkMagenta" },
1005 { RGB_TO_ULONG(139, 0 , 0 ), "dark red" },
1006 { RGB_TO_ULONG(139, 0 , 0 ), "DarkRed" },
1007 { RGB_TO_ULONG(144, 238, 144), "light green" },
1008 { RGB_TO_ULONG(144, 238, 144), "LightGreen" }
1012 mac_color_map_lookup (colorname
)
1015 Lisp_Object ret
= Qnil
;
1020 for (i
= 0; i
< sizeof (mac_color_map
) / sizeof (mac_color_map
[0]); i
++)
1021 if (xstricmp (colorname
, mac_color_map
[i
].name
) == 0)
1023 ret
= make_number (mac_color_map
[i
].color
);
1033 x_to_mac_color (colorname
)
1036 register Lisp_Object tail
, ret
= Qnil
;
1040 if (colorname
[0] == '#')
1042 /* Could be an old-style RGB Device specification. */
1045 color
= colorname
+ 1;
1047 size
= strlen(color
);
1048 if (size
== 3 || size
== 6 || size
== 9 || size
== 12)
1050 unsigned long colorval
;
1056 for (i
= 0; i
< 3; i
++)
1060 unsigned long value
;
1062 /* The check for 'x' in the following conditional takes into
1063 account the fact that strtol allows a "0x" in front of
1064 our numbers, and we don't. */
1065 if (!isxdigit(color
[0]) || color
[1] == 'x')
1069 value
= strtoul(color
, &end
, 16);
1071 if (errno
== ERANGE
|| end
- color
!= size
)
1076 value
= value
* 0x10;
1087 colorval
|= (value
<< pos
);
1092 return make_number (colorval
);
1098 else if (strnicmp(colorname
, "rgb:", 4) == 0)
1101 unsigned long colorval
;
1106 color
= colorname
+ 4;
1107 for (i
= 0; i
< 3; i
++)
1110 unsigned long value
;
1112 /* The check for 'x' in the following conditional takes into
1113 account the fact that strtol allows a "0x" in front of
1114 our numbers, and we don't. */
1115 if (!isxdigit(color
[0]) || color
[1] == 'x')
1117 value
= strtoul(color
, &end
, 16);
1118 if (errno
== ERANGE
)
1120 switch (end
- color
)
1123 value
= value
* 0x10 + value
;
1136 if (value
== ULONG_MAX
)
1138 colorval
|= (value
<< pos
);
1145 return make_number (colorval
);
1152 else if (strnicmp(colorname
, "rgbi:", 5) == 0)
1154 /* This is an RGB Intensity specification. */
1156 unsigned long colorval
;
1161 color
= colorname
+ 5;
1162 for (i
= 0; i
< 3; i
++)
1168 value
= strtod(color
, &end
);
1169 if (errno
== ERANGE
)
1171 if (value
< 0.0 || value
> 1.0)
1173 val
= (unsigned long)(0x100 * value
);
1174 /* We used 0x100 instead of 0xFF to give a continuous
1175 range between 0.0 and 1.0 inclusive. The next statement
1176 fixes the 1.0 case. */
1179 colorval
|= (val
<< pos
);
1186 return make_number (colorval
);
1194 ret
= mac_color_map_lookup (colorname
);
1200 /* Gamma-correct COLOR on frame F. */
1203 gamma_correct (f
, color
)
1205 unsigned long *color
;
1209 unsigned long red
, green
, blue
;
1211 red
= pow (RED_FROM_ULONG (*color
) / 255.0, f
->gamma
) * 255.0 + 0.5;
1212 green
= pow (GREEN_FROM_ULONG (*color
) / 255.0, f
->gamma
) * 255.0 + 0.5;
1213 blue
= pow (BLUE_FROM_ULONG (*color
) / 255.0, f
->gamma
) * 255.0 + 0.5;
1214 *color
= RGB_TO_ULONG (red
, green
, blue
);
1218 /* Decide if color named COLOR is valid for the display associated
1219 with the selected frame; if so, return the rgb values in COLOR_DEF.
1220 If ALLOC is nonzero, allocate a new colormap cell. */
1223 mac_defined_color (f
, color
, color_def
, alloc
)
1229 register Lisp_Object tem
;
1230 unsigned long mac_color_ref
;
1232 tem
= x_to_mac_color (color
);
1238 /* Apply gamma correction. */
1239 mac_color_ref
= XUINT (tem
);
1240 gamma_correct (f
, &mac_color_ref
);
1241 XSETINT (tem
, mac_color_ref
);
1244 color_def
->pixel
= mac_color_ref
;
1245 color_def
->red
= RED16_FROM_ULONG (mac_color_ref
);
1246 color_def
->green
= GREEN16_FROM_ULONG (mac_color_ref
);
1247 color_def
->blue
= BLUE16_FROM_ULONG (mac_color_ref
);
1257 /* Given a string ARG naming a color, compute a pixel value from it
1258 suitable for screen F.
1259 If F is not a color screen, return DEF (default) regardless of what
1263 x_decode_color (f
, arg
, def
)
1272 if (strcmp (SDATA (arg
), "black") == 0)
1273 return BLACK_PIX_DEFAULT (f
);
1274 else if (strcmp (SDATA (arg
), "white") == 0)
1275 return WHITE_PIX_DEFAULT (f
);
1278 if (FRAME_MAC_DISPLAY_INFO (f
)->n_planes
) == 1)
1282 if (mac_defined_color (f
, SDATA (arg
), &cdef
, 1))
1285 /* defined_color failed; return an ultimate default. */
1289 /* Functions called only from `x_set_frame_param'
1290 to set individual parameters.
1292 If FRAME_MAC_WINDOW (f) is 0,
1293 the frame is being created and its window does not exist yet.
1294 In that case, just record the parameter's new value
1295 in the standard place; do not attempt to change the window. */
1298 x_set_foreground_color (f
, arg
, oldval
)
1300 Lisp_Object arg
, oldval
;
1302 struct mac_output
*mac
= f
->output_data
.mac
;
1303 unsigned long fg
, old_fg
;
1305 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1306 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
1307 FRAME_FOREGROUND_PIXEL (f
) = fg
;
1309 if (FRAME_MAC_WINDOW (f
) != 0)
1311 Display
*dpy
= FRAME_MAC_DISPLAY (f
);
1314 XSetForeground (dpy
, mac
->normal_gc
, fg
);
1315 XSetBackground (dpy
, mac
->reverse_gc
, fg
);
1317 if (mac
->cursor_pixel
== old_fg
)
1319 unload_color (f
, mac
->cursor_pixel
);
1320 mac
->cursor_pixel
= fg
;
1321 XSetBackground (dpy
, mac
->cursor_gc
, mac
->cursor_pixel
);
1326 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
1328 if (FRAME_VISIBLE_P (f
))
1332 unload_color (f
, old_fg
);
1336 x_set_background_color (f
, arg
, oldval
)
1338 Lisp_Object arg
, oldval
;
1340 struct mac_output
*mac
= f
->output_data
.mac
;
1343 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
1344 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
1345 FRAME_BACKGROUND_PIXEL (f
) = bg
;
1347 if (FRAME_MAC_WINDOW (f
) != 0)
1349 Display
*dpy
= FRAME_MAC_DISPLAY (f
);
1352 XSetBackground (dpy
, mac
->normal_gc
, bg
);
1353 XSetForeground (dpy
, mac
->reverse_gc
, bg
);
1354 XSetWindowBackground (dpy
, FRAME_MAC_WINDOW (f
), bg
);
1355 XSetForeground (dpy
, mac
->cursor_gc
, bg
);
1358 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
1360 if (FRAME_VISIBLE_P (f
))
1366 x_set_mouse_color (f
, arg
, oldval
)
1368 Lisp_Object arg
, oldval
;
1370 struct x_output
*x
= f
->output_data
.x
;
1371 Display
*dpy
= FRAME_MAC_DISPLAY (f
);
1372 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
1373 Cursor hourglass_cursor
, horizontal_drag_cursor
;
1374 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1375 unsigned long mask_color
= x
->background_pixel
;
1377 /* Don't let pointers be invisible. */
1378 if (mask_color
== pixel
)
1379 pixel
= x
->foreground_pixel
;
1381 f
->output_data
.mac
->mouse_pixel
= pixel
;
1383 if (!NILP (Vx_pointer_shape
))
1385 CHECK_NUMBER (Vx_pointer_shape
);
1386 cursor
= XINT (Vx_pointer_shape
);
1389 cursor
= kThemeIBeamCursor
;
1391 if (!NILP (Vx_nontext_pointer_shape
))
1393 CHECK_NUMBER (Vx_nontext_pointer_shape
);
1394 nontext_cursor
= XINT (Vx_nontext_pointer_shape
);
1397 nontext_cursor
= kThemeArrowCursor
;
1399 if (!NILP (Vx_hourglass_pointer_shape
))
1401 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
1402 hourglass_cursor
= XINT (Vx_hourglass_pointer_shape
);
1405 hourglass_cursor
= kThemeWatchCursor
;
1407 if (!NILP (Vx_mode_pointer_shape
))
1409 CHECK_NUMBER (Vx_mode_pointer_shape
);
1410 mode_cursor
= XINT (Vx_mode_pointer_shape
);
1413 mode_cursor
= kThemeArrowCursor
;
1415 if (!NILP (Vx_sensitive_text_pointer_shape
))
1417 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
1418 hand_cursor
= XINT (Vx_sensitive_text_pointer_shape
);
1421 hand_cursor
= kThemePointingHandCursor
;
1423 if (!NILP (Vx_window_horizontal_drag_shape
))
1425 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1426 horizontal_drag_cursor
= XINT (Vx_window_horizontal_drag_shape
);
1429 horizontal_drag_cursor
= kThemeResizeLeftRightCursor
;
1431 #if 0 /* MAC_TODO: cursor color changes */
1433 XColor fore_color
, back_color
;
1435 fore_color
.pixel
= f
->output_data
.mac
->mouse_pixel
;
1436 x_query_color (f
, &fore_color
);
1437 back_color
.pixel
= mask_color
;
1438 x_query_color (f
, &back_color
);
1440 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1441 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1442 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1443 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1444 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1445 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1451 if (FRAME_MAC_WINDOW (f
) != 0)
1452 rif
->define_frame_cursor (f
, cursor
);
1454 f
->output_data
.mac
->text_cursor
= cursor
;
1455 f
->output_data
.mac
->nontext_cursor
= nontext_cursor
;
1456 f
->output_data
.mac
->hourglass_cursor
= hourglass_cursor
;
1457 f
->output_data
.mac
->modeline_cursor
= mode_cursor
;
1458 f
->output_data
.mac
->hand_cursor
= hand_cursor
;
1459 f
->output_data
.mac
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1463 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1467 x_set_cursor_color (f
, arg
, oldval
)
1469 Lisp_Object arg
, oldval
;
1471 unsigned long fore_pixel
, pixel
;
1473 if (!NILP (Vx_cursor_fore_pixel
))
1474 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1475 WHITE_PIX_DEFAULT (f
));
1477 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1479 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1481 /* Make sure that the cursor color differs from the background color. */
1482 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1484 pixel
= f
->output_data
.mac
->mouse_pixel
;
1485 if (pixel
== fore_pixel
)
1486 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1489 f
->output_data
.mac
->cursor_foreground_pixel
= fore_pixel
;
1490 f
->output_data
.mac
->cursor_pixel
= pixel
;
1492 if (FRAME_MAC_WINDOW (f
) != 0)
1495 /* Update frame's cursor_gc. */
1496 XSetBackground (FRAME_MAC_DISPLAY (f
),
1497 f
->output_data
.mac
->cursor_gc
, pixel
);
1498 XSetForeground (FRAME_MAC_DISPLAY (f
),
1499 f
->output_data
.mac
->cursor_gc
, fore_pixel
);
1502 if (FRAME_VISIBLE_P (f
))
1504 x_update_cursor (f
, 0);
1505 x_update_cursor (f
, 1);
1509 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1512 /* Set the border-color of frame F to pixel value PIX.
1513 Note that this does not fully take effect if done before
1517 x_set_border_pixel (f
, pix
)
1522 f
->output_data
.mac
->border_pixel
= pix
;
1524 if (FRAME_MAC_WINDOW (f
) != 0 && f
->border_width
> 0)
1526 if (FRAME_VISIBLE_P (f
))
1531 /* Set the border-color of frame F to value described by ARG.
1532 ARG can be a string naming a color.
1533 The border-color is used for the border that is drawn by the server.
1534 Note that this does not fully take effect if done before
1535 F has a window; it must be redone when the window is created. */
1538 x_set_border_color (f
, arg
, oldval
)
1540 Lisp_Object arg
, oldval
;
1545 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1546 x_set_border_pixel (f
, pix
);
1547 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1552 x_set_cursor_type (f
, arg
, oldval
)
1554 Lisp_Object arg
, oldval
;
1556 set_frame_cursor_types (f
, arg
);
1558 /* Make sure the cursor gets redrawn. */
1559 cursor_type_changed
= 1;
1562 #if 0 /* MAC_TODO: really no icon for Mac */
1564 x_set_icon_type (f
, arg
, oldval
)
1566 Lisp_Object arg
, oldval
;
1570 if (NILP (arg
) && NILP (oldval
))
1573 if (STRINGP (arg
) && STRINGP (oldval
)
1574 && EQ (Fstring_equal (oldval
, arg
), Qt
))
1577 if (SYMBOLP (arg
) && SYMBOLP (oldval
) && EQ (arg
, oldval
))
1582 result
= x_bitmap_icon (f
, arg
);
1586 error ("No icon window available");
1591 #endif /* MAC_TODO */
1594 x_set_icon_name (f
, arg
, oldval
)
1596 Lisp_Object arg
, oldval
;
1602 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1605 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1610 #if 0 /* MAC_TODO */
1611 if (f
->output_data
.w32
->icon_bitmap
!= 0)
1616 result
= x_text_icon (f
,
1617 (char *) SDATA ((!NILP (f
->icon_name
)
1626 error ("No icon window available");
1629 /* If the window was unmapped (and its icon was mapped),
1630 the new icon is not mapped, so map the window in its stead. */
1631 if (FRAME_VISIBLE_P (f
))
1633 #ifdef USE_X_TOOLKIT
1634 XtPopup (f
->output_data
.w32
->widget
, XtGrabNone
);
1636 XMapWindow (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
));
1639 XFlush (FRAME_W32_DISPLAY (f
));
1641 #endif /* MAC_TODO */
1646 x_set_menu_bar_lines (f
, value
, oldval
)
1648 Lisp_Object value
, oldval
;
1651 int olines
= FRAME_MENU_BAR_LINES (f
);
1653 /* Right now, menu bars don't work properly in minibuf-only frames;
1654 most of the commands try to apply themselves to the minibuffer
1655 frame itself, and get an error because you can't switch buffers
1656 in or split the minibuffer window. */
1657 if (FRAME_MINIBUF_ONLY_P (f
))
1660 if (INTEGERP (value
))
1661 nlines
= XINT (value
);
1665 FRAME_MENU_BAR_LINES (f
) = 0;
1667 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1670 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1671 free_frame_menubar (f
);
1672 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1674 /* Adjust the frame size so that the client (text) dimensions
1675 remain the same. This depends on FRAME_EXTERNAL_MENU_BAR being
1677 x_set_window_size (f
, 0, FRAME_COLS (f
), FRAME_LINES (f
));
1678 do_pending_window_change (0);
1684 /* Set the number of lines used for the tool bar of frame F to VALUE.
1685 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1686 is the old number of tool bar lines. This function changes the
1687 height of all windows on frame F to match the new tool bar height.
1688 The frame's height doesn't change. */
1691 x_set_tool_bar_lines (f
, value
, oldval
)
1693 Lisp_Object value
, oldval
;
1695 int delta
, nlines
, root_height
;
1696 Lisp_Object root_window
;
1698 /* Treat tool bars like menu bars. */
1699 if (FRAME_MINIBUF_ONLY_P (f
))
1702 /* Use VALUE only if an integer >= 0. */
1703 if (INTEGERP (value
) && XINT (value
) >= 0)
1704 nlines
= XFASTINT (value
);
1708 /* Make sure we redisplay all windows in this frame. */
1709 ++windows_or_buffers_changed
;
1711 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1713 /* Don't resize the tool-bar to more than we have room for. */
1714 root_window
= FRAME_ROOT_WINDOW (f
);
1715 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1716 if (root_height
- delta
< 1)
1718 delta
= root_height
- 1;
1719 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1722 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1723 change_window_heights (root_window
, delta
);
1726 /* We also have to make sure that the internal border at the top of
1727 the frame, below the menu bar or tool bar, is redrawn when the
1728 tool bar disappears. This is so because the internal border is
1729 below the tool bar if one is displayed, but is below the menu bar
1730 if there isn't a tool bar. The tool bar draws into the area
1731 below the menu bar. */
1732 if (FRAME_MAC_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1736 clear_current_matrices (f
);
1737 updating_frame
= NULL
;
1740 /* If the tool bar gets smaller, the internal border below it
1741 has to be cleared. It was formerly part of the display
1742 of the larger tool bar, and updating windows won't clear it. */
1745 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1746 int width
= FRAME_PIXEL_WIDTH (f
);
1747 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1750 mac_clear_area (f
, 0, y
, width
, height
);
1753 if (WINDOWP (f
->tool_bar_window
))
1754 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1760 /* Set the Mac window title to NAME for frame F. */
1763 x_set_name_internal (f
, name
)
1767 if (FRAME_MAC_WINDOW (f
))
1769 if (STRING_MULTIBYTE (name
))
1770 #if TARGET_API_MAC_CARBON
1771 name
= ENCODE_UTF_8 (name
);
1773 name
= ENCODE_SYSTEM (name
);
1779 #if TARGET_API_MAC_CARBON
1780 CFStringRef windowTitle
=
1781 cfstring_create_with_utf8_cstring (SDATA (name
));
1783 SetWindowTitleWithCFString (FRAME_MAC_WINDOW (f
), windowTitle
);
1784 CFRelease (windowTitle
);
1787 if (strlen (SDATA (name
)) < 255)
1789 strcpy (windowTitle
, SDATA (name
));
1790 c2pstr (windowTitle
);
1791 SetWTitle (FRAME_MAC_WINDOW (f
), windowTitle
);
1800 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1803 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1804 name; if NAME is a string, set F's name to NAME and set
1805 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1807 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1808 suggesting a new name, which lisp code should override; if
1809 F->explicit_name is set, ignore the new name; otherwise, set it. */
1812 x_set_name (f
, name
, explicit)
1817 /* Make sure that requests from lisp code override requests from
1818 Emacs redisplay code. */
1821 /* If we're switching from explicit to implicit, we had better
1822 update the mode lines and thereby update the title. */
1823 if (f
->explicit_name
&& NILP (name
))
1824 update_mode_lines
= 1;
1826 f
->explicit_name
= ! NILP (name
);
1828 else if (f
->explicit_name
)
1831 /* If NAME is nil, set the name to the mac_id_name. */
1834 /* Check for no change needed in this very common case
1835 before we do any consing. */
1836 if (!strcmp (FRAME_MAC_DISPLAY_INFO (f
)->mac_id_name
,
1839 name
= build_string (FRAME_MAC_DISPLAY_INFO (f
)->mac_id_name
);
1842 CHECK_STRING (name
);
1844 /* Don't change the name if it's already NAME. */
1845 if (! NILP (Fstring_equal (name
, f
->name
)))
1850 /* For setting the frame title, the title parameter should override
1851 the name parameter. */
1852 if (! NILP (f
->title
))
1855 x_set_name_internal (f
, name
);
1858 /* This function should be called when the user's lisp code has
1859 specified a name for the frame; the name will override any set by the
1862 x_explicitly_set_name (f
, arg
, oldval
)
1864 Lisp_Object arg
, oldval
;
1866 x_set_name (f
, arg
, 1);
1869 /* This function should be called by Emacs redisplay code to set the
1870 name; names set this way will never override names set by the user's
1873 x_implicitly_set_name (f
, arg
, oldval
)
1875 Lisp_Object arg
, oldval
;
1877 x_set_name (f
, arg
, 0);
1880 /* Change the title of frame F to NAME.
1881 If NAME is nil, use the frame name as the title.
1883 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1884 name; if NAME is a string, set F's name to NAME and set
1885 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1887 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1888 suggesting a new name, which lisp code should override; if
1889 F->explicit_name is set, ignore the new name; otherwise, set it. */
1892 x_set_title (f
, name
, old_name
)
1894 Lisp_Object name
, old_name
;
1896 /* Don't change the title if it's already NAME. */
1897 if (EQ (name
, f
->title
))
1900 update_mode_lines
= 1;
1907 CHECK_STRING (name
);
1909 x_set_name_internal (f
, name
);
1913 x_set_scroll_bar_default_width (f
)
1916 /* Imitate X without X Toolkit */
1918 int wid
= FRAME_COLUMN_WIDTH (f
);
1921 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 16; /* Aqua scroll bars. */
1922 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) +
1924 #else /* not MAC_OSX */
1925 /* Make the actual width at least 14 pixels and a multiple of a
1927 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1929 /* Use all of that space (aside from required margins) for the
1931 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1932 #endif /* not MAC_OSX */
1936 /* Subroutines of creating a frame. */
1938 /* Retrieve the string resource specified by NAME with CLASS from
1941 The return value points to the contents of a Lisp string. So it
1942 will not be valid after the next GC where string compaction will
1946 x_get_string_resource (rdb
, name
, class)
1950 Lisp_Object value
= xrm_get_resource (rdb
, name
, class);
1952 if (STRINGP (value
))
1953 return SDATA (value
);
1958 /* Return the value of parameter PARAM.
1960 First search ALIST, then Vdefault_frame_alist, then the X defaults
1961 database, using ATTRIBUTE as the attribute name and CLASS as its class.
1963 Convert the resource to the type specified by desired_type.
1965 If no default is specified, return Qunbound. If you call
1966 mac_get_arg, make sure you deal with Qunbound in a reasonable way,
1967 and don't let it get stored in any Lisp-visible variables! */
1970 mac_get_arg (alist
, param
, attribute
, class, type
)
1971 Lisp_Object alist
, param
;
1974 enum resource_types type
;
1976 return x_get_arg (check_x_display_info (Qnil
),
1977 alist
, param
, attribute
, class, type
);
1981 /* XParseGeometry copied from w32xfns.c */
1984 * XParseGeometry parses strings of the form
1985 * "=<width>x<height>{+-}<xoffset>{+-}<yoffset>", where
1986 * width, height, xoffset, and yoffset are unsigned integers.
1987 * Example: "=80x24+300-49"
1988 * The equal sign is optional.
1989 * It returns a bitmask that indicates which of the four values
1990 * were actually found in the string. For each value found,
1991 * the corresponding argument is updated; for each value
1992 * not found, the corresponding argument is left unchanged.
1996 read_integer (string
, NextString
)
1997 register char *string
;
2000 register int Result
= 0;
2005 else if (*string
== '-')
2010 for (; (*string
>= '0') && (*string
<= '9'); string
++)
2012 Result
= (Result
* 10) + (*string
- '0');
2014 *NextString
= string
;
2022 XParseGeometry (string
, x
, y
, width
, height
)
2025 unsigned int *width
, *height
; /* RETURN */
2028 register char *strind
;
2029 unsigned int tempWidth
, tempHeight
;
2031 char *nextCharacter
;
2033 if ((string
== NULL
) || (*string
== '\0')) return (mask
);
2035 string
++; /* ignore possible '=' at beg of geometry spec */
2037 strind
= (char *)string
;
2038 if (*strind
!= '+' && *strind
!= '-' && *strind
!= 'x')
2040 tempWidth
= read_integer (strind
, &nextCharacter
);
2041 if (strind
== nextCharacter
)
2043 strind
= nextCharacter
;
2047 if (*strind
== 'x' || *strind
== 'X')
2050 tempHeight
= read_integer (strind
, &nextCharacter
);
2051 if (strind
== nextCharacter
)
2053 strind
= nextCharacter
;
2054 mask
|= HeightValue
;
2057 if ((*strind
== '+') || (*strind
== '-'))
2062 tempX
= -read_integer (strind
, &nextCharacter
);
2063 if (strind
== nextCharacter
)
2065 strind
= nextCharacter
;
2072 tempX
= read_integer (strind
, &nextCharacter
);
2073 if (strind
== nextCharacter
)
2075 strind
= nextCharacter
;
2078 if ((*strind
== '+') || (*strind
== '-'))
2083 tempY
= -read_integer (strind
, &nextCharacter
);
2084 if (strind
== nextCharacter
)
2086 strind
= nextCharacter
;
2093 tempY
= read_integer (strind
, &nextCharacter
);
2094 if (strind
== nextCharacter
)
2096 strind
= nextCharacter
;
2102 /* If strind isn't at the end of the string the it's an invalid
2103 geometry specification. */
2105 if (*strind
!= '\0') return (0);
2111 if (mask
& WidthValue
)
2113 if (mask
& HeightValue
)
2114 *height
= tempHeight
;
2119 /* Create and set up the Mac window for frame F. */
2129 SetRect (&r
, f
->left_pos
, f
->top_pos
,
2130 f
->left_pos
+ FRAME_PIXEL_WIDTH (f
),
2131 f
->top_pos
+ FRAME_PIXEL_HEIGHT (f
));
2132 #if TARGET_API_MAC_CARBON
2133 CreateNewWindow (kDocumentWindowClass
,
2134 kWindowStandardDocumentAttributes
2135 /* | kWindowToolbarButtonAttribute */,
2136 &r
, &FRAME_MAC_WINDOW (f
));
2137 if (FRAME_MAC_WINDOW (f
))
2139 SetWRefCon (FRAME_MAC_WINDOW (f
), (long) f
->output_data
.mac
);
2140 if (install_window_handler (FRAME_MAC_WINDOW (f
)) != noErr
)
2142 DisposeWindow (FRAME_MAC_WINDOW (f
));
2143 FRAME_MAC_WINDOW (f
) = NULL
;
2147 FRAME_MAC_WINDOW (f
)
2148 = NewCWindow (NULL
, &r
, "\p", false, zoomDocProc
,
2149 (WindowPtr
) -1, 1, (long) f
->output_data
.mac
);
2151 /* so that update events can find this mac_output struct */
2152 f
->output_data
.mac
->mFP
= f
; /* point back to emacs frame */
2155 if (FRAME_MAC_WINDOW (f
))
2157 ControlRef root_control
;
2159 if (CreateRootControl (FRAME_MAC_WINDOW (f
), &root_control
) != noErr
)
2161 DisposeWindow (FRAME_MAC_WINDOW (f
));
2162 FRAME_MAC_WINDOW (f
) = NULL
;
2166 if (FRAME_MAC_WINDOW (f
))
2167 XSetWindowBackground (FRAME_MAC_DISPLAY(f
), FRAME_MAC_WINDOW (f
),
2168 FRAME_BACKGROUND_PIXEL (f
));
2170 validate_x_resource_name ();
2172 /* x_set_name normally ignores requests to set the name if the
2173 requested name is the same as the current name. This is the one
2174 place where that assumption isn't correct; f->name is set, but
2175 the server hasn't been told. */
2178 int explicit = f
->explicit_name
;
2180 f
->explicit_name
= 0;
2183 x_set_name (f
, name
, explicit);
2188 if (FRAME_MAC_WINDOW (f
) == 0)
2189 error ("Unable to create window");
2192 /* Handle the icon stuff for this window. Perhaps later we might
2193 want an x_set_icon_position which can be called interactively as
2201 Lisp_Object icon_x
, icon_y
;
2203 /* Set the position of the icon. Note that Windows 95 groups all
2204 icons in the tray. */
2205 icon_x
= mac_get_arg (parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2206 icon_y
= mac_get_arg (parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2207 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2209 CHECK_NUMBER (icon_x
);
2210 CHECK_NUMBER (icon_y
);
2212 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2213 error ("Both left and top icon corners of icon must be specified");
2217 if (! EQ (icon_x
, Qunbound
))
2218 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2221 /* Start up iconic or window? */
2222 x_wm_set_window_state
2223 (f
, (EQ (w32_get_arg (parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
), Qicon
)
2227 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2240 XGCValues gc_values
;
2244 /* Create the GCs of this frame.
2245 Note that many default values are used. */
2248 gc_values
.font
= FRAME_FONT (f
);
2249 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2250 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2251 f
->output_data
.mac
->normal_gc
= XCreateGC (FRAME_MAC_DISPLAY (f
),
2252 FRAME_MAC_WINDOW (f
),
2253 GCFont
| GCForeground
| GCBackground
,
2256 /* Reverse video style. */
2257 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2258 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2259 f
->output_data
.mac
->reverse_gc
= XCreateGC (FRAME_MAC_DISPLAY (f
),
2260 FRAME_MAC_WINDOW (f
),
2261 GCFont
| GCForeground
| GCBackground
,
2264 /* Cursor has cursor-color background, background-color foreground. */
2265 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2266 gc_values
.background
= f
->output_data
.mac
->cursor_pixel
;
2267 f
->output_data
.mac
->cursor_gc
= XCreateGC (FRAME_MAC_DISPLAY (f
),
2268 FRAME_MAC_WINDOW (f
),
2269 GCFont
| GCForeground
| GCBackground
,
2273 f
->output_data
.mac
->white_relief
.gc
= 0;
2274 f
->output_data
.mac
->black_relief
.gc
= 0;
2277 /* Create the gray border tile used when the pointer is not in
2278 the frame. Since this depends on the frame's pixel values,
2279 this must be done on a per-frame basis. */
2280 f
->output_data
.x
->border_tile
2281 = (XCreatePixmapFromBitmapData
2282 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2283 gray_bits
, gray_width
, gray_height
,
2284 f
->output_data
.x
->foreground_pixel
,
2285 f
->output_data
.x
->background_pixel
,
2286 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2293 /* Free what was was allocated in x_make_gc. */
2299 Display
*dpy
= FRAME_MAC_DISPLAY (f
);
2303 if (f
->output_data
.mac
->normal_gc
)
2305 XFreeGC (dpy
, f
->output_data
.mac
->normal_gc
);
2306 f
->output_data
.mac
->normal_gc
= 0;
2309 if (f
->output_data
.mac
->reverse_gc
)
2311 XFreeGC (dpy
, f
->output_data
.mac
->reverse_gc
);
2312 f
->output_data
.mac
->reverse_gc
= 0;
2315 if (f
->output_data
.mac
->cursor_gc
)
2317 XFreeGC (dpy
, f
->output_data
.mac
->cursor_gc
);
2318 f
->output_data
.mac
->cursor_gc
= 0;
2322 if (f
->output_data
.mac
->border_tile
)
2324 XFreePixmap (dpy
, f
->output_data
.mac
->border_tile
);
2325 f
->output_data
.mac
->border_tile
= 0;
2329 if (f
->output_data
.mac
->white_relief
.gc
)
2331 XFreeGC (dpy
, f
->output_data
.mac
->white_relief
.gc
);
2332 f
->output_data
.mac
->white_relief
.gc
= 0;
2335 if (f
->output_data
.mac
->black_relief
.gc
)
2337 XFreeGC (dpy
, f
->output_data
.mac
->black_relief
.gc
);
2338 f
->output_data
.mac
->black_relief
.gc
= 0;
2345 /* Handler for signals raised during x_create_frame and
2346 x_create_top_frame. FRAME is the frame which is partially
2350 unwind_create_frame (frame
)
2353 struct frame
*f
= XFRAME (frame
);
2355 /* If frame is ``official'', nothing to do. */
2356 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2359 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2362 x_free_frame_resources (f
);
2365 /* Check that reference counts are indeed correct. */
2366 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2367 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2376 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2378 doc
: /* Make a new window, which is called a "frame" in Emacs terms.
2379 Returns an Emacs frame object.
2380 ALIST is an alist of frame parameters.
2381 If the parameters specify that the frame should not have a minibuffer,
2382 and do not specify a specific minibuffer window to use,
2383 then `default-minibuffer-frame' must be a frame whose minibuffer can
2384 be shared by the new frame.
2386 This function is an internal primitive--use `make-frame' instead. */)
2391 Lisp_Object frame
, tem
;
2393 int minibuffer_only
= 0;
2394 long window_prompting
= 0;
2396 int count
= SPECPDL_INDEX ();
2397 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
2398 Lisp_Object display
;
2399 struct mac_display_info
*dpyinfo
= NULL
;
2402 static int x_frame_count
= 2; /* begins at 2 because terminal frame is F1 */
2406 parms
= Fcopy_alist (parms
);
2408 /* Use this general default value to start with
2409 until we know if this frame has a specified name. */
2410 Vx_resource_name
= Vinvocation_name
;
2412 display
= mac_get_arg (parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
2413 if (EQ (display
, Qunbound
))
2415 dpyinfo
= check_x_display_info (display
);
2417 kb
= dpyinfo
->kboard
;
2419 kb
= &the_only_kboard
;
2422 name
= mac_get_arg (parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
2424 && ! EQ (name
, Qunbound
)
2426 error ("Invalid frame name--not a string or nil");
2429 Vx_resource_name
= name
;
2431 /* See if parent window is specified. */
2432 parent
= mac_get_arg (parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
2433 if (EQ (parent
, Qunbound
))
2435 if (! NILP (parent
))
2436 CHECK_NUMBER (parent
);
2438 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
2439 /* No need to protect DISPLAY because that's not used after passing
2440 it to make_frame_without_minibuffer. */
2442 GCPRO4 (parms
, parent
, name
, frame
);
2443 tem
= mac_get_arg (parms
, Qminibuffer
, "minibuffer", "Minibuffer",
2445 if (EQ (tem
, Qnone
) || NILP (tem
))
2446 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
2447 else if (EQ (tem
, Qonly
))
2449 f
= make_minibuffer_frame ();
2450 minibuffer_only
= 1;
2452 else if (WINDOWP (tem
))
2453 f
= make_frame_without_minibuffer (tem
, kb
, display
);
2457 XSETFRAME (frame
, f
);
2459 /* Note that X Windows does support scroll bars. */
2460 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
2462 f
->output_method
= output_mac
;
2463 f
->output_data
.mac
= (struct mac_output
*) xmalloc (sizeof (struct mac_output
));
2464 bzero (f
->output_data
.mac
, sizeof (struct mac_output
));
2465 FRAME_FONTSET (f
) = -1;
2466 record_unwind_protect (unwind_create_frame
, frame
);
2469 = mac_get_arg (parms
, Qicon_name
, "iconName", "Title", RES_TYPE_STRING
);
2470 if (! STRINGP (f
->icon_name
))
2471 f
->icon_name
= Qnil
;
2473 /* FRAME_MAC_DISPLAY_INFO (f) = dpyinfo; */
2475 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
2476 dpyinfo_refcount
= dpyinfo
->reference_count
;
2477 #endif /* GLYPH_DEBUG */
2479 FRAME_KBOARD (f
) = kb
;
2482 /* Specify the parent under which to make this window. */
2486 f
->output_data
.mac
->parent_desc
= (Window
) XFASTINT (parent
);
2487 f
->output_data
.mac
->explicit_parent
= 1;
2491 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
2492 f
->output_data
.mac
->explicit_parent
= 0;
2495 /* Set the name; the functions to which we pass f expect the name to
2497 if (EQ (name
, Qunbound
) || NILP (name
))
2499 f
->name
= build_string (dpyinfo
->mac_id_name
);
2500 f
->explicit_name
= 0;
2505 f
->explicit_name
= 1;
2506 /* use the frame's title when getting resources for this frame. */
2507 specbind (Qx_resource_name
, name
);
2510 /* Extract the window parameters from the supplied values
2511 that are needed to determine window geometry. */
2515 font
= mac_get_arg (parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
2518 /* First, try whatever font the caller has specified. */
2521 tem
= Fquery_fontset (font
, Qnil
);
2523 font
= x_new_fontset (f
, SDATA (tem
));
2525 font
= x_new_font (f
, SDATA (font
));
2528 /* Try out a font which we hope has bold and italic variations. */
2530 if (! STRINGP (font
))
2531 font
= x_new_font (f
, "-*-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1");
2533 if (! STRINGP (font
))
2534 font
= x_new_font (f
, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1");
2535 /* If those didn't work, look for something which will at least work. */
2536 if (! STRINGP (font
))
2537 font
= x_new_fontset (f
, "fontset-standard");
2538 if (! STRINGP (font
))
2539 font
= x_new_font (f
, "-*-monaco-*-12-*-mac-roman");
2540 if (! STRINGP (font
))
2541 font
= x_new_font (f
, "-*-courier-*-10-*-mac-roman");
2542 if (! STRINGP (font
))
2543 error ("Cannot find any usable font");
2546 x_default_parameter (f
, parms
, Qfont
, font
,
2547 "font", "Font", RES_TYPE_STRING
);
2550 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
2551 "borderwidth", "BorderWidth", RES_TYPE_NUMBER
);
2552 /* This defaults to 2 in order to match xterm. We recognize either
2553 internalBorderWidth or internalBorder (which is what xterm calls
2555 if (NILP (Fassq (Qinternal_border_width
, parms
)))
2559 value
= mac_get_arg (parms
, Qinternal_border_width
,
2560 "internalBorder", "InternalBorder", RES_TYPE_NUMBER
);
2561 if (! EQ (value
, Qunbound
))
2562 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
2565 /* Default internalBorderWidth to 0 on Windows to match other programs. */
2566 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (0),
2567 "internalBorderWidth", "InternalBorder", RES_TYPE_NUMBER
);
2568 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qright
,
2569 "verticalScrollBars", "ScrollBars", RES_TYPE_SYMBOL
);
2571 /* Also do the stuff which must be set before the window exists. */
2572 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
2573 "foreground", "Foreground", RES_TYPE_STRING
);
2574 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
2575 "background", "Background", RES_TYPE_STRING
);
2576 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
2577 "pointerColor", "Foreground", RES_TYPE_STRING
);
2578 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
2579 "cursorColor", "Foreground", RES_TYPE_STRING
);
2580 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
2581 "borderColor", "BorderColor", RES_TYPE_STRING
);
2582 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
2583 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
2584 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
2585 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
2586 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
2587 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
2588 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
2589 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
2592 /* Init faces before x_default_parameter is called for scroll-bar
2593 parameters because that function calls x_set_scroll_bar_width,
2594 which calls change_frame_size, which calls Fset_window_buffer,
2595 which runs hooks, which call Fvertical_motion. At the end, we
2596 end up in init_iterator with a null face cache, which should not
2598 init_frame_faces (f
);
2600 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
2601 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
2602 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
2603 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
2604 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
2605 "bufferPredicate", "BufferPredicate",
2607 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
2608 "title", "Title", RES_TYPE_STRING
);
2609 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
2610 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
2612 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
2614 /* Compute the size of the window. */
2615 window_prompting
= x_figure_window_size (f
, parms
, 1);
2617 tem
= mac_get_arg (parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
2618 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
2625 /* Now consider the frame official. */
2626 FRAME_MAC_DISPLAY_INFO (f
)->reference_count
++;
2627 Vframe_list
= Fcons (frame
, Vframe_list
);
2629 /* We need to do this after creating the window, so that the
2630 icon-creation functions can say whose icon they're describing. */
2631 x_default_parameter (f
, parms
, Qicon_type
, Qnil
,
2632 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
2634 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
2635 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
2636 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
2637 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
2638 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
2639 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
2640 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
2641 "scrollBarWidth", "ScrollBarWidth",
2644 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
2645 Change will not be effected unless different from the current
2647 width
= FRAME_COLS (f
);
2648 height
= FRAME_LINES (f
);
2650 SET_FRAME_COLS (f
, 0);
2651 FRAME_LINES (f
) = 0;
2652 change_frame_size (f
, height
, width
, 1, 0, 0);
2654 /* Tell the server what size and position, etc, we want, and how
2655 badly we want them. This should be done after we have the menu
2656 bar so that its size can be taken into account. */
2658 x_wm_set_size_hint (f
, window_prompting
, 0);
2661 /* Make the window appear on the frame and enable display, unless
2662 the caller says not to. However, with explicit parent, Emacs
2663 cannot control visibility, so don't try. */
2664 if (! f
->output_data
.mac
->explicit_parent
)
2666 Lisp_Object visibility
;
2668 visibility
= mac_get_arg (parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
);
2669 if (EQ (visibility
, Qunbound
))
2672 if (EQ (visibility
, Qicon
))
2673 x_iconify_frame (f
);
2674 else if (! NILP (visibility
))
2675 x_make_frame_visible (f
);
2677 /* Must have been Qnil. */
2681 /* Initialize `default-minibuffer-frame' in case this is the first
2682 frame on this display device. */
2683 if (FRAME_HAS_MINIBUF_P (f
)
2684 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
2685 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
2686 kb
->Vdefault_minibuffer_frame
= frame
;
2688 /* All remaining specified parameters, which have not been "used"
2689 by x_get_arg and friends, now go in the misc. alist of the frame. */
2690 for (tem
= parms
; !NILP (tem
); tem
= XCDR (tem
))
2691 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
2692 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
2696 /* Make sure windows on this frame appear in calls to next-window
2697 and similar functions. */
2698 Vwindow_list
= Qnil
;
2700 return unbind_to (count
, frame
);
2704 /* FRAME is used only to get a handle on the X display. We don't pass the
2705 display info directly because we're called from frame.c, which doesn't
2706 know about that structure. */
2709 x_get_focus_frame (frame
)
2710 struct frame
*frame
;
2712 struct mac_display_info
*dpyinfo
= FRAME_MAC_DISPLAY_INFO (frame
);
2714 if (! dpyinfo
->x_focus_frame
)
2717 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
2722 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
2723 doc
: /* Set the input focus to FRAME.
2724 FRAME nil means use the selected frame. */)
2728 struct frame
*f
= check_x_frame (frame
);
2729 struct mac_display_info
*dpyinfo
= FRAME_MAC_DISPLAY_INFO (f
);
2731 if (dpyinfo
->x_focus_frame
!= f
)
2735 ActivateWindow (ActiveNonFloatingWindow (), false);
2736 ActivateWindow (FRAME_MAC_WINDOW (f
), true);
2738 #if !TARGET_API_MAC_CARBON
2739 /* SelectWindow (Non-Carbon) does not issue deactivate events if
2740 the possibly inactive window that is to be selected is
2741 already the frontmost one. */
2742 SendBehind (FRAME_MAC_WINDOW (f
), NULL
);
2744 /* This brings the window to the front. */
2745 SelectWindow (FRAME_MAC_WINDOW (f
));
2754 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
2755 doc
: /* Internal function called by `color-defined-p', which see. */)
2757 Lisp_Object color
, frame
;
2760 FRAME_PTR f
= check_x_frame (frame
);
2762 CHECK_STRING (color
);
2764 if (mac_defined_color (f
, SDATA (color
), &foo
, 0))
2770 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
2771 doc
: /* Internal function called by `color-values', which see. */)
2773 Lisp_Object color
, frame
;
2776 FRAME_PTR f
= check_x_frame (frame
);
2778 CHECK_STRING (color
);
2780 if (mac_defined_color (f
, SDATA (color
), &foo
, 0))
2784 rgb
[0] = make_number (foo
.red
);
2785 rgb
[1] = make_number (foo
.green
);
2786 rgb
[2] = make_number (foo
.blue
);
2787 return Flist (3, rgb
);
2793 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
2794 doc
: /* Internal function called by `display-color-p', which see. */)
2796 Lisp_Object display
;
2798 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2800 if (!dpyinfo
->color_p
)
2806 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
2808 doc
: /* Return t if DISPLAY supports shades of gray.
2809 Note that color displays do support shades of gray.
2810 The optional argument DISPLAY specifies which display to ask about.
2811 DISPLAY should be either a frame or a display name (a string).
2812 If omitted or nil, that stands for the selected frame's display. */)
2814 Lisp_Object display
;
2816 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2818 if (dpyinfo
->n_planes
<= 1)
2824 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
2826 doc
: /* Returns the width in pixels of DISPLAY.
2827 The optional argument DISPLAY specifies which display to ask about.
2828 DISPLAY should be either a frame or a display name (a string).
2829 If omitted or nil, that stands for the selected frame's display. */)
2831 Lisp_Object display
;
2833 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2835 return make_number (dpyinfo
->width
);
2838 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
2839 Sx_display_pixel_height
, 0, 1, 0,
2840 doc
: /* Returns the height in pixels of DISPLAY.
2841 The optional argument DISPLAY specifies which display to ask about.
2842 DISPLAY should be either a frame or a display name (a string).
2843 If omitted or nil, that stands for the selected frame's display. */)
2845 Lisp_Object display
;
2847 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2849 return make_number (dpyinfo
->height
);
2852 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
2854 doc
: /* Returns the number of bitplanes of DISPLAY.
2855 The optional argument DISPLAY specifies which display to ask about.
2856 DISPLAY should be either a frame or a display name (a string).
2857 If omitted or nil, that stands for the selected frame's display. */)
2859 Lisp_Object display
;
2861 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2863 return make_number (dpyinfo
->n_planes
);
2866 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
2868 doc
: /* Returns the number of color cells of DISPLAY.
2869 The optional argument DISPLAY specifies which display to ask about.
2870 DISPLAY should be either a frame or a display name (a string).
2871 If omitted or nil, that stands for the selected frame's display. */)
2873 Lisp_Object display
;
2875 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2877 /* We force 24+ bit depths to 24-bit to prevent an overflow. */
2878 return make_number (1 << min (dpyinfo
->n_planes
, 24));
2881 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
2882 Sx_server_max_request_size
,
2884 doc
: /* Returns the maximum request size of the server of DISPLAY.
2885 The optional argument DISPLAY specifies which display to ask about.
2886 DISPLAY should be either a frame or a display name (a string).
2887 If omitted or nil, that stands for the selected frame's display. */)
2889 Lisp_Object display
;
2891 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2893 return make_number (1);
2896 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
2897 doc
: /* Returns the "vendor ID" string of the Mac OS system (Apple).
2898 The optional argument DISPLAY specifies which display to ask about.
2899 DISPLAY should be either a frame or a display name (a string).
2900 If omitted or nil, that stands for the selected frame's display. */)
2902 Lisp_Object display
;
2904 return build_string ("Apple Computers");
2907 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
2908 doc
: /* Returns the version numbers of the Mac OS system.
2909 The value is a list of three integers: the major and minor
2910 version numbers, and the vendor-specific release
2911 number. See also the function `x-server-vendor'.
2913 The optional argument DISPLAY specifies which display to ask about.
2914 DISPLAY should be either a frame or a display name (a string).
2915 If omitted or nil, that stands for the selected frame's display. */)
2917 Lisp_Object display
;
2919 UInt32 response
, major
, minor
, bugfix
;
2923 err
= Gestalt (gestaltSystemVersion
, &response
);
2925 if (response
>= 0x00001040)
2927 err
= Gestalt ('sys1', &major
); /* gestaltSystemVersionMajor */
2929 err
= Gestalt ('sys2', &minor
); /* gestaltSystemVersionMinor */
2931 err
= Gestalt ('sys3', &bugfix
); /* gestaltSystemVersionBugFix */
2935 bugfix
= response
& 0xf;
2937 minor
= response
& 0xf;
2939 /* convert BCD to int */
2940 major
= response
- (response
>> 4) * 6;
2945 error ("Cannot get Mac OS version");
2947 return Fcons (make_number (major
),
2948 Fcons (make_number (minor
),
2949 Fcons (make_number (bugfix
),
2953 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
2954 doc
: /* Return the number of screens on the server of DISPLAY.
2955 The optional argument DISPLAY specifies which display to ask about.
2956 DISPLAY should be either a frame or a display name (a string).
2957 If omitted or nil, that stands for the selected frame's display. */)
2959 Lisp_Object display
;
2961 return make_number (1);
2964 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
2965 doc
: /* Return the height in millimeters 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 /* MAC_TODO: this is an approximation, and only of the main display */
2974 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2976 return make_number ((int) (dpyinfo
->height
* 25.4 / dpyinfo
->resy
));
2979 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
2980 doc
: /* Return the width in millimeters of DISPLAY.
2981 The optional argument DISPLAY specifies which display to ask about.
2982 DISPLAY should be either a frame or a display name (a string).
2983 If omitted or nil, that stands for the selected frame's display. */)
2985 Lisp_Object display
;
2987 /* MAC_TODO: this is an approximation, and only of the main display */
2989 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2991 return make_number ((int) (dpyinfo
->width
* 25.4 / dpyinfo
->resx
));
2994 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
2995 Sx_display_backing_store
, 0, 1, 0,
2996 doc
: /* Returns an indication of whether DISPLAY does backing store.
2997 The value may be `always', `when-mapped', or `not-useful'.
2998 The optional argument DISPLAY specifies which display to ask about.
2999 DISPLAY should be either a frame or a display name (a string).
3000 If omitted or nil, that stands for the selected frame's display. */)
3002 Lisp_Object display
;
3004 return intern ("not-useful");
3007 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3008 Sx_display_visual_class
, 0, 1, 0,
3009 doc
: /* Returns the visual class of DISPLAY.
3010 The value is one of the symbols `static-gray', `gray-scale',
3011 `static-color', `pseudo-color', `true-color', or `direct-color'.
3013 The optional argument DISPLAY specifies which display to ask about.
3014 DISPLAY should be either a frame or a display name (a string).
3015 If omitted or nil, that stands for the selected frame's display. */)
3017 Lisp_Object display
;
3019 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3022 switch (dpyinfo
->visual
->class)
3024 case StaticGray
: return (intern ("static-gray"));
3025 case GrayScale
: return (intern ("gray-scale"));
3026 case StaticColor
: return (intern ("static-color"));
3027 case PseudoColor
: return (intern ("pseudo-color"));
3028 case TrueColor
: return (intern ("true-color"));
3029 case DirectColor
: return (intern ("direct-color"));
3031 error ("Display has an unknown visual class");
3035 return (intern ("true-color"));
3038 DEFUN ("x-display-save-under", Fx_display_save_under
,
3039 Sx_display_save_under
, 0, 1, 0,
3040 doc
: /* Returns t if DISPLAY supports the save-under feature.
3041 The optional argument DISPLAY specifies which display to ask about.
3042 DISPLAY should be either a frame or a display name (a string).
3043 If omitted or nil, that stands for the selected frame's display. */)
3045 Lisp_Object display
;
3052 register struct frame
*f
;
3054 return FRAME_PIXEL_WIDTH (f
);
3059 register struct frame
*f
;
3061 return FRAME_PIXEL_HEIGHT (f
);
3066 register struct frame
*f
;
3068 return FRAME_COLUMN_WIDTH (f
);
3073 register struct frame
*f
;
3075 return FRAME_LINE_HEIGHT (f
);
3080 register struct frame
*f
;
3082 return FRAME_MAC_DISPLAY_INFO (f
)->n_planes
;
3085 /* Return the display structure for the display named NAME.
3086 Open a new connection if necessary. */
3088 struct mac_display_info
*
3089 x_display_info_for_name (name
)
3093 struct mac_display_info
*dpyinfo
;
3095 CHECK_STRING (name
);
3097 if (! EQ (Vwindow_system
, intern ("mac")))
3098 error ("Not using Mac native windows");
3100 for (dpyinfo
= &one_mac_display_info
, names
= x_display_name_list
;
3102 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
3105 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
3110 /* Use this general default value to start with. */
3111 Vx_resource_name
= Vinvocation_name
;
3113 validate_x_resource_name ();
3115 dpyinfo
= mac_term_init (name
, (unsigned char *) 0,
3116 (char *) SDATA (Vx_resource_name
));
3119 error ("Cannot connect to server %s", SDATA (name
));
3122 XSETFASTINT (Vwindow_system_version
, 3);
3127 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
3129 doc
: /* Open a connection to a server.
3130 DISPLAY is the name of the display to connect to.
3131 Optional second arg XRM-STRING is a string of resources in xrdb format.
3132 If the optional third arg MUST-SUCCEED is non-nil,
3133 terminate Emacs if we can't open the connection. */)
3134 (display
, xrm_string
, must_succeed
)
3135 Lisp_Object display
, xrm_string
, must_succeed
;
3137 unsigned char *xrm_option
;
3138 struct mac_display_info
*dpyinfo
;
3140 CHECK_STRING (display
);
3141 if (! NILP (xrm_string
))
3142 CHECK_STRING (xrm_string
);
3144 if (! EQ (Vwindow_system
, intern ("mac")))
3145 error ("Not using Mac native windows");
3147 if (! NILP (xrm_string
))
3148 xrm_option
= (unsigned char *) SDATA (xrm_string
);
3150 xrm_option
= (unsigned char *) 0;
3152 validate_x_resource_name ();
3154 /* This is what opens the connection and sets x_current_display.
3155 This also initializes many symbols, such as those used for input. */
3156 dpyinfo
= mac_term_init (display
, xrm_option
,
3157 (char *) SDATA (Vx_resource_name
));
3161 if (!NILP (must_succeed
))
3162 fatal ("Cannot connect to server %s.\n",
3165 error ("Cannot connect to server %s", SDATA (display
));
3170 XSETFASTINT (Vwindow_system_version
, 3);
3174 DEFUN ("x-close-connection", Fx_close_connection
,
3175 Sx_close_connection
, 1, 1, 0,
3176 doc
: /* Close the connection to DISPLAY's server.
3177 For DISPLAY, specify either a frame or a display name (a string).
3178 If DISPLAY is nil, that stands for the selected frame's display. */)
3180 Lisp_Object display
;
3182 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3185 if (dpyinfo
->reference_count
> 0)
3186 error ("Display still has frames on it");
3189 /* Free the fonts in the font table. */
3190 for (i
= 0; i
< dpyinfo
->n_fonts
; i
++)
3191 if (dpyinfo
->font_table
[i
].name
)
3193 mac_unload_font (dpyinfo
, dpyinfo
->font_table
[i
].font
);
3196 x_destroy_all_bitmaps (dpyinfo
);
3198 x_delete_display (dpyinfo
);
3204 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
3205 doc
: /* Return the list of display names that Emacs has connections to. */)
3208 Lisp_Object tail
, result
;
3211 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
3212 result
= Fcons (XCAR (XCAR (tail
)), result
);
3217 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
3218 doc
: /* This is a noop on Mac OS systems. */)
3220 Lisp_Object display
, on
;
3226 /***********************************************************************
3228 ***********************************************************************/
3230 DEFUN ("x-change-window-property", Fx_change_window_property
,
3231 Sx_change_window_property
, 2, 6, 0,
3232 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
3233 VALUE may be a string or a list of conses, numbers and/or strings.
3234 If an element in the list is a string, it is converted to
3235 an Atom and the value of the Atom is used. If an element is a cons,
3236 it is converted to a 32 bit number where the car is the 16 top bits and the
3237 cdr is the lower 16 bits.
3238 FRAME nil or omitted means use the selected frame.
3239 If TYPE is given and non-nil, it is the name of the type of VALUE.
3240 If TYPE is not given or nil, the type is STRING.
3241 FORMAT gives the size in bits of each element if VALUE is a list.
3242 It must be one of 8, 16 or 32.
3243 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
3244 If OUTER_P is non-nil, the property is changed for the outer X window of
3245 FRAME. Default is to change on the edit X window.
3248 (prop
, value
, frame
, type
, format
, outer_p
)
3249 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
3251 #if 0 /* MAC_TODO : port window properties to Mac */
3252 struct frame
*f
= check_x_frame (frame
);
3255 CHECK_STRING (prop
);
3256 CHECK_STRING (value
);
3259 prop_atom
= XInternAtom (FRAME_W32_DISPLAY (f
), SDATA (prop
), False
);
3260 XChangeProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
),
3261 prop_atom
, XA_STRING
, 8, PropModeReplace
,
3262 SDATA (value
), SCHARS (value
));
3264 /* Make sure the property is set when we return. */
3265 XFlush (FRAME_W32_DISPLAY (f
));
3268 #endif /* MAC_TODO */
3274 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
3275 Sx_delete_window_property
, 1, 2, 0,
3276 doc
: /* Remove window property PROP from X window of FRAME.
3277 FRAME nil or omitted means use the selected frame. Value is PROP. */)
3279 Lisp_Object prop
, frame
;
3281 #if 0 /* MAC_TODO : port window properties to Mac */
3283 struct frame
*f
= check_x_frame (frame
);
3286 CHECK_STRING (prop
);
3288 prop_atom
= XInternAtom (FRAME_W32_DISPLAY (f
), SDATA (prop
), False
);
3289 XDeleteProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
), prop_atom
);
3291 /* Make sure the property is removed when we return. */
3292 XFlush (FRAME_W32_DISPLAY (f
));
3294 #endif /* MAC_TODO */
3300 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
3302 doc
: /* Value is the value of window property PROP on FRAME.
3303 If FRAME is nil or omitted, use the selected frame. Value is nil
3304 if FRAME hasn't a property with name PROP or if PROP has no string
3307 Lisp_Object prop
, frame
;
3309 #if 0 /* MAC_TODO : port window properties to Mac */
3311 struct frame
*f
= check_x_frame (frame
);
3314 Lisp_Object prop_value
= Qnil
;
3315 char *tmp_data
= NULL
;
3318 unsigned long actual_size
, bytes_remaining
;
3320 CHECK_STRING (prop
);
3322 prop_atom
= XInternAtom (FRAME_W32_DISPLAY (f
), SDATA (prop
), False
);
3323 rc
= XGetWindowProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
),
3324 prop_atom
, 0, 0, False
, XA_STRING
,
3325 &actual_type
, &actual_format
, &actual_size
,
3326 &bytes_remaining
, (unsigned char **) &tmp_data
);
3329 int size
= bytes_remaining
;
3334 rc
= XGetWindowProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
),
3335 prop_atom
, 0, bytes_remaining
,
3337 &actual_type
, &actual_format
,
3338 &actual_size
, &bytes_remaining
,
3339 (unsigned char **) &tmp_data
);
3341 prop_value
= make_string (tmp_data
, size
);
3350 #endif /* MAC_TODO */
3356 /***********************************************************************
3358 ***********************************************************************/
3360 /* If non-null, an asynchronous timer that, when it expires, displays
3361 an hourglass cursor on all frames. */
3363 static struct atimer
*hourglass_atimer
;
3365 /* Non-zero means an hourglass cursor is currently shown. */
3367 static int hourglass_shown_p
;
3369 /* Number of seconds to wait before displaying an hourglass cursor. */
3371 static Lisp_Object Vhourglass_delay
;
3373 /* Default number of seconds to wait before displaying an hourglass
3376 #define DEFAULT_HOURGLASS_DELAY 1
3378 /* Function prototypes. */
3380 static void show_hourglass
P_ ((struct atimer
*));
3381 static void hide_hourglass
P_ ((void));
3383 /* Return non-zero if houglass timer has been started or hourglass is shown. */
3386 hourglass_started ()
3388 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
3392 /* Cancel a currently active hourglass timer, and start a new one. */
3399 int secs
, usecs
= 0;
3401 /* Don't bother for ttys. */
3402 if (NILP (Vwindow_system
))
3405 cancel_hourglass ();
3407 if (INTEGERP (Vhourglass_delay
)
3408 && XINT (Vhourglass_delay
) > 0)
3409 secs
= XFASTINT (Vhourglass_delay
);
3410 else if (FLOATP (Vhourglass_delay
)
3411 && XFLOAT_DATA (Vhourglass_delay
) > 0)
3414 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
3415 secs
= XFASTINT (tem
);
3416 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
3419 secs
= DEFAULT_HOURGLASS_DELAY
;
3421 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
3422 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
3423 show_hourglass
, NULL
);
3424 #endif /* MAC_OSX */
3428 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
3435 if (hourglass_atimer
)
3437 cancel_atimer (hourglass_atimer
);
3438 hourglass_atimer
= NULL
;
3441 if (hourglass_shown_p
)
3443 #endif /* MAC_OSX */
3447 /* Timer function of hourglass_atimer. TIMER is equal to
3450 On Mac, busy status is shown by the progress indicator (chasing
3451 arrows) at the upper-right corner of each frame instead of the
3452 hourglass pointer. */
3455 show_hourglass (timer
)
3456 struct atimer
*timer
;
3458 #if TARGET_API_MAC_CARBON
3459 /* The timer implementation will cancel this timer automatically
3460 after this function has run. Set hourglass_atimer to null
3461 so that we know the timer doesn't have to be canceled. */
3462 hourglass_atimer
= NULL
;
3464 if (!hourglass_shown_p
)
3466 Lisp_Object rest
, frame
;
3470 FOR_EACH_FRAME (rest
, frame
)
3472 struct frame
*f
= XFRAME (frame
);
3474 if (FRAME_LIVE_P (f
) && FRAME_MAC_P (f
)
3475 && FRAME_MAC_WINDOW (f
) != tip_window
)
3477 if (!f
->output_data
.mac
->hourglass_control
)
3479 Window w
= FRAME_MAC_WINDOW (f
);
3483 GetWindowPortBounds (w
, &r
);
3484 r
.left
= r
.right
- HOURGLASS_WIDTH
;
3485 r
.bottom
= r
.top
+ HOURGLASS_HEIGHT
;
3486 if (CreateChasingArrowsControl (w
, &r
, &c
) == noErr
)
3487 f
->output_data
.mac
->hourglass_control
= c
;
3490 if (f
->output_data
.mac
->hourglass_control
)
3491 ShowControl (f
->output_data
.mac
->hourglass_control
);
3495 hourglass_shown_p
= 1;
3498 #endif /* TARGET_API_MAC_CARBON */
3502 /* Hide the progress indicators on all frames, if it is currently
3508 #if TARGET_API_MAC_CARBON
3509 if (hourglass_shown_p
)
3511 Lisp_Object rest
, frame
;
3514 FOR_EACH_FRAME (rest
, frame
)
3516 struct frame
*f
= XFRAME (frame
);
3519 /* Watch out for newly created frames. */
3520 && f
->output_data
.mac
->hourglass_control
)
3521 HideControl (f
->output_data
.mac
->hourglass_control
);
3524 hourglass_shown_p
= 0;
3527 #endif /* TARGET_API_MAC_CARBON */
3532 /***********************************************************************
3534 ***********************************************************************/
3536 static Lisp_Object x_create_tip_frame
P_ ((struct mac_display_info
*,
3537 Lisp_Object
, Lisp_Object
));
3538 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
3539 Lisp_Object
, int, int, int *, int *));
3541 /* The frame of a currently visible tooltip. */
3543 Lisp_Object tip_frame
;
3545 /* If non-nil, a timer started that hides the last tooltip when it
3548 Lisp_Object tip_timer
;
3551 /* If non-nil, a vector of 3 elements containing the last args
3552 with which x-show-tip was called. See there. */
3554 Lisp_Object last_show_tip_args
;
3556 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
3558 Lisp_Object Vx_max_tooltip_size
;
3562 unwind_create_tip_frame (frame
)
3565 Lisp_Object deleted
;
3567 deleted
= unwind_create_frame (frame
);
3568 if (EQ (deleted
, Qt
))
3578 /* Create a frame for a tooltip on the display described by DPYINFO.
3579 PARMS is a list of frame parameters. TEXT is the string to
3580 display in the tip frame. Value is the frame.
3582 Note that functions called here, esp. x_default_parameter can
3583 signal errors, for instance when a specified color name is
3584 undefined. We have to make sure that we're in a consistent state
3585 when this happens. */
3588 x_create_tip_frame (dpyinfo
, parms
, text
)
3589 struct mac_display_info
*dpyinfo
;
3590 Lisp_Object parms
, text
;
3593 Lisp_Object frame
, tem
;
3595 long window_prompting
= 0;
3597 int count
= SPECPDL_INDEX ();
3598 struct gcpro gcpro1
, gcpro2
, gcpro3
;
3600 int face_change_count_before
= face_change_count
;
3602 struct buffer
*old_buffer
;
3608 kb
= dpyinfo
->kboard
;
3610 kb
= &the_only_kboard
;
3613 /* Get the name of the frame to use for resource lookup. */
3614 name
= mac_get_arg (parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3616 && !EQ (name
, Qunbound
)
3618 error ("Invalid frame name--not a string or nil");
3621 GCPRO3 (parms
, name
, frame
);
3623 XSETFRAME (frame
, f
);
3625 buffer
= Fget_buffer_create (build_string (" *tip*"));
3626 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
3627 old_buffer
= current_buffer
;
3628 set_buffer_internal_1 (XBUFFER (buffer
));
3629 current_buffer
->truncate_lines
= Qnil
;
3630 specbind (Qinhibit_read_only
, Qt
);
3631 specbind (Qinhibit_modification_hooks
, Qt
);
3634 set_buffer_internal_1 (old_buffer
);
3636 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
3637 record_unwind_protect (unwind_create_tip_frame
, frame
);
3639 /* By setting the output method, we're essentially saying that
3640 the frame is live, as per FRAME_LIVE_P. If we get a signal
3641 from this point on, x_destroy_window might screw up reference
3643 f
->output_method
= output_mac
;
3644 f
->output_data
.mac
=
3645 (struct mac_output
*) xmalloc (sizeof (struct mac_output
));
3646 bzero (f
->output_data
.mac
, sizeof (struct mac_output
));
3648 FRAME_FONTSET (f
) = -1;
3649 f
->icon_name
= Qnil
;
3650 /* FRAME_X_DISPLAY_INFO (f) = dpyinfo; */
3652 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
3653 dpyinfo_refcount
= dpyinfo
->reference_count
;
3654 #endif /* GLYPH_DEBUG */
3656 FRAME_KBOARD (f
) = kb
;
3658 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
3659 f
->output_data
.mac
->explicit_parent
= 0;
3661 /* Set the name; the functions to which we pass f expect the name to
3663 if (EQ (name
, Qunbound
) || NILP (name
))
3665 f
->name
= build_string (dpyinfo
->mac_id_name
);
3666 f
->explicit_name
= 0;
3671 f
->explicit_name
= 1;
3672 /* use the frame's title when getting resources for this frame. */
3673 specbind (Qx_resource_name
, name
);
3676 /* Extract the window parameters from the supplied values that are
3677 needed to determine window geometry. */
3681 font
= mac_get_arg (parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3684 /* First, try whatever font the caller has specified. */
3687 tem
= Fquery_fontset (font
, Qnil
);
3689 font
= x_new_fontset (f
, SDATA (tem
));
3691 font
= x_new_font (f
, SDATA (font
));
3694 /* Try out a font which we hope has bold and italic variations. */
3696 if (! STRINGP (font
))
3697 font
= x_new_font (f
, "-*-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1");
3699 if (! STRINGP (font
))
3700 font
= x_new_font (f
, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1");
3701 /* If those didn't work, look for something which will at least work. */
3702 if (! STRINGP (font
))
3703 font
= x_new_fontset (f
, "fontset-standard");
3704 if (! STRINGP (font
))
3705 font
= x_new_font (f
, "-*-monaco-*-12-*-mac-roman");
3706 if (! STRINGP (font
))
3707 font
= x_new_font (f
, "-*-courier-*-10-*-mac-roman");
3709 if (! STRINGP (font
))
3710 error ("Cannot find any usable font");
3712 x_default_parameter (f
, parms
, Qfont
, font
,
3713 "font", "Font", RES_TYPE_STRING
);
3716 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3717 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3719 /* This defaults to 2 in order to match xterm. We recognize either
3720 internalBorderWidth or internalBorder (which is what xterm calls
3722 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3726 value
= mac_get_arg (parms
, Qinternal_border_width
,
3727 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3728 if (! EQ (value
, Qunbound
))
3729 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3733 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3734 "internalBorderWidth", "internalBorderWidth",
3737 /* Also do the stuff which must be set before the window exists. */
3738 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3739 "foreground", "Foreground", RES_TYPE_STRING
);
3740 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3741 "background", "Background", RES_TYPE_STRING
);
3742 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3743 "pointerColor", "Foreground", RES_TYPE_STRING
);
3744 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3745 "cursorColor", "Foreground", RES_TYPE_STRING
);
3746 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3747 "borderColor", "BorderColor", RES_TYPE_STRING
);
3749 /* Init faces before x_default_parameter is called for scroll-bar
3750 parameters because that function calls x_set_scroll_bar_width,
3751 which calls change_frame_size, which calls Fset_window_buffer,
3752 which runs hooks, which call Fvertical_motion. At the end, we
3753 end up in init_iterator with a null face cache, which should not
3755 init_frame_faces (f
);
3757 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
3759 window_prompting
= x_figure_window_size (f
, parms
, 0);
3765 SetRect (&r
, 0, 0, 1, 1);
3766 #if TARGET_API_MAC_CARBON
3767 if (CreateNewWindow (kHelpWindowClass
,
3768 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
3769 kWindowIgnoreClicksAttribute
|
3771 kWindowNoUpdatesAttribute
|
3772 kWindowNoActivatesAttribute
,
3773 &r
, &tip_window
) == noErr
)
3775 if (tip_window
= NewCWindow (NULL
, &r
, "\p", false, plainDBox
,
3779 FRAME_MAC_WINDOW (f
) = tip_window
;
3780 XSetWindowBackground (FRAME_MAC_DISPLAY(f
), tip_window
,
3781 FRAME_BACKGROUND_PIXEL (f
));
3782 SetWRefCon (tip_window
, (long) f
->output_data
.mac
);
3783 /* so that update events can find this mac_output struct */
3784 f
->output_data
.mac
->mFP
= f
;
3791 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3792 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3793 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3794 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3795 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3796 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3798 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3799 Change will not be effected unless different from the current
3801 width
= FRAME_COLS (f
);
3802 height
= FRAME_LINES (f
);
3803 SET_FRAME_COLS (f
, 0);
3804 FRAME_LINES (f
) = 0;
3805 change_frame_size (f
, height
, width
, 1, 0, 0);
3807 /* Add `tooltip' frame parameter's default value. */
3808 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
3809 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
3812 /* Set up faces after all frame parameters are known. This call
3813 also merges in face attributes specified for new frames.
3815 Frame parameters may be changed if .Xdefaults contains
3816 specifications for the default font. For example, if there is an
3817 `Emacs.default.attributeBackground: pink', the `background-color'
3818 attribute of the frame get's set, which let's the internal border
3819 of the tooltip frame appear in pink. Prevent this. */
3821 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
3823 /* Set tip_frame here, so that */
3825 call1 (Qface_set_after_frame_default
, frame
);
3827 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
3828 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
3836 /* It is now ok to make the frame official even if we get an error
3837 below. And the frame needs to be on Vframe_list or making it
3838 visible won't work. */
3839 Vframe_list
= Fcons (frame
, Vframe_list
);
3841 /* Now that the frame is official, it counts as a reference to
3843 FRAME_MAC_DISPLAY_INFO (f
)->reference_count
++;
3845 /* Setting attributes of faces of the tooltip frame from resources
3846 and similar will increment face_change_count, which leads to the
3847 clearing of all current matrices. Since this isn't necessary
3848 here, avoid it by resetting face_change_count to the value it
3849 had before we created the tip frame. */
3850 face_change_count
= face_change_count_before
;
3852 /* Discard the unwind_protect. */
3853 return unbind_to (count
, frame
);
3857 /* Compute where to display tip frame F. PARMS is the list of frame
3858 parameters for F. DX and DY are specified offsets from the current
3859 location of the mouse. WIDTH and HEIGHT are the width and height
3860 of the tooltip. Return coordinates relative to the root window of
3861 the display in *ROOT_X, and *ROOT_Y. */
3864 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
3866 Lisp_Object parms
, dx
, dy
;
3868 int *root_x
, *root_y
;
3870 Lisp_Object left
, top
;
3872 /* User-specified position? */
3873 left
= Fcdr (Fassq (Qleft
, parms
));
3874 top
= Fcdr (Fassq (Qtop
, parms
));
3876 /* Move the tooltip window where the mouse pointer is. Resize and
3878 if (!INTEGERP (left
) || !INTEGERP (top
))
3883 GetMouse (&mouse_pos
);
3884 LocalToGlobal (&mouse_pos
);
3885 *root_x
= mouse_pos
.h
;
3886 *root_y
= mouse_pos
.v
;
3891 *root_y
= XINT (top
);
3892 else if (*root_y
+ XINT (dy
) <= 0)
3893 *root_y
= 0; /* Can happen for negative dy */
3894 else if (*root_y
+ XINT (dy
) + height
<= FRAME_MAC_DISPLAY_INFO (f
)->height
)
3895 /* It fits below the pointer */
3896 *root_y
+= XINT (dy
);
3897 else if (height
+ XINT (dy
) <= *root_y
)
3898 /* It fits above the pointer. */
3899 *root_y
-= height
+ XINT (dy
);
3901 /* Put it on the top. */
3904 if (INTEGERP (left
))
3905 *root_x
= XINT (left
);
3906 else if (*root_x
+ XINT (dx
) <= 0)
3907 *root_x
= 0; /* Can happen for negative dx */
3908 else if (*root_x
+ XINT (dx
) + width
<= FRAME_MAC_DISPLAY_INFO (f
)->width
)
3909 /* It fits to the right of the pointer. */
3910 *root_x
+= XINT (dx
);
3911 else if (width
+ XINT (dx
) <= *root_x
)
3912 /* It fits to the left of the pointer. */
3913 *root_x
-= width
+ XINT (dx
);
3915 /* Put it left-justified on the screen -- it ought to fit that way. */
3920 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
3921 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
3922 A tooltip window is a small window displaying a string.
3924 FRAME nil or omitted means use the selected frame.
3926 PARMS is an optional list of frame parameters which can be used to
3927 change the tooltip's appearance.
3929 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
3930 means use the default timeout of 5 seconds.
3932 If the list of frame parameters PARMS contains a `left' parameter,
3933 the tooltip is displayed at that x-position. Otherwise it is
3934 displayed at the mouse position, with offset DX added (default is 5 if
3935 DX isn't specified). Likewise for the y-position; if a `top' frame
3936 parameter is specified, it determines the y-position of the tooltip
3937 window, otherwise it is displayed at the mouse position, with offset
3938 DY added (default is -10).
3940 A tooltip's maximum size is specified by `x-max-tooltip-size'.
3941 Text larger than the specified size is clipped. */)
3942 (string
, frame
, parms
, timeout
, dx
, dy
)
3943 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
3948 struct buffer
*old_buffer
;
3949 struct text_pos pos
;
3950 int i
, width
, height
;
3951 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3952 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
3953 int count
= SPECPDL_INDEX ();
3955 specbind (Qinhibit_redisplay
, Qt
);
3957 GCPRO4 (string
, parms
, frame
, timeout
);
3959 CHECK_STRING (string
);
3960 f
= check_x_frame (frame
);
3962 timeout
= make_number (5);
3964 CHECK_NATNUM (timeout
);
3967 dx
= make_number (5);
3972 dy
= make_number (-10);
3976 if (NILP (last_show_tip_args
))
3977 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
3979 if (!NILP (tip_frame
))
3981 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
3982 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
3983 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
3985 if (EQ (frame
, last_frame
)
3986 && !NILP (Fequal (last_string
, string
))
3987 && !NILP (Fequal (last_parms
, parms
)))
3989 struct frame
*f
= XFRAME (tip_frame
);
3991 /* Only DX and DY have changed. */
3992 if (!NILP (tip_timer
))
3994 Lisp_Object timer
= tip_timer
;
3996 call1 (Qcancel_timer
, timer
);
4000 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
4001 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
4002 MoveWindow (FRAME_MAC_WINDOW (f
), root_x
, root_y
, false);
4008 /* Hide a previous tip, if any. */
4011 ASET (last_show_tip_args
, 0, string
);
4012 ASET (last_show_tip_args
, 1, frame
);
4013 ASET (last_show_tip_args
, 2, parms
);
4015 /* Add default values to frame parameters. */
4016 if (NILP (Fassq (Qname
, parms
)))
4017 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
4018 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4019 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
4020 if (NILP (Fassq (Qborder_width
, parms
)))
4021 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
4022 if (NILP (Fassq (Qborder_color
, parms
)))
4023 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
4024 if (NILP (Fassq (Qbackground_color
, parms
)))
4025 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
4028 /* Create a frame for the tooltip, and record it in the global
4029 variable tip_frame. */
4030 frame
= x_create_tip_frame (FRAME_MAC_DISPLAY_INFO (f
), parms
, string
);
4033 /* Set up the frame's root window. */
4034 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
4035 w
->left_col
= w
->top_line
= make_number (0);
4037 if (CONSP (Vx_max_tooltip_size
)
4038 && INTEGERP (XCAR (Vx_max_tooltip_size
))
4039 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
4040 && INTEGERP (XCDR (Vx_max_tooltip_size
))
4041 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
4043 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
4044 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
4048 w
->total_cols
= make_number (80);
4049 w
->total_lines
= make_number (40);
4052 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
4054 w
->pseudo_window_p
= 1;
4056 /* Display the tooltip text in a temporary buffer. */
4057 old_buffer
= current_buffer
;
4058 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
4059 current_buffer
->truncate_lines
= Qnil
;
4060 clear_glyph_matrix (w
->desired_matrix
);
4061 clear_glyph_matrix (w
->current_matrix
);
4062 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
4063 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
4065 /* Compute width and height of the tooltip. */
4067 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
4069 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
4073 /* Stop at the first empty row at the end. */
4074 if (!row
->enabled_p
|| !row
->displays_text_p
)
4077 /* Let the row go over the full width of the frame. */
4078 row
->full_width_p
= 1;
4080 /* There's a glyph at the end of rows that is used to place
4081 the cursor there. Don't include the width of this glyph. */
4082 if (row
->used
[TEXT_AREA
])
4084 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
4085 row_width
= row
->pixel_width
- last
->pixel_width
;
4088 row_width
= row
->pixel_width
;
4090 height
+= row
->height
;
4091 width
= max (width
, row_width
);
4094 /* Add the frame's internal border to the width and height the X
4095 window should have. */
4096 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
4097 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
4099 /* Move the tooltip window where the mouse pointer is. Resize and
4101 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
4104 MoveWindow (FRAME_MAC_WINDOW (f
), root_x
, root_y
, false);
4105 SizeWindow (FRAME_MAC_WINDOW (f
), width
, height
, true);
4106 ShowWindow (FRAME_MAC_WINDOW (f
));
4107 BringToFront (FRAME_MAC_WINDOW (f
));
4110 FRAME_PIXEL_WIDTH (f
) = width
;
4111 FRAME_PIXEL_HEIGHT (f
) = height
;
4113 /* Draw into the window. */
4114 w
->must_be_updated_p
= 1;
4115 update_single_window (w
, 1);
4117 /* Restore original current buffer. */
4118 set_buffer_internal_1 (old_buffer
);
4119 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
4122 /* Let the tip disappear after timeout seconds. */
4123 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
4124 intern ("x-hide-tip"));
4127 return unbind_to (count
, Qnil
);
4131 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
4132 doc
: /* Hide the current tooltip window, if there is any.
4133 Value is t if tooltip was open, nil otherwise. */)
4137 Lisp_Object deleted
, frame
, timer
;
4138 struct gcpro gcpro1
, gcpro2
;
4140 /* Return quickly if nothing to do. */
4141 if (NILP (tip_timer
) && NILP (tip_frame
))
4146 GCPRO2 (frame
, timer
);
4147 tip_frame
= tip_timer
= deleted
= Qnil
;
4149 count
= SPECPDL_INDEX ();
4150 specbind (Qinhibit_redisplay
, Qt
);
4151 specbind (Qinhibit_quit
, Qt
);
4154 call1 (Qcancel_timer
, timer
);
4158 Fdelete_frame (frame
, Qnil
);
4163 return unbind_to (count
, deleted
);
4168 #if TARGET_API_MAC_CARBON
4169 /***********************************************************************
4170 File selection dialog
4171 ***********************************************************************/
4173 static pascal void mac_nav_event_callback
P_ ((NavEventCallbackMessage
,
4174 NavCBRecPtr
, void *));
4177 There is a relatively standard way to do this using applescript to run
4178 a (choose file) method. However, this doesn't do "the right thing"
4179 by working only if the find-file occurred during a menu or toolbar
4180 click. So we must do the file dialog by hand, using the navigation
4181 manager. This also has more flexibility in determining the default
4182 directory and whether or not we are going to choose a file.
4185 extern Lisp_Object Qfile_name_history
;
4187 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
4188 doc
: /* Read file name, prompting with PROMPT in directory DIR.
4189 Use a file selection dialog.
4190 Select DEFAULT-FILENAME in the dialog's file selection box, if
4191 specified. Ensure that file exists if MUSTMATCH is non-nil.
4192 If ONLY-DIR-P is non-nil, the user can only select directories. */)
4193 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
4194 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
4196 struct frame
*f
= SELECTED_FRAME ();
4197 Lisp_Object file
= Qnil
;
4198 int count
= SPECPDL_INDEX ();
4199 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
4200 char filename
[MAXPATHLEN
];
4201 int default_filter_index
= 1; /* 1: All Files, 2: Directories only */
4202 static NavEventUPP mac_nav_event_callbackUPP
= NULL
;
4204 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, file
, only_dir_p
);
4205 CHECK_STRING (prompt
);
4208 /* Create the dialog with PROMPT as title, using DIR as initial
4209 directory and using "*" as pattern. */
4210 dir
= Fexpand_file_name (dir
, Qnil
);
4214 NavDialogCreationOptions options
;
4215 NavDialogRef dialogRef
;
4216 NavTypeListHandle fileTypes
= NULL
;
4217 NavUserAction userAction
;
4218 CFStringRef message
=NULL
, saveName
= NULL
;
4221 /* No need for a callback function because we are modal */
4222 NavGetDefaultDialogCreationOptions(&options
);
4223 options
.modality
= kWindowModalityAppModal
;
4224 options
.location
.h
= options
.location
.v
= -1;
4225 options
.optionFlags
= kNavDefaultNavDlogOptions
;
4226 options
.optionFlags
|= kNavAllFilesInPopup
; /* All files allowed */
4227 options
.optionFlags
|= kNavSelectAllReadableItem
;
4228 options
.optionFlags
&= ~kNavAllowMultipleFiles
;
4231 message
= cfstring_create_with_string (prompt
);
4232 options
.message
= message
;
4234 /* Don't set the application, let it use default.
4235 options.clientName = CFSTR ("Emacs");
4238 if (mac_nav_event_callbackUPP
== NULL
)
4239 mac_nav_event_callbackUPP
= NewNavEventUPP (mac_nav_event_callback
);
4241 if (!NILP (only_dir_p
))
4242 status
= NavCreateChooseFolderDialog(&options
, mac_nav_event_callbackUPP
,
4243 NULL
, NULL
, &dialogRef
);
4244 else if (NILP (mustmatch
))
4246 /* This is a save dialog */
4247 options
.optionFlags
|= kNavDontConfirmReplacement
;
4248 options
.actionButtonLabel
= CFSTR ("Ok");
4249 options
.windowTitle
= CFSTR ("Enter name");
4251 if (STRINGP (default_filename
))
4253 Lisp_Object utf8
= ENCODE_UTF_8 (default_filename
);
4254 char *begPtr
= SDATA(utf8
);
4255 char *filePtr
= begPtr
+ SBYTES(utf8
);
4256 while (filePtr
!= begPtr
&& !IS_DIRECTORY_SEP(filePtr
[-1]))
4258 saveName
= cfstring_create_with_utf8_cstring (filePtr
);
4259 options
.saveFileName
= saveName
;
4260 options
.optionFlags
|= kNavSelectDefaultLocation
;
4262 status
= NavCreatePutFileDialog(&options
,
4263 'TEXT', kNavGenericSignature
,
4264 mac_nav_event_callbackUPP
, NULL
,
4269 /* This is an open dialog*/
4270 status
= NavCreateChooseFileDialog(&options
, fileTypes
,
4271 mac_nav_event_callbackUPP
, NULL
,
4272 NULL
, NULL
, &dialogRef
);
4275 /* Set the default location and continue*/
4276 if (status
== noErr
)
4278 Lisp_Object encoded_dir
= ENCODE_FILE (dir
);
4281 status
= AECreateDesc (TYPE_FILE_NAME
, SDATA (encoded_dir
),
4282 SBYTES (encoded_dir
), &defLocAed
);
4283 if (status
== noErr
)
4285 NavCustomControl(dialogRef
, kNavCtlSetLocation
, (void*) &defLocAed
);
4286 AEDisposeDesc(&defLocAed
);
4288 status
= NavDialogRun(dialogRef
);
4291 if (saveName
) CFRelease(saveName
);
4292 if (message
) CFRelease(message
);
4294 if (status
== noErr
) {
4295 userAction
= NavDialogGetUserAction(dialogRef
);
4298 case kNavUserActionNone
:
4299 case kNavUserActionCancel
:
4300 break; /* Treat cancel like C-g */
4301 case kNavUserActionOpen
:
4302 case kNavUserActionChoose
:
4303 case kNavUserActionSaveAs
:
4305 NavReplyRecord reply
;
4308 status
= NavDialogGetReply(dialogRef
, &reply
);
4309 if (status
!= noErr
)
4311 status
= AEGetNthPtr (&reply
.selection
, 1, TYPE_FILE_NAME
,
4312 NULL
, NULL
, filename
,
4313 sizeof (filename
) - 1, &len
);
4314 if (status
== noErr
)
4316 len
= min (len
, sizeof (filename
) - 1);
4317 filename
[len
] = '\0';
4318 if (reply
.saveFileName
)
4320 /* If it was a saved file, we need to add the file name */
4321 if (len
&& len
< sizeof (filename
) - 1
4322 && filename
[len
-1] != '/')
4323 filename
[len
++] = '/';
4324 CFStringGetCString(reply
.saveFileName
, filename
+len
,
4325 sizeof (filename
) - len
,
4327 kCFStringEncodingUTF8
4329 CFStringGetSystemEncoding ()
4333 file
= DECODE_FILE (make_unibyte_string (filename
,
4334 strlen (filename
)));
4336 NavDisposeReply(&reply
);
4340 NavDialogDispose(dialogRef
);
4345 /* Fall back on minibuffer if there was a problem */
4346 file
= Fcompleting_read (prompt
, intern ("read-file-name-internal"),
4347 dir
, mustmatch
, dir
, Qfile_name_history
,
4348 default_filename
, Qnil
);
4354 /* Make "Cancel" equivalent to C-g. */
4356 Fsignal (Qquit
, Qnil
);
4358 return unbind_to (count
, file
);
4362 /* Need to register some event callback function for enabling drag and
4363 drop in Navigation Service dialogs. */
4365 mac_nav_event_callback (selector
, parms
, data
)
4366 NavEventCallbackMessage selector
;
4373 /***********************************************************************
4375 ***********************************************************************/
4377 /* Keep this list in the same order as frame_parms in frame.c.
4378 Use 0 for unsupported frame parameters. */
4380 frame_parm_handler mac_frame_parm_handlers
[] =
4384 x_set_background_color
,
4390 x_set_foreground_color
,
4392 0, /* MAC_TODO: x_set_icon_type, */
4393 x_set_internal_border_width
,
4394 x_set_menu_bar_lines
,
4396 x_explicitly_set_name
,
4397 x_set_scroll_bar_width
,
4400 x_set_vertical_scroll_bars
,
4402 x_set_tool_bar_lines
,
4403 0, /* MAC_TODO: x_set_scroll_bar_foreground, */
4404 0, /* MAC_TODO: x_set_scroll_bar_background, */
4409 0, /* x_set_wait_for_wm, */
4417 /* This is zero if not using Mac native windows. */
4420 /* Certainly running on Mac native windows. */
4424 /* The section below is built by the lisp expression at the top of the file,
4425 just above where these variables are declared. */
4426 /*&&& init symbols here &&&*/
4427 Qnone
= intern ("none");
4429 Qsuppress_icon
= intern ("suppress-icon");
4430 staticpro (&Qsuppress_icon
);
4431 Qundefined_color
= intern ("undefined-color");
4432 staticpro (&Qundefined_color
);
4433 Qcancel_timer
= intern ("cancel-timer");
4434 staticpro (&Qcancel_timer
);
4435 /* This is the end of symbol initialization. */
4437 /* Text property `display' should be nonsticky by default. */
4438 Vtext_property_default_nonsticky
4439 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
4442 Fput (Qundefined_color
, Qerror_conditions
,
4443 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
4444 Fput (Qundefined_color
, Qerror_message
,
4445 build_string ("Undefined color"));
4447 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
4448 doc
: /* The shape of the pointer when over text.
4449 Changing the value does not affect existing frames
4450 unless you set the mouse color. */);
4451 Vx_pointer_shape
= Qnil
;
4453 #if 0 /* This doesn't really do anything. */
4454 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
4455 doc
: /* The shape of the pointer when not over text.
4456 This variable takes effect when you create a new frame
4457 or when you set the mouse color. */);
4459 Vx_nontext_pointer_shape
= Qnil
;
4461 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
4462 doc
: /* The shape of the pointer when Emacs is busy.
4463 This variable takes effect when you create a new frame
4464 or when you set the mouse color. */);
4465 Vx_hourglass_pointer_shape
= Qnil
;
4467 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
4468 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
4469 display_hourglass_p
= 1;
4471 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
4472 doc
: /* *Seconds to wait before displaying an hourglass pointer.
4473 Value must be an integer or float. */);
4474 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
4476 #if 0 /* This doesn't really do anything. */
4477 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
4478 doc
: /* The shape of the pointer when over the mode line.
4479 This variable takes effect when you create a new frame
4480 or when you set the mouse color. */);
4482 Vx_mode_pointer_shape
= Qnil
;
4484 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
4485 &Vx_sensitive_text_pointer_shape
,
4486 doc
: /* The shape of the pointer when over mouse-sensitive text.
4487 This variable takes effect when you create a new frame
4488 or when you set the mouse color. */);
4489 Vx_sensitive_text_pointer_shape
= Qnil
;
4491 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
4492 &Vx_window_horizontal_drag_shape
,
4493 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
4494 This variable takes effect when you create a new frame
4495 or when you set the mouse color. */);
4496 Vx_window_horizontal_drag_shape
= Qnil
;
4498 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
4499 doc
: /* A string indicating the foreground color of the cursor box. */);
4500 Vx_cursor_fore_pixel
= Qnil
;
4502 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
4503 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
4504 Text larger than this is clipped. */);
4505 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
4507 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
4508 doc
: /* Non-nil if no window manager is in use.
4509 Emacs doesn't try to figure this out; this is always nil
4510 unless you set it to something else. */);
4511 /* We don't have any way to find this out, so set it to nil
4512 and maybe the user would like to set it to t. */
4513 Vx_no_window_manager
= Qnil
;
4515 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
4516 &Vx_pixel_size_width_font_regexp
,
4517 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
4519 Since Emacs gets width of a font matching with this regexp from
4520 PIXEL_SIZE field of the name, font finding mechanism gets faster for
4521 such a font. This is especially effective for such large fonts as
4522 Chinese, Japanese, and Korean. */);
4523 Vx_pixel_size_width_font_regexp
= Qnil
;
4525 /* X window properties. */
4526 defsubr (&Sx_change_window_property
);
4527 defsubr (&Sx_delete_window_property
);
4528 defsubr (&Sx_window_property
);
4530 defsubr (&Sxw_display_color_p
);
4531 defsubr (&Sx_display_grayscale_p
);
4532 defsubr (&Sxw_color_defined_p
);
4533 defsubr (&Sxw_color_values
);
4534 defsubr (&Sx_server_max_request_size
);
4535 defsubr (&Sx_server_vendor
);
4536 defsubr (&Sx_server_version
);
4537 defsubr (&Sx_display_pixel_width
);
4538 defsubr (&Sx_display_pixel_height
);
4539 defsubr (&Sx_display_mm_width
);
4540 defsubr (&Sx_display_mm_height
);
4541 defsubr (&Sx_display_screens
);
4542 defsubr (&Sx_display_planes
);
4543 defsubr (&Sx_display_color_cells
);
4544 defsubr (&Sx_display_visual_class
);
4545 defsubr (&Sx_display_backing_store
);
4546 defsubr (&Sx_display_save_under
);
4547 defsubr (&Sx_create_frame
);
4548 defsubr (&Sx_open_connection
);
4549 defsubr (&Sx_close_connection
);
4550 defsubr (&Sx_display_list
);
4551 defsubr (&Sx_synchronize
);
4552 defsubr (&Sx_focus_frame
);
4554 /* Setting callback functions for fontset handler. */
4555 get_font_info_func
= x_get_font_info
;
4557 #if 0 /* This function pointer doesn't seem to be used anywhere.
4558 And the pointer assigned has the wrong type, anyway. */
4559 list_fonts_func
= x_list_fonts
;
4562 load_font_func
= x_load_font
;
4563 find_ccl_program_func
= x_find_ccl_program
;
4564 query_font_func
= x_query_font
;
4565 set_frame_fontset_func
= x_set_font
;
4566 check_window_system_func
= check_mac
;
4568 hourglass_atimer
= NULL
;
4569 hourglass_shown_p
= 0;
4571 defsubr (&Sx_show_tip
);
4572 defsubr (&Sx_hide_tip
);
4574 staticpro (&tip_timer
);
4576 staticpro (&tip_frame
);
4578 last_show_tip_args
= Qnil
;
4579 staticpro (&last_show_tip_args
);
4581 #if TARGET_API_MAC_CARBON
4582 defsubr (&Sx_file_dialog
);
4586 /* arch-tag: d7591289-f374-4377-b245-12f5dbbb8edc
4587 (do not change this comment) */