1 /* Graphical user interface functions for Mac OS.
2 Copyright (C) 2000, 2001, 2002, 2003, 2004,
3 2005, 2006, 2007 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3, or (at your option)
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 Boston, MA 02110-1301, USA. */
22 /* Contributed by Andrew Choi (akochoi@mac.com). */
33 #include "intervals.h"
34 #include "dispextern.h"
36 #include "blockinput.h"
42 #include "termhooks.h"
46 #include <sys/types.h>
50 #include <sys/param.h>
52 extern void free_frame_menubar ();
54 #if TARGET_API_MAC_CARBON
56 /* Carbon version info */
58 static Lisp_Object Vmac_carbon_version_string
;
60 #endif /* TARGET_API_MAC_CARBON */
62 /* Non-zero means we're allowed to display an hourglass cursor. */
64 int display_hourglass_p
;
66 /* The background and shape of the mouse pointer, and shape when not
67 over text or in the modeline. */
69 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
70 Lisp_Object Vx_hourglass_pointer_shape
;
72 /* The shape when over mouse-sensitive text. */
74 Lisp_Object Vx_sensitive_text_pointer_shape
;
76 /* If non-nil, the pointer shape to indicate that windows can be
77 dragged horizontally. */
79 Lisp_Object Vx_window_horizontal_drag_shape
;
81 /* Color of chars displayed in cursor box. */
83 Lisp_Object Vx_cursor_fore_pixel
;
85 /* Nonzero if using Windows. */
87 static int mac_in_use
;
89 /* Non nil if no window manager is in use. */
91 Lisp_Object Vx_no_window_manager
;
93 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
95 Lisp_Object Vx_pixel_size_width_font_regexp
;
98 Lisp_Object Qsuppress_icon
;
99 Lisp_Object Qundefined_color
;
100 Lisp_Object Qcancel_timer
;
104 extern Lisp_Object Vwindow_system_version
;
107 int image_cache_refcount
, dpyinfo_refcount
;
110 #if 0 /* Use xstricmp instead. */
111 /* compare two strings ignoring case */
114 stricmp (const char *s
, const char *t
)
116 for ( ; tolower (*s
) == tolower (*t
); s
++, t
++)
119 return tolower (*s
) - tolower (*t
);
123 /* compare two strings up to n characters, ignoring case */
126 strnicmp (const char *s
, const char *t
, unsigned int n
)
128 for ( ; n
> 0 && tolower (*s
) == tolower (*t
); n
--, s
++, t
++)
131 return n
== 0 ? 0 : tolower (*s
) - tolower (*t
);
135 /* Error if we are not running on Mac OS. */
141 error ("Mac native windows not in use or not initialized");
144 /* Nonzero if we can use mouse menus.
145 You should not call this unless HAVE_MENUS is defined. */
153 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
154 and checking validity for Mac. */
157 check_x_frame (frame
)
163 frame
= selected_frame
;
164 CHECK_LIVE_FRAME (frame
);
166 if (! FRAME_MAC_P (f
))
167 error ("Non-Mac frame used");
171 /* Let the user specify a display with a frame.
172 nil stands for the selected frame--or, if that is not a mac frame,
173 the first display on the list. */
175 struct mac_display_info
*
176 check_x_display_info (frame
)
179 struct mac_display_info
*dpyinfo
= NULL
;
183 struct frame
*sf
= XFRAME (selected_frame
);
185 if (FRAME_MAC_P (sf
) && FRAME_LIVE_P (sf
))
186 dpyinfo
= FRAME_MAC_DISPLAY_INFO (sf
);
187 else if (x_display_list
!= 0)
188 dpyinfo
= x_display_list
;
190 error ("Mac native windows are not in use or not initialized");
192 else if (STRINGP (frame
))
193 dpyinfo
= x_display_info_for_name (frame
);
196 FRAME_PTR f
= check_x_frame (frame
);
197 dpyinfo
= FRAME_MAC_DISPLAY_INFO (f
);
205 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
206 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
208 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
209 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
210 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
211 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
212 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
213 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
214 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
215 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
216 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
217 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
218 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
219 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
222 /* Store the screen positions of frame F into XPTR and YPTR.
223 These are the positions of the containing window manager window,
224 not Emacs's own window. */
227 x_real_positions (f
, xptr
, yptr
)
233 mac_get_window_bounds (f
, &inner
, &outer
);
235 f
->x_pixels_diff
= inner
.left
- outer
.left
;
236 f
->y_pixels_diff
= inner
.top
- outer
.top
;
243 /* The default colors for the Mac color map */
244 typedef struct colormap_t
250 static const colormap_t mac_color_map
[] =
252 { RGB_TO_ULONG(255, 250, 250), "snow" },
253 { RGB_TO_ULONG(248, 248, 255), "ghost white" },
254 { RGB_TO_ULONG(248, 248, 255), "GhostWhite" },
255 { RGB_TO_ULONG(245, 245, 245), "white smoke" },
256 { RGB_TO_ULONG(245, 245, 245), "WhiteSmoke" },
257 { RGB_TO_ULONG(220, 220, 220), "gainsboro" },
258 { RGB_TO_ULONG(255, 250, 240), "floral white" },
259 { RGB_TO_ULONG(255, 250, 240), "FloralWhite" },
260 { RGB_TO_ULONG(253, 245, 230), "old lace" },
261 { RGB_TO_ULONG(253, 245, 230), "OldLace" },
262 { RGB_TO_ULONG(250, 240, 230), "linen" },
263 { RGB_TO_ULONG(250, 235, 215), "antique white" },
264 { RGB_TO_ULONG(250, 235, 215), "AntiqueWhite" },
265 { RGB_TO_ULONG(255, 239, 213), "papaya whip" },
266 { RGB_TO_ULONG(255, 239, 213), "PapayaWhip" },
267 { RGB_TO_ULONG(255, 235, 205), "blanched almond" },
268 { RGB_TO_ULONG(255, 235, 205), "BlanchedAlmond" },
269 { RGB_TO_ULONG(255, 228, 196), "bisque" },
270 { RGB_TO_ULONG(255, 218, 185), "peach puff" },
271 { RGB_TO_ULONG(255, 218, 185), "PeachPuff" },
272 { RGB_TO_ULONG(255, 222, 173), "navajo white" },
273 { RGB_TO_ULONG(255, 222, 173), "NavajoWhite" },
274 { RGB_TO_ULONG(255, 228, 181), "moccasin" },
275 { RGB_TO_ULONG(255, 248, 220), "cornsilk" },
276 { RGB_TO_ULONG(255, 255, 240), "ivory" },
277 { RGB_TO_ULONG(255, 250, 205), "lemon chiffon" },
278 { RGB_TO_ULONG(255, 250, 205), "LemonChiffon" },
279 { RGB_TO_ULONG(255, 245, 238), "seashell" },
280 { RGB_TO_ULONG(240, 255, 240), "honeydew" },
281 { RGB_TO_ULONG(245, 255, 250), "mint cream" },
282 { RGB_TO_ULONG(245, 255, 250), "MintCream" },
283 { RGB_TO_ULONG(240, 255, 255), "azure" },
284 { RGB_TO_ULONG(240, 248, 255), "alice blue" },
285 { RGB_TO_ULONG(240, 248, 255), "AliceBlue" },
286 { RGB_TO_ULONG(230, 230, 250), "lavender" },
287 { RGB_TO_ULONG(255, 240, 245), "lavender blush" },
288 { RGB_TO_ULONG(255, 240, 245), "LavenderBlush" },
289 { RGB_TO_ULONG(255, 228, 225), "misty rose" },
290 { RGB_TO_ULONG(255, 228, 225), "MistyRose" },
291 { RGB_TO_ULONG(255, 255, 255), "white" },
292 { RGB_TO_ULONG(0 , 0 , 0 ), "black" },
293 { RGB_TO_ULONG(47 , 79 , 79 ), "dark slate gray" },
294 { RGB_TO_ULONG(47 , 79 , 79 ), "DarkSlateGray" },
295 { RGB_TO_ULONG(47 , 79 , 79 ), "dark slate grey" },
296 { RGB_TO_ULONG(47 , 79 , 79 ), "DarkSlateGrey" },
297 { RGB_TO_ULONG(105, 105, 105), "dim gray" },
298 { RGB_TO_ULONG(105, 105, 105), "DimGray" },
299 { RGB_TO_ULONG(105, 105, 105), "dim grey" },
300 { RGB_TO_ULONG(105, 105, 105), "DimGrey" },
301 { RGB_TO_ULONG(112, 128, 144), "slate gray" },
302 { RGB_TO_ULONG(112, 128, 144), "SlateGray" },
303 { RGB_TO_ULONG(112, 128, 144), "slate grey" },
304 { RGB_TO_ULONG(112, 128, 144), "SlateGrey" },
305 { RGB_TO_ULONG(119, 136, 153), "light slate gray" },
306 { RGB_TO_ULONG(119, 136, 153), "LightSlateGray" },
307 { RGB_TO_ULONG(119, 136, 153), "light slate grey" },
308 { RGB_TO_ULONG(119, 136, 153), "LightSlateGrey" },
309 { RGB_TO_ULONG(190, 190, 190), "gray" },
310 { RGB_TO_ULONG(190, 190, 190), "grey" },
311 { RGB_TO_ULONG(211, 211, 211), "light grey" },
312 { RGB_TO_ULONG(211, 211, 211), "LightGrey" },
313 { RGB_TO_ULONG(211, 211, 211), "light gray" },
314 { RGB_TO_ULONG(211, 211, 211), "LightGray" },
315 { RGB_TO_ULONG(25 , 25 , 112), "midnight blue" },
316 { RGB_TO_ULONG(25 , 25 , 112), "MidnightBlue" },
317 { RGB_TO_ULONG(0 , 0 , 128), "navy" },
318 { RGB_TO_ULONG(0 , 0 , 128), "navy blue" },
319 { RGB_TO_ULONG(0 , 0 , 128), "NavyBlue" },
320 { RGB_TO_ULONG(100, 149, 237), "cornflower blue" },
321 { RGB_TO_ULONG(100, 149, 237), "CornflowerBlue" },
322 { RGB_TO_ULONG(72 , 61 , 139), "dark slate blue" },
323 { RGB_TO_ULONG(72 , 61 , 139), "DarkSlateBlue" },
324 { RGB_TO_ULONG(106, 90 , 205), "slate blue" },
325 { RGB_TO_ULONG(106, 90 , 205), "SlateBlue" },
326 { RGB_TO_ULONG(123, 104, 238), "medium slate blue" },
327 { RGB_TO_ULONG(123, 104, 238), "MediumSlateBlue" },
328 { RGB_TO_ULONG(132, 112, 255), "light slate blue" },
329 { RGB_TO_ULONG(132, 112, 255), "LightSlateBlue" },
330 { RGB_TO_ULONG(0 , 0 , 205), "medium blue" },
331 { RGB_TO_ULONG(0 , 0 , 205), "MediumBlue" },
332 { RGB_TO_ULONG(65 , 105, 225), "royal blue" },
333 { RGB_TO_ULONG(65 , 105, 225), "RoyalBlue" },
334 { RGB_TO_ULONG(0 , 0 , 255), "blue" },
335 { RGB_TO_ULONG(30 , 144, 255), "dodger blue" },
336 { RGB_TO_ULONG(30 , 144, 255), "DodgerBlue" },
337 { RGB_TO_ULONG(0 , 191, 255), "deep sky blue" },
338 { RGB_TO_ULONG(0 , 191, 255), "DeepSkyBlue" },
339 { RGB_TO_ULONG(135, 206, 235), "sky blue" },
340 { RGB_TO_ULONG(135, 206, 235), "SkyBlue" },
341 { RGB_TO_ULONG(135, 206, 250), "light sky blue" },
342 { RGB_TO_ULONG(135, 206, 250), "LightSkyBlue" },
343 { RGB_TO_ULONG(70 , 130, 180), "steel blue" },
344 { RGB_TO_ULONG(70 , 130, 180), "SteelBlue" },
345 { RGB_TO_ULONG(176, 196, 222), "light steel blue" },
346 { RGB_TO_ULONG(176, 196, 222), "LightSteelBlue" },
347 { RGB_TO_ULONG(173, 216, 230), "light blue" },
348 { RGB_TO_ULONG(173, 216, 230), "LightBlue" },
349 { RGB_TO_ULONG(176, 224, 230), "powder blue" },
350 { RGB_TO_ULONG(176, 224, 230), "PowderBlue" },
351 { RGB_TO_ULONG(175, 238, 238), "pale turquoise" },
352 { RGB_TO_ULONG(175, 238, 238), "PaleTurquoise" },
353 { RGB_TO_ULONG(0 , 206, 209), "dark turquoise" },
354 { RGB_TO_ULONG(0 , 206, 209), "DarkTurquoise" },
355 { RGB_TO_ULONG(72 , 209, 204), "medium turquoise" },
356 { RGB_TO_ULONG(72 , 209, 204), "MediumTurquoise" },
357 { RGB_TO_ULONG(64 , 224, 208), "turquoise" },
358 { RGB_TO_ULONG(0 , 255, 255), "cyan" },
359 { RGB_TO_ULONG(224, 255, 255), "light cyan" },
360 { RGB_TO_ULONG(224, 255, 255), "LightCyan" },
361 { RGB_TO_ULONG(95 , 158, 160), "cadet blue" },
362 { RGB_TO_ULONG(95 , 158, 160), "CadetBlue" },
363 { RGB_TO_ULONG(102, 205, 170), "medium aquamarine" },
364 { RGB_TO_ULONG(102, 205, 170), "MediumAquamarine" },
365 { RGB_TO_ULONG(127, 255, 212), "aquamarine" },
366 { RGB_TO_ULONG(0 , 100, 0 ), "dark green" },
367 { RGB_TO_ULONG(0 , 100, 0 ), "DarkGreen" },
368 { RGB_TO_ULONG(85 , 107, 47 ), "dark olive green" },
369 { RGB_TO_ULONG(85 , 107, 47 ), "DarkOliveGreen" },
370 { RGB_TO_ULONG(143, 188, 143), "dark sea green" },
371 { RGB_TO_ULONG(143, 188, 143), "DarkSeaGreen" },
372 { RGB_TO_ULONG(46 , 139, 87 ), "sea green" },
373 { RGB_TO_ULONG(46 , 139, 87 ), "SeaGreen" },
374 { RGB_TO_ULONG(60 , 179, 113), "medium sea green" },
375 { RGB_TO_ULONG(60 , 179, 113), "MediumSeaGreen" },
376 { RGB_TO_ULONG(32 , 178, 170), "light sea green" },
377 { RGB_TO_ULONG(32 , 178, 170), "LightSeaGreen" },
378 { RGB_TO_ULONG(152, 251, 152), "pale green" },
379 { RGB_TO_ULONG(152, 251, 152), "PaleGreen" },
380 { RGB_TO_ULONG(0 , 255, 127), "spring green" },
381 { RGB_TO_ULONG(0 , 255, 127), "SpringGreen" },
382 { RGB_TO_ULONG(124, 252, 0 ), "lawn green" },
383 { RGB_TO_ULONG(124, 252, 0 ), "LawnGreen" },
384 { RGB_TO_ULONG(0 , 255, 0 ), "green" },
385 { RGB_TO_ULONG(127, 255, 0 ), "chartreuse" },
386 { RGB_TO_ULONG(0 , 250, 154), "medium spring green" },
387 { RGB_TO_ULONG(0 , 250, 154), "MediumSpringGreen" },
388 { RGB_TO_ULONG(173, 255, 47 ), "green yellow" },
389 { RGB_TO_ULONG(173, 255, 47 ), "GreenYellow" },
390 { RGB_TO_ULONG(50 , 205, 50 ), "lime green" },
391 { RGB_TO_ULONG(50 , 205, 50 ), "LimeGreen" },
392 { RGB_TO_ULONG(154, 205, 50 ), "yellow green" },
393 { RGB_TO_ULONG(154, 205, 50 ), "YellowGreen" },
394 { RGB_TO_ULONG(34 , 139, 34 ), "forest green" },
395 { RGB_TO_ULONG(34 , 139, 34 ), "ForestGreen" },
396 { RGB_TO_ULONG(107, 142, 35 ), "olive drab" },
397 { RGB_TO_ULONG(107, 142, 35 ), "OliveDrab" },
398 { RGB_TO_ULONG(189, 183, 107), "dark khaki" },
399 { RGB_TO_ULONG(189, 183, 107), "DarkKhaki" },
400 { RGB_TO_ULONG(240, 230, 140), "khaki" },
401 { RGB_TO_ULONG(238, 232, 170), "pale goldenrod" },
402 { RGB_TO_ULONG(238, 232, 170), "PaleGoldenrod" },
403 { RGB_TO_ULONG(250, 250, 210), "light goldenrod yellow" },
404 { RGB_TO_ULONG(250, 250, 210), "LightGoldenrodYellow" },
405 { RGB_TO_ULONG(255, 255, 224), "light yellow" },
406 { RGB_TO_ULONG(255, 255, 224), "LightYellow" },
407 { RGB_TO_ULONG(255, 255, 0 ), "yellow" },
408 { RGB_TO_ULONG(255, 215, 0 ), "gold" },
409 { RGB_TO_ULONG(238, 221, 130), "light goldenrod" },
410 { RGB_TO_ULONG(238, 221, 130), "LightGoldenrod" },
411 { RGB_TO_ULONG(218, 165, 32 ), "goldenrod" },
412 { RGB_TO_ULONG(184, 134, 11 ), "dark goldenrod" },
413 { RGB_TO_ULONG(184, 134, 11 ), "DarkGoldenrod" },
414 { RGB_TO_ULONG(188, 143, 143), "rosy brown" },
415 { RGB_TO_ULONG(188, 143, 143), "RosyBrown" },
416 { RGB_TO_ULONG(205, 92 , 92 ), "indian red" },
417 { RGB_TO_ULONG(205, 92 , 92 ), "IndianRed" },
418 { RGB_TO_ULONG(139, 69 , 19 ), "saddle brown" },
419 { RGB_TO_ULONG(139, 69 , 19 ), "SaddleBrown" },
420 { RGB_TO_ULONG(160, 82 , 45 ), "sienna" },
421 { RGB_TO_ULONG(205, 133, 63 ), "peru" },
422 { RGB_TO_ULONG(222, 184, 135), "burlywood" },
423 { RGB_TO_ULONG(245, 245, 220), "beige" },
424 { RGB_TO_ULONG(245, 222, 179), "wheat" },
425 { RGB_TO_ULONG(244, 164, 96 ), "sandy brown" },
426 { RGB_TO_ULONG(244, 164, 96 ), "SandyBrown" },
427 { RGB_TO_ULONG(210, 180, 140), "tan" },
428 { RGB_TO_ULONG(210, 105, 30 ), "chocolate" },
429 { RGB_TO_ULONG(178, 34 , 34 ), "firebrick" },
430 { RGB_TO_ULONG(165, 42 , 42 ), "brown" },
431 { RGB_TO_ULONG(233, 150, 122), "dark salmon" },
432 { RGB_TO_ULONG(233, 150, 122), "DarkSalmon" },
433 { RGB_TO_ULONG(250, 128, 114), "salmon" },
434 { RGB_TO_ULONG(255, 160, 122), "light salmon" },
435 { RGB_TO_ULONG(255, 160, 122), "LightSalmon" },
436 { RGB_TO_ULONG(255, 165, 0 ), "orange" },
437 { RGB_TO_ULONG(255, 140, 0 ), "dark orange" },
438 { RGB_TO_ULONG(255, 140, 0 ), "DarkOrange" },
439 { RGB_TO_ULONG(255, 127, 80 ), "coral" },
440 { RGB_TO_ULONG(240, 128, 128), "light coral" },
441 { RGB_TO_ULONG(240, 128, 128), "LightCoral" },
442 { RGB_TO_ULONG(255, 99 , 71 ), "tomato" },
443 { RGB_TO_ULONG(255, 69 , 0 ), "orange red" },
444 { RGB_TO_ULONG(255, 69 , 0 ), "OrangeRed" },
445 { RGB_TO_ULONG(255, 0 , 0 ), "red" },
446 { RGB_TO_ULONG(255, 105, 180), "hot pink" },
447 { RGB_TO_ULONG(255, 105, 180), "HotPink" },
448 { RGB_TO_ULONG(255, 20 , 147), "deep pink" },
449 { RGB_TO_ULONG(255, 20 , 147), "DeepPink" },
450 { RGB_TO_ULONG(255, 192, 203), "pink" },
451 { RGB_TO_ULONG(255, 182, 193), "light pink" },
452 { RGB_TO_ULONG(255, 182, 193), "LightPink" },
453 { RGB_TO_ULONG(219, 112, 147), "pale violet red" },
454 { RGB_TO_ULONG(219, 112, 147), "PaleVioletRed" },
455 { RGB_TO_ULONG(176, 48 , 96 ), "maroon" },
456 { RGB_TO_ULONG(199, 21 , 133), "medium violet red" },
457 { RGB_TO_ULONG(199, 21 , 133), "MediumVioletRed" },
458 { RGB_TO_ULONG(208, 32 , 144), "violet red" },
459 { RGB_TO_ULONG(208, 32 , 144), "VioletRed" },
460 { RGB_TO_ULONG(255, 0 , 255), "magenta" },
461 { RGB_TO_ULONG(238, 130, 238), "violet" },
462 { RGB_TO_ULONG(221, 160, 221), "plum" },
463 { RGB_TO_ULONG(218, 112, 214), "orchid" },
464 { RGB_TO_ULONG(186, 85 , 211), "medium orchid" },
465 { RGB_TO_ULONG(186, 85 , 211), "MediumOrchid" },
466 { RGB_TO_ULONG(153, 50 , 204), "dark orchid" },
467 { RGB_TO_ULONG(153, 50 , 204), "DarkOrchid" },
468 { RGB_TO_ULONG(148, 0 , 211), "dark violet" },
469 { RGB_TO_ULONG(148, 0 , 211), "DarkViolet" },
470 { RGB_TO_ULONG(138, 43 , 226), "blue violet" },
471 { RGB_TO_ULONG(138, 43 , 226), "BlueViolet" },
472 { RGB_TO_ULONG(160, 32 , 240), "purple" },
473 { RGB_TO_ULONG(147, 112, 219), "medium purple" },
474 { RGB_TO_ULONG(147, 112, 219), "MediumPurple" },
475 { RGB_TO_ULONG(216, 191, 216), "thistle" },
476 { RGB_TO_ULONG(255, 250, 250), "snow1" },
477 { RGB_TO_ULONG(238, 233, 233), "snow2" },
478 { RGB_TO_ULONG(205, 201, 201), "snow3" },
479 { RGB_TO_ULONG(139, 137, 137), "snow4" },
480 { RGB_TO_ULONG(255, 245, 238), "seashell1" },
481 { RGB_TO_ULONG(238, 229, 222), "seashell2" },
482 { RGB_TO_ULONG(205, 197, 191), "seashell3" },
483 { RGB_TO_ULONG(139, 134, 130), "seashell4" },
484 { RGB_TO_ULONG(255, 239, 219), "AntiqueWhite1" },
485 { RGB_TO_ULONG(238, 223, 204), "AntiqueWhite2" },
486 { RGB_TO_ULONG(205, 192, 176), "AntiqueWhite3" },
487 { RGB_TO_ULONG(139, 131, 120), "AntiqueWhite4" },
488 { RGB_TO_ULONG(255, 228, 196), "bisque1" },
489 { RGB_TO_ULONG(238, 213, 183), "bisque2" },
490 { RGB_TO_ULONG(205, 183, 158), "bisque3" },
491 { RGB_TO_ULONG(139, 125, 107), "bisque4" },
492 { RGB_TO_ULONG(255, 218, 185), "PeachPuff1" },
493 { RGB_TO_ULONG(238, 203, 173), "PeachPuff2" },
494 { RGB_TO_ULONG(205, 175, 149), "PeachPuff3" },
495 { RGB_TO_ULONG(139, 119, 101), "PeachPuff4" },
496 { RGB_TO_ULONG(255, 222, 173), "NavajoWhite1" },
497 { RGB_TO_ULONG(238, 207, 161), "NavajoWhite2" },
498 { RGB_TO_ULONG(205, 179, 139), "NavajoWhite3" },
499 { RGB_TO_ULONG(139, 121, 94), "NavajoWhite4" },
500 { RGB_TO_ULONG(255, 250, 205), "LemonChiffon1" },
501 { RGB_TO_ULONG(238, 233, 191), "LemonChiffon2" },
502 { RGB_TO_ULONG(205, 201, 165), "LemonChiffon3" },
503 { RGB_TO_ULONG(139, 137, 112), "LemonChiffon4" },
504 { RGB_TO_ULONG(255, 248, 220), "cornsilk1" },
505 { RGB_TO_ULONG(238, 232, 205), "cornsilk2" },
506 { RGB_TO_ULONG(205, 200, 177), "cornsilk3" },
507 { RGB_TO_ULONG(139, 136, 120), "cornsilk4" },
508 { RGB_TO_ULONG(255, 255, 240), "ivory1" },
509 { RGB_TO_ULONG(238, 238, 224), "ivory2" },
510 { RGB_TO_ULONG(205, 205, 193), "ivory3" },
511 { RGB_TO_ULONG(139, 139, 131), "ivory4" },
512 { RGB_TO_ULONG(240, 255, 240), "honeydew1" },
513 { RGB_TO_ULONG(224, 238, 224), "honeydew2" },
514 { RGB_TO_ULONG(193, 205, 193), "honeydew3" },
515 { RGB_TO_ULONG(131, 139, 131), "honeydew4" },
516 { RGB_TO_ULONG(255, 240, 245), "LavenderBlush1" },
517 { RGB_TO_ULONG(238, 224, 229), "LavenderBlush2" },
518 { RGB_TO_ULONG(205, 193, 197), "LavenderBlush3" },
519 { RGB_TO_ULONG(139, 131, 134), "LavenderBlush4" },
520 { RGB_TO_ULONG(255, 228, 225), "MistyRose1" },
521 { RGB_TO_ULONG(238, 213, 210), "MistyRose2" },
522 { RGB_TO_ULONG(205, 183, 181), "MistyRose3" },
523 { RGB_TO_ULONG(139, 125, 123), "MistyRose4" },
524 { RGB_TO_ULONG(240, 255, 255), "azure1" },
525 { RGB_TO_ULONG(224, 238, 238), "azure2" },
526 { RGB_TO_ULONG(193, 205, 205), "azure3" },
527 { RGB_TO_ULONG(131, 139, 139), "azure4" },
528 { RGB_TO_ULONG(131, 111, 255), "SlateBlue1" },
529 { RGB_TO_ULONG(122, 103, 238), "SlateBlue2" },
530 { RGB_TO_ULONG(105, 89 , 205), "SlateBlue3" },
531 { RGB_TO_ULONG(71 , 60 , 139), "SlateBlue4" },
532 { RGB_TO_ULONG(72 , 118, 255), "RoyalBlue1" },
533 { RGB_TO_ULONG(67 , 110, 238), "RoyalBlue2" },
534 { RGB_TO_ULONG(58 , 95 , 205), "RoyalBlue3" },
535 { RGB_TO_ULONG(39 , 64 , 139), "RoyalBlue4" },
536 { RGB_TO_ULONG(0 , 0 , 255), "blue1" },
537 { RGB_TO_ULONG(0 , 0 , 238), "blue2" },
538 { RGB_TO_ULONG(0 , 0 , 205), "blue3" },
539 { RGB_TO_ULONG(0 , 0 , 139), "blue4" },
540 { RGB_TO_ULONG(30 , 144, 255), "DodgerBlue1" },
541 { RGB_TO_ULONG(28 , 134, 238), "DodgerBlue2" },
542 { RGB_TO_ULONG(24 , 116, 205), "DodgerBlue3" },
543 { RGB_TO_ULONG(16 , 78 , 139), "DodgerBlue4" },
544 { RGB_TO_ULONG(99 , 184, 255), "SteelBlue1" },
545 { RGB_TO_ULONG(92 , 172, 238), "SteelBlue2" },
546 { RGB_TO_ULONG(79 , 148, 205), "SteelBlue3" },
547 { RGB_TO_ULONG(54 , 100, 139), "SteelBlue4" },
548 { RGB_TO_ULONG(0 , 191, 255), "DeepSkyBlue1" },
549 { RGB_TO_ULONG(0 , 178, 238), "DeepSkyBlue2" },
550 { RGB_TO_ULONG(0 , 154, 205), "DeepSkyBlue3" },
551 { RGB_TO_ULONG(0 , 104, 139), "DeepSkyBlue4" },
552 { RGB_TO_ULONG(135, 206, 255), "SkyBlue1" },
553 { RGB_TO_ULONG(126, 192, 238), "SkyBlue2" },
554 { RGB_TO_ULONG(108, 166, 205), "SkyBlue3" },
555 { RGB_TO_ULONG(74 , 112, 139), "SkyBlue4" },
556 { RGB_TO_ULONG(176, 226, 255), "LightSkyBlue1" },
557 { RGB_TO_ULONG(164, 211, 238), "LightSkyBlue2" },
558 { RGB_TO_ULONG(141, 182, 205), "LightSkyBlue3" },
559 { RGB_TO_ULONG(96 , 123, 139), "LightSkyBlue4" },
560 { RGB_TO_ULONG(198, 226, 255), "SlateGray1" },
561 { RGB_TO_ULONG(185, 211, 238), "SlateGray2" },
562 { RGB_TO_ULONG(159, 182, 205), "SlateGray3" },
563 { RGB_TO_ULONG(108, 123, 139), "SlateGray4" },
564 { RGB_TO_ULONG(202, 225, 255), "LightSteelBlue1" },
565 { RGB_TO_ULONG(188, 210, 238), "LightSteelBlue2" },
566 { RGB_TO_ULONG(162, 181, 205), "LightSteelBlue3" },
567 { RGB_TO_ULONG(110, 123, 139), "LightSteelBlue4" },
568 { RGB_TO_ULONG(191, 239, 255), "LightBlue1" },
569 { RGB_TO_ULONG(178, 223, 238), "LightBlue2" },
570 { RGB_TO_ULONG(154, 192, 205), "LightBlue3" },
571 { RGB_TO_ULONG(104, 131, 139), "LightBlue4" },
572 { RGB_TO_ULONG(224, 255, 255), "LightCyan1" },
573 { RGB_TO_ULONG(209, 238, 238), "LightCyan2" },
574 { RGB_TO_ULONG(180, 205, 205), "LightCyan3" },
575 { RGB_TO_ULONG(122, 139, 139), "LightCyan4" },
576 { RGB_TO_ULONG(187, 255, 255), "PaleTurquoise1" },
577 { RGB_TO_ULONG(174, 238, 238), "PaleTurquoise2" },
578 { RGB_TO_ULONG(150, 205, 205), "PaleTurquoise3" },
579 { RGB_TO_ULONG(102, 139, 139), "PaleTurquoise4" },
580 { RGB_TO_ULONG(152, 245, 255), "CadetBlue1" },
581 { RGB_TO_ULONG(142, 229, 238), "CadetBlue2" },
582 { RGB_TO_ULONG(122, 197, 205), "CadetBlue3" },
583 { RGB_TO_ULONG(83 , 134, 139), "CadetBlue4" },
584 { RGB_TO_ULONG(0 , 245, 255), "turquoise1" },
585 { RGB_TO_ULONG(0 , 229, 238), "turquoise2" },
586 { RGB_TO_ULONG(0 , 197, 205), "turquoise3" },
587 { RGB_TO_ULONG(0 , 134, 139), "turquoise4" },
588 { RGB_TO_ULONG(0 , 255, 255), "cyan1" },
589 { RGB_TO_ULONG(0 , 238, 238), "cyan2" },
590 { RGB_TO_ULONG(0 , 205, 205), "cyan3" },
591 { RGB_TO_ULONG(0 , 139, 139), "cyan4" },
592 { RGB_TO_ULONG(151, 255, 255), "DarkSlateGray1" },
593 { RGB_TO_ULONG(141, 238, 238), "DarkSlateGray2" },
594 { RGB_TO_ULONG(121, 205, 205), "DarkSlateGray3" },
595 { RGB_TO_ULONG(82 , 139, 139), "DarkSlateGray4" },
596 { RGB_TO_ULONG(127, 255, 212), "aquamarine1" },
597 { RGB_TO_ULONG(118, 238, 198), "aquamarine2" },
598 { RGB_TO_ULONG(102, 205, 170), "aquamarine3" },
599 { RGB_TO_ULONG(69 , 139, 116), "aquamarine4" },
600 { RGB_TO_ULONG(193, 255, 193), "DarkSeaGreen1" },
601 { RGB_TO_ULONG(180, 238, 180), "DarkSeaGreen2" },
602 { RGB_TO_ULONG(155, 205, 155), "DarkSeaGreen3" },
603 { RGB_TO_ULONG(105, 139, 105), "DarkSeaGreen4" },
604 { RGB_TO_ULONG(84 , 255, 159), "SeaGreen1" },
605 { RGB_TO_ULONG(78 , 238, 148), "SeaGreen2" },
606 { RGB_TO_ULONG(67 , 205, 128), "SeaGreen3" },
607 { RGB_TO_ULONG(46 , 139, 87 ), "SeaGreen4" },
608 { RGB_TO_ULONG(154, 255, 154), "PaleGreen1" },
609 { RGB_TO_ULONG(144, 238, 144), "PaleGreen2" },
610 { RGB_TO_ULONG(124, 205, 124), "PaleGreen3" },
611 { RGB_TO_ULONG(84 , 139, 84 ), "PaleGreen4" },
612 { RGB_TO_ULONG(0 , 255, 127), "SpringGreen1" },
613 { RGB_TO_ULONG(0 , 238, 118), "SpringGreen2" },
614 { RGB_TO_ULONG(0 , 205, 102), "SpringGreen3" },
615 { RGB_TO_ULONG(0 , 139, 69 ), "SpringGreen4" },
616 { RGB_TO_ULONG(0 , 255, 0 ), "green1" },
617 { RGB_TO_ULONG(0 , 238, 0 ), "green2" },
618 { RGB_TO_ULONG(0 , 205, 0 ), "green3" },
619 { RGB_TO_ULONG(0 , 139, 0 ), "green4" },
620 { RGB_TO_ULONG(127, 255, 0 ), "chartreuse1" },
621 { RGB_TO_ULONG(118, 238, 0 ), "chartreuse2" },
622 { RGB_TO_ULONG(102, 205, 0 ), "chartreuse3" },
623 { RGB_TO_ULONG(69 , 139, 0 ), "chartreuse4" },
624 { RGB_TO_ULONG(192, 255, 62 ), "OliveDrab1" },
625 { RGB_TO_ULONG(179, 238, 58 ), "OliveDrab2" },
626 { RGB_TO_ULONG(154, 205, 50 ), "OliveDrab3" },
627 { RGB_TO_ULONG(105, 139, 34 ), "OliveDrab4" },
628 { RGB_TO_ULONG(202, 255, 112), "DarkOliveGreen1" },
629 { RGB_TO_ULONG(188, 238, 104), "DarkOliveGreen2" },
630 { RGB_TO_ULONG(162, 205, 90 ), "DarkOliveGreen3" },
631 { RGB_TO_ULONG(110, 139, 61 ), "DarkOliveGreen4" },
632 { RGB_TO_ULONG(255, 246, 143), "khaki1" },
633 { RGB_TO_ULONG(238, 230, 133), "khaki2" },
634 { RGB_TO_ULONG(205, 198, 115), "khaki3" },
635 { RGB_TO_ULONG(139, 134, 78 ), "khaki4" },
636 { RGB_TO_ULONG(255, 236, 139), "LightGoldenrod1" },
637 { RGB_TO_ULONG(238, 220, 130), "LightGoldenrod2" },
638 { RGB_TO_ULONG(205, 190, 112), "LightGoldenrod3" },
639 { RGB_TO_ULONG(139, 129, 76 ), "LightGoldenrod4" },
640 { RGB_TO_ULONG(255, 255, 224), "LightYellow1" },
641 { RGB_TO_ULONG(238, 238, 209), "LightYellow2" },
642 { RGB_TO_ULONG(205, 205, 180), "LightYellow3" },
643 { RGB_TO_ULONG(139, 139, 122), "LightYellow4" },
644 { RGB_TO_ULONG(255, 255, 0 ), "yellow1" },
645 { RGB_TO_ULONG(238, 238, 0 ), "yellow2" },
646 { RGB_TO_ULONG(205, 205, 0 ), "yellow3" },
647 { RGB_TO_ULONG(139, 139, 0 ), "yellow4" },
648 { RGB_TO_ULONG(255, 215, 0 ), "gold1" },
649 { RGB_TO_ULONG(238, 201, 0 ), "gold2" },
650 { RGB_TO_ULONG(205, 173, 0 ), "gold3" },
651 { RGB_TO_ULONG(139, 117, 0 ), "gold4" },
652 { RGB_TO_ULONG(255, 193, 37 ), "goldenrod1" },
653 { RGB_TO_ULONG(238, 180, 34 ), "goldenrod2" },
654 { RGB_TO_ULONG(205, 155, 29 ), "goldenrod3" },
655 { RGB_TO_ULONG(139, 105, 20 ), "goldenrod4" },
656 { RGB_TO_ULONG(255, 185, 15 ), "DarkGoldenrod1" },
657 { RGB_TO_ULONG(238, 173, 14 ), "DarkGoldenrod2" },
658 { RGB_TO_ULONG(205, 149, 12 ), "DarkGoldenrod3" },
659 { RGB_TO_ULONG(139, 101, 8 ), "DarkGoldenrod4" },
660 { RGB_TO_ULONG(255, 193, 193), "RosyBrown1" },
661 { RGB_TO_ULONG(238, 180, 180), "RosyBrown2" },
662 { RGB_TO_ULONG(205, 155, 155), "RosyBrown3" },
663 { RGB_TO_ULONG(139, 105, 105), "RosyBrown4" },
664 { RGB_TO_ULONG(255, 106, 106), "IndianRed1" },
665 { RGB_TO_ULONG(238, 99 , 99 ), "IndianRed2" },
666 { RGB_TO_ULONG(205, 85 , 85 ), "IndianRed3" },
667 { RGB_TO_ULONG(139, 58 , 58 ), "IndianRed4" },
668 { RGB_TO_ULONG(255, 130, 71 ), "sienna1" },
669 { RGB_TO_ULONG(238, 121, 66 ), "sienna2" },
670 { RGB_TO_ULONG(205, 104, 57 ), "sienna3" },
671 { RGB_TO_ULONG(139, 71 , 38 ), "sienna4" },
672 { RGB_TO_ULONG(255, 211, 155), "burlywood1" },
673 { RGB_TO_ULONG(238, 197, 145), "burlywood2" },
674 { RGB_TO_ULONG(205, 170, 125), "burlywood3" },
675 { RGB_TO_ULONG(139, 115, 85 ), "burlywood4" },
676 { RGB_TO_ULONG(255, 231, 186), "wheat1" },
677 { RGB_TO_ULONG(238, 216, 174), "wheat2" },
678 { RGB_TO_ULONG(205, 186, 150), "wheat3" },
679 { RGB_TO_ULONG(139, 126, 102), "wheat4" },
680 { RGB_TO_ULONG(255, 165, 79 ), "tan1" },
681 { RGB_TO_ULONG(238, 154, 73 ), "tan2" },
682 { RGB_TO_ULONG(205, 133, 63 ), "tan3" },
683 { RGB_TO_ULONG(139, 90 , 43 ), "tan4" },
684 { RGB_TO_ULONG(255, 127, 36 ), "chocolate1" },
685 { RGB_TO_ULONG(238, 118, 33 ), "chocolate2" },
686 { RGB_TO_ULONG(205, 102, 29 ), "chocolate3" },
687 { RGB_TO_ULONG(139, 69 , 19 ), "chocolate4" },
688 { RGB_TO_ULONG(255, 48 , 48 ), "firebrick1" },
689 { RGB_TO_ULONG(238, 44 , 44 ), "firebrick2" },
690 { RGB_TO_ULONG(205, 38 , 38 ), "firebrick3" },
691 { RGB_TO_ULONG(139, 26 , 26 ), "firebrick4" },
692 { RGB_TO_ULONG(255, 64 , 64 ), "brown1" },
693 { RGB_TO_ULONG(238, 59 , 59 ), "brown2" },
694 { RGB_TO_ULONG(205, 51 , 51 ), "brown3" },
695 { RGB_TO_ULONG(139, 35 , 35 ), "brown4" },
696 { RGB_TO_ULONG(255, 140, 105), "salmon1" },
697 { RGB_TO_ULONG(238, 130, 98 ), "salmon2" },
698 { RGB_TO_ULONG(205, 112, 84 ), "salmon3" },
699 { RGB_TO_ULONG(139, 76 , 57 ), "salmon4" },
700 { RGB_TO_ULONG(255, 160, 122), "LightSalmon1" },
701 { RGB_TO_ULONG(238, 149, 114), "LightSalmon2" },
702 { RGB_TO_ULONG(205, 129, 98 ), "LightSalmon3" },
703 { RGB_TO_ULONG(139, 87 , 66 ), "LightSalmon4" },
704 { RGB_TO_ULONG(255, 165, 0 ), "orange1" },
705 { RGB_TO_ULONG(238, 154, 0 ), "orange2" },
706 { RGB_TO_ULONG(205, 133, 0 ), "orange3" },
707 { RGB_TO_ULONG(139, 90 , 0 ), "orange4" },
708 { RGB_TO_ULONG(255, 127, 0 ), "DarkOrange1" },
709 { RGB_TO_ULONG(238, 118, 0 ), "DarkOrange2" },
710 { RGB_TO_ULONG(205, 102, 0 ), "DarkOrange3" },
711 { RGB_TO_ULONG(139, 69 , 0 ), "DarkOrange4" },
712 { RGB_TO_ULONG(255, 114, 86 ), "coral1" },
713 { RGB_TO_ULONG(238, 106, 80 ), "coral2" },
714 { RGB_TO_ULONG(205, 91 , 69 ), "coral3" },
715 { RGB_TO_ULONG(139, 62 , 47 ), "coral4" },
716 { RGB_TO_ULONG(255, 99 , 71 ), "tomato1" },
717 { RGB_TO_ULONG(238, 92 , 66 ), "tomato2" },
718 { RGB_TO_ULONG(205, 79 , 57 ), "tomato3" },
719 { RGB_TO_ULONG(139, 54 , 38 ), "tomato4" },
720 { RGB_TO_ULONG(255, 69 , 0 ), "OrangeRed1" },
721 { RGB_TO_ULONG(238, 64 , 0 ), "OrangeRed2" },
722 { RGB_TO_ULONG(205, 55 , 0 ), "OrangeRed3" },
723 { RGB_TO_ULONG(139, 37 , 0 ), "OrangeRed4" },
724 { RGB_TO_ULONG(255, 0 , 0 ), "red1" },
725 { RGB_TO_ULONG(238, 0 , 0 ), "red2" },
726 { RGB_TO_ULONG(205, 0 , 0 ), "red3" },
727 { RGB_TO_ULONG(139, 0 , 0 ), "red4" },
728 { RGB_TO_ULONG(255, 20 , 147), "DeepPink1" },
729 { RGB_TO_ULONG(238, 18 , 137), "DeepPink2" },
730 { RGB_TO_ULONG(205, 16 , 118), "DeepPink3" },
731 { RGB_TO_ULONG(139, 10 , 80 ), "DeepPink4" },
732 { RGB_TO_ULONG(255, 110, 180), "HotPink1" },
733 { RGB_TO_ULONG(238, 106, 167), "HotPink2" },
734 { RGB_TO_ULONG(205, 96 , 144), "HotPink3" },
735 { RGB_TO_ULONG(139, 58 , 98 ), "HotPink4" },
736 { RGB_TO_ULONG(255, 181, 197), "pink1" },
737 { RGB_TO_ULONG(238, 169, 184), "pink2" },
738 { RGB_TO_ULONG(205, 145, 158), "pink3" },
739 { RGB_TO_ULONG(139, 99 , 108), "pink4" },
740 { RGB_TO_ULONG(255, 174, 185), "LightPink1" },
741 { RGB_TO_ULONG(238, 162, 173), "LightPink2" },
742 { RGB_TO_ULONG(205, 140, 149), "LightPink3" },
743 { RGB_TO_ULONG(139, 95 , 101), "LightPink4" },
744 { RGB_TO_ULONG(255, 130, 171), "PaleVioletRed1" },
745 { RGB_TO_ULONG(238, 121, 159), "PaleVioletRed2" },
746 { RGB_TO_ULONG(205, 104, 137), "PaleVioletRed3" },
747 { RGB_TO_ULONG(139, 71 , 93 ), "PaleVioletRed4" },
748 { RGB_TO_ULONG(255, 52 , 179), "maroon1" },
749 { RGB_TO_ULONG(238, 48 , 167), "maroon2" },
750 { RGB_TO_ULONG(205, 41 , 144), "maroon3" },
751 { RGB_TO_ULONG(139, 28 , 98 ), "maroon4" },
752 { RGB_TO_ULONG(255, 62 , 150), "VioletRed1" },
753 { RGB_TO_ULONG(238, 58 , 140), "VioletRed2" },
754 { RGB_TO_ULONG(205, 50 , 120), "VioletRed3" },
755 { RGB_TO_ULONG(139, 34 , 82 ), "VioletRed4" },
756 { RGB_TO_ULONG(255, 0 , 255), "magenta1" },
757 { RGB_TO_ULONG(238, 0 , 238), "magenta2" },
758 { RGB_TO_ULONG(205, 0 , 205), "magenta3" },
759 { RGB_TO_ULONG(139, 0 , 139), "magenta4" },
760 { RGB_TO_ULONG(255, 131, 250), "orchid1" },
761 { RGB_TO_ULONG(238, 122, 233), "orchid2" },
762 { RGB_TO_ULONG(205, 105, 201), "orchid3" },
763 { RGB_TO_ULONG(139, 71 , 137), "orchid4" },
764 { RGB_TO_ULONG(255, 187, 255), "plum1" },
765 { RGB_TO_ULONG(238, 174, 238), "plum2" },
766 { RGB_TO_ULONG(205, 150, 205), "plum3" },
767 { RGB_TO_ULONG(139, 102, 139), "plum4" },
768 { RGB_TO_ULONG(224, 102, 255), "MediumOrchid1" },
769 { RGB_TO_ULONG(209, 95 , 238), "MediumOrchid2" },
770 { RGB_TO_ULONG(180, 82 , 205), "MediumOrchid3" },
771 { RGB_TO_ULONG(122, 55 , 139), "MediumOrchid4" },
772 { RGB_TO_ULONG(191, 62 , 255), "DarkOrchid1" },
773 { RGB_TO_ULONG(178, 58 , 238), "DarkOrchid2" },
774 { RGB_TO_ULONG(154, 50 , 205), "DarkOrchid3" },
775 { RGB_TO_ULONG(104, 34 , 139), "DarkOrchid4" },
776 { RGB_TO_ULONG(155, 48 , 255), "purple1" },
777 { RGB_TO_ULONG(145, 44 , 238), "purple2" },
778 { RGB_TO_ULONG(125, 38 , 205), "purple3" },
779 { RGB_TO_ULONG(85 , 26 , 139), "purple4" },
780 { RGB_TO_ULONG(171, 130, 255), "MediumPurple1" },
781 { RGB_TO_ULONG(159, 121, 238), "MediumPurple2" },
782 { RGB_TO_ULONG(137, 104, 205), "MediumPurple3" },
783 { RGB_TO_ULONG(93 , 71 , 139), "MediumPurple4" },
784 { RGB_TO_ULONG(255, 225, 255), "thistle1" },
785 { RGB_TO_ULONG(238, 210, 238), "thistle2" },
786 { RGB_TO_ULONG(205, 181, 205), "thistle3" },
787 { RGB_TO_ULONG(139, 123, 139), "thistle4" },
788 { RGB_TO_ULONG(0 , 0 , 0 ), "gray0" },
789 { RGB_TO_ULONG(0 , 0 , 0 ), "grey0" },
790 { RGB_TO_ULONG(3 , 3 , 3 ), "gray1" },
791 { RGB_TO_ULONG(3 , 3 , 3 ), "grey1" },
792 { RGB_TO_ULONG(5 , 5 , 5 ), "gray2" },
793 { RGB_TO_ULONG(5 , 5 , 5 ), "grey2" },
794 { RGB_TO_ULONG(8 , 8 , 8 ), "gray3" },
795 { RGB_TO_ULONG(8 , 8 , 8 ), "grey3" },
796 { RGB_TO_ULONG(10 , 10 , 10 ), "gray4" },
797 { RGB_TO_ULONG(10 , 10 , 10 ), "grey4" },
798 { RGB_TO_ULONG(13 , 13 , 13 ), "gray5" },
799 { RGB_TO_ULONG(13 , 13 , 13 ), "grey5" },
800 { RGB_TO_ULONG(15 , 15 , 15 ), "gray6" },
801 { RGB_TO_ULONG(15 , 15 , 15 ), "grey6" },
802 { RGB_TO_ULONG(18 , 18 , 18 ), "gray7" },
803 { RGB_TO_ULONG(18 , 18 , 18 ), "grey7" },
804 { RGB_TO_ULONG(20 , 20 , 20 ), "gray8" },
805 { RGB_TO_ULONG(20 , 20 , 20 ), "grey8" },
806 { RGB_TO_ULONG(23 , 23 , 23 ), "gray9" },
807 { RGB_TO_ULONG(23 , 23 , 23 ), "grey9" },
808 { RGB_TO_ULONG(26 , 26 , 26 ), "gray10" },
809 { RGB_TO_ULONG(26 , 26 , 26 ), "grey10" },
810 { RGB_TO_ULONG(28 , 28 , 28 ), "gray11" },
811 { RGB_TO_ULONG(28 , 28 , 28 ), "grey11" },
812 { RGB_TO_ULONG(31 , 31 , 31 ), "gray12" },
813 { RGB_TO_ULONG(31 , 31 , 31 ), "grey12" },
814 { RGB_TO_ULONG(33 , 33 , 33 ), "gray13" },
815 { RGB_TO_ULONG(33 , 33 , 33 ), "grey13" },
816 { RGB_TO_ULONG(36 , 36 , 36 ), "gray14" },
817 { RGB_TO_ULONG(36 , 36 , 36 ), "grey14" },
818 { RGB_TO_ULONG(38 , 38 , 38 ), "gray15" },
819 { RGB_TO_ULONG(38 , 38 , 38 ), "grey15" },
820 { RGB_TO_ULONG(41 , 41 , 41 ), "gray16" },
821 { RGB_TO_ULONG(41 , 41 , 41 ), "grey16" },
822 { RGB_TO_ULONG(43 , 43 , 43 ), "gray17" },
823 { RGB_TO_ULONG(43 , 43 , 43 ), "grey17" },
824 { RGB_TO_ULONG(46 , 46 , 46 ), "gray18" },
825 { RGB_TO_ULONG(46 , 46 , 46 ), "grey18" },
826 { RGB_TO_ULONG(48 , 48 , 48 ), "gray19" },
827 { RGB_TO_ULONG(48 , 48 , 48 ), "grey19" },
828 { RGB_TO_ULONG(51 , 51 , 51 ), "gray20" },
829 { RGB_TO_ULONG(51 , 51 , 51 ), "grey20" },
830 { RGB_TO_ULONG(54 , 54 , 54 ), "gray21" },
831 { RGB_TO_ULONG(54 , 54 , 54 ), "grey21" },
832 { RGB_TO_ULONG(56 , 56 , 56 ), "gray22" },
833 { RGB_TO_ULONG(56 , 56 , 56 ), "grey22" },
834 { RGB_TO_ULONG(59 , 59 , 59 ), "gray23" },
835 { RGB_TO_ULONG(59 , 59 , 59 ), "grey23" },
836 { RGB_TO_ULONG(61 , 61 , 61 ), "gray24" },
837 { RGB_TO_ULONG(61 , 61 , 61 ), "grey24" },
838 { RGB_TO_ULONG(64 , 64 , 64 ), "gray25" },
839 { RGB_TO_ULONG(64 , 64 , 64 ), "grey25" },
840 { RGB_TO_ULONG(66 , 66 , 66 ), "gray26" },
841 { RGB_TO_ULONG(66 , 66 , 66 ), "grey26" },
842 { RGB_TO_ULONG(69 , 69 , 69 ), "gray27" },
843 { RGB_TO_ULONG(69 , 69 , 69 ), "grey27" },
844 { RGB_TO_ULONG(71 , 71 , 71 ), "gray28" },
845 { RGB_TO_ULONG(71 , 71 , 71 ), "grey28" },
846 { RGB_TO_ULONG(74 , 74 , 74 ), "gray29" },
847 { RGB_TO_ULONG(74 , 74 , 74 ), "grey29" },
848 { RGB_TO_ULONG(77 , 77 , 77 ), "gray30" },
849 { RGB_TO_ULONG(77 , 77 , 77 ), "grey30" },
850 { RGB_TO_ULONG(79 , 79 , 79 ), "gray31" },
851 { RGB_TO_ULONG(79 , 79 , 79 ), "grey31" },
852 { RGB_TO_ULONG(82 , 82 , 82 ), "gray32" },
853 { RGB_TO_ULONG(82 , 82 , 82 ), "grey32" },
854 { RGB_TO_ULONG(84 , 84 , 84 ), "gray33" },
855 { RGB_TO_ULONG(84 , 84 , 84 ), "grey33" },
856 { RGB_TO_ULONG(87 , 87 , 87 ), "gray34" },
857 { RGB_TO_ULONG(87 , 87 , 87 ), "grey34" },
858 { RGB_TO_ULONG(89 , 89 , 89 ), "gray35" },
859 { RGB_TO_ULONG(89 , 89 , 89 ), "grey35" },
860 { RGB_TO_ULONG(92 , 92 , 92 ), "gray36" },
861 { RGB_TO_ULONG(92 , 92 , 92 ), "grey36" },
862 { RGB_TO_ULONG(94 , 94 , 94 ), "gray37" },
863 { RGB_TO_ULONG(94 , 94 , 94 ), "grey37" },
864 { RGB_TO_ULONG(97 , 97 , 97 ), "gray38" },
865 { RGB_TO_ULONG(97 , 97 , 97 ), "grey38" },
866 { RGB_TO_ULONG(99 , 99 , 99 ), "gray39" },
867 { RGB_TO_ULONG(99 , 99 , 99 ), "grey39" },
868 { RGB_TO_ULONG(102, 102, 102), "gray40" },
869 { RGB_TO_ULONG(102, 102, 102), "grey40" },
870 { RGB_TO_ULONG(105, 105, 105), "gray41" },
871 { RGB_TO_ULONG(105, 105, 105), "grey41" },
872 { RGB_TO_ULONG(107, 107, 107), "gray42" },
873 { RGB_TO_ULONG(107, 107, 107), "grey42" },
874 { RGB_TO_ULONG(110, 110, 110), "gray43" },
875 { RGB_TO_ULONG(110, 110, 110), "grey43" },
876 { RGB_TO_ULONG(112, 112, 112), "gray44" },
877 { RGB_TO_ULONG(112, 112, 112), "grey44" },
878 { RGB_TO_ULONG(115, 115, 115), "gray45" },
879 { RGB_TO_ULONG(115, 115, 115), "grey45" },
880 { RGB_TO_ULONG(117, 117, 117), "gray46" },
881 { RGB_TO_ULONG(117, 117, 117), "grey46" },
882 { RGB_TO_ULONG(120, 120, 120), "gray47" },
883 { RGB_TO_ULONG(120, 120, 120), "grey47" },
884 { RGB_TO_ULONG(122, 122, 122), "gray48" },
885 { RGB_TO_ULONG(122, 122, 122), "grey48" },
886 { RGB_TO_ULONG(125, 125, 125), "gray49" },
887 { RGB_TO_ULONG(125, 125, 125), "grey49" },
888 { RGB_TO_ULONG(127, 127, 127), "gray50" },
889 { RGB_TO_ULONG(127, 127, 127), "grey50" },
890 { RGB_TO_ULONG(130, 130, 130), "gray51" },
891 { RGB_TO_ULONG(130, 130, 130), "grey51" },
892 { RGB_TO_ULONG(133, 133, 133), "gray52" },
893 { RGB_TO_ULONG(133, 133, 133), "grey52" },
894 { RGB_TO_ULONG(135, 135, 135), "gray53" },
895 { RGB_TO_ULONG(135, 135, 135), "grey53" },
896 { RGB_TO_ULONG(138, 138, 138), "gray54" },
897 { RGB_TO_ULONG(138, 138, 138), "grey54" },
898 { RGB_TO_ULONG(140, 140, 140), "gray55" },
899 { RGB_TO_ULONG(140, 140, 140), "grey55" },
900 { RGB_TO_ULONG(143, 143, 143), "gray56" },
901 { RGB_TO_ULONG(143, 143, 143), "grey56" },
902 { RGB_TO_ULONG(145, 145, 145), "gray57" },
903 { RGB_TO_ULONG(145, 145, 145), "grey57" },
904 { RGB_TO_ULONG(148, 148, 148), "gray58" },
905 { RGB_TO_ULONG(148, 148, 148), "grey58" },
906 { RGB_TO_ULONG(150, 150, 150), "gray59" },
907 { RGB_TO_ULONG(150, 150, 150), "grey59" },
908 { RGB_TO_ULONG(153, 153, 153), "gray60" },
909 { RGB_TO_ULONG(153, 153, 153), "grey60" },
910 { RGB_TO_ULONG(156, 156, 156), "gray61" },
911 { RGB_TO_ULONG(156, 156, 156), "grey61" },
912 { RGB_TO_ULONG(158, 158, 158), "gray62" },
913 { RGB_TO_ULONG(158, 158, 158), "grey62" },
914 { RGB_TO_ULONG(161, 161, 161), "gray63" },
915 { RGB_TO_ULONG(161, 161, 161), "grey63" },
916 { RGB_TO_ULONG(163, 163, 163), "gray64" },
917 { RGB_TO_ULONG(163, 163, 163), "grey64" },
918 { RGB_TO_ULONG(166, 166, 166), "gray65" },
919 { RGB_TO_ULONG(166, 166, 166), "grey65" },
920 { RGB_TO_ULONG(168, 168, 168), "gray66" },
921 { RGB_TO_ULONG(168, 168, 168), "grey66" },
922 { RGB_TO_ULONG(171, 171, 171), "gray67" },
923 { RGB_TO_ULONG(171, 171, 171), "grey67" },
924 { RGB_TO_ULONG(173, 173, 173), "gray68" },
925 { RGB_TO_ULONG(173, 173, 173), "grey68" },
926 { RGB_TO_ULONG(176, 176, 176), "gray69" },
927 { RGB_TO_ULONG(176, 176, 176), "grey69" },
928 { RGB_TO_ULONG(179, 179, 179), "gray70" },
929 { RGB_TO_ULONG(179, 179, 179), "grey70" },
930 { RGB_TO_ULONG(181, 181, 181), "gray71" },
931 { RGB_TO_ULONG(181, 181, 181), "grey71" },
932 { RGB_TO_ULONG(184, 184, 184), "gray72" },
933 { RGB_TO_ULONG(184, 184, 184), "grey72" },
934 { RGB_TO_ULONG(186, 186, 186), "gray73" },
935 { RGB_TO_ULONG(186, 186, 186), "grey73" },
936 { RGB_TO_ULONG(189, 189, 189), "gray74" },
937 { RGB_TO_ULONG(189, 189, 189), "grey74" },
938 { RGB_TO_ULONG(191, 191, 191), "gray75" },
939 { RGB_TO_ULONG(191, 191, 191), "grey75" },
940 { RGB_TO_ULONG(194, 194, 194), "gray76" },
941 { RGB_TO_ULONG(194, 194, 194), "grey76" },
942 { RGB_TO_ULONG(196, 196, 196), "gray77" },
943 { RGB_TO_ULONG(196, 196, 196), "grey77" },
944 { RGB_TO_ULONG(199, 199, 199), "gray78" },
945 { RGB_TO_ULONG(199, 199, 199), "grey78" },
946 { RGB_TO_ULONG(201, 201, 201), "gray79" },
947 { RGB_TO_ULONG(201, 201, 201), "grey79" },
948 { RGB_TO_ULONG(204, 204, 204), "gray80" },
949 { RGB_TO_ULONG(204, 204, 204), "grey80" },
950 { RGB_TO_ULONG(207, 207, 207), "gray81" },
951 { RGB_TO_ULONG(207, 207, 207), "grey81" },
952 { RGB_TO_ULONG(209, 209, 209), "gray82" },
953 { RGB_TO_ULONG(209, 209, 209), "grey82" },
954 { RGB_TO_ULONG(212, 212, 212), "gray83" },
955 { RGB_TO_ULONG(212, 212, 212), "grey83" },
956 { RGB_TO_ULONG(214, 214, 214), "gray84" },
957 { RGB_TO_ULONG(214, 214, 214), "grey84" },
958 { RGB_TO_ULONG(217, 217, 217), "gray85" },
959 { RGB_TO_ULONG(217, 217, 217), "grey85" },
960 { RGB_TO_ULONG(219, 219, 219), "gray86" },
961 { RGB_TO_ULONG(219, 219, 219), "grey86" },
962 { RGB_TO_ULONG(222, 222, 222), "gray87" },
963 { RGB_TO_ULONG(222, 222, 222), "grey87" },
964 { RGB_TO_ULONG(224, 224, 224), "gray88" },
965 { RGB_TO_ULONG(224, 224, 224), "grey88" },
966 { RGB_TO_ULONG(227, 227, 227), "gray89" },
967 { RGB_TO_ULONG(227, 227, 227), "grey89" },
968 { RGB_TO_ULONG(229, 229, 229), "gray90" },
969 { RGB_TO_ULONG(229, 229, 229), "grey90" },
970 { RGB_TO_ULONG(232, 232, 232), "gray91" },
971 { RGB_TO_ULONG(232, 232, 232), "grey91" },
972 { RGB_TO_ULONG(235, 235, 235), "gray92" },
973 { RGB_TO_ULONG(235, 235, 235), "grey92" },
974 { RGB_TO_ULONG(237, 237, 237), "gray93" },
975 { RGB_TO_ULONG(237, 237, 237), "grey93" },
976 { RGB_TO_ULONG(240, 240, 240), "gray94" },
977 { RGB_TO_ULONG(240, 240, 240), "grey94" },
978 { RGB_TO_ULONG(242, 242, 242), "gray95" },
979 { RGB_TO_ULONG(242, 242, 242), "grey95" },
980 { RGB_TO_ULONG(245, 245, 245), "gray96" },
981 { RGB_TO_ULONG(245, 245, 245), "grey96" },
982 { RGB_TO_ULONG(247, 247, 247), "gray97" },
983 { RGB_TO_ULONG(247, 247, 247), "grey97" },
984 { RGB_TO_ULONG(250, 250, 250), "gray98" },
985 { RGB_TO_ULONG(250, 250, 250), "grey98" },
986 { RGB_TO_ULONG(252, 252, 252), "gray99" },
987 { RGB_TO_ULONG(252, 252, 252), "grey99" },
988 { RGB_TO_ULONG(255, 255, 255), "gray100" },
989 { RGB_TO_ULONG(255, 255, 255), "grey100" },
990 { RGB_TO_ULONG(169, 169, 169), "dark grey" },
991 { RGB_TO_ULONG(169, 169, 169), "DarkGrey" },
992 { RGB_TO_ULONG(169, 169, 169), "dark gray" },
993 { RGB_TO_ULONG(169, 169, 169), "DarkGray" },
994 { RGB_TO_ULONG(0 , 0 , 139), "dark blue" },
995 { RGB_TO_ULONG(0 , 0 , 139), "DarkBlue" },
996 { RGB_TO_ULONG(0 , 139, 139), "dark cyan" },
997 { RGB_TO_ULONG(0 , 139, 139), "DarkCyan" },
998 { RGB_TO_ULONG(139, 0 , 139), "dark magenta" },
999 { RGB_TO_ULONG(139, 0 , 139), "DarkMagenta" },
1000 { RGB_TO_ULONG(139, 0 , 0 ), "dark red" },
1001 { RGB_TO_ULONG(139, 0 , 0 ), "DarkRed" },
1002 { RGB_TO_ULONG(144, 238, 144), "light green" },
1003 { RGB_TO_ULONG(144, 238, 144), "LightGreen" }
1007 mac_color_map_lookup (colorname
)
1008 const char *colorname
;
1010 Lisp_Object ret
= Qnil
;
1015 for (i
= 0; i
< sizeof (mac_color_map
) / sizeof (mac_color_map
[0]); i
++)
1016 if (xstricmp (colorname
, mac_color_map
[i
].name
) == 0)
1018 ret
= make_number (mac_color_map
[i
].color
);
1028 x_to_mac_color (colorname
)
1031 register Lisp_Object ret
= Qnil
;
1035 if (colorname
[0] == '#')
1037 /* Could be an old-style RGB Device specification. */
1040 color
= colorname
+ 1;
1042 size
= strlen(color
);
1043 if (size
== 3 || size
== 6 || size
== 9 || size
== 12)
1045 unsigned long colorval
;
1051 for (i
= 0; i
< 3; i
++)
1055 unsigned long value
;
1057 /* The check for 'x' in the following conditional takes into
1058 account the fact that strtol allows a "0x" in front of
1059 our numbers, and we don't. */
1060 if (!isxdigit(color
[0]) || color
[1] == 'x')
1064 value
= strtoul(color
, &end
, 16);
1066 if (errno
== ERANGE
|| end
- color
!= size
)
1071 value
= value
* 0x10;
1082 colorval
|= (value
<< pos
);
1087 return make_number (colorval
);
1093 else if (strnicmp(colorname
, "rgb:", 4) == 0)
1096 unsigned long colorval
;
1101 color
= colorname
+ 4;
1102 for (i
= 0; i
< 3; i
++)
1105 unsigned long value
;
1107 /* The check for 'x' in the following conditional takes into
1108 account the fact that strtol allows a "0x" in front of
1109 our numbers, and we don't. */
1110 if (!isxdigit(color
[0]) || color
[1] == 'x')
1112 value
= strtoul(color
, &end
, 16);
1113 if (errno
== ERANGE
)
1115 switch (end
- color
)
1118 value
= value
* 0x10 + value
;
1131 if (value
== ULONG_MAX
)
1133 colorval
|= (value
<< pos
);
1140 return make_number (colorval
);
1147 else if (strnicmp(colorname
, "rgbi:", 5) == 0)
1149 /* This is an RGB Intensity specification. */
1151 unsigned long colorval
;
1156 color
= colorname
+ 5;
1157 for (i
= 0; i
< 3; i
++)
1163 value
= strtod(color
, &end
);
1164 if (errno
== ERANGE
)
1166 if (value
< 0.0 || value
> 1.0)
1168 val
= (unsigned long)(0x100 * value
);
1169 /* We used 0x100 instead of 0xFF to give a continuous
1170 range between 0.0 and 1.0 inclusive. The next statement
1171 fixes the 1.0 case. */
1174 colorval
|= (val
<< pos
);
1181 return make_number (colorval
);
1189 ret
= mac_color_map_lookup (colorname
);
1195 /* Gamma-correct COLOR on frame F. */
1198 gamma_correct (f
, color
)
1200 unsigned long *color
;
1204 unsigned long red
, green
, blue
;
1206 red
= pow (RED_FROM_ULONG (*color
) / 255.0, f
->gamma
) * 255.0 + 0.5;
1207 green
= pow (GREEN_FROM_ULONG (*color
) / 255.0, f
->gamma
) * 255.0 + 0.5;
1208 blue
= pow (BLUE_FROM_ULONG (*color
) / 255.0, f
->gamma
) * 255.0 + 0.5;
1209 *color
= RGB_TO_ULONG (red
, green
, blue
);
1213 /* Decide if color named COLOR is valid for the display associated
1214 with the selected frame; if so, return the rgb values in COLOR_DEF.
1215 If ALLOC is nonzero, allocate a new colormap cell. */
1218 mac_defined_color (f
, color
, color_def
, alloc
)
1224 register Lisp_Object tem
;
1225 unsigned long mac_color_ref
;
1227 tem
= x_to_mac_color (color
);
1233 /* Apply gamma correction. */
1234 mac_color_ref
= XUINT (tem
);
1235 gamma_correct (f
, &mac_color_ref
);
1236 XSETINT (tem
, mac_color_ref
);
1239 color_def
->pixel
= mac_color_ref
;
1240 color_def
->red
= RED16_FROM_ULONG (mac_color_ref
);
1241 color_def
->green
= GREEN16_FROM_ULONG (mac_color_ref
);
1242 color_def
->blue
= BLUE16_FROM_ULONG (mac_color_ref
);
1252 /* Given a string ARG naming a color, compute a pixel value from it
1253 suitable for screen F.
1254 If F is not a color screen, return DEF (default) regardless of what
1258 x_decode_color (f
, arg
, def
)
1267 if (strcmp (SDATA (arg
), "black") == 0)
1268 return BLACK_PIX_DEFAULT (f
);
1269 else if (strcmp (SDATA (arg
), "white") == 0)
1270 return WHITE_PIX_DEFAULT (f
);
1273 if (FRAME_MAC_DISPLAY_INFO (f
)->n_planes
) == 1)
1277 if (mac_defined_color (f
, SDATA (arg
), &cdef
, 1))
1280 /* defined_color failed; return an ultimate default. */
1284 /* Functions called only from `x_set_frame_param'
1285 to set individual parameters.
1287 If FRAME_MAC_WINDOW (f) is 0,
1288 the frame is being created and its window does not exist yet.
1289 In that case, just record the parameter's new value
1290 in the standard place; do not attempt to change the window. */
1293 x_set_foreground_color (f
, arg
, oldval
)
1295 Lisp_Object arg
, oldval
;
1297 struct mac_output
*mac
= f
->output_data
.mac
;
1298 unsigned long fg
, old_fg
;
1300 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1301 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
1302 FRAME_FOREGROUND_PIXEL (f
) = fg
;
1304 if (FRAME_MAC_WINDOW (f
) != 0)
1306 Display
*dpy
= FRAME_MAC_DISPLAY (f
);
1309 XSetForeground (dpy
, mac
->normal_gc
, fg
);
1310 XSetBackground (dpy
, mac
->reverse_gc
, fg
);
1312 if (mac
->cursor_pixel
== old_fg
)
1314 unload_color (f
, mac
->cursor_pixel
);
1315 mac
->cursor_pixel
= fg
;
1316 XSetBackground (dpy
, mac
->cursor_gc
, mac
->cursor_pixel
);
1321 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
1323 if (FRAME_VISIBLE_P (f
))
1327 unload_color (f
, old_fg
);
1331 x_set_background_color (f
, arg
, oldval
)
1333 Lisp_Object arg
, oldval
;
1335 struct mac_output
*mac
= f
->output_data
.mac
;
1338 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
1339 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
1340 FRAME_BACKGROUND_PIXEL (f
) = bg
;
1342 if (FRAME_MAC_WINDOW (f
) != 0)
1344 Display
*dpy
= FRAME_MAC_DISPLAY (f
);
1347 XSetBackground (dpy
, mac
->normal_gc
, bg
);
1348 XSetForeground (dpy
, mac
->reverse_gc
, bg
);
1349 XSetWindowBackground (dpy
, FRAME_MAC_WINDOW (f
), bg
);
1350 XSetForeground (dpy
, mac
->cursor_gc
, bg
);
1353 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
1355 if (FRAME_VISIBLE_P (f
))
1361 x_set_mouse_color (f
, arg
, oldval
)
1363 Lisp_Object arg
, oldval
;
1365 struct x_output
*x
= f
->output_data
.x
;
1366 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
1367 Cursor hourglass_cursor
, horizontal_drag_cursor
;
1368 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1369 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
1371 /* Don't let pointers be invisible. */
1372 if (mask_color
== pixel
)
1373 pixel
= FRAME_FOREGROUND_PIXEL (f
);
1375 f
->output_data
.mac
->mouse_pixel
= pixel
;
1377 if (!NILP (Vx_pointer_shape
))
1379 CHECK_NUMBER (Vx_pointer_shape
);
1380 cursor
= XINT (Vx_pointer_shape
);
1383 cursor
= kThemeIBeamCursor
;
1385 if (!NILP (Vx_nontext_pointer_shape
))
1387 CHECK_NUMBER (Vx_nontext_pointer_shape
);
1388 nontext_cursor
= XINT (Vx_nontext_pointer_shape
);
1391 nontext_cursor
= kThemeArrowCursor
;
1393 if (!NILP (Vx_hourglass_pointer_shape
))
1395 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
1396 hourglass_cursor
= XINT (Vx_hourglass_pointer_shape
);
1399 hourglass_cursor
= kThemeWatchCursor
;
1401 if (!NILP (Vx_mode_pointer_shape
))
1403 CHECK_NUMBER (Vx_mode_pointer_shape
);
1404 mode_cursor
= XINT (Vx_mode_pointer_shape
);
1407 mode_cursor
= kThemeArrowCursor
;
1409 if (!NILP (Vx_sensitive_text_pointer_shape
))
1411 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
1412 hand_cursor
= XINT (Vx_sensitive_text_pointer_shape
);
1415 hand_cursor
= kThemePointingHandCursor
;
1417 if (!NILP (Vx_window_horizontal_drag_shape
))
1419 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1420 horizontal_drag_cursor
= XINT (Vx_window_horizontal_drag_shape
);
1423 horizontal_drag_cursor
= kThemeResizeLeftRightCursor
;
1425 #if 0 /* MAC_TODO: cursor color changes */
1427 XColor fore_color
, back_color
;
1429 fore_color
.pixel
= f
->output_data
.mac
->mouse_pixel
;
1430 x_query_color (f
, &fore_color
);
1431 back_color
.pixel
= mask_color
;
1432 x_query_color (f
, &back_color
);
1434 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1435 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1436 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1437 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1438 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1439 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1445 if (FRAME_MAC_WINDOW (f
) != 0)
1446 FRAME_TERMINAL (f
)->rif
->define_frame_cursor (f
, cursor
);
1448 f
->output_data
.mac
->text_cursor
= cursor
;
1449 f
->output_data
.mac
->nontext_cursor
= nontext_cursor
;
1450 f
->output_data
.mac
->hourglass_cursor
= hourglass_cursor
;
1451 f
->output_data
.mac
->modeline_cursor
= mode_cursor
;
1452 f
->output_data
.mac
->hand_cursor
= hand_cursor
;
1453 f
->output_data
.mac
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1457 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1461 x_set_cursor_color (f
, arg
, oldval
)
1463 Lisp_Object arg
, oldval
;
1465 unsigned long fore_pixel
, pixel
;
1467 if (!NILP (Vx_cursor_fore_pixel
))
1468 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1469 WHITE_PIX_DEFAULT (f
));
1471 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1473 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1475 /* Make sure that the cursor color differs from the background color. */
1476 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1478 pixel
= f
->output_data
.mac
->mouse_pixel
;
1479 if (pixel
== fore_pixel
)
1480 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1483 f
->output_data
.mac
->cursor_foreground_pixel
= fore_pixel
;
1484 f
->output_data
.mac
->cursor_pixel
= pixel
;
1486 if (FRAME_MAC_WINDOW (f
) != 0)
1489 /* Update frame's cursor_gc. */
1490 XSetBackground (FRAME_MAC_DISPLAY (f
),
1491 f
->output_data
.mac
->cursor_gc
, pixel
);
1492 XSetForeground (FRAME_MAC_DISPLAY (f
),
1493 f
->output_data
.mac
->cursor_gc
, fore_pixel
);
1496 if (FRAME_VISIBLE_P (f
))
1498 x_update_cursor (f
, 0);
1499 x_update_cursor (f
, 1);
1503 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1506 /* Set the border-color of frame F to pixel value PIX.
1507 Note that this does not fully take effect if done before
1511 x_set_border_pixel (f
, pix
)
1516 f
->output_data
.mac
->border_pixel
= pix
;
1518 if (FRAME_MAC_WINDOW (f
) != 0 && f
->border_width
> 0)
1520 if (FRAME_VISIBLE_P (f
))
1525 /* Set the border-color of frame F to value described by ARG.
1526 ARG can be a string naming a color.
1527 The border-color is used for the border that is drawn by the server.
1528 Note that this does not fully take effect if done before
1529 F has a window; it must be redone when the window is created. */
1532 x_set_border_color (f
, arg
, oldval
)
1534 Lisp_Object arg
, oldval
;
1539 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1540 x_set_border_pixel (f
, pix
);
1541 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1546 x_set_cursor_type (f
, arg
, oldval
)
1548 Lisp_Object arg
, oldval
;
1550 set_frame_cursor_types (f
, arg
);
1552 /* Make sure the cursor gets redrawn. */
1553 cursor_type_changed
= 1;
1556 #if 0 /* MAC_TODO: really no icon for Mac */
1558 x_set_icon_type (f
, arg
, oldval
)
1560 Lisp_Object arg
, oldval
;
1564 if (NILP (arg
) && NILP (oldval
))
1567 if (STRINGP (arg
) && STRINGP (oldval
)
1568 && EQ (Fstring_equal (oldval
, arg
), Qt
))
1571 if (SYMBOLP (arg
) && SYMBOLP (oldval
) && EQ (arg
, oldval
))
1576 result
= x_bitmap_icon (f
, arg
);
1580 error ("No icon window available");
1585 #endif /* MAC_TODO */
1588 x_set_icon_name (f
, arg
, oldval
)
1590 Lisp_Object arg
, oldval
;
1596 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1599 else if (!NILP (arg
) || NILP (oldval
))
1604 #if 0 /* MAC_TODO */
1605 if (f
->output_data
.w32
->icon_bitmap
!= 0)
1610 result
= x_text_icon (f
,
1611 (char *) SDATA ((!NILP (f
->icon_name
)
1620 error ("No icon window available");
1623 /* If the window was unmapped (and its icon was mapped),
1624 the new icon is not mapped, so map the window in its stead. */
1625 if (FRAME_VISIBLE_P (f
))
1627 #ifdef USE_X_TOOLKIT
1628 XtPopup (f
->output_data
.w32
->widget
, XtGrabNone
);
1630 XMapWindow (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
));
1633 XFlush (FRAME_W32_DISPLAY (f
));
1635 #endif /* MAC_TODO */
1640 x_set_menu_bar_lines (f
, value
, oldval
)
1642 Lisp_Object value
, oldval
;
1644 /* Make sure we redisplay all windows in this frame. */
1645 windows_or_buffers_changed
++;
1647 FRAME_MENU_BAR_LINES (f
) = 0;
1648 /* The menu bar is always shown. */
1649 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1650 if (FRAME_MAC_P (f
) && f
->output_data
.mac
->menubar_widget
== 0)
1651 /* Make sure next redisplay shows the menu bar. */
1652 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1657 /* Set the number of lines used for the tool bar of frame F to VALUE.
1658 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1659 is the old number of tool bar lines. This function changes the
1660 height of all windows on frame F to match the new tool bar height.
1661 The frame's height doesn't change. */
1664 x_set_tool_bar_lines (f
, value
, oldval
)
1666 Lisp_Object value
, oldval
;
1668 int delta
, nlines
, root_height
;
1669 Lisp_Object root_window
;
1671 /* Treat tool bars like menu bars. */
1672 if (FRAME_MINIBUF_ONLY_P (f
))
1675 /* Use VALUE only if an integer >= 0. */
1676 if (INTEGERP (value
) && XINT (value
) >= 0)
1677 nlines
= XFASTINT (value
);
1681 /* Make sure we redisplay all windows in this frame. */
1682 ++windows_or_buffers_changed
;
1685 FRAME_TOOL_BAR_LINES (f
) = 0;
1688 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1689 if (FRAME_MAC_P (f
) && !IsWindowToolbarVisible (FRAME_MAC_WINDOW (f
)))
1690 /* Make sure next redisplay shows the tool bar. */
1691 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1695 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1696 free_frame_tool_bar (f
);
1697 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1703 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1705 /* Don't resize the tool-bar to more than we have room for. */
1706 root_window
= FRAME_ROOT_WINDOW (f
);
1707 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1708 if (root_height
- delta
< 1)
1710 delta
= root_height
- 1;
1711 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1714 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1715 change_window_heights (root_window
, delta
);
1718 /* We also have to make sure that the internal border at the top of
1719 the frame, below the menu bar or tool bar, is redrawn when the
1720 tool bar disappears. This is so because the internal border is
1721 below the tool bar if one is displayed, but is below the menu bar
1722 if there isn't a tool bar. The tool bar draws into the area
1723 below the menu bar. */
1724 if (FRAME_MAC_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1727 clear_current_matrices (f
);
1730 /* If the tool bar gets smaller, the internal border below it
1731 has to be cleared. It was formerly part of the display
1732 of the larger tool bar, and updating windows won't clear it. */
1735 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1736 int width
= FRAME_PIXEL_WIDTH (f
);
1737 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1740 mac_clear_area (f
, 0, y
, width
, height
);
1743 if (WINDOWP (f
->tool_bar_window
))
1744 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1750 /* Set the Mac window title to NAME for frame F. */
1753 x_set_name_internal (f
, name
)
1757 if (FRAME_MAC_WINDOW (f
))
1759 if (STRING_MULTIBYTE (name
))
1760 #if TARGET_API_MAC_CARBON
1761 name
= ENCODE_UTF_8 (name
);
1763 name
= ENCODE_SYSTEM (name
);
1769 #if TARGET_API_MAC_CARBON
1770 CFStringRef windowTitle
=
1771 cfstring_create_with_utf8_cstring (SDATA (name
));
1773 SetWindowTitleWithCFString (FRAME_MAC_WINDOW (f
), windowTitle
);
1774 CFRelease (windowTitle
);
1777 if (strlen (SDATA (name
)) < 255)
1779 strcpy (windowTitle
, SDATA (name
));
1780 c2pstr (windowTitle
);
1781 SetWTitle (FRAME_MAC_WINDOW (f
), windowTitle
);
1790 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1793 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1794 name; if NAME is a string, set F's name to NAME and set
1795 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1797 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1798 suggesting a new name, which lisp code should override; if
1799 F->explicit_name is set, ignore the new name; otherwise, set it. */
1802 x_set_name (f
, name
, explicit)
1807 /* Make sure that requests from lisp code override requests from
1808 Emacs redisplay code. */
1811 /* If we're switching from explicit to implicit, we had better
1812 update the mode lines and thereby update the title. */
1813 if (f
->explicit_name
&& NILP (name
))
1814 update_mode_lines
= 1;
1816 f
->explicit_name
= ! NILP (name
);
1818 else if (f
->explicit_name
)
1821 /* If NAME is nil, set the name to the mac_id_name. */
1824 /* Check for no change needed in this very common case
1825 before we do any consing. */
1826 if (!strcmp (FRAME_MAC_DISPLAY_INFO (f
)->mac_id_name
,
1829 name
= build_string (FRAME_MAC_DISPLAY_INFO (f
)->mac_id_name
);
1832 CHECK_STRING (name
);
1834 /* Don't change the name if it's already NAME. */
1835 if (! NILP (Fstring_equal (name
, f
->name
)))
1840 /* For setting the frame title, the title parameter should override
1841 the name parameter. */
1842 if (! NILP (f
->title
))
1845 x_set_name_internal (f
, name
);
1848 /* This function should be called when the user's lisp code has
1849 specified a name for the frame; the name will override any set by the
1852 x_explicitly_set_name (f
, arg
, oldval
)
1854 Lisp_Object arg
, oldval
;
1856 x_set_name (f
, arg
, 1);
1859 /* This function should be called by Emacs redisplay code to set the
1860 name; names set this way will never override names set by the user's
1863 x_implicitly_set_name (f
, arg
, oldval
)
1865 Lisp_Object arg
, oldval
;
1867 x_set_name (f
, arg
, 0);
1870 /* Change the title of frame F to NAME.
1871 If NAME is nil, use the frame name as the title. */
1874 x_set_title (f
, name
, old_name
)
1876 Lisp_Object name
, old_name
;
1878 /* Don't change the title if it's already NAME. */
1879 if (EQ (name
, f
->title
))
1882 update_mode_lines
= 1;
1889 CHECK_STRING (name
);
1891 x_set_name_internal (f
, name
);
1895 x_set_scroll_bar_default_width (f
)
1898 /* Imitate X without X Toolkit */
1900 int wid
= FRAME_COLUMN_WIDTH (f
);
1903 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = MAC_AQUA_VERTICAL_SCROLL_BAR_WIDTH
;
1904 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) +
1906 #else /* not MAC_OSX */
1907 /* Make the actual width at least 14 pixels and a multiple of a
1909 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1911 /* Use all of that space (aside from required margins) for the
1913 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1914 #endif /* not MAC_OSX */
1918 mac_set_font (f
, arg
, oldval
)
1920 Lisp_Object arg
, oldval
;
1922 x_set_font (f
, arg
, oldval
);
1923 #if USE_MAC_FONT_PANEL
1925 Lisp_Object focus_frame
= x_get_focus_frame (f
);
1927 if ((NILP (focus_frame
) && f
== SELECTED_FRAME ())
1928 || XFRAME (focus_frame
) == f
)
1931 mac_set_font_info_for_selection (f
, DEFAULT_FACE_ID
, 0);
1938 #if TARGET_API_MAC_CARBON
1940 mac_update_proxy_icon (f
)
1944 Lisp_Object file_name
=
1945 XBUFFER (XWINDOW (FRAME_SELECTED_WINDOW (f
))->buffer
)->filename
;
1946 Window w
= FRAME_MAC_WINDOW (f
);
1947 AliasHandle alias
= NULL
;
1951 err
= GetWindowProxyAlias (w
, &alias
);
1952 if (err
== errWindowDoesNotHaveProxy
&& !STRINGP (file_name
))
1955 if (STRINGP (file_name
))
1959 FSRef fref
, fref_proxy
;
1961 FSSpec fss
, fss_proxy
;
1964 Lisp_Object encoded_file_name
= ENCODE_FILE (file_name
);
1967 err
= AECoercePtr (TYPE_FILE_NAME
, SDATA (encoded_file_name
),
1968 SBYTES (encoded_file_name
), typeFSRef
, &desc
);
1970 SetPortWindowPort (w
);
1971 err
= AECoercePtr (TYPE_FILE_NAME
, SDATA (encoded_file_name
),
1972 SBYTES (encoded_file_name
), typeFSS
, &desc
);
1977 err
= AEGetDescData (&desc
, &fref
, sizeof (FSRef
));
1979 err
= AEGetDescData (&desc
, &fss
, sizeof (FSSpec
));
1981 AEDisposeDesc (&desc
);
1987 /* (FS)ResolveAlias never sets `changed' to true if
1988 `alias' is minimal. */
1990 err
= FSResolveAlias (NULL
, alias
, &fref_proxy
, &changed
);
1992 err
= FSCompareFSRefs (&fref
, &fref_proxy
);
1994 err
= ResolveAlias (NULL
, alias
, &fss_proxy
, &changed
);
1996 err
= !(fss
.vRefNum
== fss_proxy
.vRefNum
1997 && fss
.parID
== fss_proxy
.parID
1998 && EqualString (fss
.name
, fss_proxy
.name
,
2002 if (err
!= noErr
|| alias
== NULL
)
2005 DisposeHandle ((Handle
) alias
);
2007 err
= FSNewAliasMinimal (&fref
, &alias
);
2009 err
= NewAliasMinimal (&fss
, &alias
);
2016 err
= SetWindowProxyAlias (w
, alias
);
2020 DisposeHandle ((Handle
) alias
);
2022 if (err
!= noErr
|| !STRINGP (file_name
))
2023 RemoveWindowProxy (w
);
2031 mac_update_title_bar (f
, save_match_data
)
2033 int save_match_data
;
2035 #if TARGET_API_MAC_CARBON
2039 if (!FRAME_MAC_P (f
))
2042 w
= XWINDOW (FRAME_SELECTED_WINDOW (f
));
2043 modified_p
= (BUF_SAVE_MODIFF (XBUFFER (w
->buffer
))
2044 < BUF_MODIFF (XBUFFER (w
->buffer
)));
2045 if (windows_or_buffers_changed
2046 /* Minibuffer modification status shown in the close button is
2048 || (!MINI_WINDOW_P (w
)
2049 && (modified_p
!= !NILP (w
->last_had_star
))))
2051 SetWindowModified (FRAME_MAC_WINDOW (f
),
2052 !MINI_WINDOW_P (w
) && modified_p
);
2053 mac_update_proxy_icon (f
);
2059 /* Subroutines of creating a frame. */
2061 /* Retrieve the string resource specified by NAME with CLASS from
2064 The return value points to the contents of a Lisp string. So it
2065 will not be valid after the next GC where string compaction will
2069 x_get_string_resource (rdb
, name
, class)
2073 Lisp_Object value
= xrm_get_resource (rdb
, name
, class);
2075 if (STRINGP (value
))
2076 return SDATA (value
);
2081 /* Return the value of parameter PARAM.
2083 First search ALIST, then Vdefault_frame_alist, then the X defaults
2084 database, using ATTRIBUTE as the attribute name and CLASS as its class.
2086 Convert the resource to the type specified by desired_type.
2088 If no default is specified, return Qunbound. If you call
2089 mac_get_arg, make sure you deal with Qunbound in a reasonable way,
2090 and don't let it get stored in any Lisp-visible variables! */
2093 mac_get_arg (alist
, param
, attribute
, class, type
)
2094 Lisp_Object alist
, param
;
2097 enum resource_types type
;
2099 return x_get_arg (check_x_display_info (Qnil
),
2100 alist
, param
, attribute
, class, type
);
2104 /* XParseGeometry copied from w32xfns.c */
2107 * XParseGeometry parses strings of the form
2108 * "=<width>x<height>{+-}<xoffset>{+-}<yoffset>", where
2109 * width, height, xoffset, and yoffset are unsigned integers.
2110 * Example: "=80x24+300-49"
2111 * The equal sign is optional.
2112 * It returns a bitmask that indicates which of the four values
2113 * were actually found in the string. For each value found,
2114 * the corresponding argument is updated; for each value
2115 * not found, the corresponding argument is left unchanged.
2119 read_integer (string
, NextString
)
2120 register char *string
;
2123 register int Result
= 0;
2128 else if (*string
== '-')
2133 for (; (*string
>= '0') && (*string
<= '9'); string
++)
2135 Result
= (Result
* 10) + (*string
- '0');
2137 *NextString
= string
;
2145 XParseGeometry (string
, x
, y
, width
, height
)
2148 unsigned int *width
, *height
; /* RETURN */
2151 register char *strind
;
2152 unsigned int tempWidth
, tempHeight
;
2154 char *nextCharacter
;
2156 if ((string
== NULL
) || (*string
== '\0')) return (mask
);
2158 string
++; /* ignore possible '=' at beg of geometry spec */
2160 strind
= (char *)string
;
2161 if (*strind
!= '+' && *strind
!= '-' && *strind
!= 'x')
2163 tempWidth
= read_integer (strind
, &nextCharacter
);
2164 if (strind
== nextCharacter
)
2166 strind
= nextCharacter
;
2170 if (*strind
== 'x' || *strind
== 'X')
2173 tempHeight
= read_integer (strind
, &nextCharacter
);
2174 if (strind
== nextCharacter
)
2176 strind
= nextCharacter
;
2177 mask
|= HeightValue
;
2180 if ((*strind
== '+') || (*strind
== '-'))
2185 tempX
= -read_integer (strind
, &nextCharacter
);
2186 if (strind
== nextCharacter
)
2188 strind
= nextCharacter
;
2195 tempX
= read_integer (strind
, &nextCharacter
);
2196 if (strind
== nextCharacter
)
2198 strind
= nextCharacter
;
2201 if ((*strind
== '+') || (*strind
== '-'))
2206 tempY
= -read_integer (strind
, &nextCharacter
);
2207 if (strind
== nextCharacter
)
2209 strind
= nextCharacter
;
2216 tempY
= read_integer (strind
, &nextCharacter
);
2217 if (strind
== nextCharacter
)
2219 strind
= nextCharacter
;
2225 /* If strind isn't at the end of the string the it's an invalid
2226 geometry specification. */
2228 if (*strind
!= '\0') return (0);
2234 if (mask
& WidthValue
)
2236 if (mask
& HeightValue
)
2237 *height
= tempHeight
;
2242 /* Create and set up the Mac window for frame F. */
2245 mac_window (f
, window_prompting
, minibuffer_only
)
2247 long window_prompting
;
2248 int minibuffer_only
;
2254 SetRect (&r
, f
->left_pos
, f
->top_pos
,
2255 f
->left_pos
+ FRAME_PIXEL_WIDTH (f
),
2256 f
->top_pos
+ FRAME_PIXEL_HEIGHT (f
));
2257 #if TARGET_API_MAC_CARBON
2258 CreateNewWindow (kDocumentWindowClass
,
2259 kWindowStandardDocumentAttributes
2261 | kWindowToolbarButtonAttribute
2263 , &r
, &FRAME_MAC_WINDOW (f
));
2264 if (FRAME_MAC_WINDOW (f
))
2266 SetWRefCon (FRAME_MAC_WINDOW (f
), (long) f
->output_data
.mac
);
2267 if (install_window_handler (FRAME_MAC_WINDOW (f
)) != noErr
)
2269 DisposeWindow (FRAME_MAC_WINDOW (f
));
2270 FRAME_MAC_WINDOW (f
) = NULL
;
2273 #else /* !TARGET_API_MAC_CARBON */
2274 FRAME_MAC_WINDOW (f
)
2275 = NewCWindow (NULL
, &r
, "\p", false, zoomDocProc
,
2276 (WindowRef
) -1, 1, (long) f
->output_data
.mac
);
2277 #endif /* !TARGET_API_MAC_CARBON */
2278 /* so that update events can find this mac_output struct */
2279 f
->output_data
.mac
->mFP
= f
; /* point back to emacs frame */
2282 if (FRAME_MAC_WINDOW (f
))
2284 ControlRef root_control
;
2286 if (CreateRootControl (FRAME_MAC_WINDOW (f
), &root_control
) != noErr
)
2288 DisposeWindow (FRAME_MAC_WINDOW (f
));
2289 FRAME_MAC_WINDOW (f
) = NULL
;
2293 if (FRAME_MAC_WINDOW (f
))
2294 XSetWindowBackground (FRAME_MAC_DISPLAY(f
), FRAME_MAC_WINDOW (f
),
2295 FRAME_BACKGROUND_PIXEL (f
));
2298 /* At the moment, the size of the tool bar is not yet known. We
2299 record the gravity value of the newly created window and use it
2300 to adjust the position of the window (especially for a negative
2301 specification of its vertical position) when the tool bar is
2302 first redisplayed. */
2303 if (FRAME_EXTERNAL_TOOL_BAR (f
))
2304 f
->output_data
.mac
->toolbar_win_gravity
= f
->win_gravity
;
2307 validate_x_resource_name ();
2309 /* x_set_name normally ignores requests to set the name if the
2310 requested name is the same as the current name. This is the one
2311 place where that assumption isn't correct; f->name is set, but
2312 the server hasn't been told. */
2315 int explicit = f
->explicit_name
;
2317 f
->explicit_name
= 0;
2320 x_set_name (f
, name
, explicit);
2325 if (FRAME_MAC_WINDOW (f
) == 0)
2326 error ("Unable to create window");
2329 /* Handle the icon stuff for this window. Perhaps later we might
2330 want an x_set_icon_position which can be called interactively as
2338 Lisp_Object icon_x
, icon_y
;
2340 /* Set the position of the icon. Note that Windows 95 groups all
2341 icons in the tray. */
2342 icon_x
= mac_get_arg (parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2343 icon_y
= mac_get_arg (parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2344 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2346 CHECK_NUMBER (icon_x
);
2347 CHECK_NUMBER (icon_y
);
2349 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2350 error ("Both left and top icon corners of icon must be specified");
2354 if (! EQ (icon_x
, Qunbound
))
2355 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2358 /* Start up iconic or window? */
2359 x_wm_set_window_state
2360 (f
, (EQ (w32_get_arg (parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
), Qicon
)
2364 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2377 XGCValues gc_values
;
2381 /* Create the GCs of this frame.
2382 Note that many default values are used. */
2385 gc_values
.font
= FRAME_FONT (f
);
2386 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2387 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2388 f
->output_data
.mac
->normal_gc
= XCreateGC (FRAME_MAC_DISPLAY (f
),
2389 FRAME_MAC_WINDOW (f
),
2390 GCFont
| GCForeground
| GCBackground
,
2393 /* Reverse video style. */
2394 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2395 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2396 f
->output_data
.mac
->reverse_gc
= XCreateGC (FRAME_MAC_DISPLAY (f
),
2397 FRAME_MAC_WINDOW (f
),
2398 GCFont
| GCForeground
| GCBackground
,
2401 /* Cursor has cursor-color background, background-color foreground. */
2402 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2403 gc_values
.background
= f
->output_data
.mac
->cursor_pixel
;
2404 f
->output_data
.mac
->cursor_gc
= XCreateGC (FRAME_MAC_DISPLAY (f
),
2405 FRAME_MAC_WINDOW (f
),
2406 GCFont
| GCForeground
| GCBackground
,
2410 f
->output_data
.mac
->white_relief
.gc
= 0;
2411 f
->output_data
.mac
->black_relief
.gc
= 0;
2414 /* Create the gray border tile used when the pointer is not in
2415 the frame. Since this depends on the frame's pixel values,
2416 this must be done on a per-frame basis. */
2417 f
->output_data
.x
->border_tile
2418 = (XCreatePixmapFromBitmapData
2419 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2420 gray_bits
, gray_width
, gray_height
,
2421 FRAME_FOREGROUND_PIXEL (f
),
2422 FRAME_BACKGROUND_PIXEL (f
),
2423 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2430 /* Free what was was allocated in x_make_gc. */
2436 Display
*dpy
= FRAME_MAC_DISPLAY (f
);
2440 if (f
->output_data
.mac
->normal_gc
)
2442 XFreeGC (dpy
, f
->output_data
.mac
->normal_gc
);
2443 f
->output_data
.mac
->normal_gc
= 0;
2446 if (f
->output_data
.mac
->reverse_gc
)
2448 XFreeGC (dpy
, f
->output_data
.mac
->reverse_gc
);
2449 f
->output_data
.mac
->reverse_gc
= 0;
2452 if (f
->output_data
.mac
->cursor_gc
)
2454 XFreeGC (dpy
, f
->output_data
.mac
->cursor_gc
);
2455 f
->output_data
.mac
->cursor_gc
= 0;
2459 if (f
->output_data
.mac
->border_tile
)
2461 XFreePixmap (dpy
, f
->output_data
.mac
->border_tile
);
2462 f
->output_data
.mac
->border_tile
= 0;
2466 if (f
->output_data
.mac
->white_relief
.gc
)
2468 XFreeGC (dpy
, f
->output_data
.mac
->white_relief
.gc
);
2469 f
->output_data
.mac
->white_relief
.gc
= 0;
2472 if (f
->output_data
.mac
->black_relief
.gc
)
2474 XFreeGC (dpy
, f
->output_data
.mac
->black_relief
.gc
);
2475 f
->output_data
.mac
->black_relief
.gc
= 0;
2482 /* Handler for signals raised during x_create_frame and
2483 x_create_top_frame. FRAME is the frame which is partially
2487 unwind_create_frame (frame
)
2490 struct frame
*f
= XFRAME (frame
);
2492 /* If frame is ``official'', nothing to do. */
2493 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2496 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2499 x_free_frame_resources (f
);
2502 /* Check that reference counts are indeed correct. */
2503 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2504 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2513 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2515 doc
: /* Make a new window, which is called a "frame" in Emacs terms.
2516 Returns an Emacs frame object.
2517 PARAMETERS is an alist of frame parameters.
2518 If the parameters specify that the frame should not have a minibuffer,
2519 and do not specify a specific minibuffer window to use,
2520 then `default-minibuffer-frame' must be a frame whose minibuffer can
2521 be shared by the new frame.
2523 This function is an internal primitive--use `make-frame' instead. */)
2525 Lisp_Object parameters
;
2528 Lisp_Object frame
, tem
;
2530 int minibuffer_only
= 0;
2531 long window_prompting
= 0;
2533 int count
= SPECPDL_INDEX ();
2534 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
2535 Lisp_Object display
;
2536 struct mac_display_info
*dpyinfo
= NULL
;
2542 /* Use this general default value to start with
2543 until we know if this frame has a specified name. */
2544 Vx_resource_name
= Vinvocation_name
;
2546 display
= mac_get_arg (parameters
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
2547 if (EQ (display
, Qunbound
))
2549 dpyinfo
= check_x_display_info (display
);
2551 kb
= dpyinfo
->terminal
->kboard
;
2553 kb
= &the_only_kboard
;
2556 name
= mac_get_arg (parameters
, Qname
, "name", "Name", RES_TYPE_STRING
);
2558 && ! EQ (name
, Qunbound
)
2560 error ("Invalid frame name--not a string or nil");
2563 Vx_resource_name
= name
;
2565 /* See if parent window is specified. */
2566 parent
= mac_get_arg (parameters
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
2567 if (EQ (parent
, Qunbound
))
2569 if (! NILP (parent
))
2570 CHECK_NUMBER (parent
);
2572 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
2573 /* No need to protect DISPLAY because that's not used after passing
2574 it to make_frame_without_minibuffer. */
2576 GCPRO4 (parameters
, parent
, name
, frame
);
2577 tem
= mac_get_arg (parameters
, Qminibuffer
, "minibuffer", "Minibuffer",
2579 if (EQ (tem
, Qnone
) || NILP (tem
))
2580 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
2581 else if (EQ (tem
, Qonly
))
2583 f
= make_minibuffer_frame ();
2584 minibuffer_only
= 1;
2586 else if (WINDOWP (tem
))
2587 f
= make_frame_without_minibuffer (tem
, kb
, display
);
2591 XSETFRAME (frame
, f
);
2593 /* Note that X Windows does support scroll bars. */
2594 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
2596 f
->terminal
= dpyinfo
->terminal
;
2597 f
->terminal
->reference_count
++;
2599 f
->output_method
= output_mac
;
2600 f
->output_data
.mac
= (struct mac_output
*) xmalloc (sizeof (struct mac_output
));
2601 bzero (f
->output_data
.mac
, sizeof (struct mac_output
));
2602 FRAME_FONTSET (f
) = -1;
2603 record_unwind_protect (unwind_create_frame
, frame
);
2606 = mac_get_arg (parameters
, Qicon_name
, "iconName", "Title", RES_TYPE_STRING
);
2607 if (! STRINGP (f
->icon_name
))
2608 f
->icon_name
= Qnil
;
2610 /* XXX Is this needed? */
2611 /*FRAME_MAC_DISPLAY_INFO (f) = dpyinfo;*/
2613 /* With FRAME_MAC_DISPLAY_INFO set up, this unwind-protect is safe. */
2615 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
2616 dpyinfo_refcount
= dpyinfo
->reference_count
;
2617 #endif /* GLYPH_DEBUG */
2619 FRAME_KBOARD (f
) = kb
;
2622 /* Specify the parent under which to make this window. */
2626 f
->output_data
.mac
->parent_desc
= (Window
) XFASTINT (parent
);
2627 f
->output_data
.mac
->explicit_parent
= 1;
2631 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
2632 f
->output_data
.mac
->explicit_parent
= 0;
2635 /* Set the name; the functions to which we pass f expect the name to
2637 if (EQ (name
, Qunbound
) || NILP (name
))
2639 f
->name
= build_string (dpyinfo
->mac_id_name
);
2640 f
->explicit_name
= 0;
2645 f
->explicit_name
= 1;
2646 /* use the frame's title when getting resources for this frame. */
2647 specbind (Qx_resource_name
, name
);
2650 /* Extract the window parameters from the supplied values
2651 that are needed to determine window geometry. */
2655 font
= mac_get_arg (parameters
, Qfont
, "font", "Font", RES_TYPE_STRING
);
2658 /* First, try whatever font the caller has specified. */
2661 tem
= Fquery_fontset (font
, Qnil
);
2663 font
= x_new_fontset (f
, SDATA (tem
));
2665 font
= x_new_font (f
, SDATA (font
));
2667 /* Try out a font which we hope has bold and italic variations. */
2669 if (! STRINGP (font
))
2670 font
= x_new_font (f
, "-*-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1");
2672 if (! STRINGP (font
))
2673 font
= x_new_font (f
, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1");
2674 /* If those didn't work, look for something which will at least work. */
2675 if (! STRINGP (font
))
2676 font
= x_new_fontset (f
, "fontset-standard");
2677 if (! STRINGP (font
))
2678 font
= x_new_font (f
, "-*-monaco-*-12-*-mac-roman");
2679 if (! STRINGP (font
))
2680 font
= x_new_font (f
, "-*-courier-*-10-*-mac-roman");
2681 if (! STRINGP (font
))
2682 error ("Cannot find any usable font");
2685 x_default_parameter (f
, parameters
, Qfont
, font
,
2686 "font", "Font", RES_TYPE_STRING
);
2689 /* XXX Shouldn't this be borderWidth, not borderwidth ?*/
2690 x_default_parameter (f
, parameters
, Qborder_width
, make_number (0),
2691 "borderwidth", "BorderWidth", RES_TYPE_NUMBER
);
2692 /* This defaults to 2 in order to match xterm. We recognize either
2693 internalBorderWidth or internalBorder (which is what xterm calls
2695 if (NILP (Fassq (Qinternal_border_width
, parameters
)))
2699 value
= mac_get_arg (parameters
, Qinternal_border_width
,
2700 "internalBorder", "InternalBorder", RES_TYPE_NUMBER
);
2701 if (! EQ (value
, Qunbound
))
2702 parameters
= Fcons (Fcons (Qinternal_border_width
, value
),
2705 /* Default internalBorderWidth to 0 on Windows to match other programs. */
2706 x_default_parameter (f
, parameters
, Qinternal_border_width
, make_number (0),
2707 "internalBorderWidth", "InternalBorder", RES_TYPE_NUMBER
);
2708 x_default_parameter (f
, parameters
, Qvertical_scroll_bars
, Qright
,
2709 "verticalScrollBars", "ScrollBars", RES_TYPE_SYMBOL
);
2711 /* Also do the stuff which must be set before the window exists. */
2712 x_default_parameter (f
, parameters
, Qforeground_color
, build_string ("black"),
2713 "foreground", "Foreground", RES_TYPE_STRING
);
2714 x_default_parameter (f
, parameters
, Qbackground_color
, build_string ("white"),
2715 "background", "Background", RES_TYPE_STRING
);
2716 x_default_parameter (f
, parameters
, Qmouse_color
, build_string ("black"),
2717 "pointerColor", "Foreground", RES_TYPE_STRING
);
2718 x_default_parameter (f
, parameters
, Qcursor_color
, build_string ("black"),
2719 "cursorColor", "Foreground", RES_TYPE_STRING
);
2720 x_default_parameter (f
, parameters
, Qborder_color
, build_string ("black"),
2721 "borderColor", "BorderColor", RES_TYPE_STRING
);
2722 x_default_parameter (f
, parameters
, Qscreen_gamma
, Qnil
,
2723 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
2724 x_default_parameter (f
, parameters
, Qline_spacing
, Qnil
,
2725 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
2726 x_default_parameter (f
, parameters
, Qleft_fringe
, Qnil
,
2727 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
2728 x_default_parameter (f
, parameters
, Qright_fringe
, Qnil
,
2729 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
2732 /* Init faces before x_default_parameter is called for scroll-bar
2733 parameters because that function calls x_set_scroll_bar_width,
2734 which calls change_frame_size, which calls Fset_window_buffer,
2735 which runs hooks, which call Fvertical_motion. At the end, we
2736 end up in init_iterator with a null face cache, which should not
2738 init_frame_faces (f
);
2740 x_default_parameter (f
, parameters
, Qmenu_bar_lines
, make_number (1),
2741 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
2742 x_default_parameter (f
, parameters
, Qtool_bar_lines
, make_number (1),
2743 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
2745 x_default_parameter (f
, parameters
, Qbuffer_predicate
, Qnil
,
2746 "bufferPredicate", "BufferPredicate", RES_TYPE_SYMBOL
);
2747 x_default_parameter (f
, parameters
, Qtitle
, Qnil
,
2748 "title", "Title", RES_TYPE_STRING
);
2749 x_default_parameter (f
, parameters
, Qfullscreen
, Qnil
,
2750 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
2752 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
2754 /* Compute the size of the window. */
2755 window_prompting
= x_figure_window_size (f
, parameters
, 1);
2757 tem
= mac_get_arg (parameters
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
2758 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
2760 mac_window (f
, window_prompting
, minibuffer_only
);
2761 x_icon (f
, parameters
);
2765 /* Now consider the frame official. */
2766 FRAME_MAC_DISPLAY_INFO (f
)->reference_count
++;
2767 Vframe_list
= Fcons (frame
, Vframe_list
);
2769 /* We need to do this after creating the window, so that the
2770 icon-creation functions can say whose icon they're describing. */
2771 x_default_parameter (f
, parameters
, Qicon_type
, Qnil
,
2772 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
2774 x_default_parameter (f
, parameters
, Qauto_raise
, Qnil
,
2775 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
2776 x_default_parameter (f
, parameters
, Qauto_lower
, Qnil
,
2777 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
2778 x_default_parameter (f
, parameters
, Qcursor_type
, Qbox
,
2779 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
2780 x_default_parameter (f
, parameters
, Qscroll_bar_width
, Qnil
,
2781 "scrollBarWidth", "ScrollBarWidth", RES_TYPE_NUMBER
);
2783 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
2784 Change will not be effected unless different from the current
2786 width
= FRAME_COLS (f
);
2787 height
= FRAME_LINES (f
);
2789 FRAME_LINES (f
) = 0;
2790 SET_FRAME_COLS (f
, 0);
2791 change_frame_size (f
, height
, width
, 1, 0, 0);
2793 /* Tell the server what size and position, etc, we want, and how
2794 badly we want them. This should be done after we have the menu
2795 bar so that its size can be taken into account. */
2797 x_wm_set_size_hint (f
, window_prompting
, 0);
2800 /* Make the window appear on the frame and enable display, unless
2801 the caller says not to. However, with explicit parent, Emacs
2802 cannot control visibility, so don't try. */
2803 if (! f
->output_data
.mac
->explicit_parent
)
2805 Lisp_Object visibility
;
2807 visibility
= mac_get_arg (parameters
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
);
2808 if (EQ (visibility
, Qunbound
))
2811 if (EQ (visibility
, Qicon
))
2812 x_iconify_frame (f
);
2813 else if (! NILP (visibility
))
2814 x_make_frame_visible (f
);
2816 /* Must have been Qnil. */
2820 /* Initialize `default-minibuffer-frame' in case this is the first
2821 frame on this display device. */
2822 if (FRAME_HAS_MINIBUF_P (f
)
2823 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
2824 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
2825 kb
->Vdefault_minibuffer_frame
= frame
;
2827 /* All remaining specified parameters, which have not been "used"
2828 by x_get_arg and friends, now go in the misc. alist of the frame. */
2829 for (tem
= parameters
; !NILP (tem
); tem
= XCDR (tem
))
2830 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
2831 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
2833 store_frame_param (f
, Qwindow_system
, Qmac
);
2837 /* Make sure windows on this frame appear in calls to next-window
2838 and similar functions. */
2839 Vwindow_list
= Qnil
;
2841 return unbind_to (count
, frame
);
2845 /* FRAME is used only to get a handle on the X display. We don't pass the
2846 display info directly because we're called from frame.c, which doesn't
2847 know about that structure. */
2850 x_get_focus_frame (frame
)
2851 struct frame
*frame
;
2853 struct mac_display_info
*dpyinfo
= FRAME_MAC_DISPLAY_INFO (frame
);
2855 if (! dpyinfo
->x_focus_frame
)
2858 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
2863 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
2864 doc
: /* Set the input focus to FRAME.
2865 FRAME nil means use the selected frame. */)
2870 ProcessSerialNumber front_psn
;
2871 static const ProcessSerialNumber current_psn
= {0, kCurrentProcess
};
2873 struct frame
*f
= check_x_frame (frame
);
2876 /* Move the current process to the foreground if it is not. Don't
2877 call SetFrontProcess if the current process is already running in
2878 the foreground so as not to change the z-order of windows. */
2879 err
= GetFrontProcess (&front_psn
);
2881 err
= SameProcess (&front_psn
, ¤t_psn
, &front_p
);
2885 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
2886 if (FrontNonFloatingWindow () == FRAME_MAC_WINDOW (f
))
2887 SetFrontProcessWithOptions (¤t_psn
,
2888 kSetFrontProcessFrontWindowOnly
);
2891 SetFrontProcess (¤t_psn
);
2895 ActivateWindow (ActiveNonFloatingWindow (), false);
2896 ActivateWindow (FRAME_MAC_WINDOW (f
), true);
2898 #if !TARGET_API_MAC_CARBON
2899 /* SelectWindow (Non-Carbon) does not issue deactivate events if the
2900 possibly inactive window that is to be selected is already the
2902 SendBehind (FRAME_MAC_WINDOW (f
), NULL
);
2904 /* This brings the window to the front. */
2905 SelectWindow (FRAME_MAC_WINDOW (f
));
2913 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
2914 doc
: /* Internal function called by `color-defined-p', which see. */)
2916 Lisp_Object color
, frame
;
2919 FRAME_PTR f
= check_x_frame (frame
);
2921 CHECK_STRING (color
);
2923 if (mac_defined_color (f
, SDATA (color
), &foo
, 0))
2929 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
2930 doc
: /* Internal function called by `color-values', which see. */)
2932 Lisp_Object color
, frame
;
2935 FRAME_PTR f
= check_x_frame (frame
);
2937 CHECK_STRING (color
);
2939 if (mac_defined_color (f
, SDATA (color
), &foo
, 0))
2940 return list3 (make_number (foo
.red
),
2941 make_number (foo
.green
),
2942 make_number (foo
.blue
));
2947 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
2948 doc
: /* Internal function called by `display-color-p', which see. */)
2950 Lisp_Object display
;
2952 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2954 if (!dpyinfo
->color_p
)
2960 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
2962 doc
: /* Return t if DISPLAY supports shades of gray.
2963 Note that color displays do support shades of gray.
2964 The optional argument DISPLAY specifies which display to ask about.
2965 DISPLAY should be either a frame or a display name (a string).
2966 If omitted or nil, that stands for the selected frame's display. */)
2968 Lisp_Object display
;
2970 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2972 if (dpyinfo
->n_planes
<= 1)
2978 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
2980 doc
: /* Returns the width in pixels 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 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2989 return make_number (dpyinfo
->width
);
2992 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
2993 Sx_display_pixel_height
, 0, 1, 0,
2994 doc
: /* Returns the height in pixels of DISPLAY.
2995 The optional argument DISPLAY specifies which display to ask about.
2996 DISPLAY should be either a frame or a display name (a string).
2997 If omitted or nil, that stands for the selected frame's display. */)
2999 Lisp_Object display
;
3001 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3003 return make_number (dpyinfo
->height
);
3006 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3008 doc
: /* Returns the number of bitplanes of DISPLAY.
3009 The optional argument DISPLAY specifies which display to ask about.
3010 DISPLAY should be either a frame or a display name (a string).
3011 If omitted or nil, that stands for the selected frame's display. */)
3013 Lisp_Object display
;
3015 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3017 return make_number (dpyinfo
->n_planes
);
3020 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3022 doc
: /* Returns the number of color cells of DISPLAY.
3023 The optional argument DISPLAY specifies which display to ask about.
3024 DISPLAY should be either a frame or a display name (a string).
3025 If omitted or nil, that stands for the selected frame's display. */)
3027 Lisp_Object display
;
3029 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3031 /* We force 24+ bit depths to 24-bit to prevent an overflow. */
3032 return make_number (1 << min (dpyinfo
->n_planes
, 24));
3035 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3036 Sx_server_max_request_size
,
3038 doc
: /* Returns the maximum request size of the server of DISPLAY.
3039 The optional argument DISPLAY specifies which display to ask about.
3040 DISPLAY should be either a frame or a display name (a string).
3041 If omitted or nil, that stands for the selected frame's display. */)
3043 Lisp_Object display
;
3045 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3047 return make_number (1);
3050 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3051 doc
: /* Returns the "vendor ID" string of the Mac OS system (Apple).
3052 The optional argument DISPLAY specifies which display to ask about.
3053 DISPLAY should be either a frame or a display name (a string).
3054 If omitted or nil, that stands for the selected frame's display. */)
3056 Lisp_Object display
;
3058 return build_string ("Apple Inc.");
3061 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3062 doc
: /* Returns the version numbers of the Mac OS system.
3063 The value is a list of three integers: the major and minor
3064 version numbers, and the vendor-specific release
3065 number. See also the function `x-server-vendor'.
3067 The optional argument DISPLAY specifies which display to ask about.
3068 DISPLAY should be either a frame or a display name (a string).
3069 If omitted or nil, that stands for the selected frame's display. */)
3071 Lisp_Object display
;
3073 UInt32 response
, major
, minor
, bugfix
;
3077 err
= Gestalt (gestaltSystemVersion
, &response
);
3080 if (response
>= 0x00001040)
3082 err
= Gestalt (gestaltSystemVersionMajor
, &major
);
3084 err
= Gestalt (gestaltSystemVersionMinor
, &minor
);
3086 err
= Gestalt (gestaltSystemVersionBugFix
, &bugfix
);
3090 bugfix
= response
& 0xf;
3092 minor
= response
& 0xf;
3094 /* convert BCD to int */
3095 major
= response
- (response
>> 4) * 6;
3101 error ("Cannot get Mac OS version");
3103 return Fcons (make_number (major
),
3104 Fcons (make_number (minor
),
3105 Fcons (make_number (bugfix
),
3109 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3110 doc
: /* Return the number of screens on the server of DISPLAY.
3111 The optional argument DISPLAY specifies which display to ask about.
3112 DISPLAY should be either a frame or a display name (a string).
3113 If omitted or nil, that stands for the selected frame's display. */)
3115 Lisp_Object display
;
3117 return make_number (1);
3120 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3121 doc
: /* Return the height in millimeters of DISPLAY.
3122 The optional argument DISPLAY specifies which display to ask about.
3123 DISPLAY should be either a frame or a display name (a string).
3124 If omitted or nil, that stands for the selected frame's display. */)
3126 Lisp_Object display
;
3128 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3131 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
3132 #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3133 if (CGDisplayScreenSize
!= NULL
)
3139 size
= CGDisplayScreenSize (kCGDirectMainDisplay
);
3140 mm_per_pixel
= size
.height
/ CGDisplayPixelsHigh (kCGDirectMainDisplay
);
3143 #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3144 else /* CGDisplayScreenSize == NULL */
3146 #endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 */
3147 #if MAC_OS_X_VERSION_MAX_ALLOWED < 1030 || MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3149 /* This is an approximation. */
3150 mm_per_pixel
= 25.4f
/ dpyinfo
->resy
;
3154 return make_number ((int) (dpyinfo
->height
* mm_per_pixel
+ 0.5f
));
3157 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3158 doc
: /* Return the width in millimeters of DISPLAY.
3159 The optional argument DISPLAY specifies which display to ask about.
3160 DISPLAY should be either a frame or a display name (a string).
3161 If omitted or nil, that stands for the selected frame's display. */)
3163 Lisp_Object display
;
3165 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3168 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
3169 #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3170 if (CGDisplayScreenSize
!= NULL
)
3176 size
= CGDisplayScreenSize (kCGDirectMainDisplay
);
3177 mm_per_pixel
= size
.width
/ CGDisplayPixelsWide (kCGDirectMainDisplay
);
3180 #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3181 else /* CGDisplayScreenSize == NULL */
3183 #endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 */
3184 #if MAC_OS_X_VERSION_MAX_ALLOWED < 1030 || MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3186 /* This is an approximation. */
3187 mm_per_pixel
= 25.4f
/ dpyinfo
->resx
;
3191 return make_number ((int) (dpyinfo
->width
* mm_per_pixel
+ 0.5f
));
3194 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3195 Sx_display_backing_store
, 0, 1, 0,
3196 doc
: /* Returns an indication of whether DISPLAY does backing store.
3197 The value may be `always', `when-mapped', or `not-useful'.
3198 The optional argument DISPLAY specifies which display to ask about.
3199 DISPLAY should be either a frame or a display name (a string).
3200 If omitted or nil, that stands for the selected frame's display. */)
3202 Lisp_Object display
;
3204 return intern ("not-useful");
3207 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3208 Sx_display_visual_class
, 0, 1, 0,
3209 doc
: /* Returns the visual class of DISPLAY.
3210 The value is one of the symbols `static-gray', `gray-scale',
3211 `static-color', `pseudo-color', `true-color', or `direct-color'.
3213 The optional argument DISPLAY specifies which display to ask about.
3214 DISPLAY should be either a frame or a display name (a string).
3215 If omitted or nil, that stands for the selected frame's display. */)
3217 Lisp_Object display
;
3219 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3222 switch (dpyinfo
->visual
->class)
3224 case StaticGray
: return (intern ("static-gray"));
3225 case GrayScale
: return (intern ("gray-scale"));
3226 case StaticColor
: return (intern ("static-color"));
3227 case PseudoColor
: return (intern ("pseudo-color"));
3228 case TrueColor
: return (intern ("true-color"));
3229 case DirectColor
: return (intern ("direct-color"));
3231 error ("Display has an unknown visual class");
3235 return (intern ("true-color"));
3238 DEFUN ("x-display-save-under", Fx_display_save_under
,
3239 Sx_display_save_under
, 0, 1, 0,
3240 doc
: /* Returns t if DISPLAY supports the save-under feature.
3241 The optional argument DISPLAY specifies which display to ask about.
3242 DISPLAY should be either a frame or a display name (a string).
3243 If omitted or nil, that stands for the selected frame's display. */)
3245 Lisp_Object display
;
3252 register struct frame
*f
;
3254 return FRAME_PIXEL_WIDTH (f
);
3259 register struct frame
*f
;
3261 return FRAME_PIXEL_HEIGHT (f
);
3266 register struct frame
*f
;
3268 return FRAME_COLUMN_WIDTH (f
);
3273 register struct frame
*f
;
3275 return FRAME_LINE_HEIGHT (f
);
3280 register struct frame
*f
;
3282 return FRAME_MAC_DISPLAY_INFO (f
)->n_planes
;
3285 /* Return the display structure for the display named NAME.
3286 Open a new connection if necessary. */
3288 struct mac_display_info
*
3289 x_display_info_for_name (name
)
3293 struct mac_display_info
*dpyinfo
;
3295 CHECK_STRING (name
);
3297 for (dpyinfo
= &one_mac_display_info
, names
= x_display_name_list
;
3299 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
3302 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
3307 /* Use this general default value to start with. */
3308 Vx_resource_name
= Vinvocation_name
;
3310 validate_x_resource_name ();
3312 dpyinfo
= mac_term_init (name
, (unsigned char *) 0,
3313 (char *) SDATA (Vx_resource_name
));
3316 error ("Cannot connect to server %s", SDATA (name
));
3319 XSETFASTINT (Vwindow_system_version
, 3);
3324 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
3326 doc
: /* Open a connection to a server.
3327 DISPLAY is the name of the display to connect to.
3328 Optional second arg XRM-STRING is a string of resources in xrdb format.
3329 If the optional third arg MUST-SUCCEED is non-nil,
3330 terminate Emacs if we can't open the connection. */)
3331 (display
, xrm_string
, must_succeed
)
3332 Lisp_Object display
, xrm_string
, must_succeed
;
3334 unsigned char *xrm_option
;
3335 struct mac_display_info
*dpyinfo
;
3337 CHECK_STRING (display
);
3338 if (! NILP (xrm_string
))
3339 CHECK_STRING (xrm_string
);
3341 if (! NILP (xrm_string
))
3342 xrm_option
= (unsigned char *) SDATA (xrm_string
);
3344 xrm_option
= (unsigned char *) 0;
3346 validate_x_resource_name ();
3348 /* This is what opens the connection and sets x_current_display.
3349 This also initializes many symbols, such as those used for input. */
3350 dpyinfo
= mac_term_init (display
, xrm_option
,
3351 (char *) SDATA (Vx_resource_name
));
3355 if (!NILP (must_succeed
))
3356 fatal ("Cannot connect to server %s.\n",
3359 error ("Cannot connect to server %s", SDATA (display
));
3364 XSETFASTINT (Vwindow_system_version
, 3);
3368 DEFUN ("x-close-connection", Fx_close_connection
,
3369 Sx_close_connection
, 1, 1, 0,
3370 doc
: /* Close the connection to DISPLAY's server.
3371 For DISPLAY, specify either a frame or a display name (a string).
3372 If DISPLAY is nil, that stands for the selected frame's display. */)
3374 Lisp_Object display
;
3376 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3379 if (dpyinfo
->reference_count
> 0)
3380 error ("Display still has frames on it");
3383 /* Free the fonts in the font table. */
3384 for (i
= 0; i
< dpyinfo
->n_fonts
; i
++)
3385 if (dpyinfo
->font_table
[i
].name
)
3387 mac_unload_font (dpyinfo
, dpyinfo
->font_table
[i
].font
);
3390 x_destroy_all_bitmaps (dpyinfo
);
3392 x_delete_display (dpyinfo
);
3398 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
3399 doc
: /* Return the list of display names that Emacs has connections to. */)
3402 Lisp_Object tail
, result
;
3405 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
3406 result
= Fcons (XCAR (XCAR (tail
)), result
);
3411 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
3412 doc
: /* This is a noop on Mac OS systems. */)
3414 Lisp_Object display
, on
;
3419 /* x_sync is a no-op on Mac. */
3428 /***********************************************************************
3430 ***********************************************************************/
3432 DEFUN ("x-change-window-property", Fx_change_window_property
,
3433 Sx_change_window_property
, 2, 6, 0,
3434 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
3435 VALUE may be a string or a list of conses, numbers and/or strings.
3436 If an element in the list is a string, it is converted to
3437 an Atom and the value of the Atom is used. If an element is a cons,
3438 it is converted to a 32 bit number where the car is the 16 top bits and the
3439 cdr is the lower 16 bits.
3440 FRAME nil or omitted means use the selected frame.
3441 If TYPE is given and non-nil, it is the name of the type of VALUE.
3442 If TYPE is not given or nil, the type is STRING.
3443 FORMAT gives the size in bits of each element if VALUE is a list.
3444 It must be one of 8, 16 or 32.
3445 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
3446 If OUTER_P is non-nil, the property is changed for the outer X window of
3447 FRAME. Default is to change on the edit X window.
3450 (prop
, value
, frame
, type
, format
, outer_p
)
3451 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
3453 #if 0 /* MAC_TODO : port window properties to Mac */
3454 struct frame
*f
= check_x_frame (frame
);
3457 CHECK_STRING (prop
);
3458 CHECK_STRING (value
);
3461 prop_atom
= XInternAtom (FRAME_W32_DISPLAY (f
), SDATA (prop
), False
);
3462 XChangeProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
),
3463 prop_atom
, XA_STRING
, 8, PropModeReplace
,
3464 SDATA (value
), SCHARS (value
));
3466 /* Make sure the property is set when we return. */
3467 XFlush (FRAME_W32_DISPLAY (f
));
3470 #endif /* MAC_TODO */
3476 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
3477 Sx_delete_window_property
, 1, 2, 0,
3478 doc
: /* Remove window property PROP from X window of FRAME.
3479 FRAME nil or omitted means use the selected frame. Value is PROP. */)
3481 Lisp_Object prop
, frame
;
3483 #if 0 /* MAC_TODO : port window properties to Mac */
3485 struct frame
*f
= check_x_frame (frame
);
3488 CHECK_STRING (prop
);
3490 prop_atom
= XInternAtom (FRAME_W32_DISPLAY (f
), SDATA (prop
), False
);
3491 XDeleteProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
), prop_atom
);
3493 /* Make sure the property is removed when we return. */
3494 XFlush (FRAME_W32_DISPLAY (f
));
3496 #endif /* MAC_TODO */
3502 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
3504 doc
: /* Value is the value of window property PROP on FRAME.
3505 If FRAME is nil or omitted, use the selected frame. Value is nil
3506 if FRAME hasn't a property with name PROP or if PROP has no string
3509 Lisp_Object prop
, frame
;
3511 #if 0 /* MAC_TODO : port window properties to Mac */
3513 struct frame
*f
= check_x_frame (frame
);
3516 Lisp_Object prop_value
= Qnil
;
3517 char *tmp_data
= NULL
;
3520 unsigned long actual_size
, bytes_remaining
;
3522 CHECK_STRING (prop
);
3524 prop_atom
= XInternAtom (FRAME_W32_DISPLAY (f
), SDATA (prop
), False
);
3525 rc
= XGetWindowProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
),
3526 prop_atom
, 0, 0, False
, XA_STRING
,
3527 &actual_type
, &actual_format
, &actual_size
,
3528 &bytes_remaining
, (unsigned char **) &tmp_data
);
3531 int size
= bytes_remaining
;
3536 rc
= XGetWindowProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
),
3537 prop_atom
, 0, bytes_remaining
,
3539 &actual_type
, &actual_format
,
3540 &actual_size
, &bytes_remaining
,
3541 (unsigned char **) &tmp_data
);
3543 prop_value
= make_string (tmp_data
, size
);
3552 #endif /* MAC_TODO */
3558 /***********************************************************************
3560 ***********************************************************************/
3562 /* If non-null, an asynchronous timer that, when it expires, displays
3563 an hourglass cursor on all frames. */
3565 static struct atimer
*hourglass_atimer
;
3567 /* Non-zero means an hourglass cursor is currently shown. */
3569 static int hourglass_shown_p
;
3571 /* Number of seconds to wait before displaying an hourglass cursor. */
3573 static Lisp_Object Vhourglass_delay
;
3575 /* Default number of seconds to wait before displaying an hourglass
3578 #define DEFAULT_HOURGLASS_DELAY 1
3580 /* Function prototypes. */
3582 static void show_hourglass
P_ ((struct atimer
*));
3583 static void hide_hourglass
P_ ((void));
3585 /* Return non-zero if houglass timer has been started or hourglass is shown. */
3588 hourglass_started ()
3590 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
3594 /* Cancel a currently active hourglass timer, and start a new one. */
3601 int secs
, usecs
= 0;
3603 cancel_hourglass ();
3605 if (INTEGERP (Vhourglass_delay
)
3606 && XINT (Vhourglass_delay
) > 0)
3607 secs
= XFASTINT (Vhourglass_delay
);
3608 else if (FLOATP (Vhourglass_delay
)
3609 && XFLOAT_DATA (Vhourglass_delay
) > 0)
3612 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
3613 secs
= XFASTINT (tem
);
3614 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
3617 secs
= DEFAULT_HOURGLASS_DELAY
;
3619 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
3620 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
3621 show_hourglass
, NULL
);
3622 #endif /* MAC_OSX */
3626 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
3633 if (hourglass_atimer
)
3635 cancel_atimer (hourglass_atimer
);
3636 hourglass_atimer
= NULL
;
3639 if (hourglass_shown_p
)
3641 #endif /* MAC_OSX */
3645 /* Timer function of hourglass_atimer. TIMER is equal to
3648 On Mac, busy status is shown by the progress indicator (chasing
3649 arrows) at the upper-right corner of each frame instead of the
3650 hourglass pointer. */
3653 show_hourglass (timer
)
3654 struct atimer
*timer
;
3656 #if TARGET_API_MAC_CARBON
3657 /* The timer implementation will cancel this timer automatically
3658 after this function has run. Set hourglass_atimer to null
3659 so that we know the timer doesn't have to be canceled. */
3660 hourglass_atimer
= NULL
;
3662 if (!hourglass_shown_p
)
3664 Lisp_Object rest
, frame
;
3668 FOR_EACH_FRAME (rest
, frame
)
3670 struct frame
*f
= XFRAME (frame
);
3672 if (FRAME_LIVE_P (f
) && FRAME_MAC_P (f
)
3673 && FRAME_MAC_WINDOW (f
) != tip_window
)
3676 mac_prepare_for_quickdraw (f
);
3678 if (!f
->output_data
.mac
->hourglass_control
)
3680 Window w
= FRAME_MAC_WINDOW (f
);
3684 GetWindowPortBounds (w
, &r
);
3685 r
.left
= r
.right
- HOURGLASS_WIDTH
;
3686 r
.bottom
= r
.top
+ HOURGLASS_HEIGHT
;
3687 if (CreateChasingArrowsControl (w
, &r
, &c
) == noErr
)
3688 f
->output_data
.mac
->hourglass_control
= c
;
3691 if (f
->output_data
.mac
->hourglass_control
)
3692 ShowControl (f
->output_data
.mac
->hourglass_control
);
3696 hourglass_shown_p
= 1;
3699 #endif /* TARGET_API_MAC_CARBON */
3703 /* Hide the progress indicators on all frames, if it is currently
3709 #if TARGET_API_MAC_CARBON
3710 if (hourglass_shown_p
)
3712 Lisp_Object rest
, frame
;
3715 FOR_EACH_FRAME (rest
, frame
)
3717 struct frame
*f
= XFRAME (frame
);
3720 /* Watch out for newly created frames. */
3721 && f
->output_data
.mac
->hourglass_control
)
3724 mac_prepare_for_quickdraw (f
);
3726 HideControl (f
->output_data
.mac
->hourglass_control
);
3730 hourglass_shown_p
= 0;
3733 #endif /* TARGET_API_MAC_CARBON */
3738 /***********************************************************************
3740 ***********************************************************************/
3742 static Lisp_Object x_create_tip_frame
P_ ((struct mac_display_info
*,
3743 Lisp_Object
, Lisp_Object
));
3744 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
3745 Lisp_Object
, int, int, int *, int *));
3747 /* The frame of a currently visible tooltip. */
3749 Lisp_Object tip_frame
;
3751 /* If non-nil, a timer started that hides the last tooltip when it
3754 Lisp_Object tip_timer
;
3757 /* If non-nil, a vector of 3 elements containing the last args
3758 with which x-show-tip was called. See there. */
3760 Lisp_Object last_show_tip_args
;
3762 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
3764 Lisp_Object Vx_max_tooltip_size
;
3768 unwind_create_tip_frame (frame
)
3771 Lisp_Object deleted
;
3773 deleted
= unwind_create_frame (frame
);
3774 if (EQ (deleted
, Qt
))
3784 /* Create a frame for a tooltip on the display described by DPYINFO.
3785 PARMS is a list of frame parameters. TEXT is the string to
3786 display in the tip frame. Value is the frame.
3788 Note that functions called here, esp. x_default_parameter can
3789 signal errors, for instance when a specified color name is
3790 undefined. We have to make sure that we're in a consistent state
3791 when this happens. */
3794 x_create_tip_frame (dpyinfo
, parms
, text
)
3795 struct mac_display_info
*dpyinfo
;
3796 Lisp_Object parms
, text
;
3799 Lisp_Object frame
, tem
;
3801 long window_prompting
= 0;
3803 int count
= SPECPDL_INDEX ();
3804 struct gcpro gcpro1
, gcpro2
, gcpro3
;
3806 int face_change_count_before
= face_change_count
;
3808 struct buffer
*old_buffer
;
3812 parms
= Fcopy_alist (parms
);
3815 kb
= dpyinfo
->terminal
->kboard
;
3817 kb
= &the_only_kboard
;
3820 /* Get the name of the frame to use for resource lookup. */
3821 name
= mac_get_arg (parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3823 && !EQ (name
, Qunbound
)
3825 error ("Invalid frame name--not a string or nil");
3828 GCPRO3 (parms
, name
, frame
);
3830 XSETFRAME (frame
, f
);
3832 buffer
= Fget_buffer_create (build_string (" *tip*"));
3833 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
3834 old_buffer
= current_buffer
;
3835 set_buffer_internal_1 (XBUFFER (buffer
));
3836 current_buffer
->truncate_lines
= Qnil
;
3837 specbind (Qinhibit_read_only
, Qt
);
3838 specbind (Qinhibit_modification_hooks
, Qt
);
3841 set_buffer_internal_1 (old_buffer
);
3843 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
3844 record_unwind_protect (unwind_create_tip_frame
, frame
);
3846 /* By setting the output method, we're essentially saying that
3847 the frame is live, as per FRAME_LIVE_P. If we get a signal
3848 from this point on, x_destroy_window might screw up reference
3850 f
->terminal
= dpyinfo
->terminal
;
3851 f
->terminal
->reference_count
++;
3852 f
->output_method
= output_mac
;
3853 f
->output_data
.mac
=
3854 (struct mac_output
*) xmalloc (sizeof (struct mac_output
));
3855 bzero (f
->output_data
.mac
, sizeof (struct mac_output
));
3857 FRAME_FONTSET (f
) = -1;
3858 f
->icon_name
= Qnil
;
3859 /* FRAME_X_DISPLAY_INFO (f) = dpyinfo; */
3861 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
3862 dpyinfo_refcount
= dpyinfo
->reference_count
;
3863 #endif /* GLYPH_DEBUG */
3865 FRAME_KBOARD (f
) = kb
;
3867 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
3868 f
->output_data
.mac
->explicit_parent
= 0;
3870 /* Set the name; the functions to which we pass f expect the name to
3872 if (EQ (name
, Qunbound
) || NILP (name
))
3874 f
->name
= build_string (dpyinfo
->mac_id_name
);
3875 f
->explicit_name
= 0;
3880 f
->explicit_name
= 1;
3881 /* use the frame's title when getting resources for this frame. */
3882 specbind (Qx_resource_name
, name
);
3885 /* Extract the window parameters from the supplied values that are
3886 needed to determine window geometry. */
3890 font
= mac_get_arg (parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3893 /* First, try whatever font the caller has specified. */
3896 tem
= Fquery_fontset (font
, Qnil
);
3898 font
= x_new_fontset (f
, SDATA (tem
));
3900 font
= x_new_font (f
, SDATA (font
));
3903 /* Try out a font which we hope has bold and italic variations. */
3905 if (! STRINGP (font
))
3906 font
= x_new_font (f
, "-*-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1");
3908 if (! STRINGP (font
))
3909 font
= x_new_font (f
, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1");
3910 /* If those didn't work, look for something which will at least work. */
3911 if (! STRINGP (font
))
3912 font
= x_new_fontset (f
, "fontset-standard");
3913 if (! STRINGP (font
))
3914 font
= x_new_font (f
, "-*-monaco-*-12-*-mac-roman");
3915 if (! STRINGP (font
))
3916 font
= x_new_font (f
, "-*-courier-*-10-*-mac-roman");
3918 if (! STRINGP (font
))
3919 error ("Cannot find any usable font");
3921 x_default_parameter (f
, parms
, Qfont
, font
,
3922 "font", "Font", RES_TYPE_STRING
);
3925 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3926 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3928 /* This defaults to 2 in order to match xterm. We recognize either
3929 internalBorderWidth or internalBorder (which is what xterm calls
3931 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3935 value
= mac_get_arg (parms
, Qinternal_border_width
,
3936 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3937 if (! EQ (value
, Qunbound
))
3938 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3942 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3943 "internalBorderWidth", "internalBorderWidth",
3946 /* Also do the stuff which must be set before the window exists. */
3947 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3948 "foreground", "Foreground", RES_TYPE_STRING
);
3949 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3950 "background", "Background", RES_TYPE_STRING
);
3951 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3952 "pointerColor", "Foreground", RES_TYPE_STRING
);
3953 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3954 "cursorColor", "Foreground", RES_TYPE_STRING
);
3955 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3956 "borderColor", "BorderColor", RES_TYPE_STRING
);
3958 /* Init faces before x_default_parameter is called for scroll-bar
3959 parameters because that function calls x_set_scroll_bar_width,
3960 which calls change_frame_size, which calls Fset_window_buffer,
3961 which runs hooks, which call Fvertical_motion. At the end, we
3962 end up in init_iterator with a null face cache, which should not
3964 init_frame_faces (f
);
3966 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
3968 window_prompting
= x_figure_window_size (f
, parms
, 0);
3974 SetRect (&r
, 0, 0, 1, 1);
3975 #if TARGET_API_MAC_CARBON
3976 if (CreateNewWindow (kHelpWindowClass
,
3977 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
3978 kWindowIgnoreClicksAttribute
|
3980 kWindowNoUpdatesAttribute
|
3981 kWindowNoActivatesAttribute
,
3982 &r
, &tip_window
) == noErr
)
3984 if (tip_window
= NewCWindow (NULL
, &r
, "\p", false, plainDBox
,
3988 FRAME_MAC_WINDOW (f
) = tip_window
;
3989 XSetWindowBackground (FRAME_MAC_DISPLAY(f
), tip_window
,
3990 FRAME_BACKGROUND_PIXEL (f
));
3991 SetWRefCon (tip_window
, (long) f
->output_data
.mac
);
3992 /* so that update events can find this mac_output struct */
3993 f
->output_data
.mac
->mFP
= f
;
4000 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4001 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4002 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4003 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4004 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4005 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4007 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4008 Change will not be effected unless different from the current
4010 width
= FRAME_COLS (f
);
4011 height
= FRAME_LINES (f
);
4012 SET_FRAME_COLS (f
, 0);
4013 FRAME_LINES (f
) = 0;
4014 change_frame_size (f
, height
, width
, 1, 0, 0);
4016 /* Add `tooltip' frame parameter's default value. */
4017 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4018 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4021 /* Set up faces after all frame parameters are known. This call
4022 also merges in face attributes specified for new frames.
4024 Frame parameters may be changed if .Xdefaults contains
4025 specifications for the default font. For example, if there is an
4026 `Emacs.default.attributeBackground: pink', the `background-color'
4027 attribute of the frame get's set, which let's the internal border
4028 of the tooltip frame appear in pink. Prevent this. */
4030 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4032 /* Set tip_frame here, so that */
4034 call1 (Qface_set_after_frame_default
, frame
);
4036 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4037 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4045 /* It is now ok to make the frame official even if we get an error
4046 below. And the frame needs to be on Vframe_list or making it
4047 visible won't work. */
4048 Vframe_list
= Fcons (frame
, Vframe_list
);
4050 /* Now that the frame is official, it counts as a reference to
4052 FRAME_MAC_DISPLAY_INFO (f
)->reference_count
++;
4054 /* Setting attributes of faces of the tooltip frame from resources
4055 and similar will increment face_change_count, which leads to the
4056 clearing of all current matrices. Since this isn't necessary
4057 here, avoid it by resetting face_change_count to the value it
4058 had before we created the tip frame. */
4059 face_change_count
= face_change_count_before
;
4061 /* Discard the unwind_protect. */
4062 return unbind_to (count
, frame
);
4066 /* Compute where to display tip frame F. PARMS is the list of frame
4067 parameters for F. DX and DY are specified offsets from the current
4068 location of the mouse. WIDTH and HEIGHT are the width and height
4069 of the tooltip. Return coordinates relative to the root window of
4070 the display in *ROOT_X, and *ROOT_Y. */
4073 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4075 Lisp_Object parms
, dx
, dy
;
4077 int *root_x
, *root_y
;
4079 Lisp_Object left
, top
;
4081 /* User-specified position? */
4082 left
= Fcdr (Fassq (Qleft
, parms
));
4083 top
= Fcdr (Fassq (Qtop
, parms
));
4085 /* Move the tooltip window where the mouse pointer is. Resize and
4087 if (!INTEGERP (left
) || !INTEGERP (top
))
4092 #if TARGET_API_MAC_CARBON
4093 GetGlobalMouse (&mouse_pos
);
4095 GetMouse (&mouse_pos
);
4096 LocalToGlobal (&mouse_pos
);
4098 *root_x
= mouse_pos
.h
;
4099 *root_y
= mouse_pos
.v
;
4104 *root_y
= XINT (top
);
4105 else if (*root_y
+ XINT (dy
) <= 0)
4106 *root_y
= 0; /* Can happen for negative dy */
4107 else if (*root_y
+ XINT (dy
) + height
<= FRAME_MAC_DISPLAY_INFO (f
)->height
)
4108 /* It fits below the pointer */
4109 *root_y
+= XINT (dy
);
4110 else if (height
+ XINT (dy
) <= *root_y
)
4111 /* It fits above the pointer. */
4112 *root_y
-= height
+ XINT (dy
);
4114 /* Put it on the top. */
4117 if (INTEGERP (left
))
4118 *root_x
= XINT (left
);
4119 else if (*root_x
+ XINT (dx
) <= 0)
4120 *root_x
= 0; /* Can happen for negative dx */
4121 else if (*root_x
+ XINT (dx
) + width
<= FRAME_MAC_DISPLAY_INFO (f
)->width
)
4122 /* It fits to the right of the pointer. */
4123 *root_x
+= XINT (dx
);
4124 else if (width
+ XINT (dx
) <= *root_x
)
4125 /* It fits to the left of the pointer. */
4126 *root_x
-= width
+ XINT (dx
);
4128 /* Put it left-justified on the screen -- it ought to fit that way. */
4133 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4134 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4135 A tooltip window is a small window displaying a string.
4137 This is an internal function; Lisp code should call `tooltip-show'.
4139 FRAME nil or omitted means use the selected frame.
4141 PARMS is an optional list of frame parameters which can be used to
4142 change the tooltip's appearance.
4144 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4145 means use the default timeout of 5 seconds.
4147 If the list of frame parameters PARMS contains a `left' parameter,
4148 the tooltip is displayed at that x-position. Otherwise it is
4149 displayed at the mouse position, with offset DX added (default is 5 if
4150 DX isn't specified). Likewise for the y-position; if a `top' frame
4151 parameter is specified, it determines the y-position of the tooltip
4152 window, otherwise it is displayed at the mouse position, with offset
4153 DY added (default is -10).
4155 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4156 Text larger than the specified size is clipped. */)
4157 (string
, frame
, parms
, timeout
, dx
, dy
)
4158 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
4163 struct buffer
*old_buffer
;
4164 struct text_pos pos
;
4165 int i
, width
, height
;
4166 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
4167 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
4168 int count
= SPECPDL_INDEX ();
4170 specbind (Qinhibit_redisplay
, Qt
);
4172 GCPRO4 (string
, parms
, frame
, timeout
);
4174 CHECK_STRING (string
);
4175 f
= check_x_frame (frame
);
4177 timeout
= make_number (5);
4179 CHECK_NATNUM (timeout
);
4182 dx
= make_number (5);
4187 dy
= make_number (-10);
4191 if (NILP (last_show_tip_args
))
4192 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
4194 if (!NILP (tip_frame
))
4196 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
4197 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
4198 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
4200 if (EQ (frame
, last_frame
)
4201 && !NILP (Fequal (last_string
, string
))
4202 && !NILP (Fequal (last_parms
, parms
)))
4204 struct frame
*f
= XFRAME (tip_frame
);
4206 /* Only DX and DY have changed. */
4207 if (!NILP (tip_timer
))
4209 Lisp_Object timer
= tip_timer
;
4211 call1 (Qcancel_timer
, timer
);
4215 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
4216 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
4217 MoveWindow (FRAME_MAC_WINDOW (f
), root_x
, root_y
, false);
4223 /* Hide a previous tip, if any. */
4226 ASET (last_show_tip_args
, 0, string
);
4227 ASET (last_show_tip_args
, 1, frame
);
4228 ASET (last_show_tip_args
, 2, parms
);
4230 /* Add default values to frame parameters. */
4231 if (NILP (Fassq (Qname
, parms
)))
4232 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
4233 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4234 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
4235 if (NILP (Fassq (Qborder_width
, parms
)))
4236 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
4237 if (NILP (Fassq (Qborder_color
, parms
)))
4238 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
4239 if (NILP (Fassq (Qbackground_color
, parms
)))
4240 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
4243 /* Create a frame for the tooltip, and record it in the global
4244 variable tip_frame. */
4245 frame
= x_create_tip_frame (FRAME_MAC_DISPLAY_INFO (f
), parms
, string
);
4248 /* Set up the frame's root window. */
4249 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
4250 w
->left_col
= w
->top_line
= make_number (0);
4252 if (CONSP (Vx_max_tooltip_size
)
4253 && INTEGERP (XCAR (Vx_max_tooltip_size
))
4254 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
4255 && INTEGERP (XCDR (Vx_max_tooltip_size
))
4256 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
4258 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
4259 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
4263 w
->total_cols
= make_number (80);
4264 w
->total_lines
= make_number (40);
4267 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
4269 w
->pseudo_window_p
= 1;
4271 /* Display the tooltip text in a temporary buffer. */
4272 old_buffer
= current_buffer
;
4273 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
4274 current_buffer
->truncate_lines
= Qnil
;
4275 clear_glyph_matrix (w
->desired_matrix
);
4276 clear_glyph_matrix (w
->current_matrix
);
4277 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
4278 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
4280 /* Compute width and height of the tooltip. */
4282 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
4284 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
4288 /* Stop at the first empty row at the end. */
4289 if (!row
->enabled_p
|| !row
->displays_text_p
)
4292 /* Let the row go over the full width of the frame. */
4293 row
->full_width_p
= 1;
4295 /* There's a glyph at the end of rows that is used to place
4296 the cursor there. Don't include the width of this glyph. */
4297 if (row
->used
[TEXT_AREA
])
4299 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
4300 row_width
= row
->pixel_width
- last
->pixel_width
;
4303 row_width
= row
->pixel_width
;
4305 height
+= row
->height
;
4306 width
= max (width
, row_width
);
4309 /* Add the frame's internal border to the width and height the X
4310 window should have. */
4311 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
4312 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
4314 /* Move the tooltip window where the mouse pointer is. Resize and
4316 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
4319 MoveWindow (FRAME_MAC_WINDOW (f
), root_x
, root_y
, false);
4320 SizeWindow (FRAME_MAC_WINDOW (f
), width
, height
, true);
4321 ShowWindow (FRAME_MAC_WINDOW (f
));
4322 BringToFront (FRAME_MAC_WINDOW (f
));
4325 FRAME_PIXEL_WIDTH (f
) = width
;
4326 FRAME_PIXEL_HEIGHT (f
) = height
;
4328 /* Draw into the window. */
4329 w
->must_be_updated_p
= 1;
4330 update_single_window (w
, 1);
4332 /* Restore original current buffer. */
4333 set_buffer_internal_1 (old_buffer
);
4334 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
4337 /* Let the tip disappear after timeout seconds. */
4338 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
4339 intern ("x-hide-tip"));
4342 return unbind_to (count
, Qnil
);
4346 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
4347 doc
: /* Hide the current tooltip window, if there is any.
4348 Value is t if tooltip was open, nil otherwise. */)
4352 Lisp_Object deleted
, frame
, timer
;
4353 struct gcpro gcpro1
, gcpro2
;
4355 /* Return quickly if nothing to do. */
4356 if (NILP (tip_timer
) && NILP (tip_frame
))
4361 GCPRO2 (frame
, timer
);
4362 tip_frame
= tip_timer
= deleted
= Qnil
;
4364 count
= SPECPDL_INDEX ();
4365 specbind (Qinhibit_redisplay
, Qt
);
4366 specbind (Qinhibit_quit
, Qt
);
4369 call1 (Qcancel_timer
, timer
);
4373 Fdelete_frame (frame
, Qnil
);
4378 return unbind_to (count
, deleted
);
4383 #if TARGET_API_MAC_CARBON
4384 /***********************************************************************
4385 File selection dialog
4386 ***********************************************************************/
4388 static pascal void mac_nav_event_callback
P_ ((NavEventCallbackMessage
,
4389 NavCBRecPtr
, void *));
4392 There is a relatively standard way to do this using applescript to run
4393 a (choose file) method. However, this doesn't do "the right thing"
4394 by working only if the find-file occurred during a menu or toolbar
4395 click. So we must do the file dialog by hand, using the navigation
4396 manager. This also has more flexibility in determining the default
4397 directory and whether or not we are going to choose a file.
4400 extern Lisp_Object Qfile_name_history
;
4402 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
4403 doc
: /* Read file name, prompting with PROMPT in directory DIR.
4404 Use a file selection dialog.
4405 Select DEFAULT-FILENAME in the dialog's file selection box, if
4406 specified. Ensure that file exists if MUSTMATCH is non-nil.
4407 If ONLY-DIR-P is non-nil, the user can only select directories. */)
4408 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
4409 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
4411 Lisp_Object file
= Qnil
;
4412 int count
= SPECPDL_INDEX ();
4413 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
4414 char filename
[MAXPATHLEN
];
4415 static NavEventUPP mac_nav_event_callbackUPP
= NULL
;
4419 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, file
, only_dir_p
);
4420 CHECK_STRING (prompt
);
4423 /* Create the dialog with PROMPT as title, using DIR as initial
4424 directory and using "*" as pattern. */
4425 dir
= Fexpand_file_name (dir
, Qnil
);
4429 NavDialogCreationOptions options
;
4430 NavDialogRef dialogRef
;
4431 NavTypeListHandle fileTypes
= NULL
;
4432 NavUserAction userAction
;
4433 CFStringRef message
=NULL
, saveName
= NULL
;
4436 /* No need for a callback function because we are modal */
4437 NavGetDefaultDialogCreationOptions(&options
);
4438 options
.modality
= kWindowModalityAppModal
;
4439 options
.location
.h
= options
.location
.v
= -1;
4440 options
.optionFlags
= kNavDefaultNavDlogOptions
;
4441 options
.optionFlags
|= kNavAllFilesInPopup
; /* All files allowed */
4442 options
.optionFlags
|= kNavSelectAllReadableItem
;
4443 options
.optionFlags
&= ~kNavAllowMultipleFiles
;
4446 message
= cfstring_create_with_string (prompt
);
4447 options
.message
= message
;
4449 /* Don't set the application, let it use default.
4450 options.clientName = CFSTR ("Emacs");
4453 if (mac_nav_event_callbackUPP
== NULL
)
4454 mac_nav_event_callbackUPP
= NewNavEventUPP (mac_nav_event_callback
);
4456 if (!NILP (only_dir_p
))
4457 status
= NavCreateChooseFolderDialog(&options
, mac_nav_event_callbackUPP
,
4458 NULL
, NULL
, &dialogRef
);
4459 else if (NILP (mustmatch
))
4461 /* This is a save dialog */
4462 options
.optionFlags
|= kNavDontConfirmReplacement
;
4463 options
.actionButtonLabel
= CFSTR ("Ok");
4464 options
.windowTitle
= CFSTR ("Enter name");
4466 if (STRINGP (default_filename
))
4468 Lisp_Object utf8
= ENCODE_UTF_8 (default_filename
);
4469 char *begPtr
= SDATA(utf8
);
4470 char *filePtr
= begPtr
+ SBYTES(utf8
);
4471 while (filePtr
!= begPtr
&& !IS_DIRECTORY_SEP(filePtr
[-1]))
4473 saveName
= cfstring_create_with_utf8_cstring (filePtr
);
4474 options
.saveFileName
= saveName
;
4475 options
.optionFlags
|= kNavSelectDefaultLocation
;
4477 status
= NavCreatePutFileDialog(&options
,
4478 'TEXT', kNavGenericSignature
,
4479 mac_nav_event_callbackUPP
, NULL
,
4484 /* This is an open dialog*/
4485 status
= NavCreateChooseFileDialog(&options
, fileTypes
,
4486 mac_nav_event_callbackUPP
, NULL
,
4487 NULL
, NULL
, &dialogRef
);
4490 /* Set the default location and continue*/
4491 if (status
== noErr
)
4493 Lisp_Object encoded_dir
= ENCODE_FILE (dir
);
4496 status
= AECreateDesc (TYPE_FILE_NAME
, SDATA (encoded_dir
),
4497 SBYTES (encoded_dir
), &defLocAed
);
4498 if (status
== noErr
)
4500 NavCustomControl(dialogRef
, kNavCtlSetLocation
, (void*) &defLocAed
);
4501 AEDisposeDesc(&defLocAed
);
4503 status
= NavDialogRun(dialogRef
);
4506 if (saveName
) CFRelease(saveName
);
4507 if (message
) CFRelease(message
);
4509 if (status
== noErr
) {
4510 userAction
= NavDialogGetUserAction(dialogRef
);
4513 case kNavUserActionNone
:
4514 case kNavUserActionCancel
:
4515 break; /* Treat cancel like C-g */
4516 case kNavUserActionOpen
:
4517 case kNavUserActionChoose
:
4518 case kNavUserActionSaveAs
:
4520 NavReplyRecord reply
;
4523 status
= NavDialogGetReply(dialogRef
, &reply
);
4524 if (status
!= noErr
)
4526 status
= AEGetNthPtr (&reply
.selection
, 1, TYPE_FILE_NAME
,
4527 NULL
, NULL
, filename
,
4528 sizeof (filename
) - 1, &len
);
4529 if (status
== noErr
)
4531 len
= min (len
, sizeof (filename
) - 1);
4532 filename
[len
] = '\0';
4533 if (reply
.saveFileName
)
4535 /* If it was a saved file, we need to add the file name */
4536 if (len
&& len
< sizeof (filename
) - 1
4537 && filename
[len
-1] != '/')
4538 filename
[len
++] = '/';
4539 CFStringGetCString(reply
.saveFileName
, filename
+len
,
4540 sizeof (filename
) - len
,
4542 kCFStringEncodingUTF8
4544 CFStringGetSystemEncoding ()
4548 file
= DECODE_FILE (make_unibyte_string (filename
,
4549 strlen (filename
)));
4551 NavDisposeReply(&reply
);
4555 NavDialogDispose(dialogRef
);
4560 /* Fall back on minibuffer if there was a problem */
4561 file
= Fcompleting_read (prompt
, intern ("read-file-name-internal"),
4562 dir
, mustmatch
, dir
, Qfile_name_history
,
4563 default_filename
, Qnil
);
4569 /* Make "Cancel" equivalent to C-g. */
4571 Fsignal (Qquit
, Qnil
);
4573 return unbind_to (count
, file
);
4577 /* Need to register some event callback function for enabling drag and
4578 drop in Navigation Service dialogs. */
4580 mac_nav_event_callback (selector
, parms
, data
)
4581 NavEventCallbackMessage selector
;
4588 /***********************************************************************
4590 ***********************************************************************/
4592 DEFUN ("mac-clear-font-name-table", Fmac_clear_font_name_table
,
4593 Smac_clear_font_name_table
, 0, 0, 0,
4594 doc
: /* Clear the font name table. */)
4598 mac_clear_font_name_table ();
4602 #if USE_MAC_FONT_PANEL
4603 DEFUN ("mac-set-font-panel-visible-p", Fmac_set_font_panel_visible_p
,
4604 Smac_set_font_panel_visible_p
, 1, 1, 0,
4605 doc
: /* Make the font panel visible if and only if FLAG is non-nil.
4606 This is for internal use only. Use `mac-font-panel-mode' instead. */)
4610 OSStatus err
= noErr
;
4615 if (NILP (flag
) != !mac_font_panel_visible_p ())
4617 err
= mac_show_hide_font_panel ();
4618 if (err
== noErr
&& !NILP (flag
))
4620 Lisp_Object focus_frame
= x_get_focus_frame (SELECTED_FRAME ());
4621 struct frame
*f
= (NILP (focus_frame
) ? SELECTED_FRAME ()
4622 : XFRAME (focus_frame
));
4624 mac_set_font_info_for_selection (f
, DEFAULT_FACE_ID
, 0);
4630 error ("Cannot change visibility of the font panel");
4636 extern Lisp_Object mac_atsu_font_face_attributes
P_ ((ATSUFontID
));
4638 DEFUN ("mac-atsu-font-face-attributes", Fmac_atsu_font_face_attributes
,
4639 Smac_atsu_font_face_attributes
, 1, 1, 0,
4640 doc
: /* Return plist of face attributes and values for ATSU font ID.
4641 ID is specified by either an integer or a float. */)
4649 CHECK_NUMBER_OR_FLOAT(id
);
4650 font_id
= NUMBERP (id
) ? XINT (id
) : (ATSUFontID
) XFLOAT (id
);
4652 result
= mac_atsu_font_face_attributes (font_id
);
4659 /***********************************************************************
4661 ***********************************************************************/
4663 /* Keep this list in the same order as frame_parms in frame.c.
4664 Use 0 for unsupported frame parameters. */
4666 frame_parm_handler mac_frame_parm_handlers
[] =
4670 x_set_background_color
,
4676 x_set_foreground_color
,
4678 0, /* MAC_TODO: x_set_icon_type, */
4679 x_set_internal_border_width
,
4680 x_set_menu_bar_lines
,
4682 x_explicitly_set_name
,
4683 x_set_scroll_bar_width
,
4686 x_set_vertical_scroll_bars
,
4688 x_set_tool_bar_lines
,
4689 0, /* MAC_TODO: x_set_scroll_bar_foreground, */
4690 0, /* MAC_TODO: x_set_scroll_bar_background, */
4695 0, /* x_set_wait_for_wm, */
4703 /* This is zero if not using Mac native windows. */
4706 /* Certainly running on Mac native windows. */
4710 /* The section below is built by the lisp expression at the top of the file,
4711 just above where these variables are declared. */
4712 /*&&& init symbols here &&&*/
4713 Qnone
= intern ("none");
4715 Qsuppress_icon
= intern ("suppress-icon");
4716 staticpro (&Qsuppress_icon
);
4717 Qundefined_color
= intern ("undefined-color");
4718 staticpro (&Qundefined_color
);
4719 Qcancel_timer
= intern ("cancel-timer");
4720 staticpro (&Qcancel_timer
);
4721 /* This is the end of symbol initialization. */
4723 /* Text property `display' should be nonsticky by default. */
4724 Vtext_property_default_nonsticky
4725 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
4728 Fput (Qundefined_color
, Qerror_conditions
,
4729 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
4730 Fput (Qundefined_color
, Qerror_message
,
4731 build_string ("Undefined color"));
4733 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
4734 doc
: /* The shape of the pointer when over text.
4735 Changing the value does not affect existing frames
4736 unless you set the mouse color. */);
4737 Vx_pointer_shape
= Qnil
;
4739 #if 0 /* This doesn't really do anything. */
4740 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
4741 doc
: /* The shape of the pointer when not over text.
4742 This variable takes effect when you create a new frame
4743 or when you set the mouse color. */);
4745 Vx_nontext_pointer_shape
= Qnil
;
4747 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
4748 doc
: /* The shape of the pointer when Emacs is busy.
4749 This variable takes effect when you create a new frame
4750 or when you set the mouse color. */);
4751 Vx_hourglass_pointer_shape
= Qnil
;
4753 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
4754 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
4755 display_hourglass_p
= 1;
4757 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
4758 doc
: /* *Seconds to wait before displaying an hourglass pointer.
4759 Value must be an integer or float. */);
4760 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
4762 #if 0 /* This doesn't really do anything. */
4763 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
4764 doc
: /* The shape of the pointer when over the mode line.
4765 This variable takes effect when you create a new frame
4766 or when you set the mouse color. */);
4768 Vx_mode_pointer_shape
= Qnil
;
4770 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
4771 &Vx_sensitive_text_pointer_shape
,
4772 doc
: /* The shape of the pointer when over mouse-sensitive text.
4773 This variable takes effect when you create a new frame
4774 or when you set the mouse color. */);
4775 Vx_sensitive_text_pointer_shape
= Qnil
;
4777 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
4778 &Vx_window_horizontal_drag_shape
,
4779 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
4780 This variable takes effect when you create a new frame
4781 or when you set the mouse color. */);
4782 Vx_window_horizontal_drag_shape
= Qnil
;
4784 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
4785 doc
: /* A string indicating the foreground color of the cursor box. */);
4786 Vx_cursor_fore_pixel
= Qnil
;
4788 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
4789 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
4790 Text larger than this is clipped. */);
4791 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
4793 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
4794 doc
: /* Non-nil if no window manager is in use.
4795 Emacs doesn't try to figure this out; this is always nil
4796 unless you set it to something else. */);
4797 /* We don't have any way to find this out, so set it to nil
4798 and maybe the user would like to set it to t. */
4799 Vx_no_window_manager
= Qnil
;
4801 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
4802 &Vx_pixel_size_width_font_regexp
,
4803 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
4805 Since Emacs gets width of a font matching with this regexp from
4806 PIXEL_SIZE field of the name, font finding mechanism gets faster for
4807 such a font. This is especially effective for such large fonts as
4808 Chinese, Japanese, and Korean. */);
4809 Vx_pixel_size_width_font_regexp
= Qnil
;
4811 #if TARGET_API_MAC_CARBON
4812 DEFVAR_LISP ("mac-carbon-version-string", &Vmac_carbon_version_string
,
4813 doc
: /* Version info for Carbon API. */);
4817 char carbon_version
[16] = "Unknown";
4819 err
= Gestalt (gestaltCarbonVersion
, &response
);
4821 sprintf (carbon_version
, "%u.%u.%u",
4822 (response
>> 8) & 0xf, (response
>> 4) & 0xf, response
& 0xf);
4823 Vmac_carbon_version_string
= build_string (carbon_version
);
4825 #endif /* TARGET_API_MAC_CARBON */
4827 /* X window properties. */
4828 defsubr (&Sx_change_window_property
);
4829 defsubr (&Sx_delete_window_property
);
4830 defsubr (&Sx_window_property
);
4832 defsubr (&Sxw_display_color_p
);
4833 defsubr (&Sx_display_grayscale_p
);
4834 defsubr (&Sxw_color_defined_p
);
4835 defsubr (&Sxw_color_values
);
4836 defsubr (&Sx_server_max_request_size
);
4837 defsubr (&Sx_server_vendor
);
4838 defsubr (&Sx_server_version
);
4839 defsubr (&Sx_display_pixel_width
);
4840 defsubr (&Sx_display_pixel_height
);
4841 defsubr (&Sx_display_mm_width
);
4842 defsubr (&Sx_display_mm_height
);
4843 defsubr (&Sx_display_screens
);
4844 defsubr (&Sx_display_planes
);
4845 defsubr (&Sx_display_color_cells
);
4846 defsubr (&Sx_display_visual_class
);
4847 defsubr (&Sx_display_backing_store
);
4848 defsubr (&Sx_display_save_under
);
4849 defsubr (&Sx_create_frame
);
4850 defsubr (&Sx_open_connection
);
4851 defsubr (&Sx_close_connection
);
4852 defsubr (&Sx_display_list
);
4853 defsubr (&Sx_synchronize
);
4854 defsubr (&Sx_focus_frame
);
4856 /* Setting callback functions for fontset handler. */
4857 get_font_info_func
= x_get_font_info
;
4859 #if 0 /* This function pointer doesn't seem to be used anywhere.
4860 And the pointer assigned has the wrong type, anyway. */
4861 list_fonts_func
= x_list_fonts
;
4864 load_font_func
= x_load_font
;
4865 find_ccl_program_func
= x_find_ccl_program
;
4866 query_font_func
= x_query_font
;
4867 set_frame_fontset_func
= mac_set_font
;
4868 check_window_system_func
= check_mac
;
4870 hourglass_atimer
= NULL
;
4871 hourglass_shown_p
= 0;
4873 defsubr (&Sx_show_tip
);
4874 defsubr (&Sx_hide_tip
);
4876 staticpro (&tip_timer
);
4878 staticpro (&tip_frame
);
4880 last_show_tip_args
= Qnil
;
4881 staticpro (&last_show_tip_args
);
4883 #if TARGET_API_MAC_CARBON
4884 defsubr (&Sx_file_dialog
);
4886 defsubr (&Smac_clear_font_name_table
);
4887 #if USE_MAC_FONT_PANEL
4888 defsubr (&Smac_set_font_panel_visible_p
);
4891 defsubr (&Smac_atsu_font_face_attributes
);
4895 /* arch-tag: d7591289-f374-4377-b245-12f5dbbb8edc
4896 (do not change this comment) */