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.
1873 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1874 name; if NAME is a string, set F's name to NAME and set
1875 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1877 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1878 suggesting a new name, which lisp code should override; if
1879 F->explicit_name is set, ignore the new name; otherwise, set it. */
1882 x_set_title (f
, name
, old_name
)
1884 Lisp_Object name
, old_name
;
1886 /* Don't change the title if it's already NAME. */
1887 if (EQ (name
, f
->title
))
1890 update_mode_lines
= 1;
1897 CHECK_STRING (name
);
1899 x_set_name_internal (f
, name
);
1903 x_set_scroll_bar_default_width (f
)
1906 /* Imitate X without X Toolkit */
1908 int wid
= FRAME_COLUMN_WIDTH (f
);
1911 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = MAC_AQUA_VERTICAL_SCROLL_BAR_WIDTH
;
1912 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) +
1914 #else /* not MAC_OSX */
1915 /* Make the actual width at least 14 pixels and a multiple of a
1917 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1919 /* Use all of that space (aside from required margins) for the
1921 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1922 #endif /* not MAC_OSX */
1926 mac_set_font (f
, arg
, oldval
)
1928 Lisp_Object arg
, oldval
;
1930 x_set_font (f
, arg
, oldval
);
1931 #if USE_MAC_FONT_PANEL
1933 Lisp_Object focus_frame
= x_get_focus_frame (f
);
1935 if ((NILP (focus_frame
) && f
== SELECTED_FRAME ())
1936 || XFRAME (focus_frame
) == f
)
1939 mac_set_font_info_for_selection (f
, DEFAULT_FACE_ID
, 0);
1946 #if TARGET_API_MAC_CARBON
1948 mac_update_proxy_icon (f
)
1952 Lisp_Object file_name
=
1953 XBUFFER (XWINDOW (FRAME_SELECTED_WINDOW (f
))->buffer
)->filename
;
1954 Window w
= FRAME_MAC_WINDOW (f
);
1955 AliasHandle alias
= NULL
;
1959 err
= GetWindowProxyAlias (w
, &alias
);
1960 if (err
== errWindowDoesNotHaveProxy
&& !STRINGP (file_name
))
1963 if (STRINGP (file_name
))
1967 FSRef fref
, fref_proxy
;
1969 FSSpec fss
, fss_proxy
;
1972 Lisp_Object encoded_file_name
= ENCODE_FILE (file_name
);
1975 err
= AECoercePtr (TYPE_FILE_NAME
, SDATA (encoded_file_name
),
1976 SBYTES (encoded_file_name
), typeFSRef
, &desc
);
1978 SetPortWindowPort (w
);
1979 err
= AECoercePtr (TYPE_FILE_NAME
, SDATA (encoded_file_name
),
1980 SBYTES (encoded_file_name
), typeFSS
, &desc
);
1985 err
= AEGetDescData (&desc
, &fref
, sizeof (FSRef
));
1987 err
= AEGetDescData (&desc
, &fss
, sizeof (FSSpec
));
1989 AEDisposeDesc (&desc
);
1995 /* (FS)ResolveAlias never sets `changed' to true if
1996 `alias' is minimal. */
1998 err
= FSResolveAlias (NULL
, alias
, &fref_proxy
, &changed
);
2000 err
= FSCompareFSRefs (&fref
, &fref_proxy
);
2002 err
= ResolveAlias (NULL
, alias
, &fss_proxy
, &changed
);
2004 err
= !(fss
.vRefNum
== fss_proxy
.vRefNum
2005 && fss
.parID
== fss_proxy
.parID
2006 && EqualString (fss
.name
, fss_proxy
.name
,
2010 if (err
!= noErr
|| alias
== NULL
)
2013 DisposeHandle ((Handle
) alias
);
2015 err
= FSNewAliasMinimal (&fref
, &alias
);
2017 err
= NewAliasMinimal (&fss
, &alias
);
2024 err
= SetWindowProxyAlias (w
, alias
);
2028 DisposeHandle ((Handle
) alias
);
2030 if (err
!= noErr
|| !STRINGP (file_name
))
2031 RemoveWindowProxy (w
);
2039 mac_update_title_bar (f
, save_match_data
)
2041 int save_match_data
;
2043 #if TARGET_API_MAC_CARBON
2047 if (!FRAME_MAC_P (f
))
2050 w
= XWINDOW (FRAME_SELECTED_WINDOW (f
));
2051 modified_p
= (BUF_SAVE_MODIFF (XBUFFER (w
->buffer
))
2052 < BUF_MODIFF (XBUFFER (w
->buffer
)));
2053 if (windows_or_buffers_changed
2054 /* Minibuffer modification status shown in the close button is
2056 || (!MINI_WINDOW_P (w
)
2057 && (modified_p
!= !NILP (w
->last_had_star
))))
2059 SetWindowModified (FRAME_MAC_WINDOW (f
),
2060 !MINI_WINDOW_P (w
) && modified_p
);
2061 mac_update_proxy_icon (f
);
2067 /* Subroutines of creating a frame. */
2069 /* Retrieve the string resource specified by NAME with CLASS from
2072 The return value points to the contents of a Lisp string. So it
2073 will not be valid after the next GC where string compaction will
2077 x_get_string_resource (rdb
, name
, class)
2081 Lisp_Object value
= xrm_get_resource (rdb
, name
, class);
2083 if (STRINGP (value
))
2084 return SDATA (value
);
2089 /* Return the value of parameter PARAM.
2091 First search ALIST, then Vdefault_frame_alist, then the X defaults
2092 database, using ATTRIBUTE as the attribute name and CLASS as its class.
2094 Convert the resource to the type specified by desired_type.
2096 If no default is specified, return Qunbound. If you call
2097 mac_get_arg, make sure you deal with Qunbound in a reasonable way,
2098 and don't let it get stored in any Lisp-visible variables! */
2101 mac_get_arg (alist
, param
, attribute
, class, type
)
2102 Lisp_Object alist
, param
;
2105 enum resource_types type
;
2107 return x_get_arg (check_x_display_info (Qnil
),
2108 alist
, param
, attribute
, class, type
);
2112 /* XParseGeometry copied from w32xfns.c */
2115 * XParseGeometry parses strings of the form
2116 * "=<width>x<height>{+-}<xoffset>{+-}<yoffset>", where
2117 * width, height, xoffset, and yoffset are unsigned integers.
2118 * Example: "=80x24+300-49"
2119 * The equal sign is optional.
2120 * It returns a bitmask that indicates which of the four values
2121 * were actually found in the string. For each value found,
2122 * the corresponding argument is updated; for each value
2123 * not found, the corresponding argument is left unchanged.
2127 read_integer (string
, NextString
)
2128 register char *string
;
2131 register int Result
= 0;
2136 else if (*string
== '-')
2141 for (; (*string
>= '0') && (*string
<= '9'); string
++)
2143 Result
= (Result
* 10) + (*string
- '0');
2145 *NextString
= string
;
2153 XParseGeometry (string
, x
, y
, width
, height
)
2156 unsigned int *width
, *height
; /* RETURN */
2159 register char *strind
;
2160 unsigned int tempWidth
, tempHeight
;
2162 char *nextCharacter
;
2164 if ((string
== NULL
) || (*string
== '\0')) return (mask
);
2166 string
++; /* ignore possible '=' at beg of geometry spec */
2168 strind
= (char *)string
;
2169 if (*strind
!= '+' && *strind
!= '-' && *strind
!= 'x')
2171 tempWidth
= read_integer (strind
, &nextCharacter
);
2172 if (strind
== nextCharacter
)
2174 strind
= nextCharacter
;
2178 if (*strind
== 'x' || *strind
== 'X')
2181 tempHeight
= read_integer (strind
, &nextCharacter
);
2182 if (strind
== nextCharacter
)
2184 strind
= nextCharacter
;
2185 mask
|= HeightValue
;
2188 if ((*strind
== '+') || (*strind
== '-'))
2193 tempX
= -read_integer (strind
, &nextCharacter
);
2194 if (strind
== nextCharacter
)
2196 strind
= nextCharacter
;
2203 tempX
= read_integer (strind
, &nextCharacter
);
2204 if (strind
== nextCharacter
)
2206 strind
= nextCharacter
;
2209 if ((*strind
== '+') || (*strind
== '-'))
2214 tempY
= -read_integer (strind
, &nextCharacter
);
2215 if (strind
== nextCharacter
)
2217 strind
= nextCharacter
;
2224 tempY
= read_integer (strind
, &nextCharacter
);
2225 if (strind
== nextCharacter
)
2227 strind
= nextCharacter
;
2233 /* If strind isn't at the end of the string the it's an invalid
2234 geometry specification. */
2236 if (*strind
!= '\0') return (0);
2242 if (mask
& WidthValue
)
2244 if (mask
& HeightValue
)
2245 *height
= tempHeight
;
2250 /* Create and set up the Mac window for frame F. */
2253 mac_window (f
, window_prompting
, minibuffer_only
)
2255 long window_prompting
;
2256 int minibuffer_only
;
2262 SetRect (&r
, f
->left_pos
, f
->top_pos
,
2263 f
->left_pos
+ FRAME_PIXEL_WIDTH (f
),
2264 f
->top_pos
+ FRAME_PIXEL_HEIGHT (f
));
2265 #if TARGET_API_MAC_CARBON
2266 CreateNewWindow (kDocumentWindowClass
,
2267 kWindowStandardDocumentAttributes
2269 | kWindowToolbarButtonAttribute
2271 , &r
, &FRAME_MAC_WINDOW (f
));
2272 if (FRAME_MAC_WINDOW (f
))
2274 SetWRefCon (FRAME_MAC_WINDOW (f
), (long) f
->output_data
.mac
);
2275 if (install_window_handler (FRAME_MAC_WINDOW (f
)) != noErr
)
2277 DisposeWindow (FRAME_MAC_WINDOW (f
));
2278 FRAME_MAC_WINDOW (f
) = NULL
;
2281 #else /* !TARGET_API_MAC_CARBON */
2282 FRAME_MAC_WINDOW (f
)
2283 = NewCWindow (NULL
, &r
, "\p", false, zoomDocProc
,
2284 (WindowRef
) -1, 1, (long) f
->output_data
.mac
);
2285 #endif /* !TARGET_API_MAC_CARBON */
2286 /* so that update events can find this mac_output struct */
2287 f
->output_data
.mac
->mFP
= f
; /* point back to emacs frame */
2290 if (FRAME_MAC_WINDOW (f
))
2292 ControlRef root_control
;
2294 if (CreateRootControl (FRAME_MAC_WINDOW (f
), &root_control
) != noErr
)
2296 DisposeWindow (FRAME_MAC_WINDOW (f
));
2297 FRAME_MAC_WINDOW (f
) = NULL
;
2301 if (FRAME_MAC_WINDOW (f
))
2302 XSetWindowBackground (FRAME_MAC_DISPLAY(f
), FRAME_MAC_WINDOW (f
),
2303 FRAME_BACKGROUND_PIXEL (f
));
2306 /* At the moment, the size of the tool bar is not yet known. We
2307 record the gravity value of the newly created window and use it
2308 to adjust the position of the window (especially for a negative
2309 specification of its vertical position) when the tool bar is
2310 first redisplayed. */
2311 if (FRAME_EXTERNAL_TOOL_BAR (f
))
2312 f
->output_data
.mac
->toolbar_win_gravity
= f
->win_gravity
;
2315 validate_x_resource_name ();
2317 /* x_set_name normally ignores requests to set the name if the
2318 requested name is the same as the current name. This is the one
2319 place where that assumption isn't correct; f->name is set, but
2320 the server hasn't been told. */
2323 int explicit = f
->explicit_name
;
2325 f
->explicit_name
= 0;
2328 x_set_name (f
, name
, explicit);
2333 if (FRAME_MAC_WINDOW (f
) == 0)
2334 error ("Unable to create window");
2337 /* Handle the icon stuff for this window. Perhaps later we might
2338 want an x_set_icon_position which can be called interactively as
2346 Lisp_Object icon_x
, icon_y
;
2348 /* Set the position of the icon. Note that Windows 95 groups all
2349 icons in the tray. */
2350 icon_x
= mac_get_arg (parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2351 icon_y
= mac_get_arg (parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2352 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2354 CHECK_NUMBER (icon_x
);
2355 CHECK_NUMBER (icon_y
);
2357 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2358 error ("Both left and top icon corners of icon must be specified");
2362 if (! EQ (icon_x
, Qunbound
))
2363 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2366 /* Start up iconic or window? */
2367 x_wm_set_window_state
2368 (f
, (EQ (w32_get_arg (parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
), Qicon
)
2372 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2385 XGCValues gc_values
;
2389 /* Create the GCs of this frame.
2390 Note that many default values are used. */
2393 gc_values
.font
= FRAME_FONT (f
);
2394 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2395 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2396 f
->output_data
.mac
->normal_gc
= XCreateGC (FRAME_MAC_DISPLAY (f
),
2397 FRAME_MAC_WINDOW (f
),
2398 GCFont
| GCForeground
| GCBackground
,
2401 /* Reverse video style. */
2402 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2403 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2404 f
->output_data
.mac
->reverse_gc
= XCreateGC (FRAME_MAC_DISPLAY (f
),
2405 FRAME_MAC_WINDOW (f
),
2406 GCFont
| GCForeground
| GCBackground
,
2409 /* Cursor has cursor-color background, background-color foreground. */
2410 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2411 gc_values
.background
= f
->output_data
.mac
->cursor_pixel
;
2412 f
->output_data
.mac
->cursor_gc
= XCreateGC (FRAME_MAC_DISPLAY (f
),
2413 FRAME_MAC_WINDOW (f
),
2414 GCFont
| GCForeground
| GCBackground
,
2418 f
->output_data
.mac
->white_relief
.gc
= 0;
2419 f
->output_data
.mac
->black_relief
.gc
= 0;
2422 /* Create the gray border tile used when the pointer is not in
2423 the frame. Since this depends on the frame's pixel values,
2424 this must be done on a per-frame basis. */
2425 f
->output_data
.x
->border_tile
2426 = (XCreatePixmapFromBitmapData
2427 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2428 gray_bits
, gray_width
, gray_height
,
2429 FRAME_FOREGROUND_PIXEL (f
),
2430 FRAME_BACKGROUND_PIXEL (f
),
2431 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2438 /* Free what was was allocated in x_make_gc. */
2444 Display
*dpy
= FRAME_MAC_DISPLAY (f
);
2448 if (f
->output_data
.mac
->normal_gc
)
2450 XFreeGC (dpy
, f
->output_data
.mac
->normal_gc
);
2451 f
->output_data
.mac
->normal_gc
= 0;
2454 if (f
->output_data
.mac
->reverse_gc
)
2456 XFreeGC (dpy
, f
->output_data
.mac
->reverse_gc
);
2457 f
->output_data
.mac
->reverse_gc
= 0;
2460 if (f
->output_data
.mac
->cursor_gc
)
2462 XFreeGC (dpy
, f
->output_data
.mac
->cursor_gc
);
2463 f
->output_data
.mac
->cursor_gc
= 0;
2467 if (f
->output_data
.mac
->border_tile
)
2469 XFreePixmap (dpy
, f
->output_data
.mac
->border_tile
);
2470 f
->output_data
.mac
->border_tile
= 0;
2474 if (f
->output_data
.mac
->white_relief
.gc
)
2476 XFreeGC (dpy
, f
->output_data
.mac
->white_relief
.gc
);
2477 f
->output_data
.mac
->white_relief
.gc
= 0;
2480 if (f
->output_data
.mac
->black_relief
.gc
)
2482 XFreeGC (dpy
, f
->output_data
.mac
->black_relief
.gc
);
2483 f
->output_data
.mac
->black_relief
.gc
= 0;
2490 /* Handler for signals raised during x_create_frame and
2491 x_create_top_frame. FRAME is the frame which is partially
2495 unwind_create_frame (frame
)
2498 struct frame
*f
= XFRAME (frame
);
2500 /* If frame is ``official'', nothing to do. */
2501 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2504 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2507 x_free_frame_resources (f
);
2510 /* Check that reference counts are indeed correct. */
2511 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2512 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2521 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2523 doc
: /* Make a new window, which is called a "frame" in Emacs terms.
2524 Returns an Emacs frame object.
2525 PARAMETERS is an alist of frame parameters.
2526 If the parameters specify that the frame should not have a minibuffer,
2527 and do not specify a specific minibuffer window to use,
2528 then `default-minibuffer-frame' must be a frame whose minibuffer can
2529 be shared by the new frame.
2531 This function is an internal primitive--use `make-frame' instead. */)
2533 Lisp_Object parameters
;
2536 Lisp_Object frame
, tem
;
2538 int minibuffer_only
= 0;
2539 long window_prompting
= 0;
2541 int count
= SPECPDL_INDEX ();
2542 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
2543 Lisp_Object display
;
2544 struct mac_display_info
*dpyinfo
= NULL
;
2550 /* Use this general default value to start with
2551 until we know if this frame has a specified name. */
2552 Vx_resource_name
= Vinvocation_name
;
2554 display
= mac_get_arg (parameters
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
2555 if (EQ (display
, Qunbound
))
2557 dpyinfo
= check_x_display_info (display
);
2559 kb
= dpyinfo
->terminal
->kboard
;
2561 kb
= &the_only_kboard
;
2564 name
= mac_get_arg (parameters
, Qname
, "name", "Name", RES_TYPE_STRING
);
2566 && ! EQ (name
, Qunbound
)
2568 error ("Invalid frame name--not a string or nil");
2571 Vx_resource_name
= name
;
2573 /* See if parent window is specified. */
2574 parent
= mac_get_arg (parameters
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
2575 if (EQ (parent
, Qunbound
))
2577 if (! NILP (parent
))
2578 CHECK_NUMBER (parent
);
2580 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
2581 /* No need to protect DISPLAY because that's not used after passing
2582 it to make_frame_without_minibuffer. */
2584 GCPRO4 (parameters
, parent
, name
, frame
);
2585 tem
= mac_get_arg (parameters
, Qminibuffer
, "minibuffer", "Minibuffer",
2587 if (EQ (tem
, Qnone
) || NILP (tem
))
2588 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
2589 else if (EQ (tem
, Qonly
))
2591 f
= make_minibuffer_frame ();
2592 minibuffer_only
= 1;
2594 else if (WINDOWP (tem
))
2595 f
= make_frame_without_minibuffer (tem
, kb
, display
);
2599 XSETFRAME (frame
, f
);
2601 /* Note that X Windows does support scroll bars. */
2602 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
2604 f
->terminal
= dpyinfo
->terminal
;
2605 f
->terminal
->reference_count
++;
2607 f
->output_method
= output_mac
;
2608 f
->output_data
.mac
= (struct mac_output
*) xmalloc (sizeof (struct mac_output
));
2609 bzero (f
->output_data
.mac
, sizeof (struct mac_output
));
2610 FRAME_FONTSET (f
) = -1;
2611 record_unwind_protect (unwind_create_frame
, frame
);
2614 = mac_get_arg (parameters
, Qicon_name
, "iconName", "Title", RES_TYPE_STRING
);
2615 if (! STRINGP (f
->icon_name
))
2616 f
->icon_name
= Qnil
;
2618 /* XXX Is this needed? */
2619 /*FRAME_MAC_DISPLAY_INFO (f) = dpyinfo;*/
2621 /* With FRAME_MAC_DISPLAY_INFO set up, this unwind-protect is safe. */
2623 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
2624 dpyinfo_refcount
= dpyinfo
->reference_count
;
2625 #endif /* GLYPH_DEBUG */
2627 FRAME_KBOARD (f
) = kb
;
2630 /* Specify the parent under which to make this window. */
2634 f
->output_data
.mac
->parent_desc
= (Window
) XFASTINT (parent
);
2635 f
->output_data
.mac
->explicit_parent
= 1;
2639 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
2640 f
->output_data
.mac
->explicit_parent
= 0;
2643 /* Set the name; the functions to which we pass f expect the name to
2645 if (EQ (name
, Qunbound
) || NILP (name
))
2647 f
->name
= build_string (dpyinfo
->mac_id_name
);
2648 f
->explicit_name
= 0;
2653 f
->explicit_name
= 1;
2654 /* use the frame's title when getting resources for this frame. */
2655 specbind (Qx_resource_name
, name
);
2658 /* Extract the window parameters from the supplied values
2659 that are needed to determine window geometry. */
2663 font
= mac_get_arg (parameters
, Qfont
, "font", "Font", RES_TYPE_STRING
);
2666 /* First, try whatever font the caller has specified. */
2669 tem
= Fquery_fontset (font
, Qnil
);
2671 font
= x_new_fontset (f
, SDATA (tem
));
2673 font
= x_new_font (f
, SDATA (font
));
2675 /* Try out a font which we hope has bold and italic variations. */
2677 if (! STRINGP (font
))
2678 font
= x_new_font (f
, "-*-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1");
2680 if (! STRINGP (font
))
2681 font
= x_new_font (f
, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1");
2682 /* If those didn't work, look for something which will at least work. */
2683 if (! STRINGP (font
))
2684 font
= x_new_fontset (f
, "fontset-standard");
2685 if (! STRINGP (font
))
2686 font
= x_new_font (f
, "-*-monaco-*-12-*-mac-roman");
2687 if (! STRINGP (font
))
2688 font
= x_new_font (f
, "-*-courier-*-10-*-mac-roman");
2689 if (! STRINGP (font
))
2690 error ("Cannot find any usable font");
2693 x_default_parameter (f
, parameters
, Qfont
, font
,
2694 "font", "Font", RES_TYPE_STRING
);
2697 /* XXX Shouldn't this be borderWidth, not borderwidth ?*/
2698 x_default_parameter (f
, parameters
, Qborder_width
, make_number (0),
2699 "borderwidth", "BorderWidth", RES_TYPE_NUMBER
);
2700 /* This defaults to 2 in order to match xterm. We recognize either
2701 internalBorderWidth or internalBorder (which is what xterm calls
2703 if (NILP (Fassq (Qinternal_border_width
, parameters
)))
2707 value
= mac_get_arg (parameters
, Qinternal_border_width
,
2708 "internalBorder", "InternalBorder", RES_TYPE_NUMBER
);
2709 if (! EQ (value
, Qunbound
))
2710 parameters
= Fcons (Fcons (Qinternal_border_width
, value
),
2713 /* Default internalBorderWidth to 0 on Windows to match other programs. */
2714 x_default_parameter (f
, parameters
, Qinternal_border_width
, make_number (0),
2715 "internalBorderWidth", "InternalBorder", RES_TYPE_NUMBER
);
2716 x_default_parameter (f
, parameters
, Qvertical_scroll_bars
, Qright
,
2717 "verticalScrollBars", "ScrollBars", RES_TYPE_SYMBOL
);
2719 /* Also do the stuff which must be set before the window exists. */
2720 x_default_parameter (f
, parameters
, Qforeground_color
, build_string ("black"),
2721 "foreground", "Foreground", RES_TYPE_STRING
);
2722 x_default_parameter (f
, parameters
, Qbackground_color
, build_string ("white"),
2723 "background", "Background", RES_TYPE_STRING
);
2724 x_default_parameter (f
, parameters
, Qmouse_color
, build_string ("black"),
2725 "pointerColor", "Foreground", RES_TYPE_STRING
);
2726 x_default_parameter (f
, parameters
, Qcursor_color
, build_string ("black"),
2727 "cursorColor", "Foreground", RES_TYPE_STRING
);
2728 x_default_parameter (f
, parameters
, Qborder_color
, build_string ("black"),
2729 "borderColor", "BorderColor", RES_TYPE_STRING
);
2730 x_default_parameter (f
, parameters
, Qscreen_gamma
, Qnil
,
2731 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
2732 x_default_parameter (f
, parameters
, Qline_spacing
, Qnil
,
2733 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
2734 x_default_parameter (f
, parameters
, Qleft_fringe
, Qnil
,
2735 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
2736 x_default_parameter (f
, parameters
, Qright_fringe
, Qnil
,
2737 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
2740 /* Init faces before x_default_parameter is called for scroll-bar
2741 parameters because that function calls x_set_scroll_bar_width,
2742 which calls change_frame_size, which calls Fset_window_buffer,
2743 which runs hooks, which call Fvertical_motion. At the end, we
2744 end up in init_iterator with a null face cache, which should not
2746 init_frame_faces (f
);
2748 x_default_parameter (f
, parameters
, Qmenu_bar_lines
, make_number (1),
2749 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
2750 x_default_parameter (f
, parameters
, Qtool_bar_lines
, make_number (1),
2751 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
2753 x_default_parameter (f
, parameters
, Qbuffer_predicate
, Qnil
,
2754 "bufferPredicate", "BufferPredicate", RES_TYPE_SYMBOL
);
2755 x_default_parameter (f
, parameters
, Qtitle
, Qnil
,
2756 "title", "Title", RES_TYPE_STRING
);
2757 x_default_parameter (f
, parameters
, Qfullscreen
, Qnil
,
2758 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
2760 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
2762 /* Compute the size of the window. */
2763 window_prompting
= x_figure_window_size (f
, parameters
, 1);
2765 tem
= mac_get_arg (parameters
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
2766 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
2768 mac_window (f
, window_prompting
, minibuffer_only
);
2769 x_icon (f
, parameters
);
2773 /* Now consider the frame official. */
2774 FRAME_MAC_DISPLAY_INFO (f
)->reference_count
++;
2775 Vframe_list
= Fcons (frame
, Vframe_list
);
2777 /* We need to do this after creating the window, so that the
2778 icon-creation functions can say whose icon they're describing. */
2779 x_default_parameter (f
, parameters
, Qicon_type
, Qnil
,
2780 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
2782 x_default_parameter (f
, parameters
, Qauto_raise
, Qnil
,
2783 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
2784 x_default_parameter (f
, parameters
, Qauto_lower
, Qnil
,
2785 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
2786 x_default_parameter (f
, parameters
, Qcursor_type
, Qbox
,
2787 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
2788 x_default_parameter (f
, parameters
, Qscroll_bar_width
, Qnil
,
2789 "scrollBarWidth", "ScrollBarWidth", RES_TYPE_NUMBER
);
2791 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
2792 Change will not be effected unless different from the current
2794 width
= FRAME_COLS (f
);
2795 height
= FRAME_LINES (f
);
2797 FRAME_LINES (f
) = 0;
2798 SET_FRAME_COLS (f
, 0);
2799 change_frame_size (f
, height
, width
, 1, 0, 0);
2801 /* Tell the server what size and position, etc, we want, and how
2802 badly we want them. This should be done after we have the menu
2803 bar so that its size can be taken into account. */
2805 x_wm_set_size_hint (f
, window_prompting
, 0);
2808 /* Make the window appear on the frame and enable display, unless
2809 the caller says not to. However, with explicit parent, Emacs
2810 cannot control visibility, so don't try. */
2811 if (! f
->output_data
.mac
->explicit_parent
)
2813 Lisp_Object visibility
;
2815 visibility
= mac_get_arg (parameters
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
);
2816 if (EQ (visibility
, Qunbound
))
2819 if (EQ (visibility
, Qicon
))
2820 x_iconify_frame (f
);
2821 else if (! NILP (visibility
))
2822 x_make_frame_visible (f
);
2824 /* Must have been Qnil. */
2828 /* Initialize `default-minibuffer-frame' in case this is the first
2829 frame on this display device. */
2830 if (FRAME_HAS_MINIBUF_P (f
)
2831 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
2832 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
2833 kb
->Vdefault_minibuffer_frame
= frame
;
2835 /* All remaining specified parameters, which have not been "used"
2836 by x_get_arg and friends, now go in the misc. alist of the frame. */
2837 for (tem
= parameters
; !NILP (tem
); tem
= XCDR (tem
))
2838 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
2839 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
2841 store_frame_param (f
, Qwindow_system
, Qmac
);
2845 /* Make sure windows on this frame appear in calls to next-window
2846 and similar functions. */
2847 Vwindow_list
= Qnil
;
2849 return unbind_to (count
, frame
);
2853 /* FRAME is used only to get a handle on the X display. We don't pass the
2854 display info directly because we're called from frame.c, which doesn't
2855 know about that structure. */
2858 x_get_focus_frame (frame
)
2859 struct frame
*frame
;
2861 struct mac_display_info
*dpyinfo
= FRAME_MAC_DISPLAY_INFO (frame
);
2863 if (! dpyinfo
->x_focus_frame
)
2866 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
2871 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
2872 doc
: /* Set the input focus to FRAME.
2873 FRAME nil means use the selected frame. */)
2878 ProcessSerialNumber front_psn
;
2879 static const ProcessSerialNumber current_psn
= {0, kCurrentProcess
};
2881 struct frame
*f
= check_x_frame (frame
);
2884 /* Move the current process to the foreground if it is not. Don't
2885 call SetFrontProcess if the current process is already running in
2886 the foreground so as not to change the z-order of windows. */
2887 err
= GetFrontProcess (&front_psn
);
2889 err
= SameProcess (&front_psn
, ¤t_psn
, &front_p
);
2893 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
2894 if (FrontNonFloatingWindow () == FRAME_MAC_WINDOW (f
))
2895 SetFrontProcessWithOptions (¤t_psn
,
2896 kSetFrontProcessFrontWindowOnly
);
2899 SetFrontProcess (¤t_psn
);
2903 ActivateWindow (ActiveNonFloatingWindow (), false);
2904 ActivateWindow (FRAME_MAC_WINDOW (f
), true);
2906 #if !TARGET_API_MAC_CARBON
2907 /* SelectWindow (Non-Carbon) does not issue deactivate events if the
2908 possibly inactive window that is to be selected is already the
2910 SendBehind (FRAME_MAC_WINDOW (f
), NULL
);
2912 /* This brings the window to the front. */
2913 SelectWindow (FRAME_MAC_WINDOW (f
));
2921 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
2922 doc
: /* Internal function called by `color-defined-p', which see. */)
2924 Lisp_Object color
, frame
;
2927 FRAME_PTR f
= check_x_frame (frame
);
2929 CHECK_STRING (color
);
2931 if (mac_defined_color (f
, SDATA (color
), &foo
, 0))
2937 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
2938 doc
: /* Internal function called by `color-values', which see. */)
2940 Lisp_Object color
, frame
;
2943 FRAME_PTR f
= check_x_frame (frame
);
2945 CHECK_STRING (color
);
2947 if (mac_defined_color (f
, SDATA (color
), &foo
, 0))
2948 return list3 (make_number (foo
.red
),
2949 make_number (foo
.green
),
2950 make_number (foo
.blue
));
2955 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
2956 doc
: /* Internal function called by `display-color-p', which see. */)
2958 Lisp_Object display
;
2960 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2962 if (!dpyinfo
->color_p
)
2968 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
2970 doc
: /* Return t if DISPLAY supports shades of gray.
2971 Note that color displays do support shades of gray.
2972 The optional argument DISPLAY specifies which display to ask about.
2973 DISPLAY should be either a frame or a display name (a string).
2974 If omitted or nil, that stands for the selected frame's display. */)
2976 Lisp_Object display
;
2978 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2980 if (dpyinfo
->n_planes
<= 1)
2986 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
2988 doc
: /* Returns the width in pixels of DISPLAY.
2989 The optional argument DISPLAY specifies which display to ask about.
2990 DISPLAY should be either a frame or a display name (a string).
2991 If omitted or nil, that stands for the selected frame's display. */)
2993 Lisp_Object display
;
2995 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2997 return make_number (dpyinfo
->width
);
3000 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3001 Sx_display_pixel_height
, 0, 1, 0,
3002 doc
: /* Returns the height in pixels of DISPLAY.
3003 The optional argument DISPLAY specifies which display to ask about.
3004 DISPLAY should be either a frame or a display name (a string).
3005 If omitted or nil, that stands for the selected frame's display. */)
3007 Lisp_Object display
;
3009 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3011 return make_number (dpyinfo
->height
);
3014 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3016 doc
: /* Returns the number of bitplanes of DISPLAY.
3017 The optional argument DISPLAY specifies which display to ask about.
3018 DISPLAY should be either a frame or a display name (a string).
3019 If omitted or nil, that stands for the selected frame's display. */)
3021 Lisp_Object display
;
3023 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3025 return make_number (dpyinfo
->n_planes
);
3028 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3030 doc
: /* Returns the number of color cells of DISPLAY.
3031 The optional argument DISPLAY specifies which display to ask about.
3032 DISPLAY should be either a frame or a display name (a string).
3033 If omitted or nil, that stands for the selected frame's display. */)
3035 Lisp_Object display
;
3037 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3039 /* We force 24+ bit depths to 24-bit to prevent an overflow. */
3040 return make_number (1 << min (dpyinfo
->n_planes
, 24));
3043 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3044 Sx_server_max_request_size
,
3046 doc
: /* Returns the maximum request size of the server of DISPLAY.
3047 The optional argument DISPLAY specifies which display to ask about.
3048 DISPLAY should be either a frame or a display name (a string).
3049 If omitted or nil, that stands for the selected frame's display. */)
3051 Lisp_Object display
;
3053 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3055 return make_number (1);
3058 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3059 doc
: /* Returns the "vendor ID" string of the Mac OS system (Apple).
3060 The optional argument DISPLAY specifies which display to ask about.
3061 DISPLAY should be either a frame or a display name (a string).
3062 If omitted or nil, that stands for the selected frame's display. */)
3064 Lisp_Object display
;
3066 return build_string ("Apple Inc.");
3069 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3070 doc
: /* Returns the version numbers of the Mac OS system.
3071 The value is a list of three integers: the major and minor
3072 version numbers, and the vendor-specific release
3073 number. See also the function `x-server-vendor'.
3075 The optional argument DISPLAY specifies which display to ask about.
3076 DISPLAY should be either a frame or a display name (a string).
3077 If omitted or nil, that stands for the selected frame's display. */)
3079 Lisp_Object display
;
3081 UInt32 response
, major
, minor
, bugfix
;
3085 err
= Gestalt (gestaltSystemVersion
, &response
);
3088 if (response
>= 0x00001040)
3090 err
= Gestalt (gestaltSystemVersionMajor
, &major
);
3092 err
= Gestalt (gestaltSystemVersionMinor
, &minor
);
3094 err
= Gestalt (gestaltSystemVersionBugFix
, &bugfix
);
3098 bugfix
= response
& 0xf;
3100 minor
= response
& 0xf;
3102 /* convert BCD to int */
3103 major
= response
- (response
>> 4) * 6;
3109 error ("Cannot get Mac OS version");
3111 return Fcons (make_number (major
),
3112 Fcons (make_number (minor
),
3113 Fcons (make_number (bugfix
),
3117 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3118 doc
: /* Return the number of screens on the server of DISPLAY.
3119 The optional argument DISPLAY specifies which display to ask about.
3120 DISPLAY should be either a frame or a display name (a string).
3121 If omitted or nil, that stands for the selected frame's display. */)
3123 Lisp_Object display
;
3125 return make_number (1);
3128 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3129 doc
: /* Return the height in millimeters of DISPLAY.
3130 The optional argument DISPLAY specifies which display to ask about.
3131 DISPLAY should be either a frame or a display name (a string).
3132 If omitted or nil, that stands for the selected frame's display. */)
3134 Lisp_Object display
;
3136 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3139 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
3140 #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3141 if (CGDisplayScreenSize
!= NULL
)
3147 size
= CGDisplayScreenSize (kCGDirectMainDisplay
);
3148 mm_per_pixel
= size
.height
/ CGDisplayPixelsHigh (kCGDirectMainDisplay
);
3151 #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3152 else /* CGDisplayScreenSize == NULL */
3154 #endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 */
3155 #if MAC_OS_X_VERSION_MAX_ALLOWED < 1030 || MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3157 /* This is an approximation. */
3158 mm_per_pixel
= 25.4f
/ dpyinfo
->resy
;
3162 return make_number ((int) (dpyinfo
->height
* mm_per_pixel
+ 0.5f
));
3165 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3166 doc
: /* Return the width in millimeters of DISPLAY.
3167 The optional argument DISPLAY specifies which display to ask about.
3168 DISPLAY should be either a frame or a display name (a string).
3169 If omitted or nil, that stands for the selected frame's display. */)
3171 Lisp_Object display
;
3173 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3176 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
3177 #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3178 if (CGDisplayScreenSize
!= NULL
)
3184 size
= CGDisplayScreenSize (kCGDirectMainDisplay
);
3185 mm_per_pixel
= size
.width
/ CGDisplayPixelsWide (kCGDirectMainDisplay
);
3188 #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3189 else /* CGDisplayScreenSize == NULL */
3191 #endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 */
3192 #if MAC_OS_X_VERSION_MAX_ALLOWED < 1030 || MAC_OS_X_VERSION_MIN_REQUIRED == 1020
3194 /* This is an approximation. */
3195 mm_per_pixel
= 25.4f
/ dpyinfo
->resx
;
3199 return make_number ((int) (dpyinfo
->width
* mm_per_pixel
+ 0.5f
));
3202 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3203 Sx_display_backing_store
, 0, 1, 0,
3204 doc
: /* Returns an indication of whether DISPLAY does backing store.
3205 The value may be `always', `when-mapped', or `not-useful'.
3206 The optional argument DISPLAY specifies which display to ask about.
3207 DISPLAY should be either a frame or a display name (a string).
3208 If omitted or nil, that stands for the selected frame's display. */)
3210 Lisp_Object display
;
3212 return intern ("not-useful");
3215 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3216 Sx_display_visual_class
, 0, 1, 0,
3217 doc
: /* Returns the visual class of DISPLAY.
3218 The value is one of the symbols `static-gray', `gray-scale',
3219 `static-color', `pseudo-color', `true-color', or `direct-color'.
3221 The optional argument DISPLAY specifies which display to ask about.
3222 DISPLAY should be either a frame or a display name (a string).
3223 If omitted or nil, that stands for the selected frame's display. */)
3225 Lisp_Object display
;
3227 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3230 switch (dpyinfo
->visual
->class)
3232 case StaticGray
: return (intern ("static-gray"));
3233 case GrayScale
: return (intern ("gray-scale"));
3234 case StaticColor
: return (intern ("static-color"));
3235 case PseudoColor
: return (intern ("pseudo-color"));
3236 case TrueColor
: return (intern ("true-color"));
3237 case DirectColor
: return (intern ("direct-color"));
3239 error ("Display has an unknown visual class");
3243 return (intern ("true-color"));
3246 DEFUN ("x-display-save-under", Fx_display_save_under
,
3247 Sx_display_save_under
, 0, 1, 0,
3248 doc
: /* Returns t if DISPLAY supports the save-under feature.
3249 The optional argument DISPLAY specifies which display to ask about.
3250 DISPLAY should be either a frame or a display name (a string).
3251 If omitted or nil, that stands for the selected frame's display. */)
3253 Lisp_Object display
;
3260 register struct frame
*f
;
3262 return FRAME_PIXEL_WIDTH (f
);
3267 register struct frame
*f
;
3269 return FRAME_PIXEL_HEIGHT (f
);
3274 register struct frame
*f
;
3276 return FRAME_COLUMN_WIDTH (f
);
3281 register struct frame
*f
;
3283 return FRAME_LINE_HEIGHT (f
);
3288 register struct frame
*f
;
3290 return FRAME_MAC_DISPLAY_INFO (f
)->n_planes
;
3293 /* Return the display structure for the display named NAME.
3294 Open a new connection if necessary. */
3296 struct mac_display_info
*
3297 x_display_info_for_name (name
)
3301 struct mac_display_info
*dpyinfo
;
3303 CHECK_STRING (name
);
3305 for (dpyinfo
= &one_mac_display_info
, names
= x_display_name_list
;
3307 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
3310 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
3315 /* Use this general default value to start with. */
3316 Vx_resource_name
= Vinvocation_name
;
3318 validate_x_resource_name ();
3320 dpyinfo
= mac_term_init (name
, (unsigned char *) 0,
3321 (char *) SDATA (Vx_resource_name
));
3324 error ("Cannot connect to server %s", SDATA (name
));
3327 XSETFASTINT (Vwindow_system_version
, 3);
3332 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
3334 doc
: /* Open a connection to a server.
3335 DISPLAY is the name of the display to connect to.
3336 Optional second arg XRM-STRING is a string of resources in xrdb format.
3337 If the optional third arg MUST-SUCCEED is non-nil,
3338 terminate Emacs if we can't open the connection. */)
3339 (display
, xrm_string
, must_succeed
)
3340 Lisp_Object display
, xrm_string
, must_succeed
;
3342 unsigned char *xrm_option
;
3343 struct mac_display_info
*dpyinfo
;
3345 CHECK_STRING (display
);
3346 if (! NILP (xrm_string
))
3347 CHECK_STRING (xrm_string
);
3349 if (! NILP (xrm_string
))
3350 xrm_option
= (unsigned char *) SDATA (xrm_string
);
3352 xrm_option
= (unsigned char *) 0;
3354 validate_x_resource_name ();
3356 /* This is what opens the connection and sets x_current_display.
3357 This also initializes many symbols, such as those used for input. */
3358 dpyinfo
= mac_term_init (display
, xrm_option
,
3359 (char *) SDATA (Vx_resource_name
));
3363 if (!NILP (must_succeed
))
3364 fatal ("Cannot connect to server %s.\n",
3367 error ("Cannot connect to server %s", SDATA (display
));
3372 XSETFASTINT (Vwindow_system_version
, 3);
3376 DEFUN ("x-close-connection", Fx_close_connection
,
3377 Sx_close_connection
, 1, 1, 0,
3378 doc
: /* Close the connection to DISPLAY's server.
3379 For DISPLAY, specify either a frame or a display name (a string).
3380 If DISPLAY is nil, that stands for the selected frame's display. */)
3382 Lisp_Object display
;
3384 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3387 if (dpyinfo
->reference_count
> 0)
3388 error ("Display still has frames on it");
3391 /* Free the fonts in the font table. */
3392 for (i
= 0; i
< dpyinfo
->n_fonts
; i
++)
3393 if (dpyinfo
->font_table
[i
].name
)
3395 mac_unload_font (dpyinfo
, dpyinfo
->font_table
[i
].font
);
3398 x_destroy_all_bitmaps (dpyinfo
);
3400 x_delete_display (dpyinfo
);
3406 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
3407 doc
: /* Return the list of display names that Emacs has connections to. */)
3410 Lisp_Object tail
, result
;
3413 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
3414 result
= Fcons (XCAR (XCAR (tail
)), result
);
3419 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
3420 doc
: /* This is a noop on Mac OS systems. */)
3422 Lisp_Object display
, on
;
3427 /* x_sync is a no-op on Mac. */
3436 /***********************************************************************
3438 ***********************************************************************/
3440 DEFUN ("x-change-window-property", Fx_change_window_property
,
3441 Sx_change_window_property
, 2, 6, 0,
3442 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
3443 VALUE may be a string or a list of conses, numbers and/or strings.
3444 If an element in the list is a string, it is converted to
3445 an Atom and the value of the Atom is used. If an element is a cons,
3446 it is converted to a 32 bit number where the car is the 16 top bits and the
3447 cdr is the lower 16 bits.
3448 FRAME nil or omitted means use the selected frame.
3449 If TYPE is given and non-nil, it is the name of the type of VALUE.
3450 If TYPE is not given or nil, the type is STRING.
3451 FORMAT gives the size in bits of each element if VALUE is a list.
3452 It must be one of 8, 16 or 32.
3453 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
3454 If OUTER_P is non-nil, the property is changed for the outer X window of
3455 FRAME. Default is to change on the edit X window.
3458 (prop
, value
, frame
, type
, format
, outer_p
)
3459 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
3461 #if 0 /* MAC_TODO : port window properties to Mac */
3462 struct frame
*f
= check_x_frame (frame
);
3465 CHECK_STRING (prop
);
3466 CHECK_STRING (value
);
3469 prop_atom
= XInternAtom (FRAME_W32_DISPLAY (f
), SDATA (prop
), False
);
3470 XChangeProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
),
3471 prop_atom
, XA_STRING
, 8, PropModeReplace
,
3472 SDATA (value
), SCHARS (value
));
3474 /* Make sure the property is set when we return. */
3475 XFlush (FRAME_W32_DISPLAY (f
));
3478 #endif /* MAC_TODO */
3484 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
3485 Sx_delete_window_property
, 1, 2, 0,
3486 doc
: /* Remove window property PROP from X window of FRAME.
3487 FRAME nil or omitted means use the selected frame. Value is PROP. */)
3489 Lisp_Object prop
, frame
;
3491 #if 0 /* MAC_TODO : port window properties to Mac */
3493 struct frame
*f
= check_x_frame (frame
);
3496 CHECK_STRING (prop
);
3498 prop_atom
= XInternAtom (FRAME_W32_DISPLAY (f
), SDATA (prop
), False
);
3499 XDeleteProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
), prop_atom
);
3501 /* Make sure the property is removed when we return. */
3502 XFlush (FRAME_W32_DISPLAY (f
));
3504 #endif /* MAC_TODO */
3510 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
3512 doc
: /* Value is the value of window property PROP on FRAME.
3513 If FRAME is nil or omitted, use the selected frame. Value is nil
3514 if FRAME hasn't a property with name PROP or if PROP has no string
3517 Lisp_Object prop
, frame
;
3519 #if 0 /* MAC_TODO : port window properties to Mac */
3521 struct frame
*f
= check_x_frame (frame
);
3524 Lisp_Object prop_value
= Qnil
;
3525 char *tmp_data
= NULL
;
3528 unsigned long actual_size
, bytes_remaining
;
3530 CHECK_STRING (prop
);
3532 prop_atom
= XInternAtom (FRAME_W32_DISPLAY (f
), SDATA (prop
), False
);
3533 rc
= XGetWindowProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
),
3534 prop_atom
, 0, 0, False
, XA_STRING
,
3535 &actual_type
, &actual_format
, &actual_size
,
3536 &bytes_remaining
, (unsigned char **) &tmp_data
);
3539 int size
= bytes_remaining
;
3544 rc
= XGetWindowProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
),
3545 prop_atom
, 0, bytes_remaining
,
3547 &actual_type
, &actual_format
,
3548 &actual_size
, &bytes_remaining
,
3549 (unsigned char **) &tmp_data
);
3551 prop_value
= make_string (tmp_data
, size
);
3560 #endif /* MAC_TODO */
3566 /***********************************************************************
3568 ***********************************************************************/
3570 /* If non-null, an asynchronous timer that, when it expires, displays
3571 an hourglass cursor on all frames. */
3573 static struct atimer
*hourglass_atimer
;
3575 /* Non-zero means an hourglass cursor is currently shown. */
3577 static int hourglass_shown_p
;
3579 /* Number of seconds to wait before displaying an hourglass cursor. */
3581 static Lisp_Object Vhourglass_delay
;
3583 /* Default number of seconds to wait before displaying an hourglass
3586 #define DEFAULT_HOURGLASS_DELAY 1
3588 /* Function prototypes. */
3590 static void show_hourglass
P_ ((struct atimer
*));
3591 static void hide_hourglass
P_ ((void));
3593 /* Return non-zero if houglass timer has been started or hourglass is shown. */
3596 hourglass_started ()
3598 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
3602 /* Cancel a currently active hourglass timer, and start a new one. */
3609 int secs
, usecs
= 0;
3611 cancel_hourglass ();
3613 if (INTEGERP (Vhourglass_delay
)
3614 && XINT (Vhourglass_delay
) > 0)
3615 secs
= XFASTINT (Vhourglass_delay
);
3616 else if (FLOATP (Vhourglass_delay
)
3617 && XFLOAT_DATA (Vhourglass_delay
) > 0)
3620 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
3621 secs
= XFASTINT (tem
);
3622 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
3625 secs
= DEFAULT_HOURGLASS_DELAY
;
3627 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
3628 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
3629 show_hourglass
, NULL
);
3630 #endif /* MAC_OSX */
3634 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
3641 if (hourglass_atimer
)
3643 cancel_atimer (hourglass_atimer
);
3644 hourglass_atimer
= NULL
;
3647 if (hourglass_shown_p
)
3649 #endif /* MAC_OSX */
3653 /* Timer function of hourglass_atimer. TIMER is equal to
3656 On Mac, busy status is shown by the progress indicator (chasing
3657 arrows) at the upper-right corner of each frame instead of the
3658 hourglass pointer. */
3661 show_hourglass (timer
)
3662 struct atimer
*timer
;
3664 #if TARGET_API_MAC_CARBON
3665 /* The timer implementation will cancel this timer automatically
3666 after this function has run. Set hourglass_atimer to null
3667 so that we know the timer doesn't have to be canceled. */
3668 hourglass_atimer
= NULL
;
3670 if (!hourglass_shown_p
)
3672 Lisp_Object rest
, frame
;
3676 FOR_EACH_FRAME (rest
, frame
)
3678 struct frame
*f
= XFRAME (frame
);
3680 if (FRAME_LIVE_P (f
) && FRAME_MAC_P (f
)
3681 && FRAME_MAC_WINDOW (f
) != tip_window
)
3684 mac_prepare_for_quickdraw (f
);
3686 if (!f
->output_data
.mac
->hourglass_control
)
3688 Window w
= FRAME_MAC_WINDOW (f
);
3692 GetWindowPortBounds (w
, &r
);
3693 r
.left
= r
.right
- HOURGLASS_WIDTH
;
3694 r
.bottom
= r
.top
+ HOURGLASS_HEIGHT
;
3695 if (CreateChasingArrowsControl (w
, &r
, &c
) == noErr
)
3696 f
->output_data
.mac
->hourglass_control
= c
;
3699 if (f
->output_data
.mac
->hourglass_control
)
3700 ShowControl (f
->output_data
.mac
->hourglass_control
);
3704 hourglass_shown_p
= 1;
3707 #endif /* TARGET_API_MAC_CARBON */
3711 /* Hide the progress indicators on all frames, if it is currently
3717 #if TARGET_API_MAC_CARBON
3718 if (hourglass_shown_p
)
3720 Lisp_Object rest
, frame
;
3723 FOR_EACH_FRAME (rest
, frame
)
3725 struct frame
*f
= XFRAME (frame
);
3728 /* Watch out for newly created frames. */
3729 && f
->output_data
.mac
->hourglass_control
)
3732 mac_prepare_for_quickdraw (f
);
3734 HideControl (f
->output_data
.mac
->hourglass_control
);
3738 hourglass_shown_p
= 0;
3741 #endif /* TARGET_API_MAC_CARBON */
3746 /***********************************************************************
3748 ***********************************************************************/
3750 static Lisp_Object x_create_tip_frame
P_ ((struct mac_display_info
*,
3751 Lisp_Object
, Lisp_Object
));
3752 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
3753 Lisp_Object
, int, int, int *, int *));
3755 /* The frame of a currently visible tooltip. */
3757 Lisp_Object tip_frame
;
3759 /* If non-nil, a timer started that hides the last tooltip when it
3762 Lisp_Object tip_timer
;
3765 /* If non-nil, a vector of 3 elements containing the last args
3766 with which x-show-tip was called. See there. */
3768 Lisp_Object last_show_tip_args
;
3770 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
3772 Lisp_Object Vx_max_tooltip_size
;
3776 unwind_create_tip_frame (frame
)
3779 Lisp_Object deleted
;
3781 deleted
= unwind_create_frame (frame
);
3782 if (EQ (deleted
, Qt
))
3792 /* Create a frame for a tooltip on the display described by DPYINFO.
3793 PARMS is a list of frame parameters. TEXT is the string to
3794 display in the tip frame. Value is the frame.
3796 Note that functions called here, esp. x_default_parameter can
3797 signal errors, for instance when a specified color name is
3798 undefined. We have to make sure that we're in a consistent state
3799 when this happens. */
3802 x_create_tip_frame (dpyinfo
, parms
, text
)
3803 struct mac_display_info
*dpyinfo
;
3804 Lisp_Object parms
, text
;
3807 Lisp_Object frame
, tem
;
3809 long window_prompting
= 0;
3811 int count
= SPECPDL_INDEX ();
3812 struct gcpro gcpro1
, gcpro2
, gcpro3
;
3814 int face_change_count_before
= face_change_count
;
3816 struct buffer
*old_buffer
;
3820 parms
= Fcopy_alist (parms
);
3823 kb
= dpyinfo
->terminal
->kboard
;
3825 kb
= &the_only_kboard
;
3828 /* Get the name of the frame to use for resource lookup. */
3829 name
= mac_get_arg (parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3831 && !EQ (name
, Qunbound
)
3833 error ("Invalid frame name--not a string or nil");
3836 GCPRO3 (parms
, name
, frame
);
3838 XSETFRAME (frame
, f
);
3840 buffer
= Fget_buffer_create (build_string (" *tip*"));
3841 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
3842 old_buffer
= current_buffer
;
3843 set_buffer_internal_1 (XBUFFER (buffer
));
3844 current_buffer
->truncate_lines
= Qnil
;
3845 specbind (Qinhibit_read_only
, Qt
);
3846 specbind (Qinhibit_modification_hooks
, Qt
);
3849 set_buffer_internal_1 (old_buffer
);
3851 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
3852 record_unwind_protect (unwind_create_tip_frame
, frame
);
3854 /* By setting the output method, we're essentially saying that
3855 the frame is live, as per FRAME_LIVE_P. If we get a signal
3856 from this point on, x_destroy_window might screw up reference
3858 f
->terminal
= dpyinfo
->terminal
;
3859 f
->terminal
->reference_count
++;
3860 f
->output_method
= output_mac
;
3861 f
->output_data
.mac
=
3862 (struct mac_output
*) xmalloc (sizeof (struct mac_output
));
3863 bzero (f
->output_data
.mac
, sizeof (struct mac_output
));
3865 FRAME_FONTSET (f
) = -1;
3866 f
->icon_name
= Qnil
;
3867 /* FRAME_X_DISPLAY_INFO (f) = dpyinfo; */
3869 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
3870 dpyinfo_refcount
= dpyinfo
->reference_count
;
3871 #endif /* GLYPH_DEBUG */
3873 FRAME_KBOARD (f
) = kb
;
3875 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
3876 f
->output_data
.mac
->explicit_parent
= 0;
3878 /* Set the name; the functions to which we pass f expect the name to
3880 if (EQ (name
, Qunbound
) || NILP (name
))
3882 f
->name
= build_string (dpyinfo
->mac_id_name
);
3883 f
->explicit_name
= 0;
3888 f
->explicit_name
= 1;
3889 /* use the frame's title when getting resources for this frame. */
3890 specbind (Qx_resource_name
, name
);
3893 /* Extract the window parameters from the supplied values that are
3894 needed to determine window geometry. */
3898 font
= mac_get_arg (parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3901 /* First, try whatever font the caller has specified. */
3904 tem
= Fquery_fontset (font
, Qnil
);
3906 font
= x_new_fontset (f
, SDATA (tem
));
3908 font
= x_new_font (f
, SDATA (font
));
3911 /* Try out a font which we hope has bold and italic variations. */
3913 if (! STRINGP (font
))
3914 font
= x_new_font (f
, "-*-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1");
3916 if (! STRINGP (font
))
3917 font
= x_new_font (f
, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1");
3918 /* If those didn't work, look for something which will at least work. */
3919 if (! STRINGP (font
))
3920 font
= x_new_fontset (f
, "fontset-standard");
3921 if (! STRINGP (font
))
3922 font
= x_new_font (f
, "-*-monaco-*-12-*-mac-roman");
3923 if (! STRINGP (font
))
3924 font
= x_new_font (f
, "-*-courier-*-10-*-mac-roman");
3926 if (! STRINGP (font
))
3927 error ("Cannot find any usable font");
3929 x_default_parameter (f
, parms
, Qfont
, font
,
3930 "font", "Font", RES_TYPE_STRING
);
3933 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3934 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3936 /* This defaults to 2 in order to match xterm. We recognize either
3937 internalBorderWidth or internalBorder (which is what xterm calls
3939 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3943 value
= mac_get_arg (parms
, Qinternal_border_width
,
3944 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3945 if (! EQ (value
, Qunbound
))
3946 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3950 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3951 "internalBorderWidth", "internalBorderWidth",
3954 /* Also do the stuff which must be set before the window exists. */
3955 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3956 "foreground", "Foreground", RES_TYPE_STRING
);
3957 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3958 "background", "Background", RES_TYPE_STRING
);
3959 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3960 "pointerColor", "Foreground", RES_TYPE_STRING
);
3961 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3962 "cursorColor", "Foreground", RES_TYPE_STRING
);
3963 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3964 "borderColor", "BorderColor", RES_TYPE_STRING
);
3966 /* Init faces before x_default_parameter is called for scroll-bar
3967 parameters because that function calls x_set_scroll_bar_width,
3968 which calls change_frame_size, which calls Fset_window_buffer,
3969 which runs hooks, which call Fvertical_motion. At the end, we
3970 end up in init_iterator with a null face cache, which should not
3972 init_frame_faces (f
);
3974 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
3976 window_prompting
= x_figure_window_size (f
, parms
, 0);
3982 SetRect (&r
, 0, 0, 1, 1);
3983 #if TARGET_API_MAC_CARBON
3984 if (CreateNewWindow (kHelpWindowClass
,
3985 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
3986 kWindowIgnoreClicksAttribute
|
3988 kWindowNoUpdatesAttribute
|
3989 kWindowNoActivatesAttribute
,
3990 &r
, &tip_window
) == noErr
)
3992 if (tip_window
= NewCWindow (NULL
, &r
, "\p", false, plainDBox
,
3996 FRAME_MAC_WINDOW (f
) = tip_window
;
3997 XSetWindowBackground (FRAME_MAC_DISPLAY(f
), tip_window
,
3998 FRAME_BACKGROUND_PIXEL (f
));
3999 SetWRefCon (tip_window
, (long) f
->output_data
.mac
);
4000 /* so that update events can find this mac_output struct */
4001 f
->output_data
.mac
->mFP
= f
;
4008 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4009 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4010 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4011 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4012 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4013 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4015 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4016 Change will not be effected unless different from the current
4018 width
= FRAME_COLS (f
);
4019 height
= FRAME_LINES (f
);
4020 SET_FRAME_COLS (f
, 0);
4021 FRAME_LINES (f
) = 0;
4022 change_frame_size (f
, height
, width
, 1, 0, 0);
4024 /* Add `tooltip' frame parameter's default value. */
4025 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4026 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4029 /* Set up faces after all frame parameters are known. This call
4030 also merges in face attributes specified for new frames.
4032 Frame parameters may be changed if .Xdefaults contains
4033 specifications for the default font. For example, if there is an
4034 `Emacs.default.attributeBackground: pink', the `background-color'
4035 attribute of the frame get's set, which let's the internal border
4036 of the tooltip frame appear in pink. Prevent this. */
4038 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4040 /* Set tip_frame here, so that */
4042 call1 (Qface_set_after_frame_default
, frame
);
4044 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4045 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4053 /* It is now ok to make the frame official even if we get an error
4054 below. And the frame needs to be on Vframe_list or making it
4055 visible won't work. */
4056 Vframe_list
= Fcons (frame
, Vframe_list
);
4058 /* Now that the frame is official, it counts as a reference to
4060 FRAME_MAC_DISPLAY_INFO (f
)->reference_count
++;
4062 /* Setting attributes of faces of the tooltip frame from resources
4063 and similar will increment face_change_count, which leads to the
4064 clearing of all current matrices. Since this isn't necessary
4065 here, avoid it by resetting face_change_count to the value it
4066 had before we created the tip frame. */
4067 face_change_count
= face_change_count_before
;
4069 /* Discard the unwind_protect. */
4070 return unbind_to (count
, frame
);
4074 /* Compute where to display tip frame F. PARMS is the list of frame
4075 parameters for F. DX and DY are specified offsets from the current
4076 location of the mouse. WIDTH and HEIGHT are the width and height
4077 of the tooltip. Return coordinates relative to the root window of
4078 the display in *ROOT_X, and *ROOT_Y. */
4081 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4083 Lisp_Object parms
, dx
, dy
;
4085 int *root_x
, *root_y
;
4087 Lisp_Object left
, top
;
4089 /* User-specified position? */
4090 left
= Fcdr (Fassq (Qleft
, parms
));
4091 top
= Fcdr (Fassq (Qtop
, parms
));
4093 /* Move the tooltip window where the mouse pointer is. Resize and
4095 if (!INTEGERP (left
) || !INTEGERP (top
))
4100 #if TARGET_API_MAC_CARBON
4101 GetGlobalMouse (&mouse_pos
);
4103 GetMouse (&mouse_pos
);
4104 LocalToGlobal (&mouse_pos
);
4106 *root_x
= mouse_pos
.h
;
4107 *root_y
= mouse_pos
.v
;
4112 *root_y
= XINT (top
);
4113 else if (*root_y
+ XINT (dy
) <= 0)
4114 *root_y
= 0; /* Can happen for negative dy */
4115 else if (*root_y
+ XINT (dy
) + height
<= FRAME_MAC_DISPLAY_INFO (f
)->height
)
4116 /* It fits below the pointer */
4117 *root_y
+= XINT (dy
);
4118 else if (height
+ XINT (dy
) <= *root_y
)
4119 /* It fits above the pointer. */
4120 *root_y
-= height
+ XINT (dy
);
4122 /* Put it on the top. */
4125 if (INTEGERP (left
))
4126 *root_x
= XINT (left
);
4127 else if (*root_x
+ XINT (dx
) <= 0)
4128 *root_x
= 0; /* Can happen for negative dx */
4129 else if (*root_x
+ XINT (dx
) + width
<= FRAME_MAC_DISPLAY_INFO (f
)->width
)
4130 /* It fits to the right of the pointer. */
4131 *root_x
+= XINT (dx
);
4132 else if (width
+ XINT (dx
) <= *root_x
)
4133 /* It fits to the left of the pointer. */
4134 *root_x
-= width
+ XINT (dx
);
4136 /* Put it left-justified on the screen -- it ought to fit that way. */
4141 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4142 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4143 A tooltip window is a small window displaying a string.
4145 This is an internal function; Lisp code should call `tooltip-show'.
4147 FRAME nil or omitted means use the selected frame.
4149 PARMS is an optional list of frame parameters which can be used to
4150 change the tooltip's appearance.
4152 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4153 means use the default timeout of 5 seconds.
4155 If the list of frame parameters PARMS contains a `left' parameter,
4156 the tooltip is displayed at that x-position. Otherwise it is
4157 displayed at the mouse position, with offset DX added (default is 5 if
4158 DX isn't specified). Likewise for the y-position; if a `top' frame
4159 parameter is specified, it determines the y-position of the tooltip
4160 window, otherwise it is displayed at the mouse position, with offset
4161 DY added (default is -10).
4163 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4164 Text larger than the specified size is clipped. */)
4165 (string
, frame
, parms
, timeout
, dx
, dy
)
4166 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
4171 struct buffer
*old_buffer
;
4172 struct text_pos pos
;
4173 int i
, width
, height
;
4174 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
4175 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
4176 int count
= SPECPDL_INDEX ();
4178 specbind (Qinhibit_redisplay
, Qt
);
4180 GCPRO4 (string
, parms
, frame
, timeout
);
4182 CHECK_STRING (string
);
4183 f
= check_x_frame (frame
);
4185 timeout
= make_number (5);
4187 CHECK_NATNUM (timeout
);
4190 dx
= make_number (5);
4195 dy
= make_number (-10);
4199 if (NILP (last_show_tip_args
))
4200 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
4202 if (!NILP (tip_frame
))
4204 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
4205 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
4206 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
4208 if (EQ (frame
, last_frame
)
4209 && !NILP (Fequal (last_string
, string
))
4210 && !NILP (Fequal (last_parms
, parms
)))
4212 struct frame
*f
= XFRAME (tip_frame
);
4214 /* Only DX and DY have changed. */
4215 if (!NILP (tip_timer
))
4217 Lisp_Object timer
= tip_timer
;
4219 call1 (Qcancel_timer
, timer
);
4223 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
4224 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
4225 MoveWindow (FRAME_MAC_WINDOW (f
), root_x
, root_y
, false);
4231 /* Hide a previous tip, if any. */
4234 ASET (last_show_tip_args
, 0, string
);
4235 ASET (last_show_tip_args
, 1, frame
);
4236 ASET (last_show_tip_args
, 2, parms
);
4238 /* Add default values to frame parameters. */
4239 if (NILP (Fassq (Qname
, parms
)))
4240 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
4241 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4242 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
4243 if (NILP (Fassq (Qborder_width
, parms
)))
4244 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
4245 if (NILP (Fassq (Qborder_color
, parms
)))
4246 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
4247 if (NILP (Fassq (Qbackground_color
, parms
)))
4248 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
4251 /* Create a frame for the tooltip, and record it in the global
4252 variable tip_frame. */
4253 frame
= x_create_tip_frame (FRAME_MAC_DISPLAY_INFO (f
), parms
, string
);
4256 /* Set up the frame's root window. */
4257 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
4258 w
->left_col
= w
->top_line
= make_number (0);
4260 if (CONSP (Vx_max_tooltip_size
)
4261 && INTEGERP (XCAR (Vx_max_tooltip_size
))
4262 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
4263 && INTEGERP (XCDR (Vx_max_tooltip_size
))
4264 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
4266 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
4267 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
4271 w
->total_cols
= make_number (80);
4272 w
->total_lines
= make_number (40);
4275 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
4277 w
->pseudo_window_p
= 1;
4279 /* Display the tooltip text in a temporary buffer. */
4280 old_buffer
= current_buffer
;
4281 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
4282 current_buffer
->truncate_lines
= Qnil
;
4283 clear_glyph_matrix (w
->desired_matrix
);
4284 clear_glyph_matrix (w
->current_matrix
);
4285 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
4286 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
4288 /* Compute width and height of the tooltip. */
4290 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
4292 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
4296 /* Stop at the first empty row at the end. */
4297 if (!row
->enabled_p
|| !row
->displays_text_p
)
4300 /* Let the row go over the full width of the frame. */
4301 row
->full_width_p
= 1;
4303 /* There's a glyph at the end of rows that is used to place
4304 the cursor there. Don't include the width of this glyph. */
4305 if (row
->used
[TEXT_AREA
])
4307 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
4308 row_width
= row
->pixel_width
- last
->pixel_width
;
4311 row_width
= row
->pixel_width
;
4313 height
+= row
->height
;
4314 width
= max (width
, row_width
);
4317 /* Add the frame's internal border to the width and height the X
4318 window should have. */
4319 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
4320 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
4322 /* Move the tooltip window where the mouse pointer is. Resize and
4324 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
4327 MoveWindow (FRAME_MAC_WINDOW (f
), root_x
, root_y
, false);
4328 SizeWindow (FRAME_MAC_WINDOW (f
), width
, height
, true);
4329 ShowWindow (FRAME_MAC_WINDOW (f
));
4330 BringToFront (FRAME_MAC_WINDOW (f
));
4333 FRAME_PIXEL_WIDTH (f
) = width
;
4334 FRAME_PIXEL_HEIGHT (f
) = height
;
4336 /* Draw into the window. */
4337 w
->must_be_updated_p
= 1;
4338 update_single_window (w
, 1);
4340 /* Restore original current buffer. */
4341 set_buffer_internal_1 (old_buffer
);
4342 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
4345 /* Let the tip disappear after timeout seconds. */
4346 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
4347 intern ("x-hide-tip"));
4350 return unbind_to (count
, Qnil
);
4354 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
4355 doc
: /* Hide the current tooltip window, if there is any.
4356 Value is t if tooltip was open, nil otherwise. */)
4360 Lisp_Object deleted
, frame
, timer
;
4361 struct gcpro gcpro1
, gcpro2
;
4363 /* Return quickly if nothing to do. */
4364 if (NILP (tip_timer
) && NILP (tip_frame
))
4369 GCPRO2 (frame
, timer
);
4370 tip_frame
= tip_timer
= deleted
= Qnil
;
4372 count
= SPECPDL_INDEX ();
4373 specbind (Qinhibit_redisplay
, Qt
);
4374 specbind (Qinhibit_quit
, Qt
);
4377 call1 (Qcancel_timer
, timer
);
4381 Fdelete_frame (frame
, Qnil
);
4386 return unbind_to (count
, deleted
);
4391 #if TARGET_API_MAC_CARBON
4392 /***********************************************************************
4393 File selection dialog
4394 ***********************************************************************/
4396 static pascal void mac_nav_event_callback
P_ ((NavEventCallbackMessage
,
4397 NavCBRecPtr
, void *));
4400 There is a relatively standard way to do this using applescript to run
4401 a (choose file) method. However, this doesn't do "the right thing"
4402 by working only if the find-file occurred during a menu or toolbar
4403 click. So we must do the file dialog by hand, using the navigation
4404 manager. This also has more flexibility in determining the default
4405 directory and whether or not we are going to choose a file.
4408 extern Lisp_Object Qfile_name_history
;
4410 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
4411 doc
: /* Read file name, prompting with PROMPT in directory DIR.
4412 Use a file selection dialog.
4413 Select DEFAULT-FILENAME in the dialog's file selection box, if
4414 specified. Ensure that file exists if MUSTMATCH is non-nil.
4415 If ONLY-DIR-P is non-nil, the user can only select directories. */)
4416 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
4417 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
4419 Lisp_Object file
= Qnil
;
4420 int count
= SPECPDL_INDEX ();
4421 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
4422 char filename
[MAXPATHLEN
];
4423 static NavEventUPP mac_nav_event_callbackUPP
= NULL
;
4427 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, file
, only_dir_p
);
4428 CHECK_STRING (prompt
);
4431 /* Create the dialog with PROMPT as title, using DIR as initial
4432 directory and using "*" as pattern. */
4433 dir
= Fexpand_file_name (dir
, Qnil
);
4437 NavDialogCreationOptions options
;
4438 NavDialogRef dialogRef
;
4439 NavTypeListHandle fileTypes
= NULL
;
4440 NavUserAction userAction
;
4441 CFStringRef message
=NULL
, saveName
= NULL
;
4444 /* No need for a callback function because we are modal */
4445 NavGetDefaultDialogCreationOptions(&options
);
4446 options
.modality
= kWindowModalityAppModal
;
4447 options
.location
.h
= options
.location
.v
= -1;
4448 options
.optionFlags
= kNavDefaultNavDlogOptions
;
4449 options
.optionFlags
|= kNavAllFilesInPopup
; /* All files allowed */
4450 options
.optionFlags
|= kNavSelectAllReadableItem
;
4451 options
.optionFlags
&= ~kNavAllowMultipleFiles
;
4454 message
= cfstring_create_with_string (prompt
);
4455 options
.message
= message
;
4457 /* Don't set the application, let it use default.
4458 options.clientName = CFSTR ("Emacs");
4461 if (mac_nav_event_callbackUPP
== NULL
)
4462 mac_nav_event_callbackUPP
= NewNavEventUPP (mac_nav_event_callback
);
4464 if (!NILP (only_dir_p
))
4465 status
= NavCreateChooseFolderDialog(&options
, mac_nav_event_callbackUPP
,
4466 NULL
, NULL
, &dialogRef
);
4467 else if (NILP (mustmatch
))
4469 /* This is a save dialog */
4470 options
.optionFlags
|= kNavDontConfirmReplacement
;
4471 options
.actionButtonLabel
= CFSTR ("Ok");
4472 options
.windowTitle
= CFSTR ("Enter name");
4474 if (STRINGP (default_filename
))
4476 Lisp_Object utf8
= ENCODE_UTF_8 (default_filename
);
4477 char *begPtr
= SDATA(utf8
);
4478 char *filePtr
= begPtr
+ SBYTES(utf8
);
4479 while (filePtr
!= begPtr
&& !IS_DIRECTORY_SEP(filePtr
[-1]))
4481 saveName
= cfstring_create_with_utf8_cstring (filePtr
);
4482 options
.saveFileName
= saveName
;
4483 options
.optionFlags
|= kNavSelectDefaultLocation
;
4485 status
= NavCreatePutFileDialog(&options
,
4486 'TEXT', kNavGenericSignature
,
4487 mac_nav_event_callbackUPP
, NULL
,
4492 /* This is an open dialog*/
4493 status
= NavCreateChooseFileDialog(&options
, fileTypes
,
4494 mac_nav_event_callbackUPP
, NULL
,
4495 NULL
, NULL
, &dialogRef
);
4498 /* Set the default location and continue*/
4499 if (status
== noErr
)
4501 Lisp_Object encoded_dir
= ENCODE_FILE (dir
);
4504 status
= AECreateDesc (TYPE_FILE_NAME
, SDATA (encoded_dir
),
4505 SBYTES (encoded_dir
), &defLocAed
);
4506 if (status
== noErr
)
4508 NavCustomControl(dialogRef
, kNavCtlSetLocation
, (void*) &defLocAed
);
4509 AEDisposeDesc(&defLocAed
);
4511 status
= NavDialogRun(dialogRef
);
4514 if (saveName
) CFRelease(saveName
);
4515 if (message
) CFRelease(message
);
4517 if (status
== noErr
) {
4518 userAction
= NavDialogGetUserAction(dialogRef
);
4521 case kNavUserActionNone
:
4522 case kNavUserActionCancel
:
4523 break; /* Treat cancel like C-g */
4524 case kNavUserActionOpen
:
4525 case kNavUserActionChoose
:
4526 case kNavUserActionSaveAs
:
4528 NavReplyRecord reply
;
4531 status
= NavDialogGetReply(dialogRef
, &reply
);
4532 if (status
!= noErr
)
4534 status
= AEGetNthPtr (&reply
.selection
, 1, TYPE_FILE_NAME
,
4535 NULL
, NULL
, filename
,
4536 sizeof (filename
) - 1, &len
);
4537 if (status
== noErr
)
4539 len
= min (len
, sizeof (filename
) - 1);
4540 filename
[len
] = '\0';
4541 if (reply
.saveFileName
)
4543 /* If it was a saved file, we need to add the file name */
4544 if (len
&& len
< sizeof (filename
) - 1
4545 && filename
[len
-1] != '/')
4546 filename
[len
++] = '/';
4547 CFStringGetCString(reply
.saveFileName
, filename
+len
,
4548 sizeof (filename
) - len
,
4550 kCFStringEncodingUTF8
4552 CFStringGetSystemEncoding ()
4556 file
= DECODE_FILE (make_unibyte_string (filename
,
4557 strlen (filename
)));
4559 NavDisposeReply(&reply
);
4563 NavDialogDispose(dialogRef
);
4568 /* Fall back on minibuffer if there was a problem */
4569 file
= Fcompleting_read (prompt
, intern ("read-file-name-internal"),
4570 dir
, mustmatch
, dir
, Qfile_name_history
,
4571 default_filename
, Qnil
);
4577 /* Make "Cancel" equivalent to C-g. */
4579 Fsignal (Qquit
, Qnil
);
4581 return unbind_to (count
, file
);
4585 /* Need to register some event callback function for enabling drag and
4586 drop in Navigation Service dialogs. */
4588 mac_nav_event_callback (selector
, parms
, data
)
4589 NavEventCallbackMessage selector
;
4596 /***********************************************************************
4598 ***********************************************************************/
4600 DEFUN ("mac-clear-font-name-table", Fmac_clear_font_name_table
,
4601 Smac_clear_font_name_table
, 0, 0, 0,
4602 doc
: /* Clear the font name table. */)
4606 mac_clear_font_name_table ();
4610 #if USE_MAC_FONT_PANEL
4611 DEFUN ("mac-set-font-panel-visible-p", Fmac_set_font_panel_visible_p
,
4612 Smac_set_font_panel_visible_p
, 1, 1, 0,
4613 doc
: /* Make the font panel visible if and only if FLAG is non-nil.
4614 This is for internal use only. Use `mac-font-panel-mode' instead. */)
4618 OSStatus err
= noErr
;
4623 if (NILP (flag
) != !mac_font_panel_visible_p ())
4625 err
= mac_show_hide_font_panel ();
4626 if (err
== noErr
&& !NILP (flag
))
4628 Lisp_Object focus_frame
= x_get_focus_frame (SELECTED_FRAME ());
4629 struct frame
*f
= (NILP (focus_frame
) ? SELECTED_FRAME ()
4630 : XFRAME (focus_frame
));
4632 mac_set_font_info_for_selection (f
, DEFAULT_FACE_ID
, 0);
4638 error ("Cannot change visibility of the font panel");
4644 extern Lisp_Object mac_atsu_font_face_attributes
P_ ((ATSUFontID
));
4646 DEFUN ("mac-atsu-font-face-attributes", Fmac_atsu_font_face_attributes
,
4647 Smac_atsu_font_face_attributes
, 1, 1, 0,
4648 doc
: /* Return plist of face attributes and values for ATSU font ID.
4649 ID is specified by either an integer or a float. */)
4657 CHECK_NUMBER_OR_FLOAT(id
);
4658 font_id
= NUMBERP (id
) ? XINT (id
) : (ATSUFontID
) XFLOAT (id
);
4660 result
= mac_atsu_font_face_attributes (font_id
);
4667 /***********************************************************************
4669 ***********************************************************************/
4671 /* Keep this list in the same order as frame_parms in frame.c.
4672 Use 0 for unsupported frame parameters. */
4674 frame_parm_handler mac_frame_parm_handlers
[] =
4678 x_set_background_color
,
4684 x_set_foreground_color
,
4686 0, /* MAC_TODO: x_set_icon_type, */
4687 x_set_internal_border_width
,
4688 x_set_menu_bar_lines
,
4690 x_explicitly_set_name
,
4691 x_set_scroll_bar_width
,
4694 x_set_vertical_scroll_bars
,
4696 x_set_tool_bar_lines
,
4697 0, /* MAC_TODO: x_set_scroll_bar_foreground, */
4698 0, /* MAC_TODO: x_set_scroll_bar_background, */
4703 0, /* x_set_wait_for_wm, */
4711 /* This is zero if not using Mac native windows. */
4714 /* Certainly running on Mac native windows. */
4718 /* The section below is built by the lisp expression at the top of the file,
4719 just above where these variables are declared. */
4720 /*&&& init symbols here &&&*/
4721 Qnone
= intern ("none");
4723 Qsuppress_icon
= intern ("suppress-icon");
4724 staticpro (&Qsuppress_icon
);
4725 Qundefined_color
= intern ("undefined-color");
4726 staticpro (&Qundefined_color
);
4727 Qcancel_timer
= intern ("cancel-timer");
4728 staticpro (&Qcancel_timer
);
4729 /* This is the end of symbol initialization. */
4731 /* Text property `display' should be nonsticky by default. */
4732 Vtext_property_default_nonsticky
4733 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
4736 Fput (Qundefined_color
, Qerror_conditions
,
4737 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
4738 Fput (Qundefined_color
, Qerror_message
,
4739 build_string ("Undefined color"));
4741 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
4742 doc
: /* The shape of the pointer when over text.
4743 Changing the value does not affect existing frames
4744 unless you set the mouse color. */);
4745 Vx_pointer_shape
= Qnil
;
4747 #if 0 /* This doesn't really do anything. */
4748 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
4749 doc
: /* The shape of the pointer when not over text.
4750 This variable takes effect when you create a new frame
4751 or when you set the mouse color. */);
4753 Vx_nontext_pointer_shape
= Qnil
;
4755 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
4756 doc
: /* The shape of the pointer when Emacs is busy.
4757 This variable takes effect when you create a new frame
4758 or when you set the mouse color. */);
4759 Vx_hourglass_pointer_shape
= Qnil
;
4761 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
4762 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
4763 display_hourglass_p
= 1;
4765 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
4766 doc
: /* *Seconds to wait before displaying an hourglass pointer.
4767 Value must be an integer or float. */);
4768 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
4770 #if 0 /* This doesn't really do anything. */
4771 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
4772 doc
: /* The shape of the pointer when over the mode line.
4773 This variable takes effect when you create a new frame
4774 or when you set the mouse color. */);
4776 Vx_mode_pointer_shape
= Qnil
;
4778 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
4779 &Vx_sensitive_text_pointer_shape
,
4780 doc
: /* The shape of the pointer when over mouse-sensitive text.
4781 This variable takes effect when you create a new frame
4782 or when you set the mouse color. */);
4783 Vx_sensitive_text_pointer_shape
= Qnil
;
4785 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
4786 &Vx_window_horizontal_drag_shape
,
4787 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
4788 This variable takes effect when you create a new frame
4789 or when you set the mouse color. */);
4790 Vx_window_horizontal_drag_shape
= Qnil
;
4792 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
4793 doc
: /* A string indicating the foreground color of the cursor box. */);
4794 Vx_cursor_fore_pixel
= Qnil
;
4796 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
4797 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
4798 Text larger than this is clipped. */);
4799 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
4801 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
4802 doc
: /* Non-nil if no window manager is in use.
4803 Emacs doesn't try to figure this out; this is always nil
4804 unless you set it to something else. */);
4805 /* We don't have any way to find this out, so set it to nil
4806 and maybe the user would like to set it to t. */
4807 Vx_no_window_manager
= Qnil
;
4809 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
4810 &Vx_pixel_size_width_font_regexp
,
4811 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
4813 Since Emacs gets width of a font matching with this regexp from
4814 PIXEL_SIZE field of the name, font finding mechanism gets faster for
4815 such a font. This is especially effective for such large fonts as
4816 Chinese, Japanese, and Korean. */);
4817 Vx_pixel_size_width_font_regexp
= Qnil
;
4819 #if TARGET_API_MAC_CARBON
4820 DEFVAR_LISP ("mac-carbon-version-string", &Vmac_carbon_version_string
,
4821 doc
: /* Version info for Carbon API. */);
4825 char carbon_version
[16] = "Unknown";
4827 err
= Gestalt (gestaltCarbonVersion
, &response
);
4829 sprintf (carbon_version
, "%u.%u.%u",
4830 (response
>> 8) & 0xf, (response
>> 4) & 0xf, response
& 0xf);
4831 Vmac_carbon_version_string
= build_string (carbon_version
);
4833 #endif /* TARGET_API_MAC_CARBON */
4835 /* X window properties. */
4836 defsubr (&Sx_change_window_property
);
4837 defsubr (&Sx_delete_window_property
);
4838 defsubr (&Sx_window_property
);
4840 defsubr (&Sxw_display_color_p
);
4841 defsubr (&Sx_display_grayscale_p
);
4842 defsubr (&Sxw_color_defined_p
);
4843 defsubr (&Sxw_color_values
);
4844 defsubr (&Sx_server_max_request_size
);
4845 defsubr (&Sx_server_vendor
);
4846 defsubr (&Sx_server_version
);
4847 defsubr (&Sx_display_pixel_width
);
4848 defsubr (&Sx_display_pixel_height
);
4849 defsubr (&Sx_display_mm_width
);
4850 defsubr (&Sx_display_mm_height
);
4851 defsubr (&Sx_display_screens
);
4852 defsubr (&Sx_display_planes
);
4853 defsubr (&Sx_display_color_cells
);
4854 defsubr (&Sx_display_visual_class
);
4855 defsubr (&Sx_display_backing_store
);
4856 defsubr (&Sx_display_save_under
);
4857 defsubr (&Sx_create_frame
);
4858 defsubr (&Sx_open_connection
);
4859 defsubr (&Sx_close_connection
);
4860 defsubr (&Sx_display_list
);
4861 defsubr (&Sx_synchronize
);
4862 defsubr (&Sx_focus_frame
);
4864 /* Setting callback functions for fontset handler. */
4865 get_font_info_func
= x_get_font_info
;
4867 #if 0 /* This function pointer doesn't seem to be used anywhere.
4868 And the pointer assigned has the wrong type, anyway. */
4869 list_fonts_func
= x_list_fonts
;
4872 load_font_func
= x_load_font
;
4873 find_ccl_program_func
= x_find_ccl_program
;
4874 query_font_func
= x_query_font
;
4875 set_frame_fontset_func
= mac_set_font
;
4876 check_window_system_func
= check_mac
;
4878 hourglass_atimer
= NULL
;
4879 hourglass_shown_p
= 0;
4881 defsubr (&Sx_show_tip
);
4882 defsubr (&Sx_hide_tip
);
4884 staticpro (&tip_timer
);
4886 staticpro (&tip_frame
);
4888 last_show_tip_args
= Qnil
;
4889 staticpro (&last_show_tip_args
);
4891 #if TARGET_API_MAC_CARBON
4892 defsubr (&Sx_file_dialog
);
4894 defsubr (&Smac_clear_font_name_table
);
4895 #if USE_MAC_FONT_PANEL
4896 defsubr (&Smac_set_font_panel_visible_p
);
4899 defsubr (&Smac_atsu_font_face_attributes
);
4903 /* arch-tag: d7591289-f374-4377-b245-12f5dbbb8edc
4904 (do not change this comment) */