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