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