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