1 /* Graphical user interface functions for Mac OS.
2 Copyright (C) 2000, 2001, 2002, 2003, 2004,
3 2005, 2006 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 Boston, MA 02110-1301, USA. */
22 /* Contributed by Andrew Choi (akochoi@mac.com). */
33 #include "intervals.h"
34 #include "dispextern.h"
36 #include "blockinput.h"
42 #include "termhooks.h"
46 #include <sys/types.h>
50 #include <sys/param.h>
52 extern void free_frame_menubar ();
54 #if TARGET_API_MAC_CARBON
56 /* Carbon version info */
58 static Lisp_Object Vmac_carbon_version_string
;
60 #endif /* TARGET_API_MAC_CARBON */
62 /* Non-zero means we're allowed to display an hourglass cursor. */
64 int display_hourglass_p
;
66 /* The background and shape of the mouse pointer, and shape when not
67 over text or in the modeline. */
69 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
70 Lisp_Object Vx_hourglass_pointer_shape
;
72 /* The shape when over mouse-sensitive text. */
74 Lisp_Object Vx_sensitive_text_pointer_shape
;
76 /* If non-nil, the pointer shape to indicate that windows can be
77 dragged horizontally. */
79 Lisp_Object Vx_window_horizontal_drag_shape
;
81 /* Color of chars displayed in cursor box. */
83 Lisp_Object Vx_cursor_fore_pixel
;
85 /* Nonzero if using Windows. */
87 static int mac_in_use
;
89 /* Non nil if no window manager is in use. */
91 Lisp_Object Vx_no_window_manager
;
93 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
95 Lisp_Object Vx_pixel_size_width_font_regexp
;
98 Lisp_Object Qsuppress_icon
;
99 Lisp_Object Qundefined_color
;
100 Lisp_Object Qcancel_timer
;
104 extern Lisp_Object Vwindow_system_version
;
107 int image_cache_refcount
, dpyinfo_refcount
;
111 #if 0 /* Use xstricmp instead. */
112 /* compare two strings ignoring case */
115 stricmp (const char *s
, const char *t
)
117 for ( ; tolower (*s
) == tolower (*t
); s
++, t
++)
120 return tolower (*s
) - tolower (*t
);
124 /* compare two strings up to n characters, ignoring case */
127 strnicmp (const char *s
, const char *t
, unsigned int n
)
129 for ( ; n
> 0 && tolower (*s
) == tolower (*t
); n
--, s
++, t
++)
132 return n
== 0 ? 0 : tolower (*s
) - tolower (*t
);
136 /* Error if we are not running on Mac OS. */
142 error ("Mac native windows not in use or not initialized");
145 /* Nonzero if we can use mouse menus.
146 You should not call this unless HAVE_MENUS is defined. */
154 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
155 and checking validity for Mac. */
158 check_x_frame (frame
)
164 frame
= selected_frame
;
165 CHECK_LIVE_FRAME (frame
);
167 if (! FRAME_MAC_P (f
))
168 error ("Non-Mac frame used");
172 /* Let the user specify a display with a frame.
173 nil stands for the selected frame--or, if that is not a mac frame,
174 the first display on the list. */
176 struct mac_display_info
*
177 check_x_display_info (frame
)
180 struct mac_display_info
*dpyinfo
= NULL
;
184 struct frame
*sf
= XFRAME (selected_frame
);
186 if (FRAME_MAC_P (sf
) && FRAME_LIVE_P (sf
))
187 dpyinfo
= FRAME_MAC_DISPLAY_INFO (sf
);
188 else if (x_display_list
!= 0)
189 dpyinfo
= x_display_list
;
191 error ("Mac native windows are not in use or not initialized");
193 else if (STRINGP (frame
))
194 dpyinfo
= x_display_info_for_name (frame
);
197 FRAME_PTR f
= check_x_frame (frame
);
198 dpyinfo
= FRAME_MAC_DISPLAY_INFO (f
);
206 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
207 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
209 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
210 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
211 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
212 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
213 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
214 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
215 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
216 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
217 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
218 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
219 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
220 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
222 extern void mac_get_window_bounds
P_ ((struct frame
*, Rect
*, Rect
*));
226 /* Store the screen positions of frame F into XPTR and YPTR.
227 These are the positions of the containing window manager window,
228 not Emacs's own window. */
231 x_real_positions (f
, xptr
, yptr
)
237 mac_get_window_bounds (f
, &inner
, &outer
);
239 f
->x_pixels_diff
= inner
.left
- outer
.left
;
240 f
->y_pixels_diff
= inner
.top
- outer
.top
;
247 /* The default colors for the Mac color map */
248 typedef struct colormap_t
254 static const colormap_t mac_color_map
[] =
256 { RGB_TO_ULONG(255, 250, 250), "snow" },
257 { RGB_TO_ULONG(248, 248, 255), "ghost white" },
258 { RGB_TO_ULONG(248, 248, 255), "GhostWhite" },
259 { RGB_TO_ULONG(245, 245, 245), "white smoke" },
260 { RGB_TO_ULONG(245, 245, 245), "WhiteSmoke" },
261 { RGB_TO_ULONG(220, 220, 220), "gainsboro" },
262 { RGB_TO_ULONG(255, 250, 240), "floral white" },
263 { RGB_TO_ULONG(255, 250, 240), "FloralWhite" },
264 { RGB_TO_ULONG(253, 245, 230), "old lace" },
265 { RGB_TO_ULONG(253, 245, 230), "OldLace" },
266 { RGB_TO_ULONG(250, 240, 230), "linen" },
267 { RGB_TO_ULONG(250, 235, 215), "antique white" },
268 { RGB_TO_ULONG(250, 235, 215), "AntiqueWhite" },
269 { RGB_TO_ULONG(255, 239, 213), "papaya whip" },
270 { RGB_TO_ULONG(255, 239, 213), "PapayaWhip" },
271 { RGB_TO_ULONG(255, 235, 205), "blanched almond" },
272 { RGB_TO_ULONG(255, 235, 205), "BlanchedAlmond" },
273 { RGB_TO_ULONG(255, 228, 196), "bisque" },
274 { RGB_TO_ULONG(255, 218, 185), "peach puff" },
275 { RGB_TO_ULONG(255, 218, 185), "PeachPuff" },
276 { RGB_TO_ULONG(255, 222, 173), "navajo white" },
277 { RGB_TO_ULONG(255, 222, 173), "NavajoWhite" },
278 { RGB_TO_ULONG(255, 228, 181), "moccasin" },
279 { RGB_TO_ULONG(255, 248, 220), "cornsilk" },
280 { RGB_TO_ULONG(255, 255, 240), "ivory" },
281 { RGB_TO_ULONG(255, 250, 205), "lemon chiffon" },
282 { RGB_TO_ULONG(255, 250, 205), "LemonChiffon" },
283 { RGB_TO_ULONG(255, 245, 238), "seashell" },
284 { RGB_TO_ULONG(240, 255, 240), "honeydew" },
285 { RGB_TO_ULONG(245, 255, 250), "mint cream" },
286 { RGB_TO_ULONG(245, 255, 250), "MintCream" },
287 { RGB_TO_ULONG(240, 255, 255), "azure" },
288 { RGB_TO_ULONG(240, 248, 255), "alice blue" },
289 { RGB_TO_ULONG(240, 248, 255), "AliceBlue" },
290 { RGB_TO_ULONG(230, 230, 250), "lavender" },
291 { RGB_TO_ULONG(255, 240, 245), "lavender blush" },
292 { RGB_TO_ULONG(255, 240, 245), "LavenderBlush" },
293 { RGB_TO_ULONG(255, 228, 225), "misty rose" },
294 { RGB_TO_ULONG(255, 228, 225), "MistyRose" },
295 { RGB_TO_ULONG(255, 255, 255), "white" },
296 { RGB_TO_ULONG(0 , 0 , 0 ), "black" },
297 { RGB_TO_ULONG(47 , 79 , 79 ), "dark slate gray" },
298 { RGB_TO_ULONG(47 , 79 , 79 ), "DarkSlateGray" },
299 { RGB_TO_ULONG(47 , 79 , 79 ), "dark slate grey" },
300 { RGB_TO_ULONG(47 , 79 , 79 ), "DarkSlateGrey" },
301 { RGB_TO_ULONG(105, 105, 105), "dim gray" },
302 { RGB_TO_ULONG(105, 105, 105), "DimGray" },
303 { RGB_TO_ULONG(105, 105, 105), "dim grey" },
304 { RGB_TO_ULONG(105, 105, 105), "DimGrey" },
305 { RGB_TO_ULONG(112, 128, 144), "slate gray" },
306 { RGB_TO_ULONG(112, 128, 144), "SlateGray" },
307 { RGB_TO_ULONG(112, 128, 144), "slate grey" },
308 { RGB_TO_ULONG(112, 128, 144), "SlateGrey" },
309 { RGB_TO_ULONG(119, 136, 153), "light slate gray" },
310 { RGB_TO_ULONG(119, 136, 153), "LightSlateGray" },
311 { RGB_TO_ULONG(119, 136, 153), "light slate grey" },
312 { RGB_TO_ULONG(119, 136, 153), "LightSlateGrey" },
313 { RGB_TO_ULONG(190, 190, 190), "gray" },
314 { RGB_TO_ULONG(190, 190, 190), "grey" },
315 { RGB_TO_ULONG(211, 211, 211), "light grey" },
316 { RGB_TO_ULONG(211, 211, 211), "LightGrey" },
317 { RGB_TO_ULONG(211, 211, 211), "light gray" },
318 { RGB_TO_ULONG(211, 211, 211), "LightGray" },
319 { RGB_TO_ULONG(25 , 25 , 112), "midnight blue" },
320 { RGB_TO_ULONG(25 , 25 , 112), "MidnightBlue" },
321 { RGB_TO_ULONG(0 , 0 , 128), "navy" },
322 { RGB_TO_ULONG(0 , 0 , 128), "navy blue" },
323 { RGB_TO_ULONG(0 , 0 , 128), "NavyBlue" },
324 { RGB_TO_ULONG(100, 149, 237), "cornflower blue" },
325 { RGB_TO_ULONG(100, 149, 237), "CornflowerBlue" },
326 { RGB_TO_ULONG(72 , 61 , 139), "dark slate blue" },
327 { RGB_TO_ULONG(72 , 61 , 139), "DarkSlateBlue" },
328 { RGB_TO_ULONG(106, 90 , 205), "slate blue" },
329 { RGB_TO_ULONG(106, 90 , 205), "SlateBlue" },
330 { RGB_TO_ULONG(123, 104, 238), "medium slate blue" },
331 { RGB_TO_ULONG(123, 104, 238), "MediumSlateBlue" },
332 { RGB_TO_ULONG(132, 112, 255), "light slate blue" },
333 { RGB_TO_ULONG(132, 112, 255), "LightSlateBlue" },
334 { RGB_TO_ULONG(0 , 0 , 205), "medium blue" },
335 { RGB_TO_ULONG(0 , 0 , 205), "MediumBlue" },
336 { RGB_TO_ULONG(65 , 105, 225), "royal blue" },
337 { RGB_TO_ULONG(65 , 105, 225), "RoyalBlue" },
338 { RGB_TO_ULONG(0 , 0 , 255), "blue" },
339 { RGB_TO_ULONG(30 , 144, 255), "dodger blue" },
340 { RGB_TO_ULONG(30 , 144, 255), "DodgerBlue" },
341 { RGB_TO_ULONG(0 , 191, 255), "deep sky blue" },
342 { RGB_TO_ULONG(0 , 191, 255), "DeepSkyBlue" },
343 { RGB_TO_ULONG(135, 206, 235), "sky blue" },
344 { RGB_TO_ULONG(135, 206, 235), "SkyBlue" },
345 { RGB_TO_ULONG(135, 206, 250), "light sky blue" },
346 { RGB_TO_ULONG(135, 206, 250), "LightSkyBlue" },
347 { RGB_TO_ULONG(70 , 130, 180), "steel blue" },
348 { RGB_TO_ULONG(70 , 130, 180), "SteelBlue" },
349 { RGB_TO_ULONG(176, 196, 222), "light steel blue" },
350 { RGB_TO_ULONG(176, 196, 222), "LightSteelBlue" },
351 { RGB_TO_ULONG(173, 216, 230), "light blue" },
352 { RGB_TO_ULONG(173, 216, 230), "LightBlue" },
353 { RGB_TO_ULONG(176, 224, 230), "powder blue" },
354 { RGB_TO_ULONG(176, 224, 230), "PowderBlue" },
355 { RGB_TO_ULONG(175, 238, 238), "pale turquoise" },
356 { RGB_TO_ULONG(175, 238, 238), "PaleTurquoise" },
357 { RGB_TO_ULONG(0 , 206, 209), "dark turquoise" },
358 { RGB_TO_ULONG(0 , 206, 209), "DarkTurquoise" },
359 { RGB_TO_ULONG(72 , 209, 204), "medium turquoise" },
360 { RGB_TO_ULONG(72 , 209, 204), "MediumTurquoise" },
361 { RGB_TO_ULONG(64 , 224, 208), "turquoise" },
362 { RGB_TO_ULONG(0 , 255, 255), "cyan" },
363 { RGB_TO_ULONG(224, 255, 255), "light cyan" },
364 { RGB_TO_ULONG(224, 255, 255), "LightCyan" },
365 { RGB_TO_ULONG(95 , 158, 160), "cadet blue" },
366 { RGB_TO_ULONG(95 , 158, 160), "CadetBlue" },
367 { RGB_TO_ULONG(102, 205, 170), "medium aquamarine" },
368 { RGB_TO_ULONG(102, 205, 170), "MediumAquamarine" },
369 { RGB_TO_ULONG(127, 255, 212), "aquamarine" },
370 { RGB_TO_ULONG(0 , 100, 0 ), "dark green" },
371 { RGB_TO_ULONG(0 , 100, 0 ), "DarkGreen" },
372 { RGB_TO_ULONG(85 , 107, 47 ), "dark olive green" },
373 { RGB_TO_ULONG(85 , 107, 47 ), "DarkOliveGreen" },
374 { RGB_TO_ULONG(143, 188, 143), "dark sea green" },
375 { RGB_TO_ULONG(143, 188, 143), "DarkSeaGreen" },
376 { RGB_TO_ULONG(46 , 139, 87 ), "sea green" },
377 { RGB_TO_ULONG(46 , 139, 87 ), "SeaGreen" },
378 { RGB_TO_ULONG(60 , 179, 113), "medium sea green" },
379 { RGB_TO_ULONG(60 , 179, 113), "MediumSeaGreen" },
380 { RGB_TO_ULONG(32 , 178, 170), "light sea green" },
381 { RGB_TO_ULONG(32 , 178, 170), "LightSeaGreen" },
382 { RGB_TO_ULONG(152, 251, 152), "pale green" },
383 { RGB_TO_ULONG(152, 251, 152), "PaleGreen" },
384 { RGB_TO_ULONG(0 , 255, 127), "spring green" },
385 { RGB_TO_ULONG(0 , 255, 127), "SpringGreen" },
386 { RGB_TO_ULONG(124, 252, 0 ), "lawn green" },
387 { RGB_TO_ULONG(124, 252, 0 ), "LawnGreen" },
388 { RGB_TO_ULONG(0 , 255, 0 ), "green" },
389 { RGB_TO_ULONG(127, 255, 0 ), "chartreuse" },
390 { RGB_TO_ULONG(0 , 250, 154), "medium spring green" },
391 { RGB_TO_ULONG(0 , 250, 154), "MediumSpringGreen" },
392 { RGB_TO_ULONG(173, 255, 47 ), "green yellow" },
393 { RGB_TO_ULONG(173, 255, 47 ), "GreenYellow" },
394 { RGB_TO_ULONG(50 , 205, 50 ), "lime green" },
395 { RGB_TO_ULONG(50 , 205, 50 ), "LimeGreen" },
396 { RGB_TO_ULONG(154, 205, 50 ), "yellow green" },
397 { RGB_TO_ULONG(154, 205, 50 ), "YellowGreen" },
398 { RGB_TO_ULONG(34 , 139, 34 ), "forest green" },
399 { RGB_TO_ULONG(34 , 139, 34 ), "ForestGreen" },
400 { RGB_TO_ULONG(107, 142, 35 ), "olive drab" },
401 { RGB_TO_ULONG(107, 142, 35 ), "OliveDrab" },
402 { RGB_TO_ULONG(189, 183, 107), "dark khaki" },
403 { RGB_TO_ULONG(189, 183, 107), "DarkKhaki" },
404 { RGB_TO_ULONG(240, 230, 140), "khaki" },
405 { RGB_TO_ULONG(238, 232, 170), "pale goldenrod" },
406 { RGB_TO_ULONG(238, 232, 170), "PaleGoldenrod" },
407 { RGB_TO_ULONG(250, 250, 210), "light goldenrod yellow" },
408 { RGB_TO_ULONG(250, 250, 210), "LightGoldenrodYellow" },
409 { RGB_TO_ULONG(255, 255, 224), "light yellow" },
410 { RGB_TO_ULONG(255, 255, 224), "LightYellow" },
411 { RGB_TO_ULONG(255, 255, 0 ), "yellow" },
412 { RGB_TO_ULONG(255, 215, 0 ), "gold" },
413 { RGB_TO_ULONG(238, 221, 130), "light goldenrod" },
414 { RGB_TO_ULONG(238, 221, 130), "LightGoldenrod" },
415 { RGB_TO_ULONG(218, 165, 32 ), "goldenrod" },
416 { RGB_TO_ULONG(184, 134, 11 ), "dark goldenrod" },
417 { RGB_TO_ULONG(184, 134, 11 ), "DarkGoldenrod" },
418 { RGB_TO_ULONG(188, 143, 143), "rosy brown" },
419 { RGB_TO_ULONG(188, 143, 143), "RosyBrown" },
420 { RGB_TO_ULONG(205, 92 , 92 ), "indian red" },
421 { RGB_TO_ULONG(205, 92 , 92 ), "IndianRed" },
422 { RGB_TO_ULONG(139, 69 , 19 ), "saddle brown" },
423 { RGB_TO_ULONG(139, 69 , 19 ), "SaddleBrown" },
424 { RGB_TO_ULONG(160, 82 , 45 ), "sienna" },
425 { RGB_TO_ULONG(205, 133, 63 ), "peru" },
426 { RGB_TO_ULONG(222, 184, 135), "burlywood" },
427 { RGB_TO_ULONG(245, 245, 220), "beige" },
428 { RGB_TO_ULONG(245, 222, 179), "wheat" },
429 { RGB_TO_ULONG(244, 164, 96 ), "sandy brown" },
430 { RGB_TO_ULONG(244, 164, 96 ), "SandyBrown" },
431 { RGB_TO_ULONG(210, 180, 140), "tan" },
432 { RGB_TO_ULONG(210, 105, 30 ), "chocolate" },
433 { RGB_TO_ULONG(178, 34 , 34 ), "firebrick" },
434 { RGB_TO_ULONG(165, 42 , 42 ), "brown" },
435 { RGB_TO_ULONG(233, 150, 122), "dark salmon" },
436 { RGB_TO_ULONG(233, 150, 122), "DarkSalmon" },
437 { RGB_TO_ULONG(250, 128, 114), "salmon" },
438 { RGB_TO_ULONG(255, 160, 122), "light salmon" },
439 { RGB_TO_ULONG(255, 160, 122), "LightSalmon" },
440 { RGB_TO_ULONG(255, 165, 0 ), "orange" },
441 { RGB_TO_ULONG(255, 140, 0 ), "dark orange" },
442 { RGB_TO_ULONG(255, 140, 0 ), "DarkOrange" },
443 { RGB_TO_ULONG(255, 127, 80 ), "coral" },
444 { RGB_TO_ULONG(240, 128, 128), "light coral" },
445 { RGB_TO_ULONG(240, 128, 128), "LightCoral" },
446 { RGB_TO_ULONG(255, 99 , 71 ), "tomato" },
447 { RGB_TO_ULONG(255, 69 , 0 ), "orange red" },
448 { RGB_TO_ULONG(255, 69 , 0 ), "OrangeRed" },
449 { RGB_TO_ULONG(255, 0 , 0 ), "red" },
450 { RGB_TO_ULONG(255, 105, 180), "hot pink" },
451 { RGB_TO_ULONG(255, 105, 180), "HotPink" },
452 { RGB_TO_ULONG(255, 20 , 147), "deep pink" },
453 { RGB_TO_ULONG(255, 20 , 147), "DeepPink" },
454 { RGB_TO_ULONG(255, 192, 203), "pink" },
455 { RGB_TO_ULONG(255, 182, 193), "light pink" },
456 { RGB_TO_ULONG(255, 182, 193), "LightPink" },
457 { RGB_TO_ULONG(219, 112, 147), "pale violet red" },
458 { RGB_TO_ULONG(219, 112, 147), "PaleVioletRed" },
459 { RGB_TO_ULONG(176, 48 , 96 ), "maroon" },
460 { RGB_TO_ULONG(199, 21 , 133), "medium violet red" },
461 { RGB_TO_ULONG(199, 21 , 133), "MediumVioletRed" },
462 { RGB_TO_ULONG(208, 32 , 144), "violet red" },
463 { RGB_TO_ULONG(208, 32 , 144), "VioletRed" },
464 { RGB_TO_ULONG(255, 0 , 255), "magenta" },
465 { RGB_TO_ULONG(238, 130, 238), "violet" },
466 { RGB_TO_ULONG(221, 160, 221), "plum" },
467 { RGB_TO_ULONG(218, 112, 214), "orchid" },
468 { RGB_TO_ULONG(186, 85 , 211), "medium orchid" },
469 { RGB_TO_ULONG(186, 85 , 211), "MediumOrchid" },
470 { RGB_TO_ULONG(153, 50 , 204), "dark orchid" },
471 { RGB_TO_ULONG(153, 50 , 204), "DarkOrchid" },
472 { RGB_TO_ULONG(148, 0 , 211), "dark violet" },
473 { RGB_TO_ULONG(148, 0 , 211), "DarkViolet" },
474 { RGB_TO_ULONG(138, 43 , 226), "blue violet" },
475 { RGB_TO_ULONG(138, 43 , 226), "BlueViolet" },
476 { RGB_TO_ULONG(160, 32 , 240), "purple" },
477 { RGB_TO_ULONG(147, 112, 219), "medium purple" },
478 { RGB_TO_ULONG(147, 112, 219), "MediumPurple" },
479 { RGB_TO_ULONG(216, 191, 216), "thistle" },
480 { RGB_TO_ULONG(255, 250, 250), "snow1" },
481 { RGB_TO_ULONG(238, 233, 233), "snow2" },
482 { RGB_TO_ULONG(205, 201, 201), "snow3" },
483 { RGB_TO_ULONG(139, 137, 137), "snow4" },
484 { RGB_TO_ULONG(255, 245, 238), "seashell1" },
485 { RGB_TO_ULONG(238, 229, 222), "seashell2" },
486 { RGB_TO_ULONG(205, 197, 191), "seashell3" },
487 { RGB_TO_ULONG(139, 134, 130), "seashell4" },
488 { RGB_TO_ULONG(255, 239, 219), "AntiqueWhite1" },
489 { RGB_TO_ULONG(238, 223, 204), "AntiqueWhite2" },
490 { RGB_TO_ULONG(205, 192, 176), "AntiqueWhite3" },
491 { RGB_TO_ULONG(139, 131, 120), "AntiqueWhite4" },
492 { RGB_TO_ULONG(255, 228, 196), "bisque1" },
493 { RGB_TO_ULONG(238, 213, 183), "bisque2" },
494 { RGB_TO_ULONG(205, 183, 158), "bisque3" },
495 { RGB_TO_ULONG(139, 125, 107), "bisque4" },
496 { RGB_TO_ULONG(255, 218, 185), "PeachPuff1" },
497 { RGB_TO_ULONG(238, 203, 173), "PeachPuff2" },
498 { RGB_TO_ULONG(205, 175, 149), "PeachPuff3" },
499 { RGB_TO_ULONG(139, 119, 101), "PeachPuff4" },
500 { RGB_TO_ULONG(255, 222, 173), "NavajoWhite1" },
501 { RGB_TO_ULONG(238, 207, 161), "NavajoWhite2" },
502 { RGB_TO_ULONG(205, 179, 139), "NavajoWhite3" },
503 { RGB_TO_ULONG(139, 121, 94), "NavajoWhite4" },
504 { RGB_TO_ULONG(255, 250, 205), "LemonChiffon1" },
505 { RGB_TO_ULONG(238, 233, 191), "LemonChiffon2" },
506 { RGB_TO_ULONG(205, 201, 165), "LemonChiffon3" },
507 { RGB_TO_ULONG(139, 137, 112), "LemonChiffon4" },
508 { RGB_TO_ULONG(255, 248, 220), "cornsilk1" },
509 { RGB_TO_ULONG(238, 232, 205), "cornsilk2" },
510 { RGB_TO_ULONG(205, 200, 177), "cornsilk3" },
511 { RGB_TO_ULONG(139, 136, 120), "cornsilk4" },
512 { RGB_TO_ULONG(255, 255, 240), "ivory1" },
513 { RGB_TO_ULONG(238, 238, 224), "ivory2" },
514 { RGB_TO_ULONG(205, 205, 193), "ivory3" },
515 { RGB_TO_ULONG(139, 139, 131), "ivory4" },
516 { RGB_TO_ULONG(240, 255, 240), "honeydew1" },
517 { RGB_TO_ULONG(224, 238, 224), "honeydew2" },
518 { RGB_TO_ULONG(193, 205, 193), "honeydew3" },
519 { RGB_TO_ULONG(131, 139, 131), "honeydew4" },
520 { RGB_TO_ULONG(255, 240, 245), "LavenderBlush1" },
521 { RGB_TO_ULONG(238, 224, 229), "LavenderBlush2" },
522 { RGB_TO_ULONG(205, 193, 197), "LavenderBlush3" },
523 { RGB_TO_ULONG(139, 131, 134), "LavenderBlush4" },
524 { RGB_TO_ULONG(255, 228, 225), "MistyRose1" },
525 { RGB_TO_ULONG(238, 213, 210), "MistyRose2" },
526 { RGB_TO_ULONG(205, 183, 181), "MistyRose3" },
527 { RGB_TO_ULONG(139, 125, 123), "MistyRose4" },
528 { RGB_TO_ULONG(240, 255, 255), "azure1" },
529 { RGB_TO_ULONG(224, 238, 238), "azure2" },
530 { RGB_TO_ULONG(193, 205, 205), "azure3" },
531 { RGB_TO_ULONG(131, 139, 139), "azure4" },
532 { RGB_TO_ULONG(131, 111, 255), "SlateBlue1" },
533 { RGB_TO_ULONG(122, 103, 238), "SlateBlue2" },
534 { RGB_TO_ULONG(105, 89 , 205), "SlateBlue3" },
535 { RGB_TO_ULONG(71 , 60 , 139), "SlateBlue4" },
536 { RGB_TO_ULONG(72 , 118, 255), "RoyalBlue1" },
537 { RGB_TO_ULONG(67 , 110, 238), "RoyalBlue2" },
538 { RGB_TO_ULONG(58 , 95 , 205), "RoyalBlue3" },
539 { RGB_TO_ULONG(39 , 64 , 139), "RoyalBlue4" },
540 { RGB_TO_ULONG(0 , 0 , 255), "blue1" },
541 { RGB_TO_ULONG(0 , 0 , 238), "blue2" },
542 { RGB_TO_ULONG(0 , 0 , 205), "blue3" },
543 { RGB_TO_ULONG(0 , 0 , 139), "blue4" },
544 { RGB_TO_ULONG(30 , 144, 255), "DodgerBlue1" },
545 { RGB_TO_ULONG(28 , 134, 238), "DodgerBlue2" },
546 { RGB_TO_ULONG(24 , 116, 205), "DodgerBlue3" },
547 { RGB_TO_ULONG(16 , 78 , 139), "DodgerBlue4" },
548 { RGB_TO_ULONG(99 , 184, 255), "SteelBlue1" },
549 { RGB_TO_ULONG(92 , 172, 238), "SteelBlue2" },
550 { RGB_TO_ULONG(79 , 148, 205), "SteelBlue3" },
551 { RGB_TO_ULONG(54 , 100, 139), "SteelBlue4" },
552 { RGB_TO_ULONG(0 , 191, 255), "DeepSkyBlue1" },
553 { RGB_TO_ULONG(0 , 178, 238), "DeepSkyBlue2" },
554 { RGB_TO_ULONG(0 , 154, 205), "DeepSkyBlue3" },
555 { RGB_TO_ULONG(0 , 104, 139), "DeepSkyBlue4" },
556 { RGB_TO_ULONG(135, 206, 255), "SkyBlue1" },
557 { RGB_TO_ULONG(126, 192, 238), "SkyBlue2" },
558 { RGB_TO_ULONG(108, 166, 205), "SkyBlue3" },
559 { RGB_TO_ULONG(74 , 112, 139), "SkyBlue4" },
560 { RGB_TO_ULONG(176, 226, 255), "LightSkyBlue1" },
561 { RGB_TO_ULONG(164, 211, 238), "LightSkyBlue2" },
562 { RGB_TO_ULONG(141, 182, 205), "LightSkyBlue3" },
563 { RGB_TO_ULONG(96 , 123, 139), "LightSkyBlue4" },
564 { RGB_TO_ULONG(198, 226, 255), "SlateGray1" },
565 { RGB_TO_ULONG(185, 211, 238), "SlateGray2" },
566 { RGB_TO_ULONG(159, 182, 205), "SlateGray3" },
567 { RGB_TO_ULONG(108, 123, 139), "SlateGray4" },
568 { RGB_TO_ULONG(202, 225, 255), "LightSteelBlue1" },
569 { RGB_TO_ULONG(188, 210, 238), "LightSteelBlue2" },
570 { RGB_TO_ULONG(162, 181, 205), "LightSteelBlue3" },
571 { RGB_TO_ULONG(110, 123, 139), "LightSteelBlue4" },
572 { RGB_TO_ULONG(191, 239, 255), "LightBlue1" },
573 { RGB_TO_ULONG(178, 223, 238), "LightBlue2" },
574 { RGB_TO_ULONG(154, 192, 205), "LightBlue3" },
575 { RGB_TO_ULONG(104, 131, 139), "LightBlue4" },
576 { RGB_TO_ULONG(224, 255, 255), "LightCyan1" },
577 { RGB_TO_ULONG(209, 238, 238), "LightCyan2" },
578 { RGB_TO_ULONG(180, 205, 205), "LightCyan3" },
579 { RGB_TO_ULONG(122, 139, 139), "LightCyan4" },
580 { RGB_TO_ULONG(187, 255, 255), "PaleTurquoise1" },
581 { RGB_TO_ULONG(174, 238, 238), "PaleTurquoise2" },
582 { RGB_TO_ULONG(150, 205, 205), "PaleTurquoise3" },
583 { RGB_TO_ULONG(102, 139, 139), "PaleTurquoise4" },
584 { RGB_TO_ULONG(152, 245, 255), "CadetBlue1" },
585 { RGB_TO_ULONG(142, 229, 238), "CadetBlue2" },
586 { RGB_TO_ULONG(122, 197, 205), "CadetBlue3" },
587 { RGB_TO_ULONG(83 , 134, 139), "CadetBlue4" },
588 { RGB_TO_ULONG(0 , 245, 255), "turquoise1" },
589 { RGB_TO_ULONG(0 , 229, 238), "turquoise2" },
590 { RGB_TO_ULONG(0 , 197, 205), "turquoise3" },
591 { RGB_TO_ULONG(0 , 134, 139), "turquoise4" },
592 { RGB_TO_ULONG(0 , 255, 255), "cyan1" },
593 { RGB_TO_ULONG(0 , 238, 238), "cyan2" },
594 { RGB_TO_ULONG(0 , 205, 205), "cyan3" },
595 { RGB_TO_ULONG(0 , 139, 139), "cyan4" },
596 { RGB_TO_ULONG(151, 255, 255), "DarkSlateGray1" },
597 { RGB_TO_ULONG(141, 238, 238), "DarkSlateGray2" },
598 { RGB_TO_ULONG(121, 205, 205), "DarkSlateGray3" },
599 { RGB_TO_ULONG(82 , 139, 139), "DarkSlateGray4" },
600 { RGB_TO_ULONG(127, 255, 212), "aquamarine1" },
601 { RGB_TO_ULONG(118, 238, 198), "aquamarine2" },
602 { RGB_TO_ULONG(102, 205, 170), "aquamarine3" },
603 { RGB_TO_ULONG(69 , 139, 116), "aquamarine4" },
604 { RGB_TO_ULONG(193, 255, 193), "DarkSeaGreen1" },
605 { RGB_TO_ULONG(180, 238, 180), "DarkSeaGreen2" },
606 { RGB_TO_ULONG(155, 205, 155), "DarkSeaGreen3" },
607 { RGB_TO_ULONG(105, 139, 105), "DarkSeaGreen4" },
608 { RGB_TO_ULONG(84 , 255, 159), "SeaGreen1" },
609 { RGB_TO_ULONG(78 , 238, 148), "SeaGreen2" },
610 { RGB_TO_ULONG(67 , 205, 128), "SeaGreen3" },
611 { RGB_TO_ULONG(46 , 139, 87 ), "SeaGreen4" },
612 { RGB_TO_ULONG(154, 255, 154), "PaleGreen1" },
613 { RGB_TO_ULONG(144, 238, 144), "PaleGreen2" },
614 { RGB_TO_ULONG(124, 205, 124), "PaleGreen3" },
615 { RGB_TO_ULONG(84 , 139, 84 ), "PaleGreen4" },
616 { RGB_TO_ULONG(0 , 255, 127), "SpringGreen1" },
617 { RGB_TO_ULONG(0 , 238, 118), "SpringGreen2" },
618 { RGB_TO_ULONG(0 , 205, 102), "SpringGreen3" },
619 { RGB_TO_ULONG(0 , 139, 69 ), "SpringGreen4" },
620 { RGB_TO_ULONG(0 , 255, 0 ), "green1" },
621 { RGB_TO_ULONG(0 , 238, 0 ), "green2" },
622 { RGB_TO_ULONG(0 , 205, 0 ), "green3" },
623 { RGB_TO_ULONG(0 , 139, 0 ), "green4" },
624 { RGB_TO_ULONG(127, 255, 0 ), "chartreuse1" },
625 { RGB_TO_ULONG(118, 238, 0 ), "chartreuse2" },
626 { RGB_TO_ULONG(102, 205, 0 ), "chartreuse3" },
627 { RGB_TO_ULONG(69 , 139, 0 ), "chartreuse4" },
628 { RGB_TO_ULONG(192, 255, 62 ), "OliveDrab1" },
629 { RGB_TO_ULONG(179, 238, 58 ), "OliveDrab2" },
630 { RGB_TO_ULONG(154, 205, 50 ), "OliveDrab3" },
631 { RGB_TO_ULONG(105, 139, 34 ), "OliveDrab4" },
632 { RGB_TO_ULONG(202, 255, 112), "DarkOliveGreen1" },
633 { RGB_TO_ULONG(188, 238, 104), "DarkOliveGreen2" },
634 { RGB_TO_ULONG(162, 205, 90 ), "DarkOliveGreen3" },
635 { RGB_TO_ULONG(110, 139, 61 ), "DarkOliveGreen4" },
636 { RGB_TO_ULONG(255, 246, 143), "khaki1" },
637 { RGB_TO_ULONG(238, 230, 133), "khaki2" },
638 { RGB_TO_ULONG(205, 198, 115), "khaki3" },
639 { RGB_TO_ULONG(139, 134, 78 ), "khaki4" },
640 { RGB_TO_ULONG(255, 236, 139), "LightGoldenrod1" },
641 { RGB_TO_ULONG(238, 220, 130), "LightGoldenrod2" },
642 { RGB_TO_ULONG(205, 190, 112), "LightGoldenrod3" },
643 { RGB_TO_ULONG(139, 129, 76 ), "LightGoldenrod4" },
644 { RGB_TO_ULONG(255, 255, 224), "LightYellow1" },
645 { RGB_TO_ULONG(238, 238, 209), "LightYellow2" },
646 { RGB_TO_ULONG(205, 205, 180), "LightYellow3" },
647 { RGB_TO_ULONG(139, 139, 122), "LightYellow4" },
648 { RGB_TO_ULONG(255, 255, 0 ), "yellow1" },
649 { RGB_TO_ULONG(238, 238, 0 ), "yellow2" },
650 { RGB_TO_ULONG(205, 205, 0 ), "yellow3" },
651 { RGB_TO_ULONG(139, 139, 0 ), "yellow4" },
652 { RGB_TO_ULONG(255, 215, 0 ), "gold1" },
653 { RGB_TO_ULONG(238, 201, 0 ), "gold2" },
654 { RGB_TO_ULONG(205, 173, 0 ), "gold3" },
655 { RGB_TO_ULONG(139, 117, 0 ), "gold4" },
656 { RGB_TO_ULONG(255, 193, 37 ), "goldenrod1" },
657 { RGB_TO_ULONG(238, 180, 34 ), "goldenrod2" },
658 { RGB_TO_ULONG(205, 155, 29 ), "goldenrod3" },
659 { RGB_TO_ULONG(139, 105, 20 ), "goldenrod4" },
660 { RGB_TO_ULONG(255, 185, 15 ), "DarkGoldenrod1" },
661 { RGB_TO_ULONG(238, 173, 14 ), "DarkGoldenrod2" },
662 { RGB_TO_ULONG(205, 149, 12 ), "DarkGoldenrod3" },
663 { RGB_TO_ULONG(139, 101, 8 ), "DarkGoldenrod4" },
664 { RGB_TO_ULONG(255, 193, 193), "RosyBrown1" },
665 { RGB_TO_ULONG(238, 180, 180), "RosyBrown2" },
666 { RGB_TO_ULONG(205, 155, 155), "RosyBrown3" },
667 { RGB_TO_ULONG(139, 105, 105), "RosyBrown4" },
668 { RGB_TO_ULONG(255, 106, 106), "IndianRed1" },
669 { RGB_TO_ULONG(238, 99 , 99 ), "IndianRed2" },
670 { RGB_TO_ULONG(205, 85 , 85 ), "IndianRed3" },
671 { RGB_TO_ULONG(139, 58 , 58 ), "IndianRed4" },
672 { RGB_TO_ULONG(255, 130, 71 ), "sienna1" },
673 { RGB_TO_ULONG(238, 121, 66 ), "sienna2" },
674 { RGB_TO_ULONG(205, 104, 57 ), "sienna3" },
675 { RGB_TO_ULONG(139, 71 , 38 ), "sienna4" },
676 { RGB_TO_ULONG(255, 211, 155), "burlywood1" },
677 { RGB_TO_ULONG(238, 197, 145), "burlywood2" },
678 { RGB_TO_ULONG(205, 170, 125), "burlywood3" },
679 { RGB_TO_ULONG(139, 115, 85 ), "burlywood4" },
680 { RGB_TO_ULONG(255, 231, 186), "wheat1" },
681 { RGB_TO_ULONG(238, 216, 174), "wheat2" },
682 { RGB_TO_ULONG(205, 186, 150), "wheat3" },
683 { RGB_TO_ULONG(139, 126, 102), "wheat4" },
684 { RGB_TO_ULONG(255, 165, 79 ), "tan1" },
685 { RGB_TO_ULONG(238, 154, 73 ), "tan2" },
686 { RGB_TO_ULONG(205, 133, 63 ), "tan3" },
687 { RGB_TO_ULONG(139, 90 , 43 ), "tan4" },
688 { RGB_TO_ULONG(255, 127, 36 ), "chocolate1" },
689 { RGB_TO_ULONG(238, 118, 33 ), "chocolate2" },
690 { RGB_TO_ULONG(205, 102, 29 ), "chocolate3" },
691 { RGB_TO_ULONG(139, 69 , 19 ), "chocolate4" },
692 { RGB_TO_ULONG(255, 48 , 48 ), "firebrick1" },
693 { RGB_TO_ULONG(238, 44 , 44 ), "firebrick2" },
694 { RGB_TO_ULONG(205, 38 , 38 ), "firebrick3" },
695 { RGB_TO_ULONG(139, 26 , 26 ), "firebrick4" },
696 { RGB_TO_ULONG(255, 64 , 64 ), "brown1" },
697 { RGB_TO_ULONG(238, 59 , 59 ), "brown2" },
698 { RGB_TO_ULONG(205, 51 , 51 ), "brown3" },
699 { RGB_TO_ULONG(139, 35 , 35 ), "brown4" },
700 { RGB_TO_ULONG(255, 140, 105), "salmon1" },
701 { RGB_TO_ULONG(238, 130, 98 ), "salmon2" },
702 { RGB_TO_ULONG(205, 112, 84 ), "salmon3" },
703 { RGB_TO_ULONG(139, 76 , 57 ), "salmon4" },
704 { RGB_TO_ULONG(255, 160, 122), "LightSalmon1" },
705 { RGB_TO_ULONG(238, 149, 114), "LightSalmon2" },
706 { RGB_TO_ULONG(205, 129, 98 ), "LightSalmon3" },
707 { RGB_TO_ULONG(139, 87 , 66 ), "LightSalmon4" },
708 { RGB_TO_ULONG(255, 165, 0 ), "orange1" },
709 { RGB_TO_ULONG(238, 154, 0 ), "orange2" },
710 { RGB_TO_ULONG(205, 133, 0 ), "orange3" },
711 { RGB_TO_ULONG(139, 90 , 0 ), "orange4" },
712 { RGB_TO_ULONG(255, 127, 0 ), "DarkOrange1" },
713 { RGB_TO_ULONG(238, 118, 0 ), "DarkOrange2" },
714 { RGB_TO_ULONG(205, 102, 0 ), "DarkOrange3" },
715 { RGB_TO_ULONG(139, 69 , 0 ), "DarkOrange4" },
716 { RGB_TO_ULONG(255, 114, 86 ), "coral1" },
717 { RGB_TO_ULONG(238, 106, 80 ), "coral2" },
718 { RGB_TO_ULONG(205, 91 , 69 ), "coral3" },
719 { RGB_TO_ULONG(139, 62 , 47 ), "coral4" },
720 { RGB_TO_ULONG(255, 99 , 71 ), "tomato1" },
721 { RGB_TO_ULONG(238, 92 , 66 ), "tomato2" },
722 { RGB_TO_ULONG(205, 79 , 57 ), "tomato3" },
723 { RGB_TO_ULONG(139, 54 , 38 ), "tomato4" },
724 { RGB_TO_ULONG(255, 69 , 0 ), "OrangeRed1" },
725 { RGB_TO_ULONG(238, 64 , 0 ), "OrangeRed2" },
726 { RGB_TO_ULONG(205, 55 , 0 ), "OrangeRed3" },
727 { RGB_TO_ULONG(139, 37 , 0 ), "OrangeRed4" },
728 { RGB_TO_ULONG(255, 0 , 0 ), "red1" },
729 { RGB_TO_ULONG(238, 0 , 0 ), "red2" },
730 { RGB_TO_ULONG(205, 0 , 0 ), "red3" },
731 { RGB_TO_ULONG(139, 0 , 0 ), "red4" },
732 { RGB_TO_ULONG(255, 20 , 147), "DeepPink1" },
733 { RGB_TO_ULONG(238, 18 , 137), "DeepPink2" },
734 { RGB_TO_ULONG(205, 16 , 118), "DeepPink3" },
735 { RGB_TO_ULONG(139, 10 , 80 ), "DeepPink4" },
736 { RGB_TO_ULONG(255, 110, 180), "HotPink1" },
737 { RGB_TO_ULONG(238, 106, 167), "HotPink2" },
738 { RGB_TO_ULONG(205, 96 , 144), "HotPink3" },
739 { RGB_TO_ULONG(139, 58 , 98 ), "HotPink4" },
740 { RGB_TO_ULONG(255, 181, 197), "pink1" },
741 { RGB_TO_ULONG(238, 169, 184), "pink2" },
742 { RGB_TO_ULONG(205, 145, 158), "pink3" },
743 { RGB_TO_ULONG(139, 99 , 108), "pink4" },
744 { RGB_TO_ULONG(255, 174, 185), "LightPink1" },
745 { RGB_TO_ULONG(238, 162, 173), "LightPink2" },
746 { RGB_TO_ULONG(205, 140, 149), "LightPink3" },
747 { RGB_TO_ULONG(139, 95 , 101), "LightPink4" },
748 { RGB_TO_ULONG(255, 130, 171), "PaleVioletRed1" },
749 { RGB_TO_ULONG(238, 121, 159), "PaleVioletRed2" },
750 { RGB_TO_ULONG(205, 104, 137), "PaleVioletRed3" },
751 { RGB_TO_ULONG(139, 71 , 93 ), "PaleVioletRed4" },
752 { RGB_TO_ULONG(255, 52 , 179), "maroon1" },
753 { RGB_TO_ULONG(238, 48 , 167), "maroon2" },
754 { RGB_TO_ULONG(205, 41 , 144), "maroon3" },
755 { RGB_TO_ULONG(139, 28 , 98 ), "maroon4" },
756 { RGB_TO_ULONG(255, 62 , 150), "VioletRed1" },
757 { RGB_TO_ULONG(238, 58 , 140), "VioletRed2" },
758 { RGB_TO_ULONG(205, 50 , 120), "VioletRed3" },
759 { RGB_TO_ULONG(139, 34 , 82 ), "VioletRed4" },
760 { RGB_TO_ULONG(255, 0 , 255), "magenta1" },
761 { RGB_TO_ULONG(238, 0 , 238), "magenta2" },
762 { RGB_TO_ULONG(205, 0 , 205), "magenta3" },
763 { RGB_TO_ULONG(139, 0 , 139), "magenta4" },
764 { RGB_TO_ULONG(255, 131, 250), "orchid1" },
765 { RGB_TO_ULONG(238, 122, 233), "orchid2" },
766 { RGB_TO_ULONG(205, 105, 201), "orchid3" },
767 { RGB_TO_ULONG(139, 71 , 137), "orchid4" },
768 { RGB_TO_ULONG(255, 187, 255), "plum1" },
769 { RGB_TO_ULONG(238, 174, 238), "plum2" },
770 { RGB_TO_ULONG(205, 150, 205), "plum3" },
771 { RGB_TO_ULONG(139, 102, 139), "plum4" },
772 { RGB_TO_ULONG(224, 102, 255), "MediumOrchid1" },
773 { RGB_TO_ULONG(209, 95 , 238), "MediumOrchid2" },
774 { RGB_TO_ULONG(180, 82 , 205), "MediumOrchid3" },
775 { RGB_TO_ULONG(122, 55 , 139), "MediumOrchid4" },
776 { RGB_TO_ULONG(191, 62 , 255), "DarkOrchid1" },
777 { RGB_TO_ULONG(178, 58 , 238), "DarkOrchid2" },
778 { RGB_TO_ULONG(154, 50 , 205), "DarkOrchid3" },
779 { RGB_TO_ULONG(104, 34 , 139), "DarkOrchid4" },
780 { RGB_TO_ULONG(155, 48 , 255), "purple1" },
781 { RGB_TO_ULONG(145, 44 , 238), "purple2" },
782 { RGB_TO_ULONG(125, 38 , 205), "purple3" },
783 { RGB_TO_ULONG(85 , 26 , 139), "purple4" },
784 { RGB_TO_ULONG(171, 130, 255), "MediumPurple1" },
785 { RGB_TO_ULONG(159, 121, 238), "MediumPurple2" },
786 { RGB_TO_ULONG(137, 104, 205), "MediumPurple3" },
787 { RGB_TO_ULONG(93 , 71 , 139), "MediumPurple4" },
788 { RGB_TO_ULONG(255, 225, 255), "thistle1" },
789 { RGB_TO_ULONG(238, 210, 238), "thistle2" },
790 { RGB_TO_ULONG(205, 181, 205), "thistle3" },
791 { RGB_TO_ULONG(139, 123, 139), "thistle4" },
792 { RGB_TO_ULONG(0 , 0 , 0 ), "gray0" },
793 { RGB_TO_ULONG(0 , 0 , 0 ), "grey0" },
794 { RGB_TO_ULONG(3 , 3 , 3 ), "gray1" },
795 { RGB_TO_ULONG(3 , 3 , 3 ), "grey1" },
796 { RGB_TO_ULONG(5 , 5 , 5 ), "gray2" },
797 { RGB_TO_ULONG(5 , 5 , 5 ), "grey2" },
798 { RGB_TO_ULONG(8 , 8 , 8 ), "gray3" },
799 { RGB_TO_ULONG(8 , 8 , 8 ), "grey3" },
800 { RGB_TO_ULONG(10 , 10 , 10 ), "gray4" },
801 { RGB_TO_ULONG(10 , 10 , 10 ), "grey4" },
802 { RGB_TO_ULONG(13 , 13 , 13 ), "gray5" },
803 { RGB_TO_ULONG(13 , 13 , 13 ), "grey5" },
804 { RGB_TO_ULONG(15 , 15 , 15 ), "gray6" },
805 { RGB_TO_ULONG(15 , 15 , 15 ), "grey6" },
806 { RGB_TO_ULONG(18 , 18 , 18 ), "gray7" },
807 { RGB_TO_ULONG(18 , 18 , 18 ), "grey7" },
808 { RGB_TO_ULONG(20 , 20 , 20 ), "gray8" },
809 { RGB_TO_ULONG(20 , 20 , 20 ), "grey8" },
810 { RGB_TO_ULONG(23 , 23 , 23 ), "gray9" },
811 { RGB_TO_ULONG(23 , 23 , 23 ), "grey9" },
812 { RGB_TO_ULONG(26 , 26 , 26 ), "gray10" },
813 { RGB_TO_ULONG(26 , 26 , 26 ), "grey10" },
814 { RGB_TO_ULONG(28 , 28 , 28 ), "gray11" },
815 { RGB_TO_ULONG(28 , 28 , 28 ), "grey11" },
816 { RGB_TO_ULONG(31 , 31 , 31 ), "gray12" },
817 { RGB_TO_ULONG(31 , 31 , 31 ), "grey12" },
818 { RGB_TO_ULONG(33 , 33 , 33 ), "gray13" },
819 { RGB_TO_ULONG(33 , 33 , 33 ), "grey13" },
820 { RGB_TO_ULONG(36 , 36 , 36 ), "gray14" },
821 { RGB_TO_ULONG(36 , 36 , 36 ), "grey14" },
822 { RGB_TO_ULONG(38 , 38 , 38 ), "gray15" },
823 { RGB_TO_ULONG(38 , 38 , 38 ), "grey15" },
824 { RGB_TO_ULONG(41 , 41 , 41 ), "gray16" },
825 { RGB_TO_ULONG(41 , 41 , 41 ), "grey16" },
826 { RGB_TO_ULONG(43 , 43 , 43 ), "gray17" },
827 { RGB_TO_ULONG(43 , 43 , 43 ), "grey17" },
828 { RGB_TO_ULONG(46 , 46 , 46 ), "gray18" },
829 { RGB_TO_ULONG(46 , 46 , 46 ), "grey18" },
830 { RGB_TO_ULONG(48 , 48 , 48 ), "gray19" },
831 { RGB_TO_ULONG(48 , 48 , 48 ), "grey19" },
832 { RGB_TO_ULONG(51 , 51 , 51 ), "gray20" },
833 { RGB_TO_ULONG(51 , 51 , 51 ), "grey20" },
834 { RGB_TO_ULONG(54 , 54 , 54 ), "gray21" },
835 { RGB_TO_ULONG(54 , 54 , 54 ), "grey21" },
836 { RGB_TO_ULONG(56 , 56 , 56 ), "gray22" },
837 { RGB_TO_ULONG(56 , 56 , 56 ), "grey22" },
838 { RGB_TO_ULONG(59 , 59 , 59 ), "gray23" },
839 { RGB_TO_ULONG(59 , 59 , 59 ), "grey23" },
840 { RGB_TO_ULONG(61 , 61 , 61 ), "gray24" },
841 { RGB_TO_ULONG(61 , 61 , 61 ), "grey24" },
842 { RGB_TO_ULONG(64 , 64 , 64 ), "gray25" },
843 { RGB_TO_ULONG(64 , 64 , 64 ), "grey25" },
844 { RGB_TO_ULONG(66 , 66 , 66 ), "gray26" },
845 { RGB_TO_ULONG(66 , 66 , 66 ), "grey26" },
846 { RGB_TO_ULONG(69 , 69 , 69 ), "gray27" },
847 { RGB_TO_ULONG(69 , 69 , 69 ), "grey27" },
848 { RGB_TO_ULONG(71 , 71 , 71 ), "gray28" },
849 { RGB_TO_ULONG(71 , 71 , 71 ), "grey28" },
850 { RGB_TO_ULONG(74 , 74 , 74 ), "gray29" },
851 { RGB_TO_ULONG(74 , 74 , 74 ), "grey29" },
852 { RGB_TO_ULONG(77 , 77 , 77 ), "gray30" },
853 { RGB_TO_ULONG(77 , 77 , 77 ), "grey30" },
854 { RGB_TO_ULONG(79 , 79 , 79 ), "gray31" },
855 { RGB_TO_ULONG(79 , 79 , 79 ), "grey31" },
856 { RGB_TO_ULONG(82 , 82 , 82 ), "gray32" },
857 { RGB_TO_ULONG(82 , 82 , 82 ), "grey32" },
858 { RGB_TO_ULONG(84 , 84 , 84 ), "gray33" },
859 { RGB_TO_ULONG(84 , 84 , 84 ), "grey33" },
860 { RGB_TO_ULONG(87 , 87 , 87 ), "gray34" },
861 { RGB_TO_ULONG(87 , 87 , 87 ), "grey34" },
862 { RGB_TO_ULONG(89 , 89 , 89 ), "gray35" },
863 { RGB_TO_ULONG(89 , 89 , 89 ), "grey35" },
864 { RGB_TO_ULONG(92 , 92 , 92 ), "gray36" },
865 { RGB_TO_ULONG(92 , 92 , 92 ), "grey36" },
866 { RGB_TO_ULONG(94 , 94 , 94 ), "gray37" },
867 { RGB_TO_ULONG(94 , 94 , 94 ), "grey37" },
868 { RGB_TO_ULONG(97 , 97 , 97 ), "gray38" },
869 { RGB_TO_ULONG(97 , 97 , 97 ), "grey38" },
870 { RGB_TO_ULONG(99 , 99 , 99 ), "gray39" },
871 { RGB_TO_ULONG(99 , 99 , 99 ), "grey39" },
872 { RGB_TO_ULONG(102, 102, 102), "gray40" },
873 { RGB_TO_ULONG(102, 102, 102), "grey40" },
874 { RGB_TO_ULONG(105, 105, 105), "gray41" },
875 { RGB_TO_ULONG(105, 105, 105), "grey41" },
876 { RGB_TO_ULONG(107, 107, 107), "gray42" },
877 { RGB_TO_ULONG(107, 107, 107), "grey42" },
878 { RGB_TO_ULONG(110, 110, 110), "gray43" },
879 { RGB_TO_ULONG(110, 110, 110), "grey43" },
880 { RGB_TO_ULONG(112, 112, 112), "gray44" },
881 { RGB_TO_ULONG(112, 112, 112), "grey44" },
882 { RGB_TO_ULONG(115, 115, 115), "gray45" },
883 { RGB_TO_ULONG(115, 115, 115), "grey45" },
884 { RGB_TO_ULONG(117, 117, 117), "gray46" },
885 { RGB_TO_ULONG(117, 117, 117), "grey46" },
886 { RGB_TO_ULONG(120, 120, 120), "gray47" },
887 { RGB_TO_ULONG(120, 120, 120), "grey47" },
888 { RGB_TO_ULONG(122, 122, 122), "gray48" },
889 { RGB_TO_ULONG(122, 122, 122), "grey48" },
890 { RGB_TO_ULONG(125, 125, 125), "gray49" },
891 { RGB_TO_ULONG(125, 125, 125), "grey49" },
892 { RGB_TO_ULONG(127, 127, 127), "gray50" },
893 { RGB_TO_ULONG(127, 127, 127), "grey50" },
894 { RGB_TO_ULONG(130, 130, 130), "gray51" },
895 { RGB_TO_ULONG(130, 130, 130), "grey51" },
896 { RGB_TO_ULONG(133, 133, 133), "gray52" },
897 { RGB_TO_ULONG(133, 133, 133), "grey52" },
898 { RGB_TO_ULONG(135, 135, 135), "gray53" },
899 { RGB_TO_ULONG(135, 135, 135), "grey53" },
900 { RGB_TO_ULONG(138, 138, 138), "gray54" },
901 { RGB_TO_ULONG(138, 138, 138), "grey54" },
902 { RGB_TO_ULONG(140, 140, 140), "gray55" },
903 { RGB_TO_ULONG(140, 140, 140), "grey55" },
904 { RGB_TO_ULONG(143, 143, 143), "gray56" },
905 { RGB_TO_ULONG(143, 143, 143), "grey56" },
906 { RGB_TO_ULONG(145, 145, 145), "gray57" },
907 { RGB_TO_ULONG(145, 145, 145), "grey57" },
908 { RGB_TO_ULONG(148, 148, 148), "gray58" },
909 { RGB_TO_ULONG(148, 148, 148), "grey58" },
910 { RGB_TO_ULONG(150, 150, 150), "gray59" },
911 { RGB_TO_ULONG(150, 150, 150), "grey59" },
912 { RGB_TO_ULONG(153, 153, 153), "gray60" },
913 { RGB_TO_ULONG(153, 153, 153), "grey60" },
914 { RGB_TO_ULONG(156, 156, 156), "gray61" },
915 { RGB_TO_ULONG(156, 156, 156), "grey61" },
916 { RGB_TO_ULONG(158, 158, 158), "gray62" },
917 { RGB_TO_ULONG(158, 158, 158), "grey62" },
918 { RGB_TO_ULONG(161, 161, 161), "gray63" },
919 { RGB_TO_ULONG(161, 161, 161), "grey63" },
920 { RGB_TO_ULONG(163, 163, 163), "gray64" },
921 { RGB_TO_ULONG(163, 163, 163), "grey64" },
922 { RGB_TO_ULONG(166, 166, 166), "gray65" },
923 { RGB_TO_ULONG(166, 166, 166), "grey65" },
924 { RGB_TO_ULONG(168, 168, 168), "gray66" },
925 { RGB_TO_ULONG(168, 168, 168), "grey66" },
926 { RGB_TO_ULONG(171, 171, 171), "gray67" },
927 { RGB_TO_ULONG(171, 171, 171), "grey67" },
928 { RGB_TO_ULONG(173, 173, 173), "gray68" },
929 { RGB_TO_ULONG(173, 173, 173), "grey68" },
930 { RGB_TO_ULONG(176, 176, 176), "gray69" },
931 { RGB_TO_ULONG(176, 176, 176), "grey69" },
932 { RGB_TO_ULONG(179, 179, 179), "gray70" },
933 { RGB_TO_ULONG(179, 179, 179), "grey70" },
934 { RGB_TO_ULONG(181, 181, 181), "gray71" },
935 { RGB_TO_ULONG(181, 181, 181), "grey71" },
936 { RGB_TO_ULONG(184, 184, 184), "gray72" },
937 { RGB_TO_ULONG(184, 184, 184), "grey72" },
938 { RGB_TO_ULONG(186, 186, 186), "gray73" },
939 { RGB_TO_ULONG(186, 186, 186), "grey73" },
940 { RGB_TO_ULONG(189, 189, 189), "gray74" },
941 { RGB_TO_ULONG(189, 189, 189), "grey74" },
942 { RGB_TO_ULONG(191, 191, 191), "gray75" },
943 { RGB_TO_ULONG(191, 191, 191), "grey75" },
944 { RGB_TO_ULONG(194, 194, 194), "gray76" },
945 { RGB_TO_ULONG(194, 194, 194), "grey76" },
946 { RGB_TO_ULONG(196, 196, 196), "gray77" },
947 { RGB_TO_ULONG(196, 196, 196), "grey77" },
948 { RGB_TO_ULONG(199, 199, 199), "gray78" },
949 { RGB_TO_ULONG(199, 199, 199), "grey78" },
950 { RGB_TO_ULONG(201, 201, 201), "gray79" },
951 { RGB_TO_ULONG(201, 201, 201), "grey79" },
952 { RGB_TO_ULONG(204, 204, 204), "gray80" },
953 { RGB_TO_ULONG(204, 204, 204), "grey80" },
954 { RGB_TO_ULONG(207, 207, 207), "gray81" },
955 { RGB_TO_ULONG(207, 207, 207), "grey81" },
956 { RGB_TO_ULONG(209, 209, 209), "gray82" },
957 { RGB_TO_ULONG(209, 209, 209), "grey82" },
958 { RGB_TO_ULONG(212, 212, 212), "gray83" },
959 { RGB_TO_ULONG(212, 212, 212), "grey83" },
960 { RGB_TO_ULONG(214, 214, 214), "gray84" },
961 { RGB_TO_ULONG(214, 214, 214), "grey84" },
962 { RGB_TO_ULONG(217, 217, 217), "gray85" },
963 { RGB_TO_ULONG(217, 217, 217), "grey85" },
964 { RGB_TO_ULONG(219, 219, 219), "gray86" },
965 { RGB_TO_ULONG(219, 219, 219), "grey86" },
966 { RGB_TO_ULONG(222, 222, 222), "gray87" },
967 { RGB_TO_ULONG(222, 222, 222), "grey87" },
968 { RGB_TO_ULONG(224, 224, 224), "gray88" },
969 { RGB_TO_ULONG(224, 224, 224), "grey88" },
970 { RGB_TO_ULONG(227, 227, 227), "gray89" },
971 { RGB_TO_ULONG(227, 227, 227), "grey89" },
972 { RGB_TO_ULONG(229, 229, 229), "gray90" },
973 { RGB_TO_ULONG(229, 229, 229), "grey90" },
974 { RGB_TO_ULONG(232, 232, 232), "gray91" },
975 { RGB_TO_ULONG(232, 232, 232), "grey91" },
976 { RGB_TO_ULONG(235, 235, 235), "gray92" },
977 { RGB_TO_ULONG(235, 235, 235), "grey92" },
978 { RGB_TO_ULONG(237, 237, 237), "gray93" },
979 { RGB_TO_ULONG(237, 237, 237), "grey93" },
980 { RGB_TO_ULONG(240, 240, 240), "gray94" },
981 { RGB_TO_ULONG(240, 240, 240), "grey94" },
982 { RGB_TO_ULONG(242, 242, 242), "gray95" },
983 { RGB_TO_ULONG(242, 242, 242), "grey95" },
984 { RGB_TO_ULONG(245, 245, 245), "gray96" },
985 { RGB_TO_ULONG(245, 245, 245), "grey96" },
986 { RGB_TO_ULONG(247, 247, 247), "gray97" },
987 { RGB_TO_ULONG(247, 247, 247), "grey97" },
988 { RGB_TO_ULONG(250, 250, 250), "gray98" },
989 { RGB_TO_ULONG(250, 250, 250), "grey98" },
990 { RGB_TO_ULONG(252, 252, 252), "gray99" },
991 { RGB_TO_ULONG(252, 252, 252), "grey99" },
992 { RGB_TO_ULONG(255, 255, 255), "gray100" },
993 { RGB_TO_ULONG(255, 255, 255), "grey100" },
994 { RGB_TO_ULONG(169, 169, 169), "dark grey" },
995 { RGB_TO_ULONG(169, 169, 169), "DarkGrey" },
996 { RGB_TO_ULONG(169, 169, 169), "dark gray" },
997 { RGB_TO_ULONG(169, 169, 169), "DarkGray" },
998 { RGB_TO_ULONG(0 , 0 , 139), "dark blue" },
999 { RGB_TO_ULONG(0 , 0 , 139), "DarkBlue" },
1000 { RGB_TO_ULONG(0 , 139, 139), "dark cyan" },
1001 { RGB_TO_ULONG(0 , 139, 139), "DarkCyan" },
1002 { RGB_TO_ULONG(139, 0 , 139), "dark magenta" },
1003 { RGB_TO_ULONG(139, 0 , 139), "DarkMagenta" },
1004 { RGB_TO_ULONG(139, 0 , 0 ), "dark red" },
1005 { RGB_TO_ULONG(139, 0 , 0 ), "DarkRed" },
1006 { RGB_TO_ULONG(144, 238, 144), "light green" },
1007 { RGB_TO_ULONG(144, 238, 144), "LightGreen" }
1011 mac_color_map_lookup (colorname
)
1012 const char *colorname
;
1014 Lisp_Object ret
= Qnil
;
1019 for (i
= 0; i
< sizeof (mac_color_map
) / sizeof (mac_color_map
[0]); i
++)
1020 if (xstricmp (colorname
, mac_color_map
[i
].name
) == 0)
1022 ret
= make_number (mac_color_map
[i
].color
);
1032 x_to_mac_color (colorname
)
1035 register Lisp_Object ret
= Qnil
;
1039 if (colorname
[0] == '#')
1041 /* Could be an old-style RGB Device specification. */
1044 color
= colorname
+ 1;
1046 size
= strlen(color
);
1047 if (size
== 3 || size
== 6 || size
== 9 || size
== 12)
1049 unsigned long colorval
;
1055 for (i
= 0; i
< 3; i
++)
1059 unsigned long value
;
1061 /* The check for 'x' in the following conditional takes into
1062 account the fact that strtol allows a "0x" in front of
1063 our numbers, and we don't. */
1064 if (!isxdigit(color
[0]) || color
[1] == 'x')
1068 value
= strtoul(color
, &end
, 16);
1070 if (errno
== ERANGE
|| end
- color
!= size
)
1075 value
= value
* 0x10;
1086 colorval
|= (value
<< pos
);
1091 return make_number (colorval
);
1097 else if (strnicmp(colorname
, "rgb:", 4) == 0)
1100 unsigned long colorval
;
1105 color
= colorname
+ 4;
1106 for (i
= 0; i
< 3; i
++)
1109 unsigned long value
;
1111 /* The check for 'x' in the following conditional takes into
1112 account the fact that strtol allows a "0x" in front of
1113 our numbers, and we don't. */
1114 if (!isxdigit(color
[0]) || color
[1] == 'x')
1116 value
= strtoul(color
, &end
, 16);
1117 if (errno
== ERANGE
)
1119 switch (end
- color
)
1122 value
= value
* 0x10 + value
;
1135 if (value
== ULONG_MAX
)
1137 colorval
|= (value
<< pos
);
1144 return make_number (colorval
);
1151 else if (strnicmp(colorname
, "rgbi:", 5) == 0)
1153 /* This is an RGB Intensity specification. */
1155 unsigned long colorval
;
1160 color
= colorname
+ 5;
1161 for (i
= 0; i
< 3; i
++)
1167 value
= strtod(color
, &end
);
1168 if (errno
== ERANGE
)
1170 if (value
< 0.0 || value
> 1.0)
1172 val
= (unsigned long)(0x100 * value
);
1173 /* We used 0x100 instead of 0xFF to give a continuous
1174 range between 0.0 and 1.0 inclusive. The next statement
1175 fixes the 1.0 case. */
1178 colorval
|= (val
<< pos
);
1185 return make_number (colorval
);
1193 ret
= mac_color_map_lookup (colorname
);
1199 /* Gamma-correct COLOR on frame F. */
1202 gamma_correct (f
, color
)
1204 unsigned long *color
;
1208 unsigned long red
, green
, blue
;
1210 red
= pow (RED_FROM_ULONG (*color
) / 255.0, f
->gamma
) * 255.0 + 0.5;
1211 green
= pow (GREEN_FROM_ULONG (*color
) / 255.0, f
->gamma
) * 255.0 + 0.5;
1212 blue
= pow (BLUE_FROM_ULONG (*color
) / 255.0, f
->gamma
) * 255.0 + 0.5;
1213 *color
= RGB_TO_ULONG (red
, green
, blue
);
1217 /* Decide if color named COLOR is valid for the display associated
1218 with the selected frame; if so, return the rgb values in COLOR_DEF.
1219 If ALLOC is nonzero, allocate a new colormap cell. */
1222 mac_defined_color (f
, color
, color_def
, alloc
)
1228 register Lisp_Object tem
;
1229 unsigned long mac_color_ref
;
1231 tem
= x_to_mac_color (color
);
1237 /* Apply gamma correction. */
1238 mac_color_ref
= XUINT (tem
);
1239 gamma_correct (f
, &mac_color_ref
);
1240 XSETINT (tem
, mac_color_ref
);
1243 color_def
->pixel
= mac_color_ref
;
1244 color_def
->red
= RED16_FROM_ULONG (mac_color_ref
);
1245 color_def
->green
= GREEN16_FROM_ULONG (mac_color_ref
);
1246 color_def
->blue
= BLUE16_FROM_ULONG (mac_color_ref
);
1256 /* Given a string ARG naming a color, compute a pixel value from it
1257 suitable for screen F.
1258 If F is not a color screen, return DEF (default) regardless of what
1262 x_decode_color (f
, arg
, def
)
1271 if (strcmp (SDATA (arg
), "black") == 0)
1272 return BLACK_PIX_DEFAULT (f
);
1273 else if (strcmp (SDATA (arg
), "white") == 0)
1274 return WHITE_PIX_DEFAULT (f
);
1277 if (FRAME_MAC_DISPLAY_INFO (f
)->n_planes
) == 1)
1281 if (mac_defined_color (f
, SDATA (arg
), &cdef
, 1))
1284 /* defined_color failed; return an ultimate default. */
1288 /* Functions called only from `x_set_frame_param'
1289 to set individual parameters.
1291 If FRAME_MAC_WINDOW (f) is 0,
1292 the frame is being created and its window does not exist yet.
1293 In that case, just record the parameter's new value
1294 in the standard place; do not attempt to change the window. */
1297 x_set_foreground_color (f
, arg
, oldval
)
1299 Lisp_Object arg
, oldval
;
1301 struct mac_output
*mac
= f
->output_data
.mac
;
1302 unsigned long fg
, old_fg
;
1304 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1305 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
1306 FRAME_FOREGROUND_PIXEL (f
) = fg
;
1308 if (FRAME_MAC_WINDOW (f
) != 0)
1310 Display
*dpy
= FRAME_MAC_DISPLAY (f
);
1313 XSetForeground (dpy
, mac
->normal_gc
, fg
);
1314 XSetBackground (dpy
, mac
->reverse_gc
, fg
);
1316 if (mac
->cursor_pixel
== old_fg
)
1318 unload_color (f
, mac
->cursor_pixel
);
1319 mac
->cursor_pixel
= fg
;
1320 XSetBackground (dpy
, mac
->cursor_gc
, mac
->cursor_pixel
);
1325 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
1327 if (FRAME_VISIBLE_P (f
))
1331 unload_color (f
, old_fg
);
1335 x_set_background_color (f
, arg
, oldval
)
1337 Lisp_Object arg
, oldval
;
1339 struct mac_output
*mac
= f
->output_data
.mac
;
1342 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
1343 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
1344 FRAME_BACKGROUND_PIXEL (f
) = bg
;
1346 if (FRAME_MAC_WINDOW (f
) != 0)
1348 Display
*dpy
= FRAME_MAC_DISPLAY (f
);
1351 XSetBackground (dpy
, mac
->normal_gc
, bg
);
1352 XSetForeground (dpy
, mac
->reverse_gc
, bg
);
1353 XSetWindowBackground (dpy
, FRAME_MAC_WINDOW (f
), bg
);
1354 XSetForeground (dpy
, mac
->cursor_gc
, bg
);
1357 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
1359 if (FRAME_VISIBLE_P (f
))
1365 x_set_mouse_color (f
, arg
, oldval
)
1367 Lisp_Object arg
, oldval
;
1369 struct x_output
*x
= f
->output_data
.x
;
1370 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
1371 Cursor hourglass_cursor
, horizontal_drag_cursor
;
1372 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1373 unsigned long mask_color
= x
->background_pixel
;
1375 /* Don't let pointers be invisible. */
1376 if (mask_color
== pixel
)
1377 pixel
= x
->foreground_pixel
;
1379 f
->output_data
.mac
->mouse_pixel
= pixel
;
1381 if (!NILP (Vx_pointer_shape
))
1383 CHECK_NUMBER (Vx_pointer_shape
);
1384 cursor
= XINT (Vx_pointer_shape
);
1387 cursor
= kThemeIBeamCursor
;
1389 if (!NILP (Vx_nontext_pointer_shape
))
1391 CHECK_NUMBER (Vx_nontext_pointer_shape
);
1392 nontext_cursor
= XINT (Vx_nontext_pointer_shape
);
1395 nontext_cursor
= kThemeArrowCursor
;
1397 if (!NILP (Vx_hourglass_pointer_shape
))
1399 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
1400 hourglass_cursor
= XINT (Vx_hourglass_pointer_shape
);
1403 hourglass_cursor
= kThemeWatchCursor
;
1405 if (!NILP (Vx_mode_pointer_shape
))
1407 CHECK_NUMBER (Vx_mode_pointer_shape
);
1408 mode_cursor
= XINT (Vx_mode_pointer_shape
);
1411 mode_cursor
= kThemeArrowCursor
;
1413 if (!NILP (Vx_sensitive_text_pointer_shape
))
1415 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
1416 hand_cursor
= XINT (Vx_sensitive_text_pointer_shape
);
1419 hand_cursor
= kThemePointingHandCursor
;
1421 if (!NILP (Vx_window_horizontal_drag_shape
))
1423 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1424 horizontal_drag_cursor
= XINT (Vx_window_horizontal_drag_shape
);
1427 horizontal_drag_cursor
= kThemeResizeLeftRightCursor
;
1429 #if 0 /* MAC_TODO: cursor color changes */
1431 XColor fore_color
, back_color
;
1433 fore_color
.pixel
= f
->output_data
.mac
->mouse_pixel
;
1434 x_query_color (f
, &fore_color
);
1435 back_color
.pixel
= mask_color
;
1436 x_query_color (f
, &back_color
);
1438 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1439 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1440 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1441 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1442 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1443 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1449 if (FRAME_MAC_WINDOW (f
) != 0)
1450 rif
->define_frame_cursor (f
, cursor
);
1452 f
->output_data
.mac
->text_cursor
= cursor
;
1453 f
->output_data
.mac
->nontext_cursor
= nontext_cursor
;
1454 f
->output_data
.mac
->hourglass_cursor
= hourglass_cursor
;
1455 f
->output_data
.mac
->modeline_cursor
= mode_cursor
;
1456 f
->output_data
.mac
->hand_cursor
= hand_cursor
;
1457 f
->output_data
.mac
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1461 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1465 x_set_cursor_color (f
, arg
, oldval
)
1467 Lisp_Object arg
, oldval
;
1469 unsigned long fore_pixel
, pixel
;
1471 if (!NILP (Vx_cursor_fore_pixel
))
1472 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1473 WHITE_PIX_DEFAULT (f
));
1475 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1477 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1479 /* Make sure that the cursor color differs from the background color. */
1480 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1482 pixel
= f
->output_data
.mac
->mouse_pixel
;
1483 if (pixel
== fore_pixel
)
1484 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1487 f
->output_data
.mac
->cursor_foreground_pixel
= fore_pixel
;
1488 f
->output_data
.mac
->cursor_pixel
= pixel
;
1490 if (FRAME_MAC_WINDOW (f
) != 0)
1493 /* Update frame's cursor_gc. */
1494 XSetBackground (FRAME_MAC_DISPLAY (f
),
1495 f
->output_data
.mac
->cursor_gc
, pixel
);
1496 XSetForeground (FRAME_MAC_DISPLAY (f
),
1497 f
->output_data
.mac
->cursor_gc
, fore_pixel
);
1500 if (FRAME_VISIBLE_P (f
))
1502 x_update_cursor (f
, 0);
1503 x_update_cursor (f
, 1);
1507 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1510 /* Set the border-color of frame F to pixel value PIX.
1511 Note that this does not fully take effect if done before
1515 x_set_border_pixel (f
, pix
)
1520 f
->output_data
.mac
->border_pixel
= pix
;
1522 if (FRAME_MAC_WINDOW (f
) != 0 && f
->border_width
> 0)
1524 if (FRAME_VISIBLE_P (f
))
1529 /* Set the border-color of frame F to value described by ARG.
1530 ARG can be a string naming a color.
1531 The border-color is used for the border that is drawn by the server.
1532 Note that this does not fully take effect if done before
1533 F has a window; it must be redone when the window is created. */
1536 x_set_border_color (f
, arg
, oldval
)
1538 Lisp_Object arg
, oldval
;
1543 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1544 x_set_border_pixel (f
, pix
);
1545 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1550 x_set_cursor_type (f
, arg
, oldval
)
1552 Lisp_Object arg
, oldval
;
1554 set_frame_cursor_types (f
, arg
);
1556 /* Make sure the cursor gets redrawn. */
1557 cursor_type_changed
= 1;
1560 #if 0 /* MAC_TODO: really no icon for Mac */
1562 x_set_icon_type (f
, arg
, oldval
)
1564 Lisp_Object arg
, oldval
;
1568 if (NILP (arg
) && NILP (oldval
))
1571 if (STRINGP (arg
) && STRINGP (oldval
)
1572 && EQ (Fstring_equal (oldval
, arg
), Qt
))
1575 if (SYMBOLP (arg
) && SYMBOLP (oldval
) && EQ (arg
, oldval
))
1580 result
= x_bitmap_icon (f
, arg
);
1584 error ("No icon window available");
1589 #endif /* MAC_TODO */
1592 x_set_icon_name (f
, arg
, oldval
)
1594 Lisp_Object arg
, oldval
;
1600 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1603 else if (!NILP (arg
) || NILP (oldval
))
1608 #if 0 /* MAC_TODO */
1609 if (f
->output_data
.w32
->icon_bitmap
!= 0)
1614 result
= x_text_icon (f
,
1615 (char *) SDATA ((!NILP (f
->icon_name
)
1624 error ("No icon window available");
1627 /* If the window was unmapped (and its icon was mapped),
1628 the new icon is not mapped, so map the window in its stead. */
1629 if (FRAME_VISIBLE_P (f
))
1631 #ifdef USE_X_TOOLKIT
1632 XtPopup (f
->output_data
.w32
->widget
, XtGrabNone
);
1634 XMapWindow (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
));
1637 XFlush (FRAME_W32_DISPLAY (f
));
1639 #endif /* MAC_TODO */
1644 x_set_menu_bar_lines (f
, value
, oldval
)
1646 Lisp_Object value
, oldval
;
1648 /* Make sure we redisplay all windows in this frame. */
1649 windows_or_buffers_changed
++;
1651 FRAME_MENU_BAR_LINES (f
) = 0;
1652 /* The menu bar is always shown. */
1653 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1654 if (FRAME_MAC_P (f
) && f
->output_data
.mac
->menubar_widget
== 0)
1655 /* Make sure next redisplay shows the menu bar. */
1656 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1661 /* Set the number of lines used for the tool bar of frame F to VALUE.
1662 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1663 is the old number of tool bar lines. This function changes the
1664 height of all windows on frame F to match the new tool bar height.
1665 The frame's height doesn't change. */
1668 x_set_tool_bar_lines (f
, value
, oldval
)
1670 Lisp_Object value
, oldval
;
1672 int delta
, nlines
, root_height
;
1673 Lisp_Object root_window
;
1675 /* Treat tool bars like menu bars. */
1676 if (FRAME_MINIBUF_ONLY_P (f
))
1679 /* Use VALUE only if an integer >= 0. */
1680 if (INTEGERP (value
) && XINT (value
) >= 0)
1681 nlines
= XFASTINT (value
);
1685 /* Make sure we redisplay all windows in this frame. */
1686 ++windows_or_buffers_changed
;
1688 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1690 /* Don't resize the tool-bar to more than we have room for. */
1691 root_window
= FRAME_ROOT_WINDOW (f
);
1692 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1693 if (root_height
- delta
< 1)
1695 delta
= root_height
- 1;
1696 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1699 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1700 change_window_heights (root_window
, delta
);
1703 /* We also have to make sure that the internal border at the top of
1704 the frame, below the menu bar or tool bar, is redrawn when the
1705 tool bar disappears. This is so because the internal border is
1706 below the tool bar if one is displayed, but is below the menu bar
1707 if there isn't a tool bar. The tool bar draws into the area
1708 below the menu bar. */
1709 if (FRAME_MAC_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1713 clear_current_matrices (f
);
1714 updating_frame
= NULL
;
1717 /* If the tool bar gets smaller, the internal border below it
1718 has to be cleared. It was formerly part of the display
1719 of the larger tool bar, and updating windows won't clear it. */
1722 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1723 int width
= FRAME_PIXEL_WIDTH (f
);
1724 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1727 mac_clear_area (f
, 0, y
, width
, height
);
1730 if (WINDOWP (f
->tool_bar_window
))
1731 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1737 /* Set the Mac window title to NAME for frame F. */
1740 x_set_name_internal (f
, name
)
1744 if (FRAME_MAC_WINDOW (f
))
1746 if (STRING_MULTIBYTE (name
))
1747 #if TARGET_API_MAC_CARBON
1748 name
= ENCODE_UTF_8 (name
);
1750 name
= ENCODE_SYSTEM (name
);
1756 #if TARGET_API_MAC_CARBON
1757 CFStringRef windowTitle
=
1758 cfstring_create_with_utf8_cstring (SDATA (name
));
1760 SetWindowTitleWithCFString (FRAME_MAC_WINDOW (f
), windowTitle
);
1761 CFRelease (windowTitle
);
1764 if (strlen (SDATA (name
)) < 255)
1766 strcpy (windowTitle
, SDATA (name
));
1767 c2pstr (windowTitle
);
1768 SetWTitle (FRAME_MAC_WINDOW (f
), windowTitle
);
1777 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1780 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1781 name; if NAME is a string, set F's name to NAME and set
1782 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1784 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1785 suggesting a new name, which lisp code should override; if
1786 F->explicit_name is set, ignore the new name; otherwise, set it. */
1789 x_set_name (f
, name
, explicit)
1794 /* Make sure that requests from lisp code override requests from
1795 Emacs redisplay code. */
1798 /* If we're switching from explicit to implicit, we had better
1799 update the mode lines and thereby update the title. */
1800 if (f
->explicit_name
&& NILP (name
))
1801 update_mode_lines
= 1;
1803 f
->explicit_name
= ! NILP (name
);
1805 else if (f
->explicit_name
)
1808 /* If NAME is nil, set the name to the mac_id_name. */
1811 /* Check for no change needed in this very common case
1812 before we do any consing. */
1813 if (!strcmp (FRAME_MAC_DISPLAY_INFO (f
)->mac_id_name
,
1816 name
= build_string (FRAME_MAC_DISPLAY_INFO (f
)->mac_id_name
);
1819 CHECK_STRING (name
);
1821 /* Don't change the name if it's already NAME. */
1822 if (! NILP (Fstring_equal (name
, f
->name
)))
1827 /* For setting the frame title, the title parameter should override
1828 the name parameter. */
1829 if (! NILP (f
->title
))
1832 x_set_name_internal (f
, name
);
1835 /* This function should be called when the user's lisp code has
1836 specified a name for the frame; the name will override any set by the
1839 x_explicitly_set_name (f
, arg
, oldval
)
1841 Lisp_Object arg
, oldval
;
1843 x_set_name (f
, arg
, 1);
1846 /* This function should be called by Emacs redisplay code to set the
1847 name; names set this way will never override names set by the user's
1850 x_implicitly_set_name (f
, arg
, oldval
)
1852 Lisp_Object arg
, oldval
;
1854 x_set_name (f
, arg
, 0);
1857 /* Change the title of frame F to NAME.
1858 If NAME is nil, use the frame name as the title.
1860 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1861 name; if NAME is a string, set F's name to NAME and set
1862 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1864 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1865 suggesting a new name, which lisp code should override; if
1866 F->explicit_name is set, ignore the new name; otherwise, set it. */
1869 x_set_title (f
, name
, old_name
)
1871 Lisp_Object name
, old_name
;
1873 /* Don't change the title if it's already NAME. */
1874 if (EQ (name
, f
->title
))
1877 update_mode_lines
= 1;
1884 CHECK_STRING (name
);
1886 x_set_name_internal (f
, name
);
1890 x_set_scroll_bar_default_width (f
)
1893 /* Imitate X without X Toolkit */
1895 int wid
= FRAME_COLUMN_WIDTH (f
);
1898 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = MAC_AQUA_VERTICAL_SCROLL_BAR_WIDTH
;
1899 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) +
1901 #else /* not MAC_OSX */
1902 /* Make the actual width at least 14 pixels and a multiple of a
1904 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1906 /* Use all of that space (aside from required margins) for the
1908 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1909 #endif /* not MAC_OSX */
1913 mac_set_scroll_bar_width (f
, arg
, oldval
)
1915 Lisp_Object arg
, oldval
;
1918 if (INTEGERP (arg
) && XINT (arg
) > 0)
1920 if (XINT (arg
) < (MAC_AQUA_SMALL_VERTICAL_SCROLL_BAR_WIDTH
1921 + MAC_AQUA_VERTICAL_SCROLL_BAR_WIDTH
) / 2)
1922 XSETINT (arg
, MAC_AQUA_SMALL_VERTICAL_SCROLL_BAR_WIDTH
);
1924 XSETINT (arg
, MAC_AQUA_VERTICAL_SCROLL_BAR_WIDTH
);
1927 x_set_scroll_bar_width (f
, arg
, oldval
);
1931 mac_set_font (f
, arg
, oldval
)
1933 Lisp_Object arg
, oldval
;
1935 x_set_font (f
, arg
, oldval
);
1936 #if USE_MAC_FONT_PANEL
1938 Lisp_Object focus_frame
= x_get_focus_frame (f
);
1940 if ((NILP (focus_frame
) && f
== SELECTED_FRAME ())
1941 || XFRAME (focus_frame
) == f
)
1944 mac_set_font_info_for_selection (f
, DEFAULT_FACE_ID
, 0);
1951 #if TARGET_API_MAC_CARBON
1953 mac_update_proxy_icon (f
)
1957 Lisp_Object file_name
=
1958 XBUFFER (XWINDOW (FRAME_SELECTED_WINDOW (f
))->buffer
)->filename
;
1959 Window w
= FRAME_MAC_WINDOW (f
);
1960 AliasHandle alias
= NULL
;
1964 err
= GetWindowProxyAlias (w
, &alias
);
1965 if (err
== errWindowDoesNotHaveProxy
&& !STRINGP (file_name
))
1968 if (STRINGP (file_name
))
1977 Lisp_Object encoded_file_name
= ENCODE_FILE (file_name
);
1980 err
= AECoercePtr (TYPE_FILE_NAME
, SDATA (encoded_file_name
),
1981 SBYTES (encoded_file_name
), typeFSRef
, &desc
);
1983 SetPortWindowPort (w
);
1984 err
= AECoercePtr (TYPE_FILE_NAME
, SDATA (encoded_file_name
),
1985 SBYTES (encoded_file_name
), typeFSS
, &desc
);
1990 err
= AEGetDescData (&desc
, &fref
, sizeof (FSRef
));
1992 err
= AEGetDescData (&desc
, &fss
, sizeof (FSSpec
));
1994 AEDisposeDesc (&desc
);
2001 err
= FSUpdateAlias (NULL
, &fref
, alias
, &changed
);
2003 err
= UpdateAlias (NULL
, &fss
, alias
, &changed
);
2006 if (err
!= noErr
|| alias
== NULL
)
2009 DisposeHandle ((Handle
) alias
);
2011 err
= FSNewAliasMinimal (&fref
, &alias
);
2013 err
= NewAliasMinimal (&fss
, &alias
);
2020 err
= SetWindowProxyAlias (w
, alias
);
2024 DisposeHandle ((Handle
) alias
);
2026 if (err
!= noErr
|| !STRINGP (file_name
))
2027 RemoveWindowProxy (w
);
2035 mac_update_title_bar (f
, save_match_data
)
2037 int save_match_data
;
2039 #if TARGET_API_MAC_CARBON
2043 if (!FRAME_MAC_P (f
))
2046 w
= XWINDOW (FRAME_SELECTED_WINDOW (f
));
2047 modified_p
= (BUF_SAVE_MODIFF (XBUFFER (w
->buffer
))
2048 < BUF_MODIFF (XBUFFER (w
->buffer
)));
2049 if (windows_or_buffers_changed
2050 /* Minibuffer modification status shown in the close button is
2052 || (!MINI_WINDOW_P (w
)
2053 && (modified_p
!= !NILP (w
->last_had_star
))))
2054 SetWindowModified (FRAME_MAC_WINDOW (f
),
2055 !MINI_WINDOW_P (w
) && modified_p
);
2057 if (windows_or_buffers_changed
)
2058 mac_update_proxy_icon (f
);
2063 /* Subroutines of creating a frame. */
2065 /* Retrieve the string resource specified by NAME with CLASS from
2068 The return value points to the contents of a Lisp string. So it
2069 will not be valid after the next GC where string compaction will
2073 x_get_string_resource (rdb
, name
, class)
2077 Lisp_Object value
= xrm_get_resource (rdb
, name
, class);
2079 if (STRINGP (value
))
2080 return SDATA (value
);
2085 /* Return the value of parameter PARAM.
2087 First search ALIST, then Vdefault_frame_alist, then the X defaults
2088 database, using ATTRIBUTE as the attribute name and CLASS as its class.
2090 Convert the resource to the type specified by desired_type.
2092 If no default is specified, return Qunbound. If you call
2093 mac_get_arg, make sure you deal with Qunbound in a reasonable way,
2094 and don't let it get stored in any Lisp-visible variables! */
2097 mac_get_arg (alist
, param
, attribute
, class, type
)
2098 Lisp_Object alist
, param
;
2101 enum resource_types type
;
2103 return x_get_arg (check_x_display_info (Qnil
),
2104 alist
, param
, attribute
, class, type
);
2108 /* XParseGeometry copied from w32xfns.c */
2111 * XParseGeometry parses strings of the form
2112 * "=<width>x<height>{+-}<xoffset>{+-}<yoffset>", where
2113 * width, height, xoffset, and yoffset are unsigned integers.
2114 * Example: "=80x24+300-49"
2115 * The equal sign is optional.
2116 * It returns a bitmask that indicates which of the four values
2117 * were actually found in the string. For each value found,
2118 * the corresponding argument is updated; for each value
2119 * not found, the corresponding argument is left unchanged.
2123 read_integer (string
, NextString
)
2124 register char *string
;
2127 register int Result
= 0;
2132 else if (*string
== '-')
2137 for (; (*string
>= '0') && (*string
<= '9'); string
++)
2139 Result
= (Result
* 10) + (*string
- '0');
2141 *NextString
= string
;
2149 XParseGeometry (string
, x
, y
, width
, height
)
2152 unsigned int *width
, *height
; /* RETURN */
2155 register char *strind
;
2156 unsigned int tempWidth
, tempHeight
;
2158 char *nextCharacter
;
2160 if ((string
== NULL
) || (*string
== '\0')) return (mask
);
2162 string
++; /* ignore possible '=' at beg of geometry spec */
2164 strind
= (char *)string
;
2165 if (*strind
!= '+' && *strind
!= '-' && *strind
!= 'x')
2167 tempWidth
= read_integer (strind
, &nextCharacter
);
2168 if (strind
== nextCharacter
)
2170 strind
= nextCharacter
;
2174 if (*strind
== 'x' || *strind
== 'X')
2177 tempHeight
= read_integer (strind
, &nextCharacter
);
2178 if (strind
== nextCharacter
)
2180 strind
= nextCharacter
;
2181 mask
|= HeightValue
;
2184 if ((*strind
== '+') || (*strind
== '-'))
2189 tempX
= -read_integer (strind
, &nextCharacter
);
2190 if (strind
== nextCharacter
)
2192 strind
= nextCharacter
;
2199 tempX
= read_integer (strind
, &nextCharacter
);
2200 if (strind
== nextCharacter
)
2202 strind
= nextCharacter
;
2205 if ((*strind
== '+') || (*strind
== '-'))
2210 tempY
= -read_integer (strind
, &nextCharacter
);
2211 if (strind
== nextCharacter
)
2213 strind
= nextCharacter
;
2220 tempY
= read_integer (strind
, &nextCharacter
);
2221 if (strind
== nextCharacter
)
2223 strind
= nextCharacter
;
2229 /* If strind isn't at the end of the string the it's an invalid
2230 geometry specification. */
2232 if (*strind
!= '\0') return (0);
2238 if (mask
& WidthValue
)
2240 if (mask
& HeightValue
)
2241 *height
= tempHeight
;
2246 /* Create and set up the Mac window for frame F. */
2256 SetRect (&r
, f
->left_pos
, f
->top_pos
,
2257 f
->left_pos
+ FRAME_PIXEL_WIDTH (f
),
2258 f
->top_pos
+ FRAME_PIXEL_HEIGHT (f
));
2259 #if TARGET_API_MAC_CARBON
2260 CreateNewWindow (kDocumentWindowClass
,
2261 kWindowStandardDocumentAttributes
2263 | kWindowToolbarButtonAttribute
2265 , &r
, &FRAME_MAC_WINDOW (f
));
2266 if (FRAME_MAC_WINDOW (f
))
2268 SetWRefCon (FRAME_MAC_WINDOW (f
), (long) f
->output_data
.mac
);
2269 if (install_window_handler (FRAME_MAC_WINDOW (f
)) != noErr
)
2271 DisposeWindow (FRAME_MAC_WINDOW (f
));
2272 FRAME_MAC_WINDOW (f
) = NULL
;
2276 FRAME_MAC_WINDOW (f
)
2277 = NewCWindow (NULL
, &r
, "\p", false, zoomDocProc
,
2278 (WindowPtr
) -1, 1, (long) f
->output_data
.mac
);
2280 /* so that update events can find this mac_output struct */
2281 f
->output_data
.mac
->mFP
= f
; /* point back to emacs frame */
2284 if (FRAME_MAC_WINDOW (f
))
2286 ControlRef root_control
;
2288 if (CreateRootControl (FRAME_MAC_WINDOW (f
), &root_control
) != noErr
)
2290 DisposeWindow (FRAME_MAC_WINDOW (f
));
2291 FRAME_MAC_WINDOW (f
) = NULL
;
2295 if (FRAME_MAC_WINDOW (f
))
2296 XSetWindowBackground (FRAME_MAC_DISPLAY(f
), FRAME_MAC_WINDOW (f
),
2297 FRAME_BACKGROUND_PIXEL (f
));
2299 validate_x_resource_name ();
2301 /* x_set_name normally ignores requests to set the name if the
2302 requested name is the same as the current name. This is the one
2303 place where that assumption isn't correct; f->name is set, but
2304 the server hasn't been told. */
2307 int explicit = f
->explicit_name
;
2309 f
->explicit_name
= 0;
2312 x_set_name (f
, name
, explicit);
2317 if (FRAME_MAC_WINDOW (f
) == 0)
2318 error ("Unable to create window");
2321 /* Handle the icon stuff for this window. Perhaps later we might
2322 want an x_set_icon_position which can be called interactively as
2330 Lisp_Object icon_x
, icon_y
;
2332 /* Set the position of the icon. Note that Windows 95 groups all
2333 icons in the tray. */
2334 icon_x
= mac_get_arg (parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2335 icon_y
= mac_get_arg (parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2336 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2338 CHECK_NUMBER (icon_x
);
2339 CHECK_NUMBER (icon_y
);
2341 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2342 error ("Both left and top icon corners of icon must be specified");
2346 if (! EQ (icon_x
, Qunbound
))
2347 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2350 /* Start up iconic or window? */
2351 x_wm_set_window_state
2352 (f
, (EQ (w32_get_arg (parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
), Qicon
)
2356 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2369 XGCValues gc_values
;
2373 /* Create the GCs of this frame.
2374 Note that many default values are used. */
2377 gc_values
.font
= FRAME_FONT (f
);
2378 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2379 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2380 f
->output_data
.mac
->normal_gc
= XCreateGC (FRAME_MAC_DISPLAY (f
),
2381 FRAME_MAC_WINDOW (f
),
2382 GCFont
| GCForeground
| GCBackground
,
2385 /* Reverse video style. */
2386 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2387 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2388 f
->output_data
.mac
->reverse_gc
= XCreateGC (FRAME_MAC_DISPLAY (f
),
2389 FRAME_MAC_WINDOW (f
),
2390 GCFont
| GCForeground
| GCBackground
,
2393 /* Cursor has cursor-color background, background-color foreground. */
2394 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2395 gc_values
.background
= f
->output_data
.mac
->cursor_pixel
;
2396 f
->output_data
.mac
->cursor_gc
= XCreateGC (FRAME_MAC_DISPLAY (f
),
2397 FRAME_MAC_WINDOW (f
),
2398 GCFont
| GCForeground
| GCBackground
,
2402 f
->output_data
.mac
->white_relief
.gc
= 0;
2403 f
->output_data
.mac
->black_relief
.gc
= 0;
2406 /* Create the gray border tile used when the pointer is not in
2407 the frame. Since this depends on the frame's pixel values,
2408 this must be done on a per-frame basis. */
2409 f
->output_data
.x
->border_tile
2410 = (XCreatePixmapFromBitmapData
2411 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2412 gray_bits
, gray_width
, gray_height
,
2413 f
->output_data
.x
->foreground_pixel
,
2414 f
->output_data
.x
->background_pixel
,
2415 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2422 /* Free what was was allocated in x_make_gc. */
2428 Display
*dpy
= FRAME_MAC_DISPLAY (f
);
2432 if (f
->output_data
.mac
->normal_gc
)
2434 XFreeGC (dpy
, f
->output_data
.mac
->normal_gc
);
2435 f
->output_data
.mac
->normal_gc
= 0;
2438 if (f
->output_data
.mac
->reverse_gc
)
2440 XFreeGC (dpy
, f
->output_data
.mac
->reverse_gc
);
2441 f
->output_data
.mac
->reverse_gc
= 0;
2444 if (f
->output_data
.mac
->cursor_gc
)
2446 XFreeGC (dpy
, f
->output_data
.mac
->cursor_gc
);
2447 f
->output_data
.mac
->cursor_gc
= 0;
2451 if (f
->output_data
.mac
->border_tile
)
2453 XFreePixmap (dpy
, f
->output_data
.mac
->border_tile
);
2454 f
->output_data
.mac
->border_tile
= 0;
2458 if (f
->output_data
.mac
->white_relief
.gc
)
2460 XFreeGC (dpy
, f
->output_data
.mac
->white_relief
.gc
);
2461 f
->output_data
.mac
->white_relief
.gc
= 0;
2464 if (f
->output_data
.mac
->black_relief
.gc
)
2466 XFreeGC (dpy
, f
->output_data
.mac
->black_relief
.gc
);
2467 f
->output_data
.mac
->black_relief
.gc
= 0;
2474 /* Handler for signals raised during x_create_frame and
2475 x_create_top_frame. FRAME is the frame which is partially
2479 unwind_create_frame (frame
)
2482 struct frame
*f
= XFRAME (frame
);
2484 /* If frame is ``official'', nothing to do. */
2485 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2488 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2491 x_free_frame_resources (f
);
2494 /* Check that reference counts are indeed correct. */
2495 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2496 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2505 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2507 doc
: /* Make a new window, which is called a "frame" in Emacs terms.
2508 Returns an Emacs frame object.
2509 ALIST is an alist of frame parameters.
2510 If the parameters specify that the frame should not have a minibuffer,
2511 and do not specify a specific minibuffer window to use,
2512 then `default-minibuffer-frame' must be a frame whose minibuffer can
2513 be shared by the new frame.
2515 This function is an internal primitive--use `make-frame' instead. */)
2520 Lisp_Object frame
, tem
;
2522 int minibuffer_only
= 0;
2523 long window_prompting
= 0;
2525 int count
= SPECPDL_INDEX ();
2526 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
2527 Lisp_Object display
;
2528 struct mac_display_info
*dpyinfo
= NULL
;
2534 parms
= Fcopy_alist (parms
);
2536 /* Use this general default value to start with
2537 until we know if this frame has a specified name. */
2538 Vx_resource_name
= Vinvocation_name
;
2540 display
= mac_get_arg (parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
2541 if (EQ (display
, Qunbound
))
2543 dpyinfo
= check_x_display_info (display
);
2545 kb
= dpyinfo
->kboard
;
2547 kb
= &the_only_kboard
;
2550 name
= mac_get_arg (parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
2552 && ! EQ (name
, Qunbound
)
2554 error ("Invalid frame name--not a string or nil");
2557 Vx_resource_name
= name
;
2559 /* See if parent window is specified. */
2560 parent
= mac_get_arg (parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
2561 if (EQ (parent
, Qunbound
))
2563 if (! NILP (parent
))
2564 CHECK_NUMBER (parent
);
2566 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
2567 /* No need to protect DISPLAY because that's not used after passing
2568 it to make_frame_without_minibuffer. */
2570 GCPRO4 (parms
, parent
, name
, frame
);
2571 tem
= mac_get_arg (parms
, Qminibuffer
, "minibuffer", "Minibuffer",
2573 if (EQ (tem
, Qnone
) || NILP (tem
))
2574 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
2575 else if (EQ (tem
, Qonly
))
2577 f
= make_minibuffer_frame ();
2578 minibuffer_only
= 1;
2580 else if (WINDOWP (tem
))
2581 f
= make_frame_without_minibuffer (tem
, kb
, display
);
2585 XSETFRAME (frame
, f
);
2587 /* Note that X Windows does support scroll bars. */
2588 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
2590 f
->output_method
= output_mac
;
2591 f
->output_data
.mac
= (struct mac_output
*) xmalloc (sizeof (struct mac_output
));
2592 bzero (f
->output_data
.mac
, sizeof (struct mac_output
));
2593 FRAME_FONTSET (f
) = -1;
2596 = mac_get_arg (parms
, Qicon_name
, "iconName", "Title", RES_TYPE_STRING
);
2597 if (! STRINGP (f
->icon_name
))
2598 f
->icon_name
= Qnil
;
2600 /* FRAME_MAC_DISPLAY_INFO (f) = dpyinfo; */
2602 /* With FRAME_MAC_DISPLAY_INFO set up, this unwind-protect is safe. */
2603 record_unwind_protect (unwind_create_frame
, frame
);
2605 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
2606 dpyinfo_refcount
= dpyinfo
->reference_count
;
2607 #endif /* GLYPH_DEBUG */
2609 FRAME_KBOARD (f
) = kb
;
2612 /* Specify the parent under which to make this window. */
2616 f
->output_data
.mac
->parent_desc
= (Window
) XFASTINT (parent
);
2617 f
->output_data
.mac
->explicit_parent
= 1;
2621 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
2622 f
->output_data
.mac
->explicit_parent
= 0;
2625 /* Set the name; the functions to which we pass f expect the name to
2627 if (EQ (name
, Qunbound
) || NILP (name
))
2629 f
->name
= build_string (dpyinfo
->mac_id_name
);
2630 f
->explicit_name
= 0;
2635 f
->explicit_name
= 1;
2636 /* use the frame's title when getting resources for this frame. */
2637 specbind (Qx_resource_name
, name
);
2640 /* Extract the window parameters from the supplied values
2641 that are needed to determine window geometry. */
2645 font
= mac_get_arg (parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
2648 /* First, try whatever font the caller has specified. */
2651 tem
= Fquery_fontset (font
, Qnil
);
2653 font
= x_new_fontset (f
, SDATA (tem
));
2655 font
= x_new_font (f
, SDATA (font
));
2658 /* Try out a font which we hope has bold and italic variations. */
2660 if (! STRINGP (font
))
2661 font
= x_new_font (f
, "-*-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1");
2663 if (! STRINGP (font
))
2664 font
= x_new_font (f
, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1");
2665 /* If those didn't work, look for something which will at least work. */
2666 if (! STRINGP (font
))
2667 font
= x_new_fontset (f
, "fontset-standard");
2668 if (! STRINGP (font
))
2669 font
= x_new_font (f
, "-*-monaco-*-12-*-mac-roman");
2670 if (! STRINGP (font
))
2671 font
= x_new_font (f
, "-*-courier-*-10-*-mac-roman");
2672 if (! STRINGP (font
))
2673 error ("Cannot find any usable font");
2676 x_set_frame_parameters (f
, Fcons (Fcons (Qfont
, font
), Qnil
));
2679 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
2680 "borderwidth", "BorderWidth", RES_TYPE_NUMBER
);
2681 /* This defaults to 2 in order to match xterm. We recognize either
2682 internalBorderWidth or internalBorder (which is what xterm calls
2684 if (NILP (Fassq (Qinternal_border_width
, parms
)))
2688 value
= mac_get_arg (parms
, Qinternal_border_width
,
2689 "internalBorder", "InternalBorder", RES_TYPE_NUMBER
);
2690 if (! EQ (value
, Qunbound
))
2691 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
2694 /* Default internalBorderWidth to 0 on Windows to match other programs. */
2695 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (0),
2696 "internalBorderWidth", "InternalBorder", RES_TYPE_NUMBER
);
2697 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qright
,
2698 "verticalScrollBars", "ScrollBars", RES_TYPE_SYMBOL
);
2700 /* Also do the stuff which must be set before the window exists. */
2701 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
2702 "foreground", "Foreground", RES_TYPE_STRING
);
2703 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
2704 "background", "Background", RES_TYPE_STRING
);
2705 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
2706 "pointerColor", "Foreground", RES_TYPE_STRING
);
2707 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
2708 "cursorColor", "Foreground", RES_TYPE_STRING
);
2709 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
2710 "borderColor", "BorderColor", RES_TYPE_STRING
);
2711 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
2712 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
2713 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
2714 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
2715 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
2716 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
2717 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
2718 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
2721 /* Init faces before x_default_parameter is called for scroll-bar
2722 parameters because that function calls x_set_scroll_bar_width,
2723 which calls change_frame_size, which calls Fset_window_buffer,
2724 which runs hooks, which call Fvertical_motion. At the end, we
2725 end up in init_iterator with a null face cache, which should not
2727 init_frame_faces (f
);
2729 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
2730 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
2731 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
2732 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
2733 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
2734 "bufferPredicate", "BufferPredicate",
2736 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
2737 "title", "Title", RES_TYPE_STRING
);
2738 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
2739 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
2741 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
2743 /* Compute the size of the window. */
2744 window_prompting
= x_figure_window_size (f
, parms
, 1);
2746 tem
= mac_get_arg (parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
2747 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
2754 /* Now consider the frame official. */
2755 FRAME_MAC_DISPLAY_INFO (f
)->reference_count
++;
2756 Vframe_list
= Fcons (frame
, Vframe_list
);
2758 /* We need to do this after creating the window, so that the
2759 icon-creation functions can say whose icon they're describing. */
2760 x_default_parameter (f
, parms
, Qicon_type
, Qnil
,
2761 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
2763 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
2764 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
2765 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
2766 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
2767 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
2768 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
2769 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
2770 "scrollBarWidth", "ScrollBarWidth",
2773 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
2774 Change will not be effected unless different from the current
2776 width
= FRAME_COLS (f
);
2777 height
= FRAME_LINES (f
);
2779 SET_FRAME_COLS (f
, 0);
2780 FRAME_LINES (f
) = 0;
2781 change_frame_size (f
, height
, width
, 1, 0, 0);
2783 /* Tell the server what size and position, etc, we want, and how
2784 badly we want them. This should be done after we have the menu
2785 bar so that its size can be taken into account. */
2787 x_wm_set_size_hint (f
, window_prompting
, 0);
2790 /* Make the window appear on the frame and enable display, unless
2791 the caller says not to. However, with explicit parent, Emacs
2792 cannot control visibility, so don't try. */
2793 if (! f
->output_data
.mac
->explicit_parent
)
2795 Lisp_Object visibility
;
2797 visibility
= mac_get_arg (parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
);
2798 if (EQ (visibility
, Qunbound
))
2801 if (EQ (visibility
, Qicon
))
2802 x_iconify_frame (f
);
2803 else if (! NILP (visibility
))
2804 x_make_frame_visible (f
);
2806 /* Must have been Qnil. */
2810 /* Initialize `default-minibuffer-frame' in case this is the first
2811 frame on this display device. */
2812 if (FRAME_HAS_MINIBUF_P (f
)
2813 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
2814 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
2815 kb
->Vdefault_minibuffer_frame
= frame
;
2817 /* All remaining specified parameters, which have not been "used"
2818 by x_get_arg and friends, now go in the misc. alist of the frame. */
2819 for (tem
= parms
; !NILP (tem
); tem
= XCDR (tem
))
2820 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
2821 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
2825 /* Make sure windows on this frame appear in calls to next-window
2826 and similar functions. */
2827 Vwindow_list
= Qnil
;
2829 return unbind_to (count
, frame
);
2833 /* FRAME is used only to get a handle on the X display. We don't pass the
2834 display info directly because we're called from frame.c, which doesn't
2835 know about that structure. */
2838 x_get_focus_frame (frame
)
2839 struct frame
*frame
;
2841 struct mac_display_info
*dpyinfo
= FRAME_MAC_DISPLAY_INFO (frame
);
2843 if (! dpyinfo
->x_focus_frame
)
2846 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
2851 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
2852 doc
: /* Set the input focus to FRAME.
2853 FRAME nil means use the selected frame. */)
2857 struct frame
*f
= check_x_frame (frame
);
2861 ActivateWindow (ActiveNonFloatingWindow (), false);
2862 ActivateWindow (FRAME_MAC_WINDOW (f
), true);
2864 #if !TARGET_API_MAC_CARBON
2865 /* SelectWindow (Non-Carbon) does not issue deactivate events if the
2866 possibly inactive window that is to be selected is already the
2868 SendBehind (FRAME_MAC_WINDOW (f
), NULL
);
2870 /* This brings the window to the front. */
2871 SelectWindow (FRAME_MAC_WINDOW (f
));
2879 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
2880 doc
: /* Internal function called by `color-defined-p', which see. */)
2882 Lisp_Object color
, frame
;
2885 FRAME_PTR f
= check_x_frame (frame
);
2887 CHECK_STRING (color
);
2889 if (mac_defined_color (f
, SDATA (color
), &foo
, 0))
2895 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
2896 doc
: /* Internal function called by `color-values', which see. */)
2898 Lisp_Object color
, frame
;
2901 FRAME_PTR f
= check_x_frame (frame
);
2903 CHECK_STRING (color
);
2905 if (mac_defined_color (f
, SDATA (color
), &foo
, 0))
2906 return list3 (make_number (foo
.red
),
2907 make_number (foo
.green
),
2908 make_number (foo
.blue
));
2913 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
2914 doc
: /* Internal function called by `display-color-p', which see. */)
2916 Lisp_Object display
;
2918 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2920 if (!dpyinfo
->color_p
)
2926 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
2928 doc
: /* Return t if DISPLAY supports shades of gray.
2929 Note that color displays do support shades of gray.
2930 The optional argument DISPLAY specifies which display to ask about.
2931 DISPLAY should be either a frame or a display name (a string).
2932 If omitted or nil, that stands for the selected frame's display. */)
2934 Lisp_Object display
;
2936 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2938 if (dpyinfo
->n_planes
<= 1)
2944 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
2946 doc
: /* Returns the width in pixels of DISPLAY.
2947 The optional argument DISPLAY specifies which display to ask about.
2948 DISPLAY should be either a frame or a display name (a string).
2949 If omitted or nil, that stands for the selected frame's display. */)
2951 Lisp_Object display
;
2953 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2955 return make_number (dpyinfo
->width
);
2958 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
2959 Sx_display_pixel_height
, 0, 1, 0,
2960 doc
: /* Returns the height in pixels of DISPLAY.
2961 The optional argument DISPLAY specifies which display to ask about.
2962 DISPLAY should be either a frame or a display name (a string).
2963 If omitted or nil, that stands for the selected frame's display. */)
2965 Lisp_Object display
;
2967 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2969 return make_number (dpyinfo
->height
);
2972 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
2974 doc
: /* Returns the number of bitplanes of DISPLAY.
2975 The optional argument DISPLAY specifies which display to ask about.
2976 DISPLAY should be either a frame or a display name (a string).
2977 If omitted or nil, that stands for the selected frame's display. */)
2979 Lisp_Object display
;
2981 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2983 return make_number (dpyinfo
->n_planes
);
2986 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
2988 doc
: /* Returns the number of color cells 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 /* We force 24+ bit depths to 24-bit to prevent an overflow. */
2998 return make_number (1 << min (dpyinfo
->n_planes
, 24));
3001 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3002 Sx_server_max_request_size
,
3004 doc
: /* Returns the maximum request size of the server of DISPLAY.
3005 The optional argument DISPLAY specifies which display to ask about.
3006 DISPLAY should be either a frame or a display name (a string).
3007 If omitted or nil, that stands for the selected frame's display. */)
3009 Lisp_Object display
;
3011 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3013 return make_number (1);
3016 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3017 doc
: /* Returns the "vendor ID" string of the Mac OS system (Apple).
3018 The optional argument DISPLAY specifies which display to ask about.
3019 DISPLAY should be either a frame or a display name (a string).
3020 If omitted or nil, that stands for the selected frame's display. */)
3022 Lisp_Object display
;
3024 return build_string ("Apple Computers");
3027 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3028 doc
: /* Returns the version numbers of the Mac OS system.
3029 The value is a list of three integers: the major and minor
3030 version numbers, and the vendor-specific release
3031 number. See also the function `x-server-vendor'.
3033 The optional argument DISPLAY specifies which display to ask about.
3034 DISPLAY should be either a frame or a display name (a string).
3035 If omitted or nil, that stands for the selected frame's display. */)
3037 Lisp_Object display
;
3039 UInt32 response
, major
, minor
, bugfix
;
3043 err
= Gestalt (gestaltSystemVersion
, &response
);
3046 if (response
>= 0x00001040)
3048 err
= Gestalt (gestaltSystemVersionMajor
, &major
);
3050 err
= Gestalt (gestaltSystemVersionMinor
, &minor
);
3052 err
= Gestalt (gestaltSystemVersionBugFix
, &bugfix
);
3056 bugfix
= response
& 0xf;
3058 minor
= response
& 0xf;
3060 /* convert BCD to int */
3061 major
= response
- (response
>> 4) * 6;
3067 error ("Cannot get Mac OS version");
3069 return Fcons (make_number (major
),
3070 Fcons (make_number (minor
),
3071 Fcons (make_number (bugfix
),
3075 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3076 doc
: /* Return the number of screens on the server of DISPLAY.
3077 The optional argument DISPLAY specifies which display to ask about.
3078 DISPLAY should be either a frame or a display name (a string).
3079 If omitted or nil, that stands for the selected frame's display. */)
3081 Lisp_Object display
;
3083 return make_number (1);
3086 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3087 doc
: /* Return the height in millimeters of DISPLAY.
3088 The optional argument DISPLAY specifies which display to ask about.
3089 DISPLAY should be either a frame or a display name (a string).
3090 If omitted or nil, that stands for the selected frame's display. */)
3092 Lisp_Object display
;
3094 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3095 /* Only of the main display. */
3096 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
3100 size
= CGDisplayScreenSize (kCGDirectMainDisplay
);
3103 return make_number ((int) (size
.height
+ .5f
));
3105 /* This is an approximation. */
3106 return make_number ((int) (dpyinfo
->height
* 25.4 / dpyinfo
->resy
));
3110 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3111 doc
: /* Return the width in millimeters of DISPLAY.
3112 The optional argument DISPLAY specifies which display to ask about.
3113 DISPLAY should be either a frame or a display name (a string).
3114 If omitted or nil, that stands for the selected frame's display. */)
3116 Lisp_Object display
;
3118 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3119 /* Only of the main display. */
3120 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
3124 size
= CGDisplayScreenSize (kCGDirectMainDisplay
);
3127 return make_number ((int) (size
.width
+ .5f
));
3129 /* This is an approximation. */
3130 return make_number ((int) (dpyinfo
->width
* 25.4 / dpyinfo
->resx
));
3134 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3135 Sx_display_backing_store
, 0, 1, 0,
3136 doc
: /* Returns an indication of whether DISPLAY does backing store.
3137 The value may be `always', `when-mapped', or `not-useful'.
3138 The optional argument DISPLAY specifies which display to ask about.
3139 DISPLAY should be either a frame or a display name (a string).
3140 If omitted or nil, that stands for the selected frame's display. */)
3142 Lisp_Object display
;
3144 return intern ("not-useful");
3147 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3148 Sx_display_visual_class
, 0, 1, 0,
3149 doc
: /* Returns the visual class of DISPLAY.
3150 The value is one of the symbols `static-gray', `gray-scale',
3151 `static-color', `pseudo-color', `true-color', or `direct-color'.
3153 The optional argument DISPLAY specifies which display to ask about.
3154 DISPLAY should be either a frame or a display name (a string).
3155 If omitted or nil, that stands for the selected frame's display. */)
3157 Lisp_Object display
;
3159 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3162 switch (dpyinfo
->visual
->class)
3164 case StaticGray
: return (intern ("static-gray"));
3165 case GrayScale
: return (intern ("gray-scale"));
3166 case StaticColor
: return (intern ("static-color"));
3167 case PseudoColor
: return (intern ("pseudo-color"));
3168 case TrueColor
: return (intern ("true-color"));
3169 case DirectColor
: return (intern ("direct-color"));
3171 error ("Display has an unknown visual class");
3175 return (intern ("true-color"));
3178 DEFUN ("x-display-save-under", Fx_display_save_under
,
3179 Sx_display_save_under
, 0, 1, 0,
3180 doc
: /* Returns t if DISPLAY supports the save-under feature.
3181 The optional argument DISPLAY specifies which display to ask about.
3182 DISPLAY should be either a frame or a display name (a string).
3183 If omitted or nil, that stands for the selected frame's display. */)
3185 Lisp_Object display
;
3192 register struct frame
*f
;
3194 return FRAME_PIXEL_WIDTH (f
);
3199 register struct frame
*f
;
3201 return FRAME_PIXEL_HEIGHT (f
);
3206 register struct frame
*f
;
3208 return FRAME_COLUMN_WIDTH (f
);
3213 register struct frame
*f
;
3215 return FRAME_LINE_HEIGHT (f
);
3220 register struct frame
*f
;
3222 return FRAME_MAC_DISPLAY_INFO (f
)->n_planes
;
3225 /* Return the display structure for the display named NAME.
3226 Open a new connection if necessary. */
3228 struct mac_display_info
*
3229 x_display_info_for_name (name
)
3233 struct mac_display_info
*dpyinfo
;
3235 CHECK_STRING (name
);
3237 if (! EQ (Vwindow_system
, intern ("mac")))
3238 error ("Not using Mac native windows");
3240 for (dpyinfo
= &one_mac_display_info
, names
= x_display_name_list
;
3242 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
3245 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
3250 /* Use this general default value to start with. */
3251 Vx_resource_name
= Vinvocation_name
;
3253 validate_x_resource_name ();
3255 dpyinfo
= mac_term_init (name
, (unsigned char *) 0,
3256 (char *) SDATA (Vx_resource_name
));
3259 error ("Cannot connect to server %s", SDATA (name
));
3262 XSETFASTINT (Vwindow_system_version
, 3);
3267 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
3269 doc
: /* Open a connection to a server.
3270 DISPLAY is the name of the display to connect to.
3271 Optional second arg XRM-STRING is a string of resources in xrdb format.
3272 If the optional third arg MUST-SUCCEED is non-nil,
3273 terminate Emacs if we can't open the connection. */)
3274 (display
, xrm_string
, must_succeed
)
3275 Lisp_Object display
, xrm_string
, must_succeed
;
3277 unsigned char *xrm_option
;
3278 struct mac_display_info
*dpyinfo
;
3280 CHECK_STRING (display
);
3281 if (! NILP (xrm_string
))
3282 CHECK_STRING (xrm_string
);
3284 if (! EQ (Vwindow_system
, intern ("mac")))
3285 error ("Not using Mac native windows");
3287 if (! NILP (xrm_string
))
3288 xrm_option
= (unsigned char *) SDATA (xrm_string
);
3290 xrm_option
= (unsigned char *) 0;
3292 validate_x_resource_name ();
3294 /* This is what opens the connection and sets x_current_display.
3295 This also initializes many symbols, such as those used for input. */
3296 dpyinfo
= mac_term_init (display
, xrm_option
,
3297 (char *) SDATA (Vx_resource_name
));
3301 if (!NILP (must_succeed
))
3302 fatal ("Cannot connect to server %s.\n",
3305 error ("Cannot connect to server %s", SDATA (display
));
3310 XSETFASTINT (Vwindow_system_version
, 3);
3314 DEFUN ("x-close-connection", Fx_close_connection
,
3315 Sx_close_connection
, 1, 1, 0,
3316 doc
: /* Close the connection to DISPLAY's server.
3317 For DISPLAY, specify either a frame or a display name (a string).
3318 If DISPLAY is nil, that stands for the selected frame's display. */)
3320 Lisp_Object display
;
3322 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3325 if (dpyinfo
->reference_count
> 0)
3326 error ("Display still has frames on it");
3329 /* Free the fonts in the font table. */
3330 for (i
= 0; i
< dpyinfo
->n_fonts
; i
++)
3331 if (dpyinfo
->font_table
[i
].name
)
3333 mac_unload_font (dpyinfo
, dpyinfo
->font_table
[i
].font
);
3336 x_destroy_all_bitmaps (dpyinfo
);
3338 x_delete_display (dpyinfo
);
3344 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
3345 doc
: /* Return the list of display names that Emacs has connections to. */)
3348 Lisp_Object tail
, result
;
3351 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
3352 result
= Fcons (XCAR (XCAR (tail
)), result
);
3357 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
3358 doc
: /* This is a noop on Mac OS systems. */)
3360 Lisp_Object display
, on
;
3365 /* x_sync is a no-op on Mac. */
3374 /***********************************************************************
3376 ***********************************************************************/
3378 DEFUN ("x-change-window-property", Fx_change_window_property
,
3379 Sx_change_window_property
, 2, 6, 0,
3380 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
3381 VALUE may be a string or a list of conses, numbers and/or strings.
3382 If an element in the list is a string, it is converted to
3383 an Atom and the value of the Atom is used. If an element is a cons,
3384 it is converted to a 32 bit number where the car is the 16 top bits and the
3385 cdr is the lower 16 bits.
3386 FRAME nil or omitted means use the selected frame.
3387 If TYPE is given and non-nil, it is the name of the type of VALUE.
3388 If TYPE is not given or nil, the type is STRING.
3389 FORMAT gives the size in bits of each element if VALUE is a list.
3390 It must be one of 8, 16 or 32.
3391 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
3392 If OUTER_P is non-nil, the property is changed for the outer X window of
3393 FRAME. Default is to change on the edit X window.
3396 (prop
, value
, frame
, type
, format
, outer_p
)
3397 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
3399 #if 0 /* MAC_TODO : port window properties to Mac */
3400 struct frame
*f
= check_x_frame (frame
);
3403 CHECK_STRING (prop
);
3404 CHECK_STRING (value
);
3407 prop_atom
= XInternAtom (FRAME_W32_DISPLAY (f
), SDATA (prop
), False
);
3408 XChangeProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
),
3409 prop_atom
, XA_STRING
, 8, PropModeReplace
,
3410 SDATA (value
), SCHARS (value
));
3412 /* Make sure the property is set when we return. */
3413 XFlush (FRAME_W32_DISPLAY (f
));
3416 #endif /* MAC_TODO */
3422 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
3423 Sx_delete_window_property
, 1, 2, 0,
3424 doc
: /* Remove window property PROP from X window of FRAME.
3425 FRAME nil or omitted means use the selected frame. Value is PROP. */)
3427 Lisp_Object prop
, frame
;
3429 #if 0 /* MAC_TODO : port window properties to Mac */
3431 struct frame
*f
= check_x_frame (frame
);
3434 CHECK_STRING (prop
);
3436 prop_atom
= XInternAtom (FRAME_W32_DISPLAY (f
), SDATA (prop
), False
);
3437 XDeleteProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
), prop_atom
);
3439 /* Make sure the property is removed when we return. */
3440 XFlush (FRAME_W32_DISPLAY (f
));
3442 #endif /* MAC_TODO */
3448 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
3450 doc
: /* Value is the value of window property PROP on FRAME.
3451 If FRAME is nil or omitted, use the selected frame. Value is nil
3452 if FRAME hasn't a property with name PROP or if PROP has no string
3455 Lisp_Object prop
, frame
;
3457 #if 0 /* MAC_TODO : port window properties to Mac */
3459 struct frame
*f
= check_x_frame (frame
);
3462 Lisp_Object prop_value
= Qnil
;
3463 char *tmp_data
= NULL
;
3466 unsigned long actual_size
, bytes_remaining
;
3468 CHECK_STRING (prop
);
3470 prop_atom
= XInternAtom (FRAME_W32_DISPLAY (f
), SDATA (prop
), False
);
3471 rc
= XGetWindowProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
),
3472 prop_atom
, 0, 0, False
, XA_STRING
,
3473 &actual_type
, &actual_format
, &actual_size
,
3474 &bytes_remaining
, (unsigned char **) &tmp_data
);
3477 int size
= bytes_remaining
;
3482 rc
= XGetWindowProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
),
3483 prop_atom
, 0, bytes_remaining
,
3485 &actual_type
, &actual_format
,
3486 &actual_size
, &bytes_remaining
,
3487 (unsigned char **) &tmp_data
);
3489 prop_value
= make_string (tmp_data
, size
);
3498 #endif /* MAC_TODO */
3504 /***********************************************************************
3506 ***********************************************************************/
3508 /* If non-null, an asynchronous timer that, when it expires, displays
3509 an hourglass cursor on all frames. */
3511 static struct atimer
*hourglass_atimer
;
3513 /* Non-zero means an hourglass cursor is currently shown. */
3515 static int hourglass_shown_p
;
3517 /* Number of seconds to wait before displaying an hourglass cursor. */
3519 static Lisp_Object Vhourglass_delay
;
3521 /* Default number of seconds to wait before displaying an hourglass
3524 #define DEFAULT_HOURGLASS_DELAY 1
3526 /* Function prototypes. */
3528 static void show_hourglass
P_ ((struct atimer
*));
3529 static void hide_hourglass
P_ ((void));
3531 /* Return non-zero if houglass timer has been started or hourglass is shown. */
3534 hourglass_started ()
3536 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
3540 /* Cancel a currently active hourglass timer, and start a new one. */
3547 int secs
, usecs
= 0;
3549 /* Don't bother for ttys. */
3550 if (NILP (Vwindow_system
))
3553 cancel_hourglass ();
3555 if (INTEGERP (Vhourglass_delay
)
3556 && XINT (Vhourglass_delay
) > 0)
3557 secs
= XFASTINT (Vhourglass_delay
);
3558 else if (FLOATP (Vhourglass_delay
)
3559 && XFLOAT_DATA (Vhourglass_delay
) > 0)
3562 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
3563 secs
= XFASTINT (tem
);
3564 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
3567 secs
= DEFAULT_HOURGLASS_DELAY
;
3569 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
3570 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
3571 show_hourglass
, NULL
);
3572 #endif /* MAC_OSX */
3576 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
3583 if (hourglass_atimer
)
3585 cancel_atimer (hourglass_atimer
);
3586 hourglass_atimer
= NULL
;
3589 if (hourglass_shown_p
)
3591 #endif /* MAC_OSX */
3595 /* Timer function of hourglass_atimer. TIMER is equal to
3598 On Mac, busy status is shown by the progress indicator (chasing
3599 arrows) at the upper-right corner of each frame instead of the
3600 hourglass pointer. */
3603 show_hourglass (timer
)
3604 struct atimer
*timer
;
3606 #if TARGET_API_MAC_CARBON
3607 /* The timer implementation will cancel this timer automatically
3608 after this function has run. Set hourglass_atimer to null
3609 so that we know the timer doesn't have to be canceled. */
3610 hourglass_atimer
= NULL
;
3612 if (!hourglass_shown_p
)
3614 Lisp_Object rest
, frame
;
3618 FOR_EACH_FRAME (rest
, frame
)
3620 struct frame
*f
= XFRAME (frame
);
3622 if (FRAME_LIVE_P (f
) && FRAME_MAC_P (f
)
3623 && FRAME_MAC_WINDOW (f
) != tip_window
)
3626 mac_prepare_for_quickdraw (f
);
3628 if (!f
->output_data
.mac
->hourglass_control
)
3630 Window w
= FRAME_MAC_WINDOW (f
);
3634 GetWindowPortBounds (w
, &r
);
3635 r
.left
= r
.right
- HOURGLASS_WIDTH
;
3636 r
.bottom
= r
.top
+ HOURGLASS_HEIGHT
;
3637 if (CreateChasingArrowsControl (w
, &r
, &c
) == noErr
)
3638 f
->output_data
.mac
->hourglass_control
= c
;
3641 if (f
->output_data
.mac
->hourglass_control
)
3642 ShowControl (f
->output_data
.mac
->hourglass_control
);
3646 hourglass_shown_p
= 1;
3649 #endif /* TARGET_API_MAC_CARBON */
3653 /* Hide the progress indicators on all frames, if it is currently
3659 #if TARGET_API_MAC_CARBON
3660 if (hourglass_shown_p
)
3662 Lisp_Object rest
, frame
;
3665 FOR_EACH_FRAME (rest
, frame
)
3667 struct frame
*f
= XFRAME (frame
);
3670 /* Watch out for newly created frames. */
3671 && f
->output_data
.mac
->hourglass_control
)
3674 mac_prepare_for_quickdraw (f
);
3676 HideControl (f
->output_data
.mac
->hourglass_control
);
3680 hourglass_shown_p
= 0;
3683 #endif /* TARGET_API_MAC_CARBON */
3688 /***********************************************************************
3690 ***********************************************************************/
3692 static Lisp_Object x_create_tip_frame
P_ ((struct mac_display_info
*,
3693 Lisp_Object
, Lisp_Object
));
3694 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
3695 Lisp_Object
, int, int, int *, int *));
3697 /* The frame of a currently visible tooltip. */
3699 Lisp_Object tip_frame
;
3701 /* If non-nil, a timer started that hides the last tooltip when it
3704 Lisp_Object tip_timer
;
3707 /* If non-nil, a vector of 3 elements containing the last args
3708 with which x-show-tip was called. See there. */
3710 Lisp_Object last_show_tip_args
;
3712 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
3714 Lisp_Object Vx_max_tooltip_size
;
3718 unwind_create_tip_frame (frame
)
3721 Lisp_Object deleted
;
3723 deleted
= unwind_create_frame (frame
);
3724 if (EQ (deleted
, Qt
))
3734 /* Create a frame for a tooltip on the display described by DPYINFO.
3735 PARMS is a list of frame parameters. TEXT is the string to
3736 display in the tip frame. Value is the frame.
3738 Note that functions called here, esp. x_default_parameter can
3739 signal errors, for instance when a specified color name is
3740 undefined. We have to make sure that we're in a consistent state
3741 when this happens. */
3744 x_create_tip_frame (dpyinfo
, parms
, text
)
3745 struct mac_display_info
*dpyinfo
;
3746 Lisp_Object parms
, text
;
3749 Lisp_Object frame
, tem
;
3751 long window_prompting
= 0;
3753 int count
= SPECPDL_INDEX ();
3754 struct gcpro gcpro1
, gcpro2
, gcpro3
;
3756 int face_change_count_before
= face_change_count
;
3758 struct buffer
*old_buffer
;
3762 parms
= Fcopy_alist (parms
);
3765 kb
= dpyinfo
->kboard
;
3767 kb
= &the_only_kboard
;
3770 /* Get the name of the frame to use for resource lookup. */
3771 name
= mac_get_arg (parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3773 && !EQ (name
, Qunbound
)
3775 error ("Invalid frame name--not a string or nil");
3778 GCPRO3 (parms
, name
, frame
);
3780 XSETFRAME (frame
, f
);
3782 buffer
= Fget_buffer_create (build_string (" *tip*"));
3783 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
3784 old_buffer
= current_buffer
;
3785 set_buffer_internal_1 (XBUFFER (buffer
));
3786 current_buffer
->truncate_lines
= Qnil
;
3787 specbind (Qinhibit_read_only
, Qt
);
3788 specbind (Qinhibit_modification_hooks
, Qt
);
3791 set_buffer_internal_1 (old_buffer
);
3793 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
3794 record_unwind_protect (unwind_create_tip_frame
, frame
);
3796 /* By setting the output method, we're essentially saying that
3797 the frame is live, as per FRAME_LIVE_P. If we get a signal
3798 from this point on, x_destroy_window might screw up reference
3800 f
->output_method
= output_mac
;
3801 f
->output_data
.mac
=
3802 (struct mac_output
*) xmalloc (sizeof (struct mac_output
));
3803 bzero (f
->output_data
.mac
, sizeof (struct mac_output
));
3805 FRAME_FONTSET (f
) = -1;
3806 f
->icon_name
= Qnil
;
3807 /* FRAME_X_DISPLAY_INFO (f) = dpyinfo; */
3809 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
3810 dpyinfo_refcount
= dpyinfo
->reference_count
;
3811 #endif /* GLYPH_DEBUG */
3813 FRAME_KBOARD (f
) = kb
;
3815 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
3816 f
->output_data
.mac
->explicit_parent
= 0;
3818 /* Set the name; the functions to which we pass f expect the name to
3820 if (EQ (name
, Qunbound
) || NILP (name
))
3822 f
->name
= build_string (dpyinfo
->mac_id_name
);
3823 f
->explicit_name
= 0;
3828 f
->explicit_name
= 1;
3829 /* use the frame's title when getting resources for this frame. */
3830 specbind (Qx_resource_name
, name
);
3833 /* Extract the window parameters from the supplied values that are
3834 needed to determine window geometry. */
3838 font
= mac_get_arg (parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3841 /* First, try whatever font the caller has specified. */
3844 tem
= Fquery_fontset (font
, Qnil
);
3846 font
= x_new_fontset (f
, SDATA (tem
));
3848 font
= x_new_font (f
, SDATA (font
));
3851 /* Try out a font which we hope has bold and italic variations. */
3853 if (! STRINGP (font
))
3854 font
= x_new_font (f
, "-*-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1");
3856 if (! STRINGP (font
))
3857 font
= x_new_font (f
, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1");
3858 /* If those didn't work, look for something which will at least work. */
3859 if (! STRINGP (font
))
3860 font
= x_new_fontset (f
, "fontset-standard");
3861 if (! STRINGP (font
))
3862 font
= x_new_font (f
, "-*-monaco-*-12-*-mac-roman");
3863 if (! STRINGP (font
))
3864 font
= x_new_font (f
, "-*-courier-*-10-*-mac-roman");
3866 if (! STRINGP (font
))
3867 error ("Cannot find any usable font");
3869 x_default_parameter (f
, parms
, Qfont
, font
,
3870 "font", "Font", RES_TYPE_STRING
);
3873 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3874 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3876 /* This defaults to 2 in order to match xterm. We recognize either
3877 internalBorderWidth or internalBorder (which is what xterm calls
3879 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3883 value
= mac_get_arg (parms
, Qinternal_border_width
,
3884 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3885 if (! EQ (value
, Qunbound
))
3886 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3890 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3891 "internalBorderWidth", "internalBorderWidth",
3894 /* Also do the stuff which must be set before the window exists. */
3895 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3896 "foreground", "Foreground", RES_TYPE_STRING
);
3897 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3898 "background", "Background", RES_TYPE_STRING
);
3899 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3900 "pointerColor", "Foreground", RES_TYPE_STRING
);
3901 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3902 "cursorColor", "Foreground", RES_TYPE_STRING
);
3903 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3904 "borderColor", "BorderColor", RES_TYPE_STRING
);
3906 /* Init faces before x_default_parameter is called for scroll-bar
3907 parameters because that function calls x_set_scroll_bar_width,
3908 which calls change_frame_size, which calls Fset_window_buffer,
3909 which runs hooks, which call Fvertical_motion. At the end, we
3910 end up in init_iterator with a null face cache, which should not
3912 init_frame_faces (f
);
3914 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
3916 window_prompting
= x_figure_window_size (f
, parms
, 0);
3922 SetRect (&r
, 0, 0, 1, 1);
3923 #if TARGET_API_MAC_CARBON
3924 if (CreateNewWindow (kHelpWindowClass
,
3925 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
3926 kWindowIgnoreClicksAttribute
|
3928 kWindowNoUpdatesAttribute
|
3929 kWindowNoActivatesAttribute
,
3930 &r
, &tip_window
) == noErr
)
3932 if (tip_window
= NewCWindow (NULL
, &r
, "\p", false, plainDBox
,
3936 FRAME_MAC_WINDOW (f
) = tip_window
;
3937 XSetWindowBackground (FRAME_MAC_DISPLAY(f
), tip_window
,
3938 FRAME_BACKGROUND_PIXEL (f
));
3939 SetWRefCon (tip_window
, (long) f
->output_data
.mac
);
3940 /* so that update events can find this mac_output struct */
3941 f
->output_data
.mac
->mFP
= f
;
3948 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3949 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3950 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3951 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3952 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3953 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3955 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3956 Change will not be effected unless different from the current
3958 width
= FRAME_COLS (f
);
3959 height
= FRAME_LINES (f
);
3960 SET_FRAME_COLS (f
, 0);
3961 FRAME_LINES (f
) = 0;
3962 change_frame_size (f
, height
, width
, 1, 0, 0);
3964 /* Add `tooltip' frame parameter's default value. */
3965 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
3966 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
3969 /* Set up faces after all frame parameters are known. This call
3970 also merges in face attributes specified for new frames.
3972 Frame parameters may be changed if .Xdefaults contains
3973 specifications for the default font. For example, if there is an
3974 `Emacs.default.attributeBackground: pink', the `background-color'
3975 attribute of the frame get's set, which let's the internal border
3976 of the tooltip frame appear in pink. Prevent this. */
3978 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
3980 /* Set tip_frame here, so that */
3982 call1 (Qface_set_after_frame_default
, frame
);
3984 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
3985 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
3993 /* It is now ok to make the frame official even if we get an error
3994 below. And the frame needs to be on Vframe_list or making it
3995 visible won't work. */
3996 Vframe_list
= Fcons (frame
, Vframe_list
);
3998 /* Now that the frame is official, it counts as a reference to
4000 FRAME_MAC_DISPLAY_INFO (f
)->reference_count
++;
4002 /* Setting attributes of faces of the tooltip frame from resources
4003 and similar will increment face_change_count, which leads to the
4004 clearing of all current matrices. Since this isn't necessary
4005 here, avoid it by resetting face_change_count to the value it
4006 had before we created the tip frame. */
4007 face_change_count
= face_change_count_before
;
4009 /* Discard the unwind_protect. */
4010 return unbind_to (count
, frame
);
4014 /* Compute where to display tip frame F. PARMS is the list of frame
4015 parameters for F. DX and DY are specified offsets from the current
4016 location of the mouse. WIDTH and HEIGHT are the width and height
4017 of the tooltip. Return coordinates relative to the root window of
4018 the display in *ROOT_X, and *ROOT_Y. */
4021 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4023 Lisp_Object parms
, dx
, dy
;
4025 int *root_x
, *root_y
;
4027 Lisp_Object left
, top
;
4029 /* User-specified position? */
4030 left
= Fcdr (Fassq (Qleft
, parms
));
4031 top
= Fcdr (Fassq (Qtop
, parms
));
4033 /* Move the tooltip window where the mouse pointer is. Resize and
4035 if (!INTEGERP (left
) || !INTEGERP (top
))
4040 GetMouse (&mouse_pos
);
4041 LocalToGlobal (&mouse_pos
);
4042 *root_x
= mouse_pos
.h
;
4043 *root_y
= mouse_pos
.v
;
4048 *root_y
= XINT (top
);
4049 else if (*root_y
+ XINT (dy
) <= 0)
4050 *root_y
= 0; /* Can happen for negative dy */
4051 else if (*root_y
+ XINT (dy
) + height
<= FRAME_MAC_DISPLAY_INFO (f
)->height
)
4052 /* It fits below the pointer */
4053 *root_y
+= XINT (dy
);
4054 else if (height
+ XINT (dy
) <= *root_y
)
4055 /* It fits above the pointer. */
4056 *root_y
-= height
+ XINT (dy
);
4058 /* Put it on the top. */
4061 if (INTEGERP (left
))
4062 *root_x
= XINT (left
);
4063 else if (*root_x
+ XINT (dx
) <= 0)
4064 *root_x
= 0; /* Can happen for negative dx */
4065 else if (*root_x
+ XINT (dx
) + width
<= FRAME_MAC_DISPLAY_INFO (f
)->width
)
4066 /* It fits to the right of the pointer. */
4067 *root_x
+= XINT (dx
);
4068 else if (width
+ XINT (dx
) <= *root_x
)
4069 /* It fits to the left of the pointer. */
4070 *root_x
-= width
+ XINT (dx
);
4072 /* Put it left-justified on the screen -- it ought to fit that way. */
4077 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4078 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4079 A tooltip window is a small window displaying a string.
4081 FRAME nil or omitted means use the selected frame.
4083 PARMS is an optional list of frame parameters which can be used to
4084 change the tooltip's appearance.
4086 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4087 means use the default timeout of 5 seconds.
4089 If the list of frame parameters PARMS contains a `left' parameter,
4090 the tooltip is displayed at that x-position. Otherwise it is
4091 displayed at the mouse position, with offset DX added (default is 5 if
4092 DX isn't specified). Likewise for the y-position; if a `top' frame
4093 parameter is specified, it determines the y-position of the tooltip
4094 window, otherwise it is displayed at the mouse position, with offset
4095 DY added (default is -10).
4097 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4098 Text larger than the specified size is clipped. */)
4099 (string
, frame
, parms
, timeout
, dx
, dy
)
4100 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
4105 struct buffer
*old_buffer
;
4106 struct text_pos pos
;
4107 int i
, width
, height
;
4108 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
4109 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
4110 int count
= SPECPDL_INDEX ();
4112 specbind (Qinhibit_redisplay
, Qt
);
4114 GCPRO4 (string
, parms
, frame
, timeout
);
4116 CHECK_STRING (string
);
4117 f
= check_x_frame (frame
);
4119 timeout
= make_number (5);
4121 CHECK_NATNUM (timeout
);
4124 dx
= make_number (5);
4129 dy
= make_number (-10);
4133 if (NILP (last_show_tip_args
))
4134 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
4136 if (!NILP (tip_frame
))
4138 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
4139 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
4140 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
4142 if (EQ (frame
, last_frame
)
4143 && !NILP (Fequal (last_string
, string
))
4144 && !NILP (Fequal (last_parms
, parms
)))
4146 struct frame
*f
= XFRAME (tip_frame
);
4148 /* Only DX and DY have changed. */
4149 if (!NILP (tip_timer
))
4151 Lisp_Object timer
= tip_timer
;
4153 call1 (Qcancel_timer
, timer
);
4157 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
4158 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
4159 MoveWindow (FRAME_MAC_WINDOW (f
), root_x
, root_y
, false);
4165 /* Hide a previous tip, if any. */
4168 ASET (last_show_tip_args
, 0, string
);
4169 ASET (last_show_tip_args
, 1, frame
);
4170 ASET (last_show_tip_args
, 2, parms
);
4172 /* Add default values to frame parameters. */
4173 if (NILP (Fassq (Qname
, parms
)))
4174 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
4175 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4176 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
4177 if (NILP (Fassq (Qborder_width
, parms
)))
4178 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
4179 if (NILP (Fassq (Qborder_color
, parms
)))
4180 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
4181 if (NILP (Fassq (Qbackground_color
, parms
)))
4182 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
4185 /* Create a frame for the tooltip, and record it in the global
4186 variable tip_frame. */
4187 frame
= x_create_tip_frame (FRAME_MAC_DISPLAY_INFO (f
), parms
, string
);
4190 /* Set up the frame's root window. */
4191 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
4192 w
->left_col
= w
->top_line
= make_number (0);
4194 if (CONSP (Vx_max_tooltip_size
)
4195 && INTEGERP (XCAR (Vx_max_tooltip_size
))
4196 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
4197 && INTEGERP (XCDR (Vx_max_tooltip_size
))
4198 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
4200 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
4201 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
4205 w
->total_cols
= make_number (80);
4206 w
->total_lines
= make_number (40);
4209 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
4211 w
->pseudo_window_p
= 1;
4213 /* Display the tooltip text in a temporary buffer. */
4214 old_buffer
= current_buffer
;
4215 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
4216 current_buffer
->truncate_lines
= Qnil
;
4217 clear_glyph_matrix (w
->desired_matrix
);
4218 clear_glyph_matrix (w
->current_matrix
);
4219 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
4220 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
4222 /* Compute width and height of the tooltip. */
4224 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
4226 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
4230 /* Stop at the first empty row at the end. */
4231 if (!row
->enabled_p
|| !row
->displays_text_p
)
4234 /* Let the row go over the full width of the frame. */
4235 row
->full_width_p
= 1;
4237 /* There's a glyph at the end of rows that is used to place
4238 the cursor there. Don't include the width of this glyph. */
4239 if (row
->used
[TEXT_AREA
])
4241 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
4242 row_width
= row
->pixel_width
- last
->pixel_width
;
4245 row_width
= row
->pixel_width
;
4247 height
+= row
->height
;
4248 width
= max (width
, row_width
);
4251 /* Add the frame's internal border to the width and height the X
4252 window should have. */
4253 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
4254 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
4256 /* Move the tooltip window where the mouse pointer is. Resize and
4258 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
4261 MoveWindow (FRAME_MAC_WINDOW (f
), root_x
, root_y
, false);
4262 SizeWindow (FRAME_MAC_WINDOW (f
), width
, height
, true);
4263 ShowWindow (FRAME_MAC_WINDOW (f
));
4264 BringToFront (FRAME_MAC_WINDOW (f
));
4267 FRAME_PIXEL_WIDTH (f
) = width
;
4268 FRAME_PIXEL_HEIGHT (f
) = height
;
4270 /* Draw into the window. */
4271 w
->must_be_updated_p
= 1;
4272 update_single_window (w
, 1);
4274 /* Restore original current buffer. */
4275 set_buffer_internal_1 (old_buffer
);
4276 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
4279 /* Let the tip disappear after timeout seconds. */
4280 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
4281 intern ("x-hide-tip"));
4284 return unbind_to (count
, Qnil
);
4288 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
4289 doc
: /* Hide the current tooltip window, if there is any.
4290 Value is t if tooltip was open, nil otherwise. */)
4294 Lisp_Object deleted
, frame
, timer
;
4295 struct gcpro gcpro1
, gcpro2
;
4297 /* Return quickly if nothing to do. */
4298 if (NILP (tip_timer
) && NILP (tip_frame
))
4303 GCPRO2 (frame
, timer
);
4304 tip_frame
= tip_timer
= deleted
= Qnil
;
4306 count
= SPECPDL_INDEX ();
4307 specbind (Qinhibit_redisplay
, Qt
);
4308 specbind (Qinhibit_quit
, Qt
);
4311 call1 (Qcancel_timer
, timer
);
4315 Fdelete_frame (frame
, Qnil
);
4320 return unbind_to (count
, deleted
);
4325 #if TARGET_API_MAC_CARBON
4326 /***********************************************************************
4327 File selection dialog
4328 ***********************************************************************/
4330 static pascal void mac_nav_event_callback
P_ ((NavEventCallbackMessage
,
4331 NavCBRecPtr
, void *));
4334 There is a relatively standard way to do this using applescript to run
4335 a (choose file) method. However, this doesn't do "the right thing"
4336 by working only if the find-file occurred during a menu or toolbar
4337 click. So we must do the file dialog by hand, using the navigation
4338 manager. This also has more flexibility in determining the default
4339 directory and whether or not we are going to choose a file.
4342 extern Lisp_Object Qfile_name_history
;
4344 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
4345 doc
: /* Read file name, prompting with PROMPT in directory DIR.
4346 Use a file selection dialog.
4347 Select DEFAULT-FILENAME in the dialog's file selection box, if
4348 specified. Ensure that file exists if MUSTMATCH is non-nil.
4349 If ONLY-DIR-P is non-nil, the user can only select directories. */)
4350 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
4351 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
4353 Lisp_Object file
= Qnil
;
4354 int count
= SPECPDL_INDEX ();
4355 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
4356 char filename
[MAXPATHLEN
];
4357 static NavEventUPP mac_nav_event_callbackUPP
= NULL
;
4361 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, file
, only_dir_p
);
4362 CHECK_STRING (prompt
);
4365 /* Create the dialog with PROMPT as title, using DIR as initial
4366 directory and using "*" as pattern. */
4367 dir
= Fexpand_file_name (dir
, Qnil
);
4371 NavDialogCreationOptions options
;
4372 NavDialogRef dialogRef
;
4373 NavTypeListHandle fileTypes
= NULL
;
4374 NavUserAction userAction
;
4375 CFStringRef message
=NULL
, saveName
= NULL
;
4378 /* No need for a callback function because we are modal */
4379 NavGetDefaultDialogCreationOptions(&options
);
4380 options
.modality
= kWindowModalityAppModal
;
4381 options
.location
.h
= options
.location
.v
= -1;
4382 options
.optionFlags
= kNavDefaultNavDlogOptions
;
4383 options
.optionFlags
|= kNavAllFilesInPopup
; /* All files allowed */
4384 options
.optionFlags
|= kNavSelectAllReadableItem
;
4385 options
.optionFlags
&= ~kNavAllowMultipleFiles
;
4388 message
= cfstring_create_with_string (prompt
);
4389 options
.message
= message
;
4391 /* Don't set the application, let it use default.
4392 options.clientName = CFSTR ("Emacs");
4395 if (mac_nav_event_callbackUPP
== NULL
)
4396 mac_nav_event_callbackUPP
= NewNavEventUPP (mac_nav_event_callback
);
4398 if (!NILP (only_dir_p
))
4399 status
= NavCreateChooseFolderDialog(&options
, mac_nav_event_callbackUPP
,
4400 NULL
, NULL
, &dialogRef
);
4401 else if (NILP (mustmatch
))
4403 /* This is a save dialog */
4404 options
.optionFlags
|= kNavDontConfirmReplacement
;
4405 options
.actionButtonLabel
= CFSTR ("Ok");
4406 options
.windowTitle
= CFSTR ("Enter name");
4408 if (STRINGP (default_filename
))
4410 Lisp_Object utf8
= ENCODE_UTF_8 (default_filename
);
4411 char *begPtr
= SDATA(utf8
);
4412 char *filePtr
= begPtr
+ SBYTES(utf8
);
4413 while (filePtr
!= begPtr
&& !IS_DIRECTORY_SEP(filePtr
[-1]))
4415 saveName
= cfstring_create_with_utf8_cstring (filePtr
);
4416 options
.saveFileName
= saveName
;
4417 options
.optionFlags
|= kNavSelectDefaultLocation
;
4419 status
= NavCreatePutFileDialog(&options
,
4420 'TEXT', kNavGenericSignature
,
4421 mac_nav_event_callbackUPP
, NULL
,
4426 /* This is an open dialog*/
4427 status
= NavCreateChooseFileDialog(&options
, fileTypes
,
4428 mac_nav_event_callbackUPP
, NULL
,
4429 NULL
, NULL
, &dialogRef
);
4432 /* Set the default location and continue*/
4433 if (status
== noErr
)
4435 Lisp_Object encoded_dir
= ENCODE_FILE (dir
);
4438 status
= AECreateDesc (TYPE_FILE_NAME
, SDATA (encoded_dir
),
4439 SBYTES (encoded_dir
), &defLocAed
);
4440 if (status
== noErr
)
4442 NavCustomControl(dialogRef
, kNavCtlSetLocation
, (void*) &defLocAed
);
4443 AEDisposeDesc(&defLocAed
);
4445 status
= NavDialogRun(dialogRef
);
4448 if (saveName
) CFRelease(saveName
);
4449 if (message
) CFRelease(message
);
4451 if (status
== noErr
) {
4452 userAction
= NavDialogGetUserAction(dialogRef
);
4455 case kNavUserActionNone
:
4456 case kNavUserActionCancel
:
4457 break; /* Treat cancel like C-g */
4458 case kNavUserActionOpen
:
4459 case kNavUserActionChoose
:
4460 case kNavUserActionSaveAs
:
4462 NavReplyRecord reply
;
4465 status
= NavDialogGetReply(dialogRef
, &reply
);
4466 if (status
!= noErr
)
4468 status
= AEGetNthPtr (&reply
.selection
, 1, TYPE_FILE_NAME
,
4469 NULL
, NULL
, filename
,
4470 sizeof (filename
) - 1, &len
);
4471 if (status
== noErr
)
4473 len
= min (len
, sizeof (filename
) - 1);
4474 filename
[len
] = '\0';
4475 if (reply
.saveFileName
)
4477 /* If it was a saved file, we need to add the file name */
4478 if (len
&& len
< sizeof (filename
) - 1
4479 && filename
[len
-1] != '/')
4480 filename
[len
++] = '/';
4481 CFStringGetCString(reply
.saveFileName
, filename
+len
,
4482 sizeof (filename
) - len
,
4484 kCFStringEncodingUTF8
4486 CFStringGetSystemEncoding ()
4490 file
= DECODE_FILE (make_unibyte_string (filename
,
4491 strlen (filename
)));
4493 NavDisposeReply(&reply
);
4497 NavDialogDispose(dialogRef
);
4502 /* Fall back on minibuffer if there was a problem */
4503 file
= Fcompleting_read (prompt
, intern ("read-file-name-internal"),
4504 dir
, mustmatch
, dir
, Qfile_name_history
,
4505 default_filename
, Qnil
);
4511 /* Make "Cancel" equivalent to C-g. */
4513 Fsignal (Qquit
, Qnil
);
4515 return unbind_to (count
, file
);
4519 /* Need to register some event callback function for enabling drag and
4520 drop in Navigation Service dialogs. */
4522 mac_nav_event_callback (selector
, parms
, data
)
4523 NavEventCallbackMessage selector
;
4530 /***********************************************************************
4532 ***********************************************************************/
4534 DEFUN ("mac-clear-font-name-table", Fmac_clear_font_name_table
,
4535 Smac_clear_font_name_table
, 0, 0, 0,
4536 doc
: /* Clear the font name table. */)
4540 mac_clear_font_name_table ();
4544 #if USE_MAC_FONT_PANEL
4545 DEFUN ("mac-set-font-panel-visibility", Fmac_set_font_panel_visibility
,
4546 Smac_set_font_panel_visibility
, 1, 1, 0,
4547 doc
: /* Make the font panel visible if and only if VISIBLE is non-nil.
4548 This is for internal use only. Use `mac-font-panel-mode' instead. */)
4550 Lisp_Object visible
;
4552 OSStatus err
= noErr
;
4557 if (NILP (visible
) != !mac_font_panel_visible_p ())
4559 err
= mac_show_hide_font_panel ();
4560 if (err
== noErr
&& !NILP (visible
))
4562 Lisp_Object focus_frame
= x_get_focus_frame (SELECTED_FRAME ());
4563 struct frame
*f
= (NILP (focus_frame
) ? SELECTED_FRAME ()
4564 : XFRAME (focus_frame
));
4566 mac_set_font_info_for_selection (f
, DEFAULT_FACE_ID
, 0);
4572 error ("Cannot change visibility of the font panel");
4577 /***********************************************************************
4579 ***********************************************************************/
4581 /* Keep this list in the same order as frame_parms in frame.c.
4582 Use 0 for unsupported frame parameters. */
4584 frame_parm_handler mac_frame_parm_handlers
[] =
4588 x_set_background_color
,
4594 x_set_foreground_color
,
4596 0, /* MAC_TODO: x_set_icon_type, */
4597 x_set_internal_border_width
,
4598 x_set_menu_bar_lines
,
4600 x_explicitly_set_name
,
4601 mac_set_scroll_bar_width
,
4604 x_set_vertical_scroll_bars
,
4606 x_set_tool_bar_lines
,
4607 0, /* MAC_TODO: x_set_scroll_bar_foreground, */
4608 0, /* MAC_TODO: x_set_scroll_bar_background, */
4613 0, /* x_set_wait_for_wm, */
4621 /* This is zero if not using Mac native windows. */
4624 /* Certainly running on Mac native windows. */
4628 /* The section below is built by the lisp expression at the top of the file,
4629 just above where these variables are declared. */
4630 /*&&& init symbols here &&&*/
4631 Qnone
= intern ("none");
4633 Qsuppress_icon
= intern ("suppress-icon");
4634 staticpro (&Qsuppress_icon
);
4635 Qundefined_color
= intern ("undefined-color");
4636 staticpro (&Qundefined_color
);
4637 Qcancel_timer
= intern ("cancel-timer");
4638 staticpro (&Qcancel_timer
);
4639 /* This is the end of symbol initialization. */
4641 /* Text property `display' should be nonsticky by default. */
4642 Vtext_property_default_nonsticky
4643 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
4646 Fput (Qundefined_color
, Qerror_conditions
,
4647 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
4648 Fput (Qundefined_color
, Qerror_message
,
4649 build_string ("Undefined color"));
4651 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
4652 doc
: /* The shape of the pointer when over text.
4653 Changing the value does not affect existing frames
4654 unless you set the mouse color. */);
4655 Vx_pointer_shape
= Qnil
;
4657 #if 0 /* This doesn't really do anything. */
4658 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
4659 doc
: /* The shape of the pointer when not over text.
4660 This variable takes effect when you create a new frame
4661 or when you set the mouse color. */);
4663 Vx_nontext_pointer_shape
= Qnil
;
4665 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
4666 doc
: /* The shape of the pointer when Emacs is busy.
4667 This variable takes effect when you create a new frame
4668 or when you set the mouse color. */);
4669 Vx_hourglass_pointer_shape
= Qnil
;
4671 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
4672 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
4673 display_hourglass_p
= 1;
4675 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
4676 doc
: /* *Seconds to wait before displaying an hourglass pointer.
4677 Value must be an integer or float. */);
4678 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
4680 #if 0 /* This doesn't really do anything. */
4681 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
4682 doc
: /* The shape of the pointer when over the mode line.
4683 This variable takes effect when you create a new frame
4684 or when you set the mouse color. */);
4686 Vx_mode_pointer_shape
= Qnil
;
4688 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
4689 &Vx_sensitive_text_pointer_shape
,
4690 doc
: /* The shape of the pointer when over mouse-sensitive text.
4691 This variable takes effect when you create a new frame
4692 or when you set the mouse color. */);
4693 Vx_sensitive_text_pointer_shape
= Qnil
;
4695 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
4696 &Vx_window_horizontal_drag_shape
,
4697 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
4698 This variable takes effect when you create a new frame
4699 or when you set the mouse color. */);
4700 Vx_window_horizontal_drag_shape
= Qnil
;
4702 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
4703 doc
: /* A string indicating the foreground color of the cursor box. */);
4704 Vx_cursor_fore_pixel
= Qnil
;
4706 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
4707 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
4708 Text larger than this is clipped. */);
4709 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
4711 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
4712 doc
: /* Non-nil if no window manager is in use.
4713 Emacs doesn't try to figure this out; this is always nil
4714 unless you set it to something else. */);
4715 /* We don't have any way to find this out, so set it to nil
4716 and maybe the user would like to set it to t. */
4717 Vx_no_window_manager
= Qnil
;
4719 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
4720 &Vx_pixel_size_width_font_regexp
,
4721 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
4723 Since Emacs gets width of a font matching with this regexp from
4724 PIXEL_SIZE field of the name, font finding mechanism gets faster for
4725 such a font. This is especially effective for such large fonts as
4726 Chinese, Japanese, and Korean. */);
4727 Vx_pixel_size_width_font_regexp
= Qnil
;
4729 #if TARGET_API_MAC_CARBON
4730 DEFVAR_LISP ("mac-carbon-version-string", &Vmac_carbon_version_string
,
4731 doc
: /* Version info for Carbon API. */);
4735 char carbon_version
[16] = "Unknown";
4737 err
= Gestalt (gestaltCarbonVersion
, &response
);
4739 sprintf (carbon_version
, "%u.%u.%u",
4740 (response
>> 8) & 0xf, (response
>> 4) & 0xf, response
& 0xf);
4741 Vmac_carbon_version_string
= build_string (carbon_version
);
4743 #endif /* TARGET_API_MAC_CARBON */
4745 /* X window properties. */
4746 defsubr (&Sx_change_window_property
);
4747 defsubr (&Sx_delete_window_property
);
4748 defsubr (&Sx_window_property
);
4750 defsubr (&Sxw_display_color_p
);
4751 defsubr (&Sx_display_grayscale_p
);
4752 defsubr (&Sxw_color_defined_p
);
4753 defsubr (&Sxw_color_values
);
4754 defsubr (&Sx_server_max_request_size
);
4755 defsubr (&Sx_server_vendor
);
4756 defsubr (&Sx_server_version
);
4757 defsubr (&Sx_display_pixel_width
);
4758 defsubr (&Sx_display_pixel_height
);
4759 defsubr (&Sx_display_mm_width
);
4760 defsubr (&Sx_display_mm_height
);
4761 defsubr (&Sx_display_screens
);
4762 defsubr (&Sx_display_planes
);
4763 defsubr (&Sx_display_color_cells
);
4764 defsubr (&Sx_display_visual_class
);
4765 defsubr (&Sx_display_backing_store
);
4766 defsubr (&Sx_display_save_under
);
4767 defsubr (&Sx_create_frame
);
4768 defsubr (&Sx_open_connection
);
4769 defsubr (&Sx_close_connection
);
4770 defsubr (&Sx_display_list
);
4771 defsubr (&Sx_synchronize
);
4772 defsubr (&Sx_focus_frame
);
4774 /* Setting callback functions for fontset handler. */
4775 get_font_info_func
= x_get_font_info
;
4777 #if 0 /* This function pointer doesn't seem to be used anywhere.
4778 And the pointer assigned has the wrong type, anyway. */
4779 list_fonts_func
= x_list_fonts
;
4782 load_font_func
= x_load_font
;
4783 find_ccl_program_func
= x_find_ccl_program
;
4784 query_font_func
= x_query_font
;
4785 set_frame_fontset_func
= mac_set_font
;
4786 check_window_system_func
= check_mac
;
4788 hourglass_atimer
= NULL
;
4789 hourglass_shown_p
= 0;
4791 defsubr (&Sx_show_tip
);
4792 defsubr (&Sx_hide_tip
);
4794 staticpro (&tip_timer
);
4796 staticpro (&tip_frame
);
4798 last_show_tip_args
= Qnil
;
4799 staticpro (&last_show_tip_args
);
4801 #if TARGET_API_MAC_CARBON
4802 defsubr (&Sx_file_dialog
);
4804 defsubr (&Smac_clear_font_name_table
);
4805 #if USE_MAC_FONT_PANEL
4806 defsubr (&Smac_set_font_panel_visibility
);
4810 /* arch-tag: d7591289-f374-4377-b245-12f5dbbb8edc
4811 (do not change this comment) */