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