]> code.delx.au - gnu-emacs/blob - src/macfns.c
(Fx_file_dialog): Remove unused variable `f'. Call check_mac.
[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 = 16;
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 = 16;
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 = x->background_pixel;
1366
1367 /* Don't let pointers be invisible. */
1368 if (mask_color == pixel)
1369 pixel = x->foreground_pixel;
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 (!NILP (arg) || NILP (oldval))
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 static void
1923 mac_set_font (f, arg, oldval)
1924 struct frame *f;
1925 Lisp_Object arg, oldval;
1926 {
1927 x_set_font (f, arg, oldval);
1928 #if USE_MAC_FONT_PANEL
1929 {
1930 Lisp_Object focus_frame = x_get_focus_frame (f);
1931
1932 if ((NILP (focus_frame) && f == SELECTED_FRAME ())
1933 || XFRAME (focus_frame) == f)
1934 {
1935 BLOCK_INPUT;
1936 mac_set_font_info_for_selection (f, DEFAULT_FACE_ID, 0);
1937 UNBLOCK_INPUT;
1938 }
1939 }
1940 #endif
1941 }
1942
1943 #if TARGET_API_MAC_CARBON
1944 static void
1945 mac_update_proxy_icon (f)
1946 struct frame *f;
1947 {
1948 OSStatus err;
1949 Lisp_Object file_name =
1950 XBUFFER (XWINDOW (FRAME_SELECTED_WINDOW (f))->buffer)->filename;
1951 Window w = FRAME_MAC_WINDOW (f);
1952 AliasHandle alias = NULL;
1953
1954 BLOCK_INPUT;
1955
1956 err = GetWindowProxyAlias (w, &alias);
1957 if (err == errWindowDoesNotHaveProxy && !STRINGP (file_name))
1958 goto out;
1959
1960 if (STRINGP (file_name))
1961 {
1962 AEDesc desc;
1963 #ifdef MAC_OSX
1964 FSRef fref;
1965 #else
1966 FSSpec fss;
1967 #endif
1968 Boolean changed;
1969 Lisp_Object encoded_file_name = ENCODE_FILE (file_name);
1970
1971 #ifdef MAC_OSX
1972 err = AECoercePtr (TYPE_FILE_NAME, SDATA (encoded_file_name),
1973 SBYTES (encoded_file_name), typeFSRef, &desc);
1974 #else
1975 SetPortWindowPort (w);
1976 err = AECoercePtr (TYPE_FILE_NAME, SDATA (encoded_file_name),
1977 SBYTES (encoded_file_name), typeFSS, &desc);
1978 #endif
1979 if (err == noErr)
1980 {
1981 #ifdef MAC_OSX
1982 err = AEGetDescData (&desc, &fref, sizeof (FSRef));
1983 #else
1984 err = AEGetDescData (&desc, &fss, sizeof (FSSpec));
1985 #endif
1986 AEDisposeDesc (&desc);
1987 }
1988 if (err == noErr)
1989 {
1990 if (alias)
1991 {
1992 #ifdef MAC_OSX
1993 err = FSUpdateAlias (NULL, &fref, alias, &changed);
1994 #else
1995 err = UpdateAlias (NULL, &fss, alias, &changed);
1996 #endif
1997 }
1998 if (err != noErr || alias == NULL)
1999 {
2000 if (alias)
2001 DisposeHandle ((Handle) alias);
2002 #ifdef MAC_OSX
2003 err = FSNewAliasMinimal (&fref, &alias);
2004 #else
2005 err = NewAliasMinimal (&fss, &alias);
2006 #endif
2007 changed = true;
2008 }
2009 }
2010 if (err == noErr)
2011 if (changed)
2012 err = SetWindowProxyAlias (w, alias);
2013 }
2014
2015 if (alias)
2016 DisposeHandle ((Handle) alias);
2017
2018 if (err != noErr || !STRINGP (file_name))
2019 RemoveWindowProxy (w);
2020
2021 out:
2022 UNBLOCK_INPUT;
2023 }
2024 #endif
2025
2026 void
2027 mac_update_title_bar (f, save_match_data)
2028 struct frame *f;
2029 int save_match_data;
2030 {
2031 #if TARGET_API_MAC_CARBON
2032 struct window *w;
2033 int modified_p;
2034
2035 if (!FRAME_MAC_P (f))
2036 return;
2037
2038 w = XWINDOW (FRAME_SELECTED_WINDOW (f));
2039 modified_p = (BUF_SAVE_MODIFF (XBUFFER (w->buffer))
2040 < BUF_MODIFF (XBUFFER (w->buffer)));
2041 if (windows_or_buffers_changed
2042 /* Minibuffer modification status shown in the close button is
2043 confusing. */
2044 || (!MINI_WINDOW_P (w)
2045 && (modified_p != !NILP (w->last_had_star))))
2046 SetWindowModified (FRAME_MAC_WINDOW (f),
2047 !MINI_WINDOW_P (w) && modified_p);
2048
2049 if (windows_or_buffers_changed)
2050 mac_update_proxy_icon (f);
2051 #endif
2052 }
2053
2054 \f
2055 /* Subroutines of creating a frame. */
2056
2057 /* Retrieve the string resource specified by NAME with CLASS from
2058 database RDB.
2059
2060 The return value points to the contents of a Lisp string. So it
2061 will not be valid after the next GC where string compaction will
2062 occur. */
2063
2064 char *
2065 x_get_string_resource (rdb, name, class)
2066 XrmDatabase rdb;
2067 char *name, *class;
2068 {
2069 Lisp_Object value = xrm_get_resource (rdb, name, class);
2070
2071 if (STRINGP (value))
2072 return SDATA (value);
2073 else
2074 return NULL;
2075 }
2076
2077 /* Return the value of parameter PARAM.
2078
2079 First search ALIST, then Vdefault_frame_alist, then the X defaults
2080 database, using ATTRIBUTE as the attribute name and CLASS as its class.
2081
2082 Convert the resource to the type specified by desired_type.
2083
2084 If no default is specified, return Qunbound. If you call
2085 mac_get_arg, make sure you deal with Qunbound in a reasonable way,
2086 and don't let it get stored in any Lisp-visible variables! */
2087
2088 static Lisp_Object
2089 mac_get_arg (alist, param, attribute, class, type)
2090 Lisp_Object alist, param;
2091 char *attribute;
2092 char *class;
2093 enum resource_types type;
2094 {
2095 return x_get_arg (check_x_display_info (Qnil),
2096 alist, param, attribute, class, type);
2097 }
2098
2099 \f
2100 /* XParseGeometry copied from w32xfns.c */
2101
2102 /*
2103 * XParseGeometry parses strings of the form
2104 * "=<width>x<height>{+-}<xoffset>{+-}<yoffset>", where
2105 * width, height, xoffset, and yoffset are unsigned integers.
2106 * Example: "=80x24+300-49"
2107 * The equal sign is optional.
2108 * It returns a bitmask that indicates which of the four values
2109 * were actually found in the string. For each value found,
2110 * the corresponding argument is updated; for each value
2111 * not found, the corresponding argument is left unchanged.
2112 */
2113
2114 static int
2115 read_integer (string, NextString)
2116 register char *string;
2117 char **NextString;
2118 {
2119 register int Result = 0;
2120 int Sign = 1;
2121
2122 if (*string == '+')
2123 string++;
2124 else if (*string == '-')
2125 {
2126 string++;
2127 Sign = -1;
2128 }
2129 for (; (*string >= '0') && (*string <= '9'); string++)
2130 {
2131 Result = (Result * 10) + (*string - '0');
2132 }
2133 *NextString = string;
2134 if (Sign >= 0)
2135 return (Result);
2136 else
2137 return (-Result);
2138 }
2139
2140 int
2141 XParseGeometry (string, x, y, width, height)
2142 char *string;
2143 int *x, *y;
2144 unsigned int *width, *height; /* RETURN */
2145 {
2146 int mask = NoValue;
2147 register char *strind;
2148 unsigned int tempWidth, tempHeight;
2149 int tempX, tempY;
2150 char *nextCharacter;
2151
2152 if ((string == NULL) || (*string == '\0')) return (mask);
2153 if (*string == '=')
2154 string++; /* ignore possible '=' at beg of geometry spec */
2155
2156 strind = (char *)string;
2157 if (*strind != '+' && *strind != '-' && *strind != 'x')
2158 {
2159 tempWidth = read_integer (strind, &nextCharacter);
2160 if (strind == nextCharacter)
2161 return (0);
2162 strind = nextCharacter;
2163 mask |= WidthValue;
2164 }
2165
2166 if (*strind == 'x' || *strind == 'X')
2167 {
2168 strind++;
2169 tempHeight = read_integer (strind, &nextCharacter);
2170 if (strind == nextCharacter)
2171 return (0);
2172 strind = nextCharacter;
2173 mask |= HeightValue;
2174 }
2175
2176 if ((*strind == '+') || (*strind == '-'))
2177 {
2178 if (*strind == '-')
2179 {
2180 strind++;
2181 tempX = -read_integer (strind, &nextCharacter);
2182 if (strind == nextCharacter)
2183 return (0);
2184 strind = nextCharacter;
2185 mask |= XNegative;
2186
2187 }
2188 else
2189 {
2190 strind++;
2191 tempX = read_integer (strind, &nextCharacter);
2192 if (strind == nextCharacter)
2193 return (0);
2194 strind = nextCharacter;
2195 }
2196 mask |= XValue;
2197 if ((*strind == '+') || (*strind == '-'))
2198 {
2199 if (*strind == '-')
2200 {
2201 strind++;
2202 tempY = -read_integer (strind, &nextCharacter);
2203 if (strind == nextCharacter)
2204 return (0);
2205 strind = nextCharacter;
2206 mask |= YNegative;
2207
2208 }
2209 else
2210 {
2211 strind++;
2212 tempY = read_integer (strind, &nextCharacter);
2213 if (strind == nextCharacter)
2214 return (0);
2215 strind = nextCharacter;
2216 }
2217 mask |= YValue;
2218 }
2219 }
2220
2221 /* If strind isn't at the end of the string the it's an invalid
2222 geometry specification. */
2223
2224 if (*strind != '\0') return (0);
2225
2226 if (mask & XValue)
2227 *x = tempX;
2228 if (mask & YValue)
2229 *y = tempY;
2230 if (mask & WidthValue)
2231 *width = tempWidth;
2232 if (mask & HeightValue)
2233 *height = tempHeight;
2234 return (mask);
2235 }
2236
2237 \f
2238 /* Create and set up the Mac window for frame F. */
2239
2240 static void
2241 mac_window (f)
2242 struct frame *f;
2243 {
2244 Rect r;
2245
2246 BLOCK_INPUT;
2247
2248 SetRect (&r, f->left_pos, f->top_pos,
2249 f->left_pos + FRAME_PIXEL_WIDTH (f),
2250 f->top_pos + FRAME_PIXEL_HEIGHT (f));
2251 #if TARGET_API_MAC_CARBON
2252 CreateNewWindow (kDocumentWindowClass,
2253 kWindowStandardDocumentAttributes
2254 #ifdef MAC_OSX
2255 | kWindowToolbarButtonAttribute
2256 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
2257 | kWindowAsyncDragAttribute
2258 #endif
2259 #endif
2260 , &r, &FRAME_MAC_WINDOW (f));
2261 if (FRAME_MAC_WINDOW (f))
2262 {
2263 SetWRefCon (FRAME_MAC_WINDOW (f), (long) f->output_data.mac);
2264 if (install_window_handler (FRAME_MAC_WINDOW (f)) != noErr)
2265 {
2266 DisposeWindow (FRAME_MAC_WINDOW (f));
2267 FRAME_MAC_WINDOW (f) = NULL;
2268 }
2269 }
2270 #else
2271 FRAME_MAC_WINDOW (f)
2272 = NewCWindow (NULL, &r, "\p", false, zoomDocProc,
2273 (WindowPtr) -1, 1, (long) f->output_data.mac);
2274 #endif
2275 /* so that update events can find this mac_output struct */
2276 f->output_data.mac->mFP = f; /* point back to emacs frame */
2277
2278 #ifndef MAC_OSX
2279 if (FRAME_MAC_WINDOW (f))
2280 {
2281 ControlRef root_control;
2282
2283 if (CreateRootControl (FRAME_MAC_WINDOW (f), &root_control) != noErr)
2284 {
2285 DisposeWindow (FRAME_MAC_WINDOW (f));
2286 FRAME_MAC_WINDOW (f) = NULL;
2287 }
2288 }
2289 #endif
2290 if (FRAME_MAC_WINDOW (f))
2291 XSetWindowBackground (FRAME_MAC_DISPLAY(f), FRAME_MAC_WINDOW (f),
2292 FRAME_BACKGROUND_PIXEL (f));
2293
2294 validate_x_resource_name ();
2295
2296 /* x_set_name normally ignores requests to set the name if the
2297 requested name is the same as the current name. This is the one
2298 place where that assumption isn't correct; f->name is set, but
2299 the server hasn't been told. */
2300 {
2301 Lisp_Object name;
2302 int explicit = f->explicit_name;
2303
2304 f->explicit_name = 0;
2305 name = f->name;
2306 f->name = Qnil;
2307 x_set_name (f, name, explicit);
2308 }
2309
2310 UNBLOCK_INPUT;
2311
2312 if (FRAME_MAC_WINDOW (f) == 0)
2313 error ("Unable to create window");
2314 }
2315
2316 /* Handle the icon stuff for this window. Perhaps later we might
2317 want an x_set_icon_position which can be called interactively as
2318 well. */
2319
2320 static void
2321 x_icon (f, parms)
2322 struct frame *f;
2323 Lisp_Object parms;
2324 {
2325 Lisp_Object icon_x, icon_y;
2326
2327 /* Set the position of the icon. Note that Windows 95 groups all
2328 icons in the tray. */
2329 icon_x = mac_get_arg (parms, Qicon_left, 0, 0, RES_TYPE_NUMBER);
2330 icon_y = mac_get_arg (parms, Qicon_top, 0, 0, RES_TYPE_NUMBER);
2331 if (!EQ (icon_x, Qunbound) && !EQ (icon_y, Qunbound))
2332 {
2333 CHECK_NUMBER (icon_x);
2334 CHECK_NUMBER (icon_y);
2335 }
2336 else if (!EQ (icon_x, Qunbound) || !EQ (icon_y, Qunbound))
2337 error ("Both left and top icon corners of icon must be specified");
2338
2339 BLOCK_INPUT;
2340
2341 if (! EQ (icon_x, Qunbound))
2342 x_wm_set_icon_position (f, XINT (icon_x), XINT (icon_y));
2343
2344 #if 0 /* TODO */
2345 /* Start up iconic or window? */
2346 x_wm_set_window_state
2347 (f, (EQ (w32_get_arg (parms, Qvisibility, 0, 0, RES_TYPE_SYMBOL), Qicon)
2348 ? IconicState
2349 : NormalState));
2350
2351 x_text_icon (f, (char *) SDATA ((!NILP (f->icon_name)
2352 ? f->icon_name
2353 : f->name)));
2354 #endif
2355
2356 UNBLOCK_INPUT;
2357 }
2358
2359
2360 void
2361 x_make_gc (f)
2362 struct frame *f;
2363 {
2364 XGCValues gc_values;
2365
2366 BLOCK_INPUT;
2367
2368 /* Create the GCs of this frame.
2369 Note that many default values are used. */
2370
2371 /* Normal video */
2372 gc_values.font = FRAME_FONT (f);
2373 gc_values.foreground = FRAME_FOREGROUND_PIXEL (f);
2374 gc_values.background = FRAME_BACKGROUND_PIXEL (f);
2375 f->output_data.mac->normal_gc = XCreateGC (FRAME_MAC_DISPLAY (f),
2376 FRAME_MAC_WINDOW (f),
2377 GCFont | GCForeground | GCBackground,
2378 &gc_values);
2379
2380 /* Reverse video style. */
2381 gc_values.foreground = FRAME_BACKGROUND_PIXEL (f);
2382 gc_values.background = FRAME_FOREGROUND_PIXEL (f);
2383 f->output_data.mac->reverse_gc = XCreateGC (FRAME_MAC_DISPLAY (f),
2384 FRAME_MAC_WINDOW (f),
2385 GCFont | GCForeground | GCBackground,
2386 &gc_values);
2387
2388 /* Cursor has cursor-color background, background-color foreground. */
2389 gc_values.foreground = FRAME_BACKGROUND_PIXEL (f);
2390 gc_values.background = f->output_data.mac->cursor_pixel;
2391 f->output_data.mac->cursor_gc = XCreateGC (FRAME_MAC_DISPLAY (f),
2392 FRAME_MAC_WINDOW (f),
2393 GCFont | GCForeground | GCBackground,
2394 &gc_values);
2395
2396 /* Reliefs. */
2397 f->output_data.mac->white_relief.gc = 0;
2398 f->output_data.mac->black_relief.gc = 0;
2399
2400 #if 0
2401 /* Create the gray border tile used when the pointer is not in
2402 the frame. Since this depends on the frame's pixel values,
2403 this must be done on a per-frame basis. */
2404 f->output_data.x->border_tile
2405 = (XCreatePixmapFromBitmapData
2406 (FRAME_X_DISPLAY (f), FRAME_X_DISPLAY_INFO (f)->root_window,
2407 gray_bits, gray_width, gray_height,
2408 f->output_data.x->foreground_pixel,
2409 f->output_data.x->background_pixel,
2410 DefaultDepth (FRAME_X_DISPLAY (f), FRAME_X_SCREEN_NUMBER (f))));
2411 #endif
2412
2413 UNBLOCK_INPUT;
2414 }
2415
2416
2417 /* Free what was was allocated in x_make_gc. */
2418
2419 void
2420 x_free_gcs (f)
2421 struct frame *f;
2422 {
2423 Display *dpy = FRAME_MAC_DISPLAY (f);
2424
2425 BLOCK_INPUT;
2426
2427 if (f->output_data.mac->normal_gc)
2428 {
2429 XFreeGC (dpy, f->output_data.mac->normal_gc);
2430 f->output_data.mac->normal_gc = 0;
2431 }
2432
2433 if (f->output_data.mac->reverse_gc)
2434 {
2435 XFreeGC (dpy, f->output_data.mac->reverse_gc);
2436 f->output_data.mac->reverse_gc = 0;
2437 }
2438
2439 if (f->output_data.mac->cursor_gc)
2440 {
2441 XFreeGC (dpy, f->output_data.mac->cursor_gc);
2442 f->output_data.mac->cursor_gc = 0;
2443 }
2444
2445 #if 0
2446 if (f->output_data.mac->border_tile)
2447 {
2448 XFreePixmap (dpy, f->output_data.mac->border_tile);
2449 f->output_data.mac->border_tile = 0;
2450 }
2451 #endif
2452
2453 if (f->output_data.mac->white_relief.gc)
2454 {
2455 XFreeGC (dpy, f->output_data.mac->white_relief.gc);
2456 f->output_data.mac->white_relief.gc = 0;
2457 }
2458
2459 if (f->output_data.mac->black_relief.gc)
2460 {
2461 XFreeGC (dpy, f->output_data.mac->black_relief.gc);
2462 f->output_data.mac->black_relief.gc = 0;
2463 }
2464
2465 UNBLOCK_INPUT;
2466 }
2467
2468
2469 /* Handler for signals raised during x_create_frame and
2470 x_create_top_frame. FRAME is the frame which is partially
2471 constructed. */
2472
2473 static Lisp_Object
2474 unwind_create_frame (frame)
2475 Lisp_Object frame;
2476 {
2477 struct frame *f = XFRAME (frame);
2478
2479 /* If frame is ``official'', nothing to do. */
2480 if (!CONSP (Vframe_list) || !EQ (XCAR (Vframe_list), frame))
2481 {
2482 #if GLYPH_DEBUG
2483 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
2484 #endif
2485
2486 x_free_frame_resources (f);
2487
2488 #if GLYPH_DEBUG
2489 /* Check that reference counts are indeed correct. */
2490 xassert (dpyinfo->reference_count == dpyinfo_refcount);
2491 xassert (dpyinfo->image_cache->refcount == image_cache_refcount);
2492 #endif
2493 return Qt;
2494 }
2495
2496 return Qnil;
2497 }
2498
2499
2500 DEFUN ("x-create-frame", Fx_create_frame, Sx_create_frame,
2501 1, 1, 0,
2502 doc: /* Make a new window, which is called a "frame" in Emacs terms.
2503 Returns an Emacs frame object.
2504 ALIST is an alist of frame parameters.
2505 If the parameters specify that the frame should not have a minibuffer,
2506 and do not specify a specific minibuffer window to use,
2507 then `default-minibuffer-frame' must be a frame whose minibuffer can
2508 be shared by the new frame.
2509
2510 This function is an internal primitive--use `make-frame' instead. */)
2511 (parms)
2512 Lisp_Object parms;
2513 {
2514 struct frame *f;
2515 Lisp_Object frame, tem;
2516 Lisp_Object name;
2517 int minibuffer_only = 0;
2518 long window_prompting = 0;
2519 int width, height;
2520 int count = SPECPDL_INDEX ();
2521 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
2522 Lisp_Object display;
2523 struct mac_display_info *dpyinfo = NULL;
2524 Lisp_Object parent;
2525 struct kboard *kb;
2526
2527 check_mac ();
2528
2529 parms = Fcopy_alist (parms);
2530
2531 /* Use this general default value to start with
2532 until we know if this frame has a specified name. */
2533 Vx_resource_name = Vinvocation_name;
2534
2535 display = mac_get_arg (parms, Qdisplay, 0, 0, RES_TYPE_STRING);
2536 if (EQ (display, Qunbound))
2537 display = Qnil;
2538 dpyinfo = check_x_display_info (display);
2539 #ifdef MULTI_KBOARD
2540 kb = dpyinfo->kboard;
2541 #else
2542 kb = &the_only_kboard;
2543 #endif
2544
2545 name = mac_get_arg (parms, Qname, "name", "Name", RES_TYPE_STRING);
2546 if (!STRINGP (name)
2547 && ! EQ (name, Qunbound)
2548 && ! NILP (name))
2549 error ("Invalid frame name--not a string or nil");
2550
2551 if (STRINGP (name))
2552 Vx_resource_name = name;
2553
2554 /* See if parent window is specified. */
2555 parent = mac_get_arg (parms, Qparent_id, NULL, NULL, RES_TYPE_NUMBER);
2556 if (EQ (parent, Qunbound))
2557 parent = Qnil;
2558 if (! NILP (parent))
2559 CHECK_NUMBER (parent);
2560
2561 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
2562 /* No need to protect DISPLAY because that's not used after passing
2563 it to make_frame_without_minibuffer. */
2564 frame = Qnil;
2565 GCPRO4 (parms, parent, name, frame);
2566 tem = mac_get_arg (parms, Qminibuffer, "minibuffer", "Minibuffer",
2567 RES_TYPE_SYMBOL);
2568 if (EQ (tem, Qnone) || NILP (tem))
2569 f = make_frame_without_minibuffer (Qnil, kb, display);
2570 else if (EQ (tem, Qonly))
2571 {
2572 f = make_minibuffer_frame ();
2573 minibuffer_only = 1;
2574 }
2575 else if (WINDOWP (tem))
2576 f = make_frame_without_minibuffer (tem, kb, display);
2577 else
2578 f = make_frame (1);
2579
2580 XSETFRAME (frame, f);
2581
2582 /* Note that X Windows does support scroll bars. */
2583 FRAME_CAN_HAVE_SCROLL_BARS (f) = 1;
2584
2585 f->output_method = output_mac;
2586 f->output_data.mac = (struct mac_output *) xmalloc (sizeof (struct mac_output));
2587 bzero (f->output_data.mac, sizeof (struct mac_output));
2588 FRAME_FONTSET (f) = -1;
2589
2590 f->icon_name
2591 = mac_get_arg (parms, Qicon_name, "iconName", "Title", RES_TYPE_STRING);
2592 if (! STRINGP (f->icon_name))
2593 f->icon_name = Qnil;
2594
2595 /* FRAME_MAC_DISPLAY_INFO (f) = dpyinfo; */
2596
2597 /* With FRAME_MAC_DISPLAY_INFO set up, this unwind-protect is safe. */
2598 record_unwind_protect (unwind_create_frame, frame);
2599 #if GLYPH_DEBUG
2600 image_cache_refcount = FRAME_X_IMAGE_CACHE (f)->refcount;
2601 dpyinfo_refcount = dpyinfo->reference_count;
2602 #endif /* GLYPH_DEBUG */
2603 #ifdef MULTI_KBOARD
2604 FRAME_KBOARD (f) = kb;
2605 #endif
2606
2607 /* Specify the parent under which to make this window. */
2608
2609 if (!NILP (parent))
2610 {
2611 f->output_data.mac->parent_desc = (Window) XFASTINT (parent);
2612 f->output_data.mac->explicit_parent = 1;
2613 }
2614 else
2615 {
2616 f->output_data.mac->parent_desc = FRAME_MAC_DISPLAY_INFO (f)->root_window;
2617 f->output_data.mac->explicit_parent = 0;
2618 }
2619
2620 /* Set the name; the functions to which we pass f expect the name to
2621 be set. */
2622 if (EQ (name, Qunbound) || NILP (name))
2623 {
2624 f->name = build_string (dpyinfo->mac_id_name);
2625 f->explicit_name = 0;
2626 }
2627 else
2628 {
2629 f->name = name;
2630 f->explicit_name = 1;
2631 /* use the frame's title when getting resources for this frame. */
2632 specbind (Qx_resource_name, name);
2633 }
2634
2635 /* Extract the window parameters from the supplied values
2636 that are needed to determine window geometry. */
2637 {
2638 Lisp_Object font;
2639
2640 font = mac_get_arg (parms, Qfont, "font", "Font", RES_TYPE_STRING);
2641
2642 BLOCK_INPUT;
2643 /* First, try whatever font the caller has specified. */
2644 if (STRINGP (font))
2645 {
2646 tem = Fquery_fontset (font, Qnil);
2647 if (STRINGP (tem))
2648 font = x_new_fontset (f, SDATA (tem));
2649 else
2650 font = x_new_font (f, SDATA (font));
2651 }
2652
2653 /* Try out a font which we hope has bold and italic variations. */
2654 #if USE_ATSUI
2655 if (! STRINGP (font))
2656 font = x_new_font (f, "-*-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1");
2657 #endif
2658 if (! STRINGP (font))
2659 font = x_new_font (f, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1");
2660 /* If those didn't work, look for something which will at least work. */
2661 if (! STRINGP (font))
2662 font = x_new_fontset (f, "fontset-standard");
2663 if (! STRINGP (font))
2664 font = x_new_font (f, "-*-monaco-*-12-*-mac-roman");
2665 if (! STRINGP (font))
2666 font = x_new_font (f, "-*-courier-*-10-*-mac-roman");
2667 if (! STRINGP (font))
2668 error ("Cannot find any usable font");
2669 UNBLOCK_INPUT;
2670
2671 x_set_frame_parameters (f, Fcons (Fcons (Qfont, font), Qnil));
2672 }
2673
2674 x_default_parameter (f, parms, Qborder_width, make_number (0),
2675 "borderwidth", "BorderWidth", RES_TYPE_NUMBER);
2676 /* This defaults to 2 in order to match xterm. We recognize either
2677 internalBorderWidth or internalBorder (which is what xterm calls
2678 it). */
2679 if (NILP (Fassq (Qinternal_border_width, parms)))
2680 {
2681 Lisp_Object value;
2682
2683 value = mac_get_arg (parms, Qinternal_border_width,
2684 "internalBorder", "InternalBorder", RES_TYPE_NUMBER);
2685 if (! EQ (value, Qunbound))
2686 parms = Fcons (Fcons (Qinternal_border_width, value),
2687 parms);
2688 }
2689 /* Default internalBorderWidth to 0 on Windows to match other programs. */
2690 x_default_parameter (f, parms, Qinternal_border_width, make_number (0),
2691 "internalBorderWidth", "InternalBorder", RES_TYPE_NUMBER);
2692 x_default_parameter (f, parms, Qvertical_scroll_bars, Qright,
2693 "verticalScrollBars", "ScrollBars", RES_TYPE_SYMBOL);
2694
2695 /* Also do the stuff which must be set before the window exists. */
2696 x_default_parameter (f, parms, Qforeground_color, build_string ("black"),
2697 "foreground", "Foreground", RES_TYPE_STRING);
2698 x_default_parameter (f, parms, Qbackground_color, build_string ("white"),
2699 "background", "Background", RES_TYPE_STRING);
2700 x_default_parameter (f, parms, Qmouse_color, build_string ("black"),
2701 "pointerColor", "Foreground", RES_TYPE_STRING);
2702 x_default_parameter (f, parms, Qcursor_color, build_string ("black"),
2703 "cursorColor", "Foreground", RES_TYPE_STRING);
2704 x_default_parameter (f, parms, Qborder_color, build_string ("black"),
2705 "borderColor", "BorderColor", RES_TYPE_STRING);
2706 x_default_parameter (f, parms, Qscreen_gamma, Qnil,
2707 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT);
2708 x_default_parameter (f, parms, Qline_spacing, Qnil,
2709 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER);
2710 x_default_parameter (f, parms, Qleft_fringe, Qnil,
2711 "leftFringe", "LeftFringe", RES_TYPE_NUMBER);
2712 x_default_parameter (f, parms, Qright_fringe, Qnil,
2713 "rightFringe", "RightFringe", RES_TYPE_NUMBER);
2714
2715
2716 /* Init faces before x_default_parameter is called for scroll-bar
2717 parameters because that function calls x_set_scroll_bar_width,
2718 which calls change_frame_size, which calls Fset_window_buffer,
2719 which runs hooks, which call Fvertical_motion. At the end, we
2720 end up in init_iterator with a null face cache, which should not
2721 happen. */
2722 init_frame_faces (f);
2723
2724 x_default_parameter (f, parms, Qmenu_bar_lines, make_number (1),
2725 "menuBar", "MenuBar", RES_TYPE_NUMBER);
2726 x_default_parameter (f, parms, Qtool_bar_lines, make_number (1),
2727 "toolBar", "ToolBar", RES_TYPE_NUMBER);
2728 x_default_parameter (f, parms, Qbuffer_predicate, Qnil,
2729 "bufferPredicate", "BufferPredicate",
2730 RES_TYPE_SYMBOL);
2731 x_default_parameter (f, parms, Qtitle, Qnil,
2732 "title", "Title", RES_TYPE_STRING);
2733 x_default_parameter (f, parms, Qfullscreen, Qnil,
2734 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL);
2735
2736 f->output_data.mac->parent_desc = FRAME_MAC_DISPLAY_INFO (f)->root_window;
2737
2738 /* Compute the size of the window. */
2739 window_prompting = x_figure_window_size (f, parms, 1);
2740
2741 tem = mac_get_arg (parms, Qunsplittable, 0, 0, RES_TYPE_BOOLEAN);
2742 f->no_split = minibuffer_only || EQ (tem, Qt);
2743
2744 mac_window (f);
2745
2746 x_icon (f, parms);
2747 x_make_gc (f);
2748
2749 /* Now consider the frame official. */
2750 FRAME_MAC_DISPLAY_INFO (f)->reference_count++;
2751 Vframe_list = Fcons (frame, Vframe_list);
2752
2753 /* We need to do this after creating the window, so that the
2754 icon-creation functions can say whose icon they're describing. */
2755 x_default_parameter (f, parms, Qicon_type, Qnil,
2756 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL);
2757
2758 x_default_parameter (f, parms, Qauto_raise, Qnil,
2759 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN);
2760 x_default_parameter (f, parms, Qauto_lower, Qnil,
2761 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN);
2762 x_default_parameter (f, parms, Qcursor_type, Qbox,
2763 "cursorType", "CursorType", RES_TYPE_SYMBOL);
2764 x_default_parameter (f, parms, Qscroll_bar_width, Qnil,
2765 "scrollBarWidth", "ScrollBarWidth",
2766 RES_TYPE_NUMBER);
2767
2768 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
2769 Change will not be effected unless different from the current
2770 FRAME_LINES (f). */
2771 width = FRAME_COLS (f);
2772 height = FRAME_LINES (f);
2773
2774 SET_FRAME_COLS (f, 0);
2775 FRAME_LINES (f) = 0;
2776 change_frame_size (f, height, width, 1, 0, 0);
2777
2778 /* Tell the server what size and position, etc, we want, and how
2779 badly we want them. This should be done after we have the menu
2780 bar so that its size can be taken into account. */
2781 BLOCK_INPUT;
2782 x_wm_set_size_hint (f, window_prompting, 0);
2783 UNBLOCK_INPUT;
2784
2785 /* Make the window appear on the frame and enable display, unless
2786 the caller says not to. However, with explicit parent, Emacs
2787 cannot control visibility, so don't try. */
2788 if (! f->output_data.mac->explicit_parent)
2789 {
2790 Lisp_Object visibility;
2791
2792 visibility = mac_get_arg (parms, Qvisibility, 0, 0, RES_TYPE_SYMBOL);
2793 if (EQ (visibility, Qunbound))
2794 visibility = Qt;
2795
2796 if (EQ (visibility, Qicon))
2797 x_iconify_frame (f);
2798 else if (! NILP (visibility))
2799 x_make_frame_visible (f);
2800 else
2801 /* Must have been Qnil. */
2802 ;
2803 }
2804
2805 /* Initialize `default-minibuffer-frame' in case this is the first
2806 frame on this display device. */
2807 if (FRAME_HAS_MINIBUF_P (f)
2808 && (!FRAMEP (kb->Vdefault_minibuffer_frame)
2809 || !FRAME_LIVE_P (XFRAME (kb->Vdefault_minibuffer_frame))))
2810 kb->Vdefault_minibuffer_frame = frame;
2811
2812 /* All remaining specified parameters, which have not been "used"
2813 by x_get_arg and friends, now go in the misc. alist of the frame. */
2814 for (tem = parms; !NILP (tem); tem = XCDR (tem))
2815 if (CONSP (XCAR (tem)) && !NILP (XCAR (XCAR (tem))))
2816 f->param_alist = Fcons (XCAR (tem), f->param_alist);
2817
2818 UNGCPRO;
2819
2820 /* Make sure windows on this frame appear in calls to next-window
2821 and similar functions. */
2822 Vwindow_list = Qnil;
2823
2824 return unbind_to (count, frame);
2825 }
2826
2827
2828 /* FRAME is used only to get a handle on the X display. We don't pass the
2829 display info directly because we're called from frame.c, which doesn't
2830 know about that structure. */
2831
2832 Lisp_Object
2833 x_get_focus_frame (frame)
2834 struct frame *frame;
2835 {
2836 struct mac_display_info *dpyinfo = FRAME_MAC_DISPLAY_INFO (frame);
2837 Lisp_Object xfocus;
2838 if (! dpyinfo->x_focus_frame)
2839 return Qnil;
2840
2841 XSETFRAME (xfocus, dpyinfo->x_focus_frame);
2842 return xfocus;
2843 }
2844
2845
2846 DEFUN ("x-focus-frame", Fx_focus_frame, Sx_focus_frame, 1, 1, 0,
2847 doc: /* Set the input focus to FRAME.
2848 FRAME nil means use the selected frame. */)
2849 (frame)
2850 Lisp_Object frame;
2851 {
2852 struct frame *f = check_x_frame (frame);
2853
2854 BLOCK_INPUT;
2855 #ifdef MAC_OSX
2856 ActivateWindow (ActiveNonFloatingWindow (), false);
2857 ActivateWindow (FRAME_MAC_WINDOW (f), true);
2858 #else
2859 #if !TARGET_API_MAC_CARBON
2860 /* SelectWindow (Non-Carbon) does not issue deactivate events if the
2861 possibly inactive window that is to be selected is already the
2862 frontmost one. */
2863 SendBehind (FRAME_MAC_WINDOW (f), NULL);
2864 #endif
2865 /* This brings the window to the front. */
2866 SelectWindow (FRAME_MAC_WINDOW (f));
2867 #endif
2868 UNBLOCK_INPUT;
2869
2870 return Qnil;
2871 }
2872
2873 \f
2874 DEFUN ("xw-color-defined-p", Fxw_color_defined_p, Sxw_color_defined_p, 1, 2, 0,
2875 doc: /* Internal function called by `color-defined-p', which see. */)
2876 (color, frame)
2877 Lisp_Object color, frame;
2878 {
2879 XColor foo;
2880 FRAME_PTR f = check_x_frame (frame);
2881
2882 CHECK_STRING (color);
2883
2884 if (mac_defined_color (f, SDATA (color), &foo, 0))
2885 return Qt;
2886 else
2887 return Qnil;
2888 }
2889
2890 DEFUN ("xw-color-values", Fxw_color_values, Sxw_color_values, 1, 2, 0,
2891 doc: /* Internal function called by `color-values', which see. */)
2892 (color, frame)
2893 Lisp_Object color, frame;
2894 {
2895 XColor foo;
2896 FRAME_PTR f = check_x_frame (frame);
2897
2898 CHECK_STRING (color);
2899
2900 if (mac_defined_color (f, SDATA (color), &foo, 0))
2901 return list3 (make_number (foo.red),
2902 make_number (foo.green),
2903 make_number (foo.blue));
2904 else
2905 return Qnil;
2906 }
2907
2908 DEFUN ("xw-display-color-p", Fxw_display_color_p, Sxw_display_color_p, 0, 1, 0,
2909 doc: /* Internal function called by `display-color-p', which see. */)
2910 (display)
2911 Lisp_Object display;
2912 {
2913 struct mac_display_info *dpyinfo = check_x_display_info (display);
2914
2915 if (!dpyinfo->color_p)
2916 return Qnil;
2917
2918 return Qt;
2919 }
2920
2921 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p, Sx_display_grayscale_p,
2922 0, 1, 0,
2923 doc: /* Return t if DISPLAY supports shades of gray.
2924 Note that color displays do support shades of gray.
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 if (dpyinfo->n_planes <= 1)
2934 return Qnil;
2935
2936 return Qt;
2937 }
2938
2939 DEFUN ("x-display-pixel-width", Fx_display_pixel_width, Sx_display_pixel_width,
2940 0, 1, 0,
2941 doc: /* Returns the width in pixels of DISPLAY.
2942 The optional argument DISPLAY specifies which display to ask about.
2943 DISPLAY should be either a frame or a display name (a string).
2944 If omitted or nil, that stands for the selected frame's display. */)
2945 (display)
2946 Lisp_Object display;
2947 {
2948 struct mac_display_info *dpyinfo = check_x_display_info (display);
2949
2950 return make_number (dpyinfo->width);
2951 }
2952
2953 DEFUN ("x-display-pixel-height", Fx_display_pixel_height,
2954 Sx_display_pixel_height, 0, 1, 0,
2955 doc: /* Returns the height in pixels of DISPLAY.
2956 The optional argument DISPLAY specifies which display to ask about.
2957 DISPLAY should be either a frame or a display name (a string).
2958 If omitted or nil, that stands for the selected frame's display. */)
2959 (display)
2960 Lisp_Object display;
2961 {
2962 struct mac_display_info *dpyinfo = check_x_display_info (display);
2963
2964 return make_number (dpyinfo->height);
2965 }
2966
2967 DEFUN ("x-display-planes", Fx_display_planes, Sx_display_planes,
2968 0, 1, 0,
2969 doc: /* Returns the number of bitplanes of DISPLAY.
2970 The optional argument DISPLAY specifies which display to ask about.
2971 DISPLAY should be either a frame or a display name (a string).
2972 If omitted or nil, that stands for the selected frame's display. */)
2973 (display)
2974 Lisp_Object display;
2975 {
2976 struct mac_display_info *dpyinfo = check_x_display_info (display);
2977
2978 return make_number (dpyinfo->n_planes);
2979 }
2980
2981 DEFUN ("x-display-color-cells", Fx_display_color_cells, Sx_display_color_cells,
2982 0, 1, 0,
2983 doc: /* Returns the number of color cells of DISPLAY.
2984 The optional argument DISPLAY specifies which display to ask about.
2985 DISPLAY should be either a frame or a display name (a string).
2986 If omitted or nil, that stands for the selected frame's display. */)
2987 (display)
2988 Lisp_Object display;
2989 {
2990 struct mac_display_info *dpyinfo = check_x_display_info (display);
2991
2992 /* We force 24+ bit depths to 24-bit to prevent an overflow. */
2993 return make_number (1 << min (dpyinfo->n_planes, 24));
2994 }
2995
2996 DEFUN ("x-server-max-request-size", Fx_server_max_request_size,
2997 Sx_server_max_request_size,
2998 0, 1, 0,
2999 doc: /* Returns the maximum request size of the server of DISPLAY.
3000 The optional argument DISPLAY specifies which display to ask about.
3001 DISPLAY should be either a frame or a display name (a string).
3002 If omitted or nil, that stands for the selected frame's display. */)
3003 (display)
3004 Lisp_Object display;
3005 {
3006 struct mac_display_info *dpyinfo = check_x_display_info (display);
3007
3008 return make_number (1);
3009 }
3010
3011 DEFUN ("x-server-vendor", Fx_server_vendor, Sx_server_vendor, 0, 1, 0,
3012 doc: /* Returns the "vendor ID" string of the Mac OS system (Apple).
3013 The optional argument DISPLAY specifies which display to ask about.
3014 DISPLAY should be either a frame or a display name (a string).
3015 If omitted or nil, that stands for the selected frame's display. */)
3016 (display)
3017 Lisp_Object display;
3018 {
3019 return build_string ("Apple Computers");
3020 }
3021
3022 DEFUN ("x-server-version", Fx_server_version, Sx_server_version, 0, 1, 0,
3023 doc: /* Returns the version numbers of the Mac OS system.
3024 The value is a list of three integers: the major and minor
3025 version numbers, and the vendor-specific release
3026 number. See also the function `x-server-vendor'.
3027
3028 The optional argument DISPLAY specifies which display to ask about.
3029 DISPLAY should be either a frame or a display name (a string).
3030 If omitted or nil, that stands for the selected frame's display. */)
3031 (display)
3032 Lisp_Object display;
3033 {
3034 UInt32 response, major, minor, bugfix;
3035 OSErr err;
3036
3037 BLOCK_INPUT;
3038 err = Gestalt (gestaltSystemVersion, &response);
3039 if (err == noErr)
3040 {
3041 if (response >= 0x00001040)
3042 {
3043 err = Gestalt (gestaltSystemVersionMajor, &major);
3044 if (err == noErr)
3045 err = Gestalt (gestaltSystemVersionMinor, &minor);
3046 if (err == noErr)
3047 err = Gestalt (gestaltSystemVersionBugFix, &bugfix);
3048 }
3049 else
3050 {
3051 bugfix = response & 0xf;
3052 response >>= 4;
3053 minor = response & 0xf;
3054 response >>= 4;
3055 /* convert BCD to int */
3056 major = response - (response >> 4) * 6;
3057 }
3058 }
3059 UNBLOCK_INPUT;
3060
3061 if (err != noErr)
3062 error ("Cannot get Mac OS version");
3063
3064 return Fcons (make_number (major),
3065 Fcons (make_number (minor),
3066 Fcons (make_number (bugfix),
3067 Qnil)));
3068 }
3069
3070 DEFUN ("x-display-screens", Fx_display_screens, Sx_display_screens, 0, 1, 0,
3071 doc: /* Return the number of screens on the server of DISPLAY.
3072 The optional argument DISPLAY specifies which display to ask about.
3073 DISPLAY should be either a frame or a display name (a string).
3074 If omitted or nil, that stands for the selected frame's display. */)
3075 (display)
3076 Lisp_Object display;
3077 {
3078 return make_number (1);
3079 }
3080
3081 DEFUN ("x-display-mm-height", Fx_display_mm_height, Sx_display_mm_height, 0, 1, 0,
3082 doc: /* Return the height in millimeters of DISPLAY.
3083 The optional argument DISPLAY specifies which display to ask about.
3084 DISPLAY should be either a frame or a display name (a string).
3085 If omitted or nil, that stands for the selected frame's display. */)
3086 (display)
3087 Lisp_Object display;
3088 {
3089 struct mac_display_info *dpyinfo = check_x_display_info (display);
3090 /* Only of the main display. */
3091 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
3092 CGSize size;
3093
3094 BLOCK_INPUT;
3095 size = CGDisplayScreenSize (kCGDirectMainDisplay);
3096 UNBLOCK_INPUT;
3097
3098 return make_number ((int) (size.height + .5f));
3099 #else
3100 /* This is an approximation. */
3101 return make_number ((int) (dpyinfo->height * 25.4 / dpyinfo->resy));
3102 #endif
3103 }
3104
3105 DEFUN ("x-display-mm-width", Fx_display_mm_width, Sx_display_mm_width, 0, 1, 0,
3106 doc: /* Return the width in millimeters of DISPLAY.
3107 The optional argument DISPLAY specifies which display to ask about.
3108 DISPLAY should be either a frame or a display name (a string).
3109 If omitted or nil, that stands for the selected frame's display. */)
3110 (display)
3111 Lisp_Object display;
3112 {
3113 struct mac_display_info *dpyinfo = check_x_display_info (display);
3114 /* Only of the main display. */
3115 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
3116 CGSize size;
3117
3118 BLOCK_INPUT;
3119 size = CGDisplayScreenSize (kCGDirectMainDisplay);
3120 UNBLOCK_INPUT;
3121
3122 return make_number ((int) (size.width + .5f));
3123 #else
3124 /* This is an approximation. */
3125 return make_number ((int) (dpyinfo->width * 25.4 / dpyinfo->resx));
3126 #endif
3127 }
3128
3129 DEFUN ("x-display-backing-store", Fx_display_backing_store,
3130 Sx_display_backing_store, 0, 1, 0,
3131 doc: /* Returns an indication of whether DISPLAY does backing store.
3132 The value may be `always', `when-mapped', or `not-useful'.
3133 The optional argument DISPLAY specifies which display to ask about.
3134 DISPLAY should be either a frame or a display name (a string).
3135 If omitted or nil, that stands for the selected frame's display. */)
3136 (display)
3137 Lisp_Object display;
3138 {
3139 return intern ("not-useful");
3140 }
3141
3142 DEFUN ("x-display-visual-class", Fx_display_visual_class,
3143 Sx_display_visual_class, 0, 1, 0,
3144 doc: /* Returns the visual class of DISPLAY.
3145 The value is one of the symbols `static-gray', `gray-scale',
3146 `static-color', `pseudo-color', `true-color', or `direct-color'.
3147
3148 The optional argument DISPLAY specifies which display to ask about.
3149 DISPLAY should be either a frame or a display name (a string).
3150 If omitted or nil, that stands for the selected frame's display. */)
3151 (display)
3152 Lisp_Object display;
3153 {
3154 struct mac_display_info *dpyinfo = check_x_display_info (display);
3155
3156 #if 0
3157 switch (dpyinfo->visual->class)
3158 {
3159 case StaticGray: return (intern ("static-gray"));
3160 case GrayScale: return (intern ("gray-scale"));
3161 case StaticColor: return (intern ("static-color"));
3162 case PseudoColor: return (intern ("pseudo-color"));
3163 case TrueColor: return (intern ("true-color"));
3164 case DirectColor: return (intern ("direct-color"));
3165 default:
3166 error ("Display has an unknown visual class");
3167 }
3168 #endif /* 0 */
3169
3170 return (intern ("true-color"));
3171 }
3172
3173 DEFUN ("x-display-save-under", Fx_display_save_under,
3174 Sx_display_save_under, 0, 1, 0,
3175 doc: /* Returns t if DISPLAY supports the save-under feature.
3176 The optional argument DISPLAY specifies which display to ask about.
3177 DISPLAY should be either a frame or a display name (a string).
3178 If omitted or nil, that stands for the selected frame's display. */)
3179 (display)
3180 Lisp_Object display;
3181 {
3182 return Qnil;
3183 }
3184 \f
3185 int
3186 x_pixel_width (f)
3187 register struct frame *f;
3188 {
3189 return FRAME_PIXEL_WIDTH (f);
3190 }
3191
3192 int
3193 x_pixel_height (f)
3194 register struct frame *f;
3195 {
3196 return FRAME_PIXEL_HEIGHT (f);
3197 }
3198
3199 int
3200 x_char_width (f)
3201 register struct frame *f;
3202 {
3203 return FRAME_COLUMN_WIDTH (f);
3204 }
3205
3206 int
3207 x_char_height (f)
3208 register struct frame *f;
3209 {
3210 return FRAME_LINE_HEIGHT (f);
3211 }
3212
3213 int
3214 x_screen_planes (f)
3215 register struct frame *f;
3216 {
3217 return FRAME_MAC_DISPLAY_INFO (f)->n_planes;
3218 }
3219 \f
3220 /* Return the display structure for the display named NAME.
3221 Open a new connection if necessary. */
3222
3223 struct mac_display_info *
3224 x_display_info_for_name (name)
3225 Lisp_Object name;
3226 {
3227 Lisp_Object names;
3228 struct mac_display_info *dpyinfo;
3229
3230 CHECK_STRING (name);
3231
3232 if (! EQ (Vwindow_system, intern ("mac")))
3233 error ("Not using Mac native windows");
3234
3235 for (dpyinfo = &one_mac_display_info, names = x_display_name_list;
3236 dpyinfo;
3237 dpyinfo = dpyinfo->next, names = XCDR (names))
3238 {
3239 Lisp_Object tem;
3240 tem = Fstring_equal (XCAR (XCAR (names)), name);
3241 if (!NILP (tem))
3242 return dpyinfo;
3243 }
3244
3245 /* Use this general default value to start with. */
3246 Vx_resource_name = Vinvocation_name;
3247
3248 validate_x_resource_name ();
3249
3250 dpyinfo = mac_term_init (name, (unsigned char *) 0,
3251 (char *) SDATA (Vx_resource_name));
3252
3253 if (dpyinfo == 0)
3254 error ("Cannot connect to server %s", SDATA (name));
3255
3256 mac_in_use = 1;
3257 XSETFASTINT (Vwindow_system_version, 3);
3258
3259 return dpyinfo;
3260 }
3261
3262 DEFUN ("x-open-connection", Fx_open_connection, Sx_open_connection,
3263 1, 3, 0,
3264 doc: /* Open a connection to a server.
3265 DISPLAY is the name of the display to connect to.
3266 Optional second arg XRM-STRING is a string of resources in xrdb format.
3267 If the optional third arg MUST-SUCCEED is non-nil,
3268 terminate Emacs if we can't open the connection. */)
3269 (display, xrm_string, must_succeed)
3270 Lisp_Object display, xrm_string, must_succeed;
3271 {
3272 unsigned char *xrm_option;
3273 struct mac_display_info *dpyinfo;
3274
3275 CHECK_STRING (display);
3276 if (! NILP (xrm_string))
3277 CHECK_STRING (xrm_string);
3278
3279 if (! EQ (Vwindow_system, intern ("mac")))
3280 error ("Not using Mac native windows");
3281
3282 if (! NILP (xrm_string))
3283 xrm_option = (unsigned char *) SDATA (xrm_string);
3284 else
3285 xrm_option = (unsigned char *) 0;
3286
3287 validate_x_resource_name ();
3288
3289 /* This is what opens the connection and sets x_current_display.
3290 This also initializes many symbols, such as those used for input. */
3291 dpyinfo = mac_term_init (display, xrm_option,
3292 (char *) SDATA (Vx_resource_name));
3293
3294 if (dpyinfo == 0)
3295 {
3296 if (!NILP (must_succeed))
3297 fatal ("Cannot connect to server %s.\n",
3298 SDATA (display));
3299 else
3300 error ("Cannot connect to server %s", SDATA (display));
3301 }
3302
3303 mac_in_use = 1;
3304
3305 XSETFASTINT (Vwindow_system_version, 3);
3306 return Qnil;
3307 }
3308
3309 DEFUN ("x-close-connection", Fx_close_connection,
3310 Sx_close_connection, 1, 1, 0,
3311 doc: /* Close the connection to DISPLAY's server.
3312 For DISPLAY, specify either a frame or a display name (a string).
3313 If DISPLAY is nil, that stands for the selected frame's display. */)
3314 (display)
3315 Lisp_Object display;
3316 {
3317 struct mac_display_info *dpyinfo = check_x_display_info (display);
3318 int i;
3319
3320 if (dpyinfo->reference_count > 0)
3321 error ("Display still has frames on it");
3322
3323 BLOCK_INPUT;
3324 /* Free the fonts in the font table. */
3325 for (i = 0; i < dpyinfo->n_fonts; i++)
3326 if (dpyinfo->font_table[i].name)
3327 {
3328 mac_unload_font (dpyinfo, dpyinfo->font_table[i].font);
3329 }
3330
3331 x_destroy_all_bitmaps (dpyinfo);
3332
3333 x_delete_display (dpyinfo);
3334 UNBLOCK_INPUT;
3335
3336 return Qnil;
3337 }
3338
3339 DEFUN ("x-display-list", Fx_display_list, Sx_display_list, 0, 0, 0,
3340 doc: /* Return the list of display names that Emacs has connections to. */)
3341 ()
3342 {
3343 Lisp_Object tail, result;
3344
3345 result = Qnil;
3346 for (tail = x_display_name_list; ! NILP (tail); tail = XCDR (tail))
3347 result = Fcons (XCAR (XCAR (tail)), result);
3348
3349 return result;
3350 }
3351
3352 DEFUN ("x-synchronize", Fx_synchronize, Sx_synchronize, 1, 2, 0,
3353 doc: /* This is a noop on Mac OS systems. */)
3354 (on, display)
3355 Lisp_Object display, on;
3356 {
3357 return Qnil;
3358 }
3359
3360 /* x_sync is a no-op on Mac. */
3361
3362 void
3363 x_sync (f)
3364 FRAME_PTR f;
3365 {
3366 }
3367
3368 \f
3369 /***********************************************************************
3370 Window properties
3371 ***********************************************************************/
3372
3373 DEFUN ("x-change-window-property", Fx_change_window_property,
3374 Sx_change_window_property, 2, 6, 0,
3375 doc: /* Change window property PROP to VALUE on the X window of FRAME.
3376 VALUE may be a string or a list of conses, numbers and/or strings.
3377 If an element in the list is a string, it is converted to
3378 an Atom and the value of the Atom is used. If an element is a cons,
3379 it is converted to a 32 bit number where the car is the 16 top bits and the
3380 cdr is the lower 16 bits.
3381 FRAME nil or omitted means use the selected frame.
3382 If TYPE is given and non-nil, it is the name of the type of VALUE.
3383 If TYPE is not given or nil, the type is STRING.
3384 FORMAT gives the size in bits of each element if VALUE is a list.
3385 It must be one of 8, 16 or 32.
3386 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
3387 If OUTER_P is non-nil, the property is changed for the outer X window of
3388 FRAME. Default is to change on the edit X window.
3389
3390 Value is VALUE. */)
3391 (prop, value, frame, type, format, outer_p)
3392 Lisp_Object prop, value, frame, type, format, outer_p;
3393 {
3394 #if 0 /* MAC_TODO : port window properties to Mac */
3395 struct frame *f = check_x_frame (frame);
3396 Atom prop_atom;
3397
3398 CHECK_STRING (prop);
3399 CHECK_STRING (value);
3400
3401 BLOCK_INPUT;
3402 prop_atom = XInternAtom (FRAME_W32_DISPLAY (f), SDATA (prop), False);
3403 XChangeProperty (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f),
3404 prop_atom, XA_STRING, 8, PropModeReplace,
3405 SDATA (value), SCHARS (value));
3406
3407 /* Make sure the property is set when we return. */
3408 XFlush (FRAME_W32_DISPLAY (f));
3409 UNBLOCK_INPUT;
3410
3411 #endif /* MAC_TODO */
3412
3413 return value;
3414 }
3415
3416
3417 DEFUN ("x-delete-window-property", Fx_delete_window_property,
3418 Sx_delete_window_property, 1, 2, 0,
3419 doc: /* Remove window property PROP from X window of FRAME.
3420 FRAME nil or omitted means use the selected frame. Value is PROP. */)
3421 (prop, frame)
3422 Lisp_Object prop, frame;
3423 {
3424 #if 0 /* MAC_TODO : port window properties to Mac */
3425
3426 struct frame *f = check_x_frame (frame);
3427 Atom prop_atom;
3428
3429 CHECK_STRING (prop);
3430 BLOCK_INPUT;
3431 prop_atom = XInternAtom (FRAME_W32_DISPLAY (f), SDATA (prop), False);
3432 XDeleteProperty (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f), prop_atom);
3433
3434 /* Make sure the property is removed when we return. */
3435 XFlush (FRAME_W32_DISPLAY (f));
3436 UNBLOCK_INPUT;
3437 #endif /* MAC_TODO */
3438
3439 return prop;
3440 }
3441
3442
3443 DEFUN ("x-window-property", Fx_window_property, Sx_window_property,
3444 1, 2, 0,
3445 doc: /* Value is the value of window property PROP on FRAME.
3446 If FRAME is nil or omitted, use the selected frame. Value is nil
3447 if FRAME hasn't a property with name PROP or if PROP has no string
3448 value. */)
3449 (prop, frame)
3450 Lisp_Object prop, frame;
3451 {
3452 #if 0 /* MAC_TODO : port window properties to Mac */
3453
3454 struct frame *f = check_x_frame (frame);
3455 Atom prop_atom;
3456 int rc;
3457 Lisp_Object prop_value = Qnil;
3458 char *tmp_data = NULL;
3459 Atom actual_type;
3460 int actual_format;
3461 unsigned long actual_size, bytes_remaining;
3462
3463 CHECK_STRING (prop);
3464 BLOCK_INPUT;
3465 prop_atom = XInternAtom (FRAME_W32_DISPLAY (f), SDATA (prop), False);
3466 rc = XGetWindowProperty (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f),
3467 prop_atom, 0, 0, False, XA_STRING,
3468 &actual_type, &actual_format, &actual_size,
3469 &bytes_remaining, (unsigned char **) &tmp_data);
3470 if (rc == Success)
3471 {
3472 int size = bytes_remaining;
3473
3474 XFree (tmp_data);
3475 tmp_data = NULL;
3476
3477 rc = XGetWindowProperty (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f),
3478 prop_atom, 0, bytes_remaining,
3479 False, XA_STRING,
3480 &actual_type, &actual_format,
3481 &actual_size, &bytes_remaining,
3482 (unsigned char **) &tmp_data);
3483 if (rc == Success)
3484 prop_value = make_string (tmp_data, size);
3485
3486 XFree (tmp_data);
3487 }
3488
3489 UNBLOCK_INPUT;
3490
3491 return prop_value;
3492
3493 #endif /* MAC_TODO */
3494 return Qnil;
3495 }
3496
3497
3498 \f
3499 /***********************************************************************
3500 Busy cursor
3501 ***********************************************************************/
3502
3503 /* If non-null, an asynchronous timer that, when it expires, displays
3504 an hourglass cursor on all frames. */
3505
3506 static struct atimer *hourglass_atimer;
3507
3508 /* Non-zero means an hourglass cursor is currently shown. */
3509
3510 static int hourglass_shown_p;
3511
3512 /* Number of seconds to wait before displaying an hourglass cursor. */
3513
3514 static Lisp_Object Vhourglass_delay;
3515
3516 /* Default number of seconds to wait before displaying an hourglass
3517 cursor. */
3518
3519 #define DEFAULT_HOURGLASS_DELAY 1
3520
3521 /* Function prototypes. */
3522
3523 static void show_hourglass P_ ((struct atimer *));
3524 static void hide_hourglass P_ ((void));
3525
3526 /* Return non-zero if houglass timer has been started or hourglass is shown. */
3527
3528 int
3529 hourglass_started ()
3530 {
3531 return hourglass_shown_p || hourglass_atimer != NULL;
3532 }
3533
3534
3535 /* Cancel a currently active hourglass timer, and start a new one. */
3536
3537 void
3538 start_hourglass ()
3539 {
3540 #ifdef MAC_OSX
3541 EMACS_TIME delay;
3542 int secs, usecs = 0;
3543
3544 /* Don't bother for ttys. */
3545 if (NILP (Vwindow_system))
3546 return;
3547
3548 cancel_hourglass ();
3549
3550 if (INTEGERP (Vhourglass_delay)
3551 && XINT (Vhourglass_delay) > 0)
3552 secs = XFASTINT (Vhourglass_delay);
3553 else if (FLOATP (Vhourglass_delay)
3554 && XFLOAT_DATA (Vhourglass_delay) > 0)
3555 {
3556 Lisp_Object tem;
3557 tem = Ftruncate (Vhourglass_delay, Qnil);
3558 secs = XFASTINT (tem);
3559 usecs = (XFLOAT_DATA (Vhourglass_delay) - secs) * 1000000;
3560 }
3561 else
3562 secs = DEFAULT_HOURGLASS_DELAY;
3563
3564 EMACS_SET_SECS_USECS (delay, secs, usecs);
3565 hourglass_atimer = start_atimer (ATIMER_RELATIVE, delay,
3566 show_hourglass, NULL);
3567 #endif /* MAC_OSX */
3568 }
3569
3570
3571 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
3572 shown. */
3573
3574 void
3575 cancel_hourglass ()
3576 {
3577 #ifdef MAC_OSX
3578 if (hourglass_atimer)
3579 {
3580 cancel_atimer (hourglass_atimer);
3581 hourglass_atimer = NULL;
3582 }
3583
3584 if (hourglass_shown_p)
3585 hide_hourglass ();
3586 #endif /* MAC_OSX */
3587 }
3588
3589
3590 /* Timer function of hourglass_atimer. TIMER is equal to
3591 hourglass_atimer.
3592
3593 On Mac, busy status is shown by the progress indicator (chasing
3594 arrows) at the upper-right corner of each frame instead of the
3595 hourglass pointer. */
3596
3597 static void
3598 show_hourglass (timer)
3599 struct atimer *timer;
3600 {
3601 #if TARGET_API_MAC_CARBON
3602 /* The timer implementation will cancel this timer automatically
3603 after this function has run. Set hourglass_atimer to null
3604 so that we know the timer doesn't have to be canceled. */
3605 hourglass_atimer = NULL;
3606
3607 if (!hourglass_shown_p)
3608 {
3609 Lisp_Object rest, frame;
3610
3611 BLOCK_INPUT;
3612
3613 FOR_EACH_FRAME (rest, frame)
3614 {
3615 struct frame *f = XFRAME (frame);
3616
3617 if (FRAME_LIVE_P (f) && FRAME_MAC_P (f)
3618 && FRAME_MAC_WINDOW (f) != tip_window)
3619 {
3620 #if USE_CG_DRAWING
3621 mac_prepare_for_quickdraw (f);
3622 #endif
3623 if (!f->output_data.mac->hourglass_control)
3624 {
3625 Window w = FRAME_MAC_WINDOW (f);
3626 Rect r;
3627 ControlRef c;
3628
3629 GetWindowPortBounds (w, &r);
3630 r.left = r.right - HOURGLASS_WIDTH;
3631 r.bottom = r.top + HOURGLASS_HEIGHT;
3632 if (CreateChasingArrowsControl (w, &r, &c) == noErr)
3633 f->output_data.mac->hourglass_control = c;
3634 }
3635
3636 if (f->output_data.mac->hourglass_control)
3637 ShowControl (f->output_data.mac->hourglass_control);
3638 }
3639 }
3640
3641 hourglass_shown_p = 1;
3642 UNBLOCK_INPUT;
3643 }
3644 #endif /* TARGET_API_MAC_CARBON */
3645 }
3646
3647
3648 /* Hide the progress indicators on all frames, if it is currently
3649 shown. */
3650
3651 static void
3652 hide_hourglass ()
3653 {
3654 #if TARGET_API_MAC_CARBON
3655 if (hourglass_shown_p)
3656 {
3657 Lisp_Object rest, frame;
3658
3659 BLOCK_INPUT;
3660 FOR_EACH_FRAME (rest, frame)
3661 {
3662 struct frame *f = XFRAME (frame);
3663
3664 if (FRAME_MAC_P (f)
3665 /* Watch out for newly created frames. */
3666 && f->output_data.mac->hourglass_control)
3667 {
3668 #if USE_CG_DRAWING
3669 mac_prepare_for_quickdraw (f);
3670 #endif
3671 HideControl (f->output_data.mac->hourglass_control);
3672 }
3673 }
3674
3675 hourglass_shown_p = 0;
3676 UNBLOCK_INPUT;
3677 }
3678 #endif /* TARGET_API_MAC_CARBON */
3679 }
3680
3681
3682 \f
3683 /***********************************************************************
3684 Tool tips
3685 ***********************************************************************/
3686
3687 static Lisp_Object x_create_tip_frame P_ ((struct mac_display_info *,
3688 Lisp_Object, Lisp_Object));
3689 static void compute_tip_xy P_ ((struct frame *, Lisp_Object, Lisp_Object,
3690 Lisp_Object, int, int, int *, int *));
3691
3692 /* The frame of a currently visible tooltip. */
3693
3694 Lisp_Object tip_frame;
3695
3696 /* If non-nil, a timer started that hides the last tooltip when it
3697 fires. */
3698
3699 Lisp_Object tip_timer;
3700 Window tip_window;
3701
3702 /* If non-nil, a vector of 3 elements containing the last args
3703 with which x-show-tip was called. See there. */
3704
3705 Lisp_Object last_show_tip_args;
3706
3707 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
3708
3709 Lisp_Object Vx_max_tooltip_size;
3710
3711
3712 static Lisp_Object
3713 unwind_create_tip_frame (frame)
3714 Lisp_Object frame;
3715 {
3716 Lisp_Object deleted;
3717
3718 deleted = unwind_create_frame (frame);
3719 if (EQ (deleted, Qt))
3720 {
3721 tip_window = NULL;
3722 tip_frame = Qnil;
3723 }
3724
3725 return deleted;
3726 }
3727
3728
3729 /* Create a frame for a tooltip on the display described by DPYINFO.
3730 PARMS is a list of frame parameters. TEXT is the string to
3731 display in the tip frame. Value is the frame.
3732
3733 Note that functions called here, esp. x_default_parameter can
3734 signal errors, for instance when a specified color name is
3735 undefined. We have to make sure that we're in a consistent state
3736 when this happens. */
3737
3738 static Lisp_Object
3739 x_create_tip_frame (dpyinfo, parms, text)
3740 struct mac_display_info *dpyinfo;
3741 Lisp_Object parms, text;
3742 {
3743 struct frame *f;
3744 Lisp_Object frame, tem;
3745 Lisp_Object name;
3746 long window_prompting = 0;
3747 int width, height;
3748 int count = SPECPDL_INDEX ();
3749 struct gcpro gcpro1, gcpro2, gcpro3;
3750 struct kboard *kb;
3751 int face_change_count_before = face_change_count;
3752 Lisp_Object buffer;
3753 struct buffer *old_buffer;
3754
3755 check_mac ();
3756
3757 parms = Fcopy_alist (parms);
3758
3759 #ifdef MULTI_KBOARD
3760 kb = dpyinfo->kboard;
3761 #else
3762 kb = &the_only_kboard;
3763 #endif
3764
3765 /* Get the name of the frame to use for resource lookup. */
3766 name = mac_get_arg (parms, Qname, "name", "Name", RES_TYPE_STRING);
3767 if (!STRINGP (name)
3768 && !EQ (name, Qunbound)
3769 && !NILP (name))
3770 error ("Invalid frame name--not a string or nil");
3771
3772 frame = Qnil;
3773 GCPRO3 (parms, name, frame);
3774 f = make_frame (1);
3775 XSETFRAME (frame, f);
3776
3777 buffer = Fget_buffer_create (build_string (" *tip*"));
3778 Fset_window_buffer (FRAME_ROOT_WINDOW (f), buffer, Qnil);
3779 old_buffer = current_buffer;
3780 set_buffer_internal_1 (XBUFFER (buffer));
3781 current_buffer->truncate_lines = Qnil;
3782 specbind (Qinhibit_read_only, Qt);
3783 specbind (Qinhibit_modification_hooks, Qt);
3784 Ferase_buffer ();
3785 Finsert (1, &text);
3786 set_buffer_internal_1 (old_buffer);
3787
3788 FRAME_CAN_HAVE_SCROLL_BARS (f) = 0;
3789 record_unwind_protect (unwind_create_tip_frame, frame);
3790
3791 /* By setting the output method, we're essentially saying that
3792 the frame is live, as per FRAME_LIVE_P. If we get a signal
3793 from this point on, x_destroy_window might screw up reference
3794 counts etc. */
3795 f->output_method = output_mac;
3796 f->output_data.mac =
3797 (struct mac_output *) xmalloc (sizeof (struct mac_output));
3798 bzero (f->output_data.mac, sizeof (struct mac_output));
3799
3800 FRAME_FONTSET (f) = -1;
3801 f->icon_name = Qnil;
3802 /* FRAME_X_DISPLAY_INFO (f) = dpyinfo; */
3803 #if GLYPH_DEBUG
3804 image_cache_refcount = FRAME_X_IMAGE_CACHE (f)->refcount;
3805 dpyinfo_refcount = dpyinfo->reference_count;
3806 #endif /* GLYPH_DEBUG */
3807 #ifdef MULTI_KBOARD
3808 FRAME_KBOARD (f) = kb;
3809 #endif
3810 f->output_data.mac->parent_desc = FRAME_MAC_DISPLAY_INFO (f)->root_window;
3811 f->output_data.mac->explicit_parent = 0;
3812
3813 /* Set the name; the functions to which we pass f expect the name to
3814 be set. */
3815 if (EQ (name, Qunbound) || NILP (name))
3816 {
3817 f->name = build_string (dpyinfo->mac_id_name);
3818 f->explicit_name = 0;
3819 }
3820 else
3821 {
3822 f->name = name;
3823 f->explicit_name = 1;
3824 /* use the frame's title when getting resources for this frame. */
3825 specbind (Qx_resource_name, name);
3826 }
3827
3828 /* Extract the window parameters from the supplied values that are
3829 needed to determine window geometry. */
3830 {
3831 Lisp_Object font;
3832
3833 font = mac_get_arg (parms, Qfont, "font", "Font", RES_TYPE_STRING);
3834
3835 BLOCK_INPUT;
3836 /* First, try whatever font the caller has specified. */
3837 if (STRINGP (font))
3838 {
3839 tem = Fquery_fontset (font, Qnil);
3840 if (STRINGP (tem))
3841 font = x_new_fontset (f, SDATA (tem));
3842 else
3843 font = x_new_font (f, SDATA (font));
3844 }
3845
3846 /* Try out a font which we hope has bold and italic variations. */
3847 #if USE_ATSUI
3848 if (! STRINGP (font))
3849 font = x_new_font (f, "-*-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1");
3850 #endif
3851 if (! STRINGP (font))
3852 font = x_new_font (f, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1");
3853 /* If those didn't work, look for something which will at least work. */
3854 if (! STRINGP (font))
3855 font = x_new_fontset (f, "fontset-standard");
3856 if (! STRINGP (font))
3857 font = x_new_font (f, "-*-monaco-*-12-*-mac-roman");
3858 if (! STRINGP (font))
3859 font = x_new_font (f, "-*-courier-*-10-*-mac-roman");
3860 UNBLOCK_INPUT;
3861 if (! STRINGP (font))
3862 error ("Cannot find any usable font");
3863
3864 x_default_parameter (f, parms, Qfont, font,
3865 "font", "Font", RES_TYPE_STRING);
3866 }
3867
3868 x_default_parameter (f, parms, Qborder_width, make_number (2),
3869 "borderWidth", "BorderWidth", RES_TYPE_NUMBER);
3870
3871 /* This defaults to 2 in order to match xterm. We recognize either
3872 internalBorderWidth or internalBorder (which is what xterm calls
3873 it). */
3874 if (NILP (Fassq (Qinternal_border_width, parms)))
3875 {
3876 Lisp_Object value;
3877
3878 value = mac_get_arg (parms, Qinternal_border_width,
3879 "internalBorder", "internalBorder", RES_TYPE_NUMBER);
3880 if (! EQ (value, Qunbound))
3881 parms = Fcons (Fcons (Qinternal_border_width, value),
3882 parms);
3883 }
3884
3885 x_default_parameter (f, parms, Qinternal_border_width, make_number (1),
3886 "internalBorderWidth", "internalBorderWidth",
3887 RES_TYPE_NUMBER);
3888
3889 /* Also do the stuff which must be set before the window exists. */
3890 x_default_parameter (f, parms, Qforeground_color, build_string ("black"),
3891 "foreground", "Foreground", RES_TYPE_STRING);
3892 x_default_parameter (f, parms, Qbackground_color, build_string ("white"),
3893 "background", "Background", RES_TYPE_STRING);
3894 x_default_parameter (f, parms, Qmouse_color, build_string ("black"),
3895 "pointerColor", "Foreground", RES_TYPE_STRING);
3896 x_default_parameter (f, parms, Qcursor_color, build_string ("black"),
3897 "cursorColor", "Foreground", RES_TYPE_STRING);
3898 x_default_parameter (f, parms, Qborder_color, build_string ("black"),
3899 "borderColor", "BorderColor", RES_TYPE_STRING);
3900
3901 /* Init faces before x_default_parameter is called for scroll-bar
3902 parameters because that function calls x_set_scroll_bar_width,
3903 which calls change_frame_size, which calls Fset_window_buffer,
3904 which runs hooks, which call Fvertical_motion. At the end, we
3905 end up in init_iterator with a null face cache, which should not
3906 happen. */
3907 init_frame_faces (f);
3908
3909 f->output_data.mac->parent_desc = FRAME_MAC_DISPLAY_INFO (f)->root_window;
3910
3911 window_prompting = x_figure_window_size (f, parms, 0);
3912
3913 {
3914 Rect r;
3915
3916 BLOCK_INPUT;
3917 SetRect (&r, 0, 0, 1, 1);
3918 #if TARGET_API_MAC_CARBON
3919 if (CreateNewWindow (kHelpWindowClass,
3920 #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
3921 kWindowIgnoreClicksAttribute |
3922 #endif
3923 kWindowNoUpdatesAttribute |
3924 kWindowNoActivatesAttribute,
3925 &r, &tip_window) == noErr)
3926 #else
3927 if (tip_window = NewCWindow (NULL, &r, "\p", false, plainDBox,
3928 NULL, false, 0L))
3929 #endif
3930 {
3931 FRAME_MAC_WINDOW (f) = tip_window;
3932 XSetWindowBackground (FRAME_MAC_DISPLAY(f), tip_window,
3933 FRAME_BACKGROUND_PIXEL (f));
3934 SetWRefCon (tip_window, (long) f->output_data.mac);
3935 /* so that update events can find this mac_output struct */
3936 f->output_data.mac->mFP = f;
3937 }
3938 UNBLOCK_INPUT;
3939 }
3940
3941 x_make_gc (f);
3942
3943 x_default_parameter (f, parms, Qauto_raise, Qnil,
3944 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN);
3945 x_default_parameter (f, parms, Qauto_lower, Qnil,
3946 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN);
3947 x_default_parameter (f, parms, Qcursor_type, Qbox,
3948 "cursorType", "CursorType", RES_TYPE_SYMBOL);
3949
3950 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3951 Change will not be effected unless different from the current
3952 FRAME_LINES (f). */
3953 width = FRAME_COLS (f);
3954 height = FRAME_LINES (f);
3955 SET_FRAME_COLS (f, 0);
3956 FRAME_LINES (f) = 0;
3957 change_frame_size (f, height, width, 1, 0, 0);
3958
3959 /* Add `tooltip' frame parameter's default value. */
3960 if (NILP (Fframe_parameter (frame, intern ("tooltip"))))
3961 Fmodify_frame_parameters (frame, Fcons (Fcons (intern ("tooltip"), Qt),
3962 Qnil));
3963
3964 /* Set up faces after all frame parameters are known. This call
3965 also merges in face attributes specified for new frames.
3966
3967 Frame parameters may be changed if .Xdefaults contains
3968 specifications for the default font. For example, if there is an
3969 `Emacs.default.attributeBackground: pink', the `background-color'
3970 attribute of the frame get's set, which let's the internal border
3971 of the tooltip frame appear in pink. Prevent this. */
3972 {
3973 Lisp_Object bg = Fframe_parameter (frame, Qbackground_color);
3974
3975 /* Set tip_frame here, so that */
3976 tip_frame = frame;
3977 call1 (Qface_set_after_frame_default, frame);
3978
3979 if (!EQ (bg, Fframe_parameter (frame, Qbackground_color)))
3980 Fmodify_frame_parameters (frame, Fcons (Fcons (Qbackground_color, bg),
3981 Qnil));
3982 }
3983
3984 f->no_split = 1;
3985
3986 UNGCPRO;
3987
3988 /* It is now ok to make the frame official even if we get an error
3989 below. And the frame needs to be on Vframe_list or making it
3990 visible won't work. */
3991 Vframe_list = Fcons (frame, Vframe_list);
3992
3993 /* Now that the frame is official, it counts as a reference to
3994 its display. */
3995 FRAME_MAC_DISPLAY_INFO (f)->reference_count++;
3996
3997 /* Setting attributes of faces of the tooltip frame from resources
3998 and similar will increment face_change_count, which leads to the
3999 clearing of all current matrices. Since this isn't necessary
4000 here, avoid it by resetting face_change_count to the value it
4001 had before we created the tip frame. */
4002 face_change_count = face_change_count_before;
4003
4004 /* Discard the unwind_protect. */
4005 return unbind_to (count, frame);
4006 }
4007
4008
4009 /* Compute where to display tip frame F. PARMS is the list of frame
4010 parameters for F. DX and DY are specified offsets from the current
4011 location of the mouse. WIDTH and HEIGHT are the width and height
4012 of the tooltip. Return coordinates relative to the root window of
4013 the display in *ROOT_X, and *ROOT_Y. */
4014
4015 static void
4016 compute_tip_xy (f, parms, dx, dy, width, height, root_x, root_y)
4017 struct frame *f;
4018 Lisp_Object parms, dx, dy;
4019 int width, height;
4020 int *root_x, *root_y;
4021 {
4022 Lisp_Object left, top;
4023
4024 /* User-specified position? */
4025 left = Fcdr (Fassq (Qleft, parms));
4026 top = Fcdr (Fassq (Qtop, parms));
4027
4028 /* Move the tooltip window where the mouse pointer is. Resize and
4029 show it. */
4030 if (!INTEGERP (left) || !INTEGERP (top))
4031 {
4032 Point mouse_pos;
4033
4034 BLOCK_INPUT;
4035 GetMouse (&mouse_pos);
4036 LocalToGlobal (&mouse_pos);
4037 *root_x = mouse_pos.h;
4038 *root_y = mouse_pos.v;
4039 UNBLOCK_INPUT;
4040 }
4041
4042 if (INTEGERP (top))
4043 *root_y = XINT (top);
4044 else if (*root_y + XINT (dy) <= 0)
4045 *root_y = 0; /* Can happen for negative dy */
4046 else if (*root_y + XINT (dy) + height <= FRAME_MAC_DISPLAY_INFO (f)->height)
4047 /* It fits below the pointer */
4048 *root_y += XINT (dy);
4049 else if (height + XINT (dy) <= *root_y)
4050 /* It fits above the pointer. */
4051 *root_y -= height + XINT (dy);
4052 else
4053 /* Put it on the top. */
4054 *root_y = 0;
4055
4056 if (INTEGERP (left))
4057 *root_x = XINT (left);
4058 else if (*root_x + XINT (dx) <= 0)
4059 *root_x = 0; /* Can happen for negative dx */
4060 else if (*root_x + XINT (dx) + width <= FRAME_MAC_DISPLAY_INFO (f)->width)
4061 /* It fits to the right of the pointer. */
4062 *root_x += XINT (dx);
4063 else if (width + XINT (dx) <= *root_x)
4064 /* It fits to the left of the pointer. */
4065 *root_x -= width + XINT (dx);
4066 else
4067 /* Put it left-justified on the screen -- it ought to fit that way. */
4068 *root_x = 0;
4069 }
4070
4071
4072 DEFUN ("x-show-tip", Fx_show_tip, Sx_show_tip, 1, 6, 0,
4073 doc: /* Show STRING in a "tooltip" window on frame FRAME.
4074 A tooltip window is a small window displaying a string.
4075
4076 FRAME nil or omitted means use the selected frame.
4077
4078 PARMS is an optional list of frame parameters which can be used to
4079 change the tooltip's appearance.
4080
4081 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4082 means use the default timeout of 5 seconds.
4083
4084 If the list of frame parameters PARMS contains a `left' parameter,
4085 the tooltip is displayed at that x-position. Otherwise it is
4086 displayed at the mouse position, with offset DX added (default is 5 if
4087 DX isn't specified). Likewise for the y-position; if a `top' frame
4088 parameter is specified, it determines the y-position of the tooltip
4089 window, otherwise it is displayed at the mouse position, with offset
4090 DY added (default is -10).
4091
4092 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4093 Text larger than the specified size is clipped. */)
4094 (string, frame, parms, timeout, dx, dy)
4095 Lisp_Object string, frame, parms, timeout, dx, dy;
4096 {
4097 struct frame *f;
4098 struct window *w;
4099 int root_x, root_y;
4100 struct buffer *old_buffer;
4101 struct text_pos pos;
4102 int i, width, height;
4103 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
4104 int old_windows_or_buffers_changed = windows_or_buffers_changed;
4105 int count = SPECPDL_INDEX ();
4106
4107 specbind (Qinhibit_redisplay, Qt);
4108
4109 GCPRO4 (string, parms, frame, timeout);
4110
4111 CHECK_STRING (string);
4112 f = check_x_frame (frame);
4113 if (NILP (timeout))
4114 timeout = make_number (5);
4115 else
4116 CHECK_NATNUM (timeout);
4117
4118 if (NILP (dx))
4119 dx = make_number (5);
4120 else
4121 CHECK_NUMBER (dx);
4122
4123 if (NILP (dy))
4124 dy = make_number (-10);
4125 else
4126 CHECK_NUMBER (dy);
4127
4128 if (NILP (last_show_tip_args))
4129 last_show_tip_args = Fmake_vector (make_number (3), Qnil);
4130
4131 if (!NILP (tip_frame))
4132 {
4133 Lisp_Object last_string = AREF (last_show_tip_args, 0);
4134 Lisp_Object last_frame = AREF (last_show_tip_args, 1);
4135 Lisp_Object last_parms = AREF (last_show_tip_args, 2);
4136
4137 if (EQ (frame, last_frame)
4138 && !NILP (Fequal (last_string, string))
4139 && !NILP (Fequal (last_parms, parms)))
4140 {
4141 struct frame *f = XFRAME (tip_frame);
4142
4143 /* Only DX and DY have changed. */
4144 if (!NILP (tip_timer))
4145 {
4146 Lisp_Object timer = tip_timer;
4147 tip_timer = Qnil;
4148 call1 (Qcancel_timer, timer);
4149 }
4150
4151 BLOCK_INPUT;
4152 compute_tip_xy (f, parms, dx, dy, FRAME_PIXEL_WIDTH (f),
4153 FRAME_PIXEL_HEIGHT (f), &root_x, &root_y);
4154 MoveWindow (FRAME_MAC_WINDOW (f), root_x, root_y, false);
4155 UNBLOCK_INPUT;
4156 goto start_timer;
4157 }
4158 }
4159
4160 /* Hide a previous tip, if any. */
4161 Fx_hide_tip ();
4162
4163 ASET (last_show_tip_args, 0, string);
4164 ASET (last_show_tip_args, 1, frame);
4165 ASET (last_show_tip_args, 2, parms);
4166
4167 /* Add default values to frame parameters. */
4168 if (NILP (Fassq (Qname, parms)))
4169 parms = Fcons (Fcons (Qname, build_string ("tooltip")), parms);
4170 if (NILP (Fassq (Qinternal_border_width, parms)))
4171 parms = Fcons (Fcons (Qinternal_border_width, make_number (3)), parms);
4172 if (NILP (Fassq (Qborder_width, parms)))
4173 parms = Fcons (Fcons (Qborder_width, make_number (1)), parms);
4174 if (NILP (Fassq (Qborder_color, parms)))
4175 parms = Fcons (Fcons (Qborder_color, build_string ("lightyellow")), parms);
4176 if (NILP (Fassq (Qbackground_color, parms)))
4177 parms = Fcons (Fcons (Qbackground_color, build_string ("lightyellow")),
4178 parms);
4179
4180 /* Create a frame for the tooltip, and record it in the global
4181 variable tip_frame. */
4182 frame = x_create_tip_frame (FRAME_MAC_DISPLAY_INFO (f), parms, string);
4183 f = XFRAME (frame);
4184
4185 /* Set up the frame's root window. */
4186 w = XWINDOW (FRAME_ROOT_WINDOW (f));
4187 w->left_col = w->top_line = make_number (0);
4188
4189 if (CONSP (Vx_max_tooltip_size)
4190 && INTEGERP (XCAR (Vx_max_tooltip_size))
4191 && XINT (XCAR (Vx_max_tooltip_size)) > 0
4192 && INTEGERP (XCDR (Vx_max_tooltip_size))
4193 && XINT (XCDR (Vx_max_tooltip_size)) > 0)
4194 {
4195 w->total_cols = XCAR (Vx_max_tooltip_size);
4196 w->total_lines = XCDR (Vx_max_tooltip_size);
4197 }
4198 else
4199 {
4200 w->total_cols = make_number (80);
4201 w->total_lines = make_number (40);
4202 }
4203
4204 FRAME_TOTAL_COLS (f) = XINT (w->total_cols);
4205 adjust_glyphs (f);
4206 w->pseudo_window_p = 1;
4207
4208 /* Display the tooltip text in a temporary buffer. */
4209 old_buffer = current_buffer;
4210 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f))->buffer));
4211 current_buffer->truncate_lines = Qnil;
4212 clear_glyph_matrix (w->desired_matrix);
4213 clear_glyph_matrix (w->current_matrix);
4214 SET_TEXT_POS (pos, BEGV, BEGV_BYTE);
4215 try_window (FRAME_ROOT_WINDOW (f), pos, 0);
4216
4217 /* Compute width and height of the tooltip. */
4218 width = height = 0;
4219 for (i = 0; i < w->desired_matrix->nrows; ++i)
4220 {
4221 struct glyph_row *row = &w->desired_matrix->rows[i];
4222 struct glyph *last;
4223 int row_width;
4224
4225 /* Stop at the first empty row at the end. */
4226 if (!row->enabled_p || !row->displays_text_p)
4227 break;
4228
4229 /* Let the row go over the full width of the frame. */
4230 row->full_width_p = 1;
4231
4232 /* There's a glyph at the end of rows that is used to place
4233 the cursor there. Don't include the width of this glyph. */
4234 if (row->used[TEXT_AREA])
4235 {
4236 last = &row->glyphs[TEXT_AREA][row->used[TEXT_AREA] - 1];
4237 row_width = row->pixel_width - last->pixel_width;
4238 }
4239 else
4240 row_width = row->pixel_width;
4241
4242 height += row->height;
4243 width = max (width, row_width);
4244 }
4245
4246 /* Add the frame's internal border to the width and height the X
4247 window should have. */
4248 height += 2 * FRAME_INTERNAL_BORDER_WIDTH (f);
4249 width += 2 * FRAME_INTERNAL_BORDER_WIDTH (f);
4250
4251 /* Move the tooltip window where the mouse pointer is. Resize and
4252 show it. */
4253 compute_tip_xy (f, parms, dx, dy, width, height, &root_x, &root_y);
4254
4255 BLOCK_INPUT;
4256 MoveWindow (FRAME_MAC_WINDOW (f), root_x, root_y, false);
4257 SizeWindow (FRAME_MAC_WINDOW (f), width, height, true);
4258 ShowWindow (FRAME_MAC_WINDOW (f));
4259 BringToFront (FRAME_MAC_WINDOW (f));
4260 UNBLOCK_INPUT;
4261
4262 FRAME_PIXEL_WIDTH (f) = width;
4263 FRAME_PIXEL_HEIGHT (f) = height;
4264
4265 /* Draw into the window. */
4266 w->must_be_updated_p = 1;
4267 update_single_window (w, 1);
4268
4269 /* Restore original current buffer. */
4270 set_buffer_internal_1 (old_buffer);
4271 windows_or_buffers_changed = old_windows_or_buffers_changed;
4272
4273 start_timer:
4274 /* Let the tip disappear after timeout seconds. */
4275 tip_timer = call3 (intern ("run-at-time"), timeout, Qnil,
4276 intern ("x-hide-tip"));
4277
4278 UNGCPRO;
4279 return unbind_to (count, Qnil);
4280 }
4281
4282
4283 DEFUN ("x-hide-tip", Fx_hide_tip, Sx_hide_tip, 0, 0, 0,
4284 doc: /* Hide the current tooltip window, if there is any.
4285 Value is t if tooltip was open, nil otherwise. */)
4286 ()
4287 {
4288 int count;
4289 Lisp_Object deleted, frame, timer;
4290 struct gcpro gcpro1, gcpro2;
4291
4292 /* Return quickly if nothing to do. */
4293 if (NILP (tip_timer) && NILP (tip_frame))
4294 return Qnil;
4295
4296 frame = tip_frame;
4297 timer = tip_timer;
4298 GCPRO2 (frame, timer);
4299 tip_frame = tip_timer = deleted = Qnil;
4300
4301 count = SPECPDL_INDEX ();
4302 specbind (Qinhibit_redisplay, Qt);
4303 specbind (Qinhibit_quit, Qt);
4304
4305 if (!NILP (timer))
4306 call1 (Qcancel_timer, timer);
4307
4308 if (FRAMEP (frame))
4309 {
4310 Fdelete_frame (frame, Qnil);
4311 deleted = Qt;
4312 }
4313
4314 UNGCPRO;
4315 return unbind_to (count, deleted);
4316 }
4317
4318
4319 \f
4320 #if TARGET_API_MAC_CARBON
4321 /***********************************************************************
4322 File selection dialog
4323 ***********************************************************************/
4324
4325 static pascal void mac_nav_event_callback P_ ((NavEventCallbackMessage,
4326 NavCBRecPtr, void *));
4327
4328 /**
4329 There is a relatively standard way to do this using applescript to run
4330 a (choose file) method. However, this doesn't do "the right thing"
4331 by working only if the find-file occurred during a menu or toolbar
4332 click. So we must do the file dialog by hand, using the navigation
4333 manager. This also has more flexibility in determining the default
4334 directory and whether or not we are going to choose a file.
4335 **/
4336
4337 extern Lisp_Object Qfile_name_history;
4338
4339 DEFUN ("x-file-dialog", Fx_file_dialog, Sx_file_dialog, 2, 5, 0,
4340 doc: /* Read file name, prompting with PROMPT in directory DIR.
4341 Use a file selection dialog.
4342 Select DEFAULT-FILENAME in the dialog's file selection box, if
4343 specified. Ensure that file exists if MUSTMATCH is non-nil.
4344 If ONLY-DIR-P is non-nil, the user can only select directories. */)
4345 (prompt, dir, default_filename, mustmatch, only_dir_p)
4346 Lisp_Object prompt, dir, default_filename, mustmatch, only_dir_p;
4347 {
4348 Lisp_Object file = Qnil;
4349 int count = SPECPDL_INDEX ();
4350 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6;
4351 char filename[MAXPATHLEN];
4352 static NavEventUPP mac_nav_event_callbackUPP = NULL;
4353
4354 check_mac ();
4355
4356 GCPRO6 (prompt, dir, default_filename, mustmatch, file, only_dir_p);
4357 CHECK_STRING (prompt);
4358 CHECK_STRING (dir);
4359
4360 /* Create the dialog with PROMPT as title, using DIR as initial
4361 directory and using "*" as pattern. */
4362 dir = Fexpand_file_name (dir, Qnil);
4363
4364 {
4365 OSStatus status;
4366 NavDialogCreationOptions options;
4367 NavDialogRef dialogRef;
4368 NavTypeListHandle fileTypes = NULL;
4369 NavUserAction userAction;
4370 CFStringRef message=NULL, saveName = NULL;
4371
4372 BLOCK_INPUT;
4373 /* No need for a callback function because we are modal */
4374 NavGetDefaultDialogCreationOptions(&options);
4375 options.modality = kWindowModalityAppModal;
4376 options.location.h = options.location.v = -1;
4377 options.optionFlags = kNavDefaultNavDlogOptions;
4378 options.optionFlags |= kNavAllFilesInPopup; /* All files allowed */
4379 options.optionFlags |= kNavSelectAllReadableItem;
4380 options.optionFlags &= ~kNavAllowMultipleFiles;
4381 if (!NILP(prompt))
4382 {
4383 message = cfstring_create_with_string (prompt);
4384 options.message = message;
4385 }
4386 /* Don't set the application, let it use default.
4387 options.clientName = CFSTR ("Emacs");
4388 */
4389
4390 if (mac_nav_event_callbackUPP == NULL)
4391 mac_nav_event_callbackUPP = NewNavEventUPP (mac_nav_event_callback);
4392
4393 if (!NILP (only_dir_p))
4394 status = NavCreateChooseFolderDialog(&options, mac_nav_event_callbackUPP,
4395 NULL, NULL, &dialogRef);
4396 else if (NILP (mustmatch))
4397 {
4398 /* This is a save dialog */
4399 options.optionFlags |= kNavDontConfirmReplacement;
4400 options.actionButtonLabel = CFSTR ("Ok");
4401 options.windowTitle = CFSTR ("Enter name");
4402
4403 if (STRINGP (default_filename))
4404 {
4405 Lisp_Object utf8 = ENCODE_UTF_8 (default_filename);
4406 char *begPtr = SDATA(utf8);
4407 char *filePtr = begPtr + SBYTES(utf8);
4408 while (filePtr != begPtr && !IS_DIRECTORY_SEP(filePtr[-1]))
4409 filePtr--;
4410 saveName = cfstring_create_with_utf8_cstring (filePtr);
4411 options.saveFileName = saveName;
4412 options.optionFlags |= kNavSelectDefaultLocation;
4413 }
4414 status = NavCreatePutFileDialog(&options,
4415 'TEXT', kNavGenericSignature,
4416 mac_nav_event_callbackUPP, NULL,
4417 &dialogRef);
4418 }
4419 else
4420 {
4421 /* This is an open dialog*/
4422 status = NavCreateChooseFileDialog(&options, fileTypes,
4423 mac_nav_event_callbackUPP, NULL,
4424 NULL, NULL, &dialogRef);
4425 }
4426
4427 /* Set the default location and continue*/
4428 if (status == noErr)
4429 {
4430 Lisp_Object encoded_dir = ENCODE_FILE (dir);
4431 AEDesc defLocAed;
4432
4433 status = AECreateDesc (TYPE_FILE_NAME, SDATA (encoded_dir),
4434 SBYTES (encoded_dir), &defLocAed);
4435 if (status == noErr)
4436 {
4437 NavCustomControl(dialogRef, kNavCtlSetLocation, (void*) &defLocAed);
4438 AEDisposeDesc(&defLocAed);
4439 }
4440 status = NavDialogRun(dialogRef);
4441 }
4442
4443 if (saveName) CFRelease(saveName);
4444 if (message) CFRelease(message);
4445
4446 if (status == noErr) {
4447 userAction = NavDialogGetUserAction(dialogRef);
4448 switch (userAction)
4449 {
4450 case kNavUserActionNone:
4451 case kNavUserActionCancel:
4452 break; /* Treat cancel like C-g */
4453 case kNavUserActionOpen:
4454 case kNavUserActionChoose:
4455 case kNavUserActionSaveAs:
4456 {
4457 NavReplyRecord reply;
4458 Size len;
4459
4460 status = NavDialogGetReply(dialogRef, &reply);
4461 if (status != noErr)
4462 break;
4463 status = AEGetNthPtr (&reply.selection, 1, TYPE_FILE_NAME,
4464 NULL, NULL, filename,
4465 sizeof (filename) - 1, &len);
4466 if (status == noErr)
4467 {
4468 len = min (len, sizeof (filename) - 1);
4469 filename[len] = '\0';
4470 if (reply.saveFileName)
4471 {
4472 /* If it was a saved file, we need to add the file name */
4473 if (len && len < sizeof (filename) - 1
4474 && filename[len-1] != '/')
4475 filename[len++] = '/';
4476 CFStringGetCString(reply.saveFileName, filename+len,
4477 sizeof (filename) - len,
4478 #if MAC_OSX
4479 kCFStringEncodingUTF8
4480 #else
4481 CFStringGetSystemEncoding ()
4482 #endif
4483 );
4484 }
4485 file = DECODE_FILE (make_unibyte_string (filename,
4486 strlen (filename)));
4487 }
4488 NavDisposeReply(&reply);
4489 }
4490 break;
4491 }
4492 NavDialogDispose(dialogRef);
4493 UNBLOCK_INPUT;
4494 }
4495 else {
4496 UNBLOCK_INPUT;
4497 /* Fall back on minibuffer if there was a problem */
4498 file = Fcompleting_read (prompt, intern ("read-file-name-internal"),
4499 dir, mustmatch, dir, Qfile_name_history,
4500 default_filename, Qnil);
4501 }
4502 }
4503
4504 UNGCPRO;
4505
4506 /* Make "Cancel" equivalent to C-g. */
4507 if (NILP (file))
4508 Fsignal (Qquit, Qnil);
4509
4510 return unbind_to (count, file);
4511 }
4512
4513
4514 /* Need to register some event callback function for enabling drag and
4515 drop in Navigation Service dialogs. */
4516 static pascal void
4517 mac_nav_event_callback (selector, parms, data)
4518 NavEventCallbackMessage selector;
4519 NavCBRecPtr parms;
4520 void *data ;
4521 {
4522 }
4523 #endif
4524 \f
4525 /***********************************************************************
4526 Fonts
4527 ***********************************************************************/
4528
4529 DEFUN ("mac-clear-font-name-table", Fmac_clear_font_name_table,
4530 Smac_clear_font_name_table, 0, 0, 0,
4531 doc: /* Clear the font name table. */)
4532 ()
4533 {
4534 check_mac ();
4535 mac_clear_font_name_table ();
4536 return Qnil;
4537 }
4538
4539 #if USE_MAC_FONT_PANEL
4540 DEFUN ("mac-set-font-panel-visibility", Fmac_set_font_panel_visibility,
4541 Smac_set_font_panel_visibility, 1, 1, 0,
4542 doc: /* Make the font panel visible if and only if VISIBLE is non-nil.
4543 This is for internal use only. Use `mac-font-panel-mode' instead. */)
4544 (visible)
4545 Lisp_Object visible;
4546 {
4547 OSStatus err = noErr;
4548
4549 check_mac ();
4550
4551 BLOCK_INPUT;
4552 if (NILP (visible) != !mac_font_panel_visible_p ())
4553 {
4554 err = mac_show_hide_font_panel ();
4555 if (err == noErr && !NILP (visible))
4556 {
4557 Lisp_Object focus_frame = x_get_focus_frame (SELECTED_FRAME ());
4558 struct frame *f = (NILP (focus_frame) ? SELECTED_FRAME ()
4559 : XFRAME (focus_frame));
4560
4561 mac_set_font_info_for_selection (f, DEFAULT_FACE_ID, 0);
4562 }
4563 }
4564 UNBLOCK_INPUT;
4565
4566 if (err != noErr)
4567 error ("Cannot change visibility of the font panel");
4568 return Qnil;
4569 }
4570 #endif
4571 \f
4572 /***********************************************************************
4573 Initialization
4574 ***********************************************************************/
4575
4576 /* Keep this list in the same order as frame_parms in frame.c.
4577 Use 0 for unsupported frame parameters. */
4578
4579 frame_parm_handler mac_frame_parm_handlers[] =
4580 {
4581 x_set_autoraise,
4582 x_set_autolower,
4583 x_set_background_color,
4584 x_set_border_color,
4585 x_set_border_width,
4586 x_set_cursor_color,
4587 x_set_cursor_type,
4588 mac_set_font,
4589 x_set_foreground_color,
4590 x_set_icon_name,
4591 0, /* MAC_TODO: x_set_icon_type, */
4592 x_set_internal_border_width,
4593 x_set_menu_bar_lines,
4594 x_set_mouse_color,
4595 x_explicitly_set_name,
4596 mac_set_scroll_bar_width,
4597 x_set_title,
4598 x_set_unsplittable,
4599 x_set_vertical_scroll_bars,
4600 x_set_visibility,
4601 x_set_tool_bar_lines,
4602 0, /* MAC_TODO: x_set_scroll_bar_foreground, */
4603 0, /* MAC_TODO: x_set_scroll_bar_background, */
4604 x_set_screen_gamma,
4605 x_set_line_spacing,
4606 x_set_fringe_width,
4607 x_set_fringe_width,
4608 0, /* x_set_wait_for_wm, */
4609 x_set_fullscreen,
4610 };
4611
4612 void
4613 syms_of_macfns ()
4614 {
4615 #ifdef MAC_OSX
4616 /* This is zero if not using Mac native windows. */
4617 mac_in_use = 0;
4618 #else
4619 /* Certainly running on Mac native windows. */
4620 mac_in_use = 1;
4621 #endif
4622
4623 /* The section below is built by the lisp expression at the top of the file,
4624 just above where these variables are declared. */
4625 /*&&& init symbols here &&&*/
4626 Qnone = intern ("none");
4627 staticpro (&Qnone);
4628 Qsuppress_icon = intern ("suppress-icon");
4629 staticpro (&Qsuppress_icon);
4630 Qundefined_color = intern ("undefined-color");
4631 staticpro (&Qundefined_color);
4632 Qcancel_timer = intern ("cancel-timer");
4633 staticpro (&Qcancel_timer);
4634 /* This is the end of symbol initialization. */
4635
4636 /* Text property `display' should be nonsticky by default. */
4637 Vtext_property_default_nonsticky
4638 = Fcons (Fcons (Qdisplay, Qt), Vtext_property_default_nonsticky);
4639
4640
4641 Fput (Qundefined_color, Qerror_conditions,
4642 Fcons (Qundefined_color, Fcons (Qerror, Qnil)));
4643 Fput (Qundefined_color, Qerror_message,
4644 build_string ("Undefined color"));
4645
4646 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape,
4647 doc: /* The shape of the pointer when over text.
4648 Changing the value does not affect existing frames
4649 unless you set the mouse color. */);
4650 Vx_pointer_shape = Qnil;
4651
4652 #if 0 /* This doesn't really do anything. */
4653 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape,
4654 doc: /* The shape of the pointer when not over text.
4655 This variable takes effect when you create a new frame
4656 or when you set the mouse color. */);
4657 #endif
4658 Vx_nontext_pointer_shape = Qnil;
4659
4660 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape,
4661 doc: /* The shape of the pointer when Emacs is busy.
4662 This variable takes effect when you create a new frame
4663 or when you set the mouse color. */);
4664 Vx_hourglass_pointer_shape = Qnil;
4665
4666 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p,
4667 doc: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
4668 display_hourglass_p = 1;
4669
4670 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay,
4671 doc: /* *Seconds to wait before displaying an hourglass pointer.
4672 Value must be an integer or float. */);
4673 Vhourglass_delay = make_number (DEFAULT_HOURGLASS_DELAY);
4674
4675 #if 0 /* This doesn't really do anything. */
4676 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape,
4677 doc: /* The shape of the pointer when over the mode line.
4678 This variable takes effect when you create a new frame
4679 or when you set the mouse color. */);
4680 #endif
4681 Vx_mode_pointer_shape = Qnil;
4682
4683 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
4684 &Vx_sensitive_text_pointer_shape,
4685 doc: /* The shape of the pointer when over mouse-sensitive text.
4686 This variable takes effect when you create a new frame
4687 or when you set the mouse color. */);
4688 Vx_sensitive_text_pointer_shape = Qnil;
4689
4690 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
4691 &Vx_window_horizontal_drag_shape,
4692 doc: /* Pointer shape to use for indicating a window can be dragged horizontally.
4693 This variable takes effect when you create a new frame
4694 or when you set the mouse color. */);
4695 Vx_window_horizontal_drag_shape = Qnil;
4696
4697 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel,
4698 doc: /* A string indicating the foreground color of the cursor box. */);
4699 Vx_cursor_fore_pixel = Qnil;
4700
4701 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size,
4702 doc: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
4703 Text larger than this is clipped. */);
4704 Vx_max_tooltip_size = Fcons (make_number (80), make_number (40));
4705
4706 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager,
4707 doc: /* Non-nil if no window manager is in use.
4708 Emacs doesn't try to figure this out; this is always nil
4709 unless you set it to something else. */);
4710 /* We don't have any way to find this out, so set it to nil
4711 and maybe the user would like to set it to t. */
4712 Vx_no_window_manager = Qnil;
4713
4714 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
4715 &Vx_pixel_size_width_font_regexp,
4716 doc: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
4717
4718 Since Emacs gets width of a font matching with this regexp from
4719 PIXEL_SIZE field of the name, font finding mechanism gets faster for
4720 such a font. This is especially effective for such large fonts as
4721 Chinese, Japanese, and Korean. */);
4722 Vx_pixel_size_width_font_regexp = Qnil;
4723
4724 /* X window properties. */
4725 defsubr (&Sx_change_window_property);
4726 defsubr (&Sx_delete_window_property);
4727 defsubr (&Sx_window_property);
4728
4729 defsubr (&Sxw_display_color_p);
4730 defsubr (&Sx_display_grayscale_p);
4731 defsubr (&Sxw_color_defined_p);
4732 defsubr (&Sxw_color_values);
4733 defsubr (&Sx_server_max_request_size);
4734 defsubr (&Sx_server_vendor);
4735 defsubr (&Sx_server_version);
4736 defsubr (&Sx_display_pixel_width);
4737 defsubr (&Sx_display_pixel_height);
4738 defsubr (&Sx_display_mm_width);
4739 defsubr (&Sx_display_mm_height);
4740 defsubr (&Sx_display_screens);
4741 defsubr (&Sx_display_planes);
4742 defsubr (&Sx_display_color_cells);
4743 defsubr (&Sx_display_visual_class);
4744 defsubr (&Sx_display_backing_store);
4745 defsubr (&Sx_display_save_under);
4746 defsubr (&Sx_create_frame);
4747 defsubr (&Sx_open_connection);
4748 defsubr (&Sx_close_connection);
4749 defsubr (&Sx_display_list);
4750 defsubr (&Sx_synchronize);
4751 defsubr (&Sx_focus_frame);
4752
4753 /* Setting callback functions for fontset handler. */
4754 get_font_info_func = x_get_font_info;
4755
4756 #if 0 /* This function pointer doesn't seem to be used anywhere.
4757 And the pointer assigned has the wrong type, anyway. */
4758 list_fonts_func = x_list_fonts;
4759 #endif
4760
4761 load_font_func = x_load_font;
4762 find_ccl_program_func = x_find_ccl_program;
4763 query_font_func = x_query_font;
4764 set_frame_fontset_func = mac_set_font;
4765 check_window_system_func = check_mac;
4766
4767 hourglass_atimer = NULL;
4768 hourglass_shown_p = 0;
4769
4770 defsubr (&Sx_show_tip);
4771 defsubr (&Sx_hide_tip);
4772 tip_timer = Qnil;
4773 staticpro (&tip_timer);
4774 tip_frame = Qnil;
4775 staticpro (&tip_frame);
4776
4777 last_show_tip_args = Qnil;
4778 staticpro (&last_show_tip_args);
4779
4780 #if TARGET_API_MAC_CARBON
4781 defsubr (&Sx_file_dialog);
4782 #endif
4783 defsubr (&Smac_clear_font_name_table);
4784 #if USE_MAC_FONT_PANEL
4785 defsubr (&Smac_set_font_panel_visibility);
4786 #endif
4787 }
4788
4789 /* arch-tag: d7591289-f374-4377-b245-12f5dbbb8edc
4790 (do not change this comment) */