?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
* xterm.h, xterm.c (x_uncatch_errors): Delete unneccessary
[emacs.git] / src / macfns.c
blob617167dfc467295010ee8aecd9717b47684f105b
1 /* Graphical user interface functions for Mac OS.
2 Copyright (C) 2000, 2001, 2002, 2003, 2004,
3 2005, 2006 Free Software Foundation, Inc.
4
5 This file is part of GNU Emacs.
6
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)
10 any later version.
11
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.
16
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. */
21
22 /* Contributed by Andrew Choi (akochoi@mac.com). */
23
24 #include <config.h>
25 #include <stdio.h>
26 #include <math.h>
27
28 #include "lisp.h"
29 #include "macterm.h"
30 #include "frame.h"
31 #include "window.h"
32 #include "buffer.h"
33 #include "intervals.h"
34 #include "dispextern.h"
35 #include "keyboard.h"
36 #include "blockinput.h"
37 #include <epaths.h>
38 #include "charset.h"
39 #include "coding.h"
40 #include "fontset.h"
41 #include "systime.h"
42 #include "termhooks.h"
43 #include "atimer.h"
44
45 #include <ctype.h>
46 #include <sys/types.h>
47 #include <sys/stat.h>
48 #include <limits.h>
49 #include <errno.h>
50 #include <sys/param.h>
51
52 extern void free_frame_menubar ();
53
54 /* Non-zero means we're allowed to display an hourglass cursor. */
55
56 int display_hourglass_p;
57
58 /* The background and shape of the mouse pointer, and shape when not
59 over text or in the modeline. */
60
61 Lisp_Object Vx_pointer_shape, Vx_nontext_pointer_shape, Vx_mode_pointer_shape;
62 Lisp_Object Vx_hourglass_pointer_shape;
63
64 /* The shape when over mouse-sensitive text. */
65
66 Lisp_Object Vx_sensitive_text_pointer_shape;
67
68 /* If non-nil, the pointer shape to indicate that windows can be
69 dragged horizontally. */
70
71 Lisp_Object Vx_window_horizontal_drag_shape;
72
73 /* Color of chars displayed in cursor box. */
74
75 Lisp_Object Vx_cursor_fore_pixel;
76
77 /* Nonzero if using Windows. */
78
79 static int mac_in_use;
80
81 /* Non nil if no window manager is in use. */
82
83 Lisp_Object Vx_no_window_manager;
84
85 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
86
87 Lisp_Object Vx_pixel_size_width_font_regexp;
88
89 Lisp_Object Qnone;
90 Lisp_Object Qsuppress_icon;
91 Lisp_Object Qundefined_color;
92 Lisp_Object Qcancel_timer;
93
94 /* In dispnew.c */
95
96 extern Lisp_Object Vwindow_system_version;
97
98 #if GLYPH_DEBUG
99 int image_cache_refcount, dpyinfo_refcount;
100 #endif
101
102
103 #if 0 /* Use xstricmp instead. */
104 /* compare two strings ignoring case */
105
106 static int
107 stricmp (const char *s, const char *t)
108 {
109 for ( ; tolower (*s) == tolower (*t); s++, t++)
110 if (*s == '\0')
111 return 0;
112 return tolower (*s) - tolower (*t);
113 }
114 #endif
115
116 /* compare two strings up to n characters, ignoring case */
117
118 static int
119 strnicmp (const char *s, const char *t, unsigned int n)
120 {
121 for ( ; n > 0 && tolower (*s) == tolower (*t); n--, s++, t++)
122 if (*s == '\0')
123 return 0;
124 return n == 0 ? 0 : tolower (*s) - tolower (*t);
125 }
126
127 \f
128 /* Error if we are not running on Mac OS. */
129
130 void
131 check_mac ()
132 {
133 if (! mac_in_use)
134 error ("Mac native windows not in use or not initialized");
135 }
136
137 /* Nonzero if we can use mouse menus.
138 You should not call this unless HAVE_MENUS is defined. */
139
140 int
141 have_menus_p ()
142 {
143 return mac_in_use;
144 }
145
146 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
147 and checking validity for Mac. */
148
149 FRAME_PTR
150 check_x_frame (frame)
151 Lisp_Object frame;
152 {
153 FRAME_PTR f;
154
155 if (NILP (frame))
156 frame = selected_frame;
157 CHECK_LIVE_FRAME (frame);
158 f = XFRAME (frame);
159 if (! FRAME_MAC_P (f))
160 error ("Non-Mac frame used");
161 return f;
162 }
163
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. */
167
168 struct mac_display_info *
169 check_x_display_info (frame)
170 Lisp_Object frame;
171 {
172 struct mac_display_info *dpyinfo = NULL;
173
174 if (NILP (frame))
175 {
176 struct frame *sf = XFRAME (selected_frame);
177
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;
182 else
183 error ("Mac native windows are not in use or not initialized");
184 }
185 else if (STRINGP (frame))
186 dpyinfo = x_display_info_for_name (frame);
187 else
188 {
189 FRAME_PTR f = check_x_frame (frame);
190 dpyinfo = FRAME_MAC_DISPLAY_INFO (f);
191 }
192
193 return dpyinfo;
194 }
195
196 \f
197
198 static Lisp_Object unwind_create_frame P_ ((Lisp_Object));
199 static Lisp_Object unwind_create_tip_frame P_ ((Lisp_Object));
200
201 void x_set_foreground_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
202 void x_set_background_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
203 void x_set_mouse_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
204 void x_set_cursor_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
205 void x_set_border_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
206 void x_set_cursor_type P_ ((struct frame *, Lisp_Object, Lisp_Object));
207 void x_set_icon_type P_ ((struct frame *, Lisp_Object, Lisp_Object));
208 void x_set_icon_name P_ ((struct frame *, Lisp_Object, Lisp_Object));
209 void x_explicitly_set_name P_ ((struct frame *, Lisp_Object, Lisp_Object));
210 void x_set_menu_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object));
211 void x_set_title P_ ((struct frame *, Lisp_Object, Lisp_Object));
212 void x_set_tool_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object));
213 void x_set_scroll_bar_foreground P_ ((struct frame *, Lisp_Object,
214 Lisp_Object));
215 void x_set_scroll_bar_background P_ ((struct frame *, Lisp_Object,
216 Lisp_Object));
217 static Lisp_Object x_default_scroll_bar_color_parameter P_ ((struct frame *,
218 Lisp_Object,
219 Lisp_Object,
220 char *, char *,
221 int));
222
223 extern void mac_get_window_bounds P_ ((struct frame *, Rect *, Rect *));
224
225 \f
226
227 /* Store the screen positions of frame F into XPTR and YPTR.
228 These are the positions of the containing window manager window,
229 not Emacs's own window. */
230
231 void
232 x_real_positions (f, xptr, yptr)
233 FRAME_PTR f;
234 int *xptr, *yptr;
235 {
236 Rect inner, outer;
237
238 mac_get_window_bounds (f, &inner, &outer);
239
240 f->x_pixels_diff = inner.left - outer.left;
241 f->y_pixels_diff = inner.top - outer.top;
242
243 *xptr = outer.left;
244 *yptr = outer.top;
245 }
246
247 \f
248 /* The default colors for the Mac color map */
249 typedef struct colormap_t
250 {
251 unsigned long color;
252 char *name;
253 } colormap_t;
254
255 colormap_t mac_color_map[] =
256 {
257 { RGB_TO_ULONG(255, 250, 250), "snow" },
258 { RGB_TO_ULONG(248, 248, 255), "ghost white" },
259 { RGB_TO_ULONG(248, 248, 255), "GhostWhite" },
260 { RGB_TO_ULONG(245, 245, 245), "white smoke" },
261 { RGB_TO_ULONG(245, 245, 245), "WhiteSmoke" },
262 { RGB_TO_ULONG(220, 220, 220), "gainsboro" },
263 { RGB_TO_ULONG(255, 250, 240), "floral white" },
264 { RGB_TO_ULONG(255, 250, 240), "FloralWhite" },
265 { RGB_TO_ULONG(253, 245, 230), "old lace" },
266 { RGB_TO_ULONG(253, 245, 230), "OldLace" },
267 { RGB_TO_ULONG(250, 240, 230), "linen" },
268 { RGB_TO_ULONG(250, 235, 215), "antique white" },
269 { RGB_TO_ULONG(250, 235, 215), "AntiqueWhite" },
270 { RGB_TO_ULONG(255, 239, 213), "papaya whip" },
271 { RGB_TO_ULONG(255, 239, 213), "PapayaWhip" },
272 { RGB_TO_ULONG(255, 235, 205), "blanched almond" },
273 { RGB_TO_ULONG(255, 235, 205), "BlanchedAlmond" },
274 { RGB_TO_ULONG(255, 228, 196), "bisque" },
275 { RGB_TO_ULONG(255, 218, 185), "peach puff" },
276 { RGB_TO_ULONG(255, 218, 185), "PeachPuff" },
277 { RGB_TO_ULONG(255, 222, 173), "navajo white" },
278 { RGB_TO_ULONG(255, 222, 173), "NavajoWhite" },
279 { RGB_TO_ULONG(255, 228, 181), "moccasin" },
280 { RGB_TO_ULONG(255, 248, 220), "cornsilk" },
281 { RGB_TO_ULONG(255, 255, 240), "ivory" },
282 { RGB_TO_ULONG(255, 250, 205), "lemon chiffon" },
283 { RGB_TO_ULONG(255, 250, 205), "LemonChiffon" },
284 { RGB_TO_ULONG(255, 245, 238), "seashell" },
285 { RGB_TO_ULONG(240, 255, 240), "honeydew" },
286 { RGB_TO_ULONG(245, 255, 250), "mint cream" },
287 { RGB_TO_ULONG(245, 255, 250), "MintCream" },
288 { RGB_TO_ULONG(240, 255, 255), "azure" },
289 { RGB_TO_ULONG(240, 248, 255), "alice blue" },
290 { RGB_TO_ULONG(240, 248, 255), "AliceBlue" },
291 { RGB_TO_ULONG(230, 230, 250), "lavender" },
292 { RGB_TO_ULONG(255, 240, 245), "lavender blush" },
293 { RGB_TO_ULONG(255, 240, 245), "LavenderBlush" },
294 { RGB_TO_ULONG(255, 228, 225), "misty rose" },
295 { RGB_TO_ULONG(255, 228, 225), "MistyRose" },
296 { RGB_TO_ULONG(255, 255, 255), "white" },
297 { RGB_TO_ULONG(0 , 0 , 0 ), "black" },
298 { RGB_TO_ULONG(47 , 79 , 79 ), "dark slate gray" },
299 { RGB_TO_ULONG(47 , 79 , 79 ), "DarkSlateGray" },
300 { RGB_TO_ULONG(47 , 79 , 79 ), "dark slate grey" },
301 { RGB_TO_ULONG(47 , 79 , 79 ), "DarkSlateGrey" },
302 { RGB_TO_ULONG(105, 105, 105), "dim gray" },
303 { RGB_TO_ULONG(105, 105, 105), "DimGray" },
304 { RGB_TO_ULONG(105, 105, 105), "dim grey" },
305 { RGB_TO_ULONG(105, 105, 105), "DimGrey" },
306 { RGB_TO_ULONG(112, 128, 144), "slate gray" },
307 { RGB_TO_ULONG(112, 128, 144), "SlateGray" },
308 { RGB_TO_ULONG(112, 128, 144), "slate grey" },
309 { RGB_TO_ULONG(112, 128, 144), "SlateGrey" },
310 { RGB_TO_ULONG(119, 136, 153), "light slate gray" },
311 { RGB_TO_ULONG(119, 136, 153), "LightSlateGray" },
312 { RGB_TO_ULONG(119, 136, 153), "light slate grey" },
313 { RGB_TO_ULONG(119, 136, 153), "LightSlateGrey" },
314 { RGB_TO_ULONG(190, 190, 190), "gray" },
315 { RGB_TO_ULONG(190, 190, 190), "grey" },
316 { RGB_TO_ULONG(211, 211, 211), "light grey" },
317 { RGB_TO_ULONG(211, 211, 211), "LightGrey" },
318 { RGB_TO_ULONG(211, 211, 211), "light gray" },
319 { RGB_TO_ULONG(211, 211, 211), "LightGray" },
320 { RGB_TO_ULONG(25 , 25 , 112), "midnight blue" },
321 { RGB_TO_ULONG(25 , 25 , 112), "MidnightBlue" },
322 { RGB_TO_ULONG(0 , 0 , 128), "navy" },
323 { RGB_TO_ULONG(0 , 0 , 128), "navy blue" },
324 { RGB_TO_ULONG(0 , 0 , 128), "NavyBlue" },
325 { RGB_TO_ULONG(100, 149, 237), "cornflower blue" },
326 { RGB_TO_ULONG(100, 149, 237), "CornflowerBlue" },
327 { RGB_TO_ULONG(72 , 61 , 139), "dark slate blue" },
328 { RGB_TO_ULONG(72 , 61 , 139), "DarkSlateBlue" },
329 { RGB_TO_ULONG(106, 90 , 205), "slate blue" },
330 { RGB_TO_ULONG(106, 90 , 205), "SlateBlue" },
331 { RGB_TO_ULONG(123, 104, 238), "medium slate blue" },
332 { RGB_TO_ULONG(123, 104, 238), "MediumSlateBlue" },
333 { RGB_TO_ULONG(132, 112, 255), "light slate blue" },
334 { RGB_TO_ULONG(132, 112, 255), "LightSlateBlue" },
335 { RGB_TO_ULONG(0 , 0 , 205), "medium blue" },
336 { RGB_TO_ULONG(0 , 0 , 205), "MediumBlue" },
337 { RGB_TO_ULONG(65 , 105, 225), "royal blue" },
338 { RGB_TO_ULONG(65 , 105, 225), "RoyalBlue" },
339 { RGB_TO_ULONG(0 , 0 , 255), "blue" },
340 { RGB_TO_ULONG(30 , 144, 255), "dodger blue" },
341 { RGB_TO_ULONG(30 , 144, 255), "DodgerBlue" },
342 { RGB_TO_ULONG(0 , 191, 255), "deep sky blue" },
343 { RGB_TO_ULONG(0 , 191, 255), "DeepSkyBlue" },
344 { RGB_TO_ULONG(135, 206, 235), "sky blue" },
345 { RGB_TO_ULONG(135, 206, 235), "SkyBlue" },
346 { RGB_TO_ULONG(135, 206, 250), "light sky blue" },
347 { RGB_TO_ULONG(135, 206, 250), "LightSkyBlue" },
348 { RGB_TO_ULONG(70 , 130, 180), "steel blue" },
349 { RGB_TO_ULONG(70 , 130, 180), "SteelBlue" },
350 { RGB_TO_ULONG(176, 196, 222), "light steel blue" },
351 { RGB_TO_ULONG(176, 196, 222), "LightSteelBlue" },
352 { RGB_TO_ULONG(173, 216, 230), "light blue" },
353 { RGB_TO_ULONG(173, 216, 230), "LightBlue" },
354 { RGB_TO_ULONG(176, 224, 230), "powder blue" },
355 { RGB_TO_ULONG(176, 224, 230), "PowderBlue" },
356 { RGB_TO_ULONG(175, 238, 238), "pale turquoise" },
357 { RGB_TO_ULONG(175, 238, 238), "PaleTurquoise" },
358 { RGB_TO_ULONG(0 , 206, 209), "dark turquoise" },
359 { RGB_TO_ULONG(0 , 206, 209), "DarkTurquoise" },
360 { RGB_TO_ULONG(72 , 209, 204), "medium turquoise" },
361 { RGB_TO_ULONG(72 , 209, 204), "MediumTurquoise" },
362 { RGB_TO_ULONG(64 , 224, 208), "turquoise" },
363 { RGB_TO_ULONG(0 , 255, 255), "cyan" },
364 { RGB_TO_ULONG(224, 255, 255), "light cyan" },
365 { RGB_TO_ULONG(224, 255, 255), "LightCyan" },
366 { RGB_TO_ULONG(95 , 158, 160), "cadet blue" },
367 { RGB_TO_ULONG(95 , 158, 160), "CadetBlue" },
368 { RGB_TO_ULONG(102, 205, 170), "medium aquamarine" },
369 { RGB_TO_ULONG(102, 205, 170), "MediumAquamarine" },
370 { RGB_TO_ULONG(127, 255, 212), "aquamarine" },
371 { RGB_TO_ULONG(0 , 100, 0 ), "dark green" },
372 { RGB_TO_ULONG(0 , 100, 0 ), "DarkGreen" },
373 { RGB_TO_ULONG(85 , 107, 47 ), "dark olive green" },
374 { RGB_TO_ULONG(85 , 107, 47 ), "DarkOliveGreen" },
375 { RGB_TO_ULONG(143, 188, 143), "dark sea green" },
376 { RGB_TO_ULONG(143, 188, 143), "DarkSeaGreen" },
377 { RGB_TO_ULONG(46 , 139, 87 ), "sea green" },
378 { RGB_TO_ULONG(46 , 139, 87 ), "SeaGreen" },
379 { RGB_TO_ULONG(60 , 179, 113), "medium sea green" },
380 { RGB_TO_ULONG(60 , 179, 113), "MediumSeaGreen" },
381 { RGB_TO_ULONG(32 , 178, 170), "light sea green" },
382 { RGB_TO_ULONG(32 , 178, 170), "LightSeaGreen" },
383 { RGB_TO_ULONG(152, 251, 152), "pale green" },
384 { RGB_TO_ULONG(152, 251, 152), "PaleGreen" },
385 { RGB_TO_ULONG(0 , 255, 127), "spring green" },
386 { RGB_TO_ULONG(0 , 255, 127), "SpringGreen" },
387 { RGB_TO_ULONG(124, 252, 0 ), "lawn green" },
388 { RGB_TO_ULONG(124, 252, 0 ), "LawnGreen" },
389 { RGB_TO_ULONG(0 , 255, 0 ), "green" },
390 { RGB_TO_ULONG(127, 255, 0 ), "chartreuse" },
391 { RGB_TO_ULONG(0 , 250, 154), "medium spring green" },
392 { RGB_TO_ULONG(0 , 250, 154), "MediumSpringGreen" },
393 { RGB_TO_ULONG(173, 255, 47 ), "green yellow" },
394 { RGB_TO_ULONG(173, 255, 47 ), "GreenYellow" },
395 { RGB_TO_ULONG(50 , 205, 50 ), "lime green" },
396 { RGB_TO_ULONG(50 , 205, 50 ), "LimeGreen" },
397 { RGB_TO_ULONG(154, 205, 50 ), "yellow green" },
398 { RGB_TO_ULONG(154, 205, 50 ), "YellowGreen" },
399 { RGB_TO_ULONG(34 , 139, 34 ), "forest green" },
400 { RGB_TO_ULONG(34 , 139, 34 ), "ForestGreen" },
401 { RGB_TO_ULONG(107, 142, 35 ), "olive drab" },
402 { RGB_TO_ULONG(107, 142, 35 ), "OliveDrab" },
403 { RGB_TO_ULONG(189, 183, 107), "dark khaki" },
404 { RGB_TO_ULONG(189, 183, 107), "DarkKhaki" },
405 { RGB_TO_ULONG(240, 230, 140), "khaki" },
406 { RGB_TO_ULONG(238, 232, 170), "pale goldenrod" },
407 { RGB_TO_ULONG(238, 232, 170), "PaleGoldenrod" },
408 { RGB_TO_ULONG(250, 250, 210), "light goldenrod yellow" },
409 { RGB_TO_ULONG(250, 250, 210), "LightGoldenrodYellow" },
410 { RGB_TO_ULONG(255, 255, 224), "light yellow" },
411 { RGB_TO_ULONG(255, 255, 224), "LightYellow" },
412 { RGB_TO_ULONG(255, 255, 0 ), "yellow" },
413 { RGB_TO_ULONG(255, 215, 0 ), "gold" },
414 { RGB_TO_ULONG(238, 221, 130), "light goldenrod" },
415 { RGB_TO_ULONG(238, 221, 130), "LightGoldenrod" },
416 { RGB_TO_ULONG(218, 165, 32 ), "goldenrod" },
417 { RGB_TO_ULONG(184, 134, 11 ), "dark goldenrod" },
418 { RGB_TO_ULONG(184, 134, 11 ), "DarkGoldenrod" },
419 { RGB_TO_ULONG(188, 143, 143), "rosy brown" },
420 { RGB_TO_ULONG(188, 143, 143), "RosyBrown" },
421 { RGB_TO_ULONG(205, 92 , 92 ), "indian red" },
422 { RGB_TO_ULONG(205, 92 , 92 ), "IndianRed" },
423 { RGB_TO_ULONG(139, 69 , 19 ), "saddle brown" },
424 { RGB_TO_ULONG(139, 69 , 19 ), "SaddleBrown" },
425 { RGB_TO_ULONG(160, 82 , 45 ), "sienna" },
426 { RGB_TO_ULONG(205, 133, 63 ), "peru" },
427 { RGB_TO_ULONG(222, 184, 135), "burlywood" },
428 { RGB_TO_ULONG(245, 245, 220), "beige" },
429 { RGB_TO_ULONG(245, 222, 179), "wheat" },
430 { RGB_TO_ULONG(244, 164, 96 ), "sandy brown" },
431 { RGB_TO_ULONG(244, 164, 96 ), "SandyBrown" },
432 { RGB_TO_ULONG(210, 180, 140), "tan" },
433 { RGB_TO_ULONG(210, 105, 30 ), "chocolate" },
434 { RGB_TO_ULONG(178, 34 , 34 ), "firebrick" },
435 { RGB_TO_ULONG(165, 42 , 42 ), "brown" },
436 { RGB_TO_ULONG(233, 150, 122), "dark salmon" },
437 { RGB_TO_ULONG(233, 150, 122), "DarkSalmon" },
438 { RGB_TO_ULONG(250, 128, 114), "salmon" },
439 { RGB_TO_ULONG(255, 160, 122), "light salmon" },
440 { RGB_TO_ULONG(255, 160, 122), "LightSalmon" },
441 { RGB_TO_ULONG(255, 165, 0 ), "orange" },
442 { RGB_TO_ULONG(255, 140, 0 ), "dark orange" },
443 { RGB_TO_ULONG(255, 140, 0 ), "DarkOrange" },
444 { RGB_TO_ULONG(255, 127, 80 ), "coral" },
445 { RGB_TO_ULONG(240, 128, 128), "light coral" },
446 { RGB_TO_ULONG(240, 128, 128), "LightCoral" },
447 { RGB_TO_ULONG(255, 99 , 71 ), "tomato" },
448 { RGB_TO_ULONG(255, 69 , 0 ), "orange red" },
449 { RGB_TO_ULONG(255, 69 , 0 ), "OrangeRed" },
450 { RGB_TO_ULONG(255, 0 , 0 ), "red" },
451 { RGB_TO_ULONG(255, 105, 180), "hot pink" },
452 { RGB_TO_ULONG(255, 105, 180), "HotPink" },
453 { RGB_TO_ULONG(255, 20 , 147), "deep pink" },
454 { RGB_TO_ULONG(255, 20 , 147), "DeepPink" },
455 { RGB_TO_ULONG(255, 192, 203), "pink" },
456 { RGB_TO_ULONG(255, 182, 193), "light pink" },
457 { RGB_TO_ULONG(255, 182, 193), "LightPink" },
458 { RGB_TO_ULONG(219, 112, 147), "pale violet red" },
459 { RGB_TO_ULONG(219, 112, 147), "PaleVioletRed" },
460 { RGB_TO_ULONG(176, 48 , 96 ), "maroon" },
461 { RGB_TO_ULONG(199, 21 , 133), "medium violet red" },
462 { RGB_TO_ULONG(199, 21 , 133), "MediumVioletRed" },
463 { RGB_TO_ULONG(208, 32 , 144), "violet red" },
464 { RGB_TO_ULONG(208, 32 , 144), "VioletRed" },
465 { RGB_TO_ULONG(255, 0 , 255), "magenta" },
466 { RGB_TO_ULONG(238, 130, 238), "violet" },
467 { RGB_TO_ULONG(221, 160, 221), "plum" },
468 { RGB_TO_ULONG(218, 112, 214), "orchid" },
469 { RGB_TO_ULONG(186, 85 , 211), "medium orchid" },
470 { RGB_TO_ULONG(186, 85 , 211), "MediumOrchid" },
471 { RGB_TO_ULONG(153, 50 , 204), "dark orchid" },
472 { RGB_TO_ULONG(153, 50 , 204), "DarkOrchid" },
473 { RGB_TO_ULONG(148, 0 , 211), "dark violet" },
474 { RGB_TO_ULONG(148, 0 , 211), "DarkViolet" },
475 { RGB_TO_ULONG(138, 43 , 226), "blue violet" },
476 { RGB_TO_ULONG(138, 43 , 226), "BlueViolet" },
477 { RGB_TO_ULONG(160, 32 , 240), "purple" },
478 { RGB_TO_ULONG(147, 112, 219), "medium purple" },
479 { RGB_TO_ULONG(147, 112, 219), "MediumPurple" },
480 { RGB_TO_ULONG(216, 191, 216), "thistle" },
481 { RGB_TO_ULONG(255, 250, 250), "snow1" },
482 { RGB_TO_ULONG(238, 233, 233), "snow2" },
483 { RGB_TO_ULONG(205, 201, 201), "snow3" },
484 { RGB_TO_ULONG(139, 137, 137), "snow4" },
485 { RGB_TO_ULONG(255, 245, 238), "seashell1" },
486 { RGB_TO_ULONG(238, 229, 222), "seashell2" },
487 { RGB_TO_ULONG(205, 197, 191), "seashell3" },
488 { RGB_TO_ULONG(139, 134, 130), "seashell4" },
489 { RGB_TO_ULONG(255, 239, 219), "AntiqueWhite1" },
490 { RGB_TO_ULONG(238, 223, 204), "AntiqueWhite2" },
491 { RGB_TO_ULONG(205, 192, 176), "AntiqueWhite3" },
492 { RGB_TO_ULONG(139, 131, 120), "AntiqueWhite4" },
493 { RGB_TO_ULONG(255, 228, 196), "bisque1" },
494 { RGB_TO_ULONG(238, 213, 183), "bisque2" },
495 { RGB_TO_ULONG(205, 183, 158), "bisque3" },
496 { RGB_TO_ULONG(139, 125, 107), "bisque4" },
497 { RGB_TO_ULONG(255, 218, 185), "PeachPuff1" },
498 { RGB_TO_ULONG(238, 203, 173), "PeachPuff2" },
499 { RGB_TO_ULONG(205, 175, 149), "PeachPuff3" },
500 { RGB_TO_ULONG(139, 119, 101), "PeachPuff4" },
501 { RGB_TO_ULONG(255, 222, 173), "NavajoWhite1" },
502 { RGB_TO_ULONG(238, 207, 161), "NavajoWhite2" },
503 { RGB_TO_ULONG(205, 179, 139), "NavajoWhite3" },
504 { RGB_TO_ULONG(139, 121, 94), "NavajoWhite4" },
505 { RGB_TO_ULONG(255, 250, 205), "LemonChiffon1" },
506 { RGB_TO_ULONG(238, 233, 191), "LemonChiffon2" },
507 { RGB_TO_ULONG(205, 201, 165), "LemonChiffon3" },
508 { RGB_TO_ULONG(139, 137, 112), "LemonChiffon4" },
509 { RGB_TO_ULONG(255, 248, 220), "cornsilk1" },
510 { RGB_TO_ULONG(238, 232, 205), "cornsilk2" },
511 { RGB_TO_ULONG(205, 200, 177), "cornsilk3" },
512 { RGB_TO_ULONG(139, 136, 120), "cornsilk4" },
513 { RGB_TO_ULONG(255, 255, 240), "ivory1" },
514 { RGB_TO_ULONG(238, 238, 224), "ivory2" },
515 { RGB_TO_ULONG(205, 205, 193), "ivory3" },
516 { RGB_TO_ULONG(139, 139, 131), "ivory4" },
517 { RGB_TO_ULONG(240, 255, 240), "honeydew1" },
518 { RGB_TO_ULONG(224, 238, 224), "honeydew2" },
519 { RGB_TO_ULONG(193, 205, 193), "honeydew3" },
520 { RGB_TO_ULONG(131, 139, 131), "honeydew4" },
521 { RGB_TO_ULONG(255, 240, 245), "LavenderBlush1" },
522 { RGB_TO_ULONG(238, 224, 229), "LavenderBlush2" },
523 { RGB_TO_ULONG(205, 193, 197), "LavenderBlush3" },
524 { RGB_TO_ULONG(139, 131, 134), "LavenderBlush4" },
525 { RGB_TO_ULONG(255, 228, 225), "MistyRose1" },
526 { RGB_TO_ULONG(238, 213, 210), "MistyRose2" },
527 { RGB_TO_ULONG(205, 183, 181), "MistyRose3" },
528 { RGB_TO_ULONG(139, 125, 123), "MistyRose4" },
529 { RGB_TO_ULONG(240, 255, 255), "azure1" },
530 { RGB_TO_ULONG(224, 238, 238), "azure2" },
531 { RGB_TO_ULONG(193, 205, 205), "azure3" },
532 { RGB_TO_ULONG(131, 139, 139), "azure4" },
533 { RGB_TO_ULONG(131, 111, 255), "SlateBlue1" },
534 { RGB_TO_ULONG(122, 103, 238), "SlateBlue2" },
535 { RGB_TO_ULONG(105, 89 , 205), "SlateBlue3" },
536 { RGB_TO_ULONG(71 , 60 , 139), "SlateBlue4" },
537 { RGB_TO_ULONG(72 , 118, 255), "RoyalBlue1" },
538 { RGB_TO_ULONG(67 , 110, 238), "RoyalBlue2" },
539 { RGB_TO_ULONG(58 , 95 , 205), "RoyalBlue3" },
540 { RGB_TO_ULONG(39 , 64 , 139), "RoyalBlue4" },
541 { RGB_TO_ULONG(0 , 0 , 255), "blue1" },
542 { RGB_TO_ULONG(0 , 0 , 238), "blue2" },
543 { RGB_TO_ULONG(0 , 0 , 205), "blue3" },
544 { RGB_TO_ULONG(0 , 0 , 139), "blue4" },
545 { RGB_TO_ULONG(30 , 144, 255), "DodgerBlue1" },
546 { RGB_TO_ULONG(28 , 134, 238), "DodgerBlue2" },
547 { RGB_TO_ULONG(24 , 116, 205), "DodgerBlue3" },
548 { RGB_TO_ULONG(16 , 78 , 139), "DodgerBlue4" },
549 { RGB_TO_ULONG(99 , 184, 255), "SteelBlue1" },
550 { RGB_TO_ULONG(92 , 172, 238), "SteelBlue2" },
551 { RGB_TO_ULONG(79 , 148, 205), "SteelBlue3" },
552 { RGB_TO_ULONG(54 , 100, 139), "SteelBlue4" },
553 { RGB_TO_ULONG(0 , 191, 255), "DeepSkyBlue1" },
554 { RGB_TO_ULONG(0 , 178, 238), "DeepSkyBlue2" },
555 { RGB_TO_ULONG(0 , 154, 205), "DeepSkyBlue3" },
556 { RGB_TO_ULONG(0 , 104, 139), "DeepSkyBlue4" },
557 { RGB_TO_ULONG(135, 206, 255), "SkyBlue1" },
558 { RGB_TO_ULONG(126, 192, 238), "SkyBlue2" },
559 { RGB_TO_ULONG(108, 166, 205), "SkyBlue3" },
560 { RGB_TO_ULONG(74 , 112, 139), "SkyBlue4" },
561 { RGB_TO_ULONG(176, 226, 255), "LightSkyBlue1" },
562 { RGB_TO_ULONG(164, 211, 238), "LightSkyBlue2" },
563 { RGB_TO_ULONG(141, 182, 205), "LightSkyBlue3" },
564 { RGB_TO_ULONG(96 , 123, 139), "LightSkyBlue4" },
565 { RGB_TO_ULONG(198, 226, 255), "SlateGray1" },
566 { RGB_TO_ULONG(185, 211, 238), "SlateGray2" },
567 { RGB_TO_ULONG(159, 182, 205), "SlateGray3" },
568 { RGB_TO_ULONG(108, 123, 139), "SlateGray4" },
569 { RGB_TO_ULONG(202, 225, 255), "LightSteelBlue1" },
570 { RGB_TO_ULONG(188, 210, 238), "LightSteelBlue2" },
571 { RGB_TO_ULONG(162, 181, 205), "LightSteelBlue3" },
572 { RGB_TO_ULONG(110, 123, 139), "LightSteelBlue4" },
573 { RGB_TO_ULONG(191, 239, 255), "LightBlue1" },
574 { RGB_TO_ULONG(178, 223, 238), "LightBlue2" },
575 { RGB_TO_ULONG(154, 192, 205), "LightBlue3" },
576 { RGB_TO_ULONG(104, 131, 139), "LightBlue4" },
577 { RGB_TO_ULONG(224, 255, 255), "LightCyan1" },
578 { RGB_TO_ULONG(209, 238, 238), "LightCyan2" },
579 { RGB_TO_ULONG(180, 205, 205), "LightCyan3" },
580 { RGB_TO_ULONG(122, 139, 139), "LightCyan4" },
581 { RGB_TO_ULONG(187, 255, 255), "PaleTurquoise1" },
582 { RGB_TO_ULONG(174, 238, 238), "PaleTurquoise2" },
583 { RGB_TO_ULONG(150, 205, 205), "PaleTurquoise3" },
584 { RGB_TO_ULONG(102, 139, 139), "PaleTurquoise4" },
585 { RGB_TO_ULONG(152, 245, 255), "CadetBlue1" },
586 { RGB_TO_ULONG(142, 229, 238), "CadetBlue2" },
587 { RGB_TO_ULONG(122, 197, 205), "CadetBlue3" },
588 { RGB_TO_ULONG(83 , 134, 139), "CadetBlue4" },
589 { RGB_TO_ULONG(0 , 245, 255), "turquoise1" },
590 { RGB_TO_ULONG(0 , 229, 238), "turquoise2" },
591 { RGB_TO_ULONG(0 , 197, 205), "turquoise3" },
592 { RGB_TO_ULONG(0 , 134, 139), "turquoise4" },
593 { RGB_TO_ULONG(0 , 255, 255), "cyan1" },
594 { RGB_TO_ULONG(0 , 238, 238), "cyan2" },
595 { RGB_TO_ULONG(0 , 205, 205), "cyan3" },
596 { RGB_TO_ULONG(0 , 139, 139), "cyan4" },
597 { RGB_TO_ULONG(151, 255, 255), "DarkSlateGray1" },
598 { RGB_TO_ULONG(141, 238, 238), "DarkSlateGray2" },
599 { RGB_TO_ULONG(121, 205, 205), "DarkSlateGray3" },
600 { RGB_TO_ULONG(82 , 139, 139), "DarkSlateGray4" },
601 { RGB_TO_ULONG(127, 255, 212), "aquamarine1" },
602 { RGB_TO_ULONG(118, 238, 198), "aquamarine2" },
603 { RGB_TO_ULONG(102, 205, 170), "aquamarine3" },
604 { RGB_TO_ULONG(69 , 139, 116), "aquamarine4" },
605 { RGB_TO_ULONG(193, 255, 193), "DarkSeaGreen1" },
606 { RGB_TO_ULONG(180, 238, 180), "DarkSeaGreen2" },
607 { RGB_TO_ULONG(155, 205, 155), "DarkSeaGreen3" },
608 { RGB_TO_ULONG(105, 139, 105), "DarkSeaGreen4" },
609 { RGB_TO_ULONG(84 , 255, 159), "SeaGreen1" },
610 { RGB_TO_ULONG(78 , 238, 148), "SeaGreen2" },
611 { RGB_TO_ULONG(67 , 205, 128), "SeaGreen3" },
612 { RGB_TO_ULONG(46 , 139, 87 ), "SeaGreen4" },
613 { RGB_TO_ULONG(154, 255, 154), "PaleGreen1" },
614 { RGB_TO_ULONG(144, 238, 144), "PaleGreen2" },
615 { RGB_TO_ULONG(124, 205, 124), "PaleGreen3" },
616 { RGB_TO_ULONG(84 , 139, 84 ), "PaleGreen4" },
617 { RGB_TO_ULONG(0 , 255, 127), "SpringGreen1" },
618 { RGB_TO_ULONG(0 , 238, 118), "SpringGreen2" },
619 { RGB_TO_ULONG(0 , 205, 102), "SpringGreen3" },
620 { RGB_TO_ULONG(0 , 139, 69 ), "SpringGreen4" },
621 { RGB_TO_ULONG(0 , 255, 0 ), "green1" },
622 { RGB_TO_ULONG(0 , 238, 0 ), "green2" },
623 { RGB_TO_ULONG(0 , 205, 0 ), "green3" },
624 { RGB_TO_ULONG(0 , 139, 0 ), "green4" },
625 { RGB_TO_ULONG(127, 255, 0 ), "chartreuse1" },
626 { RGB_TO_ULONG(118, 238, 0 ), "chartreuse2" },
627 { RGB_TO_ULONG(102, 205, 0 ), "chartreuse3" },
628 { RGB_TO_ULONG(69 , 139, 0 ), "chartreuse4" },
629 { RGB_TO_ULONG(192, 255, 62 ), "OliveDrab1" },
630 { RGB_TO_ULONG(179, 238, 58 ), "OliveDrab2" },
631 { RGB_TO_ULONG(154, 205, 50 ), "OliveDrab3" },
632 { RGB_TO_ULONG(105, 139, 34 ), "OliveDrab4" },
633 { RGB_TO_ULONG(202, 255, 112), "DarkOliveGreen1" },
634 { RGB_TO_ULONG(188, 238, 104), "DarkOliveGreen2" },
635 { RGB_TO_ULONG(162, 205, 90 ), "DarkOliveGreen3" },
636 { RGB_TO_ULONG(110, 139, 61 ), "DarkOliveGreen4" },
637 { RGB_TO_ULONG(255, 246, 143), "khaki1" },
638 { RGB_TO_ULONG(238, 230, 133), "khaki2" },
639 { RGB_TO_ULONG(205, 198, 115), "khaki3" },
640 { RGB_TO_ULONG(139, 134, 78 ), "khaki4" },
641 { RGB_TO_ULONG(255, 236, 139), "LightGoldenrod1" },
642 { RGB_TO_ULONG(238, 220, 130), "LightGoldenrod2" },
643 { RGB_TO_ULONG(205, 190, 112), "LightGoldenrod3" },
644 { RGB_TO_ULONG(139, 129, 76 ), "LightGoldenrod4" },
645 { RGB_TO_ULONG(255, 255, 224), "LightYellow1" },
646 { RGB_TO_ULONG(238, 238, 209), "LightYellow2" },
647 { RGB_TO_ULONG(205, 205, 180), "LightYellow3" },
648 { RGB_TO_ULONG(139, 139, 122), "LightYellow4" },
649 { RGB_TO_ULONG(255, 255, 0 ), "yellow1" },
650 { RGB_TO_ULONG(238, 238, 0 ), "yellow2" },
651 { RGB_TO_ULONG(205, 205, 0 ), "yellow3" },
652 { RGB_TO_ULONG(139, 139, 0 ), "yellow4" },
653 { RGB_TO_ULONG(255, 215, 0 ), "gold1" },
654 { RGB_TO_ULONG(238, 201, 0 ), "gold2" },
655 { RGB_TO_ULONG(205, 173, 0 ), "gold3" },
656 { RGB_TO_ULONG(139, 117, 0 ), "gold4" },
657 { RGB_TO_ULONG(255, 193, 37 ), "goldenrod1" },
658 { RGB_TO_ULONG(238, 180, 34 ), "goldenrod2" },
659 { RGB_TO_ULONG(205, 155, 29 ), "goldenrod3" },
660 { RGB_TO_ULONG(139, 105, 20 ), "goldenrod4" },
661 { RGB_TO_ULONG(255, 185, 15 ), "DarkGoldenrod1" },
662 { RGB_TO_ULONG(238, 173, 14 ), "DarkGoldenrod2" },
663 { RGB_TO_ULONG(205, 149, 12 ), "DarkGoldenrod3" },
664 { RGB_TO_ULONG(139, 101, 8 ), "DarkGoldenrod4" },
665 { RGB_TO_ULONG(255, 193, 193), "RosyBrown1" },
666 { RGB_TO_ULONG(238, 180, 180), "RosyBrown2" },
667 { RGB_TO_ULONG(205, 155, 155), "RosyBrown3" },
668 { RGB_TO_ULONG(139, 105, 105), "RosyBrown4" },
669 { RGB_TO_ULONG(255, 106, 106), "IndianRed1" },
670 { RGB_TO_ULONG(238, 99 , 99 ), "IndianRed2" },
671 { RGB_TO_ULONG(205, 85 , 85 ), "IndianRed3" },
672 { RGB_TO_ULONG(139, 58 , 58 ), "IndianRed4" },
673 { RGB_TO_ULONG(255, 130, 71 ), "sienna1" },
674 { RGB_TO_ULONG(238, 121, 66 ), "sienna2" },
675 { RGB_TO_ULONG(205, 104, 57 ), "sienna3" },
676 { RGB_TO_ULONG(139, 71 , 38 ), "sienna4" },
677 { RGB_TO_ULONG(255, 211, 155), "burlywood1" },
678 { RGB_TO_ULONG(238, 197, 145), "burlywood2" },
679 { RGB_TO_ULONG(205, 170, 125), "burlywood3" },
680 { RGB_TO_ULONG(139, 115, 85 ), "burlywood4" },
681 { RGB_TO_ULONG(255, 231, 186), "wheat1" },
682 { RGB_TO_ULONG(238, 216, 174), "wheat2" },
683 { RGB_TO_ULONG(205, 186, 150), "wheat3" },
684 { RGB_TO_ULONG(139, 126, 102), "wheat4" },
685 { RGB_TO_ULONG(255, 165, 79 ), "tan1" },
686 { RGB_TO_ULONG(238, 154, 73 ), "tan2" },
687 { RGB_TO_ULONG(205, 133, 63 ), "tan3" },
688 { RGB_TO_ULONG(139, 90 , 43 ), "tan4" },
689 { RGB_TO_ULONG(255, 127, 36 ), "chocolate1" },
690 { RGB_TO_ULONG(238, 118, 33 ), "chocolate2" },
691 { RGB_TO_ULONG(205, 102, 29 ), "chocolate3" },
692 { RGB_TO_ULONG(139, 69 , 19 ), "chocolate4" },
693 { RGB_TO_ULONG(255, 48 , 48 ), "firebrick1" },
694 { RGB_TO_ULONG(238, 44 , 44 ), "firebrick2" },
695 { RGB_TO_ULONG(205, 38 , 38 ), "firebrick3" },
696 { RGB_TO_ULONG(139, 26 , 26 ), "firebrick4" },
697 { RGB_TO_ULONG(255, 64 , 64 ), "brown1" },
698 { RGB_TO_ULONG(238, 59 , 59 ), "brown2" },
699 { RGB_TO_ULONG(205, 51 , 51 ), "brown3" },
700 { RGB_TO_ULONG(139, 35 , 35 ), "brown4" },
701 { RGB_TO_ULONG(255, 140, 105), "salmon1" },
702 { RGB_TO_ULONG(238, 130, 98 ), "salmon2" },
703 { RGB_TO_ULONG(205, 112, 84 ), "salmon3" },
704 { RGB_TO_ULONG(139, 76 , 57 ), "salmon4" },
705 { RGB_TO_ULONG(255, 160, 122), "LightSalmon1" },
706 { RGB_TO_ULONG(238, 149, 114), "LightSalmon2" },
707 { RGB_TO_ULONG(205, 129, 98 ), "LightSalmon3" },
708 { RGB_TO_ULONG(139, 87 , 66 ), "LightSalmon4" },
709 { RGB_TO_ULONG(255, 165, 0 ), "orange1" },
710 { RGB_TO_ULONG(238, 154, 0 ), "orange2" },
711 { RGB_TO_ULONG(205, 133, 0 ), "orange3" },
712 { RGB_TO_ULONG(139, 90 , 0 ), "orange4" },
713 { RGB_TO_ULONG(255, 127, 0 ), "DarkOrange1" },
714 { RGB_TO_ULONG(238, 118, 0 ), "DarkOrange2" },
715 { RGB_TO_ULONG(205, 102, 0 ), "DarkOrange3" },
716 { RGB_TO_ULONG(139, 69 , 0 ), "DarkOrange4" },
717 { RGB_TO_ULONG(255, 114, 86 ), "coral1" },
718 { RGB_TO_ULONG(238, 106, 80 ), "coral2" },
719 { RGB_TO_ULONG(205, 91 , 69 ), "coral3" },
720 { RGB_TO_ULONG(139, 62 , 47 ), "coral4" },
721 { RGB_TO_ULONG(255, 99 , 71 ), "tomato1" },
722 { RGB_TO_ULONG(238, 92 , 66 ), "tomato2" },
723 { RGB_TO_ULONG(205, 79 , 57 ), "tomato3" },
724 { RGB_TO_ULONG(139, 54 , 38 ), "tomato4" },
725 { RGB_TO_ULONG(255, 69 , 0 ), "OrangeRed1" },
726 { RGB_TO_ULONG(238, 64 , 0 ), "OrangeRed2" },
727 { RGB_TO_ULONG(205, 55 , 0 ), "OrangeRed3" },
728 { RGB_TO_ULONG(139, 37 , 0 ), "OrangeRed4" },
729 { RGB_TO_ULONG(255, 0 , 0 ), "red1" },
730 { RGB_TO_ULONG(238, 0 , 0 ), "red2" },
731 { RGB_TO_ULONG(205, 0 , 0 ), "red3" },
732 { RGB_TO_ULONG(139, 0 , 0 ), "red4" },
733 { RGB_TO_ULONG(255, 20 , 147), "DeepPink1" },
734 { RGB_TO_ULONG(238, 18 , 137), "DeepPink2" },
735 { RGB_TO_ULONG(205, 16 , 118), "DeepPink3" },
736 { RGB_TO_ULONG(139, 10 , 80 ), "DeepPink4" },
737 { RGB_TO_ULONG(255, 110, 180), "HotPink1" },
738 { RGB_TO_ULONG(238, 106, 167), "HotPink2" },
739 { RGB_TO_ULONG(205, 96 , 144), "HotPink3" },
740 { RGB_TO_ULONG(139, 58 , 98 ), "HotPink4" },
741 { RGB_TO_ULONG(255, 181, 197), "pink1" },
742 { RGB_TO_ULONG(238, 169, 184), "pink2" },
743 { RGB_TO_ULONG(205, 145, 158), "pink3" },
744 { RGB_TO_ULONG(139, 99 , 108), "pink4" },
745 { RGB_TO_ULONG(255, 174, 185), "LightPink1" },
746 { RGB_TO_ULONG(238, 162, 173), "LightPink2" },
747 { RGB_TO_ULONG(205, 140, 149), "LightPink3" },
748 { RGB_TO_ULONG(139, 95 , 101), "LightPink4" },
749 { RGB_TO_ULONG(255, 130, 171), "PaleVioletRed1" },
750 { RGB_TO_ULONG(238, 121, 159), "PaleVioletRed2" },
751 { RGB_TO_ULONG(205, 104, 137), "PaleVioletRed3" },
752 { RGB_TO_ULONG(139, 71 , 93 ), "PaleVioletRed4" },
753 { RGB_TO_ULONG(255, 52 , 179), "maroon1" },
754 { RGB_TO_ULONG(238, 48 , 167), "maroon2" },
755 { RGB_TO_ULONG(205, 41 , 144), "maroon3" },
756 { RGB_TO_ULONG(139, 28 , 98 ), "maroon4" },
757 { RGB_TO_ULONG(255, 62 , 150), "VioletRed1" },
758 { RGB_TO_ULONG(238, 58 , 140), "VioletRed2" },
759 { RGB_TO_ULONG(205, 50 , 120), "VioletRed3" },
760 { RGB_TO_ULONG(139, 34 , 82 ), "VioletRed4" },
761 { RGB_TO_ULONG(255, 0 , 255), "magenta1" },
762 { RGB_TO_ULONG(238, 0 , 238), "magenta2" },
763 { RGB_TO_ULONG(205, 0 , 205), "magenta3" },
764 { RGB_TO_ULONG(139, 0 , 139), "magenta4" },
765 { RGB_TO_ULONG(255, 131, 250), "orchid1" },
766 { RGB_TO_ULONG(238, 122, 233), "orchid2" },
767 { RGB_TO_ULONG(205, 105, 201), "orchid3" },
768 { RGB_TO_ULONG(139, 71 , 137), "orchid4" },
769 { RGB_TO_ULONG(255, 187, 255), "plum1" },
770 { RGB_TO_ULONG(238, 174, 238), "plum2" },
771 { RGB_TO_ULONG(205, 150, 205), "plum3" },
772 { RGB_TO_ULONG(139, 102, 139), "plum4" },
773 { RGB_TO_ULONG(224, 102, 255), "MediumOrchid1" },
774 { RGB_TO_ULONG(209, 95 , 238), "MediumOrchid2" },
775 { RGB_TO_ULONG(180, 82 , 205), "MediumOrchid3" },
776 { RGB_TO_ULONG(122, 55 , 139), "MediumOrchid4" },
777 { RGB_TO_ULONG(191, 62 , 255), "DarkOrchid1" },
778 { RGB_TO_ULONG(178, 58 , 238), "DarkOrchid2" },
779 { RGB_TO_ULONG(154, 50 , 205), "DarkOrchid3" },
780 { RGB_TO_ULONG(104, 34 , 139), "DarkOrchid4" },
781 { RGB_TO_ULONG(155, 48 , 255), "purple1" },
782 { RGB_TO_ULONG(145, 44 , 238), "purple2" },
783 { RGB_TO_ULONG(125, 38 , 205), "purple3" },
784 { RGB_TO_ULONG(85 , 26 , 139), "purple4" },
785 { RGB_TO_ULONG(171, 130, 255), "MediumPurple1" },
786 { RGB_TO_ULONG(159, 121, 238), "MediumPurple2" },
787 { RGB_TO_ULONG(137, 104, 205), "MediumPurple3" },
788 { RGB_TO_ULONG(93 , 71 , 139), "MediumPurple4" },
789 { RGB_TO_ULONG(255, 225, 255), "thistle1" },
790 { RGB_TO_ULONG(238, 210, 238), "thistle2" },
791 { RGB_TO_ULONG(205, 181, 205), "thistle3" },
792 { RGB_TO_ULONG(139, 123, 139), "thistle4" },
793 { RGB_TO_ULONG(0 , 0 , 0 ), "gray0" },
794 { RGB_TO_ULONG(0 , 0 , 0 ), "grey0" },
795 { RGB_TO_ULONG(3 , 3 , 3 ), "gray1" },
796 { RGB_TO_ULONG(3 , 3 , 3 ), "grey1" },
797 { RGB_TO_ULONG(5 , 5 , 5 ), "gray2" },
798 { RGB_TO_ULONG(5 , 5 , 5 ), "grey2" },
799 { RGB_TO_ULONG(8 , 8 , 8 ), "gray3" },
800 { RGB_TO_ULONG(8 , 8 , 8 ), "grey3" },
801 { RGB_TO_ULONG(10 , 10 , 10 ), "gray4" },
802 { RGB_TO_ULONG(10 , 10 , 10 ), "grey4" },
803 { RGB_TO_ULONG(13 , 13 , 13 ), "gray5" },
804 { RGB_TO_ULONG(13 , 13 , 13 ), "grey5" },
805 { RGB_TO_ULONG(15 , 15 , 15 ), "gray6" },
806 { RGB_TO_ULONG(15 , 15 , 15 ), "grey6" },
807 { RGB_TO_ULONG(18 , 18 , 18 ), "gray7" },
808 { RGB_TO_ULONG(18 , 18 , 18 ), "grey7" },
809 { RGB_TO_ULONG(20 , 20 , 20 ), "gray8" },
810 { RGB_TO_ULONG(20 , 20 , 20 ), "grey8" },
811 { RGB_TO_ULONG(23 , 23 , 23 ), "gray9" },
812 { RGB_TO_ULONG(23 , 23 , 23 ), "grey9" },
813 { RGB_TO_ULONG(26 , 26 , 26 ), "gray10" },
814 { RGB_TO_ULONG(26 , 26 , 26 ), "grey10" },
815 { RGB_TO_ULONG(28 , 28 , 28 ), "gray11" },
816 { RGB_TO_ULONG(28 , 28 , 28 ), "grey11" },
817 { RGB_TO_ULONG(31 , 31 , 31 ), "gray12" },
818 { RGB_TO_ULONG(31 , 31 , 31 ), "grey12" },
819 { RGB_TO_ULONG(33 , 33 , 33 ), "gray13" },
820 { RGB_TO_ULONG(33 , 33 , 33 ), "grey13" },
821 { RGB_TO_ULONG(36 , 36 , 36 ), "gray14" },
822 { RGB_TO_ULONG(36 , 36 , 36 ), "grey14" },
823 { RGB_TO_ULONG(38 , 38 , 38 ), "gray15" },
824 { RGB_TO_ULONG(38 , 38 , 38 ), "grey15" },
825 { RGB_TO_ULONG(41 , 41 , 41 ), "gray16" },
826 { RGB_TO_ULONG(41 , 41 , 41 ), "grey16" },
827 { RGB_TO_ULONG(43 , 43 , 43 ), "gray17" },
828 { RGB_TO_ULONG(43 , 43 , 43 ), "grey17" },
829 { RGB_TO_ULONG(46 , 46 , 46 ), "gray18" },
830 { RGB_TO_ULONG(46 , 46 , 46 ), "grey18" },
831 { RGB_TO_ULONG(48 , 48 , 48 ), "gray19" },
832 { RGB_TO_ULONG(48 , 48 , 48 ), "grey19" },
833 { RGB_TO_ULONG(51 , 51 , 51 ), "gray20" },
834 { RGB_TO_ULONG(51 , 51 , 51 ), "grey20" },
835 { RGB_TO_ULONG(54 , 54 , 54 ), "gray21" },
836 { RGB_TO_ULONG(54 , 54 , 54 ), "grey21" },
837 { RGB_TO_ULONG(56 , 56 , 56 ), "gray22" },
838 { RGB_TO_ULONG(56 , 56 , 56 ), "grey22" },
839 { RGB_TO_ULONG(59 , 59 , 59 ), "gray23" },
840 { RGB_TO_ULONG(59 , 59 , 59 ), "grey23" },
841 { RGB_TO_ULONG(61 , 61 , 61 ), "gray24" },
842 { RGB_TO_ULONG(61 , 61 , 61 ), "grey24" },
843 { RGB_TO_ULONG(64 , 64 , 64 ), "gray25" },
844 { RGB_TO_ULONG(64 , 64 , 64 ), "grey25" },
845 { RGB_TO_ULONG(66 , 66 , 66 ), "gray26" },
846 { RGB_TO_ULONG(66 , 66 , 66 ), "grey26" },
847 { RGB_TO_ULONG(69 , 69 , 69 ), "gray27" },
848 { RGB_TO_ULONG(69 , 69 , 69 ), "grey27" },
849 { RGB_TO_ULONG(71 , 71 , 71 ), "gray28" },
850 { RGB_TO_ULONG(71 , 71 , 71 ), "grey28" },
851 { RGB_TO_ULONG(74 , 74 , 74 ), "gray29" },
852 { RGB_TO_ULONG(74 , 74 , 74 ), "grey29" },
853 { RGB_TO_ULONG(77 , 77 , 77 ), "gray30" },
854 { RGB_TO_ULONG(77 , 77 , 77 ), "grey30" },
855 { RGB_TO_ULONG(79 , 79 , 79 ), "gray31" },
856 { RGB_TO_ULONG(79 , 79 , 79 ), "grey31" },
857 { RGB_TO_ULONG(82 , 82 , 82 ), "gray32" },
858 { RGB_TO_ULONG(82 , 82 , 82 ), "grey32" },
859 { RGB_TO_ULONG(84 , 84 , 84 ), "gray33" },
860 { RGB_TO_ULONG(84 , 84 , 84 ), "grey33" },
861 { RGB_TO_ULONG(87 , 87 , 87 ), "gray34" },
862 { RGB_TO_ULONG(87 , 87 , 87 ), "grey34" },
863 { RGB_TO_ULONG(89 , 89 , 89 ), "gray35" },
864 { RGB_TO_ULONG(89 , 89 , 89 ), "grey35" },
865 { RGB_TO_ULONG(92 , 92 , 92 ), "gray36" },
866 { RGB_TO_ULONG(92 , 92 , 92 ), "grey36" },
867 { RGB_TO_ULONG(94 , 94 , 94 ), "gray37" },
868 { RGB_TO_ULONG(94 , 94 , 94 ), "grey37" },
869 { RGB_TO_ULONG(97 , 97 , 97 ), "gray38" },
870 { RGB_TO_ULONG(97 , 97 , 97 ), "grey38" },
871 { RGB_TO_ULONG(99 , 99 , 99 ), "gray39" },
872 { RGB_TO_ULONG(99 , 99 , 99 ), "grey39" },
873 { RGB_TO_ULONG(102, 102, 102), "gray40" },
874 { RGB_TO_ULONG(102, 102, 102), "grey40" },
875 { RGB_TO_ULONG(105, 105, 105), "gray41" },
876 { RGB_TO_ULONG(105, 105, 105), "grey41" },
877 { RGB_TO_ULONG(107, 107, 107), "gray42" },
878 { RGB_TO_ULONG(107, 107, 107), "grey42" },
879 { RGB_TO_ULONG(110, 110, 110), "gray43" },
880 { RGB_TO_ULONG(110, 110, 110), "grey43" },
881 { RGB_TO_ULONG(112, 112, 112), "gray44" },
882 { RGB_TO_ULONG(112, 112, 112), "grey44" },
883 { RGB_TO_ULONG(115, 115, 115), "gray45" },
884 { RGB_TO_ULONG(115, 115, 115), "grey45" },
885 { RGB_TO_ULONG(117, 117, 117), "gray46" },
886 { RGB_TO_ULONG(117, 117, 117), "grey46" },
887 { RGB_TO_ULONG(120, 120, 120), "gray47" },
888 { RGB_TO_ULONG(120, 120, 120), "grey47" },
889 { RGB_TO_ULONG(122, 122, 122), "gray48" },
890 { RGB_TO_ULONG(122, 122, 122), "grey48" },
891 { RGB_TO_ULONG(125, 125, 125), "gray49" },
892 { RGB_TO_ULONG(125, 125, 125), "grey49" },
893 { RGB_TO_ULONG(127, 127, 127), "gray50" },
894 { RGB_TO_ULONG(127, 127, 127), "grey50" },
895 { RGB_TO_ULONG(130, 130, 130), "gray51" },
896 { RGB_TO_ULONG(130, 130, 130), "grey51" },
897 { RGB_TO_ULONG(133, 133, 133), "gray52" },
898 { RGB_TO_ULONG(133, 133, 133), "grey52" },
899 { RGB_TO_ULONG(135, 135, 135), "gray53" },
900 { RGB_TO_ULONG(135, 135, 135), "grey53" },
901 { RGB_TO_ULONG(138, 138, 138), "gray54" },
902 { RGB_TO_ULONG(138, 138, 138), "grey54" },
903 { RGB_TO_ULONG(140, 140, 140), "gray55" },
904 { RGB_TO_ULONG(140, 140, 140), "grey55" },
905 { RGB_TO_ULONG(143, 143, 143), "gray56" },
906 { RGB_TO_ULONG(143, 143, 143), "grey56" },
907 { RGB_TO_ULONG(145, 145, 145), "gray57" },
908 { RGB_TO_ULONG(145, 145, 145), "grey57" },
909 { RGB_TO_ULONG(148, 148, 148), "gray58" },
910 { RGB_TO_ULONG(148, 148, 148), "grey58" },
911 { RGB_TO_ULONG(150, 150, 150), "gray59" },
912 { RGB_TO_ULONG(150, 150, 150), "grey59" },
913 { RGB_TO_ULONG(153, 153, 153), "gray60" },
914 { RGB_TO_ULONG(153, 153, 153), "grey60" },
915 { RGB_TO_ULONG(156, 156, 156), "gray61" },
916 { RGB_TO_ULONG(156, 156, 156), "grey61" },
917 { RGB_TO_ULONG(158, 158, 158), "gray62" },
918 { RGB_TO_ULONG(158, 158, 158), "grey62" },
919 { RGB_TO_ULONG(161, 161, 161), "gray63" },
920 { RGB_TO_ULONG(161, 161, 161), "grey63" },
921 { RGB_TO_ULONG(163, 163, 163), "gray64" },
922 { RGB_TO_ULONG(163, 163, 163), "grey64" },
923 { RGB_TO_ULONG(166, 166, 166), "gray65" },
924 { RGB_TO_ULONG(166, 166, 166), "grey65" },
925 { RGB_TO_ULONG(168, 168, 168), "gray66" },
926 { RGB_TO_ULONG(168, 168, 168), "grey66" },
927 { RGB_TO_ULONG(171, 171, 171), "gray67" },
928 { RGB_TO_ULONG(171, 171, 171), "grey67" },
929 { RGB_TO_ULONG(173, 173, 173), "gray68" },
930 { RGB_TO_ULONG(173, 173, 173), "grey68" },
931 { RGB_TO_ULONG(176, 176, 176), "gray69" },
932 { RGB_TO_ULONG(176, 176, 176), "grey69" },
933 { RGB_TO_ULONG(179, 179, 179), "gray70" },
934 { RGB_TO_ULONG(179, 179, 179), "grey70" },
935 { RGB_TO_ULONG(181, 181, 181), "gray71" },
936 { RGB_TO_ULONG(181, 181, 181), "grey71" },
937 { RGB_TO_ULONG(184, 184, 184), "gray72" },
938 { RGB_TO_ULONG(184, 184, 184), "grey72" },
939 { RGB_TO_ULONG(186, 186, 186), "gray73" },
940 { RGB_TO_ULONG(186, 186, 186), "grey73" },
941 { RGB_TO_ULONG(189, 189, 189), "gray74" },
942 { RGB_TO_ULONG(189, 189, 189), "grey74" },
943 { RGB_TO_ULONG(191, 191, 191), "gray75" },
944 { RGB_TO_ULONG(191, 191, 191), "grey75" },
945 { RGB_TO_ULONG(194, 194, 194), "gray76" },
946 { RGB_TO_ULONG(194, 194, 194), "grey76" },
947 { RGB_TO_ULONG(196, 196, 196), "gray77" },
948 { RGB_TO_ULONG(196, 196, 196), "grey77" },
949 { RGB_TO_ULONG(199, 199, 199), "gray78" },
950 { RGB_TO_ULONG(199, 199, 199), "grey78" },
951 { RGB_TO_ULONG(201, 201, 201), "gray79" },
952 { RGB_TO_ULONG(201, 201, 201), "grey79" },
953 { RGB_TO_ULONG(204, 204, 204), "gray80" },
954 { RGB_TO_ULONG(204, 204, 204), "grey80" },
955 { RGB_TO_ULONG(207, 207, 207), "gray81" },
956 { RGB_TO_ULONG(207, 207, 207), "grey81" },
957 { RGB_TO_ULONG(209, 209, 209), "gray82" },
958 { RGB_TO_ULONG(209, 209, 209), "grey82" },
959 { RGB_TO_ULONG(212, 212, 212), "gray83" },
960 { RGB_TO_ULONG(212, 212, 212), "grey83" },
961 { RGB_TO_ULONG(214, 214, 214), "gray84" },
962 { RGB_TO_ULONG(214, 214, 214), "grey84" },
963 { RGB_TO_ULONG(217, 217, 217), "gray85" },
964 { RGB_TO_ULONG(217, 217, 217), "grey85" },
965 { RGB_TO_ULONG(219, 219, 219), "gray86" },
966 { RGB_TO_ULONG(219, 219, 219), "grey86" },
967 { RGB_TO_ULONG(222, 222, 222), "gray87" },
968 { RGB_TO_ULONG(222, 222, 222), "grey87" },
969 { RGB_TO_ULONG(224, 224, 224), "gray88" },
970 { RGB_TO_ULONG(224, 224, 224), "grey88" },
971 { RGB_TO_ULONG(227, 227, 227), "gray89" },
972 { RGB_TO_ULONG(227, 227, 227), "grey89" },
973 { RGB_TO_ULONG(229, 229, 229), "gray90" },
974 { RGB_TO_ULONG(229, 229, 229), "grey90" },
975 { RGB_TO_ULONG(232, 232, 232), "gray91" },
976 { RGB_TO_ULONG(232, 232, 232), "grey91" },
977 { RGB_TO_ULONG(235, 235, 235), "gray92" },
978 { RGB_TO_ULONG(235, 235, 235), "grey92" },
979 { RGB_TO_ULONG(237, 237, 237), "gray93" },
980 { RGB_TO_ULONG(237, 237, 237), "grey93" },
981 { RGB_TO_ULONG(240, 240, 240), "gray94" },
982 { RGB_TO_ULONG(240, 240, 240), "grey94" },
983 { RGB_TO_ULONG(242, 242, 242), "gray95" },
984 { RGB_TO_ULONG(242, 242, 242), "grey95" },
985 { RGB_TO_ULONG(245, 245, 245), "gray96" },
986 { RGB_TO_ULONG(245, 245, 245), "grey96" },
987 { RGB_TO_ULONG(247, 247, 247), "gray97" },
988 { RGB_TO_ULONG(247, 247, 247), "grey97" },
989 { RGB_TO_ULONG(250, 250, 250), "gray98" },
990 { RGB_TO_ULONG(250, 250, 250), "grey98" },
991 { RGB_TO_ULONG(252, 252, 252), "gray99" },
992 { RGB_TO_ULONG(252, 252, 252), "grey99" },
993 { RGB_TO_ULONG(255, 255, 255), "gray100" },
994 { RGB_TO_ULONG(255, 255, 255), "grey100" },
995 { RGB_TO_ULONG(169, 169, 169), "dark grey" },
996 { RGB_TO_ULONG(169, 169, 169), "DarkGrey" },
997 { RGB_TO_ULONG(169, 169, 169), "dark gray" },
998 { RGB_TO_ULONG(169, 169, 169), "DarkGray" },
999 { RGB_TO_ULONG(0 , 0 , 139), "dark blue" },
1000 { RGB_TO_ULONG(0 , 0 , 139), "DarkBlue" },
1001 { RGB_TO_ULONG(0 , 139, 139), "dark cyan" },
1002 { RGB_TO_ULONG(0 , 139, 139), "DarkCyan" },
1003 { RGB_TO_ULONG(139, 0 , 139), "dark magenta" },
1004 { RGB_TO_ULONG(139, 0 , 139), "DarkMagenta" },
1005 { RGB_TO_ULONG(139, 0 , 0 ), "dark red" },
1006 { RGB_TO_ULONG(139, 0 , 0 ), "DarkRed" },
1007 { RGB_TO_ULONG(144, 238, 144), "light green" },
1008 { RGB_TO_ULONG(144, 238, 144), "LightGreen" }
1009 };
1010
1011 Lisp_Object
1012 mac_color_map_lookup (colorname)
1013 char *colorname;
1014 {
1015 Lisp_Object ret = Qnil;
1016 int i;
1017
1018 BLOCK_INPUT;
1019
1020 for (i = 0; i < sizeof (mac_color_map) / sizeof (mac_color_map[0]); i++)
1021 if (xstricmp (colorname, mac_color_map[i].name) == 0)
1022 {
1023 ret = make_number (mac_color_map[i].color);
1024 break;
1025 }
1026
1027 UNBLOCK_INPUT;
1028
1029 return ret;
1030 }
1031
1032 Lisp_Object
1033 x_to_mac_color (colorname)
1034 char * colorname;
1035 {
1036 register Lisp_Object tail, ret = Qnil;
1037
1038 BLOCK_INPUT;
1039
1040 if (colorname[0] == '#')
1041 {
1042 /* Could be an old-style RGB Device specification. */
1043 char *color;
1044 int size;
1045 color = colorname + 1;
1046
1047 size = strlen(color);
1048 if (size == 3 || size == 6 || size == 9 || size == 12)
1049 {
1050 unsigned long colorval;
1051 int i, pos;
1052 pos = 16;
1053 size /= 3;
1054 colorval = 0;
1055
1056 for (i = 0; i < 3; i++)
1057 {
1058 char *end;
1059 char t;
1060 unsigned long value;
1061
1062 /* The check for 'x' in the following conditional takes into
1063 account the fact that strtol allows a "0x" in front of
1064 our numbers, and we don't. */
1065 if (!isxdigit(color[0]) || color[1] == 'x')
1066 break;
1067 t = color[size];
1068 color[size] = '\0';
1069 value = strtoul(color, &end, 16);
1070 color[size] = t;
1071 if (errno == ERANGE || end - color != size)
1072 break;
1073 switch (size)
1074 {
1075 case 1:
1076 value = value * 0x10;
1077 break;
1078 case 2:
1079 break;
1080 case 3:
1081 value /= 0x10;
1082 break;
1083 case 4:
1084 value /= 0x100;
1085 break;
1086 }
1087 colorval |= (value << pos);
1088 pos -= 8;
1089 if (i == 2)
1090 {
1091 UNBLOCK_INPUT;
1092 return make_number (colorval);
1093 }
1094 color = end;
1095 }
1096 }
1097 }
1098 else if (strnicmp(colorname, "rgb:", 4) == 0)
1099 {
1100 char *color;
1101 unsigned long colorval;
1102 int i, pos;
1103 pos = 0;
1104
1105 colorval = 0;
1106 color = colorname + 4;
1107 for (i = 0; i < 3; i++)
1108 {
1109 char *end;
1110 unsigned long value;
1111
1112 /* The check for 'x' in the following conditional takes into
1113 account the fact that strtol allows a "0x" in front of
1114 our numbers, and we don't. */
1115 if (!isxdigit(color[0]) || color[1] == 'x')
1116 break;
1117 value = strtoul(color, &end, 16);
1118 if (errno == ERANGE)
1119 break;
1120 switch (end - color)
1121 {
1122 case 1:
1123 value = value * 0x10 + value;
1124 break;
1125 case 2:
1126 break;
1127 case 3:
1128 value /= 0x10;
1129 break;
1130 case 4:
1131 value /= 0x100;
1132 break;
1133 default:
1134 value = ULONG_MAX;
1135 }
1136 if (value == ULONG_MAX)
1137 break;
1138 colorval |= (value << pos);
1139 pos += 0x8;
1140 if (i == 2)
1141 {
1142 if (*end != '\0')
1143 break;
1144 UNBLOCK_INPUT;
1145 return make_number (colorval);
1146 }
1147 if (*end != '/')
1148 break;
1149 color = end + 1;
1150 }
1151 }
1152 else if (strnicmp(colorname, "rgbi:", 5) == 0)
1153 {
1154 /* This is an RGB Intensity specification. */
1155 char *color;
1156 unsigned long colorval;
1157 int i, pos;
1158 pos = 0;
1159
1160 colorval = 0;
1161 color = colorname + 5;
1162 for (i = 0; i < 3; i++)
1163 {
1164 char *end;
1165 double value;
1166 unsigned long val;
1167
1168 value = strtod(color, &end);
1169 if (errno == ERANGE)
1170 break;
1171 if (value < 0.0 || value > 1.0)
1172 break;
1173 val = (unsigned long)(0x100 * value);
1174 /* We used 0x100 instead of 0xFF to give a continuous
1175 range between 0.0 and 1.0 inclusive. The next statement
1176 fixes the 1.0 case. */
1177 if (val == 0x100)
1178 val = 0xFF;
1179 colorval |= (val << pos);
1180 pos += 0x8;
1181 if (i == 2)
1182 {
1183 if (*end != '\0')
1184 break;
1185 UNBLOCK_INPUT;
1186 return make_number (colorval);
1187 }
1188 if (*end != '/')
1189 break;
1190 color = end + 1;
1191 }
1192 }
1193
1194 ret = mac_color_map_lookup (colorname);
1195
1196 UNBLOCK_INPUT;
1197 return ret;
1198 }
1199
1200 /* Gamma-correct COLOR on frame F. */
1201
1202 void
1203 gamma_correct (f, color)
1204 struct frame *f;
1205 unsigned long *color;
1206 {
1207 if (f->gamma)
1208 {
1209 unsigned long red, green, blue;
1210
1211 red = pow (RED_FROM_ULONG (*color) / 255.0, f->gamma) * 255.0 + 0.5;
1212 green = pow (GREEN_FROM_ULONG (*color) / 255.0, f->gamma) * 255.0 + 0.5;
1213 blue = pow (BLUE_FROM_ULONG (*color) / 255.0, f->gamma) * 255.0 + 0.5;
1214 *color = RGB_TO_ULONG (red, green, blue);
1215 }
1216 }
1217
1218 /* Decide if color named COLOR is valid for the display associated
1219 with the selected frame; if so, return the rgb values in COLOR_DEF.
1220 If ALLOC is nonzero, allocate a new colormap cell. */
1221
1222 int
1223 mac_defined_color (f, color, color_def, alloc)
1224 FRAME_PTR f;
1225 char *color;
1226 XColor *color_def;
1227 int alloc;
1228 {
1229 register Lisp_Object tem;
1230 unsigned long mac_color_ref;
1231
1232 tem = x_to_mac_color (color);
1233
1234 if (!NILP (tem))
1235 {
1236 if (f)
1237 {
1238 /* Apply gamma correction. */
1239 mac_color_ref = XUINT (tem);
1240 gamma_correct (f, &mac_color_ref);
1241 XSETINT (tem, mac_color_ref);
1242 }
1243
1244 color_def->pixel = mac_color_ref;
1245 color_def->red = RED16_FROM_ULONG (mac_color_ref);
1246 color_def->green = GREEN16_FROM_ULONG (mac_color_ref);
1247 color_def->blue = BLUE16_FROM_ULONG (mac_color_ref);
1248
1249 return 1;
1250 }
1251 else
1252 {
1253 return 0;
1254 }
1255 }
1256
1257 /* Given a string ARG naming a color, compute a pixel value from it
1258 suitable for screen F.
1259 If F is not a color screen, return DEF (default) regardless of what
1260 ARG says. */
1261
1262 int
1263 x_decode_color (f, arg, def)
1264 FRAME_PTR f;
1265 Lisp_Object arg;
1266 int def;
1267 {
1268 XColor cdef;
1269
1270 CHECK_STRING (arg);
1271
1272 if (strcmp (SDATA (arg), "black") == 0)
1273 return BLACK_PIX_DEFAULT (f);
1274 else if (strcmp (SDATA (arg), "white") == 0)
1275 return WHITE_PIX_DEFAULT (f);
1276
1277 #if 0
1278 if (FRAME_MAC_DISPLAY_INFO (f)->n_planes) == 1)
1279 return def;
1280 #endif
1281
1282 if (mac_defined_color (f, SDATA (arg), &cdef, 1))
1283 return cdef.pixel;
1284
1285 /* defined_color failed; return an ultimate default. */
1286 return def;
1287 }
1288 \f
1289 /* Functions called only from `x_set_frame_param'
1290 to set individual parameters.
1291
1292 If FRAME_MAC_WINDOW (f) is 0,
1293 the frame is being created and its window does not exist yet.
1294 In that case, just record the parameter's new value
1295 in the standard place; do not attempt to change the window. */
1296
1297 void
1298 x_set_foreground_color (f, arg, oldval)
1299 struct frame *f;
1300 Lisp_Object arg, oldval;
1301 {
1302 struct mac_output *mac = f->output_data.mac;
1303 unsigned long fg, old_fg;
1304
1305 fg = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f));
1306 old_fg = FRAME_FOREGROUND_PIXEL (f);
1307 FRAME_FOREGROUND_PIXEL (f) = fg;
1308
1309 if (FRAME_MAC_WINDOW (f) != 0)
1310 {
1311 Display *dpy = FRAME_MAC_DISPLAY (f);
1312
1313 BLOCK_INPUT;
1314 XSetForeground (dpy, mac->normal_gc, fg);
1315 XSetBackground (dpy, mac->reverse_gc, fg);
1316
1317 if (mac->cursor_pixel == old_fg)
1318 {
1319 unload_color (f, mac->cursor_pixel);
1320 mac->cursor_pixel = fg;
1321 XSetBackground (dpy, mac->cursor_gc, mac->cursor_pixel);
1322 }
1323
1324 UNBLOCK_INPUT;
1325
1326 update_face_from_frame_parameter (f, Qforeground_color, arg);
1327
1328 if (FRAME_VISIBLE_P (f))
1329 redraw_frame (f);
1330 }
1331
1332 unload_color (f, old_fg);
1333 }
1334
1335 void
1336 x_set_background_color (f, arg, oldval)
1337 struct frame *f;
1338 Lisp_Object arg, oldval;
1339 {
1340 struct mac_output *mac = f->output_data.mac;
1341 unsigned long bg;
1342
1343 bg = x_decode_color (f, arg, WHITE_PIX_DEFAULT (f));
1344 unload_color (f, FRAME_BACKGROUND_PIXEL (f));
1345 FRAME_BACKGROUND_PIXEL (f) = bg;
1346
1347 if (FRAME_MAC_WINDOW (f) != 0)
1348 {
1349 Display *dpy = FRAME_MAC_DISPLAY (f);
1350
1351 BLOCK_INPUT;
1352 XSetBackground (dpy, mac->normal_gc, bg);
1353 XSetForeground (dpy, mac->reverse_gc, bg);
1354 XSetWindowBackground (dpy, FRAME_MAC_WINDOW (f), bg);
1355 XSetForeground (dpy, mac->cursor_gc, bg);
1356
1357 UNBLOCK_INPUT;
1358 update_face_from_frame_parameter (f, Qbackground_color, arg);
1359
1360 if (FRAME_VISIBLE_P (f))
1361 redraw_frame (f);
1362 }
1363 }
1364
1365 void
1366 x_set_mouse_color (f, arg, oldval)
1367 struct frame *f;
1368 Lisp_Object arg, oldval;
1369 {
1370 struct x_output *x = f->output_data.x;
1371 Display *dpy = FRAME_MAC_DISPLAY (f);
1372 Cursor cursor, nontext_cursor, mode_cursor, hand_cursor;
1373 Cursor hourglass_cursor, horizontal_drag_cursor;
1374 unsigned long pixel = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f));
1375 unsigned long mask_color = x->background_pixel;
1376
1377 /* Don't let pointers be invisible. */
1378 if (mask_color == pixel)
1379 pixel = x->foreground_pixel;
1380
1381 f->output_data.mac->mouse_pixel = pixel;
1382
1383 if (!NILP (Vx_pointer_shape))
1384 {
1385 CHECK_NUMBER (Vx_pointer_shape);
1386 cursor = XINT (Vx_pointer_shape);
1387 }
1388 else
1389 cursor = kThemeIBeamCursor;
1390
1391 if (!NILP (Vx_nontext_pointer_shape))
1392 {
1393 CHECK_NUMBER (Vx_nontext_pointer_shape);
1394 nontext_cursor = XINT (Vx_nontext_pointer_shape);
1395 }
1396 else
1397 nontext_cursor = kThemeArrowCursor;
1398
1399 if (!NILP (Vx_hourglass_pointer_shape))
1400 {
1401 CHECK_NUMBER (Vx_hourglass_pointer_shape);
1402 hourglass_cursor = XINT (Vx_hourglass_pointer_shape);
1403 }
1404 else
1405 hourglass_cursor = kThemeWatchCursor;
1406
1407 if (!NILP (Vx_mode_pointer_shape))
1408 {
1409 CHECK_NUMBER (Vx_mode_pointer_shape);
1410 mode_cursor = XINT (Vx_mode_pointer_shape);
1411 }
1412 else
1413 mode_cursor = kThemeArrowCursor;
1414
1415 if (!NILP (Vx_sensitive_text_pointer_shape))
1416 {
1417 CHECK_NUMBER (Vx_sensitive_text_pointer_shape);
1418 hand_cursor = XINT (Vx_sensitive_text_pointer_shape);
1419 }
1420 else
1421 hand_cursor = kThemePointingHandCursor;
1422
1423 if (!NILP (Vx_window_horizontal_drag_shape))
1424 {
1425 CHECK_NUMBER (Vx_window_horizontal_drag_shape);
1426 horizontal_drag_cursor = XINT (Vx_window_horizontal_drag_shape);
1427 }
1428 else
1429 horizontal_drag_cursor = kThemeResizeLeftRightCursor;
1430
1431 #if 0 /* MAC_TODO: cursor color changes */
1432 {
1433 XColor fore_color, back_color;
1434
1435 fore_color.pixel = f->output_data.mac->mouse_pixel;
1436 x_query_color (f, &fore_color);
1437 back_color.pixel = mask_color;
1438 x_query_color (f, &back_color);
1439
1440 XRecolorCursor (dpy, cursor, &fore_color, &back_color);
1441 XRecolorCursor (dpy, nontext_cursor, &fore_color, &back_color);
1442 XRecolorCursor (dpy, mode_cursor, &fore_color, &back_color);
1443 XRecolorCursor (dpy, hand_cursor, &fore_color, &back_color);
1444 XRecolorCursor (dpy, hourglass_cursor, &fore_color, &back_color);
1445 XRecolorCursor (dpy, horizontal_drag_cursor, &fore_color, &back_color);
1446 }
1447 #endif
1448
1449 BLOCK_INPUT;
1450
1451 if (FRAME_MAC_WINDOW (f) != 0)
1452 rif->define_frame_cursor (f, cursor);
1453
1454 f->output_data.mac->text_cursor = cursor;
1455 f->output_data.mac->nontext_cursor = nontext_cursor;
1456 f->output_data.mac->hourglass_cursor = hourglass_cursor;
1457 f->output_data.mac->modeline_cursor = mode_cursor;
1458 f->output_data.mac->hand_cursor = hand_cursor;
1459 f->output_data.mac->horizontal_drag_cursor = horizontal_drag_cursor;
1460
1461 UNBLOCK_INPUT;
1462
1463 update_face_from_frame_parameter (f, Qmouse_color, arg);
1464 }
1465
1466 void
1467 x_set_cursor_color (f, arg, oldval)
1468 struct frame *f;
1469 Lisp_Object arg, oldval;
1470 {
1471 unsigned long fore_pixel, pixel;
1472
1473 if (!NILP (Vx_cursor_fore_pixel))
1474 fore_pixel = x_decode_color (f, Vx_cursor_fore_pixel,
1475 WHITE_PIX_DEFAULT (f));
1476 else
1477 fore_pixel = FRAME_BACKGROUND_PIXEL (f);
1478
1479 pixel = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f));
1480
1481 /* Make sure that the cursor color differs from the background color. */
1482 if (pixel == FRAME_BACKGROUND_PIXEL (f))
1483 {
1484 pixel = f->output_data.mac->mouse_pixel;
1485 if (pixel == fore_pixel)
1486 fore_pixel = FRAME_BACKGROUND_PIXEL (f);
1487 }
1488
1489 f->output_data.mac->cursor_foreground_pixel = fore_pixel;
1490 f->output_data.mac->cursor_pixel = pixel;
1491
1492 if (FRAME_MAC_WINDOW (f) != 0)
1493 {
1494 BLOCK_INPUT;
1495 /* Update frame's cursor_gc. */
1496 XSetBackground (FRAME_MAC_DISPLAY (f),
1497 f->output_data.mac->cursor_gc, pixel);
1498 XSetForeground (FRAME_MAC_DISPLAY (f),
1499 f->output_data.mac->cursor_gc, fore_pixel);
1500 UNBLOCK_INPUT;
1501
1502 if (FRAME_VISIBLE_P (f))
1503 {
1504 x_update_cursor (f, 0);
1505 x_update_cursor (f, 1);
1506 }
1507 }
1508
1509 update_face_from_frame_parameter (f, Qcursor_color, arg);
1510 }
1511
1512 /* Set the border-color of frame F to pixel value PIX.
1513 Note that this does not fully take effect if done before
1514 F has a window. */
1515
1516 void
1517 x_set_border_pixel (f, pix)
1518 struct frame *f;
1519 int pix;
1520 {
1521
1522 f->output_data.mac->border_pixel = pix;
1523
1524 if (FRAME_MAC_WINDOW (f) != 0 && f->border_width > 0)
1525 {
1526 if (FRAME_VISIBLE_P (f))
1527 redraw_frame (f);
1528 }
1529 }
1530
1531 /* Set the border-color of frame F to value described by ARG.
1532 ARG can be a string naming a color.
1533 The border-color is used for the border that is drawn by the server.
1534 Note that this does not fully take effect if done before
1535 F has a window; it must be redone when the window is created. */
1536
1537 void
1538 x_set_border_color (f, arg, oldval)
1539 struct frame *f;
1540 Lisp_Object arg, oldval;
1541 {
1542 int pix;
1543
1544 CHECK_STRING (arg);
1545 pix = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f));
1546 x_set_border_pixel (f, pix);
1547 update_face_from_frame_parameter (f, Qborder_color, arg);
1548 }
1549
1550
1551 void
1552 x_set_cursor_type (f, arg, oldval)
1553 FRAME_PTR f;
1554 Lisp_Object arg, oldval;
1555 {
1556 set_frame_cursor_types (f, arg);
1557
1558 /* Make sure the cursor gets redrawn. */
1559 cursor_type_changed = 1;
1560 }
1561 \f
1562 #if 0 /* MAC_TODO: really no icon for Mac */
1563 void
1564 x_set_icon_type (f, arg, oldval)
1565 struct frame *f;
1566 Lisp_Object arg, oldval;
1567 {
1568 int result;
1569
1570 if (NILP (arg) && NILP (oldval))
1571 return;
1572
1573 if (STRINGP (arg) && STRINGP (oldval)
1574 && EQ (Fstring_equal (oldval, arg), Qt))
1575 return;
1576
1577 if (SYMBOLP (arg) && SYMBOLP (oldval) && EQ (arg, oldval))
1578 return;
1579
1580 BLOCK_INPUT;
1581
1582 result = x_bitmap_icon (f, arg);
1583 if (result)
1584 {
1585 UNBLOCK_INPUT;
1586 error ("No icon window available");
1587 }
1588
1589 UNBLOCK_INPUT;
1590 }
1591 #endif /* MAC_TODO */
1592
1593 void
1594 x_set_icon_name (f, arg, oldval)
1595 struct frame *f;
1596 Lisp_Object arg, oldval;
1597 {
1598 int result;
1599
1600 if (STRINGP (arg))
1601 {
1602 if (STRINGP (oldval) && EQ (Fstring_equal (oldval, arg), Qt))
1603 return;
1604 }
1605 else if (!STRINGP (oldval) && EQ (oldval, Qnil) == EQ (arg, Qnil))
1606 return;
1607
1608 f->icon_name = arg;
1609
1610 #if 0 /* MAC_TODO */
1611 if (f->output_data.w32->icon_bitmap != 0)
1612 return;
1613
1614 BLOCK_INPUT;
1615
1616 result = x_text_icon (f,
1617 (char *) SDATA ((!NILP (f->icon_name)
1618 ? f->icon_name
1619 : !NILP (f->title)
1620 ? f->title
1621 : f->name)));
1622
1623 if (result)
1624 {
1625 UNBLOCK_INPUT;
1626 error ("No icon window available");
1627 }
1628
1629 /* If the window was unmapped (and its icon was mapped),
1630 the new icon is not mapped, so map the window in its stead. */
1631 if (FRAME_VISIBLE_P (f))
1632 {
1633 #ifdef USE_X_TOOLKIT
1634 XtPopup (f->output_data.w32->widget, XtGrabNone);
1635 #endif
1636 XMapWindow (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f));
1637 }
1638
1639 XFlush (FRAME_W32_DISPLAY (f));
1640 UNBLOCK_INPUT;
1641 #endif /* MAC_TODO */
1642 }
1643
1644 \f
1645 void
1646 x_set_menu_bar_lines (f, value, oldval)
1647 struct frame *f;
1648 Lisp_Object value, oldval;
1649 {
1650 /* Make sure we redisplay all windows in this frame. */
1651 windows_or_buffers_changed++;
1652
1653 FRAME_MENU_BAR_LINES (f) = 0;
1654 /* The menu bar is always shown. */
1655 FRAME_EXTERNAL_MENU_BAR (f) = 1;
1656 if (FRAME_MAC_P (f) && f->output_data.mac->menubar_widget == 0)
1657 /* Make sure next redisplay shows the menu bar. */
1658 XWINDOW (FRAME_SELECTED_WINDOW (f))->update_mode_line = Qt;
1659 adjust_glyphs (f);
1660 }
1661
1662
1663 /* Set the number of lines used for the tool bar of frame F to VALUE.
1664 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1665 is the old number of tool bar lines. This function changes the
1666 height of all windows on frame F to match the new tool bar height.
1667 The frame's height doesn't change. */
1668
1669 void
1670 x_set_tool_bar_lines (f, value, oldval)
1671 struct frame *f;
1672 Lisp_Object value, oldval;
1673 {
1674 int delta, nlines, root_height;
1675 Lisp_Object root_window;
1676
1677 /* Treat tool bars like menu bars. */
1678 if (FRAME_MINIBUF_ONLY_P (f))
1679 return;
1680
1681 /* Use VALUE only if an integer >= 0. */
1682 if (INTEGERP (value) && XINT (value) >= 0)
1683 nlines = XFASTINT (value);
1684 else
1685 nlines = 0;
1686
1687 /* Make sure we redisplay all windows in this frame. */
1688 ++windows_or_buffers_changed;
1689
1690 delta = nlines - FRAME_TOOL_BAR_LINES (f);
1691
1692 /* Don't resize the tool-bar to more than we have room for. */
1693 root_window = FRAME_ROOT_WINDOW (f);
1694 root_height = WINDOW_TOTAL_LINES (XWINDOW (root_window));
1695 if (root_height - delta < 1)
1696 {
1697 delta = root_height - 1;
1698 nlines = FRAME_TOOL_BAR_LINES (f) + delta;
1699 }
1700
1701 FRAME_TOOL_BAR_LINES (f) = nlines;
1702 change_window_heights (root_window, delta);
1703 adjust_glyphs (f);
1704
1705 /* We also have to make sure that the internal border at the top of
1706 the frame, below the menu bar or tool bar, is redrawn when the
1707 tool bar disappears. This is so because the internal border is
1708 below the tool bar if one is displayed, but is below the menu bar
1709 if there isn't a tool bar. The tool bar draws into the area
1710 below the menu bar. */
1711 if (FRAME_MAC_WINDOW (f) && FRAME_TOOL_BAR_LINES (f) == 0)
1712 {
1713 updating_frame = f;
1714 clear_frame ();
1715 clear_current_matrices (f);
1716 updating_frame = NULL;
1717 }
1718
1719 /* If the tool bar gets smaller, the internal border below it
1720 has to be cleared. It was formerly part of the display
1721 of the larger tool bar, and updating windows won't clear it. */
1722 if (delta < 0)
1723 {
1724 int height = FRAME_INTERNAL_BORDER_WIDTH (f);
1725 int width = FRAME_PIXEL_WIDTH (f);
1726 int y = nlines * FRAME_LINE_HEIGHT (f);
1727
1728 BLOCK_INPUT;
1729 mac_clear_area (f, 0, y, width, height);
1730 UNBLOCK_INPUT;
1731
1732 if (WINDOWP (f->tool_bar_window))
1733 clear_glyph_matrix (XWINDOW (f->tool_bar_window)->current_matrix);
1734 }
1735 }
1736
1737
1738 \f
1739 /* Set the Mac window title to NAME for frame F. */
1740
1741 static void
1742 x_set_name_internal (f, name)
1743 FRAME_PTR f;
1744 Lisp_Object name;
1745 {
1746 if (FRAME_MAC_WINDOW (f))
1747 {
1748 if (STRING_MULTIBYTE (name))
1749 #if TARGET_API_MAC_CARBON
1750 name = ENCODE_UTF_8 (name);
1751 #else
1752 name = ENCODE_SYSTEM (name);
1753 #endif
1754
1755 BLOCK_INPUT;
1756
1757 {
1758 #if TARGET_API_MAC_CARBON
1759 CFStringRef windowTitle =
1760 cfstring_create_with_utf8_cstring (SDATA (name));
1761
1762 SetWindowTitleWithCFString (FRAME_MAC_WINDOW (f), windowTitle);
1763 CFRelease (windowTitle);
1764 #else
1765 Str255 windowTitle;
1766 if (strlen (SDATA (name)) < 255)
1767 {
1768 strcpy (windowTitle, SDATA (name));
1769 c2pstr (windowTitle);
1770 SetWTitle (FRAME_MAC_WINDOW (f), windowTitle);
1771 }
1772 #endif
1773 }
1774
1775 UNBLOCK_INPUT;
1776 }
1777 }
1778
1779 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1780 mac_id_name.
1781
1782 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1783 name; if NAME is a string, set F's name to NAME and set
1784 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1785
1786 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1787 suggesting a new name, which lisp code should override; if
1788 F->explicit_name is set, ignore the new name; otherwise, set it. */
1789
1790 void
1791 x_set_name (f, name, explicit)
1792 struct frame *f;
1793 Lisp_Object name;
1794 int explicit;
1795 {
1796 /* Make sure that requests from lisp code override requests from
1797 Emacs redisplay code. */
1798 if (explicit)
1799 {
1800 /* If we're switching from explicit to implicit, we had better
1801 update the mode lines and thereby update the title. */
1802 if (f->explicit_name && NILP (name))
1803 update_mode_lines = 1;
1804
1805 f->explicit_name = ! NILP (name);
1806 }
1807 else if (f->explicit_name)
1808 return;
1809
1810 /* If NAME is nil, set the name to the mac_id_name. */
1811 if (NILP (name))
1812 {
1813 /* Check for no change needed in this very common case
1814 before we do any consing. */
1815 if (!strcmp (FRAME_MAC_DISPLAY_INFO (f)->mac_id_name,
1816 SDATA (f->name)))
1817 return;
1818 name = build_string (FRAME_MAC_DISPLAY_INFO (f)->mac_id_name);
1819 }
1820 else
1821 CHECK_STRING (name);
1822
1823 /* Don't change the name if it's already NAME. */
1824 if (! NILP (Fstring_equal (name, f->name)))
1825 return;
1826
1827 f->name = name;
1828
1829 /* For setting the frame title, the title parameter should override
1830 the name parameter. */
1831 if (! NILP (f->title))
1832 name = f->title;
1833
1834 x_set_name_internal (f, name);
1835 }
1836
1837 /* This function should be called when the user's lisp code has
1838 specified a name for the frame; the name will override any set by the
1839 redisplay code. */
1840 void
1841 x_explicitly_set_name (f, arg, oldval)
1842 FRAME_PTR f;
1843 Lisp_Object arg, oldval;
1844 {
1845 x_set_name (f, arg, 1);
1846 }
1847
1848 /* This function should be called by Emacs redisplay code to set the
1849 name; names set this way will never override names set by the user's
1850 lisp code. */
1851 void
1852 x_implicitly_set_name (f, arg, oldval)
1853 FRAME_PTR f;
1854 Lisp_Object arg, oldval;
1855 {
1856 x_set_name (f, arg, 0);
1857 }
1858 \f
1859 /* Change the title of frame F to NAME.
1860 If NAME is nil, use the frame name as the title.
1861
1862 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1863 name; if NAME is a string, set F's name to NAME and set
1864 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1865
1866 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1867 suggesting a new name, which lisp code should override; if
1868 F->explicit_name is set, ignore the new name; otherwise, set it. */
1869
1870 void
1871 x_set_title (f, name, old_name)
1872 struct frame *f;
1873 Lisp_Object name, old_name;
1874 {
1875 /* Don't change the title if it's already NAME. */
1876 if (EQ (name, f->title))
1877 return;
1878
1879 update_mode_lines = 1;
1880
1881 f->title = name;
1882
1883 if (NILP (name))
1884 name = f->name;
1885 else
1886 CHECK_STRING (name);
1887
1888 x_set_name_internal (f, name);
1889 }
1890
1891 void
1892 x_set_scroll_bar_default_width (f)
1893 struct frame *f;
1894 {
1895 /* Imitate X without X Toolkit */
1896
1897 int wid = FRAME_COLUMN_WIDTH (f);
1898
1899 #ifdef MAC_OSX
1900 FRAME_CONFIG_SCROLL_BAR_WIDTH (f) = 16; /* Aqua scroll bars. */
1901 FRAME_CONFIG_SCROLL_BAR_COLS (f) = (FRAME_CONFIG_SCROLL_BAR_WIDTH (f) +
1902 wid - 1) / wid;
1903 #else /* not MAC_OSX */
1904 /* Make the actual width at least 14 pixels and a multiple of a
1905 character width. */
1906 FRAME_CONFIG_SCROLL_BAR_COLS (f) = (14 + wid - 1) / wid;
1907
1908 /* Use all of that space (aside from required margins) for the
1909 scroll bar. */
1910 FRAME_CONFIG_SCROLL_BAR_WIDTH (f) = 0;
1911 #endif /* not MAC_OSX */
1912 }
1913
1914 \f
1915 /* Subroutines of creating a frame. */
1916
1917 /* Retrieve the string resource specified by NAME with CLASS from
1918 database RDB.
1919
1920 The return value points to the contents of a Lisp string. So it
1921 will not be valid after the next GC where string compaction will
1922 occur. */
1923
1924 char *
1925 x_get_string_resource (rdb, name, class)
1926 XrmDatabase rdb;
1927 char *name, *class;
1928 {
1929 Lisp_Object value = xrm_get_resource (rdb, name, class);
1930
1931 if (STRINGP (value))
1932 return SDATA (value);
1933 else
1934 return NULL;
1935 }
1936
1937 /* Return the value of parameter PARAM.
1938
1939 First search ALIST, then Vdefault_frame_alist, then the X defaults
1940 database, using ATTRIBUTE as the attribute name and CLASS as its class.
1941
1942 Convert the resource to the type specified by desired_type.
1943
1944 If no default is specified, return Qunbound. If you call
1945 mac_get_arg, make sure you deal with Qunbound in a reasonable way,
1946 and don't let it get stored in any Lisp-visible variables! */
1947
1948 static Lisp_Object
1949 mac_get_arg (alist, param, attribute, class, type)
1950 Lisp_Object alist, param;
1951 char *attribute;
1952 char *class;
1953 enum resource_types type;
1954 {
1955 return x_get_arg (check_x_display_info (Qnil),
1956 alist, param, attribute, class, type);
1957 }
1958
1959 \f
1960 /* XParseGeometry copied from w32xfns.c */
1961
1962 /*
1963 * XParseGeometry parses strings of the form
1964 * "=<width>x<height>{+-}<xoffset>{+-}<yoffset>", where
1965 * width, height, xoffset, and yoffset are unsigned integers.
1966 * Example: "=80x24+300-49"
1967 * The equal sign is optional.
1968 * It returns a bitmask that indicates which of the four values
1969 * were actually found in the string. For each value found,
1970 * the corresponding argument is updated; for each value
1971 * not found, the corresponding argument is left unchanged.
1972 */
1973
1974 static int
1975 read_integer (string, NextString)
1976 register char *string;
1977 char **NextString;
1978 {
1979 register int Result = 0;
1980 int Sign = 1;
1981
1982 if (*string == '+')
1983 string++;
1984 else if (*string == '-')
1985 {
1986 string++;
1987 Sign = -1;
1988 }
1989 for (; (*string >= '0') && (*string <= '9'); string++)
1990 {
1991 Result = (Result * 10) + (*string - '0');
1992 }
1993 *NextString = string;
1994 if (Sign >= 0)
1995 return (Result);
1996 else
1997 return (-Result);
1998 }
1999
2000 int
2001 XParseGeometry (string, x, y, width, height)
2002 char *string;
2003 int *x, *y;
2004 unsigned int *width, *height; /* RETURN */
2005 {
2006 int mask = NoValue;
2007 register char *strind;
2008 unsigned int tempWidth, tempHeight;
2009 int tempX, tempY;
2010 char *nextCharacter;
2011
2012 if ((string == NULL) || (*string == '\0')) return (mask);
2013 if (*string == '=')
2014 string++; /* ignore possible '=' at beg of geometry spec */
2015
2016 strind = (char *)string;
2017 if (*strind != '+' && *strind != '-' && *strind != 'x')
2018 {
2019 tempWidth = read_integer (strind, &nextCharacter);
2020 if (strind == nextCharacter)
2021 return (0);
2022 strind = nextCharacter;
2023 mask |= WidthValue;
2024 }
2025
2026 if (*strind == 'x' || *strind == 'X')
2027 {
2028 strind++;
2029 tempHeight = read_integer (strind, &nextCharacter);
2030 if (strind == nextCharacter)
2031 return (0);
2032 strind = nextCharacter;
2033 mask |= HeightValue;
2034 }
2035
2036 if ((*strind == '+') || (*strind == '-'))
2037 {
2038 if (*strind == '-')
2039 {
2040 strind++;
2041 tempX = -read_integer (strind, &nextCharacter);
2042 if (strind == nextCharacter)
2043 return (0);
2044 strind = nextCharacter;
2045 mask |= XNegative;
2046
2047 }
2048 else
2049 {
2050 strind++;
2051 tempX = read_integer (strind, &nextCharacter);
2052 if (strind == nextCharacter)
2053 return (0);
2054 strind = nextCharacter;
2055 }
2056 mask |= XValue;
2057 if ((*strind == '+') || (*strind == '-'))
2058 {
2059 if (*strind == '-')
2060 {
2061 strind++;
2062 tempY = -read_integer (strind, &nextCharacter);
2063 if (strind == nextCharacter)
2064 return (0);
2065 strind = nextCharacter;
2066 mask |= YNegative;
2067
2068 }
2069 else
2070 {
2071 strind++;
2072 tempY = read_integer (strind, &nextCharacter);
2073 if (strind == nextCharacter)
2074 return (0);
2075 strind = nextCharacter;
2076 }
2077 mask |= YValue;
2078 }
2079 }
2080
2081 /* If strind isn't at the end of the string the it's an invalid
2082 geometry specification. */
2083
2084 if (*strind != '\0') return (0);
2085
2086 if (mask & XValue)
2087 *x = tempX;
2088 if (mask & YValue)
2089 *y = tempY;
2090 if (mask & WidthValue)
2091 *width = tempWidth;
2092 if (mask & HeightValue)
2093 *height = tempHeight;
2094 return (mask);
2095 }
2096
2097 \f
2098 /* Create and set up the Mac window for frame F. */
2099
2100 static void
2101 mac_window (f)
2102 struct frame *f;
2103 {
2104 Rect r;
2105
2106 BLOCK_INPUT;
2107
2108 SetRect (&r, f->left_pos, f->top_pos,
2109 f->left_pos + FRAME_PIXEL_WIDTH (f),
2110 f->top_pos + FRAME_PIXEL_HEIGHT (f));
2111 #if TARGET_API_MAC_CARBON
2112 CreateNewWindow (kDocumentWindowClass,
2113 kWindowStandardDocumentAttributes
2114 /* | kWindowToolbarButtonAttribute */,
2115 &r, &FRAME_MAC_WINDOW (f));
2116 if (FRAME_MAC_WINDOW (f))
2117 {
2118 SetWRefCon (FRAME_MAC_WINDOW (f), (long) f->output_data.mac);
2119 if (install_window_handler (FRAME_MAC_WINDOW (f)) != noErr)
2120 {
2121 DisposeWindow (FRAME_MAC_WINDOW (f));
2122 FRAME_MAC_WINDOW (f) = NULL;
2123 }
2124 }
2125 #else
2126 FRAME_MAC_WINDOW (f)
2127 = NewCWindow (NULL, &r, "\p", false, zoomDocProc,
2128 (WindowPtr) -1, 1, (long) f->output_data.mac);
2129 #endif
2130 /* so that update events can find this mac_output struct */
2131 f->output_data.mac->mFP = f; /* point back to emacs frame */
2132
2133 #ifndef MAC_OSX
2134 if (FRAME_MAC_WINDOW (f))
2135 {
2136 ControlRef root_control;
2137
2138 if (CreateRootControl (FRAME_MAC_WINDOW (f), &root_control) != noErr)
2139 {
2140 DisposeWindow (FRAME_MAC_WINDOW (f));
2141 FRAME_MAC_WINDOW (f) = NULL;
2142 }
2143 }
2144 #endif
2145 if (FRAME_MAC_WINDOW (f))
2146 XSetWindowBackground (FRAME_MAC_DISPLAY(f), FRAME_MAC_WINDOW (f),
2147 FRAME_BACKGROUND_PIXEL (f));
2148
2149 validate_x_resource_name ();
2150
2151 /* x_set_name normally ignores requests to set the name if the
2152 requested name is the same as the current name. This is the one
2153 place where that assumption isn't correct; f->name is set, but
2154 the server hasn't been told. */
2155 {
2156 Lisp_Object name;
2157 int explicit = f->explicit_name;
2158
2159 f->explicit_name = 0;
2160 name = f->name;
2161 f->name = Qnil;
2162 x_set_name (f, name, explicit);
2163 }
2164
2165 UNBLOCK_INPUT;
2166
2167 if (FRAME_MAC_WINDOW (f) == 0)
2168 error ("Unable to create window");
2169 }
2170
2171 /* Handle the icon stuff for this window. Perhaps later we might
2172 want an x_set_icon_position which can be called interactively as
2173 well. */
2174
2175 static void
2176 x_icon (f, parms)
2177 struct frame *f;
2178 Lisp_Object parms;
2179 {
2180 Lisp_Object icon_x, icon_y;
2181
2182 /* Set the position of the icon. Note that Windows 95 groups all
2183 icons in the tray. */
2184 icon_x = mac_get_arg (parms, Qicon_left, 0, 0, RES_TYPE_NUMBER);
2185 icon_y = mac_get_arg (parms, Qicon_top, 0, 0, RES_TYPE_NUMBER);
2186 if (!EQ (icon_x, Qunbound) && !EQ (icon_y, Qunbound))
2187 {
2188 CHECK_NUMBER (icon_x);
2189 CHECK_NUMBER (icon_y);
2190 }
2191 else if (!EQ (icon_x, Qunbound) || !EQ (icon_y, Qunbound))
2192 error ("Both left and top icon corners of icon must be specified");
2193
2194 BLOCK_INPUT;
2195
2196 if (! EQ (icon_x, Qunbound))
2197 x_wm_set_icon_position (f, XINT (icon_x), XINT (icon_y));
2198
2199 #if 0 /* TODO */
2200 /* Start up iconic or window? */
2201 x_wm_set_window_state
2202 (f, (EQ (w32_get_arg (parms, Qvisibility, 0, 0, RES_TYPE_SYMBOL), Qicon)
2203 ? IconicState
2204 : NormalState));
2205
2206 x_text_icon (f, (char *) SDATA ((!NILP (f->icon_name)
2207 ? f->icon_name
2208 : f->name)));
2209 #endif
2210
2211 UNBLOCK_INPUT;
2212 }
2213
2214
2215 void
2216 x_make_gc (f)
2217 struct frame *f;
2218 {
2219 XGCValues gc_values;
2220
2221 BLOCK_INPUT;
2222
2223 /* Create the GCs of this frame.
2224 Note that many default values are used. */
2225
2226 /* Normal video */
2227 gc_values.font = FRAME_FONT (f);
2228 gc_values.foreground = FRAME_FOREGROUND_PIXEL (f);
2229 gc_values.background = FRAME_BACKGROUND_PIXEL (f);
2230 f->output_data.mac->normal_gc = XCreateGC (FRAME_MAC_DISPLAY (f),
2231 FRAME_MAC_WINDOW (f),
2232 GCFont | GCForeground | GCBackground,
2233 &gc_values);
2234
2235 /* Reverse video style. */
2236 gc_values.foreground = FRAME_BACKGROUND_PIXEL (f);
2237 gc_values.background = FRAME_FOREGROUND_PIXEL (f);
2238 f->output_data.mac->reverse_gc = XCreateGC (FRAME_MAC_DISPLAY (f),
2239 FRAME_MAC_WINDOW (f),
2240 GCFont | GCForeground | GCBackground,
2241 &gc_values);
2242
2243 /* Cursor has cursor-color background, background-color foreground. */
2244 gc_values.foreground = FRAME_BACKGROUND_PIXEL (f);
2245 gc_values.background = f->output_data.mac->cursor_pixel;
2246 f->output_data.mac->cursor_gc = XCreateGC (FRAME_MAC_DISPLAY (f),
2247 FRAME_MAC_WINDOW (f),
2248 GCFont | GCForeground | GCBackground,
2249 &gc_values);
2250
2251 /* Reliefs. */
2252 f->output_data.mac->white_relief.gc = 0;
2253 f->output_data.mac->black_relief.gc = 0;
2254
2255 #if 0
2256 /* Create the gray border tile used when the pointer is not in
2257 the frame. Since this depends on the frame's pixel values,
2258 this must be done on a per-frame basis. */
2259 f->output_data.x->border_tile
2260 = (XCreatePixmapFromBitmapData
2261 (FRAME_X_DISPLAY (f), FRAME_X_DISPLAY_INFO (f)->root_window,
2262 gray_bits, gray_width, gray_height,
2263 f->output_data.x->foreground_pixel,
2264 f->output_data.x->background_pixel,
2265 DefaultDepth (FRAME_X_DISPLAY (f), FRAME_X_SCREEN_NUMBER (f))));
2266 #endif
2267
2268 UNBLOCK_INPUT;
2269 }
2270
2271
2272 /* Free what was was allocated in x_make_gc. */
2273
2274 void
2275 x_free_gcs (f)
2276 struct frame *f;
2277 {
2278 Display *dpy = FRAME_MAC_DISPLAY (f);
2279
2280 BLOCK_INPUT;
2281
2282 if (f->output_data.mac->normal_gc)
2283 {
2284 XFreeGC (dpy, f->output_data.mac->normal_gc);
2285 f->output_data.mac->normal_gc = 0;
2286 }
2287
2288 if (f->output_data.mac->reverse_gc)
2289 {
2290 XFreeGC (dpy, f->output_data.mac->reverse_gc);
2291 f->output_data.mac->reverse_gc = 0;
2292 }
2293
2294 if (f->output_data.mac->cursor_gc)
2295 {
2296 XFreeGC (dpy, f->output_data.mac->cursor_gc);
2297 f->output_data.mac->cursor_gc = 0;
2298 }
2299
2300 #if 0
2301 if (f->output_data.mac->border_tile)
2302 {
2303 XFreePixmap (dpy, f->output_data.mac->border_tile);
2304 f->output_data.mac->border_tile = 0;
2305 }
2306 #endif
2307
2308 if (f->output_data.mac->white_relief.gc)
2309 {
2310 XFreeGC (dpy, f->output_data.mac->white_relief.gc);
2311 f->output_data.mac->white_relief.gc = 0;
2312 }
2313
2314 if (f->output_data.mac->black_relief.gc)
2315 {
2316 XFreeGC (dpy, f->output_data.mac->black_relief.gc);
2317 f->output_data.mac->black_relief.gc = 0;
2318 }
2319
2320 UNBLOCK_INPUT;
2321 }
2322
2323
2324 /* Handler for signals raised during x_create_frame and
2325 x_create_top_frame. FRAME is the frame which is partially
2326 constructed. */
2327
2328 static Lisp_Object
2329 unwind_create_frame (frame)
2330 Lisp_Object frame;
2331 {
2332 struct frame *f = XFRAME (frame);
2333
2334 /* If frame is ``official'', nothing to do. */
2335 if (!CONSP (Vframe_list) || !EQ (XCAR (Vframe_list), frame))
2336 {
2337 #if GLYPH_DEBUG
2338 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
2339 #endif
2340
2341 x_free_frame_resources (f);
2342
2343 #if GLYPH_DEBUG
2344 /* Check that reference counts are indeed correct. */
2345 xassert (dpyinfo->reference_count == dpyinfo_refcount);
2346 xassert (dpyinfo->image_cache->refcount == image_cache_refcount);
2347 #endif
2348 return Qt;
2349 }
2350
2351 return Qnil;
2352 }
2353
2354
2355 DEFUN ("x-create-frame", Fx_create_frame, Sx_create_frame,
2356 1, 1, 0,
2357 doc: /* Make a new window, which is called a "frame" in Emacs terms.
2358 Returns an Emacs frame object.
2359 ALIST is an alist of frame parameters.
2360 If the parameters specify that the frame should not have a minibuffer,
2361 and do not specify a specific minibuffer window to use,
2362 then `default-minibuffer-frame' must be a frame whose minibuffer can
2363 be shared by the new frame.
2364
2365 This function is an internal primitive--use `make-frame' instead. */)
2366 (parms)
2367 Lisp_Object parms;
2368 {
2369 struct frame *f;
2370 Lisp_Object frame, tem;
2371 Lisp_Object name;
2372 int minibuffer_only = 0;
2373 long window_prompting = 0;
2374 int width, height;
2375 int count = SPECPDL_INDEX ();
2376 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
2377 Lisp_Object display;
2378 struct mac_display_info *dpyinfo = NULL;
2379 Lisp_Object parent;
2380 struct kboard *kb;
2381 static int x_frame_count = 2; /* begins at 2 because terminal frame is F1 */
2382
2383 check_mac ();
2384
2385 parms = Fcopy_alist (parms);
2386
2387 /* Use this general default value to start with
2388 until we know if this frame has a specified name. */
2389 Vx_resource_name = Vinvocation_name;
2390
2391 display = mac_get_arg (parms, Qdisplay, 0, 0, RES_TYPE_STRING);
2392 if (EQ (display, Qunbound))
2393 display = Qnil;
2394 dpyinfo = check_x_display_info (display);
2395 #ifdef MULTI_KBOARD
2396 kb = dpyinfo->kboard;
2397 #else
2398 kb = &the_only_kboard;
2399 #endif
2400
2401 name = mac_get_arg (parms, Qname, "name", "Name", RES_TYPE_STRING);
2402 if (!STRINGP (name)
2403 && ! EQ (name, Qunbound)
2404 && ! NILP (name))
2405 error ("Invalid frame name--not a string or nil");
2406
2407 if (STRINGP (name))
2408 Vx_resource_name = name;
2409
2410 /* See if parent window is specified. */
2411 parent = mac_get_arg (parms, Qparent_id, NULL, NULL, RES_TYPE_NUMBER);
2412 if (EQ (parent, Qunbound))
2413 parent = Qnil;
2414 if (! NILP (parent))
2415 CHECK_NUMBER (parent);
2416
2417 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
2418 /* No need to protect DISPLAY because that's not used after passing
2419 it to make_frame_without_minibuffer. */
2420 frame = Qnil;
2421 GCPRO4 (parms, parent, name, frame);
2422 tem = mac_get_arg (parms, Qminibuffer, "minibuffer", "Minibuffer",
2423 RES_TYPE_SYMBOL);
2424 if (EQ (tem, Qnone) || NILP (tem))
2425 f = make_frame_without_minibuffer (Qnil, kb, display);
2426 else if (EQ (tem, Qonly))
2427 {
2428 f = make_minibuffer_frame ();
2429 minibuffer_only = 1;
2430 }
2431 else if (WINDOWP (tem))
2432 f = make_frame_without_minibuffer (tem, kb, display);
2433 else
2434 f = make_frame (1);
2435
2436 XSETFRAME (frame, f);
2437
2438 /* Note that X Windows does support scroll bars. */
2439 FRAME_CAN_HAVE_SCROLL_BARS (f) = 1;
2440
2441 f->output_method = output_mac;
2442 f->output_data.mac = (struct mac_output *) xmalloc (sizeof (struct mac_output));
2443 bzero (f->output_data.mac, sizeof (struct mac_output));
2444 FRAME_FONTSET (f) = -1;
2445 record_unwind_protect (unwind_create_frame, frame);
2446
2447 f->icon_name
2448 = mac_get_arg (parms, Qicon_name, "iconName", "Title", RES_TYPE_STRING);
2449 if (! STRINGP (f->icon_name))
2450 f->icon_name = Qnil;
2451
2452 /* FRAME_MAC_DISPLAY_INFO (f) = dpyinfo; */
2453 #if GLYPH_DEBUG
2454 image_cache_refcount = FRAME_X_IMAGE_CACHE (f)->refcount;
2455 dpyinfo_refcount = dpyinfo->reference_count;
2456 #endif /* GLYPH_DEBUG */
2457 #ifdef MULTI_KBOARD
2458 FRAME_KBOARD (f) = kb;
2459 #endif
2460
2461 /* Specify the parent under which to make this window. */
2462
2463 if (!NILP (parent))
2464 {
2465 f->output_data.mac->parent_desc = (Window) XFASTINT (parent);
2466 f->output_data.mac->explicit_parent = 1;
2467 }
2468 else
2469 {
2470 f->output_data.mac->parent_desc = FRAME_MAC_DISPLAY_INFO (f)->root_window;
2471 f->output_data.mac->explicit_parent = 0;
2472 }
2473
2474 /* Set the name; the functions to which we pass f expect the name to
2475 be set. */
2476 if (EQ (name, Qunbound) || NILP (name))
2477 {
2478 f->name = build_string (dpyinfo->mac_id_name);
2479 f->explicit_name = 0;
2480 }
2481 else
2482 {
2483 f->name = name;
2484 f->explicit_name = 1;
2485 /* use the frame's title when getting resources for this frame. */
2486 specbind (Qx_resource_name, name);
2487 }
2488
2489 /* Extract the window parameters from the supplied values
2490 that are needed to determine window geometry. */
2491 {
2492 Lisp_Object font;
2493
2494 font = mac_get_arg (parms, Qfont, "font", "Font", RES_TYPE_STRING);
2495
2496 BLOCK_INPUT;
2497 /* First, try whatever font the caller has specified. */
2498 if (STRINGP (font))
2499 {
2500 tem = Fquery_fontset (font, Qnil);
2501 if (STRINGP (tem))
2502 font = x_new_fontset (f, SDATA (tem));
2503 else
2504 font = x_new_font (f, SDATA (font));
2505 }
2506
2507 /* Try out a font which we hope has bold and italic variations. */
2508 #if USE_ATSUI
2509 if (! STRINGP (font))
2510 font = x_new_font (f, "-*-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1");
2511 #endif
2512 if (! STRINGP (font))
2513 font = x_new_font (f, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1");
2514 /* If those didn't work, look for something which will at least work. */
2515 if (! STRINGP (font))
2516 font = x_new_fontset (f, "fontset-standard");
2517 if (! STRINGP (font))
2518 font = x_new_font (f, "-*-monaco-*-12-*-mac-roman");
2519 if (! STRINGP (font))
2520 font = x_new_font (f, "-*-courier-*-10-*-mac-roman");
2521 if (! STRINGP (font))
2522 error ("Cannot find any usable font");
2523 UNBLOCK_INPUT;
2524
2525 x_default_parameter (f, parms, Qfont, font,
2526 "font", "Font", RES_TYPE_STRING);
2527 }
2528
2529 x_default_parameter (f, parms, Qborder_width, make_number (0),
2530 "borderwidth", "BorderWidth", RES_TYPE_NUMBER);
2531 /* This defaults to 2 in order to match xterm. We recognize either
2532 internalBorderWidth or internalBorder (which is what xterm calls
2533 it). */
2534 if (NILP (Fassq (Qinternal_border_width, parms)))
2535 {
2536 Lisp_Object value;
2537
2538 value = mac_get_arg (parms, Qinternal_border_width,
2539 "internalBorder", "InternalBorder", RES_TYPE_NUMBER);
2540 if (! EQ (value, Qunbound))
2541 parms = Fcons (Fcons (Qinternal_border_width, value),
2542 parms);
2543 }
2544 /* Default internalBorderWidth to 0 on Windows to match other programs. */
2545 x_default_parameter (f, parms, Qinternal_border_width, make_number (0),
2546 "internalBorderWidth", "InternalBorder", RES_TYPE_NUMBER);
2547 x_default_parameter (f, parms, Qvertical_scroll_bars, Qright,
2548 "verticalScrollBars", "ScrollBars", RES_TYPE_SYMBOL);
2549
2550 /* Also do the stuff which must be set before the window exists. */
2551 x_default_parameter (f, parms, Qforeground_color, build_string ("black"),
2552 "foreground", "Foreground", RES_TYPE_STRING);
2553 x_default_parameter (f, parms, Qbackground_color, build_string ("white"),
2554 "background", "Background", RES_TYPE_STRING);
2555 x_default_parameter (f, parms, Qmouse_color, build_string ("black"),
2556 "pointerColor", "Foreground", RES_TYPE_STRING);
2557 x_default_parameter (f, parms, Qcursor_color, build_string ("black"),
2558 "cursorColor", "Foreground", RES_TYPE_STRING);
2559 x_default_parameter (f, parms, Qborder_color, build_string ("black"),
2560 "borderColor", "BorderColor", RES_TYPE_STRING);
2561 x_default_parameter (f, parms, Qscreen_gamma, Qnil,
2562 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT);
2563 x_default_parameter (f, parms, Qline_spacing, Qnil,
2564 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER);
2565 x_default_parameter (f, parms, Qleft_fringe, Qnil,
2566 "leftFringe", "LeftFringe", RES_TYPE_NUMBER);
2567 x_default_parameter (f, parms, Qright_fringe, Qnil,
2568 "rightFringe", "RightFringe", RES_TYPE_NUMBER);
2569
2570
2571 /* Init faces before x_default_parameter is called for scroll-bar
2572 parameters because that function calls x_set_scroll_bar_width,
2573 which calls change_frame_size, which calls Fset_window_buffer,
2574 which runs hooks, which call Fvertical_motion. At the end, we
2575 end up in init_iterator with a null face cache, which should not
2576 happen. */
2577 init_frame_faces (f);
2578
2579 x_default_parameter (f, parms, Qmenu_bar_lines, make_number (1),
2580 "menuBar", "MenuBar", RES_TYPE_NUMBER);
2581 x_default_parameter (f, parms, Qtool_bar_lines, make_number (1),
2582 "toolBar", "ToolBar", RES_TYPE_NUMBER);
2583 x_default_parameter (f, parms, Qbuffer_predicate, Qnil,
2584 "bufferPredicate", "BufferPredicate",
2585 RES_TYPE_SYMBOL);
2586 x_default_parameter (f, parms, Qtitle, Qnil,
2587 "title", "Title", RES_TYPE_STRING);
2588 x_default_parameter (f, parms, Qfullscreen, Qnil,
2589 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL);
2590
2591 f->output_data.mac->parent_desc = FRAME_MAC_DISPLAY_INFO (f)->root_window;
2592
2593 /* Compute the size of the window. */
2594 window_prompting = x_figure_window_size (f, parms, 1);
2595
2596 tem = mac_get_arg (parms, Qunsplittable, 0, 0, RES_TYPE_BOOLEAN);
2597 f->no_split = minibuffer_only || EQ (tem, Qt);
2598
2599 mac_window (f);
2600
2601 x_icon (f, parms);
2602 x_make_gc (f);
2603
2604 /* Now consider the frame official. */
2605 FRAME_MAC_DISPLAY_INFO (f)->reference_count++;
2606 Vframe_list = Fcons (frame, Vframe_list);
2607
2608 /* We need to do this after creating the window, so that the
2609 icon-creation functions can say whose icon they're describing. */
2610 x_default_parameter (f, parms, Qicon_type, Qnil,
2611 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL);
2612
2613 x_default_parameter (f, parms, Qauto_raise, Qnil,
2614 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN);
2615 x_default_parameter (f, parms, Qauto_lower, Qnil,
2616 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN);
2617 x_default_parameter (f, parms, Qcursor_type, Qbox,
2618 "cursorType", "CursorType", RES_TYPE_SYMBOL);
2619 x_default_parameter (f, parms, Qscroll_bar_width, Qnil,
2620 "scrollBarWidth", "ScrollBarWidth",
2621 RES_TYPE_NUMBER);
2622
2623 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
2624 Change will not be effected unless different from the current
2625 FRAME_LINES (f). */
2626 width = FRAME_COLS (f);
2627 height = FRAME_LINES (f);
2628
2629 SET_FRAME_COLS (f, 0);
2630 FRAME_LINES (f) = 0;
2631 change_frame_size (f, height, width, 1, 0, 0);
2632
2633 /* Tell the server what size and position, etc, we want, and how
2634 badly we want them. This should be done after we have the menu
2635 bar so that its size can be taken into account. */
2636 BLOCK_INPUT;
2637 x_wm_set_size_hint (f, window_prompting, 0);
2638 UNBLOCK_INPUT;
2639
2640 /* Make the window appear on the frame and enable display, unless
2641 the caller says not to. However, with explicit parent, Emacs
2642 cannot control visibility, so don't try. */
2643 if (! f->output_data.mac->explicit_parent)
2644 {
2645 Lisp_Object visibility;
2646
2647 visibility = mac_get_arg (parms, Qvisibility, 0, 0, RES_TYPE_SYMBOL);
2648 if (EQ (visibility, Qunbound))
2649 visibility = Qt;
2650
2651 if (EQ (visibility, Qicon))
2652 x_iconify_frame (f);
2653 else if (! NILP (visibility))
2654 x_make_frame_visible (f);
2655 else
2656 /* Must have been Qnil. */
2657 ;
2658 }
2659
2660 /* Initialize `default-minibuffer-frame' in case this is the first
2661 frame on this display device. */
2662 if (FRAME_HAS_MINIBUF_P (f)
2663 && (!FRAMEP (kb->Vdefault_minibuffer_frame)
2664 || !FRAME_LIVE_P (XFRAME (kb->Vdefault_minibuffer_frame))))
2665 kb->Vdefault_minibuffer_frame = frame;
2666
2667 /* All remaining specified parameters, which have not been "used"
2668 by x_get_arg and friends, now go in the misc. alist of the frame. */
2669 for (tem = parms; !NILP (tem); tem = XCDR (tem))
2670 if (CONSP (XCAR (tem)) && !NILP (XCAR (XCAR (tem))))
2671 f->param_alist = Fcons (XCAR (tem), f->param_alist);
2672
2673 UNGCPRO;
2674
2675 /* Make sure windows on this frame appear in calls to next-window
2676 and similar functions. */
2677 Vwindow_list = Qnil;
2678
2679 return unbind_to (count, frame);
2680 }
2681
2682
2683 /* FRAME is used only to get a handle on the X display. We don't pass the
2684 display info directly because we're called from frame.c, which doesn't
2685 know about that structure. */
2686
2687 Lisp_Object
2688 x_get_focus_frame (frame)
2689 struct frame *frame;
2690 {
2691 struct mac_display_info *dpyinfo = FRAME_MAC_DISPLAY_INFO (frame);
2692 Lisp_Object xfocus;
2693 if (! dpyinfo->x_focus_frame)
2694 return Qnil;
2695
2696 XSETFRAME (xfocus, dpyinfo->x_focus_frame);
2697 return xfocus;
2698 }
2699
2700
2701 DEFUN ("x-focus-frame", Fx_focus_frame, Sx_focus_frame, 1, 1, 0,
2702 doc: /* Set the input focus to FRAME.
2703 FRAME nil means use the selected frame. */)
2704 (frame)
2705 Lisp_Object frame;
2706 {
2707 struct frame *f = check_x_frame (frame);
2708 struct mac_display_info *dpyinfo = FRAME_MAC_DISPLAY_INFO (f);
2709
2710 if (dpyinfo->x_focus_frame != f)
2711 {
2712 BLOCK_INPUT;
2713 #ifdef MAC_OSX
2714 ActivateWindow (ActiveNonFloatingWindow (), false);
2715 ActivateWindow (FRAME_MAC_WINDOW (f), true);
2716 #else
2717 #if !TARGET_API_MAC_CARBON
2718 /* SelectWindow (Non-Carbon) does not issue deactivate events if
2719 the possibly inactive window that is to be selected is
2720 already the frontmost one. */
2721 SendBehind (FRAME_MAC_WINDOW (f), NULL);
2722 #endif
2723 /* This brings the window to the front. */
2724 SelectWindow (FRAME_MAC_WINDOW (f));
2725 #endif
2726 UNBLOCK_INPUT;
2727 }
2728
2729 return Qnil;
2730 }
2731
2732 \f
2733 DEFUN ("xw-color-defined-p", Fxw_color_defined_p, Sxw_color_defined_p, 1, 2, 0,
2734 doc: /* Internal function called by `color-defined-p', which see. */)
2735 (color, frame)
2736 Lisp_Object color, frame;
2737 {
2738 XColor foo;
2739 FRAME_PTR f = check_x_frame (frame);
2740
2741 CHECK_STRING (color);
2742
2743 if (mac_defined_color (f, SDATA (color), &foo, 0))
2744 return Qt;
2745 else
2746 return Qnil;
2747 }
2748
2749 DEFUN ("xw-color-values", Fxw_color_values, Sxw_color_values, 1, 2, 0,
2750 doc: /* Internal function called by `color-values', which see. */)
2751 (color, frame)
2752 Lisp_Object color, frame;
2753 {
2754 XColor foo;
2755 FRAME_PTR f = check_x_frame (frame);
2756
2757 CHECK_STRING (color);
2758
2759 if (mac_defined_color (f, SDATA (color), &foo, 0))
2760 {
2761 Lisp_Object rgb[3];
2762
2763 rgb[0] = make_number (foo.red);
2764 rgb[1] = make_number (foo.green);
2765 rgb[2] = make_number (foo.blue);
2766 return Flist (3, rgb);
2767 }
2768 else
2769 return Qnil;
2770 }
2771
2772 DEFUN ("xw-display-color-p", Fxw_display_color_p, Sxw_display_color_p, 0, 1, 0,
2773 doc: /* Internal function called by `display-color-p', which see. */)
2774 (display)
2775 Lisp_Object display;
2776 {
2777 struct mac_display_info *dpyinfo = check_x_display_info (display);
2778
2779 if (!dpyinfo->color_p)
2780 return Qnil;
2781
2782 return Qt;
2783 }
2784
2785 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p, Sx_display_grayscale_p,
2786 0, 1, 0,
2787 doc: /* Return t if DISPLAY supports shades of gray.
2788 Note that color displays do support shades of gray.
2789 The optional argument DISPLAY specifies which display to ask about.
2790 DISPLAY should be either a frame or a display name (a string).
2791 If omitted or nil, that stands for the selected frame's display. */)
2792 (display)
2793 Lisp_Object display;
2794 {
2795 struct mac_display_info *dpyinfo = check_x_display_info (display);
2796
2797 if (dpyinfo->n_planes <= 1)
2798 return Qnil;
2799
2800 return Qt;
2801 }
2802
2803 DEFUN ("x-display-pixel-width", Fx_display_pixel_width, Sx_display_pixel_width,
2804 0, 1, 0,
2805 doc: /* Returns the width in pixels of DISPLAY.
2806 The optional argument DISPLAY specifies which display to ask about.
2807 DISPLAY should be either a frame or a display name (a string).
2808 If omitted or nil, that stands for the selected frame's display. */)
2809 (display)
2810 Lisp_Object display;
2811 {
2812 struct mac_display_info *dpyinfo = check_x_display_info (display);
2813
2814 return make_number (dpyinfo->width);
2815 }
2816
2817 DEFUN ("x-display-pixel-height", Fx_display_pixel_height,
2818 Sx_display_pixel_height, 0, 1, 0,
2819 doc: /* Returns the height in pixels of DISPLAY.
2820 The optional argument DISPLAY specifies which display to ask about.
2821 DISPLAY should be either a frame or a display name (a string).
2822 If omitted or nil, that stands for the selected frame's display. */)
2823 (display)
2824 Lisp_Object display;
2825 {
2826 struct mac_display_info *dpyinfo = check_x_display_info (display);
2827
2828 return make_number (dpyinfo->height);
2829 }
2830
2831 DEFUN ("x-display-planes", Fx_display_planes, Sx_display_planes,
2832 0, 1, 0,
2833 doc: /* Returns the number of bitplanes of DISPLAY.
2834 The optional argument DISPLAY specifies which display to ask about.
2835 DISPLAY should be either a frame or a display name (a string).
2836 If omitted or nil, that stands for the selected frame's display. */)
2837 (display)
2838 Lisp_Object display;
2839 {
2840 struct mac_display_info *dpyinfo = check_x_display_info (display);
2841
2842 return make_number (dpyinfo->n_planes);
2843 }
2844
2845 DEFUN ("x-display-color-cells", Fx_display_color_cells, Sx_display_color_cells,
2846 0, 1, 0,
2847 doc: /* Returns the number of color cells of DISPLAY.
2848 The optional argument DISPLAY specifies which display to ask about.
2849 DISPLAY should be either a frame or a display name (a string).
2850 If omitted or nil, that stands for the selected frame's display. */)
2851 (display)
2852 Lisp_Object display;
2853 {
2854 struct mac_display_info *dpyinfo = check_x_display_info (display);
2855
2856 /* We force 24+ bit depths to 24-bit to prevent an overflow. */
2857 return make_number (1 << min (dpyinfo->n_planes, 24));
2858 }
2859
2860 DEFUN ("x-server-max-request-size", Fx_server_max_request_size,
2861 Sx_server_max_request_size,
2862 0, 1, 0,
2863 doc: /* Returns the maximum request size of the server of DISPLAY.
2864 The optional argument DISPLAY specifies which display to ask about.
2865 DISPLAY should be either a frame or a display name (a string).
2866 If omitted or nil, that stands for the selected frame's display. */)
2867 (display)
2868 Lisp_Object display;
2869 {
2870 struct mac_display_info *dpyinfo = check_x_display_info (display);
2871
2872 return make_number (1);
2873 }
2874
2875 DEFUN ("x-server-vendor", Fx_server_vendor, Sx_server_vendor, 0, 1, 0,
2876 doc: /* Returns the "vendor ID" string of the Mac OS system (Apple).
2877 The optional argument DISPLAY specifies which display to ask about.
2878 DISPLAY should be either a frame or a display name (a string).
2879 If omitted or nil, that stands for the selected frame's display. */)
2880 (display)
2881 Lisp_Object display;
2882 {
2883 return build_string ("Apple Computers");
2884 }
2885
2886 DEFUN ("x-server-version", Fx_server_version, Sx_server_version, 0, 1, 0,
2887 doc: /* Returns the version numbers of the Mac OS system.
2888 The value is a list of three integers: the major and minor
2889 version numbers, and the vendor-specific release
2890 number. See also the function `x-server-vendor'.
2891
2892 The optional argument DISPLAY specifies which display to ask about.
2893 DISPLAY should be either a frame or a display name (a string).
2894 If omitted or nil, that stands for the selected frame's display. */)
2895 (display)
2896 Lisp_Object display;
2897 {
2898 UInt32 response, major, minor, bugfix;
2899 OSErr err;
2900
2901 BLOCK_INPUT;
2902 err = Gestalt (gestaltSystemVersion, &response);
2903 if (err == noErr)
2904 if (response >= 0x00001040)
2905 {
2906 err = Gestalt ('sys1', &major); /* gestaltSystemVersionMajor */
2907 if (err == noErr)
2908 err = Gestalt ('sys2', &minor); /* gestaltSystemVersionMinor */
2909 if (err == noErr)
2910 err = Gestalt ('sys3', &bugfix); /* gestaltSystemVersionBugFix */
2911 }
2912 else
2913 {
2914 bugfix = response & 0xf;
2915 response >>= 4;
2916 minor = response & 0xf;
2917 response >>= 4;
2918 /* convert BCD to int */
2919 major = response - (response >> 4) * 6;
2920 }
2921 UNBLOCK_INPUT;
2922
2923 if (err != noErr)
2924 error ("Cannot get Mac OS version");
2925
2926 return Fcons (make_number (major),
2927 Fcons (make_number (minor),
2928 Fcons (make_number (bugfix),
2929 Qnil)));
2930 }
2931
2932 DEFUN ("x-display-screens", Fx_display_screens, Sx_display_screens, 0, 1, 0,
2933 doc: /* Return the number of screens on the server of DISPLAY.
2934 The optional argument DISPLAY specifies which display to ask about.
2935 DISPLAY should be either a frame or a display name (a string).
2936 If omitted or nil, that stands for the selected frame's display. */)
2937 (display)
2938 Lisp_Object display;
2939 {
2940 return make_number (1);
2941 }
2942
2943 DEFUN ("x-display-mm-height", Fx_display_mm_height, Sx_display_mm_height, 0, 1, 0,
2944 doc: /* Return the height in millimeters of DISPLAY.
2945 The optional argument DISPLAY specifies which display to ask about.
2946 DISPLAY should be either a frame or a display name (a string).
2947 If omitted or nil, that stands for the selected frame's display. */)
2948 (display)
2949 Lisp_Object display;
2950 {
2951 /* MAC_TODO: this is an approximation, and only of the main display */
2952
2953 struct mac_display_info *dpyinfo = check_x_display_info (display);
2954
2955 return make_number ((int) (dpyinfo->height * 25.4 / dpyinfo->resy));
2956 }
2957
2958 DEFUN ("x-display-mm-width", Fx_display_mm_width, Sx_display_mm_width, 0, 1, 0,
2959 doc: /* Return the width in millimeters of DISPLAY.
2960 The optional argument DISPLAY specifies which display to ask about.
2961 DISPLAY should be either a frame or a display name (a string).
2962 If omitted or nil, that stands for the selected frame's display. */)
2963 (display)
2964 Lisp_Object display;
2965 {
2966 /* MAC_TODO: this is an approximation, and only of the main display */
2967
2968 struct mac_display_info *dpyinfo = check_x_display_info (display);
2969
2970 return make_number ((int) (dpyinfo->width * 25.4 / dpyinfo->resx));
2971 }
2972
2973 DEFUN ("x-display-backing-store", Fx_display_backing_store,
2974 Sx_display_backing_store, 0, 1, 0,
2975 doc: /* Returns an indication of whether DISPLAY does backing store.
2976 The value may be `always', `when-mapped', or `not-useful'.
2977 The optional argument DISPLAY specifies which display to ask about.
2978 DISPLAY should be either a frame or a display name (a string).
2979 If omitted or nil, that stands for the selected frame's display. */)
2980 (display)
2981 Lisp_Object display;
2982 {
2983 return intern ("not-useful");
2984 }
2985
2986 DEFUN ("x-display-visual-class", Fx_display_visual_class,
2987 Sx_display_visual_class, 0, 1, 0,
2988 doc: /* Returns the visual class of DISPLAY.
2989 The value is one of the symbols `static-gray', `gray-scale',
2990 `static-color', `pseudo-color', `true-color', or `direct-color'.
2991
2992 The optional argument DISPLAY specifies which display to ask about.
2993 DISPLAY should be either a frame or a display name (a string).
2994 If omitted or nil, that stands for the selected frame's display. */)
2995 (display)
2996 Lisp_Object display;
2997 {
2998 struct mac_display_info *dpyinfo = check_x_display_info (display);
2999
3000 #if 0
3001 switch (dpyinfo->visual->class)
3002 {
3003 case StaticGray: return (intern ("static-gray"));
3004 case GrayScale: return (intern ("gray-scale"));
3005 case StaticColor: return (intern ("static-color"));
3006 case PseudoColor: return (intern ("pseudo-color"));
3007 case TrueColor: return (intern ("true-color"));
3008 case DirectColor: return (intern ("direct-color"));
3009 default:
3010 error ("Display has an unknown visual class");
3011 }
3012 #endif /* 0 */
3013
3014 return (intern ("true-color"));
3015 }
3016
3017 DEFUN ("x-display-save-under", Fx_display_save_under,
3018 Sx_display_save_under, 0, 1, 0,
3019 doc: /* Returns t if DISPLAY supports the save-under feature.
3020 The optional argument DISPLAY specifies which display to ask about.
3021 DISPLAY should be either a frame or a display name (a string).
3022 If omitted or nil, that stands for the selected frame's display. */)
3023 (display)
3024 Lisp_Object display;
3025 {
3026 return Qnil;
3027 }
3028 \f
3029 int
3030 x_pixel_width (f)
3031 register struct frame *f;
3032 {
3033 return FRAME_PIXEL_WIDTH (f);
3034 }
3035
3036 int
3037 x_pixel_height (f)
3038 register struct frame *f;
3039 {
3040 return FRAME_PIXEL_HEIGHT (f);
3041 }
3042
3043 int
3044 x_char_width (f)
3045 register struct frame *f;
3046 {
3047 return FRAME_COLUMN_WIDTH (f);
3048 }
3049
3050 int
3051 x_char_height (f)
3052 register struct frame *f;
3053 {
3054 return FRAME_LINE_HEIGHT (f);
3055 }
3056
3057 int
3058 x_screen_planes (f)
3059 register struct frame *f;
3060 {
3061 return FRAME_MAC_DISPLAY_INFO (f)->n_planes;
3062 }
3063 \f
3064 /* Return the display structure for the display named NAME.
3065 Open a new connection if necessary. */
3066
3067 struct mac_display_info *
3068 x_display_info_for_name (name)
3069 Lisp_Object name;
3070 {
3071 Lisp_Object names;
3072 struct mac_display_info *dpyinfo;
3073
3074 CHECK_STRING (name);
3075
3076 if (! EQ (Vwindow_system, intern ("mac")))
3077 error ("Not using Mac native windows");
3078
3079 for (dpyinfo = &one_mac_display_info, names = x_display_name_list;
3080 dpyinfo;
3081 dpyinfo = dpyinfo->next, names = XCDR (names))
3082 {
3083 Lisp_Object tem;
3084 tem = Fstring_equal (XCAR (XCAR (names)), name);
3085 if (!NILP (tem))
3086 return dpyinfo;
3087 }
3088
3089 /* Use this general default value to start with. */
3090 Vx_resource_name = Vinvocation_name;
3091
3092 validate_x_resource_name ();
3093
3094 dpyinfo = mac_term_init (name, (unsigned char *) 0,
3095 (char *) SDATA (Vx_resource_name));
3096
3097 if (dpyinfo == 0)
3098 error ("Cannot connect to server %s", SDATA (name));
3099
3100 mac_in_use = 1;
3101 XSETFASTINT (Vwindow_system_version, 3);
3102
3103 return dpyinfo;
3104 }
3105
3106 DEFUN ("x-open-connection", Fx_open_connection, Sx_open_connection,
3107 1, 3, 0,
3108 doc: /* Open a connection to a server.
3109 DISPLAY is the name of the display to connect to.
3110 Optional second arg XRM-STRING is a string of resources in xrdb format.
3111 If the optional third arg MUST-SUCCEED is non-nil,
3112 terminate Emacs if we can't open the connection. */)
3113 (display, xrm_string, must_succeed)
3114 Lisp_Object display, xrm_string, must_succeed;
3115 {
3116 unsigned char *xrm_option;
3117 struct mac_display_info *dpyinfo;
3118
3119 CHECK_STRING (display);
3120 if (! NILP (xrm_string))
3121 CHECK_STRING (xrm_string);
3122
3123 if (! EQ (Vwindow_system, intern ("mac")))
3124 error ("Not using Mac native windows");
3125
3126 if (! NILP (xrm_string))
3127 xrm_option = (unsigned char *) SDATA (xrm_string);
3128 else
3129 xrm_option = (unsigned char *) 0;
3130
3131 validate_x_resource_name ();
3132
3133 /* This is what opens the connection and sets x_current_display.
3134 This also initializes many symbols, such as those used for input. */
3135 dpyinfo = mac_term_init (display, xrm_option,
3136 (char *) SDATA (Vx_resource_name));
3137
3138 if (dpyinfo == 0)
3139 {
3140 if (!NILP (must_succeed))
3141 fatal ("Cannot connect to server %s.\n",
3142 SDATA (display));
3143 else
3144 error ("Cannot connect to server %s", SDATA (display));
3145 }
3146
3147 mac_in_use = 1;
3148
3149 XSETFASTINT (Vwindow_system_version, 3);
3150 return Qnil;
3151 }
3152
3153 DEFUN ("x-close-connection", Fx_close_connection,
3154 Sx_close_connection, 1, 1, 0,
3155 doc: /* Close the connection to DISPLAY's server.
3156 For DISPLAY, specify either a frame or a display name (a string).
3157 If DISPLAY is nil, that stands for the selected frame's display. */)
3158 (display)
3159 Lisp_Object display;
3160 {
3161 struct mac_display_info *dpyinfo = check_x_display_info (display);
3162 int i;
3163
3164 if (dpyinfo->reference_count > 0)
3165 error ("Display still has frames on it");
3166
3167 BLOCK_INPUT;
3168 /* Free the fonts in the font table. */
3169 for (i = 0; i < dpyinfo->n_fonts; i++)
3170 if (dpyinfo->font_table[i].name)
3171 {
3172 mac_unload_font (dpyinfo, dpyinfo->font_table[i].font);
3173 }
3174
3175 x_destroy_all_bitmaps (dpyinfo);
3176
3177 x_delete_display (dpyinfo);
3178 UNBLOCK_INPUT;
3179
3180 return Qnil;
3181 }
3182
3183 DEFUN ("x-display-list", Fx_display_list, Sx_display_list, 0, 0, 0,
3184 doc: /* Return the list of display names that Emacs has connections to. */)
3185 ()
3186 {
3187 Lisp_Object tail, result;
3188
3189 result = Qnil;
3190 for (tail = x_display_name_list; ! NILP (tail); tail = XCDR (tail))
3191 result = Fcons (XCAR (XCAR (tail)), result);
3192
3193 return result;
3194 }
3195
3196 DEFUN ("x-synchronize", Fx_synchronize, Sx_synchronize, 1, 2, 0,
3197 doc: /* This is a noop on Mac OS systems. */)
3198 (on, display)
3199 Lisp_Object display, on;
3200 {
3201 return Qnil;
3202 }
3203
3204 \f
3205 /***********************************************************************
3206 Window properties
3207 ***********************************************************************/
3208
3209 DEFUN ("x-change-window-property", Fx_change_window_property,
3210 Sx_change_window_property, 2, 6, 0,
3211 doc: /* Change window property PROP to VALUE on the X window of FRAME.
3212 VALUE may be a string or a list of conses, numbers and/or strings.
3213 If an element in the list is a string, it is converted to
3214 an Atom and the value of the Atom is used. If an element is a cons,
3215 it is converted to a 32 bit number where the car is the 16 top bits and the
3216 cdr is the lower 16 bits.
3217 FRAME nil or omitted means use the selected frame.
3218 If TYPE is given and non-nil, it is the name of the type of VALUE.
3219 If TYPE is not given or nil, the type is STRING.
3220 FORMAT gives the size in bits of each element if VALUE is a list.
3221 It must be one of 8, 16 or 32.
3222 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
3223 If OUTER_P is non-nil, the property is changed for the outer X window of
3224 FRAME. Default is to change on the edit X window.
3225
3226 Value is VALUE. */)
3227 (prop, value, frame, type, format, outer_p)
3228 Lisp_Object prop, value, frame, type, format, outer_p;
3229 {
3230 #if 0 /* MAC_TODO : port window properties to Mac */
3231 struct frame *f = check_x_frame (frame);
3232 Atom prop_atom;
3233
3234 CHECK_STRING (prop);
3235 CHECK_STRING (value);
3236
3237 BLOCK_INPUT;
3238 prop_atom = XInternAtom (FRAME_W32_DISPLAY (f), SDATA (prop), False);
3239 XChangeProperty (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f),
3240 prop_atom, XA_STRING, 8, PropModeReplace,
3241 SDATA (value), SCHARS (value));
3242
3243 /* Make sure the property is set when we return. */
3244 XFlush (FRAME_W32_DISPLAY (f));
3245 UNBLOCK_INPUT;
3246
3247 #endif /* MAC_TODO */
3248
3249 return value;
3250 }
3251
3252
3253 DEFUN ("x-delete-window-property", Fx_delete_window_property,
3254 Sx_delete_window_property, 1, 2, 0,
3255 doc: /* Remove window property PROP from X window of FRAME.
3256 FRAME nil or omitted means use the selected frame. Value is PROP. */)
3257 (prop, frame)
3258 Lisp_Object prop, frame;
3259 {
3260 #if 0 /* MAC_TODO : port window properties to Mac */
3261
3262 struct frame *f = check_x_frame (frame);
3263 Atom prop_atom;
3264
3265 CHECK_STRING (prop);
3266 BLOCK_INPUT;
3267 prop_atom = XInternAtom (FRAME_W32_DISPLAY (f), SDATA (prop), False);
3268 XDeleteProperty (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f), prop_atom);
3269
3270 /* Make sure the property is removed when we return. */
3271 XFlush (FRAME_W32_DISPLAY (f));
3272 UNBLOCK_INPUT;
3273 #endif /* MAC_TODO */
3274
3275 return prop;
3276 }
3277
3278
3279 DEFUN ("x-window-property", Fx_window_property, Sx_window_property,
3280 1, 2, 0,
3281 doc: /* Value is the value of window property PROP on FRAME.
3282 If FRAME is nil or omitted, use the selected frame. Value is nil
3283 if FRAME hasn't a property with name PROP or if PROP has no string
3284 value. */)
3285 (prop, frame)
3286 Lisp_Object prop, frame;
3287 {
3288 #if 0 /* MAC_TODO : port window properties to Mac */
3289
3290 struct frame *f = check_x_frame (frame);
3291 Atom prop_atom;
3292 int rc;
3293 Lisp_Object prop_value = Qnil;
3294 char *tmp_data = NULL;
3295 Atom actual_type;
3296 int actual_format;
3297 unsigned long actual_size, bytes_remaining;
3298
3299 CHECK_STRING (prop);
3300 BLOCK_INPUT;
3301 prop_atom = XInternAtom (FRAME_W32_DISPLAY (f), SDATA (prop), False);
3302 rc = XGetWindowProperty (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f),
3303 prop_atom, 0, 0, False, XA_STRING,
3304 &actual_type, &actual_format, &actual_size,
3305 &bytes_remaining, (unsigned char **) &tmp_data);
3306 if (rc == Success)
3307 {
3308 int size = bytes_remaining;
3309
3310 XFree (tmp_data);
3311 tmp_data = NULL;
3312
3313 rc = XGetWindowProperty (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f),
3314 prop_atom, 0, bytes_remaining,
3315 False, XA_STRING,
3316 &actual_type, &actual_format,
3317 &actual_size, &bytes_remaining,
3318 (unsigned char **) &tmp_data);
3319 if (rc == Success)
3320 prop_value = make_string (tmp_data, size);
3321
3322 XFree (tmp_data);
3323 }
3324
3325 UNBLOCK_INPUT;
3326
3327 return prop_value;
3328
3329 #endif /* MAC_TODO */
3330 return Qnil;
3331 }
3332
3333
3334 \f
3335 /***********************************************************************
3336 Busy cursor
3337 ***********************************************************************/
3338
3339 /* If non-null, an asynchronous timer that, when it expires, displays
3340 an hourglass cursor on all frames. */
3341
3342 static struct atimer *hourglass_atimer;
3343
3344 /* Non-zero means an hourglass cursor is currently shown. */
3345
3346 static int hourglass_shown_p;
3347
3348 /* Number of seconds to wait before displaying an hourglass cursor. */
3349
3350 static Lisp_Object Vhourglass_delay;
3351
3352 /* Default number of seconds to wait before displaying an hourglass
3353 cursor. */
3354
3355 #define DEFAULT_HOURGLASS_DELAY 1
3356
3357 /* Function prototypes. */
3358
3359 static void show_hourglass P_ ((struct atimer *));
3360 static void hide_hourglass P_ ((void));
3361
3362 /* Return non-zero if houglass timer has been started or hourglass is shown. */
3363
3364 int
3365 hourglass_started ()
3366 {
3367 return hourglass_shown_p || hourglass_atimer != NULL;
3368 }
3369
3370
3371 /* Cancel a currently active hourglass timer, and start a new one. */
3372
3373 void
3374 start_hourglass ()
3375 {
3376 #ifdef MAC_OSX
3377 EMACS_TIME delay;
3378 int secs, usecs = 0;
3379
3380 /* Don't bother for ttys. */
3381 if (NILP (Vwindow_system))
3382 return;
3383
3384 cancel_hourglass ();
3385
3386 if (INTEGERP (Vhourglass_delay)
3387 && XINT (Vhourglass_delay) > 0)
3388 secs = XFASTINT (Vhourglass_delay);
3389 else if (FLOATP (Vhourglass_delay)
3390 && XFLOAT_DATA (Vhourglass_delay) > 0)
3391 {
3392 Lisp_Object tem;
3393 tem = Ftruncate (Vhourglass_delay, Qnil);
3394 secs = XFASTINT (tem);
3395 usecs = (XFLOAT_DATA (Vhourglass_delay) - secs) * 1000000;
3396 }
3397 else
3398 secs = DEFAULT_HOURGLASS_DELAY;
3399
3400 EMACS_SET_SECS_USECS (delay, secs, usecs);
3401 hourglass_atimer = start_atimer (ATIMER_RELATIVE, delay,
3402 show_hourglass, NULL);
3403 #endif /* MAC_OSX */
3404 }
3405
3406
3407 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
3408 shown. */
3409
3410 void
3411 cancel_hourglass ()
3412 {
3413 #ifdef MAC_OSX
3414 if (hourglass_atimer)
3415 {
3416 cancel_atimer (hourglass_atimer);
3417 hourglass_atimer = NULL;
3418 }
3419
3420 if (hourglass_shown_p)
3421 hide_hourglass ();
3422 #endif /* MAC_OSX */
3423 }
3424
3425
3426 /* Timer function of hourglass_atimer. TIMER is equal to
3427 hourglass_atimer.
3428
3429 On Mac, busy status is shown by the progress indicator (chasing
3430 arrows) at the upper-right corner of each frame instead of the
3431 hourglass pointer. */
3432
3433 static void
3434 show_hourglass (timer)
3435 struct atimer *timer;
3436 {
3437 #if TARGET_API_MAC_CARBON
3438 /* The timer implementation will cancel this timer automatically
3439 after this function has run. Set hourglass_atimer to null
3440 so that we know the timer doesn't have to be canceled. */
3441 hourglass_atimer = NULL;
3442
3443 if (!hourglass_shown_p)
3444 {
3445 Lisp_Object rest, frame;
3446
3447 BLOCK_INPUT;
3448
3449 FOR_EACH_FRAME (rest, frame)
3450 {
3451 struct frame *f = XFRAME (frame);
3452
3453 if (FRAME_LIVE_P (f) && FRAME_MAC_P (f)
3454 && FRAME_MAC_WINDOW (f) != tip_window)
3455 {
3456 if (!f->output_data.mac->hourglass_control)
3457 {
3458 Window w = FRAME_MAC_WINDOW (f);
3459 Rect r;
3460 ControlRef c;
3461
3462 GetWindowPortBounds (w, &r);
3463 r.left = r.right - HOURGLASS_WIDTH;
3464 r.bottom = r.top + HOURGLASS_HEIGHT;
3465 if (CreateChasingArrowsControl (w, &r, &c) == noErr)
3466 f->output_data.mac->hourglass_control = c;
3467 }
3468
3469 if (f->output_data.mac->hourglass_control)
3470 ShowControl (f->output_data.mac->hourglass_control);
3471 }
3472 }
3473
3474 hourglass_shown_p = 1;
3475 UNBLOCK_INPUT;
3476 }
3477 #endif /* TARGET_API_MAC_CARBON */
3478 }
3479
3480
3481 /* Hide the progress indicators on all frames, if it is currently
3482 shown. */
3483
3484 static void
3485 hide_hourglass ()
3486 {
3487 #if TARGET_API_MAC_CARBON
3488 if (hourglass_shown_p)
3489 {
3490 Lisp_Object rest, frame;
3491
3492 BLOCK_INPUT;
3493 FOR_EACH_FRAME (rest, frame)
3494 {
3495 struct frame *f = XFRAME (frame);
3496
3497 if (FRAME_MAC_P (f)
3498 /* Watch out for newly created frames. */
3499 && f->output_data.mac->hourglass_control)
3500 HideControl (f->output_data.mac->hourglass_control);
3501 }
3502
3503 hourglass_shown_p = 0;
3504 UNBLOCK_INPUT;
3505 }
3506 #endif /* TARGET_API_MAC_CARBON */
3507 }
3508
3509
3510 \f
3511 /***********************************************************************
3512 Tool tips
3513 ***********************************************************************/
3514
3515 static Lisp_Object x_create_tip_frame P_ ((struct mac_display_info *,
3516 Lisp_Object, Lisp_Object));
3517 static void compute_tip_xy P_ ((struct frame *, Lisp_Object, Lisp_Object,
3518 Lisp_Object, int, int, int *, int *));
3519
3520 /* The frame of a currently visible tooltip. */
3521
3522 Lisp_Object tip_frame;
3523
3524 /* If non-nil, a timer started that hides the last tooltip when it
3525 fires. */
3526
3527 Lisp_Object tip_timer;
3528 Window tip_window;
3529
3530 /* If non-nil, a vector of 3 elements containing the last args
3531 with which x-show-tip was called. See there. */
3532
3533 Lisp_Object last_show_tip_args;
3534
3535 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
3536
3537 Lisp_Object Vx_max_tooltip_size;
3538
3539
3540 static Lisp_Object
3541 unwind_create_tip_frame (frame)
3542 Lisp_Object frame;
3543 {
3544 Lisp_Object deleted;
3545
3546 deleted = unwind_create_frame (frame);
3547 if (EQ (deleted, Qt))
3548 {
3549 tip_window = NULL;
3550 tip_frame = Qnil;
3551 }
3552
3553 return deleted;
3554 }
3555
3556
3557 /* Create a frame for a tooltip on the display described by DPYINFO.
3558 PARMS is a list of frame parameters. TEXT is the string to
3559 display in the tip frame. Value is the frame.
3560
3561 Note that functions called here, esp. x_default_parameter can
3562 signal errors, for instance when a specified color name is
3563 undefined. We have to make sure that we're in a consistent state
3564 when this happens. */
3565
3566 static Lisp_Object
3567 x_create_tip_frame (dpyinfo, parms, text)
3568 struct mac_display_info *dpyinfo;
3569 Lisp_Object parms, text;
3570 {
3571 struct frame *f;
3572 Lisp_Object frame, tem;
3573 Lisp_Object name;
3574 long window_prompting = 0;
3575 int width, height;
3576 int count = SPECPDL_INDEX ();
3577 struct gcpro gcpro1, gcpro2, gcpro3;
3578 struct kboard *kb;
3579 int face_change_count_before = face_change_count;
3580 Lisp_Object buffer;
3581 struct buffer *old_buffer;
3582
3583 check_mac ();
3584
3585
3586 #ifdef MULTI_KBOARD
3587 kb = dpyinfo->kboard;
3588 #else
3589 kb = &the_only_kboard;
3590 #endif
3591
3592 /* Get the name of the frame to use for resource lookup. */
3593 name = mac_get_arg (parms, Qname, "name", "Name", RES_TYPE_STRING);
3594 if (!STRINGP (name)
3595 && !EQ (name, Qunbound)
3596 && !NILP (name))
3597 error ("Invalid frame name--not a string or nil");
3598
3599 frame = Qnil;
3600 GCPRO3 (parms, name, frame);
3601 f = make_frame (1);
3602 XSETFRAME (frame, f);
3603
3604 buffer = Fget_buffer_create (build_string (" *tip*"));
3605 Fset_window_buffer (FRAME_ROOT_WINDOW (f), buffer, Qnil);
3606 old_buffer = current_buffer;
3607 set_buffer_internal_1 (XBUFFER (buffer));
3608 current_buffer->truncate_lines = Qnil;
3609 specbind (Qinhibit_read_only, Qt);
3610 specbind (Qinhibit_modification_hooks, Qt);
3611 Ferase_buffer ();
3612 Finsert (1, &text);
3613 set_buffer_internal_1 (old_buffer);
3614
3615 FRAME_CAN_HAVE_SCROLL_BARS (f) = 0;
3616 record_unwind_protect (unwind_create_tip_frame, frame);
3617
3618 /* By setting the output method, we're essentially saying that
3619 the frame is live, as per FRAME_LIVE_P. If we get a signal
3620 from this point on, x_destroy_window might screw up reference
3621 counts etc. */
3622 f->output_method = output_mac;
3623 f->output_data.mac =
3624 (struct mac_output *) xmalloc (sizeof (struct mac_output));
3625 bzero (f->output_data.mac, sizeof (struct mac_output));
3626
3627 FRAME_FONTSET (f) = -1;
3628 f->icon_name = Qnil;
3629 /* FRAME_X_DISPLAY_INFO (f) = dpyinfo; */
3630 #if GLYPH_DEBUG
3631 image_cache_refcount = FRAME_X_IMAGE_CACHE (f)->refcount;
3632 dpyinfo_refcount = dpyinfo->reference_count;
3633 #endif /* GLYPH_DEBUG */
3634 #ifdef MULTI_KBOARD
3635 FRAME_KBOARD (f) = kb;
3636 #endif
3637 f->output_data.mac->parent_desc = FRAME_MAC_DISPLAY_INFO (f)->root_window;
3638 f->output_data.mac->explicit_parent = 0;
3639
3640 /* Set the name; the functions to which we pass f expect the name to
3641 be set. */
3642 if (EQ (name, Qunbound) || NILP (name))
3643 {
3644 f->name = build_string (dpyinfo->mac_id_name);
3645 f->explicit_name = 0;
3646 }
3647 else
3648 {
3649 f->name = name;
3650 f->explicit_name = 1;
3651 /* use the frame's title when getting resources for this frame. */
3652 specbind (Qx_resource_name, name);
3653 }
3654
3655 /* Extract the window parameters from the supplied values that are
3656 needed to determine window geometry. */
3657 {
3658 Lisp_Object font;
3659
3660 font = mac_get_arg (parms, Qfont, "font", "Font", RES_TYPE_STRING);
3661
3662 BLOCK_INPUT;
3663 /* First, try whatever font the caller has specified. */
3664 if (STRINGP (font))
3665 {
3666 tem = Fquery_fontset (font, Qnil);
3667 if (STRINGP (tem))
3668 font = x_new_fontset (f, SDATA (tem));
3669 else
3670 font = x_new_font (f, SDATA (font));
3671 }
3672
3673 /* Try out a font which we hope has bold and italic variations. */
3674 #if USE_ATSUI
3675 if (! STRINGP (font))
3676 font = x_new_font (f, "-*-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1");
3677 #endif
3678 if (! STRINGP (font))
3679 font = x_new_font (f, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1");
3680 /* If those didn't work, look for something which will at least work. */
3681 if (! STRINGP (font))
3682 font = x_new_fontset (f, "fontset-standard");
3683 if (! STRINGP (font))
3684 font = x_new_font (f, "-*-monaco-*-12-*-mac-roman");
3685 if (! STRINGP (font))
3686 font = x_new_font (f, "-*-courier-*-10-*-mac-roman");
3687 UNBLOCK_INPUT;
3688 if (! STRINGP (font))
3689 error ("Cannot find any usable font");
3690
3691 x_default_parameter (f, parms, Qfont, font,
3692 "font", "Font", RES_TYPE_STRING);
3693 }
3694
3695 x_default_parameter (f, parms, Qborder_width, make_number (2),
3696 "borderWidth", "BorderWidth", RES_TYPE_NUMBER);
3697
3698 /* This defaults to 2 in order to match xterm. We recognize either
3699 internalBorderWidth or internalBorder (which is what xterm calls
3700 it). */
3701 if (NILP (Fassq (Qinternal_border_width, parms)))
3702 {
3703 Lisp_Object value;
3704
3705 value = mac_get_arg (parms, Qinternal_border_width,
3706 "internalBorder", "internalBorder", RES_TYPE_NUMBER);
3707 if (! EQ (value, Qunbound))
3708 parms = Fcons (Fcons (Qinternal_border_width, value),
3709 parms);
3710 }
3711
3712 x_default_parameter (f, parms, Qinternal_border_width, make_number (1),
3713 "internalBorderWidth", "internalBorderWidth",
3714 RES_TYPE_NUMBER);
3715
3716 /* Also do the stuff which must be set before the window exists. */
3717 x_default_parameter (f, parms, Qforeground_color, build_string ("black"),
3718 "foreground", "Foreground", RES_TYPE_STRING);
3719 x_default_parameter (f, parms, Qbackground_color, build_string ("white"),
3720 "background", "Background", RES_TYPE_STRING);
3721 x_default_parameter (f, parms, Qmouse_color, build_string ("black"),
3722 "pointerColor", "Foreground", RES_TYPE_STRING);
3723 x_default_parameter (f, parms, Qcursor_color, build_string ("black"),
3724 "cursorColor", "Foreground", RES_TYPE_STRING);
3725 x_default_parameter (f, parms, Qborder_color, build_string ("black"),
3726 "borderColor", "BorderColor", RES_TYPE_STRING);
3727
3728 /* Init faces before x_default_parameter is called for scroll-bar
3729 parameters because that function calls x_set_scroll_bar_width,
3730 which calls change_frame_size, which calls Fset_window_buffer,
3731 which runs hooks, which call Fvertical_motion. At the end, we
3732 end up in init_iterator with a null face cache, which should not
3733 happen. */
3734 init_frame_faces (f);
3735
3736 f->output_data.mac->parent_desc = FRAME_MAC_DISPLAY_INFO (f)->root_window;
3737
3738 window_prompting = x_figure_window_size (f, parms, 0);
3739
3740 {
3741 Rect r;
3742
3743 BLOCK_INPUT;
3744 SetRect (&r, 0, 0, 1, 1);
3745 #if TARGET_API_MAC_CARBON
3746 if (CreateNewWindow (kHelpWindowClass,
3747 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
3748 kWindowIgnoreClicksAttribute |
3749 #endif
3750 kWindowNoUpdatesAttribute |
3751 kWindowNoActivatesAttribute,
3752 &r, &tip_window) == noErr)
3753 #else
3754 if (tip_window = NewCWindow (NULL, &r, "\p", false, plainDBox,
3755 NULL, false, 0L))
3756 #endif
3757 {
3758 FRAME_MAC_WINDOW (f) = tip_window;
3759 XSetWindowBackground (FRAME_MAC_DISPLAY(f), tip_window,
3760 FRAME_BACKGROUND_PIXEL (f));
3761 SetWRefCon (tip_window, (long) f->output_data.mac);
3762 /* so that update events can find this mac_output struct */
3763 f->output_data.mac->mFP = f;
3764 }
3765 UNBLOCK_INPUT;
3766 }
3767
3768 x_make_gc (f);
3769
3770 x_default_parameter (f, parms, Qauto_raise, Qnil,
3771 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN);
3772 x_default_parameter (f, parms, Qauto_lower, Qnil,
3773 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN);
3774 x_default_parameter (f, parms, Qcursor_type, Qbox,
3775 "cursorType", "CursorType", RES_TYPE_SYMBOL);
3776
3777 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3778 Change will not be effected unless different from the current
3779 FRAME_LINES (f). */
3780 width = FRAME_COLS (f);
3781 height = FRAME_LINES (f);
3782 SET_FRAME_COLS (f, 0);
3783 FRAME_LINES (f) = 0;
3784 change_frame_size (f, height, width, 1, 0, 0);
3785
3786 /* Add `tooltip' frame parameter's default value. */
3787 if (NILP (Fframe_parameter (frame, intern ("tooltip"))))
3788 Fmodify_frame_parameters (frame, Fcons (Fcons (intern ("tooltip"), Qt),
3789 Qnil));
3790
3791 /* Set up faces after all frame parameters are known. This call
3792 also merges in face attributes specified for new frames.
3793
3794 Frame parameters may be changed if .Xdefaults contains
3795 specifications for the default font. For example, if there is an
3796 `Emacs.default.attributeBackground: pink', the `background-color'
3797 attribute of the frame get's set, which let's the internal border
3798 of the tooltip frame appear in pink. Prevent this. */
3799 {
3800 Lisp_Object bg = Fframe_parameter (frame, Qbackground_color);
3801
3802 /* Set tip_frame here, so that */
3803 tip_frame = frame;
3804 call1 (Qface_set_after_frame_default, frame);
3805
3806 if (!EQ (bg, Fframe_parameter (frame, Qbackground_color)))
3807 Fmodify_frame_parameters (frame, Fcons (Fcons (Qbackground_color, bg),
3808 Qnil));
3809 }
3810
3811 f->no_split = 1;
3812
3813 UNGCPRO;
3814
3815 /* It is now ok to make the frame official even if we get an error
3816 below. And the frame needs to be on Vframe_list or making it
3817 visible won't work. */
3818 Vframe_list = Fcons (frame, Vframe_list);
3819
3820 /* Now that the frame is official, it counts as a reference to
3821 its display. */
3822 FRAME_MAC_DISPLAY_INFO (f)->reference_count++;
3823
3824 /* Setting attributes of faces of the tooltip frame from resources
3825 and similar will increment face_change_count, which leads to the
3826 clearing of all current matrices. Since this isn't necessary
3827 here, avoid it by resetting face_change_count to the value it
3828 had before we created the tip frame. */
3829 face_change_count = face_change_count_before;
3830
3831 /* Discard the unwind_protect. */
3832 return unbind_to (count, frame);
3833 }
3834
3835
3836 /* Compute where to display tip frame F. PARMS is the list of frame
3837 parameters for F. DX and DY are specified offsets from the current
3838 location of the mouse. WIDTH and HEIGHT are the width and height
3839 of the tooltip. Return coordinates relative to the root window of
3840 the display in *ROOT_X, and *ROOT_Y. */
3841
3842 static void
3843 compute_tip_xy (f, parms, dx, dy, width, height, root_x, root_y)
3844 struct frame *f;
3845 Lisp_Object parms, dx, dy;
3846 int width, height;
3847 int *root_x, *root_y;
3848 {
3849 Lisp_Object left, top;
3850
3851 /* User-specified position? */
3852 left = Fcdr (Fassq (Qleft, parms));
3853 top = Fcdr (Fassq (Qtop, parms));
3854
3855 /* Move the tooltip window where the mouse pointer is. Resize and
3856 show it. */
3857 if (!INTEGERP (left) || !INTEGERP (top))
3858 {
3859 Point mouse_pos;
3860
3861 BLOCK_INPUT;
3862 GetMouse (&mouse_pos);
3863 LocalToGlobal (&mouse_pos);
3864 *root_x = mouse_pos.h;
3865 *root_y = mouse_pos.v;
3866 UNBLOCK_INPUT;
3867 }
3868
3869 if (INTEGERP (top))
3870 *root_y = XINT (top);
3871 else if (*root_y + XINT (dy) <= 0)
3872 *root_y = 0; /* Can happen for negative dy */
3873 else if (*root_y + XINT (dy) + height <= FRAME_MAC_DISPLAY_INFO (f)->height)
3874 /* It fits below the pointer */
3875 *root_y += XINT (dy);
3876 else if (height + XINT (dy) <= *root_y)
3877 /* It fits above the pointer. */
3878 *root_y -= height + XINT (dy);
3879 else
3880 /* Put it on the top. */
3881 *root_y = 0;
3882
3883 if (INTEGERP (left))
3884 *root_x = XINT (left);
3885 else if (*root_x + XINT (dx) <= 0)
3886 *root_x = 0; /* Can happen for negative dx */
3887 else if (*root_x + XINT (dx) + width <= FRAME_MAC_DISPLAY_INFO (f)->width)
3888 /* It fits to the right of the pointer. */
3889 *root_x += XINT (dx);
3890 else if (width + XINT (dx) <= *root_x)
3891 /* It fits to the left of the pointer. */
3892 *root_x -= width + XINT (dx);
3893 else
3894 /* Put it left-justified on the screen -- it ought to fit that way. */
3895 *root_x = 0;
3896 }
3897
3898
3899 DEFUN ("x-show-tip", Fx_show_tip, Sx_show_tip, 1, 6, 0,
3900 doc: /* Show STRING in a "tooltip" window on frame FRAME.
3901 A tooltip window is a small window displaying a string.
3902
3903 FRAME nil or omitted means use the selected frame.
3904
3905 PARMS is an optional list of frame parameters which can be used to
3906 change the tooltip's appearance.
3907
3908 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
3909 means use the default timeout of 5 seconds.
3910
3911 If the list of frame parameters PARMS contains a `left' parameter,
3912 the tooltip is displayed at that x-position. Otherwise it is
3913 displayed at the mouse position, with offset DX added (default is 5 if
3914 DX isn't specified). Likewise for the y-position; if a `top' frame
3915 parameter is specified, it determines the y-position of the tooltip
3916 window, otherwise it is displayed at the mouse position, with offset
3917 DY added (default is -10).
3918
3919 A tooltip's maximum size is specified by `x-max-tooltip-size'.
3920 Text larger than the specified size is clipped. */)
3921 (string, frame, parms, timeout, dx, dy)
3922 Lisp_Object string, frame, parms, timeout, dx, dy;
3923 {
3924 struct frame *f;
3925 struct window *w;
3926 int root_x, root_y;
3927 struct buffer *old_buffer;
3928 struct text_pos pos;
3929 int i, width, height;
3930 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
3931 int old_windows_or_buffers_changed = windows_or_buffers_changed;
3932 int count = SPECPDL_INDEX ();
3933
3934 specbind (Qinhibit_redisplay, Qt);
3935
3936 GCPRO4 (string, parms, frame, timeout);
3937
3938 CHECK_STRING (string);
3939 f = check_x_frame (frame);
3940 if (NILP (timeout))
3941 timeout = make_number (5);
3942 else
3943 CHECK_NATNUM (timeout);
3944
3945 if (NILP (dx))
3946 dx = make_number (5);
3947 else
3948 CHECK_NUMBER (dx);
3949
3950 if (NILP (dy))
3951 dy = make_number (-10);
3952 else
3953 CHECK_NUMBER (dy);
3954
3955 if (NILP (last_show_tip_args))
3956 last_show_tip_args = Fmake_vector (make_number (3), Qnil);
3957
3958 if (!NILP (tip_frame))
3959 {
3960 Lisp_Object last_string = AREF (last_show_tip_args, 0);
3961 Lisp_Object last_frame = AREF (last_show_tip_args, 1);
3962 Lisp_Object last_parms = AREF (last_show_tip_args, 2);
3963
3964 if (EQ (frame, last_frame)
3965 && !NILP (Fequal (last_string, string))
3966 && !NILP (Fequal (last_parms, parms)))
3967 {
3968 struct frame *f = XFRAME (tip_frame);
3969
3970 /* Only DX and DY have changed. */
3971 if (!NILP (tip_timer))
3972 {
3973 Lisp_Object timer = tip_timer;
3974 tip_timer = Qnil;
3975 call1 (Qcancel_timer, timer);
3976 }
3977
3978 BLOCK_INPUT;
3979 compute_tip_xy (f, parms, dx, dy, FRAME_PIXEL_WIDTH (f),
3980 FRAME_PIXEL_HEIGHT (f), &root_x, &root_y);
3981 MoveWindow (FRAME_MAC_WINDOW (f), root_x, root_y, false);
3982 UNBLOCK_INPUT;
3983 goto start_timer;
3984 }
3985 }
3986
3987 /* Hide a previous tip, if any. */
3988 Fx_hide_tip ();
3989
3990 ASET (last_show_tip_args, 0, string);
3991 ASET (last_show_tip_args, 1, frame);
3992 ASET (last_show_tip_args, 2, parms);
3993
3994 /* Add default values to frame parameters. */
3995 if (NILP (Fassq (Qname, parms)))
3996 parms = Fcons (Fcons (Qname, build_string ("tooltip")), parms);
3997 if (NILP (Fassq (Qinternal_border_width, parms)))
3998 parms = Fcons (Fcons (Qinternal_border_width, make_number (3)), parms);
3999 if (NILP (Fassq (Qborder_width, parms)))
4000 parms = Fcons (Fcons (Qborder_width, make_number (1)), parms);
4001 if (NILP (Fassq (Qborder_color, parms)))
4002 parms = Fcons (Fcons (Qborder_color, build_string ("lightyellow")), parms);
4003 if (NILP (Fassq (Qbackground_color, parms)))
4004 parms = Fcons (Fcons (Qbackground_color, build_string ("lightyellow")),
4005 parms);
4006
4007 /* Create a frame for the tooltip, and record it in the global
4008 variable tip_frame. */
4009 frame = x_create_tip_frame (FRAME_MAC_DISPLAY_INFO (f), parms, string);
4010 f = XFRAME (frame);
4011
4012 /* Set up the frame's root window. */
4013 w = XWINDOW (FRAME_ROOT_WINDOW (f));
4014 w->left_col = w->top_line = make_number (0);
4015
4016 if (CONSP (Vx_max_tooltip_size)
4017 && INTEGERP (XCAR (Vx_max_tooltip_size))
4018 && XINT (XCAR (Vx_max_tooltip_size)) > 0
4019 && INTEGERP (XCDR (Vx_max_tooltip_size))
4020 && XINT (XCDR (Vx_max_tooltip_size)) > 0)
4021 {
4022 w->total_cols = XCAR (Vx_max_tooltip_size);
4023 w->total_lines = XCDR (Vx_max_tooltip_size);
4024 }
4025 else
4026 {
4027 w->total_cols = make_number (80);
4028 w->total_lines = make_number (40);
4029 }
4030
4031 FRAME_TOTAL_COLS (f) = XINT (w->total_cols);
4032 adjust_glyphs (f);
4033 w->pseudo_window_p = 1;
4034
4035 /* Display the tooltip text in a temporary buffer. */
4036 old_buffer = current_buffer;
4037 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f))->buffer));
4038 current_buffer->truncate_lines = Qnil;
4039 clear_glyph_matrix (w->desired_matrix);
4040 clear_glyph_matrix (w->current_matrix);
4041 SET_TEXT_POS (pos, BEGV, BEGV_BYTE);
4042 try_window (FRAME_ROOT_WINDOW (f), pos, 0);
4043
4044 /* Compute width and height of the tooltip. */
4045 width = height = 0;
4046 for (i = 0; i < w->desired_matrix->nrows; ++i)
4047 {
4048 struct glyph_row *row = &w->desired_matrix->rows[i];
4049 struct glyph *last;
4050 int row_width;
4051
4052 /* Stop at the first empty row at the end. */
4053 if (!row->enabled_p || !row->displays_text_p)
4054 break;
4055
4056 /* Let the row go over the full width of the frame. */
4057 row->full_width_p = 1;
4058
4059 /* There's a glyph at the end of rows that is used to place
4060 the cursor there. Don't include the width of this glyph. */
4061 if (row->used[TEXT_AREA])
4062 {
4063 last = &row->glyphs[TEXT_AREA][row->used[TEXT_AREA] - 1];
4064 row_width = row->pixel_width - last->pixel_width;
4065 }
4066 else
4067 row_width = row->pixel_width;
4068
4069 height += row->height;
4070 width = max (width, row_width);
4071 }
4072
4073 /* Add the frame's internal border to the width and height the X
4074 window should have. */
4075 height += 2 * FRAME_INTERNAL_BORDER_WIDTH (f);
4076 width += 2 * FRAME_INTERNAL_BORDER_WIDTH (f);
4077
4078 /* Move the tooltip window where the mouse pointer is. Resize and
4079 show it. */
4080 compute_tip_xy (f, parms, dx, dy, width, height, &root_x, &root_y);
4081
4082 BLOCK_INPUT;
4083 MoveWindow (FRAME_MAC_WINDOW (f), root_x, root_y, false);
4084 SizeWindow (FRAME_MAC_WINDOW (f), width, height, true);
4085 ShowWindow (FRAME_MAC_WINDOW (f));
4086 BringToFront (FRAME_MAC_WINDOW (f));
4087 UNBLOCK_INPUT;
4088
4089 FRAME_PIXEL_WIDTH (f) = width;
4090 FRAME_PIXEL_HEIGHT (f) = height;
4091
4092 /* Draw into the window. */
4093 w->must_be_updated_p = 1;
4094 update_single_window (w, 1);
4095
4096 /* Restore original current buffer. */
4097 set_buffer_internal_1 (old_buffer);
4098 windows_or_buffers_changed = old_windows_or_buffers_changed;
4099
4100 start_timer:
4101 /* Let the tip disappear after timeout seconds. */
4102 tip_timer = call3 (intern ("run-at-time"), timeout, Qnil,
4103 intern ("x-hide-tip"));
4104
4105 UNGCPRO;
4106 return unbind_to (count, Qnil);
4107 }
4108
4109
4110 DEFUN ("x-hide-tip", Fx_hide_tip, Sx_hide_tip, 0, 0, 0,
4111 doc: /* Hide the current tooltip window, if there is any.
4112 Value is t if tooltip was open, nil otherwise. */)
4113 ()
4114 {
4115 int count;
4116 Lisp_Object deleted, frame, timer;
4117 struct gcpro gcpro1, gcpro2;
4118
4119 /* Return quickly if nothing to do. */
4120 if (NILP (tip_timer) && NILP (tip_frame))
4121 return Qnil;
4122
4123 frame = tip_frame;
4124 timer = tip_timer;
4125 GCPRO2 (frame, timer);
4126 tip_frame = tip_timer = deleted = Qnil;
4127
4128 count = SPECPDL_INDEX ();
4129 specbind (Qinhibit_redisplay, Qt);
4130 specbind (Qinhibit_quit, Qt);
4131
4132 if (!NILP (timer))
4133 call1 (Qcancel_timer, timer);
4134
4135 if (FRAMEP (frame))
4136 {
4137 Fdelete_frame (frame, Qnil);
4138 deleted = Qt;
4139 }
4140
4141 UNGCPRO;
4142 return unbind_to (count, deleted);
4143 }
4144
4145
4146 \f
4147 #if TARGET_API_MAC_CARBON
4148 /***********************************************************************
4149 File selection dialog
4150 ***********************************************************************/
4151
4152 static pascal void mac_nav_event_callback P_ ((NavEventCallbackMessage,
4153 NavCBRecPtr, void *));
4154
4155 /**
4156 There is a relatively standard way to do this using applescript to run
4157 a (choose file) method. However, this doesn't do "the right thing"
4158 by working only if the find-file occurred during a menu or toolbar
4159 click. So we must do the file dialog by hand, using the navigation
4160 manager. This also has more flexibility in determining the default
4161 directory and whether or not we are going to choose a file.
4162 **/
4163
4164 extern Lisp_Object Qfile_name_history;
4165
4166 DEFUN ("x-file-dialog", Fx_file_dialog, Sx_file_dialog, 2, 5, 0,
4167 doc: /* Read file name, prompting with PROMPT in directory DIR.
4168 Use a file selection dialog.
4169 Select DEFAULT-FILENAME in the dialog's file selection box, if
4170 specified. Ensure that file exists if MUSTMATCH is non-nil.
4171 If ONLY-DIR-P is non-nil, the user can only select directories. */)
4172 (prompt, dir, default_filename, mustmatch, only_dir_p)
4173 Lisp_Object prompt, dir, default_filename, mustmatch, only_dir_p;
4174 {
4175 struct frame *f = SELECTED_FRAME ();
4176 Lisp_Object file = Qnil;
4177 int count = SPECPDL_INDEX ();
4178 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6;
4179 char filename[MAXPATHLEN];
4180 int default_filter_index = 1; /* 1: All Files, 2: Directories only */
4181 static NavEventUPP mac_nav_event_callbackUPP = NULL;
4182
4183 GCPRO6 (prompt, dir, default_filename, mustmatch, file, only_dir_p);
4184 CHECK_STRING (prompt);
4185 CHECK_STRING (dir);
4186
4187 /* Create the dialog with PROMPT as title, using DIR as initial
4188 directory and using "*" as pattern. */
4189 dir = Fexpand_file_name (dir, Qnil);
4190
4191 {
4192 OSStatus status;
4193 NavDialogCreationOptions options;
4194 NavDialogRef dialogRef;
4195 NavTypeListHandle fileTypes = NULL;
4196 NavUserAction userAction;
4197 CFStringRef message=NULL, saveName = NULL;
4198
4199 BLOCK_INPUT;
4200 /* No need for a callback function because we are modal */
4201 NavGetDefaultDialogCreationOptions(&options);
4202 options.modality = kWindowModalityAppModal;
4203 options.location.h = options.location.v = -1;
4204 options.optionFlags = kNavDefaultNavDlogOptions;
4205 options.optionFlags |= kNavAllFilesInPopup; /* All files allowed */
4206 options.optionFlags |= kNavSelectAllReadableItem;
4207 options.optionFlags &= ~kNavAllowMultipleFiles;
4208 if (!NILP(prompt))
4209 {
4210 message = cfstring_create_with_string (prompt);
4211 options.message = message;
4212 }
4213 /* Don't set the application, let it use default.
4214 options.clientName = CFSTR ("Emacs");
4215 */
4216
4217 if (mac_nav_event_callbackUPP == NULL)
4218 mac_nav_event_callbackUPP = NewNavEventUPP (mac_nav_event_callback);
4219
4220 if (!NILP (only_dir_p))
4221 status = NavCreateChooseFolderDialog(&options, mac_nav_event_callbackUPP,
4222 NULL, NULL, &dialogRef);
4223 else if (NILP (mustmatch))
4224 {
4225 /* This is a save dialog */
4226 options.optionFlags |= kNavDontConfirmReplacement;
4227 options.actionButtonLabel = CFSTR ("Ok");
4228 options.windowTitle = CFSTR ("Enter name");
4229
4230 if (STRINGP (default_filename))
4231 {
4232 Lisp_Object utf8 = ENCODE_UTF_8 (default_filename);
4233 char *begPtr = SDATA(utf8);
4234 char *filePtr = begPtr + SBYTES(utf8);
4235 while (filePtr != begPtr && !IS_DIRECTORY_SEP(filePtr[-1]))
4236 filePtr--;
4237 saveName = cfstring_create_with_utf8_cstring (filePtr);
4238 options.saveFileName = saveName;
4239 options.optionFlags |= kNavSelectDefaultLocation;
4240 }
4241 status = NavCreatePutFileDialog(&options,
4242 'TEXT', kNavGenericSignature,
4243 mac_nav_event_callbackUPP, NULL,
4244 &dialogRef);
4245 }
4246 else
4247 {
4248 /* This is an open dialog*/
4249 status = NavCreateChooseFileDialog(&options, fileTypes,
4250 mac_nav_event_callbackUPP, NULL,
4251 NULL, NULL, &dialogRef);
4252 }
4253
4254 /* Set the default location and continue*/
4255 if (status == noErr)
4256 {
4257 Lisp_Object encoded_dir = ENCODE_FILE (dir);
4258 AEDesc defLocAed;
4259
4260 status = AECreateDesc (TYPE_FILE_NAME, SDATA (encoded_dir),
4261 SBYTES (encoded_dir), &defLocAed);
4262 if (status == noErr)
4263 {
4264 NavCustomControl(dialogRef, kNavCtlSetLocation, (void*) &defLocAed);
4265 AEDisposeDesc(&defLocAed);
4266 }
4267 status = NavDialogRun(dialogRef);
4268 }
4269
4270 if (saveName) CFRelease(saveName);
4271 if (message) CFRelease(message);
4272
4273 if (status == noErr) {
4274 userAction = NavDialogGetUserAction(dialogRef);
4275 switch (userAction)
4276 {
4277 case kNavUserActionNone:
4278 case kNavUserActionCancel:
4279 break; /* Treat cancel like C-g */
4280 case kNavUserActionOpen:
4281 case kNavUserActionChoose:
4282 case kNavUserActionSaveAs:
4283 {
4284 NavReplyRecord reply;
4285 Size len;
4286
4287 status = NavDialogGetReply(dialogRef, &reply);
4288 if (status != noErr)
4289 break;
4290 status = AEGetNthPtr (&reply.selection, 1, TYPE_FILE_NAME,
4291 NULL, NULL, filename,
4292 sizeof (filename) - 1, &len);
4293 if (status == noErr)
4294 {
4295 len = min (len, sizeof (filename) - 1);
4296 filename[len] = '\0';
4297 if (reply.saveFileName)
4298 {
4299 /* If it was a saved file, we need to add the file name */
4300 if (len && len < sizeof (filename) - 1
4301 && filename[len-1] != '/')
4302 filename[len++] = '/';
4303 CFStringGetCString(reply.saveFileName, filename+len,
4304 sizeof (filename) - len,
4305 #if MAC_OSX
4306 kCFStringEncodingUTF8
4307 #else
4308 CFStringGetSystemEncoding ()
4309 #endif
4310 );
4311 }
4312 file = DECODE_FILE (make_unibyte_string (filename,
4313 strlen (filename)));
4314 }
4315 NavDisposeReply(&reply);
4316 }
4317 break;
4318 }
4319 NavDialogDispose(dialogRef);
4320 UNBLOCK_INPUT;
4321 }
4322 else {
4323 UNBLOCK_INPUT;
4324 /* Fall back on minibuffer if there was a problem */
4325 file = Fcompleting_read (prompt, intern ("read-file-name-internal"),
4326 dir, mustmatch, dir, Qfile_name_history,
4327 default_filename, Qnil);
4328 }
4329 }
4330
4331 UNGCPRO;
4332
4333 /* Make "Cancel" equivalent to C-g. */
4334 if (NILP (file))
4335 Fsignal (Qquit, Qnil);
4336
4337 return unbind_to (count, file);
4338 }
4339
4340
4341 /* Need to register some event callback function for enabling drag and
4342 drop in Navigation Service dialogs. */
4343 static pascal void
4344 mac_nav_event_callback (selector, parms, data)
4345 NavEventCallbackMessage selector;
4346 NavCBRecPtr parms;
4347 void *data ;
4348 {
4349 }
4350 #endif
4351 \f
4352 /***********************************************************************
4353 Initialization
4354 ***********************************************************************/
4355
4356 /* Keep this list in the same order as frame_parms in frame.c.
4357 Use 0 for unsupported frame parameters. */
4358
4359 frame_parm_handler mac_frame_parm_handlers[] =
4360 {
4361 x_set_autoraise,
4362 x_set_autolower,
4363 x_set_background_color,
4364 x_set_border_color,
4365 x_set_border_width,
4366 x_set_cursor_color,
4367 x_set_cursor_type,
4368 x_set_font,
4369 x_set_foreground_color,
4370 x_set_icon_name,
4371 0, /* MAC_TODO: x_set_icon_type, */
4372 x_set_internal_border_width,
4373 x_set_menu_bar_lines,
4374 x_set_mouse_color,
4375 x_explicitly_set_name,
4376 x_set_scroll_bar_width,
4377 x_set_title,
4378 x_set_unsplittable,
4379 x_set_vertical_scroll_bars,
4380 x_set_visibility,
4381 x_set_tool_bar_lines,
4382 0, /* MAC_TODO: x_set_scroll_bar_foreground, */
4383 0, /* MAC_TODO: x_set_scroll_bar_background, */
4384 x_set_screen_gamma,
4385 x_set_line_spacing,
4386 x_set_fringe_width,
4387 x_set_fringe_width,
4388 0, /* x_set_wait_for_wm, */
4389 x_set_fullscreen,
4390 };
4391
4392 void
4393 syms_of_macfns ()
4394 {
4395 #ifdef MAC_OSX
4396 /* This is zero if not using Mac native windows. */
4397 mac_in_use = 0;
4398 #else
4399 /* Certainly running on Mac native windows. */
4400 mac_in_use = 1;
4401 #endif
4402
4403 /* The section below is built by the lisp expression at the top of the file,
4404 just above where these variables are declared. */
4405 /*&&& init symbols here &&&*/
4406 Qnone = intern ("none");
4407 staticpro (&Qnone);
4408 Qsuppress_icon = intern ("suppress-icon");
4409 staticpro (&Qsuppress_icon);
4410 Qundefined_color = intern ("undefined-color");
4411 staticpro (&Qundefined_color);
4412 Qcancel_timer = intern ("cancel-timer");
4413 staticpro (&Qcancel_timer);
4414 /* This is the end of symbol initialization. */
4415
4416 /* Text property `display' should be nonsticky by default. */
4417 Vtext_property_default_nonsticky
4418 = Fcons (Fcons (Qdisplay, Qt), Vtext_property_default_nonsticky);
4419
4420
4421 Fput (Qundefined_color, Qerror_conditions,
4422 Fcons (Qundefined_color, Fcons (Qerror, Qnil)));
4423 Fput (Qundefined_color, Qerror_message,
4424 build_string ("Undefined color"));
4425
4426 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape,
4427 doc: /* The shape of the pointer when over text.
4428 Changing the value does not affect existing frames
4429 unless you set the mouse color. */);
4430 Vx_pointer_shape = Qnil;
4431
4432 #if 0 /* This doesn't really do anything. */
4433 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape,
4434 doc: /* The shape of the pointer when not over text.
4435 This variable takes effect when you create a new frame
4436 or when you set the mouse color. */);
4437 #endif
4438 Vx_nontext_pointer_shape = Qnil;
4439
4440 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape,
4441 doc: /* The shape of the pointer when Emacs is busy.
4442 This variable takes effect when you create a new frame
4443 or when you set the mouse color. */);
4444 Vx_hourglass_pointer_shape = Qnil;
4445
4446 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p,
4447 doc: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
4448 display_hourglass_p = 1;
4449
4450 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay,
4451 doc: /* *Seconds to wait before displaying an hourglass pointer.
4452 Value must be an integer or float. */);
4453 Vhourglass_delay = make_number (DEFAULT_HOURGLASS_DELAY);
4454
4455 #if 0 /* This doesn't really do anything. */
4456 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape,
4457 doc: /* The shape of the pointer when over the mode line.
4458 This variable takes effect when you create a new frame
4459 or when you set the mouse color. */);
4460 #endif
4461 Vx_mode_pointer_shape = Qnil;
4462
4463 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
4464 &Vx_sensitive_text_pointer_shape,
4465 doc: /* The shape of the pointer when over mouse-sensitive text.
4466 This variable takes effect when you create a new frame
4467 or when you set the mouse color. */);
4468 Vx_sensitive_text_pointer_shape = Qnil;
4469
4470 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
4471 &Vx_window_horizontal_drag_shape,
4472 doc: /* Pointer shape to use for indicating a window can be dragged horizontally.
4473 This variable takes effect when you create a new frame
4474 or when you set the mouse color. */);
4475 Vx_window_horizontal_drag_shape = Qnil;
4476
4477 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel,
4478 doc: /* A string indicating the foreground color of the cursor box. */);
4479 Vx_cursor_fore_pixel = Qnil;
4480
4481 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size,
4482 doc: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
4483 Text larger than this is clipped. */);
4484 Vx_max_tooltip_size = Fcons (make_number (80), make_number (40));
4485
4486 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager,
4487 doc: /* Non-nil if no window manager is in use.
4488 Emacs doesn't try to figure this out; this is always nil
4489 unless you set it to something else. */);
4490 /* We don't have any way to find this out, so set it to nil
4491 and maybe the user would like to set it to t. */
4492 Vx_no_window_manager = Qnil;
4493
4494 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
4495 &Vx_pixel_size_width_font_regexp,
4496 doc: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
4497
4498 Since Emacs gets width of a font matching with this regexp from
4499 PIXEL_SIZE field of the name, font finding mechanism gets faster for
4500 such a font. This is especially effective for such large fonts as
4501 Chinese, Japanese, and Korean. */);
4502 Vx_pixel_size_width_font_regexp = Qnil;
4503
4504 /* X window properties. */
4505 defsubr (&Sx_change_window_property);
4506 defsubr (&Sx_delete_window_property);
4507 defsubr (&Sx_window_property);
4508
4509 defsubr (&Sxw_display_color_p);
4510 defsubr (&Sx_display_grayscale_p);
4511 defsubr (&Sxw_color_defined_p);
4512 defsubr (&Sxw_color_values);
4513 defsubr (&Sx_server_max_request_size);
4514 defsubr (&Sx_server_vendor);
4515 defsubr (&Sx_server_version);
4516 defsubr (&Sx_display_pixel_width);
4517 defsubr (&Sx_display_pixel_height);
4518 defsubr (&Sx_display_mm_width);
4519 defsubr (&Sx_display_mm_height);
4520 defsubr (&Sx_display_screens);
4521 defsubr (&Sx_display_planes);
4522 defsubr (&Sx_display_color_cells);
4523 defsubr (&Sx_display_visual_class);
4524 defsubr (&Sx_display_backing_store);
4525 defsubr (&Sx_display_save_under);
4526 defsubr (&Sx_create_frame);
4527 defsubr (&Sx_open_connection);
4528 defsubr (&Sx_close_connection);
4529 defsubr (&Sx_display_list);
4530 defsubr (&Sx_synchronize);
4531 defsubr (&Sx_focus_frame);
4532
4533 /* Setting callback functions for fontset handler. */
4534 get_font_info_func = x_get_font_info;
4535
4536 #if 0 /* This function pointer doesn't seem to be used anywhere.
4537 And the pointer assigned has the wrong type, anyway. */
4538 list_fonts_func = x_list_fonts;
4539 #endif
4540
4541 load_font_func = x_load_font;
4542 find_ccl_program_func = x_find_ccl_program;
4543 query_font_func = x_query_font;
4544 set_frame_fontset_func = x_set_font;
4545 check_window_system_func = check_mac;
4546
4547 hourglass_atimer = NULL;
4548 hourglass_shown_p = 0;
4549
4550 defsubr (&Sx_show_tip);
4551 defsubr (&Sx_hide_tip);
4552 tip_timer = Qnil;
4553 staticpro (&tip_timer);
4554 tip_frame = Qnil;
4555 staticpro (&tip_frame);
4556
4557 last_show_tip_args = Qnil;
4558 staticpro (&last_show_tip_args);
4559
4560 #if TARGET_API_MAC_CARBON
4561 defsubr (&Sx_file_dialog);
4562 #endif
4563 }
4564
4565 /* arch-tag: d7591289-f374-4377-b245-12f5dbbb8edc
4566 (do not change this comment) */
Emacs repository mirror