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