1 /* Graphical user interface functions for Mac OS.
2 Copyright (C) 2000, 2001, 2002, 2003, 2004,
3 2005, 2006 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 Boston, MA 02110-1301, USA. */
22 /* Contributed by Andrew Choi (akochoi@mac.com). */
33 #include "intervals.h"
34 #include "dispextern.h"
36 #include "blockinput.h"
42 #include "termhooks.h"
46 #include <sys/types.h>
50 #include <sys/param.h>
52 extern void free_frame_menubar ();
54 /* Non-zero means we're allowed to display an hourglass cursor. */
56 int display_hourglass_p
;
58 /* The background and shape of the mouse pointer, and shape when not
59 over text or in the modeline. */
61 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
62 Lisp_Object Vx_hourglass_pointer_shape
;
64 /* The shape when over mouse-sensitive text. */
66 Lisp_Object Vx_sensitive_text_pointer_shape
;
68 /* If non-nil, the pointer shape to indicate that windows can be
69 dragged horizontally. */
71 Lisp_Object Vx_window_horizontal_drag_shape
;
73 /* Color of chars displayed in cursor box. */
75 Lisp_Object Vx_cursor_fore_pixel
;
77 /* Nonzero if using Windows. */
79 static int mac_in_use
;
81 /* Non nil if no window manager is in use. */
83 Lisp_Object Vx_no_window_manager
;
85 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
87 Lisp_Object Vx_pixel_size_width_font_regexp
;
90 Lisp_Object Qsuppress_icon
;
91 Lisp_Object Qundefined_color
;
92 Lisp_Object Qcancel_timer
;
96 extern Lisp_Object Vwindow_system_version
;
99 int image_cache_refcount
, dpyinfo_refcount
;
103 #if 0 /* Use xstricmp instead. */
104 /* compare two strings ignoring case */
107 stricmp (const char *s
, const char *t
)
109 for ( ; tolower (*s
) == tolower (*t
); s
++, t
++)
112 return tolower (*s
) - tolower (*t
);
116 /* compare two strings up to n characters, ignoring case */
119 strnicmp (const char *s
, const char *t
, unsigned int n
)
121 for ( ; n
> 0 && tolower (*s
) == tolower (*t
); n
--, s
++, t
++)
124 return n
== 0 ? 0 : tolower (*s
) - tolower (*t
);
128 /* Error if we are not running on Mac OS. */
134 error ("Mac native windows not in use or not initialized");
137 /* Nonzero if we can use mouse menus.
138 You should not call this unless HAVE_MENUS is defined. */
146 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
147 and checking validity for Mac. */
150 check_x_frame (frame
)
156 frame
= selected_frame
;
157 CHECK_LIVE_FRAME (frame
);
159 if (! FRAME_MAC_P (f
))
160 error ("Non-Mac frame used");
164 /* Let the user specify a display with a frame.
165 nil stands for the selected frame--or, if that is not a mac frame,
166 the first display on the list. */
168 struct mac_display_info
*
169 check_x_display_info (frame
)
172 struct mac_display_info
*dpyinfo
= NULL
;
176 struct frame
*sf
= XFRAME (selected_frame
);
178 if (FRAME_MAC_P (sf
) && FRAME_LIVE_P (sf
))
179 dpyinfo
= FRAME_MAC_DISPLAY_INFO (sf
);
180 else if (x_display_list
!= 0)
181 dpyinfo
= x_display_list
;
183 error ("Mac native windows are not in use or not initialized");
185 else if (STRINGP (frame
))
186 dpyinfo
= x_display_info_for_name (frame
);
189 FRAME_PTR f
= check_x_frame (frame
);
190 dpyinfo
= FRAME_MAC_DISPLAY_INFO (f
);
198 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
199 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
201 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
202 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
203 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
204 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
205 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
206 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
207 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
208 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
209 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
210 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
211 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
212 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
214 extern void mac_get_window_bounds
P_ ((struct frame
*, Rect
*, Rect
*));
218 /* Store the screen positions of frame F into XPTR and YPTR.
219 These are the positions of the containing window manager window,
220 not Emacs's own window. */
223 x_real_positions (f
, xptr
, yptr
)
229 mac_get_window_bounds (f
, &inner
, &outer
);
231 f
->x_pixels_diff
= inner
.left
- outer
.left
;
232 f
->y_pixels_diff
= inner
.top
- outer
.top
;
239 /* The default colors for the Mac color map */
240 typedef struct colormap_t
246 colormap_t mac_color_map
[] =
248 { RGB_TO_ULONG(255, 250, 250), "snow" },
249 { RGB_TO_ULONG(248, 248, 255), "ghost white" },
250 { RGB_TO_ULONG(248, 248, 255), "GhostWhite" },
251 { RGB_TO_ULONG(245, 245, 245), "white smoke" },
252 { RGB_TO_ULONG(245, 245, 245), "WhiteSmoke" },
253 { RGB_TO_ULONG(220, 220, 220), "gainsboro" },
254 { RGB_TO_ULONG(255, 250, 240), "floral white" },
255 { RGB_TO_ULONG(255, 250, 240), "FloralWhite" },
256 { RGB_TO_ULONG(253, 245, 230), "old lace" },
257 { RGB_TO_ULONG(253, 245, 230), "OldLace" },
258 { RGB_TO_ULONG(250, 240, 230), "linen" },
259 { RGB_TO_ULONG(250, 235, 215), "antique white" },
260 { RGB_TO_ULONG(250, 235, 215), "AntiqueWhite" },
261 { RGB_TO_ULONG(255, 239, 213), "papaya whip" },
262 { RGB_TO_ULONG(255, 239, 213), "PapayaWhip" },
263 { RGB_TO_ULONG(255, 235, 205), "blanched almond" },
264 { RGB_TO_ULONG(255, 235, 205), "BlanchedAlmond" },
265 { RGB_TO_ULONG(255, 228, 196), "bisque" },
266 { RGB_TO_ULONG(255, 218, 185), "peach puff" },
267 { RGB_TO_ULONG(255, 218, 185), "PeachPuff" },
268 { RGB_TO_ULONG(255, 222, 173), "navajo white" },
269 { RGB_TO_ULONG(255, 222, 173), "NavajoWhite" },
270 { RGB_TO_ULONG(255, 228, 181), "moccasin" },
271 { RGB_TO_ULONG(255, 248, 220), "cornsilk" },
272 { RGB_TO_ULONG(255, 255, 240), "ivory" },
273 { RGB_TO_ULONG(255, 250, 205), "lemon chiffon" },
274 { RGB_TO_ULONG(255, 250, 205), "LemonChiffon" },
275 { RGB_TO_ULONG(255, 245, 238), "seashell" },
276 { RGB_TO_ULONG(240, 255, 240), "honeydew" },
277 { RGB_TO_ULONG(245, 255, 250), "mint cream" },
278 { RGB_TO_ULONG(245, 255, 250), "MintCream" },
279 { RGB_TO_ULONG(240, 255, 255), "azure" },
280 { RGB_TO_ULONG(240, 248, 255), "alice blue" },
281 { RGB_TO_ULONG(240, 248, 255), "AliceBlue" },
282 { RGB_TO_ULONG(230, 230, 250), "lavender" },
283 { RGB_TO_ULONG(255, 240, 245), "lavender blush" },
284 { RGB_TO_ULONG(255, 240, 245), "LavenderBlush" },
285 { RGB_TO_ULONG(255, 228, 225), "misty rose" },
286 { RGB_TO_ULONG(255, 228, 225), "MistyRose" },
287 { RGB_TO_ULONG(255, 255, 255), "white" },
288 { RGB_TO_ULONG(0 , 0 , 0 ), "black" },
289 { RGB_TO_ULONG(47 , 79 , 79 ), "dark slate gray" },
290 { RGB_TO_ULONG(47 , 79 , 79 ), "DarkSlateGray" },
291 { RGB_TO_ULONG(47 , 79 , 79 ), "dark slate grey" },
292 { RGB_TO_ULONG(47 , 79 , 79 ), "DarkSlateGrey" },
293 { RGB_TO_ULONG(105, 105, 105), "dim gray" },
294 { RGB_TO_ULONG(105, 105, 105), "DimGray" },
295 { RGB_TO_ULONG(105, 105, 105), "dim grey" },
296 { RGB_TO_ULONG(105, 105, 105), "DimGrey" },
297 { RGB_TO_ULONG(112, 128, 144), "slate gray" },
298 { RGB_TO_ULONG(112, 128, 144), "SlateGray" },
299 { RGB_TO_ULONG(112, 128, 144), "slate grey" },
300 { RGB_TO_ULONG(112, 128, 144), "SlateGrey" },
301 { RGB_TO_ULONG(119, 136, 153), "light slate gray" },
302 { RGB_TO_ULONG(119, 136, 153), "LightSlateGray" },
303 { RGB_TO_ULONG(119, 136, 153), "light slate grey" },
304 { RGB_TO_ULONG(119, 136, 153), "LightSlateGrey" },
305 { RGB_TO_ULONG(190, 190, 190), "gray" },
306 { RGB_TO_ULONG(190, 190, 190), "grey" },
307 { RGB_TO_ULONG(211, 211, 211), "light grey" },
308 { RGB_TO_ULONG(211, 211, 211), "LightGrey" },
309 { RGB_TO_ULONG(211, 211, 211), "light gray" },
310 { RGB_TO_ULONG(211, 211, 211), "LightGray" },
311 { RGB_TO_ULONG(25 , 25 , 112), "midnight blue" },
312 { RGB_TO_ULONG(25 , 25 , 112), "MidnightBlue" },
313 { RGB_TO_ULONG(0 , 0 , 128), "navy" },
314 { RGB_TO_ULONG(0 , 0 , 128), "navy blue" },
315 { RGB_TO_ULONG(0 , 0 , 128), "NavyBlue" },
316 { RGB_TO_ULONG(100, 149, 237), "cornflower blue" },
317 { RGB_TO_ULONG(100, 149, 237), "CornflowerBlue" },
318 { RGB_TO_ULONG(72 , 61 , 139), "dark slate blue" },
319 { RGB_TO_ULONG(72 , 61 , 139), "DarkSlateBlue" },
320 { RGB_TO_ULONG(106, 90 , 205), "slate blue" },
321 { RGB_TO_ULONG(106, 90 , 205), "SlateBlue" },
322 { RGB_TO_ULONG(123, 104, 238), "medium slate blue" },
323 { RGB_TO_ULONG(123, 104, 238), "MediumSlateBlue" },
324 { RGB_TO_ULONG(132, 112, 255), "light slate blue" },
325 { RGB_TO_ULONG(132, 112, 255), "LightSlateBlue" },
326 { RGB_TO_ULONG(0 , 0 , 205), "medium blue" },
327 { RGB_TO_ULONG(0 , 0 , 205), "MediumBlue" },
328 { RGB_TO_ULONG(65 , 105, 225), "royal blue" },
329 { RGB_TO_ULONG(65 , 105, 225), "RoyalBlue" },
330 { RGB_TO_ULONG(0 , 0 , 255), "blue" },
331 { RGB_TO_ULONG(30 , 144, 255), "dodger blue" },
332 { RGB_TO_ULONG(30 , 144, 255), "DodgerBlue" },
333 { RGB_TO_ULONG(0 , 191, 255), "deep sky blue" },
334 { RGB_TO_ULONG(0 , 191, 255), "DeepSkyBlue" },
335 { RGB_TO_ULONG(135, 206, 235), "sky blue" },
336 { RGB_TO_ULONG(135, 206, 235), "SkyBlue" },
337 { RGB_TO_ULONG(135, 206, 250), "light sky blue" },
338 { RGB_TO_ULONG(135, 206, 250), "LightSkyBlue" },
339 { RGB_TO_ULONG(70 , 130, 180), "steel blue" },
340 { RGB_TO_ULONG(70 , 130, 180), "SteelBlue" },
341 { RGB_TO_ULONG(176, 196, 222), "light steel blue" },
342 { RGB_TO_ULONG(176, 196, 222), "LightSteelBlue" },
343 { RGB_TO_ULONG(173, 216, 230), "light blue" },
344 { RGB_TO_ULONG(173, 216, 230), "LightBlue" },
345 { RGB_TO_ULONG(176, 224, 230), "powder blue" },
346 { RGB_TO_ULONG(176, 224, 230), "PowderBlue" },
347 { RGB_TO_ULONG(175, 238, 238), "pale turquoise" },
348 { RGB_TO_ULONG(175, 238, 238), "PaleTurquoise" },
349 { RGB_TO_ULONG(0 , 206, 209), "dark turquoise" },
350 { RGB_TO_ULONG(0 , 206, 209), "DarkTurquoise" },
351 { RGB_TO_ULONG(72 , 209, 204), "medium turquoise" },
352 { RGB_TO_ULONG(72 , 209, 204), "MediumTurquoise" },
353 { RGB_TO_ULONG(64 , 224, 208), "turquoise" },
354 { RGB_TO_ULONG(0 , 255, 255), "cyan" },
355 { RGB_TO_ULONG(224, 255, 255), "light cyan" },
356 { RGB_TO_ULONG(224, 255, 255), "LightCyan" },
357 { RGB_TO_ULONG(95 , 158, 160), "cadet blue" },
358 { RGB_TO_ULONG(95 , 158, 160), "CadetBlue" },
359 { RGB_TO_ULONG(102, 205, 170), "medium aquamarine" },
360 { RGB_TO_ULONG(102, 205, 170), "MediumAquamarine" },
361 { RGB_TO_ULONG(127, 255, 212), "aquamarine" },
362 { RGB_TO_ULONG(0 , 100, 0 ), "dark green" },
363 { RGB_TO_ULONG(0 , 100, 0 ), "DarkGreen" },
364 { RGB_TO_ULONG(85 , 107, 47 ), "dark olive green" },
365 { RGB_TO_ULONG(85 , 107, 47 ), "DarkOliveGreen" },
366 { RGB_TO_ULONG(143, 188, 143), "dark sea green" },
367 { RGB_TO_ULONG(143, 188, 143), "DarkSeaGreen" },
368 { RGB_TO_ULONG(46 , 139, 87 ), "sea green" },
369 { RGB_TO_ULONG(46 , 139, 87 ), "SeaGreen" },
370 { RGB_TO_ULONG(60 , 179, 113), "medium sea green" },
371 { RGB_TO_ULONG(60 , 179, 113), "MediumSeaGreen" },
372 { RGB_TO_ULONG(32 , 178, 170), "light sea green" },
373 { RGB_TO_ULONG(32 , 178, 170), "LightSeaGreen" },
374 { RGB_TO_ULONG(152, 251, 152), "pale green" },
375 { RGB_TO_ULONG(152, 251, 152), "PaleGreen" },
376 { RGB_TO_ULONG(0 , 255, 127), "spring green" },
377 { RGB_TO_ULONG(0 , 255, 127), "SpringGreen" },
378 { RGB_TO_ULONG(124, 252, 0 ), "lawn green" },
379 { RGB_TO_ULONG(124, 252, 0 ), "LawnGreen" },
380 { RGB_TO_ULONG(0 , 255, 0 ), "green" },
381 { RGB_TO_ULONG(127, 255, 0 ), "chartreuse" },
382 { RGB_TO_ULONG(0 , 250, 154), "medium spring green" },
383 { RGB_TO_ULONG(0 , 250, 154), "MediumSpringGreen" },
384 { RGB_TO_ULONG(173, 255, 47 ), "green yellow" },
385 { RGB_TO_ULONG(173, 255, 47 ), "GreenYellow" },
386 { RGB_TO_ULONG(50 , 205, 50 ), "lime green" },
387 { RGB_TO_ULONG(50 , 205, 50 ), "LimeGreen" },
388 { RGB_TO_ULONG(154, 205, 50 ), "yellow green" },
389 { RGB_TO_ULONG(154, 205, 50 ), "YellowGreen" },
390 { RGB_TO_ULONG(34 , 139, 34 ), "forest green" },
391 { RGB_TO_ULONG(34 , 139, 34 ), "ForestGreen" },
392 { RGB_TO_ULONG(107, 142, 35 ), "olive drab" },
393 { RGB_TO_ULONG(107, 142, 35 ), "OliveDrab" },
394 { RGB_TO_ULONG(189, 183, 107), "dark khaki" },
395 { RGB_TO_ULONG(189, 183, 107), "DarkKhaki" },
396 { RGB_TO_ULONG(240, 230, 140), "khaki" },
397 { RGB_TO_ULONG(238, 232, 170), "pale goldenrod" },
398 { RGB_TO_ULONG(238, 232, 170), "PaleGoldenrod" },
399 { RGB_TO_ULONG(250, 250, 210), "light goldenrod yellow" },
400 { RGB_TO_ULONG(250, 250, 210), "LightGoldenrodYellow" },
401 { RGB_TO_ULONG(255, 255, 224), "light yellow" },
402 { RGB_TO_ULONG(255, 255, 224), "LightYellow" },
403 { RGB_TO_ULONG(255, 255, 0 ), "yellow" },
404 { RGB_TO_ULONG(255, 215, 0 ), "gold" },
405 { RGB_TO_ULONG(238, 221, 130), "light goldenrod" },
406 { RGB_TO_ULONG(238, 221, 130), "LightGoldenrod" },
407 { RGB_TO_ULONG(218, 165, 32 ), "goldenrod" },
408 { RGB_TO_ULONG(184, 134, 11 ), "dark goldenrod" },
409 { RGB_TO_ULONG(184, 134, 11 ), "DarkGoldenrod" },
410 { RGB_TO_ULONG(188, 143, 143), "rosy brown" },
411 { RGB_TO_ULONG(188, 143, 143), "RosyBrown" },
412 { RGB_TO_ULONG(205, 92 , 92 ), "indian red" },
413 { RGB_TO_ULONG(205, 92 , 92 ), "IndianRed" },
414 { RGB_TO_ULONG(139, 69 , 19 ), "saddle brown" },
415 { RGB_TO_ULONG(139, 69 , 19 ), "SaddleBrown" },
416 { RGB_TO_ULONG(160, 82 , 45 ), "sienna" },
417 { RGB_TO_ULONG(205, 133, 63 ), "peru" },
418 { RGB_TO_ULONG(222, 184, 135), "burlywood" },
419 { RGB_TO_ULONG(245, 245, 220), "beige" },
420 { RGB_TO_ULONG(245, 222, 179), "wheat" },
421 { RGB_TO_ULONG(244, 164, 96 ), "sandy brown" },
422 { RGB_TO_ULONG(244, 164, 96 ), "SandyBrown" },
423 { RGB_TO_ULONG(210, 180, 140), "tan" },
424 { RGB_TO_ULONG(210, 105, 30 ), "chocolate" },
425 { RGB_TO_ULONG(178, 34 , 34 ), "firebrick" },
426 { RGB_TO_ULONG(165, 42 , 42 ), "brown" },
427 { RGB_TO_ULONG(233, 150, 122), "dark salmon" },
428 { RGB_TO_ULONG(233, 150, 122), "DarkSalmon" },
429 { RGB_TO_ULONG(250, 128, 114), "salmon" },
430 { RGB_TO_ULONG(255, 160, 122), "light salmon" },
431 { RGB_TO_ULONG(255, 160, 122), "LightSalmon" },
432 { RGB_TO_ULONG(255, 165, 0 ), "orange" },
433 { RGB_TO_ULONG(255, 140, 0 ), "dark orange" },
434 { RGB_TO_ULONG(255, 140, 0 ), "DarkOrange" },
435 { RGB_TO_ULONG(255, 127, 80 ), "coral" },
436 { RGB_TO_ULONG(240, 128, 128), "light coral" },
437 { RGB_TO_ULONG(240, 128, 128), "LightCoral" },
438 { RGB_TO_ULONG(255, 99 , 71 ), "tomato" },
439 { RGB_TO_ULONG(255, 69 , 0 ), "orange red" },
440 { RGB_TO_ULONG(255, 69 , 0 ), "OrangeRed" },
441 { RGB_TO_ULONG(255, 0 , 0 ), "red" },
442 { RGB_TO_ULONG(255, 105, 180), "hot pink" },
443 { RGB_TO_ULONG(255, 105, 180), "HotPink" },
444 { RGB_TO_ULONG(255, 20 , 147), "deep pink" },
445 { RGB_TO_ULONG(255, 20 , 147), "DeepPink" },
446 { RGB_TO_ULONG(255, 192, 203), "pink" },
447 { RGB_TO_ULONG(255, 182, 193), "light pink" },
448 { RGB_TO_ULONG(255, 182, 193), "LightPink" },
449 { RGB_TO_ULONG(219, 112, 147), "pale violet red" },
450 { RGB_TO_ULONG(219, 112, 147), "PaleVioletRed" },
451 { RGB_TO_ULONG(176, 48 , 96 ), "maroon" },
452 { RGB_TO_ULONG(199, 21 , 133), "medium violet red" },
453 { RGB_TO_ULONG(199, 21 , 133), "MediumVioletRed" },
454 { RGB_TO_ULONG(208, 32 , 144), "violet red" },
455 { RGB_TO_ULONG(208, 32 , 144), "VioletRed" },
456 { RGB_TO_ULONG(255, 0 , 255), "magenta" },
457 { RGB_TO_ULONG(238, 130, 238), "violet" },
458 { RGB_TO_ULONG(221, 160, 221), "plum" },
459 { RGB_TO_ULONG(218, 112, 214), "orchid" },
460 { RGB_TO_ULONG(186, 85 , 211), "medium orchid" },
461 { RGB_TO_ULONG(186, 85 , 211), "MediumOrchid" },
462 { RGB_TO_ULONG(153, 50 , 204), "dark orchid" },
463 { RGB_TO_ULONG(153, 50 , 204), "DarkOrchid" },
464 { RGB_TO_ULONG(148, 0 , 211), "dark violet" },
465 { RGB_TO_ULONG(148, 0 , 211), "DarkViolet" },
466 { RGB_TO_ULONG(138, 43 , 226), "blue violet" },
467 { RGB_TO_ULONG(138, 43 , 226), "BlueViolet" },
468 { RGB_TO_ULONG(160, 32 , 240), "purple" },
469 { RGB_TO_ULONG(147, 112, 219), "medium purple" },
470 { RGB_TO_ULONG(147, 112, 219), "MediumPurple" },
471 { RGB_TO_ULONG(216, 191, 216), "thistle" },
472 { RGB_TO_ULONG(255, 250, 250), "snow1" },
473 { RGB_TO_ULONG(238, 233, 233), "snow2" },
474 { RGB_TO_ULONG(205, 201, 201), "snow3" },
475 { RGB_TO_ULONG(139, 137, 137), "snow4" },
476 { RGB_TO_ULONG(255, 245, 238), "seashell1" },
477 { RGB_TO_ULONG(238, 229, 222), "seashell2" },
478 { RGB_TO_ULONG(205, 197, 191), "seashell3" },
479 { RGB_TO_ULONG(139, 134, 130), "seashell4" },
480 { RGB_TO_ULONG(255, 239, 219), "AntiqueWhite1" },
481 { RGB_TO_ULONG(238, 223, 204), "AntiqueWhite2" },
482 { RGB_TO_ULONG(205, 192, 176), "AntiqueWhite3" },
483 { RGB_TO_ULONG(139, 131, 120), "AntiqueWhite4" },
484 { RGB_TO_ULONG(255, 228, 196), "bisque1" },
485 { RGB_TO_ULONG(238, 213, 183), "bisque2" },
486 { RGB_TO_ULONG(205, 183, 158), "bisque3" },
487 { RGB_TO_ULONG(139, 125, 107), "bisque4" },
488 { RGB_TO_ULONG(255, 218, 185), "PeachPuff1" },
489 { RGB_TO_ULONG(238, 203, 173), "PeachPuff2" },
490 { RGB_TO_ULONG(205, 175, 149), "PeachPuff3" },
491 { RGB_TO_ULONG(139, 119, 101), "PeachPuff4" },
492 { RGB_TO_ULONG(255, 222, 173), "NavajoWhite1" },
493 { RGB_TO_ULONG(238, 207, 161), "NavajoWhite2" },
494 { RGB_TO_ULONG(205, 179, 139), "NavajoWhite3" },
495 { RGB_TO_ULONG(139, 121, 94), "NavajoWhite4" },
496 { RGB_TO_ULONG(255, 250, 205), "LemonChiffon1" },
497 { RGB_TO_ULONG(238, 233, 191), "LemonChiffon2" },
498 { RGB_TO_ULONG(205, 201, 165), "LemonChiffon3" },
499 { RGB_TO_ULONG(139, 137, 112), "LemonChiffon4" },
500 { RGB_TO_ULONG(255, 248, 220), "cornsilk1" },
501 { RGB_TO_ULONG(238, 232, 205), "cornsilk2" },
502 { RGB_TO_ULONG(205, 200, 177), "cornsilk3" },
503 { RGB_TO_ULONG(139, 136, 120), "cornsilk4" },
504 { RGB_TO_ULONG(255, 255, 240), "ivory1" },
505 { RGB_TO_ULONG(238, 238, 224), "ivory2" },
506 { RGB_TO_ULONG(205, 205, 193), "ivory3" },
507 { RGB_TO_ULONG(139, 139, 131), "ivory4" },
508 { RGB_TO_ULONG(240, 255, 240), "honeydew1" },
509 { RGB_TO_ULONG(224, 238, 224), "honeydew2" },
510 { RGB_TO_ULONG(193, 205, 193), "honeydew3" },
511 { RGB_TO_ULONG(131, 139, 131), "honeydew4" },
512 { RGB_TO_ULONG(255, 240, 245), "LavenderBlush1" },
513 { RGB_TO_ULONG(238, 224, 229), "LavenderBlush2" },
514 { RGB_TO_ULONG(205, 193, 197), "LavenderBlush3" },
515 { RGB_TO_ULONG(139, 131, 134), "LavenderBlush4" },
516 { RGB_TO_ULONG(255, 228, 225), "MistyRose1" },
517 { RGB_TO_ULONG(238, 213, 210), "MistyRose2" },
518 { RGB_TO_ULONG(205, 183, 181), "MistyRose3" },
519 { RGB_TO_ULONG(139, 125, 123), "MistyRose4" },
520 { RGB_TO_ULONG(240, 255, 255), "azure1" },
521 { RGB_TO_ULONG(224, 238, 238), "azure2" },
522 { RGB_TO_ULONG(193, 205, 205), "azure3" },
523 { RGB_TO_ULONG(131, 139, 139), "azure4" },
524 { RGB_TO_ULONG(131, 111, 255), "SlateBlue1" },
525 { RGB_TO_ULONG(122, 103, 238), "SlateBlue2" },
526 { RGB_TO_ULONG(105, 89 , 205), "SlateBlue3" },
527 { RGB_TO_ULONG(71 , 60 , 139), "SlateBlue4" },
528 { RGB_TO_ULONG(72 , 118, 255), "RoyalBlue1" },
529 { RGB_TO_ULONG(67 , 110, 238), "RoyalBlue2" },
530 { RGB_TO_ULONG(58 , 95 , 205), "RoyalBlue3" },
531 { RGB_TO_ULONG(39 , 64 , 139), "RoyalBlue4" },
532 { RGB_TO_ULONG(0 , 0 , 255), "blue1" },
533 { RGB_TO_ULONG(0 , 0 , 238), "blue2" },
534 { RGB_TO_ULONG(0 , 0 , 205), "blue3" },
535 { RGB_TO_ULONG(0 , 0 , 139), "blue4" },
536 { RGB_TO_ULONG(30 , 144, 255), "DodgerBlue1" },
537 { RGB_TO_ULONG(28 , 134, 238), "DodgerBlue2" },
538 { RGB_TO_ULONG(24 , 116, 205), "DodgerBlue3" },
539 { RGB_TO_ULONG(16 , 78 , 139), "DodgerBlue4" },
540 { RGB_TO_ULONG(99 , 184, 255), "SteelBlue1" },
541 { RGB_TO_ULONG(92 , 172, 238), "SteelBlue2" },
542 { RGB_TO_ULONG(79 , 148, 205), "SteelBlue3" },
543 { RGB_TO_ULONG(54 , 100, 139), "SteelBlue4" },
544 { RGB_TO_ULONG(0 , 191, 255), "DeepSkyBlue1" },
545 { RGB_TO_ULONG(0 , 178, 238), "DeepSkyBlue2" },
546 { RGB_TO_ULONG(0 , 154, 205), "DeepSkyBlue3" },
547 { RGB_TO_ULONG(0 , 104, 139), "DeepSkyBlue4" },
548 { RGB_TO_ULONG(135, 206, 255), "SkyBlue1" },
549 { RGB_TO_ULONG(126, 192, 238), "SkyBlue2" },
550 { RGB_TO_ULONG(108, 166, 205), "SkyBlue3" },
551 { RGB_TO_ULONG(74 , 112, 139), "SkyBlue4" },
552 { RGB_TO_ULONG(176, 226, 255), "LightSkyBlue1" },
553 { RGB_TO_ULONG(164, 211, 238), "LightSkyBlue2" },
554 { RGB_TO_ULONG(141, 182, 205), "LightSkyBlue3" },
555 { RGB_TO_ULONG(96 , 123, 139), "LightSkyBlue4" },
556 { RGB_TO_ULONG(198, 226, 255), "SlateGray1" },
557 { RGB_TO_ULONG(185, 211, 238), "SlateGray2" },
558 { RGB_TO_ULONG(159, 182, 205), "SlateGray3" },
559 { RGB_TO_ULONG(108, 123, 139), "SlateGray4" },
560 { RGB_TO_ULONG(202, 225, 255), "LightSteelBlue1" },
561 { RGB_TO_ULONG(188, 210, 238), "LightSteelBlue2" },
562 { RGB_TO_ULONG(162, 181, 205), "LightSteelBlue3" },
563 { RGB_TO_ULONG(110, 123, 139), "LightSteelBlue4" },
564 { RGB_TO_ULONG(191, 239, 255), "LightBlue1" },
565 { RGB_TO_ULONG(178, 223, 238), "LightBlue2" },
566 { RGB_TO_ULONG(154, 192, 205), "LightBlue3" },
567 { RGB_TO_ULONG(104, 131, 139), "LightBlue4" },
568 { RGB_TO_ULONG(224, 255, 255), "LightCyan1" },
569 { RGB_TO_ULONG(209, 238, 238), "LightCyan2" },
570 { RGB_TO_ULONG(180, 205, 205), "LightCyan3" },
571 { RGB_TO_ULONG(122, 139, 139), "LightCyan4" },
572 { RGB_TO_ULONG(187, 255, 255), "PaleTurquoise1" },
573 { RGB_TO_ULONG(174, 238, 238), "PaleTurquoise2" },
574 { RGB_TO_ULONG(150, 205, 205), "PaleTurquoise3" },
575 { RGB_TO_ULONG(102, 139, 139), "PaleTurquoise4" },
576 { RGB_TO_ULONG(152, 245, 255), "CadetBlue1" },
577 { RGB_TO_ULONG(142, 229, 238), "CadetBlue2" },
578 { RGB_TO_ULONG(122, 197, 205), "CadetBlue3" },
579 { RGB_TO_ULONG(83 , 134, 139), "CadetBlue4" },
580 { RGB_TO_ULONG(0 , 245, 255), "turquoise1" },
581 { RGB_TO_ULONG(0 , 229, 238), "turquoise2" },
582 { RGB_TO_ULONG(0 , 197, 205), "turquoise3" },
583 { RGB_TO_ULONG(0 , 134, 139), "turquoise4" },
584 { RGB_TO_ULONG(0 , 255, 255), "cyan1" },
585 { RGB_TO_ULONG(0 , 238, 238), "cyan2" },
586 { RGB_TO_ULONG(0 , 205, 205), "cyan3" },
587 { RGB_TO_ULONG(0 , 139, 139), "cyan4" },
588 { RGB_TO_ULONG(151, 255, 255), "DarkSlateGray1" },
589 { RGB_TO_ULONG(141, 238, 238), "DarkSlateGray2" },
590 { RGB_TO_ULONG(121, 205, 205), "DarkSlateGray3" },
591 { RGB_TO_ULONG(82 , 139, 139), "DarkSlateGray4" },
592 { RGB_TO_ULONG(127, 255, 212), "aquamarine1" },
593 { RGB_TO_ULONG(118, 238, 198), "aquamarine2" },
594 { RGB_TO_ULONG(102, 205, 170), "aquamarine3" },
595 { RGB_TO_ULONG(69 , 139, 116), "aquamarine4" },
596 { RGB_TO_ULONG(193, 255, 193), "DarkSeaGreen1" },
597 { RGB_TO_ULONG(180, 238, 180), "DarkSeaGreen2" },
598 { RGB_TO_ULONG(155, 205, 155), "DarkSeaGreen3" },
599 { RGB_TO_ULONG(105, 139, 105), "DarkSeaGreen4" },
600 { RGB_TO_ULONG(84 , 255, 159), "SeaGreen1" },
601 { RGB_TO_ULONG(78 , 238, 148), "SeaGreen2" },
602 { RGB_TO_ULONG(67 , 205, 128), "SeaGreen3" },
603 { RGB_TO_ULONG(46 , 139, 87 ), "SeaGreen4" },
604 { RGB_TO_ULONG(154, 255, 154), "PaleGreen1" },
605 { RGB_TO_ULONG(144, 238, 144), "PaleGreen2" },
606 { RGB_TO_ULONG(124, 205, 124), "PaleGreen3" },
607 { RGB_TO_ULONG(84 , 139, 84 ), "PaleGreen4" },
608 { RGB_TO_ULONG(0 , 255, 127), "SpringGreen1" },
609 { RGB_TO_ULONG(0 , 238, 118), "SpringGreen2" },
610 { RGB_TO_ULONG(0 , 205, 102), "SpringGreen3" },
611 { RGB_TO_ULONG(0 , 139, 69 ), "SpringGreen4" },
612 { RGB_TO_ULONG(0 , 255, 0 ), "green1" },
613 { RGB_TO_ULONG(0 , 238, 0 ), "green2" },
614 { RGB_TO_ULONG(0 , 205, 0 ), "green3" },
615 { RGB_TO_ULONG(0 , 139, 0 ), "green4" },
616 { RGB_TO_ULONG(127, 255, 0 ), "chartreuse1" },
617 { RGB_TO_ULONG(118, 238, 0 ), "chartreuse2" },
618 { RGB_TO_ULONG(102, 205, 0 ), "chartreuse3" },
619 { RGB_TO_ULONG(69 , 139, 0 ), "chartreuse4" },
620 { RGB_TO_ULONG(192, 255, 62 ), "OliveDrab1" },
621 { RGB_TO_ULONG(179, 238, 58 ), "OliveDrab2" },
622 { RGB_TO_ULONG(154, 205, 50 ), "OliveDrab3" },
623 { RGB_TO_ULONG(105, 139, 34 ), "OliveDrab4" },
624 { RGB_TO_ULONG(202, 255, 112), "DarkOliveGreen1" },
625 { RGB_TO_ULONG(188, 238, 104), "DarkOliveGreen2" },
626 { RGB_TO_ULONG(162, 205, 90 ), "DarkOliveGreen3" },
627 { RGB_TO_ULONG(110, 139, 61 ), "DarkOliveGreen4" },
628 { RGB_TO_ULONG(255, 246, 143), "khaki1" },
629 { RGB_TO_ULONG(238, 230, 133), "khaki2" },
630 { RGB_TO_ULONG(205, 198, 115), "khaki3" },
631 { RGB_TO_ULONG(139, 134, 78 ), "khaki4" },
632 { RGB_TO_ULONG(255, 236, 139), "LightGoldenrod1" },
633 { RGB_TO_ULONG(238, 220, 130), "LightGoldenrod2" },
634 { RGB_TO_ULONG(205, 190, 112), "LightGoldenrod3" },
635 { RGB_TO_ULONG(139, 129, 76 ), "LightGoldenrod4" },
636 { RGB_TO_ULONG(255, 255, 224), "LightYellow1" },
637 { RGB_TO_ULONG(238, 238, 209), "LightYellow2" },
638 { RGB_TO_ULONG(205, 205, 180), "LightYellow3" },
639 { RGB_TO_ULONG(139, 139, 122), "LightYellow4" },
640 { RGB_TO_ULONG(255, 255, 0 ), "yellow1" },
641 { RGB_TO_ULONG(238, 238, 0 ), "yellow2" },
642 { RGB_TO_ULONG(205, 205, 0 ), "yellow3" },
643 { RGB_TO_ULONG(139, 139, 0 ), "yellow4" },
644 { RGB_TO_ULONG(255, 215, 0 ), "gold1" },
645 { RGB_TO_ULONG(238, 201, 0 ), "gold2" },
646 { RGB_TO_ULONG(205, 173, 0 ), "gold3" },
647 { RGB_TO_ULONG(139, 117, 0 ), "gold4" },
648 { RGB_TO_ULONG(255, 193, 37 ), "goldenrod1" },
649 { RGB_TO_ULONG(238, 180, 34 ), "goldenrod2" },
650 { RGB_TO_ULONG(205, 155, 29 ), "goldenrod3" },
651 { RGB_TO_ULONG(139, 105, 20 ), "goldenrod4" },
652 { RGB_TO_ULONG(255, 185, 15 ), "DarkGoldenrod1" },
653 { RGB_TO_ULONG(238, 173, 14 ), "DarkGoldenrod2" },
654 { RGB_TO_ULONG(205, 149, 12 ), "DarkGoldenrod3" },
655 { RGB_TO_ULONG(139, 101, 8 ), "DarkGoldenrod4" },
656 { RGB_TO_ULONG(255, 193, 193), "RosyBrown1" },
657 { RGB_TO_ULONG(238, 180, 180), "RosyBrown2" },
658 { RGB_TO_ULONG(205, 155, 155), "RosyBrown3" },
659 { RGB_TO_ULONG(139, 105, 105), "RosyBrown4" },
660 { RGB_TO_ULONG(255, 106, 106), "IndianRed1" },
661 { RGB_TO_ULONG(238, 99 , 99 ), "IndianRed2" },
662 { RGB_TO_ULONG(205, 85 , 85 ), "IndianRed3" },
663 { RGB_TO_ULONG(139, 58 , 58 ), "IndianRed4" },
664 { RGB_TO_ULONG(255, 130, 71 ), "sienna1" },
665 { RGB_TO_ULONG(238, 121, 66 ), "sienna2" },
666 { RGB_TO_ULONG(205, 104, 57 ), "sienna3" },
667 { RGB_TO_ULONG(139, 71 , 38 ), "sienna4" },
668 { RGB_TO_ULONG(255, 211, 155), "burlywood1" },
669 { RGB_TO_ULONG(238, 197, 145), "burlywood2" },
670 { RGB_TO_ULONG(205, 170, 125), "burlywood3" },
671 { RGB_TO_ULONG(139, 115, 85 ), "burlywood4" },
672 { RGB_TO_ULONG(255, 231, 186), "wheat1" },
673 { RGB_TO_ULONG(238, 216, 174), "wheat2" },
674 { RGB_TO_ULONG(205, 186, 150), "wheat3" },
675 { RGB_TO_ULONG(139, 126, 102), "wheat4" },
676 { RGB_TO_ULONG(255, 165, 79 ), "tan1" },
677 { RGB_TO_ULONG(238, 154, 73 ), "tan2" },
678 { RGB_TO_ULONG(205, 133, 63 ), "tan3" },
679 { RGB_TO_ULONG(139, 90 , 43 ), "tan4" },
680 { RGB_TO_ULONG(255, 127, 36 ), "chocolate1" },
681 { RGB_TO_ULONG(238, 118, 33 ), "chocolate2" },
682 { RGB_TO_ULONG(205, 102, 29 ), "chocolate3" },
683 { RGB_TO_ULONG(139, 69 , 19 ), "chocolate4" },
684 { RGB_TO_ULONG(255, 48 , 48 ), "firebrick1" },
685 { RGB_TO_ULONG(238, 44 , 44 ), "firebrick2" },
686 { RGB_TO_ULONG(205, 38 , 38 ), "firebrick3" },
687 { RGB_TO_ULONG(139, 26 , 26 ), "firebrick4" },
688 { RGB_TO_ULONG(255, 64 , 64 ), "brown1" },
689 { RGB_TO_ULONG(238, 59 , 59 ), "brown2" },
690 { RGB_TO_ULONG(205, 51 , 51 ), "brown3" },
691 { RGB_TO_ULONG(139, 35 , 35 ), "brown4" },
692 { RGB_TO_ULONG(255, 140, 105), "salmon1" },
693 { RGB_TO_ULONG(238, 130, 98 ), "salmon2" },
694 { RGB_TO_ULONG(205, 112, 84 ), "salmon3" },
695 { RGB_TO_ULONG(139, 76 , 57 ), "salmon4" },
696 { RGB_TO_ULONG(255, 160, 122), "LightSalmon1" },
697 { RGB_TO_ULONG(238, 149, 114), "LightSalmon2" },
698 { RGB_TO_ULONG(205, 129, 98 ), "LightSalmon3" },
699 { RGB_TO_ULONG(139, 87 , 66 ), "LightSalmon4" },
700 { RGB_TO_ULONG(255, 165, 0 ), "orange1" },
701 { RGB_TO_ULONG(238, 154, 0 ), "orange2" },
702 { RGB_TO_ULONG(205, 133, 0 ), "orange3" },
703 { RGB_TO_ULONG(139, 90 , 0 ), "orange4" },
704 { RGB_TO_ULONG(255, 127, 0 ), "DarkOrange1" },
705 { RGB_TO_ULONG(238, 118, 0 ), "DarkOrange2" },
706 { RGB_TO_ULONG(205, 102, 0 ), "DarkOrange3" },
707 { RGB_TO_ULONG(139, 69 , 0 ), "DarkOrange4" },
708 { RGB_TO_ULONG(255, 114, 86 ), "coral1" },
709 { RGB_TO_ULONG(238, 106, 80 ), "coral2" },
710 { RGB_TO_ULONG(205, 91 , 69 ), "coral3" },
711 { RGB_TO_ULONG(139, 62 , 47 ), "coral4" },
712 { RGB_TO_ULONG(255, 99 , 71 ), "tomato1" },
713 { RGB_TO_ULONG(238, 92 , 66 ), "tomato2" },
714 { RGB_TO_ULONG(205, 79 , 57 ), "tomato3" },
715 { RGB_TO_ULONG(139, 54 , 38 ), "tomato4" },
716 { RGB_TO_ULONG(255, 69 , 0 ), "OrangeRed1" },
717 { RGB_TO_ULONG(238, 64 , 0 ), "OrangeRed2" },
718 { RGB_TO_ULONG(205, 55 , 0 ), "OrangeRed3" },
719 { RGB_TO_ULONG(139, 37 , 0 ), "OrangeRed4" },
720 { RGB_TO_ULONG(255, 0 , 0 ), "red1" },
721 { RGB_TO_ULONG(238, 0 , 0 ), "red2" },
722 { RGB_TO_ULONG(205, 0 , 0 ), "red3" },
723 { RGB_TO_ULONG(139, 0 , 0 ), "red4" },
724 { RGB_TO_ULONG(255, 20 , 147), "DeepPink1" },
725 { RGB_TO_ULONG(238, 18 , 137), "DeepPink2" },
726 { RGB_TO_ULONG(205, 16 , 118), "DeepPink3" },
727 { RGB_TO_ULONG(139, 10 , 80 ), "DeepPink4" },
728 { RGB_TO_ULONG(255, 110, 180), "HotPink1" },
729 { RGB_TO_ULONG(238, 106, 167), "HotPink2" },
730 { RGB_TO_ULONG(205, 96 , 144), "HotPink3" },
731 { RGB_TO_ULONG(139, 58 , 98 ), "HotPink4" },
732 { RGB_TO_ULONG(255, 181, 197), "pink1" },
733 { RGB_TO_ULONG(238, 169, 184), "pink2" },
734 { RGB_TO_ULONG(205, 145, 158), "pink3" },
735 { RGB_TO_ULONG(139, 99 , 108), "pink4" },
736 { RGB_TO_ULONG(255, 174, 185), "LightPink1" },
737 { RGB_TO_ULONG(238, 162, 173), "LightPink2" },
738 { RGB_TO_ULONG(205, 140, 149), "LightPink3" },
739 { RGB_TO_ULONG(139, 95 , 101), "LightPink4" },
740 { RGB_TO_ULONG(255, 130, 171), "PaleVioletRed1" },
741 { RGB_TO_ULONG(238, 121, 159), "PaleVioletRed2" },
742 { RGB_TO_ULONG(205, 104, 137), "PaleVioletRed3" },
743 { RGB_TO_ULONG(139, 71 , 93 ), "PaleVioletRed4" },
744 { RGB_TO_ULONG(255, 52 , 179), "maroon1" },
745 { RGB_TO_ULONG(238, 48 , 167), "maroon2" },
746 { RGB_TO_ULONG(205, 41 , 144), "maroon3" },
747 { RGB_TO_ULONG(139, 28 , 98 ), "maroon4" },
748 { RGB_TO_ULONG(255, 62 , 150), "VioletRed1" },
749 { RGB_TO_ULONG(238, 58 , 140), "VioletRed2" },
750 { RGB_TO_ULONG(205, 50 , 120), "VioletRed3" },
751 { RGB_TO_ULONG(139, 34 , 82 ), "VioletRed4" },
752 { RGB_TO_ULONG(255, 0 , 255), "magenta1" },
753 { RGB_TO_ULONG(238, 0 , 238), "magenta2" },
754 { RGB_TO_ULONG(205, 0 , 205), "magenta3" },
755 { RGB_TO_ULONG(139, 0 , 139), "magenta4" },
756 { RGB_TO_ULONG(255, 131, 250), "orchid1" },
757 { RGB_TO_ULONG(238, 122, 233), "orchid2" },
758 { RGB_TO_ULONG(205, 105, 201), "orchid3" },
759 { RGB_TO_ULONG(139, 71 , 137), "orchid4" },
760 { RGB_TO_ULONG(255, 187, 255), "plum1" },
761 { RGB_TO_ULONG(238, 174, 238), "plum2" },
762 { RGB_TO_ULONG(205, 150, 205), "plum3" },
763 { RGB_TO_ULONG(139, 102, 139), "plum4" },
764 { RGB_TO_ULONG(224, 102, 255), "MediumOrchid1" },
765 { RGB_TO_ULONG(209, 95 , 238), "MediumOrchid2" },
766 { RGB_TO_ULONG(180, 82 , 205), "MediumOrchid3" },
767 { RGB_TO_ULONG(122, 55 , 139), "MediumOrchid4" },
768 { RGB_TO_ULONG(191, 62 , 255), "DarkOrchid1" },
769 { RGB_TO_ULONG(178, 58 , 238), "DarkOrchid2" },
770 { RGB_TO_ULONG(154, 50 , 205), "DarkOrchid3" },
771 { RGB_TO_ULONG(104, 34 , 139), "DarkOrchid4" },
772 { RGB_TO_ULONG(155, 48 , 255), "purple1" },
773 { RGB_TO_ULONG(145, 44 , 238), "purple2" },
774 { RGB_TO_ULONG(125, 38 , 205), "purple3" },
775 { RGB_TO_ULONG(85 , 26 , 139), "purple4" },
776 { RGB_TO_ULONG(171, 130, 255), "MediumPurple1" },
777 { RGB_TO_ULONG(159, 121, 238), "MediumPurple2" },
778 { RGB_TO_ULONG(137, 104, 205), "MediumPurple3" },
779 { RGB_TO_ULONG(93 , 71 , 139), "MediumPurple4" },
780 { RGB_TO_ULONG(255, 225, 255), "thistle1" },
781 { RGB_TO_ULONG(238, 210, 238), "thistle2" },
782 { RGB_TO_ULONG(205, 181, 205), "thistle3" },
783 { RGB_TO_ULONG(139, 123, 139), "thistle4" },
784 { RGB_TO_ULONG(0 , 0 , 0 ), "gray0" },
785 { RGB_TO_ULONG(0 , 0 , 0 ), "grey0" },
786 { RGB_TO_ULONG(3 , 3 , 3 ), "gray1" },
787 { RGB_TO_ULONG(3 , 3 , 3 ), "grey1" },
788 { RGB_TO_ULONG(5 , 5 , 5 ), "gray2" },
789 { RGB_TO_ULONG(5 , 5 , 5 ), "grey2" },
790 { RGB_TO_ULONG(8 , 8 , 8 ), "gray3" },
791 { RGB_TO_ULONG(8 , 8 , 8 ), "grey3" },
792 { RGB_TO_ULONG(10 , 10 , 10 ), "gray4" },
793 { RGB_TO_ULONG(10 , 10 , 10 ), "grey4" },
794 { RGB_TO_ULONG(13 , 13 , 13 ), "gray5" },
795 { RGB_TO_ULONG(13 , 13 , 13 ), "grey5" },
796 { RGB_TO_ULONG(15 , 15 , 15 ), "gray6" },
797 { RGB_TO_ULONG(15 , 15 , 15 ), "grey6" },
798 { RGB_TO_ULONG(18 , 18 , 18 ), "gray7" },
799 { RGB_TO_ULONG(18 , 18 , 18 ), "grey7" },
800 { RGB_TO_ULONG(20 , 20 , 20 ), "gray8" },
801 { RGB_TO_ULONG(20 , 20 , 20 ), "grey8" },
802 { RGB_TO_ULONG(23 , 23 , 23 ), "gray9" },
803 { RGB_TO_ULONG(23 , 23 , 23 ), "grey9" },
804 { RGB_TO_ULONG(26 , 26 , 26 ), "gray10" },
805 { RGB_TO_ULONG(26 , 26 , 26 ), "grey10" },
806 { RGB_TO_ULONG(28 , 28 , 28 ), "gray11" },
807 { RGB_TO_ULONG(28 , 28 , 28 ), "grey11" },
808 { RGB_TO_ULONG(31 , 31 , 31 ), "gray12" },
809 { RGB_TO_ULONG(31 , 31 , 31 ), "grey12" },
810 { RGB_TO_ULONG(33 , 33 , 33 ), "gray13" },
811 { RGB_TO_ULONG(33 , 33 , 33 ), "grey13" },
812 { RGB_TO_ULONG(36 , 36 , 36 ), "gray14" },
813 { RGB_TO_ULONG(36 , 36 , 36 ), "grey14" },
814 { RGB_TO_ULONG(38 , 38 , 38 ), "gray15" },
815 { RGB_TO_ULONG(38 , 38 , 38 ), "grey15" },
816 { RGB_TO_ULONG(41 , 41 , 41 ), "gray16" },
817 { RGB_TO_ULONG(41 , 41 , 41 ), "grey16" },
818 { RGB_TO_ULONG(43 , 43 , 43 ), "gray17" },
819 { RGB_TO_ULONG(43 , 43 , 43 ), "grey17" },
820 { RGB_TO_ULONG(46 , 46 , 46 ), "gray18" },
821 { RGB_TO_ULONG(46 , 46 , 46 ), "grey18" },
822 { RGB_TO_ULONG(48 , 48 , 48 ), "gray19" },
823 { RGB_TO_ULONG(48 , 48 , 48 ), "grey19" },
824 { RGB_TO_ULONG(51 , 51 , 51 ), "gray20" },
825 { RGB_TO_ULONG(51 , 51 , 51 ), "grey20" },
826 { RGB_TO_ULONG(54 , 54 , 54 ), "gray21" },
827 { RGB_TO_ULONG(54 , 54 , 54 ), "grey21" },
828 { RGB_TO_ULONG(56 , 56 , 56 ), "gray22" },
829 { RGB_TO_ULONG(56 , 56 , 56 ), "grey22" },
830 { RGB_TO_ULONG(59 , 59 , 59 ), "gray23" },
831 { RGB_TO_ULONG(59 , 59 , 59 ), "grey23" },
832 { RGB_TO_ULONG(61 , 61 , 61 ), "gray24" },
833 { RGB_TO_ULONG(61 , 61 , 61 ), "grey24" },
834 { RGB_TO_ULONG(64 , 64 , 64 ), "gray25" },
835 { RGB_TO_ULONG(64 , 64 , 64 ), "grey25" },
836 { RGB_TO_ULONG(66 , 66 , 66 ), "gray26" },
837 { RGB_TO_ULONG(66 , 66 , 66 ), "grey26" },
838 { RGB_TO_ULONG(69 , 69 , 69 ), "gray27" },
839 { RGB_TO_ULONG(69 , 69 , 69 ), "grey27" },
840 { RGB_TO_ULONG(71 , 71 , 71 ), "gray28" },
841 { RGB_TO_ULONG(71 , 71 , 71 ), "grey28" },
842 { RGB_TO_ULONG(74 , 74 , 74 ), "gray29" },
843 { RGB_TO_ULONG(74 , 74 , 74 ), "grey29" },
844 { RGB_TO_ULONG(77 , 77 , 77 ), "gray30" },
845 { RGB_TO_ULONG(77 , 77 , 77 ), "grey30" },
846 { RGB_TO_ULONG(79 , 79 , 79 ), "gray31" },
847 { RGB_TO_ULONG(79 , 79 , 79 ), "grey31" },
848 { RGB_TO_ULONG(82 , 82 , 82 ), "gray32" },
849 { RGB_TO_ULONG(82 , 82 , 82 ), "grey32" },
850 { RGB_TO_ULONG(84 , 84 , 84 ), "gray33" },
851 { RGB_TO_ULONG(84 , 84 , 84 ), "grey33" },
852 { RGB_TO_ULONG(87 , 87 , 87 ), "gray34" },
853 { RGB_TO_ULONG(87 , 87 , 87 ), "grey34" },
854 { RGB_TO_ULONG(89 , 89 , 89 ), "gray35" },
855 { RGB_TO_ULONG(89 , 89 , 89 ), "grey35" },
856 { RGB_TO_ULONG(92 , 92 , 92 ), "gray36" },
857 { RGB_TO_ULONG(92 , 92 , 92 ), "grey36" },
858 { RGB_TO_ULONG(94 , 94 , 94 ), "gray37" },
859 { RGB_TO_ULONG(94 , 94 , 94 ), "grey37" },
860 { RGB_TO_ULONG(97 , 97 , 97 ), "gray38" },
861 { RGB_TO_ULONG(97 , 97 , 97 ), "grey38" },
862 { RGB_TO_ULONG(99 , 99 , 99 ), "gray39" },
863 { RGB_TO_ULONG(99 , 99 , 99 ), "grey39" },
864 { RGB_TO_ULONG(102, 102, 102), "gray40" },
865 { RGB_TO_ULONG(102, 102, 102), "grey40" },
866 { RGB_TO_ULONG(105, 105, 105), "gray41" },
867 { RGB_TO_ULONG(105, 105, 105), "grey41" },
868 { RGB_TO_ULONG(107, 107, 107), "gray42" },
869 { RGB_TO_ULONG(107, 107, 107), "grey42" },
870 { RGB_TO_ULONG(110, 110, 110), "gray43" },
871 { RGB_TO_ULONG(110, 110, 110), "grey43" },
872 { RGB_TO_ULONG(112, 112, 112), "gray44" },
873 { RGB_TO_ULONG(112, 112, 112), "grey44" },
874 { RGB_TO_ULONG(115, 115, 115), "gray45" },
875 { RGB_TO_ULONG(115, 115, 115), "grey45" },
876 { RGB_TO_ULONG(117, 117, 117), "gray46" },
877 { RGB_TO_ULONG(117, 117, 117), "grey46" },
878 { RGB_TO_ULONG(120, 120, 120), "gray47" },
879 { RGB_TO_ULONG(120, 120, 120), "grey47" },
880 { RGB_TO_ULONG(122, 122, 122), "gray48" },
881 { RGB_TO_ULONG(122, 122, 122), "grey48" },
882 { RGB_TO_ULONG(125, 125, 125), "gray49" },
883 { RGB_TO_ULONG(125, 125, 125), "grey49" },
884 { RGB_TO_ULONG(127, 127, 127), "gray50" },
885 { RGB_TO_ULONG(127, 127, 127), "grey50" },
886 { RGB_TO_ULONG(130, 130, 130), "gray51" },
887 { RGB_TO_ULONG(130, 130, 130), "grey51" },
888 { RGB_TO_ULONG(133, 133, 133), "gray52" },
889 { RGB_TO_ULONG(133, 133, 133), "grey52" },
890 { RGB_TO_ULONG(135, 135, 135), "gray53" },
891 { RGB_TO_ULONG(135, 135, 135), "grey53" },
892 { RGB_TO_ULONG(138, 138, 138), "gray54" },
893 { RGB_TO_ULONG(138, 138, 138), "grey54" },
894 { RGB_TO_ULONG(140, 140, 140), "gray55" },
895 { RGB_TO_ULONG(140, 140, 140), "grey55" },
896 { RGB_TO_ULONG(143, 143, 143), "gray56" },
897 { RGB_TO_ULONG(143, 143, 143), "grey56" },
898 { RGB_TO_ULONG(145, 145, 145), "gray57" },
899 { RGB_TO_ULONG(145, 145, 145), "grey57" },
900 { RGB_TO_ULONG(148, 148, 148), "gray58" },
901 { RGB_TO_ULONG(148, 148, 148), "grey58" },
902 { RGB_TO_ULONG(150, 150, 150), "gray59" },
903 { RGB_TO_ULONG(150, 150, 150), "grey59" },
904 { RGB_TO_ULONG(153, 153, 153), "gray60" },
905 { RGB_TO_ULONG(153, 153, 153), "grey60" },
906 { RGB_TO_ULONG(156, 156, 156), "gray61" },
907 { RGB_TO_ULONG(156, 156, 156), "grey61" },
908 { RGB_TO_ULONG(158, 158, 158), "gray62" },
909 { RGB_TO_ULONG(158, 158, 158), "grey62" },
910 { RGB_TO_ULONG(161, 161, 161), "gray63" },
911 { RGB_TO_ULONG(161, 161, 161), "grey63" },
912 { RGB_TO_ULONG(163, 163, 163), "gray64" },
913 { RGB_TO_ULONG(163, 163, 163), "grey64" },
914 { RGB_TO_ULONG(166, 166, 166), "gray65" },
915 { RGB_TO_ULONG(166, 166, 166), "grey65" },
916 { RGB_TO_ULONG(168, 168, 168), "gray66" },
917 { RGB_TO_ULONG(168, 168, 168), "grey66" },
918 { RGB_TO_ULONG(171, 171, 171), "gray67" },
919 { RGB_TO_ULONG(171, 171, 171), "grey67" },
920 { RGB_TO_ULONG(173, 173, 173), "gray68" },
921 { RGB_TO_ULONG(173, 173, 173), "grey68" },
922 { RGB_TO_ULONG(176, 176, 176), "gray69" },
923 { RGB_TO_ULONG(176, 176, 176), "grey69" },
924 { RGB_TO_ULONG(179, 179, 179), "gray70" },
925 { RGB_TO_ULONG(179, 179, 179), "grey70" },
926 { RGB_TO_ULONG(181, 181, 181), "gray71" },
927 { RGB_TO_ULONG(181, 181, 181), "grey71" },
928 { RGB_TO_ULONG(184, 184, 184), "gray72" },
929 { RGB_TO_ULONG(184, 184, 184), "grey72" },
930 { RGB_TO_ULONG(186, 186, 186), "gray73" },
931 { RGB_TO_ULONG(186, 186, 186), "grey73" },
932 { RGB_TO_ULONG(189, 189, 189), "gray74" },
933 { RGB_TO_ULONG(189, 189, 189), "grey74" },
934 { RGB_TO_ULONG(191, 191, 191), "gray75" },
935 { RGB_TO_ULONG(191, 191, 191), "grey75" },
936 { RGB_TO_ULONG(194, 194, 194), "gray76" },
937 { RGB_TO_ULONG(194, 194, 194), "grey76" },
938 { RGB_TO_ULONG(196, 196, 196), "gray77" },
939 { RGB_TO_ULONG(196, 196, 196), "grey77" },
940 { RGB_TO_ULONG(199, 199, 199), "gray78" },
941 { RGB_TO_ULONG(199, 199, 199), "grey78" },
942 { RGB_TO_ULONG(201, 201, 201), "gray79" },
943 { RGB_TO_ULONG(201, 201, 201), "grey79" },
944 { RGB_TO_ULONG(204, 204, 204), "gray80" },
945 { RGB_TO_ULONG(204, 204, 204), "grey80" },
946 { RGB_TO_ULONG(207, 207, 207), "gray81" },
947 { RGB_TO_ULONG(207, 207, 207), "grey81" },
948 { RGB_TO_ULONG(209, 209, 209), "gray82" },
949 { RGB_TO_ULONG(209, 209, 209), "grey82" },
950 { RGB_TO_ULONG(212, 212, 212), "gray83" },
951 { RGB_TO_ULONG(212, 212, 212), "grey83" },
952 { RGB_TO_ULONG(214, 214, 214), "gray84" },
953 { RGB_TO_ULONG(214, 214, 214), "grey84" },
954 { RGB_TO_ULONG(217, 217, 217), "gray85" },
955 { RGB_TO_ULONG(217, 217, 217), "grey85" },
956 { RGB_TO_ULONG(219, 219, 219), "gray86" },
957 { RGB_TO_ULONG(219, 219, 219), "grey86" },
958 { RGB_TO_ULONG(222, 222, 222), "gray87" },
959 { RGB_TO_ULONG(222, 222, 222), "grey87" },
960 { RGB_TO_ULONG(224, 224, 224), "gray88" },
961 { RGB_TO_ULONG(224, 224, 224), "grey88" },
962 { RGB_TO_ULONG(227, 227, 227), "gray89" },
963 { RGB_TO_ULONG(227, 227, 227), "grey89" },
964 { RGB_TO_ULONG(229, 229, 229), "gray90" },
965 { RGB_TO_ULONG(229, 229, 229), "grey90" },
966 { RGB_TO_ULONG(232, 232, 232), "gray91" },
967 { RGB_TO_ULONG(232, 232, 232), "grey91" },
968 { RGB_TO_ULONG(235, 235, 235), "gray92" },
969 { RGB_TO_ULONG(235, 235, 235), "grey92" },
970 { RGB_TO_ULONG(237, 237, 237), "gray93" },
971 { RGB_TO_ULONG(237, 237, 237), "grey93" },
972 { RGB_TO_ULONG(240, 240, 240), "gray94" },
973 { RGB_TO_ULONG(240, 240, 240), "grey94" },
974 { RGB_TO_ULONG(242, 242, 242), "gray95" },
975 { RGB_TO_ULONG(242, 242, 242), "grey95" },
976 { RGB_TO_ULONG(245, 245, 245), "gray96" },
977 { RGB_TO_ULONG(245, 245, 245), "grey96" },
978 { RGB_TO_ULONG(247, 247, 247), "gray97" },
979 { RGB_TO_ULONG(247, 247, 247), "grey97" },
980 { RGB_TO_ULONG(250, 250, 250), "gray98" },
981 { RGB_TO_ULONG(250, 250, 250), "grey98" },
982 { RGB_TO_ULONG(252, 252, 252), "gray99" },
983 { RGB_TO_ULONG(252, 252, 252), "grey99" },
984 { RGB_TO_ULONG(255, 255, 255), "gray100" },
985 { RGB_TO_ULONG(255, 255, 255), "grey100" },
986 { RGB_TO_ULONG(169, 169, 169), "dark grey" },
987 { RGB_TO_ULONG(169, 169, 169), "DarkGrey" },
988 { RGB_TO_ULONG(169, 169, 169), "dark gray" },
989 { RGB_TO_ULONG(169, 169, 169), "DarkGray" },
990 { RGB_TO_ULONG(0 , 0 , 139), "dark blue" },
991 { RGB_TO_ULONG(0 , 0 , 139), "DarkBlue" },
992 { RGB_TO_ULONG(0 , 139, 139), "dark cyan" },
993 { RGB_TO_ULONG(0 , 139, 139), "DarkCyan" },
994 { RGB_TO_ULONG(139, 0 , 139), "dark magenta" },
995 { RGB_TO_ULONG(139, 0 , 139), "DarkMagenta" },
996 { RGB_TO_ULONG(139, 0 , 0 ), "dark red" },
997 { RGB_TO_ULONG(139, 0 , 0 ), "DarkRed" },
998 { RGB_TO_ULONG(144, 238, 144), "light green" },
999 { RGB_TO_ULONG(144, 238, 144), "LightGreen" }
1003 mac_color_map_lookup (colorname
)
1006 Lisp_Object ret
= Qnil
;
1011 for (i
= 0; i
< sizeof (mac_color_map
) / sizeof (mac_color_map
[0]); i
++)
1012 if (xstricmp (colorname
, mac_color_map
[i
].name
) == 0)
1014 ret
= make_number (mac_color_map
[i
].color
);
1024 x_to_mac_color (colorname
)
1027 register Lisp_Object ret
= Qnil
;
1031 if (colorname
[0] == '#')
1033 /* Could be an old-style RGB Device specification. */
1036 color
= colorname
+ 1;
1038 size
= strlen(color
);
1039 if (size
== 3 || size
== 6 || size
== 9 || size
== 12)
1041 unsigned long colorval
;
1047 for (i
= 0; i
< 3; i
++)
1051 unsigned long value
;
1053 /* The check for 'x' in the following conditional takes into
1054 account the fact that strtol allows a "0x" in front of
1055 our numbers, and we don't. */
1056 if (!isxdigit(color
[0]) || color
[1] == 'x')
1060 value
= strtoul(color
, &end
, 16);
1062 if (errno
== ERANGE
|| end
- color
!= size
)
1067 value
= value
* 0x10;
1078 colorval
|= (value
<< pos
);
1083 return make_number (colorval
);
1089 else if (strnicmp(colorname
, "rgb:", 4) == 0)
1092 unsigned long colorval
;
1097 color
= colorname
+ 4;
1098 for (i
= 0; i
< 3; i
++)
1101 unsigned long value
;
1103 /* The check for 'x' in the following conditional takes into
1104 account the fact that strtol allows a "0x" in front of
1105 our numbers, and we don't. */
1106 if (!isxdigit(color
[0]) || color
[1] == 'x')
1108 value
= strtoul(color
, &end
, 16);
1109 if (errno
== ERANGE
)
1111 switch (end
- color
)
1114 value
= value
* 0x10 + value
;
1127 if (value
== ULONG_MAX
)
1129 colorval
|= (value
<< pos
);
1136 return make_number (colorval
);
1143 else if (strnicmp(colorname
, "rgbi:", 5) == 0)
1145 /* This is an RGB Intensity specification. */
1147 unsigned long colorval
;
1152 color
= colorname
+ 5;
1153 for (i
= 0; i
< 3; i
++)
1159 value
= strtod(color
, &end
);
1160 if (errno
== ERANGE
)
1162 if (value
< 0.0 || value
> 1.0)
1164 val
= (unsigned long)(0x100 * value
);
1165 /* We used 0x100 instead of 0xFF to give a continuous
1166 range between 0.0 and 1.0 inclusive. The next statement
1167 fixes the 1.0 case. */
1170 colorval
|= (val
<< pos
);
1177 return make_number (colorval
);
1185 ret
= mac_color_map_lookup (colorname
);
1191 /* Gamma-correct COLOR on frame F. */
1194 gamma_correct (f
, color
)
1196 unsigned long *color
;
1200 unsigned long red
, green
, blue
;
1202 red
= pow (RED_FROM_ULONG (*color
) / 255.0, f
->gamma
) * 255.0 + 0.5;
1203 green
= pow (GREEN_FROM_ULONG (*color
) / 255.0, f
->gamma
) * 255.0 + 0.5;
1204 blue
= pow (BLUE_FROM_ULONG (*color
) / 255.0, f
->gamma
) * 255.0 + 0.5;
1205 *color
= RGB_TO_ULONG (red
, green
, blue
);
1209 /* Decide if color named COLOR is valid for the display associated
1210 with the selected frame; if so, return the rgb values in COLOR_DEF.
1211 If ALLOC is nonzero, allocate a new colormap cell. */
1214 mac_defined_color (f
, color
, color_def
, alloc
)
1220 register Lisp_Object tem
;
1221 unsigned long mac_color_ref
;
1223 tem
= x_to_mac_color (color
);
1229 /* Apply gamma correction. */
1230 mac_color_ref
= XUINT (tem
);
1231 gamma_correct (f
, &mac_color_ref
);
1232 XSETINT (tem
, mac_color_ref
);
1235 color_def
->pixel
= mac_color_ref
;
1236 color_def
->red
= RED16_FROM_ULONG (mac_color_ref
);
1237 color_def
->green
= GREEN16_FROM_ULONG (mac_color_ref
);
1238 color_def
->blue
= BLUE16_FROM_ULONG (mac_color_ref
);
1248 /* Given a string ARG naming a color, compute a pixel value from it
1249 suitable for screen F.
1250 If F is not a color screen, return DEF (default) regardless of what
1254 x_decode_color (f
, arg
, def
)
1263 if (strcmp (SDATA (arg
), "black") == 0)
1264 return BLACK_PIX_DEFAULT (f
);
1265 else if (strcmp (SDATA (arg
), "white") == 0)
1266 return WHITE_PIX_DEFAULT (f
);
1269 if (FRAME_MAC_DISPLAY_INFO (f
)->n_planes
) == 1)
1273 if (mac_defined_color (f
, SDATA (arg
), &cdef
, 1))
1276 /* defined_color failed; return an ultimate default. */
1280 /* Functions called only from `x_set_frame_param'
1281 to set individual parameters.
1283 If FRAME_MAC_WINDOW (f) is 0,
1284 the frame is being created and its window does not exist yet.
1285 In that case, just record the parameter's new value
1286 in the standard place; do not attempt to change the window. */
1289 x_set_foreground_color (f
, arg
, oldval
)
1291 Lisp_Object arg
, oldval
;
1293 struct mac_output
*mac
= f
->output_data
.mac
;
1294 unsigned long fg
, old_fg
;
1296 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1297 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
1298 FRAME_FOREGROUND_PIXEL (f
) = fg
;
1300 if (FRAME_MAC_WINDOW (f
) != 0)
1302 Display
*dpy
= FRAME_MAC_DISPLAY (f
);
1305 XSetForeground (dpy
, mac
->normal_gc
, fg
);
1306 XSetBackground (dpy
, mac
->reverse_gc
, fg
);
1308 if (mac
->cursor_pixel
== old_fg
)
1310 unload_color (f
, mac
->cursor_pixel
);
1311 mac
->cursor_pixel
= fg
;
1312 XSetBackground (dpy
, mac
->cursor_gc
, mac
->cursor_pixel
);
1317 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
1319 if (FRAME_VISIBLE_P (f
))
1323 unload_color (f
, old_fg
);
1327 x_set_background_color (f
, arg
, oldval
)
1329 Lisp_Object arg
, oldval
;
1331 struct mac_output
*mac
= f
->output_data
.mac
;
1334 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
1335 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
1336 FRAME_BACKGROUND_PIXEL (f
) = bg
;
1338 if (FRAME_MAC_WINDOW (f
) != 0)
1340 Display
*dpy
= FRAME_MAC_DISPLAY (f
);
1343 XSetBackground (dpy
, mac
->normal_gc
, bg
);
1344 XSetForeground (dpy
, mac
->reverse_gc
, bg
);
1345 XSetWindowBackground (dpy
, FRAME_MAC_WINDOW (f
), bg
);
1346 XSetForeground (dpy
, mac
->cursor_gc
, bg
);
1349 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
1351 if (FRAME_VISIBLE_P (f
))
1357 x_set_mouse_color (f
, arg
, oldval
)
1359 Lisp_Object arg
, oldval
;
1361 struct x_output
*x
= f
->output_data
.x
;
1362 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
1363 Cursor hourglass_cursor
, horizontal_drag_cursor
;
1364 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1365 unsigned long mask_color
= x
->background_pixel
;
1367 /* Don't let pointers be invisible. */
1368 if (mask_color
== pixel
)
1369 pixel
= x
->foreground_pixel
;
1371 f
->output_data
.mac
->mouse_pixel
= pixel
;
1373 if (!NILP (Vx_pointer_shape
))
1375 CHECK_NUMBER (Vx_pointer_shape
);
1376 cursor
= XINT (Vx_pointer_shape
);
1379 cursor
= kThemeIBeamCursor
;
1381 if (!NILP (Vx_nontext_pointer_shape
))
1383 CHECK_NUMBER (Vx_nontext_pointer_shape
);
1384 nontext_cursor
= XINT (Vx_nontext_pointer_shape
);
1387 nontext_cursor
= kThemeArrowCursor
;
1389 if (!NILP (Vx_hourglass_pointer_shape
))
1391 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
1392 hourglass_cursor
= XINT (Vx_hourglass_pointer_shape
);
1395 hourglass_cursor
= kThemeWatchCursor
;
1397 if (!NILP (Vx_mode_pointer_shape
))
1399 CHECK_NUMBER (Vx_mode_pointer_shape
);
1400 mode_cursor
= XINT (Vx_mode_pointer_shape
);
1403 mode_cursor
= kThemeArrowCursor
;
1405 if (!NILP (Vx_sensitive_text_pointer_shape
))
1407 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
1408 hand_cursor
= XINT (Vx_sensitive_text_pointer_shape
);
1411 hand_cursor
= kThemePointingHandCursor
;
1413 if (!NILP (Vx_window_horizontal_drag_shape
))
1415 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1416 horizontal_drag_cursor
= XINT (Vx_window_horizontal_drag_shape
);
1419 horizontal_drag_cursor
= kThemeResizeLeftRightCursor
;
1421 #if 0 /* MAC_TODO: cursor color changes */
1423 XColor fore_color
, back_color
;
1425 fore_color
.pixel
= f
->output_data
.mac
->mouse_pixel
;
1426 x_query_color (f
, &fore_color
);
1427 back_color
.pixel
= mask_color
;
1428 x_query_color (f
, &back_color
);
1430 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1431 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1432 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1433 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1434 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1435 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1441 if (FRAME_MAC_WINDOW (f
) != 0)
1442 rif
->define_frame_cursor (f
, cursor
);
1444 f
->output_data
.mac
->text_cursor
= cursor
;
1445 f
->output_data
.mac
->nontext_cursor
= nontext_cursor
;
1446 f
->output_data
.mac
->hourglass_cursor
= hourglass_cursor
;
1447 f
->output_data
.mac
->modeline_cursor
= mode_cursor
;
1448 f
->output_data
.mac
->hand_cursor
= hand_cursor
;
1449 f
->output_data
.mac
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1453 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1457 x_set_cursor_color (f
, arg
, oldval
)
1459 Lisp_Object arg
, oldval
;
1461 unsigned long fore_pixel
, pixel
;
1463 if (!NILP (Vx_cursor_fore_pixel
))
1464 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1465 WHITE_PIX_DEFAULT (f
));
1467 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1469 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1471 /* Make sure that the cursor color differs from the background color. */
1472 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1474 pixel
= f
->output_data
.mac
->mouse_pixel
;
1475 if (pixel
== fore_pixel
)
1476 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1479 f
->output_data
.mac
->cursor_foreground_pixel
= fore_pixel
;
1480 f
->output_data
.mac
->cursor_pixel
= pixel
;
1482 if (FRAME_MAC_WINDOW (f
) != 0)
1485 /* Update frame's cursor_gc. */
1486 XSetBackground (FRAME_MAC_DISPLAY (f
),
1487 f
->output_data
.mac
->cursor_gc
, pixel
);
1488 XSetForeground (FRAME_MAC_DISPLAY (f
),
1489 f
->output_data
.mac
->cursor_gc
, fore_pixel
);
1492 if (FRAME_VISIBLE_P (f
))
1494 x_update_cursor (f
, 0);
1495 x_update_cursor (f
, 1);
1499 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1502 /* Set the border-color of frame F to pixel value PIX.
1503 Note that this does not fully take effect if done before
1507 x_set_border_pixel (f
, pix
)
1512 f
->output_data
.mac
->border_pixel
= pix
;
1514 if (FRAME_MAC_WINDOW (f
) != 0 && f
->border_width
> 0)
1516 if (FRAME_VISIBLE_P (f
))
1521 /* Set the border-color of frame F to value described by ARG.
1522 ARG can be a string naming a color.
1523 The border-color is used for the border that is drawn by the server.
1524 Note that this does not fully take effect if done before
1525 F has a window; it must be redone when the window is created. */
1528 x_set_border_color (f
, arg
, oldval
)
1530 Lisp_Object arg
, oldval
;
1535 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1536 x_set_border_pixel (f
, pix
);
1537 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1542 x_set_cursor_type (f
, arg
, oldval
)
1544 Lisp_Object arg
, oldval
;
1546 set_frame_cursor_types (f
, arg
);
1548 /* Make sure the cursor gets redrawn. */
1549 cursor_type_changed
= 1;
1552 #if 0 /* MAC_TODO: really no icon for Mac */
1554 x_set_icon_type (f
, arg
, oldval
)
1556 Lisp_Object arg
, oldval
;
1560 if (NILP (arg
) && NILP (oldval
))
1563 if (STRINGP (arg
) && STRINGP (oldval
)
1564 && EQ (Fstring_equal (oldval
, arg
), Qt
))
1567 if (SYMBOLP (arg
) && SYMBOLP (oldval
) && EQ (arg
, oldval
))
1572 result
= x_bitmap_icon (f
, arg
);
1576 error ("No icon window available");
1581 #endif /* MAC_TODO */
1584 x_set_icon_name (f
, arg
, oldval
)
1586 Lisp_Object arg
, oldval
;
1592 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1595 else if (!NILP (arg
) || NILP (oldval
))
1600 #if 0 /* MAC_TODO */
1601 if (f
->output_data
.w32
->icon_bitmap
!= 0)
1606 result
= x_text_icon (f
,
1607 (char *) SDATA ((!NILP (f
->icon_name
)
1616 error ("No icon window available");
1619 /* If the window was unmapped (and its icon was mapped),
1620 the new icon is not mapped, so map the window in its stead. */
1621 if (FRAME_VISIBLE_P (f
))
1623 #ifdef USE_X_TOOLKIT
1624 XtPopup (f
->output_data
.w32
->widget
, XtGrabNone
);
1626 XMapWindow (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
));
1629 XFlush (FRAME_W32_DISPLAY (f
));
1631 #endif /* MAC_TODO */
1636 x_set_menu_bar_lines (f
, value
, oldval
)
1638 Lisp_Object value
, oldval
;
1640 /* Make sure we redisplay all windows in this frame. */
1641 windows_or_buffers_changed
++;
1643 FRAME_MENU_BAR_LINES (f
) = 0;
1644 /* The menu bar is always shown. */
1645 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1646 if (FRAME_MAC_P (f
) && f
->output_data
.mac
->menubar_widget
== 0)
1647 /* Make sure next redisplay shows the menu bar. */
1648 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1653 /* Set the number of lines used for the tool bar of frame F to VALUE.
1654 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1655 is the old number of tool bar lines. This function changes the
1656 height of all windows on frame F to match the new tool bar height.
1657 The frame's height doesn't change. */
1660 x_set_tool_bar_lines (f
, value
, oldval
)
1662 Lisp_Object value
, oldval
;
1664 int delta
, nlines
, root_height
;
1665 Lisp_Object root_window
;
1667 /* Treat tool bars like menu bars. */
1668 if (FRAME_MINIBUF_ONLY_P (f
))
1671 /* Use VALUE only if an integer >= 0. */
1672 if (INTEGERP (value
) && XINT (value
) >= 0)
1673 nlines
= XFASTINT (value
);
1677 /* Make sure we redisplay all windows in this frame. */
1678 ++windows_or_buffers_changed
;
1680 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1682 /* Don't resize the tool-bar to more than we have room for. */
1683 root_window
= FRAME_ROOT_WINDOW (f
);
1684 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1685 if (root_height
- delta
< 1)
1687 delta
= root_height
- 1;
1688 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1691 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1692 change_window_heights (root_window
, delta
);
1695 /* We also have to make sure that the internal border at the top of
1696 the frame, below the menu bar or tool bar, is redrawn when the
1697 tool bar disappears. This is so because the internal border is
1698 below the tool bar if one is displayed, but is below the menu bar
1699 if there isn't a tool bar. The tool bar draws into the area
1700 below the menu bar. */
1701 if (FRAME_MAC_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1705 clear_current_matrices (f
);
1706 updating_frame
= NULL
;
1709 /* If the tool bar gets smaller, the internal border below it
1710 has to be cleared. It was formerly part of the display
1711 of the larger tool bar, and updating windows won't clear it. */
1714 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1715 int width
= FRAME_PIXEL_WIDTH (f
);
1716 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1719 mac_clear_area (f
, 0, y
, width
, height
);
1722 if (WINDOWP (f
->tool_bar_window
))
1723 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1729 /* Set the Mac window title to NAME for frame F. */
1732 x_set_name_internal (f
, name
)
1736 if (FRAME_MAC_WINDOW (f
))
1738 if (STRING_MULTIBYTE (name
))
1739 #if TARGET_API_MAC_CARBON
1740 name
= ENCODE_UTF_8 (name
);
1742 name
= ENCODE_SYSTEM (name
);
1748 #if TARGET_API_MAC_CARBON
1749 CFStringRef windowTitle
=
1750 cfstring_create_with_utf8_cstring (SDATA (name
));
1752 SetWindowTitleWithCFString (FRAME_MAC_WINDOW (f
), windowTitle
);
1753 CFRelease (windowTitle
);
1756 if (strlen (SDATA (name
)) < 255)
1758 strcpy (windowTitle
, SDATA (name
));
1759 c2pstr (windowTitle
);
1760 SetWTitle (FRAME_MAC_WINDOW (f
), windowTitle
);
1769 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1772 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1773 name; if NAME is a string, set F's name to NAME and set
1774 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1776 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1777 suggesting a new name, which lisp code should override; if
1778 F->explicit_name is set, ignore the new name; otherwise, set it. */
1781 x_set_name (f
, name
, explicit)
1786 /* Make sure that requests from lisp code override requests from
1787 Emacs redisplay code. */
1790 /* If we're switching from explicit to implicit, we had better
1791 update the mode lines and thereby update the title. */
1792 if (f
->explicit_name
&& NILP (name
))
1793 update_mode_lines
= 1;
1795 f
->explicit_name
= ! NILP (name
);
1797 else if (f
->explicit_name
)
1800 /* If NAME is nil, set the name to the mac_id_name. */
1803 /* Check for no change needed in this very common case
1804 before we do any consing. */
1805 if (!strcmp (FRAME_MAC_DISPLAY_INFO (f
)->mac_id_name
,
1808 name
= build_string (FRAME_MAC_DISPLAY_INFO (f
)->mac_id_name
);
1811 CHECK_STRING (name
);
1813 /* Don't change the name if it's already NAME. */
1814 if (! NILP (Fstring_equal (name
, f
->name
)))
1819 /* For setting the frame title, the title parameter should override
1820 the name parameter. */
1821 if (! NILP (f
->title
))
1824 x_set_name_internal (f
, name
);
1827 /* This function should be called when the user's lisp code has
1828 specified a name for the frame; the name will override any set by the
1831 x_explicitly_set_name (f
, arg
, oldval
)
1833 Lisp_Object arg
, oldval
;
1835 x_set_name (f
, arg
, 1);
1838 /* This function should be called by Emacs redisplay code to set the
1839 name; names set this way will never override names set by the user's
1842 x_implicitly_set_name (f
, arg
, oldval
)
1844 Lisp_Object arg
, oldval
;
1846 x_set_name (f
, arg
, 0);
1849 /* Change the title of frame F to NAME.
1850 If NAME is nil, use the frame name as the title.
1852 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1853 name; if NAME is a string, set F's name to NAME and set
1854 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1856 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1857 suggesting a new name, which lisp code should override; if
1858 F->explicit_name is set, ignore the new name; otherwise, set it. */
1861 x_set_title (f
, name
, old_name
)
1863 Lisp_Object name
, old_name
;
1865 /* Don't change the title if it's already NAME. */
1866 if (EQ (name
, f
->title
))
1869 update_mode_lines
= 1;
1876 CHECK_STRING (name
);
1878 x_set_name_internal (f
, name
);
1882 x_set_scroll_bar_default_width (f
)
1885 /* Imitate X without X Toolkit */
1887 int wid
= FRAME_COLUMN_WIDTH (f
);
1890 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = MAC_AQUA_VERTICAL_SCROLL_BAR_WIDTH
;
1891 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) +
1893 #else /* not MAC_OSX */
1894 /* Make the actual width at least 14 pixels and a multiple of a
1896 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1898 /* Use all of that space (aside from required margins) for the
1900 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1901 #endif /* not MAC_OSX */
1905 mac_set_scroll_bar_width (f
, arg
, oldval
)
1907 Lisp_Object arg
, oldval
;
1910 if (INTEGERP (arg
) && XINT (arg
) > 0)
1912 if (XINT (arg
) < (MAC_AQUA_SMALL_VERTICAL_SCROLL_BAR_WIDTH
1913 + MAC_AQUA_VERTICAL_SCROLL_BAR_WIDTH
) / 2)
1914 XSETINT (arg
, MAC_AQUA_SMALL_VERTICAL_SCROLL_BAR_WIDTH
);
1916 XSETINT (arg
, MAC_AQUA_VERTICAL_SCROLL_BAR_WIDTH
);
1919 x_set_scroll_bar_width (f
, arg
, oldval
);
1923 mac_set_font (f
, arg
, oldval
)
1925 Lisp_Object arg
, oldval
;
1927 x_set_font (f
, arg
, oldval
);
1928 #if USE_MAC_FONT_PANEL
1930 Lisp_Object focus_frame
= x_get_focus_frame (f
);
1932 if ((NILP (focus_frame
) && f
== SELECTED_FRAME ())
1933 || XFRAME (focus_frame
) == f
)
1936 mac_set_font_info_for_selection (f
, DEFAULT_FACE_ID
, 0);
1943 #if TARGET_API_MAC_CARBON
1945 mac_update_proxy_icon (f
)
1948 Lisp_Object file_name
=
1949 XBUFFER (XWINDOW (FRAME_SELECTED_WINDOW (f
))->buffer
)->filename
;
1950 Window w
= FRAME_MAC_WINDOW (f
);
1952 if (FRAME_FILE_NAME (f
) == NULL
&& !STRINGP (file_name
))
1954 if (FRAME_FILE_NAME (f
) && STRINGP (file_name
)
1955 && strcmp (FRAME_FILE_NAME (f
), SDATA (file_name
)) == 0)
1958 if (FRAME_FILE_NAME (f
))
1960 xfree (FRAME_FILE_NAME (f
));
1961 FRAME_FILE_NAME (f
) = NULL
;
1966 if (STRINGP (file_name
))
1970 Lisp_Object encoded_file_name
= ENCODE_FILE (file_name
);
1973 SetPortWindowPort (w
);
1975 err
= AECoercePtr (TYPE_FILE_NAME
, SDATA (encoded_file_name
),
1976 SBYTES (encoded_file_name
), typeAlias
, &desc
);
1979 Size size
= AEGetDescDataSize (&desc
);
1980 AliasHandle alias
= (AliasHandle
) NewHandle (size
);
1986 HLock ((Handle
) alias
);
1987 err
= AEGetDescData (&desc
, *alias
, size
);
1988 HUnlock ((Handle
) alias
);
1990 err
= SetWindowProxyAlias (w
, alias
);
1991 DisposeHandle ((Handle
) alias
);
1993 AEDisposeDesc (&desc
);
1997 FRAME_FILE_NAME (f
) = xmalloc (SBYTES (file_name
) + 1);
1998 strcpy (FRAME_FILE_NAME (f
), SDATA (file_name
));
2002 if (FRAME_FILE_NAME (f
) == NULL
)
2003 RemoveWindowProxy (w
);
2010 mac_update_title_bar (f
, save_match_data
)
2012 int save_match_data
;
2014 #if TARGET_API_MAC_CARBON
2018 if (!FRAME_MAC_P (f
))
2021 w
= XWINDOW (FRAME_SELECTED_WINDOW (f
));
2022 modified_p
= (BUF_SAVE_MODIFF (XBUFFER (w
->buffer
))
2023 < BUF_MODIFF (XBUFFER (w
->buffer
)));
2024 if (windows_or_buffers_changed
2025 /* Minibuffer modification status shown in the close button is
2027 || (!MINI_WINDOW_P (w
)
2028 && (modified_p
!= !NILP (w
->last_had_star
))))
2029 SetWindowModified (FRAME_MAC_WINDOW (f
),
2030 !MINI_WINDOW_P (w
) && modified_p
);
2032 if (windows_or_buffers_changed
)
2033 mac_update_proxy_icon (f
);
2038 /* Subroutines of creating a frame. */
2040 /* Retrieve the string resource specified by NAME with CLASS from
2043 The return value points to the contents of a Lisp string. So it
2044 will not be valid after the next GC where string compaction will
2048 x_get_string_resource (rdb
, name
, class)
2052 Lisp_Object value
= xrm_get_resource (rdb
, name
, class);
2054 if (STRINGP (value
))
2055 return SDATA (value
);
2060 /* Return the value of parameter PARAM.
2062 First search ALIST, then Vdefault_frame_alist, then the X defaults
2063 database, using ATTRIBUTE as the attribute name and CLASS as its class.
2065 Convert the resource to the type specified by desired_type.
2067 If no default is specified, return Qunbound. If you call
2068 mac_get_arg, make sure you deal with Qunbound in a reasonable way,
2069 and don't let it get stored in any Lisp-visible variables! */
2072 mac_get_arg (alist
, param
, attribute
, class, type
)
2073 Lisp_Object alist
, param
;
2076 enum resource_types type
;
2078 return x_get_arg (check_x_display_info (Qnil
),
2079 alist
, param
, attribute
, class, type
);
2083 /* XParseGeometry copied from w32xfns.c */
2086 * XParseGeometry parses strings of the form
2087 * "=<width>x<height>{+-}<xoffset>{+-}<yoffset>", where
2088 * width, height, xoffset, and yoffset are unsigned integers.
2089 * Example: "=80x24+300-49"
2090 * The equal sign is optional.
2091 * It returns a bitmask that indicates which of the four values
2092 * were actually found in the string. For each value found,
2093 * the corresponding argument is updated; for each value
2094 * not found, the corresponding argument is left unchanged.
2098 read_integer (string
, NextString
)
2099 register char *string
;
2102 register int Result
= 0;
2107 else if (*string
== '-')
2112 for (; (*string
>= '0') && (*string
<= '9'); string
++)
2114 Result
= (Result
* 10) + (*string
- '0');
2116 *NextString
= string
;
2124 XParseGeometry (string
, x
, y
, width
, height
)
2127 unsigned int *width
, *height
; /* RETURN */
2130 register char *strind
;
2131 unsigned int tempWidth
, tempHeight
;
2133 char *nextCharacter
;
2135 if ((string
== NULL
) || (*string
== '\0')) return (mask
);
2137 string
++; /* ignore possible '=' at beg of geometry spec */
2139 strind
= (char *)string
;
2140 if (*strind
!= '+' && *strind
!= '-' && *strind
!= 'x')
2142 tempWidth
= read_integer (strind
, &nextCharacter
);
2143 if (strind
== nextCharacter
)
2145 strind
= nextCharacter
;
2149 if (*strind
== 'x' || *strind
== 'X')
2152 tempHeight
= read_integer (strind
, &nextCharacter
);
2153 if (strind
== nextCharacter
)
2155 strind
= nextCharacter
;
2156 mask
|= HeightValue
;
2159 if ((*strind
== '+') || (*strind
== '-'))
2164 tempX
= -read_integer (strind
, &nextCharacter
);
2165 if (strind
== nextCharacter
)
2167 strind
= nextCharacter
;
2174 tempX
= read_integer (strind
, &nextCharacter
);
2175 if (strind
== nextCharacter
)
2177 strind
= nextCharacter
;
2180 if ((*strind
== '+') || (*strind
== '-'))
2185 tempY
= -read_integer (strind
, &nextCharacter
);
2186 if (strind
== nextCharacter
)
2188 strind
= nextCharacter
;
2195 tempY
= read_integer (strind
, &nextCharacter
);
2196 if (strind
== nextCharacter
)
2198 strind
= nextCharacter
;
2204 /* If strind isn't at the end of the string the it's an invalid
2205 geometry specification. */
2207 if (*strind
!= '\0') return (0);
2213 if (mask
& WidthValue
)
2215 if (mask
& HeightValue
)
2216 *height
= tempHeight
;
2221 /* Create and set up the Mac window for frame F. */
2231 SetRect (&r
, f
->left_pos
, f
->top_pos
,
2232 f
->left_pos
+ FRAME_PIXEL_WIDTH (f
),
2233 f
->top_pos
+ FRAME_PIXEL_HEIGHT (f
));
2234 #if TARGET_API_MAC_CARBON
2235 CreateNewWindow (kDocumentWindowClass
,
2236 kWindowStandardDocumentAttributes
2238 | kWindowToolbarButtonAttribute
2240 , &r
, &FRAME_MAC_WINDOW (f
));
2241 if (FRAME_MAC_WINDOW (f
))
2243 SetWRefCon (FRAME_MAC_WINDOW (f
), (long) f
->output_data
.mac
);
2244 if (install_window_handler (FRAME_MAC_WINDOW (f
)) != noErr
)
2246 DisposeWindow (FRAME_MAC_WINDOW (f
));
2247 FRAME_MAC_WINDOW (f
) = NULL
;
2251 FRAME_MAC_WINDOW (f
)
2252 = NewCWindow (NULL
, &r
, "\p", false, zoomDocProc
,
2253 (WindowPtr
) -1, 1, (long) f
->output_data
.mac
);
2255 /* so that update events can find this mac_output struct */
2256 f
->output_data
.mac
->mFP
= f
; /* point back to emacs frame */
2259 if (FRAME_MAC_WINDOW (f
))
2261 ControlRef root_control
;
2263 if (CreateRootControl (FRAME_MAC_WINDOW (f
), &root_control
) != noErr
)
2265 DisposeWindow (FRAME_MAC_WINDOW (f
));
2266 FRAME_MAC_WINDOW (f
) = NULL
;
2270 if (FRAME_MAC_WINDOW (f
))
2271 XSetWindowBackground (FRAME_MAC_DISPLAY(f
), FRAME_MAC_WINDOW (f
),
2272 FRAME_BACKGROUND_PIXEL (f
));
2274 validate_x_resource_name ();
2276 /* x_set_name normally ignores requests to set the name if the
2277 requested name is the same as the current name. This is the one
2278 place where that assumption isn't correct; f->name is set, but
2279 the server hasn't been told. */
2282 int explicit = f
->explicit_name
;
2284 f
->explicit_name
= 0;
2287 x_set_name (f
, name
, explicit);
2292 if (FRAME_MAC_WINDOW (f
) == 0)
2293 error ("Unable to create window");
2296 /* Handle the icon stuff for this window. Perhaps later we might
2297 want an x_set_icon_position which can be called interactively as
2305 Lisp_Object icon_x
, icon_y
;
2307 /* Set the position of the icon. Note that Windows 95 groups all
2308 icons in the tray. */
2309 icon_x
= mac_get_arg (parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2310 icon_y
= mac_get_arg (parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2311 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2313 CHECK_NUMBER (icon_x
);
2314 CHECK_NUMBER (icon_y
);
2316 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2317 error ("Both left and top icon corners of icon must be specified");
2321 if (! EQ (icon_x
, Qunbound
))
2322 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2325 /* Start up iconic or window? */
2326 x_wm_set_window_state
2327 (f
, (EQ (w32_get_arg (parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
), Qicon
)
2331 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2344 XGCValues gc_values
;
2348 /* Create the GCs of this frame.
2349 Note that many default values are used. */
2352 gc_values
.font
= FRAME_FONT (f
);
2353 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2354 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2355 f
->output_data
.mac
->normal_gc
= XCreateGC (FRAME_MAC_DISPLAY (f
),
2356 FRAME_MAC_WINDOW (f
),
2357 GCFont
| GCForeground
| GCBackground
,
2360 /* Reverse video style. */
2361 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2362 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2363 f
->output_data
.mac
->reverse_gc
= XCreateGC (FRAME_MAC_DISPLAY (f
),
2364 FRAME_MAC_WINDOW (f
),
2365 GCFont
| GCForeground
| GCBackground
,
2368 /* Cursor has cursor-color background, background-color foreground. */
2369 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2370 gc_values
.background
= f
->output_data
.mac
->cursor_pixel
;
2371 f
->output_data
.mac
->cursor_gc
= XCreateGC (FRAME_MAC_DISPLAY (f
),
2372 FRAME_MAC_WINDOW (f
),
2373 GCFont
| GCForeground
| GCBackground
,
2377 f
->output_data
.mac
->white_relief
.gc
= 0;
2378 f
->output_data
.mac
->black_relief
.gc
= 0;
2381 /* Create the gray border tile used when the pointer is not in
2382 the frame. Since this depends on the frame's pixel values,
2383 this must be done on a per-frame basis. */
2384 f
->output_data
.x
->border_tile
2385 = (XCreatePixmapFromBitmapData
2386 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2387 gray_bits
, gray_width
, gray_height
,
2388 f
->output_data
.x
->foreground_pixel
,
2389 f
->output_data
.x
->background_pixel
,
2390 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2397 /* Free what was was allocated in x_make_gc. */
2403 Display
*dpy
= FRAME_MAC_DISPLAY (f
);
2407 if (f
->output_data
.mac
->normal_gc
)
2409 XFreeGC (dpy
, f
->output_data
.mac
->normal_gc
);
2410 f
->output_data
.mac
->normal_gc
= 0;
2413 if (f
->output_data
.mac
->reverse_gc
)
2415 XFreeGC (dpy
, f
->output_data
.mac
->reverse_gc
);
2416 f
->output_data
.mac
->reverse_gc
= 0;
2419 if (f
->output_data
.mac
->cursor_gc
)
2421 XFreeGC (dpy
, f
->output_data
.mac
->cursor_gc
);
2422 f
->output_data
.mac
->cursor_gc
= 0;
2426 if (f
->output_data
.mac
->border_tile
)
2428 XFreePixmap (dpy
, f
->output_data
.mac
->border_tile
);
2429 f
->output_data
.mac
->border_tile
= 0;
2433 if (f
->output_data
.mac
->white_relief
.gc
)
2435 XFreeGC (dpy
, f
->output_data
.mac
->white_relief
.gc
);
2436 f
->output_data
.mac
->white_relief
.gc
= 0;
2439 if (f
->output_data
.mac
->black_relief
.gc
)
2441 XFreeGC (dpy
, f
->output_data
.mac
->black_relief
.gc
);
2442 f
->output_data
.mac
->black_relief
.gc
= 0;
2449 /* Handler for signals raised during x_create_frame and
2450 x_create_top_frame. FRAME is the frame which is partially
2454 unwind_create_frame (frame
)
2457 struct frame
*f
= XFRAME (frame
);
2459 /* If frame is ``official'', nothing to do. */
2460 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2463 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2466 x_free_frame_resources (f
);
2469 /* Check that reference counts are indeed correct. */
2470 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2471 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2480 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2482 doc
: /* Make a new window, which is called a "frame" in Emacs terms.
2483 Returns an Emacs frame object.
2484 ALIST is an alist of frame parameters.
2485 If the parameters specify that the frame should not have a minibuffer,
2486 and do not specify a specific minibuffer window to use,
2487 then `default-minibuffer-frame' must be a frame whose minibuffer can
2488 be shared by the new frame.
2490 This function is an internal primitive--use `make-frame' instead. */)
2495 Lisp_Object frame
, tem
;
2497 int minibuffer_only
= 0;
2498 long window_prompting
= 0;
2500 int count
= SPECPDL_INDEX ();
2501 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
2502 Lisp_Object display
;
2503 struct mac_display_info
*dpyinfo
= NULL
;
2509 parms
= Fcopy_alist (parms
);
2511 /* Use this general default value to start with
2512 until we know if this frame has a specified name. */
2513 Vx_resource_name
= Vinvocation_name
;
2515 display
= mac_get_arg (parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
2516 if (EQ (display
, Qunbound
))
2518 dpyinfo
= check_x_display_info (display
);
2520 kb
= dpyinfo
->kboard
;
2522 kb
= &the_only_kboard
;
2525 name
= mac_get_arg (parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
2527 && ! EQ (name
, Qunbound
)
2529 error ("Invalid frame name--not a string or nil");
2532 Vx_resource_name
= name
;
2534 /* See if parent window is specified. */
2535 parent
= mac_get_arg (parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
2536 if (EQ (parent
, Qunbound
))
2538 if (! NILP (parent
))
2539 CHECK_NUMBER (parent
);
2541 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
2542 /* No need to protect DISPLAY because that's not used after passing
2543 it to make_frame_without_minibuffer. */
2545 GCPRO4 (parms
, parent
, name
, frame
);
2546 tem
= mac_get_arg (parms
, Qminibuffer
, "minibuffer", "Minibuffer",
2548 if (EQ (tem
, Qnone
) || NILP (tem
))
2549 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
2550 else if (EQ (tem
, Qonly
))
2552 f
= make_minibuffer_frame ();
2553 minibuffer_only
= 1;
2555 else if (WINDOWP (tem
))
2556 f
= make_frame_without_minibuffer (tem
, kb
, display
);
2560 XSETFRAME (frame
, f
);
2562 /* Note that X Windows does support scroll bars. */
2563 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
2565 f
->output_method
= output_mac
;
2566 f
->output_data
.mac
= (struct mac_output
*) xmalloc (sizeof (struct mac_output
));
2567 bzero (f
->output_data
.mac
, sizeof (struct mac_output
));
2568 FRAME_FONTSET (f
) = -1;
2569 record_unwind_protect (unwind_create_frame
, frame
);
2572 = mac_get_arg (parms
, Qicon_name
, "iconName", "Title", RES_TYPE_STRING
);
2573 if (! STRINGP (f
->icon_name
))
2574 f
->icon_name
= Qnil
;
2576 /* FRAME_MAC_DISPLAY_INFO (f) = dpyinfo; */
2578 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
2579 dpyinfo_refcount
= dpyinfo
->reference_count
;
2580 #endif /* GLYPH_DEBUG */
2582 FRAME_KBOARD (f
) = kb
;
2585 /* Specify the parent under which to make this window. */
2589 f
->output_data
.mac
->parent_desc
= (Window
) XFASTINT (parent
);
2590 f
->output_data
.mac
->explicit_parent
= 1;
2594 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
2595 f
->output_data
.mac
->explicit_parent
= 0;
2598 /* Set the name; the functions to which we pass f expect the name to
2600 if (EQ (name
, Qunbound
) || NILP (name
))
2602 f
->name
= build_string (dpyinfo
->mac_id_name
);
2603 f
->explicit_name
= 0;
2608 f
->explicit_name
= 1;
2609 /* use the frame's title when getting resources for this frame. */
2610 specbind (Qx_resource_name
, name
);
2613 /* Extract the window parameters from the supplied values
2614 that are needed to determine window geometry. */
2618 font
= mac_get_arg (parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
2621 /* First, try whatever font the caller has specified. */
2624 tem
= Fquery_fontset (font
, Qnil
);
2626 font
= x_new_fontset (f
, SDATA (tem
));
2628 font
= x_new_font (f
, SDATA (font
));
2631 /* Try out a font which we hope has bold and italic variations. */
2633 if (! STRINGP (font
))
2634 font
= x_new_font (f
, "-*-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1");
2636 if (! STRINGP (font
))
2637 font
= x_new_font (f
, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1");
2638 /* If those didn't work, look for something which will at least work. */
2639 if (! STRINGP (font
))
2640 font
= x_new_fontset (f
, "fontset-standard");
2641 if (! STRINGP (font
))
2642 font
= x_new_font (f
, "-*-monaco-*-12-*-mac-roman");
2643 if (! STRINGP (font
))
2644 font
= x_new_font (f
, "-*-courier-*-10-*-mac-roman");
2645 if (! STRINGP (font
))
2646 error ("Cannot find any usable font");
2649 x_default_parameter (f
, parms
, Qfont
, font
,
2650 "font", "Font", RES_TYPE_STRING
);
2653 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
2654 "borderwidth", "BorderWidth", RES_TYPE_NUMBER
);
2655 /* This defaults to 2 in order to match xterm. We recognize either
2656 internalBorderWidth or internalBorder (which is what xterm calls
2658 if (NILP (Fassq (Qinternal_border_width
, parms
)))
2662 value
= mac_get_arg (parms
, Qinternal_border_width
,
2663 "internalBorder", "InternalBorder", RES_TYPE_NUMBER
);
2664 if (! EQ (value
, Qunbound
))
2665 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
2668 /* Default internalBorderWidth to 0 on Windows to match other programs. */
2669 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (0),
2670 "internalBorderWidth", "InternalBorder", RES_TYPE_NUMBER
);
2671 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qright
,
2672 "verticalScrollBars", "ScrollBars", RES_TYPE_SYMBOL
);
2674 /* Also do the stuff which must be set before the window exists. */
2675 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
2676 "foreground", "Foreground", RES_TYPE_STRING
);
2677 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
2678 "background", "Background", RES_TYPE_STRING
);
2679 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
2680 "pointerColor", "Foreground", RES_TYPE_STRING
);
2681 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
2682 "cursorColor", "Foreground", RES_TYPE_STRING
);
2683 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
2684 "borderColor", "BorderColor", RES_TYPE_STRING
);
2685 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
2686 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
2687 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
2688 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
2689 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
2690 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
2691 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
2692 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
2695 /* Init faces before x_default_parameter is called for scroll-bar
2696 parameters because that function calls x_set_scroll_bar_width,
2697 which calls change_frame_size, which calls Fset_window_buffer,
2698 which runs hooks, which call Fvertical_motion. At the end, we
2699 end up in init_iterator with a null face cache, which should not
2701 init_frame_faces (f
);
2703 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
2704 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
2705 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
2706 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
2707 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
2708 "bufferPredicate", "BufferPredicate",
2710 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
2711 "title", "Title", RES_TYPE_STRING
);
2712 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
2713 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
2715 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
2717 /* Compute the size of the window. */
2718 window_prompting
= x_figure_window_size (f
, parms
, 1);
2720 tem
= mac_get_arg (parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
2721 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
2728 /* Now consider the frame official. */
2729 FRAME_MAC_DISPLAY_INFO (f
)->reference_count
++;
2730 Vframe_list
= Fcons (frame
, Vframe_list
);
2732 /* We need to do this after creating the window, so that the
2733 icon-creation functions can say whose icon they're describing. */
2734 x_default_parameter (f
, parms
, Qicon_type
, Qnil
,
2735 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
2737 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
2738 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
2739 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
2740 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
2741 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
2742 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
2743 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
2744 "scrollBarWidth", "ScrollBarWidth",
2747 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
2748 Change will not be effected unless different from the current
2750 width
= FRAME_COLS (f
);
2751 height
= FRAME_LINES (f
);
2753 SET_FRAME_COLS (f
, 0);
2754 FRAME_LINES (f
) = 0;
2755 change_frame_size (f
, height
, width
, 1, 0, 0);
2757 /* Tell the server what size and position, etc, we want, and how
2758 badly we want them. This should be done after we have the menu
2759 bar so that its size can be taken into account. */
2761 x_wm_set_size_hint (f
, window_prompting
, 0);
2764 /* Make the window appear on the frame and enable display, unless
2765 the caller says not to. However, with explicit parent, Emacs
2766 cannot control visibility, so don't try. */
2767 if (! f
->output_data
.mac
->explicit_parent
)
2769 Lisp_Object visibility
;
2771 visibility
= mac_get_arg (parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
);
2772 if (EQ (visibility
, Qunbound
))
2775 if (EQ (visibility
, Qicon
))
2776 x_iconify_frame (f
);
2777 else if (! NILP (visibility
))
2778 x_make_frame_visible (f
);
2780 /* Must have been Qnil. */
2784 /* Initialize `default-minibuffer-frame' in case this is the first
2785 frame on this display device. */
2786 if (FRAME_HAS_MINIBUF_P (f
)
2787 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
2788 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
2789 kb
->Vdefault_minibuffer_frame
= frame
;
2791 /* All remaining specified parameters, which have not been "used"
2792 by x_get_arg and friends, now go in the misc. alist of the frame. */
2793 for (tem
= parms
; !NILP (tem
); tem
= XCDR (tem
))
2794 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
2795 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
2799 /* Make sure windows on this frame appear in calls to next-window
2800 and similar functions. */
2801 Vwindow_list
= Qnil
;
2803 return unbind_to (count
, frame
);
2807 /* FRAME is used only to get a handle on the X display. We don't pass the
2808 display info directly because we're called from frame.c, which doesn't
2809 know about that structure. */
2812 x_get_focus_frame (frame
)
2813 struct frame
*frame
;
2815 struct mac_display_info
*dpyinfo
= FRAME_MAC_DISPLAY_INFO (frame
);
2817 if (! dpyinfo
->x_focus_frame
)
2820 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
2825 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
2826 doc
: /* Set the input focus to FRAME.
2827 FRAME nil means use the selected frame. */)
2831 struct frame
*f
= check_x_frame (frame
);
2835 ActivateWindow (ActiveNonFloatingWindow (), false);
2836 ActivateWindow (FRAME_MAC_WINDOW (f
), true);
2838 #if !TARGET_API_MAC_CARBON
2839 /* SelectWindow (Non-Carbon) does not issue deactivate events if the
2840 possibly inactive window that is to be selected is already the
2842 SendBehind (FRAME_MAC_WINDOW (f
), NULL
);
2844 /* This brings the window to the front. */
2845 SelectWindow (FRAME_MAC_WINDOW (f
));
2853 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
2854 doc
: /* Internal function called by `color-defined-p', which see. */)
2856 Lisp_Object color
, frame
;
2859 FRAME_PTR f
= check_x_frame (frame
);
2861 CHECK_STRING (color
);
2863 if (mac_defined_color (f
, SDATA (color
), &foo
, 0))
2869 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
2870 doc
: /* Internal function called by `color-values', which see. */)
2872 Lisp_Object color
, frame
;
2875 FRAME_PTR f
= check_x_frame (frame
);
2877 CHECK_STRING (color
);
2879 if (mac_defined_color (f
, SDATA (color
), &foo
, 0))
2883 rgb
[0] = make_number (foo
.red
);
2884 rgb
[1] = make_number (foo
.green
);
2885 rgb
[2] = make_number (foo
.blue
);
2886 return Flist (3, rgb
);
2892 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
2893 doc
: /* Internal function called by `display-color-p', which see. */)
2895 Lisp_Object display
;
2897 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2899 if (!dpyinfo
->color_p
)
2905 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
2907 doc
: /* Return t if DISPLAY supports shades of gray.
2908 Note that color displays do support shades of gray.
2909 The optional argument DISPLAY specifies which display to ask about.
2910 DISPLAY should be either a frame or a display name (a string).
2911 If omitted or nil, that stands for the selected frame's display. */)
2913 Lisp_Object display
;
2915 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2917 if (dpyinfo
->n_planes
<= 1)
2923 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
2925 doc
: /* Returns the width in pixels of DISPLAY.
2926 The optional argument DISPLAY specifies which display to ask about.
2927 DISPLAY should be either a frame or a display name (a string).
2928 If omitted or nil, that stands for the selected frame's display. */)
2930 Lisp_Object display
;
2932 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2934 return make_number (dpyinfo
->width
);
2937 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
2938 Sx_display_pixel_height
, 0, 1, 0,
2939 doc
: /* Returns the height in pixels of DISPLAY.
2940 The optional argument DISPLAY specifies which display to ask about.
2941 DISPLAY should be either a frame or a display name (a string).
2942 If omitted or nil, that stands for the selected frame's display. */)
2944 Lisp_Object display
;
2946 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2948 return make_number (dpyinfo
->height
);
2951 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
2953 doc
: /* Returns the number of bitplanes of DISPLAY.
2954 The optional argument DISPLAY specifies which display to ask about.
2955 DISPLAY should be either a frame or a display name (a string).
2956 If omitted or nil, that stands for the selected frame's display. */)
2958 Lisp_Object display
;
2960 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2962 return make_number (dpyinfo
->n_planes
);
2965 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
2967 doc
: /* Returns the number of color cells of DISPLAY.
2968 The optional argument DISPLAY specifies which display to ask about.
2969 DISPLAY should be either a frame or a display name (a string).
2970 If omitted or nil, that stands for the selected frame's display. */)
2972 Lisp_Object display
;
2974 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2976 /* We force 24+ bit depths to 24-bit to prevent an overflow. */
2977 return make_number (1 << min (dpyinfo
->n_planes
, 24));
2980 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
2981 Sx_server_max_request_size
,
2983 doc
: /* Returns the maximum request size of the server of DISPLAY.
2984 The optional argument DISPLAY specifies which display to ask about.
2985 DISPLAY should be either a frame or a display name (a string).
2986 If omitted or nil, that stands for the selected frame's display. */)
2988 Lisp_Object display
;
2990 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
2992 return make_number (1);
2995 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
2996 doc
: /* Returns the "vendor ID" string of the Mac OS system (Apple).
2997 The optional argument DISPLAY specifies which display to ask about.
2998 DISPLAY should be either a frame or a display name (a string).
2999 If omitted or nil, that stands for the selected frame's display. */)
3001 Lisp_Object display
;
3003 return build_string ("Apple Computers");
3006 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3007 doc
: /* Returns the version numbers of the Mac OS system.
3008 The value is a list of three integers: the major and minor
3009 version numbers, and the vendor-specific release
3010 number. See also the function `x-server-vendor'.
3012 The optional argument DISPLAY specifies which display to ask about.
3013 DISPLAY should be either a frame or a display name (a string).
3014 If omitted or nil, that stands for the selected frame's display. */)
3016 Lisp_Object display
;
3018 UInt32 response
, major
, minor
, bugfix
;
3022 err
= Gestalt (gestaltSystemVersion
, &response
);
3025 if (response
>= 0x00001040)
3027 err
= Gestalt (gestaltSystemVersionMajor
, &major
);
3029 err
= Gestalt (gestaltSystemVersionMinor
, &minor
);
3031 err
= Gestalt (gestaltSystemVersionBugFix
, &bugfix
);
3035 bugfix
= response
& 0xf;
3037 minor
= response
& 0xf;
3039 /* convert BCD to int */
3040 major
= response
- (response
>> 4) * 6;
3046 error ("Cannot get Mac OS version");
3048 return Fcons (make_number (major
),
3049 Fcons (make_number (minor
),
3050 Fcons (make_number (bugfix
),
3054 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3055 doc
: /* Return the number of screens on the server of DISPLAY.
3056 The optional argument DISPLAY specifies which display to ask about.
3057 DISPLAY should be either a frame or a display name (a string).
3058 If omitted or nil, that stands for the selected frame's display. */)
3060 Lisp_Object display
;
3062 return make_number (1);
3065 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3066 doc
: /* Return the height in millimeters of DISPLAY.
3067 The optional argument DISPLAY specifies which display to ask about.
3068 DISPLAY should be either a frame or a display name (a string).
3069 If omitted or nil, that stands for the selected frame's display. */)
3071 Lisp_Object display
;
3073 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3074 /* Only of the main display. */
3075 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
3079 size
= CGDisplayScreenSize (kCGDirectMainDisplay
);
3082 return make_number ((int) (size
.height
+ .5f
));
3084 /* This is an approximation. */
3085 return make_number ((int) (dpyinfo
->height
* 25.4 / dpyinfo
->resy
));
3089 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3090 doc
: /* Return the width in millimeters of DISPLAY.
3091 The optional argument DISPLAY specifies which display to ask about.
3092 DISPLAY should be either a frame or a display name (a string).
3093 If omitted or nil, that stands for the selected frame's display. */)
3095 Lisp_Object display
;
3097 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3098 /* Only of the main display. */
3099 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
3103 size
= CGDisplayScreenSize (kCGDirectMainDisplay
);
3106 return make_number ((int) (size
.width
+ .5f
));
3108 /* This is an approximation. */
3109 return make_number ((int) (dpyinfo
->width
* 25.4 / dpyinfo
->resx
));
3113 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3114 Sx_display_backing_store
, 0, 1, 0,
3115 doc
: /* Returns an indication of whether DISPLAY does backing store.
3116 The value may be `always', `when-mapped', or `not-useful'.
3117 The optional argument DISPLAY specifies which display to ask about.
3118 DISPLAY should be either a frame or a display name (a string).
3119 If omitted or nil, that stands for the selected frame's display. */)
3121 Lisp_Object display
;
3123 return intern ("not-useful");
3126 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3127 Sx_display_visual_class
, 0, 1, 0,
3128 doc
: /* Returns the visual class of DISPLAY.
3129 The value is one of the symbols `static-gray', `gray-scale',
3130 `static-color', `pseudo-color', `true-color', or `direct-color'.
3132 The optional argument DISPLAY specifies which display to ask about.
3133 DISPLAY should be either a frame or a display name (a string).
3134 If omitted or nil, that stands for the selected frame's display. */)
3136 Lisp_Object display
;
3138 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3141 switch (dpyinfo
->visual
->class)
3143 case StaticGray
: return (intern ("static-gray"));
3144 case GrayScale
: return (intern ("gray-scale"));
3145 case StaticColor
: return (intern ("static-color"));
3146 case PseudoColor
: return (intern ("pseudo-color"));
3147 case TrueColor
: return (intern ("true-color"));
3148 case DirectColor
: return (intern ("direct-color"));
3150 error ("Display has an unknown visual class");
3154 return (intern ("true-color"));
3157 DEFUN ("x-display-save-under", Fx_display_save_under
,
3158 Sx_display_save_under
, 0, 1, 0,
3159 doc
: /* Returns t if DISPLAY supports the save-under feature.
3160 The optional argument DISPLAY specifies which display to ask about.
3161 DISPLAY should be either a frame or a display name (a string).
3162 If omitted or nil, that stands for the selected frame's display. */)
3164 Lisp_Object display
;
3171 register struct frame
*f
;
3173 return FRAME_PIXEL_WIDTH (f
);
3178 register struct frame
*f
;
3180 return FRAME_PIXEL_HEIGHT (f
);
3185 register struct frame
*f
;
3187 return FRAME_COLUMN_WIDTH (f
);
3192 register struct frame
*f
;
3194 return FRAME_LINE_HEIGHT (f
);
3199 register struct frame
*f
;
3201 return FRAME_MAC_DISPLAY_INFO (f
)->n_planes
;
3204 /* Return the display structure for the display named NAME.
3205 Open a new connection if necessary. */
3207 struct mac_display_info
*
3208 x_display_info_for_name (name
)
3212 struct mac_display_info
*dpyinfo
;
3214 CHECK_STRING (name
);
3216 if (! EQ (Vwindow_system
, intern ("mac")))
3217 error ("Not using Mac native windows");
3219 for (dpyinfo
= &one_mac_display_info
, names
= x_display_name_list
;
3221 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
3224 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
3229 /* Use this general default value to start with. */
3230 Vx_resource_name
= Vinvocation_name
;
3232 validate_x_resource_name ();
3234 dpyinfo
= mac_term_init (name
, (unsigned char *) 0,
3235 (char *) SDATA (Vx_resource_name
));
3238 error ("Cannot connect to server %s", SDATA (name
));
3241 XSETFASTINT (Vwindow_system_version
, 3);
3246 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
3248 doc
: /* Open a connection to a server.
3249 DISPLAY is the name of the display to connect to.
3250 Optional second arg XRM-STRING is a string of resources in xrdb format.
3251 If the optional third arg MUST-SUCCEED is non-nil,
3252 terminate Emacs if we can't open the connection. */)
3253 (display
, xrm_string
, must_succeed
)
3254 Lisp_Object display
, xrm_string
, must_succeed
;
3256 unsigned char *xrm_option
;
3257 struct mac_display_info
*dpyinfo
;
3259 CHECK_STRING (display
);
3260 if (! NILP (xrm_string
))
3261 CHECK_STRING (xrm_string
);
3263 if (! EQ (Vwindow_system
, intern ("mac")))
3264 error ("Not using Mac native windows");
3266 if (! NILP (xrm_string
))
3267 xrm_option
= (unsigned char *) SDATA (xrm_string
);
3269 xrm_option
= (unsigned char *) 0;
3271 validate_x_resource_name ();
3273 /* This is what opens the connection and sets x_current_display.
3274 This also initializes many symbols, such as those used for input. */
3275 dpyinfo
= mac_term_init (display
, xrm_option
,
3276 (char *) SDATA (Vx_resource_name
));
3280 if (!NILP (must_succeed
))
3281 fatal ("Cannot connect to server %s.\n",
3284 error ("Cannot connect to server %s", SDATA (display
));
3289 XSETFASTINT (Vwindow_system_version
, 3);
3293 DEFUN ("x-close-connection", Fx_close_connection
,
3294 Sx_close_connection
, 1, 1, 0,
3295 doc
: /* Close the connection to DISPLAY's server.
3296 For DISPLAY, specify either a frame or a display name (a string).
3297 If DISPLAY is nil, that stands for the selected frame's display. */)
3299 Lisp_Object display
;
3301 struct mac_display_info
*dpyinfo
= check_x_display_info (display
);
3304 if (dpyinfo
->reference_count
> 0)
3305 error ("Display still has frames on it");
3308 /* Free the fonts in the font table. */
3309 for (i
= 0; i
< dpyinfo
->n_fonts
; i
++)
3310 if (dpyinfo
->font_table
[i
].name
)
3312 mac_unload_font (dpyinfo
, dpyinfo
->font_table
[i
].font
);
3315 x_destroy_all_bitmaps (dpyinfo
);
3317 x_delete_display (dpyinfo
);
3323 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
3324 doc
: /* Return the list of display names that Emacs has connections to. */)
3327 Lisp_Object tail
, result
;
3330 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
3331 result
= Fcons (XCAR (XCAR (tail
)), result
);
3336 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
3337 doc
: /* This is a noop on Mac OS systems. */)
3339 Lisp_Object display
, on
;
3344 /* x_sync is a no-op on Mac. */
3353 /***********************************************************************
3355 ***********************************************************************/
3357 DEFUN ("x-change-window-property", Fx_change_window_property
,
3358 Sx_change_window_property
, 2, 6, 0,
3359 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
3360 VALUE may be a string or a list of conses, numbers and/or strings.
3361 If an element in the list is a string, it is converted to
3362 an Atom and the value of the Atom is used. If an element is a cons,
3363 it is converted to a 32 bit number where the car is the 16 top bits and the
3364 cdr is the lower 16 bits.
3365 FRAME nil or omitted means use the selected frame.
3366 If TYPE is given and non-nil, it is the name of the type of VALUE.
3367 If TYPE is not given or nil, the type is STRING.
3368 FORMAT gives the size in bits of each element if VALUE is a list.
3369 It must be one of 8, 16 or 32.
3370 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
3371 If OUTER_P is non-nil, the property is changed for the outer X window of
3372 FRAME. Default is to change on the edit X window.
3375 (prop
, value
, frame
, type
, format
, outer_p
)
3376 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
3378 #if 0 /* MAC_TODO : port window properties to Mac */
3379 struct frame
*f
= check_x_frame (frame
);
3382 CHECK_STRING (prop
);
3383 CHECK_STRING (value
);
3386 prop_atom
= XInternAtom (FRAME_W32_DISPLAY (f
), SDATA (prop
), False
);
3387 XChangeProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
),
3388 prop_atom
, XA_STRING
, 8, PropModeReplace
,
3389 SDATA (value
), SCHARS (value
));
3391 /* Make sure the property is set when we return. */
3392 XFlush (FRAME_W32_DISPLAY (f
));
3395 #endif /* MAC_TODO */
3401 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
3402 Sx_delete_window_property
, 1, 2, 0,
3403 doc
: /* Remove window property PROP from X window of FRAME.
3404 FRAME nil or omitted means use the selected frame. Value is PROP. */)
3406 Lisp_Object prop
, frame
;
3408 #if 0 /* MAC_TODO : port window properties to Mac */
3410 struct frame
*f
= check_x_frame (frame
);
3413 CHECK_STRING (prop
);
3415 prop_atom
= XInternAtom (FRAME_W32_DISPLAY (f
), SDATA (prop
), False
);
3416 XDeleteProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
), prop_atom
);
3418 /* Make sure the property is removed when we return. */
3419 XFlush (FRAME_W32_DISPLAY (f
));
3421 #endif /* MAC_TODO */
3427 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
3429 doc
: /* Value is the value of window property PROP on FRAME.
3430 If FRAME is nil or omitted, use the selected frame. Value is nil
3431 if FRAME hasn't a property with name PROP or if PROP has no string
3434 Lisp_Object prop
, frame
;
3436 #if 0 /* MAC_TODO : port window properties to Mac */
3438 struct frame
*f
= check_x_frame (frame
);
3441 Lisp_Object prop_value
= Qnil
;
3442 char *tmp_data
= NULL
;
3445 unsigned long actual_size
, bytes_remaining
;
3447 CHECK_STRING (prop
);
3449 prop_atom
= XInternAtom (FRAME_W32_DISPLAY (f
), SDATA (prop
), False
);
3450 rc
= XGetWindowProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
),
3451 prop_atom
, 0, 0, False
, XA_STRING
,
3452 &actual_type
, &actual_format
, &actual_size
,
3453 &bytes_remaining
, (unsigned char **) &tmp_data
);
3456 int size
= bytes_remaining
;
3461 rc
= XGetWindowProperty (FRAME_W32_DISPLAY (f
), FRAME_W32_WINDOW (f
),
3462 prop_atom
, 0, bytes_remaining
,
3464 &actual_type
, &actual_format
,
3465 &actual_size
, &bytes_remaining
,
3466 (unsigned char **) &tmp_data
);
3468 prop_value
= make_string (tmp_data
, size
);
3477 #endif /* MAC_TODO */
3483 /***********************************************************************
3485 ***********************************************************************/
3487 /* If non-null, an asynchronous timer that, when it expires, displays
3488 an hourglass cursor on all frames. */
3490 static struct atimer
*hourglass_atimer
;
3492 /* Non-zero means an hourglass cursor is currently shown. */
3494 static int hourglass_shown_p
;
3496 /* Number of seconds to wait before displaying an hourglass cursor. */
3498 static Lisp_Object Vhourglass_delay
;
3500 /* Default number of seconds to wait before displaying an hourglass
3503 #define DEFAULT_HOURGLASS_DELAY 1
3505 /* Function prototypes. */
3507 static void show_hourglass
P_ ((struct atimer
*));
3508 static void hide_hourglass
P_ ((void));
3510 /* Return non-zero if houglass timer has been started or hourglass is shown. */
3513 hourglass_started ()
3515 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
3519 /* Cancel a currently active hourglass timer, and start a new one. */
3526 int secs
, usecs
= 0;
3528 /* Don't bother for ttys. */
3529 if (NILP (Vwindow_system
))
3532 cancel_hourglass ();
3534 if (INTEGERP (Vhourglass_delay
)
3535 && XINT (Vhourglass_delay
) > 0)
3536 secs
= XFASTINT (Vhourglass_delay
);
3537 else if (FLOATP (Vhourglass_delay
)
3538 && XFLOAT_DATA (Vhourglass_delay
) > 0)
3541 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
3542 secs
= XFASTINT (tem
);
3543 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
3546 secs
= DEFAULT_HOURGLASS_DELAY
;
3548 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
3549 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
3550 show_hourglass
, NULL
);
3551 #endif /* MAC_OSX */
3555 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
3562 if (hourglass_atimer
)
3564 cancel_atimer (hourglass_atimer
);
3565 hourglass_atimer
= NULL
;
3568 if (hourglass_shown_p
)
3570 #endif /* MAC_OSX */
3574 /* Timer function of hourglass_atimer. TIMER is equal to
3577 On Mac, busy status is shown by the progress indicator (chasing
3578 arrows) at the upper-right corner of each frame instead of the
3579 hourglass pointer. */
3582 show_hourglass (timer
)
3583 struct atimer
*timer
;
3585 #if TARGET_API_MAC_CARBON
3586 /* The timer implementation will cancel this timer automatically
3587 after this function has run. Set hourglass_atimer to null
3588 so that we know the timer doesn't have to be canceled. */
3589 hourglass_atimer
= NULL
;
3591 if (!hourglass_shown_p
)
3593 Lisp_Object rest
, frame
;
3597 FOR_EACH_FRAME (rest
, frame
)
3599 struct frame
*f
= XFRAME (frame
);
3601 if (FRAME_LIVE_P (f
) && FRAME_MAC_P (f
)
3602 && FRAME_MAC_WINDOW (f
) != tip_window
)
3605 mac_prepare_for_quickdraw (f
);
3607 if (!f
->output_data
.mac
->hourglass_control
)
3609 Window w
= FRAME_MAC_WINDOW (f
);
3613 GetWindowPortBounds (w
, &r
);
3614 r
.left
= r
.right
- HOURGLASS_WIDTH
;
3615 r
.bottom
= r
.top
+ HOURGLASS_HEIGHT
;
3616 if (CreateChasingArrowsControl (w
, &r
, &c
) == noErr
)
3617 f
->output_data
.mac
->hourglass_control
= c
;
3620 if (f
->output_data
.mac
->hourglass_control
)
3621 ShowControl (f
->output_data
.mac
->hourglass_control
);
3625 hourglass_shown_p
= 1;
3628 #endif /* TARGET_API_MAC_CARBON */
3632 /* Hide the progress indicators on all frames, if it is currently
3638 #if TARGET_API_MAC_CARBON
3639 if (hourglass_shown_p
)
3641 Lisp_Object rest
, frame
;
3644 FOR_EACH_FRAME (rest
, frame
)
3646 struct frame
*f
= XFRAME (frame
);
3649 /* Watch out for newly created frames. */
3650 && f
->output_data
.mac
->hourglass_control
)
3653 mac_prepare_for_quickdraw (f
);
3655 HideControl (f
->output_data
.mac
->hourglass_control
);
3659 hourglass_shown_p
= 0;
3662 #endif /* TARGET_API_MAC_CARBON */
3667 /***********************************************************************
3669 ***********************************************************************/
3671 static Lisp_Object x_create_tip_frame
P_ ((struct mac_display_info
*,
3672 Lisp_Object
, Lisp_Object
));
3673 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
3674 Lisp_Object
, int, int, int *, int *));
3676 /* The frame of a currently visible tooltip. */
3678 Lisp_Object tip_frame
;
3680 /* If non-nil, a timer started that hides the last tooltip when it
3683 Lisp_Object tip_timer
;
3686 /* If non-nil, a vector of 3 elements containing the last args
3687 with which x-show-tip was called. See there. */
3689 Lisp_Object last_show_tip_args
;
3691 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
3693 Lisp_Object Vx_max_tooltip_size
;
3697 unwind_create_tip_frame (frame
)
3700 Lisp_Object deleted
;
3702 deleted
= unwind_create_frame (frame
);
3703 if (EQ (deleted
, Qt
))
3713 /* Create a frame for a tooltip on the display described by DPYINFO.
3714 PARMS is a list of frame parameters. TEXT is the string to
3715 display in the tip frame. Value is the frame.
3717 Note that functions called here, esp. x_default_parameter can
3718 signal errors, for instance when a specified color name is
3719 undefined. We have to make sure that we're in a consistent state
3720 when this happens. */
3723 x_create_tip_frame (dpyinfo
, parms
, text
)
3724 struct mac_display_info
*dpyinfo
;
3725 Lisp_Object parms
, text
;
3728 Lisp_Object frame
, tem
;
3730 long window_prompting
= 0;
3732 int count
= SPECPDL_INDEX ();
3733 struct gcpro gcpro1
, gcpro2
, gcpro3
;
3735 int face_change_count_before
= face_change_count
;
3737 struct buffer
*old_buffer
;
3741 parms
= Fcopy_alist (parms
);
3744 kb
= dpyinfo
->kboard
;
3746 kb
= &the_only_kboard
;
3749 /* Get the name of the frame to use for resource lookup. */
3750 name
= mac_get_arg (parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3752 && !EQ (name
, Qunbound
)
3754 error ("Invalid frame name--not a string or nil");
3757 GCPRO3 (parms
, name
, frame
);
3759 XSETFRAME (frame
, f
);
3761 buffer
= Fget_buffer_create (build_string (" *tip*"));
3762 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
3763 old_buffer
= current_buffer
;
3764 set_buffer_internal_1 (XBUFFER (buffer
));
3765 current_buffer
->truncate_lines
= Qnil
;
3766 specbind (Qinhibit_read_only
, Qt
);
3767 specbind (Qinhibit_modification_hooks
, Qt
);
3770 set_buffer_internal_1 (old_buffer
);
3772 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
3773 record_unwind_protect (unwind_create_tip_frame
, frame
);
3775 /* By setting the output method, we're essentially saying that
3776 the frame is live, as per FRAME_LIVE_P. If we get a signal
3777 from this point on, x_destroy_window might screw up reference
3779 f
->output_method
= output_mac
;
3780 f
->output_data
.mac
=
3781 (struct mac_output
*) xmalloc (sizeof (struct mac_output
));
3782 bzero (f
->output_data
.mac
, sizeof (struct mac_output
));
3784 FRAME_FONTSET (f
) = -1;
3785 f
->icon_name
= Qnil
;
3786 /* FRAME_X_DISPLAY_INFO (f) = dpyinfo; */
3788 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
3789 dpyinfo_refcount
= dpyinfo
->reference_count
;
3790 #endif /* GLYPH_DEBUG */
3792 FRAME_KBOARD (f
) = kb
;
3794 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
3795 f
->output_data
.mac
->explicit_parent
= 0;
3797 /* Set the name; the functions to which we pass f expect the name to
3799 if (EQ (name
, Qunbound
) || NILP (name
))
3801 f
->name
= build_string (dpyinfo
->mac_id_name
);
3802 f
->explicit_name
= 0;
3807 f
->explicit_name
= 1;
3808 /* use the frame's title when getting resources for this frame. */
3809 specbind (Qx_resource_name
, name
);
3812 /* Extract the window parameters from the supplied values that are
3813 needed to determine window geometry. */
3817 font
= mac_get_arg (parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3820 /* First, try whatever font the caller has specified. */
3823 tem
= Fquery_fontset (font
, Qnil
);
3825 font
= x_new_fontset (f
, SDATA (tem
));
3827 font
= x_new_font (f
, SDATA (font
));
3830 /* Try out a font which we hope has bold and italic variations. */
3832 if (! STRINGP (font
))
3833 font
= x_new_font (f
, "-*-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1");
3835 if (! STRINGP (font
))
3836 font
= x_new_font (f
, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1");
3837 /* If those didn't work, look for something which will at least work. */
3838 if (! STRINGP (font
))
3839 font
= x_new_fontset (f
, "fontset-standard");
3840 if (! STRINGP (font
))
3841 font
= x_new_font (f
, "-*-monaco-*-12-*-mac-roman");
3842 if (! STRINGP (font
))
3843 font
= x_new_font (f
, "-*-courier-*-10-*-mac-roman");
3845 if (! STRINGP (font
))
3846 error ("Cannot find any usable font");
3848 x_default_parameter (f
, parms
, Qfont
, font
,
3849 "font", "Font", RES_TYPE_STRING
);
3852 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3853 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3855 /* This defaults to 2 in order to match xterm. We recognize either
3856 internalBorderWidth or internalBorder (which is what xterm calls
3858 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3862 value
= mac_get_arg (parms
, Qinternal_border_width
,
3863 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3864 if (! EQ (value
, Qunbound
))
3865 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3869 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3870 "internalBorderWidth", "internalBorderWidth",
3873 /* Also do the stuff which must be set before the window exists. */
3874 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3875 "foreground", "Foreground", RES_TYPE_STRING
);
3876 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3877 "background", "Background", RES_TYPE_STRING
);
3878 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3879 "pointerColor", "Foreground", RES_TYPE_STRING
);
3880 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3881 "cursorColor", "Foreground", RES_TYPE_STRING
);
3882 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3883 "borderColor", "BorderColor", RES_TYPE_STRING
);
3885 /* Init faces before x_default_parameter is called for scroll-bar
3886 parameters because that function calls x_set_scroll_bar_width,
3887 which calls change_frame_size, which calls Fset_window_buffer,
3888 which runs hooks, which call Fvertical_motion. At the end, we
3889 end up in init_iterator with a null face cache, which should not
3891 init_frame_faces (f
);
3893 f
->output_data
.mac
->parent_desc
= FRAME_MAC_DISPLAY_INFO (f
)->root_window
;
3895 window_prompting
= x_figure_window_size (f
, parms
, 0);
3901 SetRect (&r
, 0, 0, 1, 1);
3902 #if TARGET_API_MAC_CARBON
3903 if (CreateNewWindow (kHelpWindowClass
,
3904 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
3905 kWindowIgnoreClicksAttribute
|
3907 kWindowNoUpdatesAttribute
|
3908 kWindowNoActivatesAttribute
,
3909 &r
, &tip_window
) == noErr
)
3911 if (tip_window
= NewCWindow (NULL
, &r
, "\p", false, plainDBox
,
3915 FRAME_MAC_WINDOW (f
) = tip_window
;
3916 XSetWindowBackground (FRAME_MAC_DISPLAY(f
), tip_window
,
3917 FRAME_BACKGROUND_PIXEL (f
));
3918 SetWRefCon (tip_window
, (long) f
->output_data
.mac
);
3919 /* so that update events can find this mac_output struct */
3920 f
->output_data
.mac
->mFP
= f
;
3927 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3928 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3929 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3930 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3931 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3932 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3934 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3935 Change will not be effected unless different from the current
3937 width
= FRAME_COLS (f
);
3938 height
= FRAME_LINES (f
);
3939 SET_FRAME_COLS (f
, 0);
3940 FRAME_LINES (f
) = 0;
3941 change_frame_size (f
, height
, width
, 1, 0, 0);
3943 /* Add `tooltip' frame parameter's default value. */
3944 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
3945 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
3948 /* Set up faces after all frame parameters are known. This call
3949 also merges in face attributes specified for new frames.
3951 Frame parameters may be changed if .Xdefaults contains
3952 specifications for the default font. For example, if there is an
3953 `Emacs.default.attributeBackground: pink', the `background-color'
3954 attribute of the frame get's set, which let's the internal border
3955 of the tooltip frame appear in pink. Prevent this. */
3957 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
3959 /* Set tip_frame here, so that */
3961 call1 (Qface_set_after_frame_default
, frame
);
3963 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
3964 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
3972 /* It is now ok to make the frame official even if we get an error
3973 below. And the frame needs to be on Vframe_list or making it
3974 visible won't work. */
3975 Vframe_list
= Fcons (frame
, Vframe_list
);
3977 /* Now that the frame is official, it counts as a reference to
3979 FRAME_MAC_DISPLAY_INFO (f
)->reference_count
++;
3981 /* Setting attributes of faces of the tooltip frame from resources
3982 and similar will increment face_change_count, which leads to the
3983 clearing of all current matrices. Since this isn't necessary
3984 here, avoid it by resetting face_change_count to the value it
3985 had before we created the tip frame. */
3986 face_change_count
= face_change_count_before
;
3988 /* Discard the unwind_protect. */
3989 return unbind_to (count
, frame
);
3993 /* Compute where to display tip frame F. PARMS is the list of frame
3994 parameters for F. DX and DY are specified offsets from the current
3995 location of the mouse. WIDTH and HEIGHT are the width and height
3996 of the tooltip. Return coordinates relative to the root window of
3997 the display in *ROOT_X, and *ROOT_Y. */
4000 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4002 Lisp_Object parms
, dx
, dy
;
4004 int *root_x
, *root_y
;
4006 Lisp_Object left
, top
;
4008 /* User-specified position? */
4009 left
= Fcdr (Fassq (Qleft
, parms
));
4010 top
= Fcdr (Fassq (Qtop
, parms
));
4012 /* Move the tooltip window where the mouse pointer is. Resize and
4014 if (!INTEGERP (left
) || !INTEGERP (top
))
4019 GetMouse (&mouse_pos
);
4020 LocalToGlobal (&mouse_pos
);
4021 *root_x
= mouse_pos
.h
;
4022 *root_y
= mouse_pos
.v
;
4027 *root_y
= XINT (top
);
4028 else if (*root_y
+ XINT (dy
) <= 0)
4029 *root_y
= 0; /* Can happen for negative dy */
4030 else if (*root_y
+ XINT (dy
) + height
<= FRAME_MAC_DISPLAY_INFO (f
)->height
)
4031 /* It fits below the pointer */
4032 *root_y
+= XINT (dy
);
4033 else if (height
+ XINT (dy
) <= *root_y
)
4034 /* It fits above the pointer. */
4035 *root_y
-= height
+ XINT (dy
);
4037 /* Put it on the top. */
4040 if (INTEGERP (left
))
4041 *root_x
= XINT (left
);
4042 else if (*root_x
+ XINT (dx
) <= 0)
4043 *root_x
= 0; /* Can happen for negative dx */
4044 else if (*root_x
+ XINT (dx
) + width
<= FRAME_MAC_DISPLAY_INFO (f
)->width
)
4045 /* It fits to the right of the pointer. */
4046 *root_x
+= XINT (dx
);
4047 else if (width
+ XINT (dx
) <= *root_x
)
4048 /* It fits to the left of the pointer. */
4049 *root_x
-= width
+ XINT (dx
);
4051 /* Put it left-justified on the screen -- it ought to fit that way. */
4056 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4057 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4058 A tooltip window is a small window displaying a string.
4060 FRAME nil or omitted means use the selected frame.
4062 PARMS is an optional list of frame parameters which can be used to
4063 change the tooltip's appearance.
4065 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4066 means use the default timeout of 5 seconds.
4068 If the list of frame parameters PARMS contains a `left' parameter,
4069 the tooltip is displayed at that x-position. Otherwise it is
4070 displayed at the mouse position, with offset DX added (default is 5 if
4071 DX isn't specified). Likewise for the y-position; if a `top' frame
4072 parameter is specified, it determines the y-position of the tooltip
4073 window, otherwise it is displayed at the mouse position, with offset
4074 DY added (default is -10).
4076 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4077 Text larger than the specified size is clipped. */)
4078 (string
, frame
, parms
, timeout
, dx
, dy
)
4079 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
4084 struct buffer
*old_buffer
;
4085 struct text_pos pos
;
4086 int i
, width
, height
;
4087 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
4088 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
4089 int count
= SPECPDL_INDEX ();
4091 specbind (Qinhibit_redisplay
, Qt
);
4093 GCPRO4 (string
, parms
, frame
, timeout
);
4095 CHECK_STRING (string
);
4096 f
= check_x_frame (frame
);
4098 timeout
= make_number (5);
4100 CHECK_NATNUM (timeout
);
4103 dx
= make_number (5);
4108 dy
= make_number (-10);
4112 if (NILP (last_show_tip_args
))
4113 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
4115 if (!NILP (tip_frame
))
4117 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
4118 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
4119 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
4121 if (EQ (frame
, last_frame
)
4122 && !NILP (Fequal (last_string
, string
))
4123 && !NILP (Fequal (last_parms
, parms
)))
4125 struct frame
*f
= XFRAME (tip_frame
);
4127 /* Only DX and DY have changed. */
4128 if (!NILP (tip_timer
))
4130 Lisp_Object timer
= tip_timer
;
4132 call1 (Qcancel_timer
, timer
);
4136 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
4137 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
4138 MoveWindow (FRAME_MAC_WINDOW (f
), root_x
, root_y
, false);
4144 /* Hide a previous tip, if any. */
4147 ASET (last_show_tip_args
, 0, string
);
4148 ASET (last_show_tip_args
, 1, frame
);
4149 ASET (last_show_tip_args
, 2, parms
);
4151 /* Add default values to frame parameters. */
4152 if (NILP (Fassq (Qname
, parms
)))
4153 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
4154 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4155 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
4156 if (NILP (Fassq (Qborder_width
, parms
)))
4157 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
4158 if (NILP (Fassq (Qborder_color
, parms
)))
4159 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
4160 if (NILP (Fassq (Qbackground_color
, parms
)))
4161 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
4164 /* Create a frame for the tooltip, and record it in the global
4165 variable tip_frame. */
4166 frame
= x_create_tip_frame (FRAME_MAC_DISPLAY_INFO (f
), parms
, string
);
4169 /* Set up the frame's root window. */
4170 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
4171 w
->left_col
= w
->top_line
= make_number (0);
4173 if (CONSP (Vx_max_tooltip_size
)
4174 && INTEGERP (XCAR (Vx_max_tooltip_size
))
4175 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
4176 && INTEGERP (XCDR (Vx_max_tooltip_size
))
4177 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
4179 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
4180 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
4184 w
->total_cols
= make_number (80);
4185 w
->total_lines
= make_number (40);
4188 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
4190 w
->pseudo_window_p
= 1;
4192 /* Display the tooltip text in a temporary buffer. */
4193 old_buffer
= current_buffer
;
4194 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
4195 current_buffer
->truncate_lines
= Qnil
;
4196 clear_glyph_matrix (w
->desired_matrix
);
4197 clear_glyph_matrix (w
->current_matrix
);
4198 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
4199 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
4201 /* Compute width and height of the tooltip. */
4203 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
4205 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
4209 /* Stop at the first empty row at the end. */
4210 if (!row
->enabled_p
|| !row
->displays_text_p
)
4213 /* Let the row go over the full width of the frame. */
4214 row
->full_width_p
= 1;
4216 /* There's a glyph at the end of rows that is used to place
4217 the cursor there. Don't include the width of this glyph. */
4218 if (row
->used
[TEXT_AREA
])
4220 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
4221 row_width
= row
->pixel_width
- last
->pixel_width
;
4224 row_width
= row
->pixel_width
;
4226 height
+= row
->height
;
4227 width
= max (width
, row_width
);
4230 /* Add the frame's internal border to the width and height the X
4231 window should have. */
4232 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
4233 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
4235 /* Move the tooltip window where the mouse pointer is. Resize and
4237 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
4240 MoveWindow (FRAME_MAC_WINDOW (f
), root_x
, root_y
, false);
4241 SizeWindow (FRAME_MAC_WINDOW (f
), width
, height
, true);
4242 ShowWindow (FRAME_MAC_WINDOW (f
));
4243 BringToFront (FRAME_MAC_WINDOW (f
));
4246 FRAME_PIXEL_WIDTH (f
) = width
;
4247 FRAME_PIXEL_HEIGHT (f
) = height
;
4249 /* Draw into the window. */
4250 w
->must_be_updated_p
= 1;
4251 update_single_window (w
, 1);
4253 /* Restore original current buffer. */
4254 set_buffer_internal_1 (old_buffer
);
4255 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
4258 /* Let the tip disappear after timeout seconds. */
4259 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
4260 intern ("x-hide-tip"));
4263 return unbind_to (count
, Qnil
);
4267 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
4268 doc
: /* Hide the current tooltip window, if there is any.
4269 Value is t if tooltip was open, nil otherwise. */)
4273 Lisp_Object deleted
, frame
, timer
;
4274 struct gcpro gcpro1
, gcpro2
;
4276 /* Return quickly if nothing to do. */
4277 if (NILP (tip_timer
) && NILP (tip_frame
))
4282 GCPRO2 (frame
, timer
);
4283 tip_frame
= tip_timer
= deleted
= Qnil
;
4285 count
= SPECPDL_INDEX ();
4286 specbind (Qinhibit_redisplay
, Qt
);
4287 specbind (Qinhibit_quit
, Qt
);
4290 call1 (Qcancel_timer
, timer
);
4294 Fdelete_frame (frame
, Qnil
);
4299 return unbind_to (count
, deleted
);
4304 #if TARGET_API_MAC_CARBON
4305 /***********************************************************************
4306 File selection dialog
4307 ***********************************************************************/
4309 static pascal void mac_nav_event_callback
P_ ((NavEventCallbackMessage
,
4310 NavCBRecPtr
, void *));
4313 There is a relatively standard way to do this using applescript to run
4314 a (choose file) method. However, this doesn't do "the right thing"
4315 by working only if the find-file occurred during a menu or toolbar
4316 click. So we must do the file dialog by hand, using the navigation
4317 manager. This also has more flexibility in determining the default
4318 directory and whether or not we are going to choose a file.
4321 extern Lisp_Object Qfile_name_history
;
4323 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
4324 doc
: /* Read file name, prompting with PROMPT in directory DIR.
4325 Use a file selection dialog.
4326 Select DEFAULT-FILENAME in the dialog's file selection box, if
4327 specified. Ensure that file exists if MUSTMATCH is non-nil.
4328 If ONLY-DIR-P is non-nil, the user can only select directories. */)
4329 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
4330 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
4332 struct frame
*f
= SELECTED_FRAME ();
4333 Lisp_Object file
= Qnil
;
4334 int count
= SPECPDL_INDEX ();
4335 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
4336 char filename
[MAXPATHLEN
];
4337 static NavEventUPP mac_nav_event_callbackUPP
= NULL
;
4339 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, file
, only_dir_p
);
4340 CHECK_STRING (prompt
);
4343 /* Create the dialog with PROMPT as title, using DIR as initial
4344 directory and using "*" as pattern. */
4345 dir
= Fexpand_file_name (dir
, Qnil
);
4349 NavDialogCreationOptions options
;
4350 NavDialogRef dialogRef
;
4351 NavTypeListHandle fileTypes
= NULL
;
4352 NavUserAction userAction
;
4353 CFStringRef message
=NULL
, saveName
= NULL
;
4356 /* No need for a callback function because we are modal */
4357 NavGetDefaultDialogCreationOptions(&options
);
4358 options
.modality
= kWindowModalityAppModal
;
4359 options
.location
.h
= options
.location
.v
= -1;
4360 options
.optionFlags
= kNavDefaultNavDlogOptions
;
4361 options
.optionFlags
|= kNavAllFilesInPopup
; /* All files allowed */
4362 options
.optionFlags
|= kNavSelectAllReadableItem
;
4363 options
.optionFlags
&= ~kNavAllowMultipleFiles
;
4366 message
= cfstring_create_with_string (prompt
);
4367 options
.message
= message
;
4369 /* Don't set the application, let it use default.
4370 options.clientName = CFSTR ("Emacs");
4373 if (mac_nav_event_callbackUPP
== NULL
)
4374 mac_nav_event_callbackUPP
= NewNavEventUPP (mac_nav_event_callback
);
4376 if (!NILP (only_dir_p
))
4377 status
= NavCreateChooseFolderDialog(&options
, mac_nav_event_callbackUPP
,
4378 NULL
, NULL
, &dialogRef
);
4379 else if (NILP (mustmatch
))
4381 /* This is a save dialog */
4382 options
.optionFlags
|= kNavDontConfirmReplacement
;
4383 options
.actionButtonLabel
= CFSTR ("Ok");
4384 options
.windowTitle
= CFSTR ("Enter name");
4386 if (STRINGP (default_filename
))
4388 Lisp_Object utf8
= ENCODE_UTF_8 (default_filename
);
4389 char *begPtr
= SDATA(utf8
);
4390 char *filePtr
= begPtr
+ SBYTES(utf8
);
4391 while (filePtr
!= begPtr
&& !IS_DIRECTORY_SEP(filePtr
[-1]))
4393 saveName
= cfstring_create_with_utf8_cstring (filePtr
);
4394 options
.saveFileName
= saveName
;
4395 options
.optionFlags
|= kNavSelectDefaultLocation
;
4397 status
= NavCreatePutFileDialog(&options
,
4398 'TEXT', kNavGenericSignature
,
4399 mac_nav_event_callbackUPP
, NULL
,
4404 /* This is an open dialog*/
4405 status
= NavCreateChooseFileDialog(&options
, fileTypes
,
4406 mac_nav_event_callbackUPP
, NULL
,
4407 NULL
, NULL
, &dialogRef
);
4410 /* Set the default location and continue*/
4411 if (status
== noErr
)
4413 Lisp_Object encoded_dir
= ENCODE_FILE (dir
);
4416 status
= AECreateDesc (TYPE_FILE_NAME
, SDATA (encoded_dir
),
4417 SBYTES (encoded_dir
), &defLocAed
);
4418 if (status
== noErr
)
4420 NavCustomControl(dialogRef
, kNavCtlSetLocation
, (void*) &defLocAed
);
4421 AEDisposeDesc(&defLocAed
);
4423 status
= NavDialogRun(dialogRef
);
4426 if (saveName
) CFRelease(saveName
);
4427 if (message
) CFRelease(message
);
4429 if (status
== noErr
) {
4430 userAction
= NavDialogGetUserAction(dialogRef
);
4433 case kNavUserActionNone
:
4434 case kNavUserActionCancel
:
4435 break; /* Treat cancel like C-g */
4436 case kNavUserActionOpen
:
4437 case kNavUserActionChoose
:
4438 case kNavUserActionSaveAs
:
4440 NavReplyRecord reply
;
4443 status
= NavDialogGetReply(dialogRef
, &reply
);
4444 if (status
!= noErr
)
4446 status
= AEGetNthPtr (&reply
.selection
, 1, TYPE_FILE_NAME
,
4447 NULL
, NULL
, filename
,
4448 sizeof (filename
) - 1, &len
);
4449 if (status
== noErr
)
4451 len
= min (len
, sizeof (filename
) - 1);
4452 filename
[len
] = '\0';
4453 if (reply
.saveFileName
)
4455 /* If it was a saved file, we need to add the file name */
4456 if (len
&& len
< sizeof (filename
) - 1
4457 && filename
[len
-1] != '/')
4458 filename
[len
++] = '/';
4459 CFStringGetCString(reply
.saveFileName
, filename
+len
,
4460 sizeof (filename
) - len
,
4462 kCFStringEncodingUTF8
4464 CFStringGetSystemEncoding ()
4468 file
= DECODE_FILE (make_unibyte_string (filename
,
4469 strlen (filename
)));
4471 NavDisposeReply(&reply
);
4475 NavDialogDispose(dialogRef
);
4480 /* Fall back on minibuffer if there was a problem */
4481 file
= Fcompleting_read (prompt
, intern ("read-file-name-internal"),
4482 dir
, mustmatch
, dir
, Qfile_name_history
,
4483 default_filename
, Qnil
);
4489 /* Make "Cancel" equivalent to C-g. */
4491 Fsignal (Qquit
, Qnil
);
4493 return unbind_to (count
, file
);
4497 /* Need to register some event callback function for enabling drag and
4498 drop in Navigation Service dialogs. */
4500 mac_nav_event_callback (selector
, parms
, data
)
4501 NavEventCallbackMessage selector
;
4508 /***********************************************************************
4510 ***********************************************************************/
4512 DEFUN ("mac-clear-font-name-table", Fmac_clear_font_name_table
,
4513 Smac_clear_font_name_table
, 0, 0, 0,
4514 doc
: /* Clear the font name table. */)
4518 mac_clear_font_name_table ();
4522 #if USE_MAC_FONT_PANEL
4523 DEFUN ("mac-set-font-panel-visibility", Fmac_set_font_panel_visibility
,
4524 Smac_set_font_panel_visibility
, 1, 1, 0,
4525 doc
: /* Make the font panel visible if and only if VISIBLE is non-nil.
4526 This is for internal use only. Use `mac-font-panel-mode' instead. */)
4528 Lisp_Object visible
;
4530 OSStatus err
= noErr
;
4535 if (NILP (visible
) != !mac_font_panel_visible_p ())
4537 err
= mac_show_hide_font_panel ();
4538 if (err
== noErr
&& !NILP (visible
))
4540 Lisp_Object focus_frame
= x_get_focus_frame (SELECTED_FRAME ());
4541 struct frame
*f
= (NILP (focus_frame
) ? SELECTED_FRAME ()
4542 : XFRAME (focus_frame
));
4544 mac_set_font_info_for_selection (f
, DEFAULT_FACE_ID
, 0);
4550 error ("Cannot change visibility of the font panel");
4555 /***********************************************************************
4557 ***********************************************************************/
4559 /* Keep this list in the same order as frame_parms in frame.c.
4560 Use 0 for unsupported frame parameters. */
4562 frame_parm_handler mac_frame_parm_handlers
[] =
4566 x_set_background_color
,
4572 x_set_foreground_color
,
4574 0, /* MAC_TODO: x_set_icon_type, */
4575 x_set_internal_border_width
,
4576 x_set_menu_bar_lines
,
4578 x_explicitly_set_name
,
4579 mac_set_scroll_bar_width
,
4582 x_set_vertical_scroll_bars
,
4584 x_set_tool_bar_lines
,
4585 0, /* MAC_TODO: x_set_scroll_bar_foreground, */
4586 0, /* MAC_TODO: x_set_scroll_bar_background, */
4591 0, /* x_set_wait_for_wm, */
4599 /* This is zero if not using Mac native windows. */
4602 /* Certainly running on Mac native windows. */
4606 /* The section below is built by the lisp expression at the top of the file,
4607 just above where these variables are declared. */
4608 /*&&& init symbols here &&&*/
4609 Qnone
= intern ("none");
4611 Qsuppress_icon
= intern ("suppress-icon");
4612 staticpro (&Qsuppress_icon
);
4613 Qundefined_color
= intern ("undefined-color");
4614 staticpro (&Qundefined_color
);
4615 Qcancel_timer
= intern ("cancel-timer");
4616 staticpro (&Qcancel_timer
);
4617 /* This is the end of symbol initialization. */
4619 /* Text property `display' should be nonsticky by default. */
4620 Vtext_property_default_nonsticky
4621 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
4624 Fput (Qundefined_color
, Qerror_conditions
,
4625 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
4626 Fput (Qundefined_color
, Qerror_message
,
4627 build_string ("Undefined color"));
4629 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
4630 doc
: /* The shape of the pointer when over text.
4631 Changing the value does not affect existing frames
4632 unless you set the mouse color. */);
4633 Vx_pointer_shape
= Qnil
;
4635 #if 0 /* This doesn't really do anything. */
4636 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
4637 doc
: /* The shape of the pointer when not over text.
4638 This variable takes effect when you create a new frame
4639 or when you set the mouse color. */);
4641 Vx_nontext_pointer_shape
= Qnil
;
4643 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
4644 doc
: /* The shape of the pointer when Emacs is busy.
4645 This variable takes effect when you create a new frame
4646 or when you set the mouse color. */);
4647 Vx_hourglass_pointer_shape
= Qnil
;
4649 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
4650 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
4651 display_hourglass_p
= 1;
4653 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
4654 doc
: /* *Seconds to wait before displaying an hourglass pointer.
4655 Value must be an integer or float. */);
4656 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
4658 #if 0 /* This doesn't really do anything. */
4659 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
4660 doc
: /* The shape of the pointer when over the mode line.
4661 This variable takes effect when you create a new frame
4662 or when you set the mouse color. */);
4664 Vx_mode_pointer_shape
= Qnil
;
4666 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
4667 &Vx_sensitive_text_pointer_shape
,
4668 doc
: /* The shape of the pointer when over mouse-sensitive text.
4669 This variable takes effect when you create a new frame
4670 or when you set the mouse color. */);
4671 Vx_sensitive_text_pointer_shape
= Qnil
;
4673 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
4674 &Vx_window_horizontal_drag_shape
,
4675 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
4676 This variable takes effect when you create a new frame
4677 or when you set the mouse color. */);
4678 Vx_window_horizontal_drag_shape
= Qnil
;
4680 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
4681 doc
: /* A string indicating the foreground color of the cursor box. */);
4682 Vx_cursor_fore_pixel
= Qnil
;
4684 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
4685 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
4686 Text larger than this is clipped. */);
4687 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
4689 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
4690 doc
: /* Non-nil if no window manager is in use.
4691 Emacs doesn't try to figure this out; this is always nil
4692 unless you set it to something else. */);
4693 /* We don't have any way to find this out, so set it to nil
4694 and maybe the user would like to set it to t. */
4695 Vx_no_window_manager
= Qnil
;
4697 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
4698 &Vx_pixel_size_width_font_regexp
,
4699 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
4701 Since Emacs gets width of a font matching with this regexp from
4702 PIXEL_SIZE field of the name, font finding mechanism gets faster for
4703 such a font. This is especially effective for such large fonts as
4704 Chinese, Japanese, and Korean. */);
4705 Vx_pixel_size_width_font_regexp
= Qnil
;
4707 /* X window properties. */
4708 defsubr (&Sx_change_window_property
);
4709 defsubr (&Sx_delete_window_property
);
4710 defsubr (&Sx_window_property
);
4712 defsubr (&Sxw_display_color_p
);
4713 defsubr (&Sx_display_grayscale_p
);
4714 defsubr (&Sxw_color_defined_p
);
4715 defsubr (&Sxw_color_values
);
4716 defsubr (&Sx_server_max_request_size
);
4717 defsubr (&Sx_server_vendor
);
4718 defsubr (&Sx_server_version
);
4719 defsubr (&Sx_display_pixel_width
);
4720 defsubr (&Sx_display_pixel_height
);
4721 defsubr (&Sx_display_mm_width
);
4722 defsubr (&Sx_display_mm_height
);
4723 defsubr (&Sx_display_screens
);
4724 defsubr (&Sx_display_planes
);
4725 defsubr (&Sx_display_color_cells
);
4726 defsubr (&Sx_display_visual_class
);
4727 defsubr (&Sx_display_backing_store
);
4728 defsubr (&Sx_display_save_under
);
4729 defsubr (&Sx_create_frame
);
4730 defsubr (&Sx_open_connection
);
4731 defsubr (&Sx_close_connection
);
4732 defsubr (&Sx_display_list
);
4733 defsubr (&Sx_synchronize
);
4734 defsubr (&Sx_focus_frame
);
4736 /* Setting callback functions for fontset handler. */
4737 get_font_info_func
= x_get_font_info
;
4739 #if 0 /* This function pointer doesn't seem to be used anywhere.
4740 And the pointer assigned has the wrong type, anyway. */
4741 list_fonts_func
= x_list_fonts
;
4744 load_font_func
= x_load_font
;
4745 find_ccl_program_func
= x_find_ccl_program
;
4746 query_font_func
= x_query_font
;
4747 set_frame_fontset_func
= mac_set_font
;
4748 check_window_system_func
= check_mac
;
4750 hourglass_atimer
= NULL
;
4751 hourglass_shown_p
= 0;
4753 defsubr (&Sx_show_tip
);
4754 defsubr (&Sx_hide_tip
);
4756 staticpro (&tip_timer
);
4758 staticpro (&tip_frame
);
4760 last_show_tip_args
= Qnil
;
4761 staticpro (&last_show_tip_args
);
4763 #if TARGET_API_MAC_CARBON
4764 defsubr (&Sx_file_dialog
);
4766 defsubr (&Smac_clear_font_name_table
);
4767 #if USE_MAC_FONT_PANEL
4768 defsubr (&Smac_set_font_panel_visibility
);
4772 /* arch-tag: d7591289-f374-4377-b245-12f5dbbb8edc
4773 (do not change this comment) */