diff options
Diffstat (limited to 'src/macfns.c')
-rw-r--r-- | src/macfns.c | 4429 |
1 files changed, 0 insertions, 4429 deletions
diff --git a/src/macfns.c b/src/macfns.c deleted file mode 100644 index cb1e74c15f8..00000000000 --- a/src/macfns.c +++ /dev/null @@ -1,4429 +0,0 @@ -/* Graphical user interface functions for Mac OS. - Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, - 2008 Free Software Foundation, Inc. - -This file is part of GNU Emacs. - -GNU Emacs is free software: you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation, either version 3 of the License, or -(at your option) any later version. - -GNU Emacs is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ - -/* Contributed by Andrew Choi (akochoi@mac.com). */ - -#include <config.h> -#include <stdio.h> -#include <math.h> - -#include "lisp.h" -#include "macterm.h" -#include "frame.h" -#include "window.h" -#include "buffer.h" -#include "intervals.h" -#include "dispextern.h" -#include "keyboard.h" -#include "blockinput.h" -#include <epaths.h> -#include "charset.h" -#include "coding.h" -#include "fontset.h" -#include "systime.h" -#include "termhooks.h" -#include "atimer.h" - -#include <ctype.h> -#include <sys/types.h> -#include <sys/stat.h> -#include <limits.h> -#include <errno.h> -#include <sys/param.h> - -extern void free_frame_menubar (); - -#if TARGET_API_MAC_CARBON - -/* Carbon version info */ - -static Lisp_Object Vmac_carbon_version_string; - -#endif /* TARGET_API_MAC_CARBON */ - -/* The background and shape of the mouse pointer, and shape when not - over text or in the modeline. */ - -Lisp_Object Vx_pointer_shape, Vx_nontext_pointer_shape, Vx_mode_pointer_shape; -Lisp_Object Vx_hourglass_pointer_shape; - -/* The shape when over mouse-sensitive text. */ - -Lisp_Object Vx_sensitive_text_pointer_shape; - -/* If non-nil, the pointer shape to indicate that windows can be - dragged horizontally. */ - -Lisp_Object Vx_window_horizontal_drag_shape; - -/* Color of chars displayed in cursor box. */ - -Lisp_Object Vx_cursor_fore_pixel; - -/* Nonzero if using Windows. */ - -static int mac_in_use; - -/* Non nil if no window manager is in use. */ - -Lisp_Object Vx_no_window_manager; - -/* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */ - -Lisp_Object Vx_pixel_size_width_font_regexp; - -Lisp_Object Qnone; -Lisp_Object Qsuppress_icon; -Lisp_Object Qundefined_color; -Lisp_Object Qcancel_timer; - -/* In dispnew.c */ - -extern Lisp_Object Vwindow_system_version; - -#if GLYPH_DEBUG -int image_cache_refcount, dpyinfo_refcount; -#endif - -#if 0 /* Use xstrcasecmp instead. */ -/* compare two strings ignoring case */ - -static int -stricmp (const char *s, const char *t) -{ - for ( ; tolower (*s) == tolower (*t); s++, t++) - if (*s == '\0') - return 0; - return tolower (*s) - tolower (*t); -} -#endif - -/* compare two strings up to n characters, ignoring case */ - -static int -strnicmp (const char *s, const char *t, unsigned int n) -{ - for ( ; n > 0 && tolower (*s) == tolower (*t); n--, s++, t++) - if (*s == '\0') - return 0; - return n == 0 ? 0 : tolower (*s) - tolower (*t); -} - - -/* Error if we are not running on Mac OS. */ - -void -check_mac () -{ - if (! mac_in_use) - error ("Mac native windows not in use or not initialized"); -} - -/* Nonzero if we can use mouse menus. - You should not call this unless HAVE_MENUS is defined. */ - -int -have_menus_p () -{ - return mac_in_use; -} - -/* Extract a frame as a FRAME_PTR, defaulting to the selected frame - and checking validity for Mac. */ - -FRAME_PTR -check_x_frame (frame) - Lisp_Object frame; -{ - FRAME_PTR f; - - if (NILP (frame)) - frame = selected_frame; - CHECK_LIVE_FRAME (frame); - f = XFRAME (frame); - if (! FRAME_MAC_P (f)) - error ("Non-Mac frame used"); - return f; -} - -/* Let the user specify a display with a frame. - nil stands for the selected frame--or, if that is not a mac frame, - the first display on the list. */ - -struct mac_display_info * -check_x_display_info (frame) - Lisp_Object frame; -{ - struct mac_display_info *dpyinfo = NULL; - - if (NILP (frame)) - { - struct frame *sf = XFRAME (selected_frame); - - if (FRAME_MAC_P (sf) && FRAME_LIVE_P (sf)) - dpyinfo = FRAME_MAC_DISPLAY_INFO (sf); - else if (x_display_list != 0) - dpyinfo = x_display_list; - else - error ("Mac native windows are not in use or not initialized"); - } - else if (STRINGP (frame)) - dpyinfo = x_display_info_for_name (frame); - else - { - FRAME_PTR f = check_x_frame (frame); - dpyinfo = FRAME_MAC_DISPLAY_INFO (f); - } - - return dpyinfo; -} - - - -static Lisp_Object unwind_create_frame P_ ((Lisp_Object)); -static Lisp_Object unwind_create_tip_frame P_ ((Lisp_Object)); - -void x_set_foreground_color P_ ((struct frame *, Lisp_Object, Lisp_Object)); -void x_set_background_color P_ ((struct frame *, Lisp_Object, Lisp_Object)); -void x_set_mouse_color P_ ((struct frame *, Lisp_Object, Lisp_Object)); -void x_set_cursor_color P_ ((struct frame *, Lisp_Object, Lisp_Object)); -void x_set_border_color P_ ((struct frame *, Lisp_Object, Lisp_Object)); -void x_set_cursor_type P_ ((struct frame *, Lisp_Object, Lisp_Object)); -void x_set_icon_type P_ ((struct frame *, Lisp_Object, Lisp_Object)); -void x_set_icon_name P_ ((struct frame *, Lisp_Object, Lisp_Object)); -void x_explicitly_set_name P_ ((struct frame *, Lisp_Object, Lisp_Object)); -void x_set_menu_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object)); -void x_set_title P_ ((struct frame *, Lisp_Object, Lisp_Object)); -void x_set_tool_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object)); - - -/* Store the screen positions of frame F into XPTR and YPTR. - These are the positions of the containing window manager window, - not Emacs's own window. */ - -void -x_real_positions (f, xptr, yptr) - FRAME_PTR f; - int *xptr, *yptr; -{ - Rect inner, outer; - - mac_get_window_bounds (f, &inner, &outer); - - f->x_pixels_diff = inner.left - outer.left; - f->y_pixels_diff = inner.top - outer.top; - - *xptr = outer.left; - *yptr = outer.top; -} - - -/* The default colors for the Mac color map */ -typedef struct colormap_t -{ - unsigned long color; - char *name; -} colormap_t; - -static const colormap_t mac_color_map[] = -{ - { RGB_TO_ULONG(255, 250, 250), "snow" }, - { RGB_TO_ULONG(248, 248, 255), "ghost white" }, - { RGB_TO_ULONG(248, 248, 255), "GhostWhite" }, - { RGB_TO_ULONG(245, 245, 245), "white smoke" }, - { RGB_TO_ULONG(245, 245, 245), "WhiteSmoke" }, - { RGB_TO_ULONG(220, 220, 220), "gainsboro" }, - { RGB_TO_ULONG(255, 250, 240), "floral white" }, - { RGB_TO_ULONG(255, 250, 240), "FloralWhite" }, - { RGB_TO_ULONG(253, 245, 230), "old lace" }, - { RGB_TO_ULONG(253, 245, 230), "OldLace" }, - { RGB_TO_ULONG(250, 240, 230), "linen" }, - { RGB_TO_ULONG(250, 235, 215), "antique white" }, - { RGB_TO_ULONG(250, 235, 215), "AntiqueWhite" }, - { RGB_TO_ULONG(255, 239, 213), "papaya whip" }, - { RGB_TO_ULONG(255, 239, 213), "PapayaWhip" }, - { RGB_TO_ULONG(255, 235, 205), "blanched almond" }, - { RGB_TO_ULONG(255, 235, 205), "BlanchedAlmond" }, - { RGB_TO_ULONG(255, 228, 196), "bisque" }, - { RGB_TO_ULONG(255, 218, 185), "peach puff" }, - { RGB_TO_ULONG(255, 218, 185), "PeachPuff" }, - { RGB_TO_ULONG(255, 222, 173), "navajo white" }, - { RGB_TO_ULONG(255, 222, 173), "NavajoWhite" }, - { RGB_TO_ULONG(255, 228, 181), "moccasin" }, - { RGB_TO_ULONG(255, 248, 220), "cornsilk" }, - { RGB_TO_ULONG(255, 255, 240), "ivory" }, - { RGB_TO_ULONG(255, 250, 205), "lemon chiffon" }, - { RGB_TO_ULONG(255, 250, 205), "LemonChiffon" }, - { RGB_TO_ULONG(255, 245, 238), "seashell" }, - { RGB_TO_ULONG(240, 255, 240), "honeydew" }, - { RGB_TO_ULONG(245, 255, 250), "mint cream" }, - { RGB_TO_ULONG(245, 255, 250), "MintCream" }, - { RGB_TO_ULONG(240, 255, 255), "azure" }, - { RGB_TO_ULONG(240, 248, 255), "alice blue" }, - { RGB_TO_ULONG(240, 248, 255), "AliceBlue" }, - { RGB_TO_ULONG(230, 230, 250), "lavender" }, - { RGB_TO_ULONG(255, 240, 245), "lavender blush" }, - { RGB_TO_ULONG(255, 240, 245), "LavenderBlush" }, - { RGB_TO_ULONG(255, 228, 225), "misty rose" }, - { RGB_TO_ULONG(255, 228, 225), "MistyRose" }, - { RGB_TO_ULONG(255, 255, 255), "white" }, - { RGB_TO_ULONG(0 , 0 , 0 ), "black" }, - { RGB_TO_ULONG(47 , 79 , 79 ), "dark slate gray" }, - { RGB_TO_ULONG(47 , 79 , 79 ), "DarkSlateGray" }, - { RGB_TO_ULONG(47 , 79 , 79 ), "dark slate grey" }, - { RGB_TO_ULONG(47 , 79 , 79 ), "DarkSlateGrey" }, - { RGB_TO_ULONG(105, 105, 105), "dim gray" }, - { RGB_TO_ULONG(105, 105, 105), "DimGray" }, - { RGB_TO_ULONG(105, 105, 105), "dim grey" }, - { RGB_TO_ULONG(105, 105, 105), "DimGrey" }, - { RGB_TO_ULONG(112, 128, 144), "slate gray" }, - { RGB_TO_ULONG(112, 128, 144), "SlateGray" }, - { RGB_TO_ULONG(112, 128, 144), "slate grey" }, - { RGB_TO_ULONG(112, 128, 144), "SlateGrey" }, - { RGB_TO_ULONG(119, 136, 153), "light slate gray" }, - { RGB_TO_ULONG(119, 136, 153), "LightSlateGray" }, - { RGB_TO_ULONG(119, 136, 153), "light slate grey" }, - { RGB_TO_ULONG(119, 136, 153), "LightSlateGrey" }, - { RGB_TO_ULONG(190, 190, 190), "gray" }, - { RGB_TO_ULONG(190, 190, 190), "grey" }, - { RGB_TO_ULONG(211, 211, 211), "light grey" }, - { RGB_TO_ULONG(211, 211, 211), "LightGrey" }, - { RGB_TO_ULONG(211, 211, 211), "light gray" }, - { RGB_TO_ULONG(211, 211, 211), "LightGray" }, - { RGB_TO_ULONG(25 , 25 , 112), "midnight blue" }, - { RGB_TO_ULONG(25 , 25 , 112), "MidnightBlue" }, - { RGB_TO_ULONG(0 , 0 , 128), "navy" }, - { RGB_TO_ULONG(0 , 0 , 128), "navy blue" }, - { RGB_TO_ULONG(0 , 0 , 128), "NavyBlue" }, - { RGB_TO_ULONG(100, 149, 237), "cornflower blue" }, - { RGB_TO_ULONG(100, 149, 237), "CornflowerBlue" }, - { RGB_TO_ULONG(72 , 61 , 139), "dark slate blue" }, - { RGB_TO_ULONG(72 , 61 , 139), "DarkSlateBlue" }, - { RGB_TO_ULONG(106, 90 , 205), "slate blue" }, - { RGB_TO_ULONG(106, 90 , 205), "SlateBlue" }, - { RGB_TO_ULONG(123, 104, 238), "medium slate blue" }, - { RGB_TO_ULONG(123, 104, 238), "MediumSlateBlue" }, - { RGB_TO_ULONG(132, 112, 255), "light slate blue" }, - { RGB_TO_ULONG(132, 112, 255), "LightSlateBlue" }, - { RGB_TO_ULONG(0 , 0 , 205), "medium blue" }, - { RGB_TO_ULONG(0 , 0 , 205), "MediumBlue" }, - { RGB_TO_ULONG(65 , 105, 225), "royal blue" }, - { RGB_TO_ULONG(65 , 105, 225), "RoyalBlue" }, - { RGB_TO_ULONG(0 , 0 , 255), "blue" }, - { RGB_TO_ULONG(30 , 144, 255), "dodger blue" }, - { RGB_TO_ULONG(30 , 144, 255), "DodgerBlue" }, - { RGB_TO_ULONG(0 , 191, 255), "deep sky blue" }, - { RGB_TO_ULONG(0 , 191, 255), "DeepSkyBlue" }, - { RGB_TO_ULONG(135, 206, 235), "sky blue" }, - { RGB_TO_ULONG(135, 206, 235), "SkyBlue" }, - { RGB_TO_ULONG(135, 206, 250), "light sky blue" }, - { RGB_TO_ULONG(135, 206, 250), "LightSkyBlue" }, - { RGB_TO_ULONG(70 , 130, 180), "steel blue" }, - { RGB_TO_ULONG(70 , 130, 180), "SteelBlue" }, - { RGB_TO_ULONG(176, 196, 222), "light steel blue" }, - { RGB_TO_ULONG(176, 196, 222), "LightSteelBlue" }, - { RGB_TO_ULONG(173, 216, 230), "light blue" }, - { RGB_TO_ULONG(173, 216, 230), "LightBlue" }, - { RGB_TO_ULONG(176, 224, 230), "powder blue" }, - { RGB_TO_ULONG(176, 224, 230), "PowderBlue" }, - { RGB_TO_ULONG(175, 238, 238), "pale turquoise" }, - { RGB_TO_ULONG(175, 238, 238), "PaleTurquoise" }, - { RGB_TO_ULONG(0 , 206, 209), "dark turquoise" }, - { RGB_TO_ULONG(0 , 206, 209), "DarkTurquoise" }, - { RGB_TO_ULONG(72 , 209, 204), "medium turquoise" }, - { RGB_TO_ULONG(72 , 209, 204), "MediumTurquoise" }, - { RGB_TO_ULONG(64 , 224, 208), "turquoise" }, - { RGB_TO_ULONG(0 , 255, 255), "cyan" }, - { RGB_TO_ULONG(224, 255, 255), "light cyan" }, - { RGB_TO_ULONG(224, 255, 255), "LightCyan" }, - { RGB_TO_ULONG(95 , 158, 160), "cadet blue" }, - { RGB_TO_ULONG(95 , 158, 160), "CadetBlue" }, - { RGB_TO_ULONG(102, 205, 170), "medium aquamarine" }, - { RGB_TO_ULONG(102, 205, 170), "MediumAquamarine" }, - { RGB_TO_ULONG(127, 255, 212), "aquamarine" }, - { RGB_TO_ULONG(0 , 100, 0 ), "dark green" }, - { RGB_TO_ULONG(0 , 100, 0 ), "DarkGreen" }, - { RGB_TO_ULONG(85 , 107, 47 ), "dark olive green" }, - { RGB_TO_ULONG(85 , 107, 47 ), "DarkOliveGreen" }, - { RGB_TO_ULONG(143, 188, 143), "dark sea green" }, - { RGB_TO_ULONG(143, 188, 143), "DarkSeaGreen" }, - { RGB_TO_ULONG(46 , 139, 87 ), "sea green" }, - { RGB_TO_ULONG(46 , 139, 87 ), "SeaGreen" }, - { RGB_TO_ULONG(60 , 179, 113), "medium sea green" }, - { RGB_TO_ULONG(60 , 179, 113), "MediumSeaGreen" }, - { RGB_TO_ULONG(32 , 178, 170), "light sea green" }, - { RGB_TO_ULONG(32 , 178, 170), "LightSeaGreen" }, - { RGB_TO_ULONG(152, 251, 152), "pale green" }, - { RGB_TO_ULONG(152, 251, 152), "PaleGreen" }, - { RGB_TO_ULONG(0 , 255, 127), "spring green" }, - { RGB_TO_ULONG(0 , 255, 127), "SpringGreen" }, - { RGB_TO_ULONG(124, 252, 0 ), "lawn green" }, - { RGB_TO_ULONG(124, 252, 0 ), "LawnGreen" }, - { RGB_TO_ULONG(0 , 255, 0 ), "green" }, - { RGB_TO_ULONG(127, 255, 0 ), "chartreuse" }, - { RGB_TO_ULONG(0 , 250, 154), "medium spring green" }, - { RGB_TO_ULONG(0 , 250, 154), "MediumSpringGreen" }, - { RGB_TO_ULONG(173, 255, 47 ), "green yellow" }, - { RGB_TO_ULONG(173, 255, 47 ), "GreenYellow" }, - { RGB_TO_ULONG(50 , 205, 50 ), "lime green" }, - { RGB_TO_ULONG(50 , 205, 50 ), "LimeGreen" }, - { RGB_TO_ULONG(154, 205, 50 ), "yellow green" }, - { RGB_TO_ULONG(154, 205, 50 ), "YellowGreen" }, - { RGB_TO_ULONG(34 , 139, 34 ), "forest green" }, - { RGB_TO_ULONG(34 , 139, 34 ), "ForestGreen" }, - { RGB_TO_ULONG(107, 142, 35 ), "olive drab" }, - { RGB_TO_ULONG(107, 142, 35 ), "OliveDrab" }, - { RGB_TO_ULONG(189, 183, 107), "dark khaki" }, - { RGB_TO_ULONG(189, 183, 107), "DarkKhaki" }, - { RGB_TO_ULONG(240, 230, 140), "khaki" }, - { RGB_TO_ULONG(238, 232, 170), "pale goldenrod" }, - { RGB_TO_ULONG(238, 232, 170), "PaleGoldenrod" }, - { RGB_TO_ULONG(250, 250, 210), "light goldenrod yellow" }, - { RGB_TO_ULONG(250, 250, 210), "LightGoldenrodYellow" }, - { RGB_TO_ULONG(255, 255, 224), "light yellow" }, - { RGB_TO_ULONG(255, 255, 224), "LightYellow" }, - { RGB_TO_ULONG(255, 255, 0 ), "yellow" }, - { RGB_TO_ULONG(255, 215, 0 ), "gold" }, - { RGB_TO_ULONG(238, 221, 130), "light goldenrod" }, - { RGB_TO_ULONG(238, 221, 130), "LightGoldenrod" }, - { RGB_TO_ULONG(218, 165, 32 ), "goldenrod" }, - { RGB_TO_ULONG(184, 134, 11 ), "dark goldenrod" }, - { RGB_TO_ULONG(184, 134, 11 ), "DarkGoldenrod" }, - { RGB_TO_ULONG(188, 143, 143), "rosy brown" }, - { RGB_TO_ULONG(188, 143, 143), "RosyBrown" }, - { RGB_TO_ULONG(205, 92 , 92 ), "indian red" }, - { RGB_TO_ULONG(205, 92 , 92 ), "IndianRed" }, - { RGB_TO_ULONG(139, 69 , 19 ), "saddle brown" }, - { RGB_TO_ULONG(139, 69 , 19 ), "SaddleBrown" }, - { RGB_TO_ULONG(160, 82 , 45 ), "sienna" }, - { RGB_TO_ULONG(205, 133, 63 ), "peru" }, - { RGB_TO_ULONG(222, 184, 135), "burlywood" }, - { RGB_TO_ULONG(245, 245, 220), "beige" }, - { RGB_TO_ULONG(245, 222, 179), "wheat" }, - { RGB_TO_ULONG(244, 164, 96 ), "sandy brown" }, - { RGB_TO_ULONG(244, 164, 96 ), "SandyBrown" }, - { RGB_TO_ULONG(210, 180, 140), "tan" }, - { RGB_TO_ULONG(210, 105, 30 ), "chocolate" }, - { RGB_TO_ULONG(178, 34 , 34 ), "firebrick" }, - { RGB_TO_ULONG(165, 42 , 42 ), "brown" }, - { RGB_TO_ULONG(233, 150, 122), "dark salmon" }, - { RGB_TO_ULONG(233, 150, 122), "DarkSalmon" }, - { RGB_TO_ULONG(250, 128, 114), "salmon" }, - { RGB_TO_ULONG(255, 160, 122), "light salmon" }, - { RGB_TO_ULONG(255, 160, 122), "LightSalmon" }, - { RGB_TO_ULONG(255, 165, 0 ), "orange" }, - { RGB_TO_ULONG(255, 140, 0 ), "dark orange" }, - { RGB_TO_ULONG(255, 140, 0 ), "DarkOrange" }, - { RGB_TO_ULONG(255, 127, 80 ), "coral" }, - { RGB_TO_ULONG(240, 128, 128), "light coral" }, - { RGB_TO_ULONG(240, 128, 128), "LightCoral" }, - { RGB_TO_ULONG(255, 99 , 71 ), "tomato" }, - { RGB_TO_ULONG(255, 69 , 0 ), "orange red" }, - { RGB_TO_ULONG(255, 69 , 0 ), "OrangeRed" }, - { RGB_TO_ULONG(255, 0 , 0 ), "red" }, - { RGB_TO_ULONG(255, 105, 180), "hot pink" }, - { RGB_TO_ULONG(255, 105, 180), "HotPink" }, - { RGB_TO_ULONG(255, 20 , 147), "deep pink" }, - { RGB_TO_ULONG(255, 20 , 147), "DeepPink" }, - { RGB_TO_ULONG(255, 192, 203), "pink" }, - { RGB_TO_ULONG(255, 182, 193), "light pink" }, - { RGB_TO_ULONG(255, 182, 193), "LightPink" }, - { RGB_TO_ULONG(219, 112, 147), "pale violet red" }, - { RGB_TO_ULONG(219, 112, 147), "PaleVioletRed" }, - { RGB_TO_ULONG(176, 48 , 96 ), "maroon" }, - { RGB_TO_ULONG(199, 21 , 133), "medium violet red" }, - { RGB_TO_ULONG(199, 21 , 133), "MediumVioletRed" }, - { RGB_TO_ULONG(208, 32 , 144), "violet red" }, - { RGB_TO_ULONG(208, 32 , 144), "VioletRed" }, - { RGB_TO_ULONG(255, 0 , 255), "magenta" }, - { RGB_TO_ULONG(238, 130, 238), "violet" }, - { RGB_TO_ULONG(221, 160, 221), "plum" }, - { RGB_TO_ULONG(218, 112, 214), "orchid" }, - { RGB_TO_ULONG(186, 85 , 211), "medium orchid" }, - { RGB_TO_ULONG(186, 85 , 211), "MediumOrchid" }, - { RGB_TO_ULONG(153, 50 , 204), "dark orchid" }, - { RGB_TO_ULONG(153, 50 , 204), "DarkOrchid" }, - { RGB_TO_ULONG(148, 0 , 211), "dark violet" }, - { RGB_TO_ULONG(148, 0 , 211), "DarkViolet" }, - { RGB_TO_ULONG(138, 43 , 226), "blue violet" }, - { RGB_TO_ULONG(138, 43 , 226), "BlueViolet" }, - { RGB_TO_ULONG(160, 32 , 240), "purple" }, - { RGB_TO_ULONG(147, 112, 219), "medium purple" }, - { RGB_TO_ULONG(147, 112, 219), "MediumPurple" }, - { RGB_TO_ULONG(216, 191, 216), "thistle" }, - { RGB_TO_ULONG(255, 250, 250), "snow1" }, - { RGB_TO_ULONG(238, 233, 233), "snow2" }, - { RGB_TO_ULONG(205, 201, 201), "snow3" }, - { RGB_TO_ULONG(139, 137, 137), "snow4" }, - { RGB_TO_ULONG(255, 245, 238), "seashell1" }, - { RGB_TO_ULONG(238, 229, 222), "seashell2" }, - { RGB_TO_ULONG(205, 197, 191), "seashell3" }, - { RGB_TO_ULONG(139, 134, 130), "seashell4" }, - { RGB_TO_ULONG(255, 239, 219), "AntiqueWhite1" }, - { RGB_TO_ULONG(238, 223, 204), "AntiqueWhite2" }, - { RGB_TO_ULONG(205, 192, 176), "AntiqueWhite3" }, - { RGB_TO_ULONG(139, 131, 120), "AntiqueWhite4" }, - { RGB_TO_ULONG(255, 228, 196), "bisque1" }, - { RGB_TO_ULONG(238, 213, 183), "bisque2" }, - { RGB_TO_ULONG(205, 183, 158), "bisque3" }, - { RGB_TO_ULONG(139, 125, 107), "bisque4" }, - { RGB_TO_ULONG(255, 218, 185), "PeachPuff1" }, - { RGB_TO_ULONG(238, 203, 173), "PeachPuff2" }, - { RGB_TO_ULONG(205, 175, 149), "PeachPuff3" }, - { RGB_TO_ULONG(139, 119, 101), "PeachPuff4" }, - { RGB_TO_ULONG(255, 222, 173), "NavajoWhite1" }, - { RGB_TO_ULONG(238, 207, 161), "NavajoWhite2" }, - { RGB_TO_ULONG(205, 179, 139), "NavajoWhite3" }, - { RGB_TO_ULONG(139, 121, 94), "NavajoWhite4" }, - { RGB_TO_ULONG(255, 250, 205), "LemonChiffon1" }, - { RGB_TO_ULONG(238, 233, 191), "LemonChiffon2" }, - { RGB_TO_ULONG(205, 201, 165), "LemonChiffon3" }, - { RGB_TO_ULONG(139, 137, 112), "LemonChiffon4" }, - { RGB_TO_ULONG(255, 248, 220), "cornsilk1" }, - { RGB_TO_ULONG(238, 232, 205), "cornsilk2" }, - { RGB_TO_ULONG(205, 200, 177), "cornsilk3" }, - { RGB_TO_ULONG(139, 136, 120), "cornsilk4" }, - { RGB_TO_ULONG(255, 255, 240), "ivory1" }, - { RGB_TO_ULONG(238, 238, 224), "ivory2" }, - { RGB_TO_ULONG(205, 205, 193), "ivory3" }, - { RGB_TO_ULONG(139, 139, 131), "ivory4" }, - { RGB_TO_ULONG(240, 255, 240), "honeydew1" }, - { RGB_TO_ULONG(224, 238, 224), "honeydew2" }, - { RGB_TO_ULONG(193, 205, 193), "honeydew3" }, - { RGB_TO_ULONG(131, 139, 131), "honeydew4" }, - { RGB_TO_ULONG(255, 240, 245), "LavenderBlush1" }, - { RGB_TO_ULONG(238, 224, 229), "LavenderBlush2" }, - { RGB_TO_ULONG(205, 193, 197), "LavenderBlush3" }, - { RGB_TO_ULONG(139, 131, 134), "LavenderBlush4" }, - { RGB_TO_ULONG(255, 228, 225), "MistyRose1" }, - { RGB_TO_ULONG(238, 213, 210), "MistyRose2" }, - { RGB_TO_ULONG(205, 183, 181), "MistyRose3" }, - { RGB_TO_ULONG(139, 125, 123), "MistyRose4" }, - { RGB_TO_ULONG(240, 255, 255), "azure1" }, - { RGB_TO_ULONG(224, 238, 238), "azure2" }, - { RGB_TO_ULONG(193, 205, 205), "azure3" }, - { RGB_TO_ULONG(131, 139, 139), "azure4" }, - { RGB_TO_ULONG(131, 111, 255), "SlateBlue1" }, - { RGB_TO_ULONG(122, 103, 238), "SlateBlue2" }, - { RGB_TO_ULONG(105, 89 , 205), "SlateBlue3" }, - { RGB_TO_ULONG(71 , 60 , 139), "SlateBlue4" }, - { RGB_TO_ULONG(72 , 118, 255), "RoyalBlue1" }, - { RGB_TO_ULONG(67 , 110, 238), "RoyalBlue2" }, - { RGB_TO_ULONG(58 , 95 , 205), "RoyalBlue3" }, - { RGB_TO_ULONG(39 , 64 , 139), "RoyalBlue4" }, - { RGB_TO_ULONG(0 , 0 , 255), "blue1" }, - { RGB_TO_ULONG(0 , 0 , 238), "blue2" }, - { RGB_TO_ULONG(0 , 0 , 205), "blue3" }, - { RGB_TO_ULONG(0 , 0 , 139), "blue4" }, - { RGB_TO_ULONG(30 , 144, 255), "DodgerBlue1" }, - { RGB_TO_ULONG(28 , 134, 238), "DodgerBlue2" }, - { RGB_TO_ULONG(24 , 116, 205), "DodgerBlue3" }, - { RGB_TO_ULONG(16 , 78 , 139), "DodgerBlue4" }, - { RGB_TO_ULONG(99 , 184, 255), "SteelBlue1" }, - { RGB_TO_ULONG(92 , 172, 238), "SteelBlue2" }, - { RGB_TO_ULONG(79 , 148, 205), "SteelBlue3" }, - { RGB_TO_ULONG(54 , 100, 139), "SteelBlue4" }, - { RGB_TO_ULONG(0 , 191, 255), "DeepSkyBlue1" }, - { RGB_TO_ULONG(0 , 178, 238), "DeepSkyBlue2" }, - { RGB_TO_ULONG(0 , 154, 205), "DeepSkyBlue3" }, - { RGB_TO_ULONG(0 , 104, 139), "DeepSkyBlue4" }, - { RGB_TO_ULONG(135, 206, 255), "SkyBlue1" }, - { RGB_TO_ULONG(126, 192, 238), "SkyBlue2" }, - { RGB_TO_ULONG(108, 166, 205), "SkyBlue3" }, - { RGB_TO_ULONG(74 , 112, 139), "SkyBlue4" }, - { RGB_TO_ULONG(176, 226, 255), "LightSkyBlue1" }, - { RGB_TO_ULONG(164, 211, 238), "LightSkyBlue2" }, - { RGB_TO_ULONG(141, 182, 205), "LightSkyBlue3" }, - { RGB_TO_ULONG(96 , 123, 139), "LightSkyBlue4" }, - { RGB_TO_ULONG(198, 226, 255), "SlateGray1" }, - { RGB_TO_ULONG(185, 211, 238), "SlateGray2" }, - { RGB_TO_ULONG(159, 182, 205), "SlateGray3" }, - { RGB_TO_ULONG(108, 123, 139), "SlateGray4" }, - { RGB_TO_ULONG(202, 225, 255), "LightSteelBlue1" }, - { RGB_TO_ULONG(188, 210, 238), "LightSteelBlue2" }, - { RGB_TO_ULONG(162, 181, 205), "LightSteelBlue3" }, - { RGB_TO_ULONG(110, 123, 139), "LightSteelBlue4" }, - { RGB_TO_ULONG(191, 239, 255), "LightBlue1" }, - { RGB_TO_ULONG(178, 223, 238), "LightBlue2" }, - { RGB_TO_ULONG(154, 192, 205), "LightBlue3" }, - { RGB_TO_ULONG(104, 131, 139), "LightBlue4" }, - { RGB_TO_ULONG(224, 255, 255), "LightCyan1" }, - { RGB_TO_ULONG(209, 238, 238), "LightCyan2" }, - { RGB_TO_ULONG(180, 205, 205), "LightCyan3" }, - { RGB_TO_ULONG(122, 139, 139), "LightCyan4" }, - { RGB_TO_ULONG(187, 255, 255), "PaleTurquoise1" }, - { RGB_TO_ULONG(174, 238, 238), "PaleTurquoise2" }, - { RGB_TO_ULONG(150, 205, 205), "PaleTurquoise3" }, - { RGB_TO_ULONG(102, 139, 139), "PaleTurquoise4" }, - { RGB_TO_ULONG(152, 245, 255), "CadetBlue1" }, - { RGB_TO_ULONG(142, 229, 238), "CadetBlue2" }, - { RGB_TO_ULONG(122, 197, 205), "CadetBlue3" }, - { RGB_TO_ULONG(83 , 134, 139), "CadetBlue4" }, - { RGB_TO_ULONG(0 , 245, 255), "turquoise1" }, - { RGB_TO_ULONG(0 , 229, 238), "turquoise2" }, - { RGB_TO_ULONG(0 , 197, 205), "turquoise3" }, - { RGB_TO_ULONG(0 , 134, 139), "turquoise4" }, - { RGB_TO_ULONG(0 , 255, 255), "cyan1" }, - { RGB_TO_ULONG(0 , 238, 238), "cyan2" }, - { RGB_TO_ULONG(0 , 205, 205), "cyan3" }, - { RGB_TO_ULONG(0 , 139, 139), "cyan4" }, - { RGB_TO_ULONG(151, 255, 255), "DarkSlateGray1" }, - { RGB_TO_ULONG(141, 238, 238), "DarkSlateGray2" }, - { RGB_TO_ULONG(121, 205, 205), "DarkSlateGray3" }, - { RGB_TO_ULONG(82 , 139, 139), "DarkSlateGray4" }, - { RGB_TO_ULONG(127, 255, 212), "aquamarine1" }, - { RGB_TO_ULONG(118, 238, 198), "aquamarine2" }, - { RGB_TO_ULONG(102, 205, 170), "aquamarine3" }, - { RGB_TO_ULONG(69 , 139, 116), "aquamarine4" }, - { RGB_TO_ULONG(193, 255, 193), "DarkSeaGreen1" }, - { RGB_TO_ULONG(180, 238, 180), "DarkSeaGreen2" }, - { RGB_TO_ULONG(155, 205, 155), "DarkSeaGreen3" }, - { RGB_TO_ULONG(105, 139, 105), "DarkSeaGreen4" }, - { RGB_TO_ULONG(84 , 255, 159), "SeaGreen1" }, - { RGB_TO_ULONG(78 , 238, 148), "SeaGreen2" }, - { RGB_TO_ULONG(67 , 205, 128), "SeaGreen3" }, - { RGB_TO_ULONG(46 , 139, 87 ), "SeaGreen4" }, - { RGB_TO_ULONG(154, 255, 154), "PaleGreen1" }, - { RGB_TO_ULONG(144, 238, 144), "PaleGreen2" }, - { RGB_TO_ULONG(124, 205, 124), "PaleGreen3" }, - { RGB_TO_ULONG(84 , 139, 84 ), "PaleGreen4" }, - { RGB_TO_ULONG(0 , 255, 127), "SpringGreen1" }, - { RGB_TO_ULONG(0 , 238, 118), "SpringGreen2" }, - { RGB_TO_ULONG(0 , 205, 102), "SpringGreen3" }, - { RGB_TO_ULONG(0 , 139, 69 ), "SpringGreen4" }, - { RGB_TO_ULONG(0 , 255, 0 ), "green1" }, - { RGB_TO_ULONG(0 , 238, 0 ), "green2" }, - { RGB_TO_ULONG(0 , 205, 0 ), "green3" }, - { RGB_TO_ULONG(0 , 139, 0 ), "green4" }, - { RGB_TO_ULONG(127, 255, 0 ), "chartreuse1" }, - { RGB_TO_ULONG(118, 238, 0 ), "chartreuse2" }, - { RGB_TO_ULONG(102, 205, 0 ), "chartreuse3" }, - { RGB_TO_ULONG(69 , 139, 0 ), "chartreuse4" }, - { RGB_TO_ULONG(192, 255, 62 ), "OliveDrab1" }, - { RGB_TO_ULONG(179, 238, 58 ), "OliveDrab2" }, - { RGB_TO_ULONG(154, 205, 50 ), "OliveDrab3" }, - { RGB_TO_ULONG(105, 139, 34 ), "OliveDrab4" }, - { RGB_TO_ULONG(202, 255, 112), "DarkOliveGreen1" }, - { RGB_TO_ULONG(188, 238, 104), "DarkOliveGreen2" }, - { RGB_TO_ULONG(162, 205, 90 ), "DarkOliveGreen3" }, - { RGB_TO_ULONG(110, 139, 61 ), "DarkOliveGreen4" }, - { RGB_TO_ULONG(255, 246, 143), "khaki1" }, - { RGB_TO_ULONG(238, 230, 133), "khaki2" }, - { RGB_TO_ULONG(205, 198, 115), "khaki3" }, - { RGB_TO_ULONG(139, 134, 78 ), "khaki4" }, - { RGB_TO_ULONG(255, 236, 139), "LightGoldenrod1" }, - { RGB_TO_ULONG(238, 220, 130), "LightGoldenrod2" }, - { RGB_TO_ULONG(205, 190, 112), "LightGoldenrod3" }, - { RGB_TO_ULONG(139, 129, 76 ), "LightGoldenrod4" }, - { RGB_TO_ULONG(255, 255, 224), "LightYellow1" }, - { RGB_TO_ULONG(238, 238, 209), "LightYellow2" }, - { RGB_TO_ULONG(205, 205, 180), "LightYellow3" }, - { RGB_TO_ULONG(139, 139, 122), "LightYellow4" }, - { RGB_TO_ULONG(255, 255, 0 ), "yellow1" }, - { RGB_TO_ULONG(238, 238, 0 ), "yellow2" }, - { RGB_TO_ULONG(205, 205, 0 ), "yellow3" }, - { RGB_TO_ULONG(139, 139, 0 ), "yellow4" }, - { RGB_TO_ULONG(255, 215, 0 ), "gold1" }, - { RGB_TO_ULONG(238, 201, 0 ), "gold2" }, - { RGB_TO_ULONG(205, 173, 0 ), "gold3" }, - { RGB_TO_ULONG(139, 117, 0 ), "gold4" }, - { RGB_TO_ULONG(255, 193, 37 ), "goldenrod1" }, - { RGB_TO_ULONG(238, 180, 34 ), "goldenrod2" }, - { RGB_TO_ULONG(205, 155, 29 ), "goldenrod3" }, - { RGB_TO_ULONG(139, 105, 20 ), "goldenrod4" }, - { RGB_TO_ULONG(255, 185, 15 ), "DarkGoldenrod1" }, - { RGB_TO_ULONG(238, 173, 14 ), "DarkGoldenrod2" }, - { RGB_TO_ULONG(205, 149, 12 ), "DarkGoldenrod3" }, - { RGB_TO_ULONG(139, 101, 8 ), "DarkGoldenrod4" }, - { RGB_TO_ULONG(255, 193, 193), "RosyBrown1" }, - { RGB_TO_ULONG(238, 180, 180), "RosyBrown2" }, - { RGB_TO_ULONG(205, 155, 155), "RosyBrown3" }, - { RGB_TO_ULONG(139, 105, 105), "RosyBrown4" }, - { RGB_TO_ULONG(255, 106, 106), "IndianRed1" }, - { RGB_TO_ULONG(238, 99 , 99 ), "IndianRed2" }, - { RGB_TO_ULONG(205, 85 , 85 ), "IndianRed3" }, - { RGB_TO_ULONG(139, 58 , 58 ), "IndianRed4" }, - { RGB_TO_ULONG(255, 130, 71 ), "sienna1" }, - { RGB_TO_ULONG(238, 121, 66 ), "sienna2" }, - { RGB_TO_ULONG(205, 104, 57 ), "sienna3" }, - { RGB_TO_ULONG(139, 71 , 38 ), "sienna4" }, - { RGB_TO_ULONG(255, 211, 155), "burlywood1" }, - { RGB_TO_ULONG(238, 197, 145), "burlywood2" }, - { RGB_TO_ULONG(205, 170, 125), "burlywood3" }, - { RGB_TO_ULONG(139, 115, 85 ), "burlywood4" }, - { RGB_TO_ULONG(255, 231, 186), "wheat1" }, - { RGB_TO_ULONG(238, 216, 174), "wheat2" }, - { RGB_TO_ULONG(205, 186, 150), "wheat3" }, - { RGB_TO_ULONG(139, 126, 102), "wheat4" }, - { RGB_TO_ULONG(255, 165, 79 ), "tan1" }, - { RGB_TO_ULONG(238, 154, 73 ), "tan2" }, - { RGB_TO_ULONG(205, 133, 63 ), "tan3" }, - { RGB_TO_ULONG(139, 90 , 43 ), "tan4" }, - { RGB_TO_ULONG(255, 127, 36 ), "chocolate1" }, - { RGB_TO_ULONG(238, 118, 33 ), "chocolate2" }, - { RGB_TO_ULONG(205, 102, 29 ), "chocolate3" }, - { RGB_TO_ULONG(139, 69 , 19 ), "chocolate4" }, - { RGB_TO_ULONG(255, 48 , 48 ), "firebrick1" }, - { RGB_TO_ULONG(238, 44 , 44 ), "firebrick2" }, - { RGB_TO_ULONG(205, 38 , 38 ), "firebrick3" }, - { RGB_TO_ULONG(139, 26 , 26 ), "firebrick4" }, - { RGB_TO_ULONG(255, 64 , 64 ), "brown1" }, - { RGB_TO_ULONG(238, 59 , 59 ), "brown2" }, - { RGB_TO_ULONG(205, 51 , 51 ), "brown3" }, - { RGB_TO_ULONG(139, 35 , 35 ), "brown4" }, - { RGB_TO_ULONG(255, 140, 105), "salmon1" }, - { RGB_TO_ULONG(238, 130, 98 ), "salmon2" }, - { RGB_TO_ULONG(205, 112, 84 ), "salmon3" }, - { RGB_TO_ULONG(139, 76 , 57 ), "salmon4" }, - { RGB_TO_ULONG(255, 160, 122), "LightSalmon1" }, - { RGB_TO_ULONG(238, 149, 114), "LightSalmon2" }, - { RGB_TO_ULONG(205, 129, 98 ), "LightSalmon3" }, - { RGB_TO_ULONG(139, 87 , 66 ), "LightSalmon4" }, - { RGB_TO_ULONG(255, 165, 0 ), "orange1" }, - { RGB_TO_ULONG(238, 154, 0 ), "orange2" }, - { RGB_TO_ULONG(205, 133, 0 ), "orange3" }, - { RGB_TO_ULONG(139, 90 , 0 ), "orange4" }, - { RGB_TO_ULONG(255, 127, 0 ), "DarkOrange1" }, - { RGB_TO_ULONG(238, 118, 0 ), "DarkOrange2" }, - { RGB_TO_ULONG(205, 102, 0 ), "DarkOrange3" }, - { RGB_TO_ULONG(139, 69 , 0 ), "DarkOrange4" }, - { RGB_TO_ULONG(255, 114, 86 ), "coral1" }, - { RGB_TO_ULONG(238, 106, 80 ), "coral2" }, - { RGB_TO_ULONG(205, 91 , 69 ), "coral3" }, - { RGB_TO_ULONG(139, 62 , 47 ), "coral4" }, - { RGB_TO_ULONG(255, 99 , 71 ), "tomato1" }, - { RGB_TO_ULONG(238, 92 , 66 ), "tomato2" }, - { RGB_TO_ULONG(205, 79 , 57 ), "tomato3" }, - { RGB_TO_ULONG(139, 54 , 38 ), "tomato4" }, - { RGB_TO_ULONG(255, 69 , 0 ), "OrangeRed1" }, - { RGB_TO_ULONG(238, 64 , 0 ), "OrangeRed2" }, - { RGB_TO_ULONG(205, 55 , 0 ), "OrangeRed3" }, - { RGB_TO_ULONG(139, 37 , 0 ), "OrangeRed4" }, - { RGB_TO_ULONG(255, 0 , 0 ), "red1" }, - { RGB_TO_ULONG(238, 0 , 0 ), "red2" }, - { RGB_TO_ULONG(205, 0 , 0 ), "red3" }, - { RGB_TO_ULONG(139, 0 , 0 ), "red4" }, - { RGB_TO_ULONG(255, 20 , 147), "DeepPink1" }, - { RGB_TO_ULONG(238, 18 , 137), "DeepPink2" }, - { RGB_TO_ULONG(205, 16 , 118), "DeepPink3" }, - { RGB_TO_ULONG(139, 10 , 80 ), "DeepPink4" }, - { RGB_TO_ULONG(255, 110, 180), "HotPink1" }, - { RGB_TO_ULONG(238, 106, 167), "HotPink2" }, - { RGB_TO_ULONG(205, 96 , 144), "HotPink3" }, - { RGB_TO_ULONG(139, 58 , 98 ), "HotPink4" }, - { RGB_TO_ULONG(255, 181, 197), "pink1" }, - { RGB_TO_ULONG(238, 169, 184), "pink2" }, - { RGB_TO_ULONG(205, 145, 158), "pink3" }, - { RGB_TO_ULONG(139, 99 , 108), "pink4" }, - { RGB_TO_ULONG(255, 174, 185), "LightPink1" }, - { RGB_TO_ULONG(238, 162, 173), "LightPink2" }, - { RGB_TO_ULONG(205, 140, 149), "LightPink3" }, - { RGB_TO_ULONG(139, 95 , 101), "LightPink4" }, - { RGB_TO_ULONG(255, 130, 171), "PaleVioletRed1" }, - { RGB_TO_ULONG(238, 121, 159), "PaleVioletRed2" }, - { RGB_TO_ULONG(205, 104, 137), "PaleVioletRed3" }, - { RGB_TO_ULONG(139, 71 , 93 ), "PaleVioletRed4" }, - { RGB_TO_ULONG(255, 52 , 179), "maroon1" }, - { RGB_TO_ULONG(238, 48 , 167), "maroon2" }, - { RGB_TO_ULONG(205, 41 , 144), "maroon3" }, - { RGB_TO_ULONG(139, 28 , 98 ), "maroon4" }, - { RGB_TO_ULONG(255, 62 , 150), "VioletRed1" }, - { RGB_TO_ULONG(238, 58 , 140), "VioletRed2" }, - { RGB_TO_ULONG(205, 50 , 120), "VioletRed3" }, - { RGB_TO_ULONG(139, 34 , 82 ), "VioletRed4" }, - { RGB_TO_ULONG(255, 0 , 255), "magenta1" }, - { RGB_TO_ULONG(238, 0 , 238), "magenta2" }, - { RGB_TO_ULONG(205, 0 , 205), "magenta3" }, - { RGB_TO_ULONG(139, 0 , 139), "magenta4" }, - { RGB_TO_ULONG(255, 131, 250), "orchid1" }, - { RGB_TO_ULONG(238, 122, 233), "orchid2" }, - { RGB_TO_ULONG(205, 105, 201), "orchid3" }, - { RGB_TO_ULONG(139, 71 , 137), "orchid4" }, - { RGB_TO_ULONG(255, 187, 255), "plum1" }, - { RGB_TO_ULONG(238, 174, 238), "plum2" }, - { RGB_TO_ULONG(205, 150, 205), "plum3" }, - { RGB_TO_ULONG(139, 102, 139), "plum4" }, - { RGB_TO_ULONG(224, 102, 255), "MediumOrchid1" }, - { RGB_TO_ULONG(209, 95 , 238), "MediumOrchid2" }, - { RGB_TO_ULONG(180, 82 , 205), "MediumOrchid3" }, - { RGB_TO_ULONG(122, 55 , 139), "MediumOrchid4" }, - { RGB_TO_ULONG(191, 62 , 255), "DarkOrchid1" }, - { RGB_TO_ULONG(178, 58 , 238), "DarkOrchid2" }, - { RGB_TO_ULONG(154, 50 , 205), "DarkOrchid3" }, - { RGB_TO_ULONG(104, 34 , 139), "DarkOrchid4" }, - { RGB_TO_ULONG(155, 48 , 255), "purple1" }, - { RGB_TO_ULONG(145, 44 , 238), "purple2" }, - { RGB_TO_ULONG(125, 38 , 205), "purple3" }, - { RGB_TO_ULONG(85 , 26 , 139), "purple4" }, - { RGB_TO_ULONG(171, 130, 255), "MediumPurple1" }, - { RGB_TO_ULONG(159, 121, 238), "MediumPurple2" }, - { RGB_TO_ULONG(137, 104, 205), "MediumPurple3" }, - { RGB_TO_ULONG(93 , 71 , 139), "MediumPurple4" }, - { RGB_TO_ULONG(255, 225, 255), "thistle1" }, - { RGB_TO_ULONG(238, 210, 238), "thistle2" }, - { RGB_TO_ULONG(205, 181, 205), "thistle3" }, - { RGB_TO_ULONG(139, 123, 139), "thistle4" }, - { RGB_TO_ULONG(0 , 0 , 0 ), "gray0" }, - { RGB_TO_ULONG(0 , 0 , 0 ), "grey0" }, - { RGB_TO_ULONG(3 , 3 , 3 ), "gray1" }, - { RGB_TO_ULONG(3 , 3 , 3 ), "grey1" }, - { RGB_TO_ULONG(5 , 5 , 5 ), "gray2" }, - { RGB_TO_ULONG(5 , 5 , 5 ), "grey2" }, - { RGB_TO_ULONG(8 , 8 , 8 ), "gray3" }, - { RGB_TO_ULONG(8 , 8 , 8 ), "grey3" }, - { RGB_TO_ULONG(10 , 10 , 10 ), "gray4" }, - { RGB_TO_ULONG(10 , 10 , 10 ), "grey4" }, - { RGB_TO_ULONG(13 , 13 , 13 ), "gray5" }, - { RGB_TO_ULONG(13 , 13 , 13 ), "grey5" }, - { RGB_TO_ULONG(15 , 15 , 15 ), "gray6" }, - { RGB_TO_ULONG(15 , 15 , 15 ), "grey6" }, - { RGB_TO_ULONG(18 , 18 , 18 ), "gray7" }, - { RGB_TO_ULONG(18 , 18 , 18 ), "grey7" }, - { RGB_TO_ULONG(20 , 20 , 20 ), "gray8" }, - { RGB_TO_ULONG(20 , 20 , 20 ), "grey8" }, - { RGB_TO_ULONG(23 , 23 , 23 ), "gray9" }, - { RGB_TO_ULONG(23 , 23 , 23 ), "grey9" }, - { RGB_TO_ULONG(26 , 26 , 26 ), "gray10" }, - { RGB_TO_ULONG(26 , 26 , 26 ), "grey10" }, - { RGB_TO_ULONG(28 , 28 , 28 ), "gray11" }, - { RGB_TO_ULONG(28 , 28 , 28 ), "grey11" }, - { RGB_TO_ULONG(31 , 31 , 31 ), "gray12" }, - { RGB_TO_ULONG(31 , 31 , 31 ), "grey12" }, - { RGB_TO_ULONG(33 , 33 , 33 ), "gray13" }, - { RGB_TO_ULONG(33 , 33 , 33 ), "grey13" }, - { RGB_TO_ULONG(36 , 36 , 36 ), "gray14" }, - { RGB_TO_ULONG(36 , 36 , 36 ), "grey14" }, - { RGB_TO_ULONG(38 , 38 , 38 ), "gray15" }, - { RGB_TO_ULONG(38 , 38 , 38 ), "grey15" }, - { RGB_TO_ULONG(41 , 41 , 41 ), "gray16" }, - { RGB_TO_ULONG(41 , 41 , 41 ), "grey16" }, - { RGB_TO_ULONG(43 , 43 , 43 ), "gray17" }, - { RGB_TO_ULONG(43 , 43 , 43 ), "grey17" }, - { RGB_TO_ULONG(46 , 46 , 46 ), "gray18" }, - { RGB_TO_ULONG(46 , 46 , 46 ), "grey18" }, - { RGB_TO_ULONG(48 , 48 , 48 ), "gray19" }, - { RGB_TO_ULONG(48 , 48 , 48 ), "grey19" }, - { RGB_TO_ULONG(51 , 51 , 51 ), "gray20" }, - { RGB_TO_ULONG(51 , 51 , 51 ), "grey20" }, - { RGB_TO_ULONG(54 , 54 , 54 ), "gray21" }, - { RGB_TO_ULONG(54 , 54 , 54 ), "grey21" }, - { RGB_TO_ULONG(56 , 56 , 56 ), "gray22" }, - { RGB_TO_ULONG(56 , 56 , 56 ), "grey22" }, - { RGB_TO_ULONG(59 , 59 , 59 ), "gray23" }, - { RGB_TO_ULONG(59 , 59 , 59 ), "grey23" }, - { RGB_TO_ULONG(61 , 61 , 61 ), "gray24" }, - { RGB_TO_ULONG(61 , 61 , 61 ), "grey24" }, - { RGB_TO_ULONG(64 , 64 , 64 ), "gray25" }, - { RGB_TO_ULONG(64 , 64 , 64 ), "grey25" }, - { RGB_TO_ULONG(66 , 66 , 66 ), "gray26" }, - { RGB_TO_ULONG(66 , 66 , 66 ), "grey26" }, - { RGB_TO_ULONG(69 , 69 , 69 ), "gray27" }, - { RGB_TO_ULONG(69 , 69 , 69 ), "grey27" }, - { RGB_TO_ULONG(71 , 71 , 71 ), "gray28" }, - { RGB_TO_ULONG(71 , 71 , 71 ), "grey28" }, - { RGB_TO_ULONG(74 , 74 , 74 ), "gray29" }, - { RGB_TO_ULONG(74 , 74 , 74 ), "grey29" }, - { RGB_TO_ULONG(77 , 77 , 77 ), "gray30" }, - { RGB_TO_ULONG(77 , 77 , 77 ), "grey30" }, - { RGB_TO_ULONG(79 , 79 , 79 ), "gray31" }, - { RGB_TO_ULONG(79 , 79 , 79 ), "grey31" }, - { RGB_TO_ULONG(82 , 82 , 82 ), "gray32" }, - { RGB_TO_ULONG(82 , 82 , 82 ), "grey32" }, - { RGB_TO_ULONG(84 , 84 , 84 ), "gray33" }, - { RGB_TO_ULONG(84 , 84 , 84 ), "grey33" }, - { RGB_TO_ULONG(87 , 87 , 87 ), "gray34" }, - { RGB_TO_ULONG(87 , 87 , 87 ), "grey34" }, - { RGB_TO_ULONG(89 , 89 , 89 ), "gray35" }, - { RGB_TO_ULONG(89 , 89 , 89 ), "grey35" }, - { RGB_TO_ULONG(92 , 92 , 92 ), "gray36" }, - { RGB_TO_ULONG(92 , 92 , 92 ), "grey36" }, - { RGB_TO_ULONG(94 , 94 , 94 ), "gray37" }, - { RGB_TO_ULONG(94 , 94 , 94 ), "grey37" }, - { RGB_TO_ULONG(97 , 97 , 97 ), "gray38" }, - { RGB_TO_ULONG(97 , 97 , 97 ), "grey38" }, - { RGB_TO_ULONG(99 , 99 , 99 ), "gray39" }, - { RGB_TO_ULONG(99 , 99 , 99 ), "grey39" }, - { RGB_TO_ULONG(102, 102, 102), "gray40" }, - { RGB_TO_ULONG(102, 102, 102), "grey40" }, - { RGB_TO_ULONG(105, 105, 105), "gray41" }, - { RGB_TO_ULONG(105, 105, 105), "grey41" }, - { RGB_TO_ULONG(107, 107, 107), "gray42" }, - { RGB_TO_ULONG(107, 107, 107), "grey42" }, - { RGB_TO_ULONG(110, 110, 110), "gray43" }, - { RGB_TO_ULONG(110, 110, 110), "grey43" }, - { RGB_TO_ULONG(112, 112, 112), "gray44" }, - { RGB_TO_ULONG(112, 112, 112), "grey44" }, - { RGB_TO_ULONG(115, 115, 115), "gray45" }, - { RGB_TO_ULONG(115, 115, 115), "grey45" }, - { RGB_TO_ULONG(117, 117, 117), "gray46" }, - { RGB_TO_ULONG(117, 117, 117), "grey46" }, - { RGB_TO_ULONG(120, 120, 120), "gray47" }, - { RGB_TO_ULONG(120, 120, 120), "grey47" }, - { RGB_TO_ULONG(122, 122, 122), "gray48" }, - { RGB_TO_ULONG(122, 122, 122), "grey48" }, - { RGB_TO_ULONG(125, 125, 125), "gray49" }, - { RGB_TO_ULONG(125, 125, 125), "grey49" }, - { RGB_TO_ULONG(127, 127, 127), "gray50" }, - { RGB_TO_ULONG(127, 127, 127), "grey50" }, - { RGB_TO_ULONG(130, 130, 130), "gray51" }, - { RGB_TO_ULONG(130, 130, 130), "grey51" }, - { RGB_TO_ULONG(133, 133, 133), "gray52" }, - { RGB_TO_ULONG(133, 133, 133), "grey52" }, - { RGB_TO_ULONG(135, 135, 135), "gray53" }, - { RGB_TO_ULONG(135, 135, 135), "grey53" }, - { RGB_TO_ULONG(138, 138, 138), "gray54" }, - { RGB_TO_ULONG(138, 138, 138), "grey54" }, - { RGB_TO_ULONG(140, 140, 140), "gray55" }, - { RGB_TO_ULONG(140, 140, 140), "grey55" }, - { RGB_TO_ULONG(143, 143, 143), "gray56" }, - { RGB_TO_ULONG(143, 143, 143), "grey56" }, - { RGB_TO_ULONG(145, 145, 145), "gray57" }, - { RGB_TO_ULONG(145, 145, 145), "grey57" }, - { RGB_TO_ULONG(148, 148, 148), "gray58" }, - { RGB_TO_ULONG(148, 148, 148), "grey58" }, - { RGB_TO_ULONG(150, 150, 150), "gray59" }, - { RGB_TO_ULONG(150, 150, 150), "grey59" }, - { RGB_TO_ULONG(153, 153, 153), "gray60" }, - { RGB_TO_ULONG(153, 153, 153), "grey60" }, - { RGB_TO_ULONG(156, 156, 156), "gray61" }, - { RGB_TO_ULONG(156, 156, 156), "grey61" }, - { RGB_TO_ULONG(158, 158, 158), "gray62" }, - { RGB_TO_ULONG(158, 158, 158), "grey62" }, - { RGB_TO_ULONG(161, 161, 161), "gray63" }, - { RGB_TO_ULONG(161, 161, 161), "grey63" }, - { RGB_TO_ULONG(163, 163, 163), "gray64" }, - { RGB_TO_ULONG(163, 163, 163), "grey64" }, - { RGB_TO_ULONG(166, 166, 166), "gray65" }, - { RGB_TO_ULONG(166, 166, 166), "grey65" }, - { RGB_TO_ULONG(168, 168, 168), "gray66" }, - { RGB_TO_ULONG(168, 168, 168), "grey66" }, - { RGB_TO_ULONG(171, 171, 171), "gray67" }, - { RGB_TO_ULONG(171, 171, 171), "grey67" }, - { RGB_TO_ULONG(173, 173, 173), "gray68" }, - { RGB_TO_ULONG(173, 173, 173), "grey68" }, - { RGB_TO_ULONG(176, 176, 176), "gray69" }, - { RGB_TO_ULONG(176, 176, 176), "grey69" }, - { RGB_TO_ULONG(179, 179, 179), "gray70" }, - { RGB_TO_ULONG(179, 179, 179), "grey70" }, - { RGB_TO_ULONG(181, 181, 181), "gray71" }, - { RGB_TO_ULONG(181, 181, 181), "grey71" }, - { RGB_TO_ULONG(184, 184, 184), "gray72" }, - { RGB_TO_ULONG(184, 184, 184), "grey72" }, - { RGB_TO_ULONG(186, 186, 186), "gray73" }, - { RGB_TO_ULONG(186, 186, 186), "grey73" }, - { RGB_TO_ULONG(189, 189, 189), "gray74" }, - { RGB_TO_ULONG(189, 189, 189), "grey74" }, - { RGB_TO_ULONG(191, 191, 191), "gray75" }, - { RGB_TO_ULONG(191, 191, 191), "grey75" }, - { RGB_TO_ULONG(194, 194, 194), "gray76" }, - { RGB_TO_ULONG(194, 194, 194), "grey76" }, - { RGB_TO_ULONG(196, 196, 196), "gray77" }, - { RGB_TO_ULONG(196, 196, 196), "grey77" }, - { RGB_TO_ULONG(199, 199, 199), "gray78" }, - { RGB_TO_ULONG(199, 199, 199), "grey78" }, - { RGB_TO_ULONG(201, 201, 201), "gray79" }, - { RGB_TO_ULONG(201, 201, 201), "grey79" }, - { RGB_TO_ULONG(204, 204, 204), "gray80" }, - { RGB_TO_ULONG(204, 204, 204), "grey80" }, - { RGB_TO_ULONG(207, 207, 207), "gray81" }, - { RGB_TO_ULONG(207, 207, 207), "grey81" }, - { RGB_TO_ULONG(209, 209, 209), "gray82" }, - { RGB_TO_ULONG(209, 209, 209), "grey82" }, - { RGB_TO_ULONG(212, 212, 212), "gray83" }, - { RGB_TO_ULONG(212, 212, 212), "grey83" }, - { RGB_TO_ULONG(214, 214, 214), "gray84" }, - { RGB_TO_ULONG(214, 214, 214), "grey84" }, - { RGB_TO_ULONG(217, 217, 217), "gray85" }, - { RGB_TO_ULONG(217, 217, 217), "grey85" }, - { RGB_TO_ULONG(219, 219, 219), "gray86" }, - { RGB_TO_ULONG(219, 219, 219), "grey86" }, - { RGB_TO_ULONG(222, 222, 222), "gray87" }, - { RGB_TO_ULONG(222, 222, 222), "grey87" }, - { RGB_TO_ULONG(224, 224, 224), "gray88" }, - { RGB_TO_ULONG(224, 224, 224), "grey88" }, - { RGB_TO_ULONG(227, 227, 227), "gray89" }, - { RGB_TO_ULONG(227, 227, 227), "grey89" }, - { RGB_TO_ULONG(229, 229, 229), "gray90" }, - { RGB_TO_ULONG(229, 229, 229), "grey90" }, - { RGB_TO_ULONG(232, 232, 232), "gray91" }, - { RGB_TO_ULONG(232, 232, 232), "grey91" }, - { RGB_TO_ULONG(235, 235, 235), "gray92" }, - { RGB_TO_ULONG(235, 235, 235), "grey92" }, - { RGB_TO_ULONG(237, 237, 237), "gray93" }, - { RGB_TO_ULONG(237, 237, 237), "grey93" }, - { RGB_TO_ULONG(240, 240, 240), "gray94" }, - { RGB_TO_ULONG(240, 240, 240), "grey94" }, - { RGB_TO_ULONG(242, 242, 242), "gray95" }, - { RGB_TO_ULONG(242, 242, 242), "grey95" }, - { RGB_TO_ULONG(245, 245, 245), "gray96" }, - { RGB_TO_ULONG(245, 245, 245), "grey96" }, - { RGB_TO_ULONG(247, 247, 247), "gray97" }, - { RGB_TO_ULONG(247, 247, 247), "grey97" }, - { RGB_TO_ULONG(250, 250, 250), "gray98" }, - { RGB_TO_ULONG(250, 250, 250), "grey98" }, - { RGB_TO_ULONG(252, 252, 252), "gray99" }, - { RGB_TO_ULONG(252, 252, 252), "grey99" }, - { RGB_TO_ULONG(255, 255, 255), "gray100" }, - { RGB_TO_ULONG(255, 255, 255), "grey100" }, - { RGB_TO_ULONG(169, 169, 169), "dark grey" }, - { RGB_TO_ULONG(169, 169, 169), "DarkGrey" }, - { RGB_TO_ULONG(169, 169, 169), "dark gray" }, - { RGB_TO_ULONG(169, 169, 169), "DarkGray" }, - { RGB_TO_ULONG(0 , 0 , 139), "dark blue" }, - { RGB_TO_ULONG(0 , 0 , 139), "DarkBlue" }, - { RGB_TO_ULONG(0 , 139, 139), "dark cyan" }, - { RGB_TO_ULONG(0 , 139, 139), "DarkCyan" }, - { RGB_TO_ULONG(139, 0 , 139), "dark magenta" }, - { RGB_TO_ULONG(139, 0 , 139), "DarkMagenta" }, - { RGB_TO_ULONG(139, 0 , 0 ), "dark red" }, - { RGB_TO_ULONG(139, 0 , 0 ), "DarkRed" }, - { RGB_TO_ULONG(144, 238, 144), "light green" }, - { RGB_TO_ULONG(144, 238, 144), "LightGreen" } -}; - -Lisp_Object -mac_color_map_lookup (colorname) - const char *colorname; -{ - Lisp_Object ret = Qnil; - int i; - - BLOCK_INPUT; - - for (i = 0; i < sizeof (mac_color_map) / sizeof (mac_color_map[0]); i++) - if (xstrcasecmp (colorname, mac_color_map[i].name) == 0) - { - ret = make_number (mac_color_map[i].color); - break; - } - - UNBLOCK_INPUT; - - return ret; -} - -Lisp_Object -x_to_mac_color (colorname) - char * colorname; -{ - register Lisp_Object ret = Qnil; - - BLOCK_INPUT; - - if (colorname[0] == '#') - { - /* Could be an old-style RGB Device specification. */ - char *color; - int size; - color = colorname + 1; - - size = strlen(color); - if (size == 3 || size == 6 || size == 9 || size == 12) - { - unsigned long colorval; - int i, pos; - pos = 16; - size /= 3; - colorval = 0; - - for (i = 0; i < 3; i++) - { - char *end; - char t; - unsigned long value; - - /* The check for 'x' in the following conditional takes into - account the fact that strtol allows a "0x" in front of - our numbers, and we don't. */ - if (!isxdigit(color[0]) || color[1] == 'x') - break; - t = color[size]; - color[size] = '\0'; - value = strtoul(color, &end, 16); - color[size] = t; - if (errno == ERANGE || end - color != size) - break; - switch (size) - { - case 1: - value = value * 0x10; - break; - case 2: - break; - case 3: - value /= 0x10; - break; - case 4: - value /= 0x100; - break; - } - colorval |= (value << pos); - pos -= 8; - if (i == 2) - { - UNBLOCK_INPUT; - return make_number (colorval); - } - color = end; - } - } - } - else if (strnicmp(colorname, "rgb:", 4) == 0) - { - char *color; - unsigned long colorval; - int i, pos; - pos = 16; - - colorval = 0; - color = colorname + 4; - for (i = 0; i < 3; i++) - { - char *end; - unsigned long value; - - /* The check for 'x' in the following conditional takes into - account the fact that strtol allows a "0x" in front of - our numbers, and we don't. */ - if (!isxdigit(color[0]) || color[1] == 'x') - break; - value = strtoul(color, &end, 16); - if (errno == ERANGE) - break; - switch (end - color) - { - case 1: - value = value * 0x10 + value; - break; - case 2: - break; - case 3: - value /= 0x10; - break; - case 4: - value /= 0x100; - break; - default: - value = ULONG_MAX; - } - if (value == ULONG_MAX) - break; - colorval |= (value << pos); - pos -= 0x8; - if (i == 2) - { - if (*end != '\0') - break; - UNBLOCK_INPUT; - return make_number (colorval); - } - if (*end != '/') - break; - color = end + 1; - } - } - else if (strnicmp(colorname, "rgbi:", 5) == 0) - { - /* This is an RGB Intensity specification. */ - char *color; - unsigned long colorval; - int i, pos; - pos = 16; - - colorval = 0; - color = colorname + 5; - for (i = 0; i < 3; i++) - { - char *end; - double value; - unsigned long val; - - value = strtod(color, &end); - if (errno == ERANGE) - break; - if (value < 0.0 || value > 1.0) - break; - val = (unsigned long)(0x100 * value); - /* We used 0x100 instead of 0xFF to give a continuous - range between 0.0 and 1.0 inclusive. The next statement - fixes the 1.0 case. */ - if (val == 0x100) - val = 0xFF; - colorval |= (val << pos); - pos -= 0x8; - if (i == 2) - { - if (*end != '\0') - break; - UNBLOCK_INPUT; - return make_number (colorval); - } - if (*end != '/') - break; - color = end + 1; - } - } - - ret = mac_color_map_lookup (colorname); - - UNBLOCK_INPUT; - return ret; -} - -/* Gamma-correct COLOR on frame F. */ - -void -gamma_correct (f, color) - struct frame *f; - unsigned long *color; -{ - if (f->gamma) - { - unsigned long red, green, blue; - - red = pow (RED_FROM_ULONG (*color) / 255.0, f->gamma) * 255.0 + 0.5; - green = pow (GREEN_FROM_ULONG (*color) / 255.0, f->gamma) * 255.0 + 0.5; - blue = pow (BLUE_FROM_ULONG (*color) / 255.0, f->gamma) * 255.0 + 0.5; - *color = RGB_TO_ULONG (red, green, blue); - } -} - -/* Decide if color named COLOR is valid for the display associated - with the selected frame; if so, return the rgb values in COLOR_DEF. - If ALLOC is nonzero, allocate a new colormap cell. */ - -int -mac_defined_color (f, color, color_def, alloc) - FRAME_PTR f; - char *color; - XColor *color_def; - int alloc; -{ - register Lisp_Object tem; - unsigned long mac_color_ref; - - tem = x_to_mac_color (color); - - if (!NILP (tem)) - { - if (f) - { - /* Apply gamma correction. */ - mac_color_ref = XUINT (tem); - gamma_correct (f, &mac_color_ref); - XSETINT (tem, mac_color_ref); - } - - color_def->pixel = mac_color_ref; - color_def->red = RED16_FROM_ULONG (mac_color_ref); - color_def->green = GREEN16_FROM_ULONG (mac_color_ref); - color_def->blue = BLUE16_FROM_ULONG (mac_color_ref); - - return 1; - } - else - { - return 0; - } -} - -/* Given a string ARG naming a color, compute a pixel value from it - suitable for screen F. - If F is not a color screen, return DEF (default) regardless of what - ARG says. */ - -int -x_decode_color (f, arg, def) - FRAME_PTR f; - Lisp_Object arg; - int def; -{ - XColor cdef; - - CHECK_STRING (arg); - - if (strcmp (SDATA (arg), "black") == 0) - return BLACK_PIX_DEFAULT (f); - else if (strcmp (SDATA (arg), "white") == 0) - return WHITE_PIX_DEFAULT (f); - -#if 0 - if (FRAME_MAC_DISPLAY_INFO (f)->n_planes) == 1) - return def; -#endif - - if (mac_defined_color (f, SDATA (arg), &cdef, 1)) - return cdef.pixel; - - /* defined_color failed; return an ultimate default. */ - return def; -} - -/* Functions called only from `x_set_frame_param' - to set individual parameters. - - If FRAME_MAC_WINDOW (f) is 0, - the frame is being created and its window does not exist yet. - In that case, just record the parameter's new value - in the standard place; do not attempt to change the window. */ - -void -x_set_foreground_color (f, arg, oldval) - struct frame *f; - Lisp_Object arg, oldval; -{ - struct mac_output *mac = f->output_data.mac; - unsigned long fg, old_fg; - - fg = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f)); - old_fg = FRAME_FOREGROUND_PIXEL (f); - FRAME_FOREGROUND_PIXEL (f) = fg; - - if (FRAME_MAC_WINDOW (f) != 0) - { - Display *dpy = FRAME_MAC_DISPLAY (f); - - BLOCK_INPUT; - XSetForeground (dpy, mac->normal_gc, fg); - XSetBackground (dpy, mac->reverse_gc, fg); - - if (mac->cursor_pixel == old_fg) - { - unload_color (f, mac->cursor_pixel); - mac->cursor_pixel = fg; - XSetBackground (dpy, mac->cursor_gc, mac->cursor_pixel); - } - - UNBLOCK_INPUT; - - update_face_from_frame_parameter (f, Qforeground_color, arg); - - if (FRAME_VISIBLE_P (f)) - redraw_frame (f); - } - - unload_color (f, old_fg); -} - -void -x_set_background_color (f, arg, oldval) - struct frame *f; - Lisp_Object arg, oldval; -{ - struct mac_output *mac = f->output_data.mac; - unsigned long bg; - - bg = x_decode_color (f, arg, WHITE_PIX_DEFAULT (f)); - unload_color (f, FRAME_BACKGROUND_PIXEL (f)); - FRAME_BACKGROUND_PIXEL (f) = bg; - - if (FRAME_MAC_WINDOW (f) != 0) - { - Display *dpy = FRAME_MAC_DISPLAY (f); - - BLOCK_INPUT; - XSetBackground (dpy, mac->normal_gc, bg); - XSetForeground (dpy, mac->reverse_gc, bg); - mac_set_frame_window_background (f, bg); - XSetForeground (dpy, mac->cursor_gc, bg); - - UNBLOCK_INPUT; - update_face_from_frame_parameter (f, Qbackground_color, arg); - - if (FRAME_VISIBLE_P (f)) - redraw_frame (f); - } -} - -void -x_set_mouse_color (f, arg, oldval) - struct frame *f; - Lisp_Object arg, oldval; -{ - struct x_output *x = f->output_data.x; - Cursor cursor, nontext_cursor, mode_cursor, hand_cursor; - Cursor hourglass_cursor, horizontal_drag_cursor; - unsigned long pixel = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f)); - unsigned long mask_color = FRAME_BACKGROUND_PIXEL (f); - - /* Don't let pointers be invisible. */ - if (mask_color == pixel) - pixel = FRAME_FOREGROUND_PIXEL (f); - - f->output_data.mac->mouse_pixel = pixel; - - if (!NILP (Vx_pointer_shape)) - { - CHECK_NUMBER (Vx_pointer_shape); - cursor = XINT (Vx_pointer_shape); - } - else - cursor = kThemeIBeamCursor; - - if (!NILP (Vx_nontext_pointer_shape)) - { - CHECK_NUMBER (Vx_nontext_pointer_shape); - nontext_cursor = XINT (Vx_nontext_pointer_shape); - } - else - nontext_cursor = kThemeArrowCursor; - - if (!NILP (Vx_hourglass_pointer_shape)) - { - CHECK_NUMBER (Vx_hourglass_pointer_shape); - hourglass_cursor = XINT (Vx_hourglass_pointer_shape); - } - else - hourglass_cursor = kThemeWatchCursor; - - if (!NILP (Vx_mode_pointer_shape)) - { - CHECK_NUMBER (Vx_mode_pointer_shape); - mode_cursor = XINT (Vx_mode_pointer_shape); - } - else - mode_cursor = kThemeArrowCursor; - - if (!NILP (Vx_sensitive_text_pointer_shape)) - { - CHECK_NUMBER (Vx_sensitive_text_pointer_shape); - hand_cursor = XINT (Vx_sensitive_text_pointer_shape); - } - else - hand_cursor = kThemePointingHandCursor; - - if (!NILP (Vx_window_horizontal_drag_shape)) - { - CHECK_NUMBER (Vx_window_horizontal_drag_shape); - horizontal_drag_cursor = XINT (Vx_window_horizontal_drag_shape); - } - else - horizontal_drag_cursor = kThemeResizeLeftRightCursor; - -#if 0 /* MAC_TODO: cursor color changes */ - { - XColor fore_color, back_color; - - fore_color.pixel = f->output_data.mac->mouse_pixel; - x_query_color (f, &fore_color); - back_color.pixel = mask_color; - x_query_color (f, &back_color); - - XRecolorCursor (dpy, cursor, &fore_color, &back_color); - XRecolorCursor (dpy, nontext_cursor, &fore_color, &back_color); - XRecolorCursor (dpy, mode_cursor, &fore_color, &back_color); - XRecolorCursor (dpy, hand_cursor, &fore_color, &back_color); - XRecolorCursor (dpy, hourglass_cursor, &fore_color, &back_color); - XRecolorCursor (dpy, horizontal_drag_cursor, &fore_color, &back_color); - } -#endif - - BLOCK_INPUT; - - if (FRAME_MAC_WINDOW (f) != 0) - FRAME_TERMINAL (f)->rif->define_frame_cursor (f, cursor); - - f->output_data.mac->text_cursor = cursor; - f->output_data.mac->nontext_cursor = nontext_cursor; - f->output_data.mac->hourglass_cursor = hourglass_cursor; - f->output_data.mac->modeline_cursor = mode_cursor; - f->output_data.mac->hand_cursor = hand_cursor; - f->output_data.mac->horizontal_drag_cursor = horizontal_drag_cursor; - - UNBLOCK_INPUT; - - update_face_from_frame_parameter (f, Qmouse_color, arg); -} - -void -x_set_cursor_color (f, arg, oldval) - struct frame *f; - Lisp_Object arg, oldval; -{ - unsigned long fore_pixel, pixel; - - if (!NILP (Vx_cursor_fore_pixel)) - fore_pixel = x_decode_color (f, Vx_cursor_fore_pixel, - WHITE_PIX_DEFAULT (f)); - else - fore_pixel = FRAME_BACKGROUND_PIXEL (f); - - pixel = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f)); - - /* Make sure that the cursor color differs from the background color. */ - if (pixel == FRAME_BACKGROUND_PIXEL (f)) - { - pixel = f->output_data.mac->mouse_pixel; - if (pixel == fore_pixel) - fore_pixel = FRAME_BACKGROUND_PIXEL (f); - } - - f->output_data.mac->cursor_foreground_pixel = fore_pixel; - f->output_data.mac->cursor_pixel = pixel; - - if (FRAME_MAC_WINDOW (f) != 0) - { - BLOCK_INPUT; - /* Update frame's cursor_gc. */ - XSetBackground (FRAME_MAC_DISPLAY (f), - f->output_data.mac->cursor_gc, pixel); - XSetForeground (FRAME_MAC_DISPLAY (f), - f->output_data.mac->cursor_gc, fore_pixel); - UNBLOCK_INPUT; - - if (FRAME_VISIBLE_P (f)) - { - x_update_cursor (f, 0); - x_update_cursor (f, 1); - } - } - - update_face_from_frame_parameter (f, Qcursor_color, arg); -} - -/* Set the border-color of frame F to pixel value PIX. - Note that this does not fully take effect if done before - F has a window. */ - -void -x_set_border_pixel (f, pix) - struct frame *f; - int pix; -{ - - f->output_data.mac->border_pixel = pix; - - if (FRAME_MAC_WINDOW (f) != 0 && f->border_width > 0) - { - if (FRAME_VISIBLE_P (f)) - redraw_frame (f); - } -} - -/* Set the border-color of frame F to value described by ARG. - ARG can be a string naming a color. - The border-color is used for the border that is drawn by the server. - Note that this does not fully take effect if done before - F has a window; it must be redone when the window is created. */ - -void -x_set_border_color (f, arg, oldval) - struct frame *f; - Lisp_Object arg, oldval; -{ - int pix; - - CHECK_STRING (arg); - pix = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f)); - x_set_border_pixel (f, pix); - update_face_from_frame_parameter (f, Qborder_color, arg); -} - - -void -x_set_cursor_type (f, arg, oldval) - FRAME_PTR f; - Lisp_Object arg, oldval; -{ - set_frame_cursor_types (f, arg); - - /* Make sure the cursor gets redrawn. */ - cursor_type_changed = 1; -} - -#if 0 /* MAC_TODO: really no icon for Mac */ -void -x_set_icon_type (f, arg, oldval) - struct frame *f; - Lisp_Object arg, oldval; -{ - int result; - - if (NILP (arg) && NILP (oldval)) - return; - - if (STRINGP (arg) && STRINGP (oldval) - && EQ (Fstring_equal (oldval, arg), Qt)) - return; - - if (SYMBOLP (arg) && SYMBOLP (oldval) && EQ (arg, oldval)) - return; - - BLOCK_INPUT; - - result = x_bitmap_icon (f, arg); - if (result) - { - UNBLOCK_INPUT; - error ("No icon window available"); - } - - UNBLOCK_INPUT; -} -#endif /* MAC_TODO */ - -void -x_set_icon_name (f, arg, oldval) - struct frame *f; - Lisp_Object arg, oldval; -{ - int result; - - if (STRINGP (arg)) - { - if (STRINGP (oldval) && EQ (Fstring_equal (oldval, arg), Qt)) - return; - } - else if (!NILP (arg) || NILP (oldval)) - return; - - f->icon_name = arg; - -#if 0 /* MAC_TODO */ - if (f->output_data.w32->icon_bitmap != 0) - return; - - BLOCK_INPUT; - - result = x_text_icon (f, - (char *) SDATA ((!NILP (f->icon_name) - ? f->icon_name - : !NILP (f->title) - ? f->title - : f->name))); - - if (result) - { - UNBLOCK_INPUT; - error ("No icon window available"); - } - - /* If the window was unmapped (and its icon was mapped), - the new icon is not mapped, so map the window in its stead. */ - if (FRAME_VISIBLE_P (f)) - { -#ifdef USE_X_TOOLKIT - XtPopup (f->output_data.w32->widget, XtGrabNone); -#endif - XMapWindow (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f)); - } - - XFlush (FRAME_W32_DISPLAY (f)); - UNBLOCK_INPUT; -#endif /* MAC_TODO */ -} - - -void -x_set_menu_bar_lines (f, value, oldval) - struct frame *f; - Lisp_Object value, oldval; -{ - /* Make sure we redisplay all windows in this frame. */ - windows_or_buffers_changed++; - - FRAME_MENU_BAR_LINES (f) = 0; - /* The menu bar is always shown. */ - FRAME_EXTERNAL_MENU_BAR (f) = 1; - if (FRAME_MAC_P (f) && f->output_data.mac->menubar_widget == 0) - /* Make sure next redisplay shows the menu bar. */ - XWINDOW (FRAME_SELECTED_WINDOW (f))->update_mode_line = Qt; - adjust_glyphs (f); -} - - -/* Set the number of lines used for the tool bar of frame F to VALUE. - VALUE not an integer, or < 0 means set the lines to zero. OLDVAL - is the old number of tool bar lines. This function changes the - height of all windows on frame F to match the new tool bar height. - The frame's height doesn't change. */ - -void -x_set_tool_bar_lines (f, value, oldval) - struct frame *f; - Lisp_Object value, oldval; -{ - int delta, nlines, root_height; - Lisp_Object root_window; - - /* Treat tool bars like menu bars. */ - if (FRAME_MINIBUF_ONLY_P (f)) - return; - - /* Use VALUE only if an integer >= 0. */ - if (INTEGERP (value) && XINT (value) >= 0) - nlines = XFASTINT (value); - else - nlines = 0; - - /* Make sure we redisplay all windows in this frame. */ - ++windows_or_buffers_changed; - -#if USE_MAC_TOOLBAR - FRAME_TOOL_BAR_LINES (f) = 0; - if (nlines) - { - FRAME_EXTERNAL_TOOL_BAR (f) = 1; - if (FRAME_MAC_P (f) - && !mac_is_window_toolbar_visible (FRAME_MAC_WINDOW (f))) - /* Make sure next redisplay shows the tool bar. */ - XWINDOW (FRAME_SELECTED_WINDOW (f))->update_mode_line = Qt; - } - else - { - if (FRAME_EXTERNAL_TOOL_BAR (f)) - free_frame_tool_bar (f); - FRAME_EXTERNAL_TOOL_BAR (f) = 0; - } - - return; -#endif - - delta = nlines - FRAME_TOOL_BAR_LINES (f); - - /* Don't resize the tool-bar to more than we have room for. */ - root_window = FRAME_ROOT_WINDOW (f); - root_height = WINDOW_TOTAL_LINES (XWINDOW (root_window)); - if (root_height - delta < 1) - { - delta = root_height - 1; - nlines = FRAME_TOOL_BAR_LINES (f) + delta; - } - - FRAME_TOOL_BAR_LINES (f) = nlines; - change_window_heights (root_window, delta); - adjust_glyphs (f); - - /* We also have to make sure that the internal border at the top of - the frame, below the menu bar or tool bar, is redrawn when the - tool bar disappears. This is so because the internal border is - below the tool bar if one is displayed, but is below the menu bar - if there isn't a tool bar. The tool bar draws into the area - below the menu bar. */ - if (FRAME_MAC_WINDOW (f) && FRAME_TOOL_BAR_LINES (f) == 0) - { - clear_frame (f); - clear_current_matrices (f); - } - - /* If the tool bar gets smaller, the internal border below it - has to be cleared. It was formerly part of the display - of the larger tool bar, and updating windows won't clear it. */ - if (delta < 0) - { - int height = FRAME_INTERNAL_BORDER_WIDTH (f); - int width = FRAME_PIXEL_WIDTH (f); - int y = nlines * FRAME_LINE_HEIGHT (f); - - BLOCK_INPUT; - mac_clear_area (f, 0, y, width, height); - UNBLOCK_INPUT; - - if (WINDOWP (f->tool_bar_window)) - clear_glyph_matrix (XWINDOW (f->tool_bar_window)->current_matrix); - } -} - - - -/* Set the Mac window title to NAME for frame F. */ - -static void -x_set_name_internal (f, name) - FRAME_PTR f; - Lisp_Object name; -{ - if (FRAME_MAC_WINDOW (f)) - { - if (STRING_MULTIBYTE (name)) -#if TARGET_API_MAC_CARBON - name = ENCODE_UTF_8 (name); -#else - name = ENCODE_SYSTEM (name); -#endif - - BLOCK_INPUT; - - { -#if TARGET_API_MAC_CARBON - CFStringRef windowTitle = - cfstring_create_with_utf8_cstring (SDATA (name)); - - mac_set_window_title (FRAME_MAC_WINDOW (f), windowTitle); - CFRelease (windowTitle); -#else - Str255 windowTitle; - if (strlen (SDATA (name)) < 255) - { - strcpy (windowTitle, SDATA (name)); - c2pstr (windowTitle); - SetWTitle (FRAME_MAC_WINDOW (f), windowTitle); - } -#endif - } - - UNBLOCK_INPUT; - } -} - -/* Change the name of frame F to NAME. If NAME is nil, set F's name to - mac_id_name. - - If EXPLICIT is non-zero, that indicates that lisp code is setting the - name; if NAME is a string, set F's name to NAME and set - F->explicit_name; if NAME is Qnil, then clear F->explicit_name. - - If EXPLICIT is zero, that indicates that Emacs redisplay code is - suggesting a new name, which lisp code should override; if - F->explicit_name is set, ignore the new name; otherwise, set it. */ - -void -x_set_name (f, name, explicit) - struct frame *f; - Lisp_Object name; - int explicit; -{ - /* Make sure that requests from lisp code override requests from - Emacs redisplay code. */ - if (explicit) - { - /* If we're switching from explicit to implicit, we had better - update the mode lines and thereby update the title. */ - if (f->explicit_name && NILP (name)) - update_mode_lines = 1; - - f->explicit_name = ! NILP (name); - } - else if (f->explicit_name) - return; - - /* If NAME is nil, set the name to the mac_id_name. */ - if (NILP (name)) - { - /* Check for no change needed in this very common case - before we do any consing. */ - if (!strcmp (FRAME_MAC_DISPLAY_INFO (f)->mac_id_name, - SDATA (f->name))) - return; - name = build_string (FRAME_MAC_DISPLAY_INFO (f)->mac_id_name); - } - else - CHECK_STRING (name); - - /* Don't change the name if it's already NAME. */ - if (! NILP (Fstring_equal (name, f->name))) - return; - - f->name = name; - - /* For setting the frame title, the title parameter should override - the name parameter. */ - if (! NILP (f->title)) - name = f->title; - - x_set_name_internal (f, name); -} - -/* This function should be called when the user's lisp code has - specified a name for the frame; the name will override any set by the - redisplay code. */ -void -x_explicitly_set_name (f, arg, oldval) - FRAME_PTR f; - Lisp_Object arg, oldval; -{ - x_set_name (f, arg, 1); -} - -/* This function should be called by Emacs redisplay code to set the - name; names set this way will never override names set by the user's - lisp code. */ -void -x_implicitly_set_name (f, arg, oldval) - FRAME_PTR f; - Lisp_Object arg, oldval; -{ - x_set_name (f, arg, 0); -} - -/* Change the title of frame F to NAME. - If NAME is nil, use the frame name as the title. */ - -void -x_set_title (f, name, old_name) - struct frame *f; - Lisp_Object name, old_name; -{ - /* Don't change the title if it's already NAME. */ - if (EQ (name, f->title)) - return; - - update_mode_lines = 1; - - f->title = name; - - if (NILP (name)) - name = f->name; - else - CHECK_STRING (name); - - x_set_name_internal (f, name); -} - -void -x_set_scroll_bar_default_width (f) - struct frame *f; -{ - /* Imitate X without X Toolkit */ - - int wid = FRAME_COLUMN_WIDTH (f); - -#ifdef MAC_OSX - FRAME_CONFIG_SCROLL_BAR_WIDTH (f) = MAC_AQUA_VERTICAL_SCROLL_BAR_WIDTH; - FRAME_CONFIG_SCROLL_BAR_COLS (f) = (FRAME_CONFIG_SCROLL_BAR_WIDTH (f) + - wid - 1) / wid; -#else /* not MAC_OSX */ - /* Make the actual width at least 14 pixels and a multiple of a - character width. */ - FRAME_CONFIG_SCROLL_BAR_COLS (f) = (14 + wid - 1) / wid; - - /* Use all of that space (aside from required margins) for the - scroll bar. */ - FRAME_CONFIG_SCROLL_BAR_WIDTH (f) = 0; -#endif /* not MAC_OSX */ -} - -static void -mac_set_font (f, arg, oldval) - struct frame *f; - Lisp_Object arg, oldval; -{ - x_set_font (f, arg, oldval); -#if USE_MAC_FONT_PANEL - { - Lisp_Object focus_frame = x_get_focus_frame (f); - - if ((NILP (focus_frame) && f == SELECTED_FRAME ()) - || XFRAME (focus_frame) == f) - { - BLOCK_INPUT; - mac_set_font_info_for_selection (f, DEFAULT_FACE_ID, 0); - UNBLOCK_INPUT; - } - } -#endif -} - -void -mac_update_title_bar (f, save_match_data) - struct frame *f; - int save_match_data; -{ -#if TARGET_API_MAC_CARBON - struct window *w; - int modified_p; - - if (!FRAME_MAC_P (f)) - return; - - w = XWINDOW (FRAME_SELECTED_WINDOW (f)); - modified_p = (BUF_SAVE_MODIFF (XBUFFER (w->buffer)) - < BUF_MODIFF (XBUFFER (w->buffer))); - if (windows_or_buffers_changed - /* Minibuffer modification status shown in the close button is - confusing. */ - || (!MINI_WINDOW_P (w) - && (modified_p != !NILP (w->last_had_star)))) - { - BLOCK_INPUT; - mac_set_window_modified (FRAME_MAC_WINDOW (f), - !MINI_WINDOW_P (w) && modified_p); - mac_update_proxy_icon (f); - UNBLOCK_INPUT; - } -#endif -} - - -/* Subroutines of creating a frame. */ - -/* Retrieve the string resource specified by NAME with CLASS from - database RDB. - - The return value points to the contents of a Lisp string. So it - will not be valid after the next GC where string compaction will - occur. */ - -char * -x_get_string_resource (rdb, name, class) - XrmDatabase rdb; - char *name, *class; -{ - Lisp_Object value = xrm_get_resource (rdb, name, class); - - if (STRINGP (value)) - return SDATA (value); - else - return NULL; -} - -/* Return the value of parameter PARAM. - - First search ALIST, then Vdefault_frame_alist, then the X defaults - database, using ATTRIBUTE as the attribute name and CLASS as its class. - - Convert the resource to the type specified by desired_type. - - If no default is specified, return Qunbound. If you call - mac_get_arg, make sure you deal with Qunbound in a reasonable way, - and don't let it get stored in any Lisp-visible variables! */ - -static Lisp_Object -mac_get_arg (alist, param, attribute, class, type) - Lisp_Object alist, param; - char *attribute; - char *class; - enum resource_types type; -{ - return x_get_arg (check_x_display_info (Qnil), - alist, param, attribute, class, type); -} - - -/* XParseGeometry copied from w32xfns.c */ - -/* - * XParseGeometry parses strings of the form - * "=<width>x<height>{+-}<xoffset>{+-}<yoffset>", where - * width, height, xoffset, and yoffset are unsigned integers. - * Example: "=80x24+300-49" - * The equal sign is optional. - * It returns a bitmask that indicates which of the four values - * were actually found in the string. For each value found, - * the corresponding argument is updated; for each value - * not found, the corresponding argument is left unchanged. - */ - -static int -read_integer (string, NextString) - register char *string; - char **NextString; -{ - register int Result = 0; - int Sign = 1; - - if (*string == '+') - string++; - else if (*string == '-') - { - string++; - Sign = -1; - } - for (; (*string >= '0') && (*string <= '9'); string++) - { - Result = (Result * 10) + (*string - '0'); - } - *NextString = string; - if (Sign >= 0) - return (Result); - else - return (-Result); -} - -int -XParseGeometry (string, x, y, width, height) - char *string; - int *x, *y; - unsigned int *width, *height; /* RETURN */ -{ - int mask = NoValue; - register char *strind; - unsigned int tempWidth, tempHeight; - int tempX, tempY; - char *nextCharacter; - - if ((string == NULL) || (*string == '\0')) return (mask); - if (*string == '=') - string++; /* ignore possible '=' at beg of geometry spec */ - - strind = (char *)string; - if (*strind != '+' && *strind != '-' && *strind != 'x') - { - tempWidth = read_integer (strind, &nextCharacter); - if (strind == nextCharacter) - return (0); - strind = nextCharacter; - mask |= WidthValue; - } - - if (*strind == 'x' || *strind == 'X') - { - strind++; - tempHeight = read_integer (strind, &nextCharacter); - if (strind == nextCharacter) - return (0); - strind = nextCharacter; - mask |= HeightValue; - } - - if ((*strind == '+') || (*strind == '-')) - { - if (*strind == '-') - { - strind++; - tempX = -read_integer (strind, &nextCharacter); - if (strind == nextCharacter) - return (0); - strind = nextCharacter; - mask |= XNegative; - - } - else - { - strind++; - tempX = read_integer (strind, &nextCharacter); - if (strind == nextCharacter) - return (0); - strind = nextCharacter; - } - mask |= XValue; - if ((*strind == '+') || (*strind == '-')) - { - if (*strind == '-') - { - strind++; - tempY = -read_integer (strind, &nextCharacter); - if (strind == nextCharacter) - return (0); - strind = nextCharacter; - mask |= YNegative; - - } - else - { - strind++; - tempY = read_integer (strind, &nextCharacter); - if (strind == nextCharacter) - return (0); - strind = nextCharacter; - } - mask |= YValue; - } - } - - /* If strind isn't at the end of the string the it's an invalid - geometry specification. */ - - if (*strind != '\0') return (0); - - if (mask & XValue) - *x = tempX; - if (mask & YValue) - *y = tempY; - if (mask & WidthValue) - *width = tempWidth; - if (mask & HeightValue) - *height = tempHeight; - return (mask); -} - - -/* Create and set up the Mac window for frame F. */ - -static void -mac_window (f) - struct frame *f; -{ - BLOCK_INPUT; - - mac_create_frame_window (f, 0); - - if (FRAME_MAC_WINDOW (f)) - mac_set_frame_window_background (f, FRAME_BACKGROUND_PIXEL (f)); - -#if USE_MAC_TOOLBAR - /* At the moment, the size of the tool bar is not yet known. We - record the gravity value of the newly created window and use it - to adjust the position of the window (especially for a negative - specification of its vertical position) when the tool bar is - first redisplayed. */ - if (FRAME_EXTERNAL_TOOL_BAR (f)) - f->output_data.mac->toolbar_win_gravity = f->win_gravity; -#endif - - validate_x_resource_name (); - - /* x_set_name normally ignores requests to set the name if the - requested name is the same as the current name. This is the one - place where that assumption isn't correct; f->name is set, but - the server hasn't been told. */ - { - Lisp_Object name; - int explicit = f->explicit_name; - - f->explicit_name = 0; - name = f->name; - f->name = Qnil; - x_set_name (f, name, explicit); - } - - UNBLOCK_INPUT; - - if (FRAME_MAC_WINDOW (f) == 0) - error ("Unable to create window"); -} - -/* Handle the icon stuff for this window. Perhaps later we might - want an x_set_icon_position which can be called interactively as - well. */ - -static void -x_icon (f, parms) - struct frame *f; - Lisp_Object parms; -{ - Lisp_Object icon_x, icon_y; - - /* Set the position of the icon. Note that Windows 95 groups all - icons in the tray. */ - icon_x = mac_get_arg (parms, Qicon_left, 0, 0, RES_TYPE_NUMBER); - icon_y = mac_get_arg (parms, Qicon_top, 0, 0, RES_TYPE_NUMBER); - if (!EQ (icon_x, Qunbound) && !EQ (icon_y, Qunbound)) - { - CHECK_NUMBER (icon_x); - CHECK_NUMBER (icon_y); - } - else if (!EQ (icon_x, Qunbound) || !EQ (icon_y, Qunbound)) - error ("Both left and top icon corners of icon must be specified"); - - BLOCK_INPUT; - - if (! EQ (icon_x, Qunbound)) - x_wm_set_icon_position (f, XINT (icon_x), XINT (icon_y)); - -#if 0 /* TODO */ - /* Start up iconic or window? */ - x_wm_set_window_state - (f, (EQ (w32_get_arg (parms, Qvisibility, 0, 0, RES_TYPE_SYMBOL), Qicon) - ? IconicState - : NormalState)); - - x_text_icon (f, (char *) SDATA ((!NILP (f->icon_name) - ? f->icon_name - : f->name))); -#endif - - UNBLOCK_INPUT; -} - - -void -x_make_gc (f) - struct frame *f; -{ - XGCValues gc_values; - - BLOCK_INPUT; - - /* Create the GCs of this frame. - Note that many default values are used. */ - - /* Normal video */ - gc_values.font = FRAME_FONT (f); - gc_values.foreground = FRAME_FOREGROUND_PIXEL (f); - gc_values.background = FRAME_BACKGROUND_PIXEL (f); - f->output_data.mac->normal_gc = XCreateGC (FRAME_MAC_DISPLAY (f), - FRAME_MAC_WINDOW (f), - GCFont | GCForeground | GCBackground, - &gc_values); - - /* Reverse video style. */ - gc_values.foreground = FRAME_BACKGROUND_PIXEL (f); - gc_values.background = FRAME_FOREGROUND_PIXEL (f); - f->output_data.mac->reverse_gc = XCreateGC (FRAME_MAC_DISPLAY (f), - FRAME_MAC_WINDOW (f), - GCFont | GCForeground | GCBackground, - &gc_values); - - /* Cursor has cursor-color background, background-color foreground. */ - gc_values.foreground = FRAME_BACKGROUND_PIXEL (f); - gc_values.background = f->output_data.mac->cursor_pixel; - f->output_data.mac->cursor_gc = XCreateGC (FRAME_MAC_DISPLAY (f), - FRAME_MAC_WINDOW (f), - GCFont | GCForeground | GCBackground, - &gc_values); - - /* Reliefs. */ - f->output_data.mac->white_relief.gc = 0; - f->output_data.mac->black_relief.gc = 0; - -#if 0 - /* Create the gray border tile used when the pointer is not in - the frame. Since this depends on the frame's pixel values, - this must be done on a per-frame basis. */ - f->output_data.x->border_tile - = (XCreatePixmapFromBitmapData - (FRAME_X_DISPLAY (f), FRAME_X_DISPLAY_INFO (f)->root_window, - gray_bits, gray_width, gray_height, - FRAME_FOREGROUND_PIXEL (f), - FRAME_BACKGROUND_PIXEL (f), - DefaultDepth (FRAME_X_DISPLAY (f), FRAME_X_SCREEN_NUMBER (f)))); -#endif - - UNBLOCK_INPUT; -} - - -/* Free what was was allocated in x_make_gc. */ - -void -x_free_gcs (f) - struct frame *f; -{ - Display *dpy = FRAME_MAC_DISPLAY (f); - - BLOCK_INPUT; - - if (f->output_data.mac->normal_gc) - { - XFreeGC (dpy, f->output_data.mac->normal_gc); - f->output_data.mac->normal_gc = 0; - } - - if (f->output_data.mac->reverse_gc) - { - XFreeGC (dpy, f->output_data.mac->reverse_gc); - f->output_data.mac->reverse_gc = 0; - } - - if (f->output_data.mac->cursor_gc) - { - XFreeGC (dpy, f->output_data.mac->cursor_gc); - f->output_data.mac->cursor_gc = 0; - } - -#if 0 - if (f->output_data.mac->border_tile) - { - XFreePixmap (dpy, f->output_data.mac->border_tile); - f->output_data.mac->border_tile = 0; - } -#endif - - if (f->output_data.mac->white_relief.gc) - { - XFreeGC (dpy, f->output_data.mac->white_relief.gc); - f->output_data.mac->white_relief.gc = 0; - } - - if (f->output_data.mac->black_relief.gc) - { - XFreeGC (dpy, f->output_data.mac->black_relief.gc); - f->output_data.mac->black_relief.gc = 0; - } - - UNBLOCK_INPUT; -} - - -/* Handler for signals raised during x_create_frame and - x_create_top_frame. FRAME is the frame which is partially - constructed. */ - -static Lisp_Object -unwind_create_frame (frame) - Lisp_Object frame; -{ - struct frame *f = XFRAME (frame); - - /* If frame is ``official'', nothing to do. */ - if (!CONSP (Vframe_list) || !EQ (XCAR (Vframe_list), frame)) - { -#if GLYPH_DEBUG - struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); -#endif - - x_free_frame_resources (f); - -#if GLYPH_DEBUG - /* Check that reference counts are indeed correct. */ - xassert (dpyinfo->reference_count == dpyinfo_refcount); - xassert (dpyinfo->image_cache->refcount == image_cache_refcount); -#endif - return Qt; - } - - return Qnil; -} - - -DEFUN ("x-create-frame", Fx_create_frame, Sx_create_frame, - 1, 1, 0, - doc: /* Make a new window, which is called a "frame" in Emacs terms. -Return an Emacs frame object. -PARAMETERS is an alist of frame parameters. -If the parameters specify that the frame should not have a minibuffer, -and do not specify a specific minibuffer window to use, -then `default-minibuffer-frame' must be a frame whose minibuffer can -be shared by the new frame. - -This function is an internal primitive--use `make-frame' instead. */) - (parameters) - Lisp_Object parameters; -{ - struct frame *f; - Lisp_Object frame, tem; - Lisp_Object name; - int minibuffer_only = 0; - long window_prompting = 0; - int width, height; - int count = SPECPDL_INDEX (); - struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; - Lisp_Object display; - struct mac_display_info *dpyinfo = NULL; - Lisp_Object parent; - struct kboard *kb; - - check_mac (); - - parms = Fcopy_alist (parms); - - /* Use this general default value to start with - until we know if this frame has a specified name. */ - Vx_resource_name = Vinvocation_name; - - display = mac_get_arg (parameters, Qdisplay, 0, 0, RES_TYPE_STRING); - if (EQ (display, Qunbound)) - display = Qnil; - dpyinfo = check_x_display_info (display); - kb = dpyinfo->terminal->kboard; - - name = mac_get_arg (parameters, Qname, "name", "Name", RES_TYPE_STRING); - if (!STRINGP (name) - && ! EQ (name, Qunbound) - && ! NILP (name)) - error ("Invalid frame name--not a string or nil"); - - if (STRINGP (name)) - Vx_resource_name = name; - - /* See if parent window is specified. */ - parent = mac_get_arg (parameters, Qparent_id, NULL, NULL, RES_TYPE_NUMBER); - if (EQ (parent, Qunbound)) - parent = Qnil; - if (! NILP (parent)) - CHECK_NUMBER (parent); - - /* make_frame_without_minibuffer can run Lisp code and garbage collect. */ - /* No need to protect DISPLAY because that's not used after passing - it to make_frame_without_minibuffer. */ - frame = Qnil; - GCPRO4 (parameters, parent, name, frame); - tem = mac_get_arg (parameters, Qminibuffer, "minibuffer", "Minibuffer", - RES_TYPE_SYMBOL); - if (EQ (tem, Qnone) || NILP (tem)) - f = make_frame_without_minibuffer (Qnil, kb, display); - else if (EQ (tem, Qonly)) - { - f = make_minibuffer_frame (); - minibuffer_only = 1; - } - else if (WINDOWP (tem)) - f = make_frame_without_minibuffer (tem, kb, display); - else - f = make_frame (1); - - XSETFRAME (frame, f); - - /* Note that X Windows does support scroll bars. */ - FRAME_CAN_HAVE_SCROLL_BARS (f) = 1; - - f->terminal = dpyinfo->terminal; - f->terminal->reference_count++; - - f->output_method = output_mac; - f->output_data.mac = (struct mac_output *) xmalloc (sizeof (struct mac_output)); - bzero (f->output_data.mac, sizeof (struct mac_output)); - FRAME_FONTSET (f) = -1; - record_unwind_protect (unwind_create_frame, frame); - - f->icon_name - = mac_get_arg (parameters, Qicon_name, "iconName", "Title", RES_TYPE_STRING); - if (! STRINGP (f->icon_name)) - f->icon_name = Qnil; - - /* XXX Is this needed? */ - /*FRAME_MAC_DISPLAY_INFO (f) = dpyinfo;*/ - - /* With FRAME_MAC_DISPLAY_INFO set up, this unwind-protect is safe. */ -#if GLYPH_DEBUG - image_cache_refcount = FRAME_IMAGE_CACHE (f)->refcount; - dpyinfo_refcount = dpyinfo->reference_count; -#endif /* GLYPH_DEBUG */ - FRAME_KBOARD (f) = kb; - - /* Specify the parent under which to make this window. */ - - if (!NILP (parent)) - { - f->output_data.mac->parent_desc = (Window) XFASTINT (parent); - f->output_data.mac->explicit_parent = 1; - } - else - { - f->output_data.mac->parent_desc = FRAME_MAC_DISPLAY_INFO (f)->root_window; - f->output_data.mac->explicit_parent = 0; - } - - /* Set the name; the functions to which we pass f expect the name to - be set. */ - if (EQ (name, Qunbound) || NILP (name)) - { - f->name = build_string (dpyinfo->mac_id_name); - f->explicit_name = 0; - } - else - { - f->name = name; - f->explicit_name = 1; - /* use the frame's title when getting resources for this frame. */ - specbind (Qx_resource_name, name); - } - - /* Extract the window parameters from the supplied values - that are needed to determine window geometry. */ - { - Lisp_Object font; - - font = mac_get_arg (parameters, Qfont, "font", "Font", RES_TYPE_STRING); - - BLOCK_INPUT; - /* First, try whatever font the caller has specified. */ - if (STRINGP (font)) - { - tem = Fquery_fontset (font, Qnil); - if (STRINGP (tem)) - font = x_new_fontset (f, tem); - else - font = x_new_font (f, SDATA (font)); - } - /* Try out a font which we hope has bold and italic variations. */ -#if USE_ATSUI - if (! STRINGP (font)) - font = x_new_font (f, "-*-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1"); -#endif - if (! STRINGP (font)) - font = x_new_font (f, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1"); - /* If those didn't work, look for something which will at least work. */ - if (! STRINGP (font)) - font = x_new_fontset (f, build_string ("fontset-standard")); - if (! STRINGP (font)) - font = x_new_font (f, "-*-monaco-*-12-*-mac-roman"); - if (! STRINGP (font)) - font = x_new_font (f, "-*-courier-*-10-*-mac-roman"); - if (! STRINGP (font)) - error ("Cannot find any usable font"); - UNBLOCK_INPUT; - - x_default_parameter (f, parameters, Qfont, font, - "font", "Font", RES_TYPE_STRING); - } - - /* XXX Shouldn't this be borderWidth, not borderwidth ?*/ - x_default_parameter (f, parameters, Qborder_width, make_number (0), - "borderwidth", "BorderWidth", RES_TYPE_NUMBER); - /* This defaults to 2 in order to match xterm. We recognize either - internalBorderWidth or internalBorder (which is what xterm calls - it). */ - if (NILP (Fassq (Qinternal_border_width, parameters))) - { - Lisp_Object value; - - value = mac_get_arg (parameters, Qinternal_border_width, - "internalBorder", "InternalBorder", RES_TYPE_NUMBER); - if (! EQ (value, Qunbound)) - parameters = Fcons (Fcons (Qinternal_border_width, value), - parameters); - } - /* Default internalBorderWidth to 0 on Windows to match other programs. */ - x_default_parameter (f, parameters, Qinternal_border_width, make_number (0), - "internalBorderWidth", "InternalBorder", RES_TYPE_NUMBER); - x_default_parameter (f, parameters, Qvertical_scroll_bars, Qright, - "verticalScrollBars", "ScrollBars", RES_TYPE_SYMBOL); - - /* Also do the stuff which must be set before the window exists. */ - x_default_parameter (f, parameters, Qforeground_color, build_string ("black"), - "foreground", "Foreground", RES_TYPE_STRING); - x_default_parameter (f, parameters, Qbackground_color, build_string ("white"), - "background", "Background", RES_TYPE_STRING); - x_default_parameter (f, parameters, Qmouse_color, build_string ("black"), - "pointerColor", "Foreground", RES_TYPE_STRING); - x_default_parameter (f, parameters, Qcursor_color, build_string ("black"), - "cursorColor", "Foreground", RES_TYPE_STRING); - x_default_parameter (f, parameters, Qborder_color, build_string ("black"), - "borderColor", "BorderColor", RES_TYPE_STRING); - x_default_parameter (f, parameters, Qscreen_gamma, Qnil, - "screenGamma", "ScreenGamma", RES_TYPE_FLOAT); - x_default_parameter (f, parameters, Qline_spacing, Qnil, - "lineSpacing", "LineSpacing", RES_TYPE_NUMBER); - x_default_parameter (f, parameters, Qleft_fringe, Qnil, - "leftFringe", "LeftFringe", RES_TYPE_NUMBER); - x_default_parameter (f, parameters, Qright_fringe, Qnil, - "rightFringe", "RightFringe", RES_TYPE_NUMBER); - - - /* Init faces before x_default_parameter is called for scroll-bar - parameters because that function calls x_set_scroll_bar_width, - which calls change_frame_size, which calls Fset_window_buffer, - which runs hooks, which call Fvertical_motion. At the end, we - end up in init_iterator with a null face cache, which should not - happen. */ - init_frame_faces (f); - - x_default_parameter (f, parameters, Qmenu_bar_lines, make_number (1), - "menuBar", "MenuBar", RES_TYPE_NUMBER); - x_default_parameter (f, parameters, Qtool_bar_lines, make_number (1), - "toolBar", "ToolBar", RES_TYPE_NUMBER); - - x_default_parameter (f, parameters, Qbuffer_predicate, Qnil, - "bufferPredicate", "BufferPredicate", RES_TYPE_SYMBOL); - x_default_parameter (f, parameters, Qtitle, Qnil, - "title", "Title", RES_TYPE_STRING); - x_default_parameter (f, parameters, Qfullscreen, Qnil, - "fullscreen", "Fullscreen", RES_TYPE_SYMBOL); - - f->output_data.mac->parent_desc = FRAME_MAC_DISPLAY_INFO (f)->root_window; - - /* Compute the size of the window. */ - window_prompting = x_figure_window_size (f, parameters, 1); - - tem = mac_get_arg (parameters, Qunsplittable, 0, 0, RES_TYPE_BOOLEAN); - f->no_split = minibuffer_only || EQ (tem, Qt); - - mac_window (f); - x_icon (f, parameters); - - x_make_gc (f); - - /* Now consider the frame official. */ - FRAME_MAC_DISPLAY_INFO (f)->reference_count++; - Vframe_list = Fcons (frame, Vframe_list); - - /* We need to do this after creating the window, so that the - icon-creation functions can say whose icon they're describing. */ - x_default_parameter (f, parameters, Qicon_type, Qnil, - "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL); - - x_default_parameter (f, parameters, Qauto_raise, Qnil, - "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN); - x_default_parameter (f, parameters, Qauto_lower, Qnil, - "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN); - x_default_parameter (f, parameters, Qcursor_type, Qbox, - "cursorType", "CursorType", RES_TYPE_SYMBOL); - x_default_parameter (f, parameters, Qscroll_bar_width, Qnil, - "scrollBarWidth", "ScrollBarWidth", RES_TYPE_NUMBER); - - /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size. - Change will not be effected unless different from the current - FRAME_LINES (f). */ - width = FRAME_COLS (f); - height = FRAME_LINES (f); - - FRAME_LINES (f) = 0; - SET_FRAME_COLS (f, 0); - change_frame_size (f, height, width, 1, 0, 0); - - /* Tell the server what size and position, etc, we want, and how - badly we want them. This should be done after we have the menu - bar so that its size can be taken into account. */ - BLOCK_INPUT; - x_wm_set_size_hint (f, window_prompting, 0); - UNBLOCK_INPUT; - - /* Make the window appear on the frame and enable display, unless - the caller says not to. However, with explicit parent, Emacs - cannot control visibility, so don't try. */ - if (! f->output_data.mac->explicit_parent) - { - Lisp_Object visibility; - - visibility = mac_get_arg (parameters, Qvisibility, 0, 0, RES_TYPE_SYMBOL); - if (EQ (visibility, Qunbound)) - visibility = Qt; - - if (EQ (visibility, Qicon)) - x_iconify_frame (f); - else if (! NILP (visibility)) - x_make_frame_visible (f); - else - /* Must have been Qnil. */ - ; - } - - /* Initialize `default-minibuffer-frame' in case this is the first - frame on this display device. */ - if (FRAME_HAS_MINIBUF_P (f) - && (!FRAMEP (kb->Vdefault_minibuffer_frame) - || !FRAME_LIVE_P (XFRAME (kb->Vdefault_minibuffer_frame)))) - kb->Vdefault_minibuffer_frame = frame; - - /* All remaining specified parameters, which have not been "used" - by x_get_arg and friends, now go in the misc. alist of the frame. */ - for (tem = parameters; CONSP (tem); tem = XCDR (tem)) - if (CONSP (XCAR (tem)) && !NILP (XCAR (XCAR (tem)))) - f->param_alist = Fcons (XCAR (tem), f->param_alist); - - UNGCPRO; - - /* Make sure windows on this frame appear in calls to next-window - and similar functions. */ - Vwindow_list = Qnil; - - return unbind_to (count, frame); -} - - -/* FRAME is used only to get a handle on the X display. We don't pass the - display info directly because we're called from frame.c, which doesn't - know about that structure. */ - -Lisp_Object -x_get_focus_frame (frame) - struct frame *frame; -{ - struct mac_display_info *dpyinfo = FRAME_MAC_DISPLAY_INFO (frame); - Lisp_Object xfocus; - if (! dpyinfo->x_focus_frame) - return Qnil; - - XSETFRAME (xfocus, dpyinfo->x_focus_frame); - return xfocus; -} - - -DEFUN ("x-focus-frame", Fx_focus_frame, Sx_focus_frame, 1, 1, 0, - doc: /* Set the input focus to FRAME. -FRAME nil means use the selected frame. */) - (frame) - Lisp_Object frame; -{ - OSErr err; - ProcessSerialNumber front_psn; - static const ProcessSerialNumber current_psn = {0, kCurrentProcess}; - Boolean front_p; - struct frame *f = check_x_frame (frame); - - BLOCK_INPUT; - /* Move the current process to the foreground if it is not. Don't - call SetFrontProcess if the current process is already running in - the foreground so as not to change the z-order of windows. */ - err = GetFrontProcess (&front_psn); - if (err == noErr) - err = SameProcess (&front_psn, ¤t_psn, &front_p); - if (err == noErr) - if (!front_p) - { -#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020 - if (mac_front_non_floating_window () == FRAME_MAC_WINDOW (f)) - SetFrontProcessWithOptions (¤t_psn, - kSetFrontProcessFrontWindowOnly); - else -#endif - SetFrontProcess (¤t_psn); - } - -#ifdef MAC_OSX - mac_activate_window (mac_active_non_floating_window (), false); - mac_activate_window (FRAME_MAC_WINDOW (f), true); -#else -#if !TARGET_API_MAC_CARBON - /* SelectWindow (Non-Carbon) does not issue deactivate events if the - possibly inactive window that is to be selected is already the - frontmost one. */ - SendBehind (FRAME_MAC_WINDOW (f), NULL); -#endif - /* This brings the window to the front. */ - SelectWindow (FRAME_MAC_WINDOW (f)); -#endif - UNBLOCK_INPUT; - - return Qnil; -} - - -DEFUN ("xw-color-defined-p", Fxw_color_defined_p, Sxw_color_defined_p, 1, 2, 0, - doc: /* Internal function called by `color-defined-p', which see. */) - (color, frame) - Lisp_Object color, frame; -{ - XColor foo; - FRAME_PTR f = check_x_frame (frame); - - CHECK_STRING (color); - - if (mac_defined_color (f, SDATA (color), &foo, 0)) - return Qt; - else - return Qnil; -} - -DEFUN ("xw-color-values", Fxw_color_values, Sxw_color_values, 1, 2, 0, - doc: /* Internal function called by `color-values', which see. */) - (color, frame) - Lisp_Object color, frame; -{ - XColor foo; - FRAME_PTR f = check_x_frame (frame); - - CHECK_STRING (color); - - if (mac_defined_color (f, SDATA (color), &foo, 0)) - return list3 (make_number (foo.red), - make_number (foo.green), - make_number (foo.blue)); - else - return Qnil; -} - -DEFUN ("xw-display-color-p", Fxw_display_color_p, Sxw_display_color_p, 0, 1, 0, - doc: /* Internal function called by `display-color-p', which see. */) - (display) - Lisp_Object display; -{ - struct mac_display_info *dpyinfo = check_x_display_info (display); - - if (!dpyinfo->color_p) - return Qnil; - - return Qt; -} - -DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p, Sx_display_grayscale_p, - 0, 1, 0, - doc: /* Return t if DISPLAY supports shades of gray. -Note that color displays do support shades of gray. -The optional argument DISPLAY specifies which display to ask about. -DISPLAY should be either a frame or a display name (a string). -If omitted or nil, that stands for the selected frame's display. */) - (display) - Lisp_Object display; -{ - struct mac_display_info *dpyinfo = check_x_display_info (display); - - if (dpyinfo->n_planes <= 1) - return Qnil; - - return Qt; -} - -DEFUN ("x-display-pixel-width", Fx_display_pixel_width, Sx_display_pixel_width, - 0, 1, 0, - doc: /* Return the width in pixels of DISPLAY. -The optional argument DISPLAY specifies which display to ask about. -DISPLAY should be either a frame or a display name (a string). -If omitted or nil, that stands for the selected frame's display. */) - (display) - Lisp_Object display; -{ - struct mac_display_info *dpyinfo = check_x_display_info (display); - - return make_number (dpyinfo->width); -} - -DEFUN ("x-display-pixel-height", Fx_display_pixel_height, - Sx_display_pixel_height, 0, 1, 0, - doc: /* Return the height in pixels of DISPLAY. -The optional argument DISPLAY specifies which display to ask about. -DISPLAY should be either a frame or a display name (a string). -If omitted or nil, that stands for the selected frame's display. */) - (display) - Lisp_Object display; -{ - struct mac_display_info *dpyinfo = check_x_display_info (display); - - return make_number (dpyinfo->height); -} - -DEFUN ("x-display-planes", Fx_display_planes, Sx_display_planes, - 0, 1, 0, - doc: /* Return the number of bitplanes of DISPLAY. -The optional argument DISPLAY specifies which display to ask about. -DISPLAY should be either a frame or a display name (a string). -If omitted or nil, that stands for the selected frame's display. */) - (display) - Lisp_Object display; -{ - struct mac_display_info *dpyinfo = check_x_display_info (display); - - return make_number (dpyinfo->n_planes); -} - -DEFUN ("x-display-color-cells", Fx_display_color_cells, Sx_display_color_cells, - 0, 1, 0, - doc: /* Return the number of color cells of DISPLAY. -The optional argument DISPLAY specifies which display to ask about. -DISPLAY should be either a frame or a display name (a string). -If omitted or nil, that stands for the selected frame's display. */) - (display) - Lisp_Object display; -{ - struct mac_display_info *dpyinfo = check_x_display_info (display); - - /* We force 24+ bit depths to 24-bit to prevent an overflow. */ - return make_number (1 << min (dpyinfo->n_planes, 24)); -} - -DEFUN ("x-server-max-request-size", Fx_server_max_request_size, - Sx_server_max_request_size, - 0, 1, 0, - doc: /* Return the maximum request size of the server of DISPLAY. -The optional argument DISPLAY specifies which display to ask about. -DISPLAY should be either a frame or a display name (a string). -If omitted or nil, that stands for the selected frame's display. */) - (display) - Lisp_Object display; -{ - struct mac_display_info *dpyinfo = check_x_display_info (display); - - return make_number (1); -} - -DEFUN ("x-server-vendor", Fx_server_vendor, Sx_server_vendor, 0, 1, 0, - doc: /* Return the "vendor ID" string of the Mac OS system (Apple). -The optional argument DISPLAY specifies which display to ask about. -DISPLAY should be either a frame or a display name (a string). -If omitted or nil, that stands for the selected frame's display. */) - (display) - Lisp_Object display; -{ - return build_string ("Apple Inc."); -} - -DEFUN ("x-server-version", Fx_server_version, Sx_server_version, 0, 1, 0, - doc: /* Return the version numbers of the Mac OS system. -The value is a list of three integers: the major and minor -version numbers, and the vendor-specific release -number. See also the function `x-server-vendor'. - -The optional argument DISPLAY specifies which display to ask about. -DISPLAY should be either a frame or a display name (a string). -If omitted or nil, that stands for the selected frame's display. */) - (display) - Lisp_Object display; -{ - UInt32 response, major, minor, bugfix; - OSErr err; - - BLOCK_INPUT; - err = Gestalt (gestaltSystemVersion, &response); - if (err == noErr) - { - if (response >= 0x00001040) - { - err = Gestalt ('sys1', &major); - if (err == noErr) - err = Gestalt ('sys2', &minor); - if (err == noErr) - err = Gestalt ('sys3', &bugfix); - } - else - { - bugfix = response & 0xf; - response >>= 4; - minor = response & 0xf; - response >>= 4; - /* convert BCD to int */ - major = response - (response >> 4) * 6; - } - } - UNBLOCK_INPUT; - - if (err != noErr) - error ("Cannot get Mac OS version"); - - return Fcons (make_number (major), - Fcons (make_number (minor), - Fcons (make_number (bugfix), - Qnil))); -} - -DEFUN ("x-display-screens", Fx_display_screens, Sx_display_screens, 0, 1, 0, - doc: /* Return the number of screens on the server of DISPLAY. -The optional argument DISPLAY specifies which display to ask about. -DISPLAY should be either a frame or a display name (a string). -If omitted or nil, that stands for the selected frame's display. */) - (display) - Lisp_Object display; -{ - return make_number (1); -} - -DEFUN ("x-display-mm-height", Fx_display_mm_height, Sx_display_mm_height, 0, 1, 0, - doc: /* Return the height in millimeters of DISPLAY. -The optional argument DISPLAY specifies which display to ask about. -DISPLAY should be either a frame or a display name (a string). -If omitted or nil, that stands for the selected frame's display. */) - (display) - Lisp_Object display; -{ - struct mac_display_info *dpyinfo = check_x_display_info (display); - float mm_per_pixel; - -#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 -#if MAC_OS_X_VERSION_MIN_REQUIRED == 1020 - if (CGDisplayScreenSize != NULL) -#endif - { - CGSize size; - - BLOCK_INPUT; - size = CGDisplayScreenSize (kCGDirectMainDisplay); - mm_per_pixel = size.height / CGDisplayPixelsHigh (kCGDirectMainDisplay); - UNBLOCK_INPUT; - } -#if MAC_OS_X_VERSION_MIN_REQUIRED == 1020 - else /* CGDisplayScreenSize == NULL */ -#endif -#endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 */ -#if MAC_OS_X_VERSION_MAX_ALLOWED < 1030 || MAC_OS_X_VERSION_MIN_REQUIRED == 1020 - { - /* This is an approximation. */ - mm_per_pixel = 25.4f / dpyinfo->resy; - } -#endif - - return make_number ((int) (dpyinfo->height * mm_per_pixel + 0.5f)); -} - -DEFUN ("x-display-mm-width", Fx_display_mm_width, Sx_display_mm_width, 0, 1, 0, - doc: /* Return the width in millimeters of DISPLAY. -The optional argument DISPLAY specifies which display to ask about. -DISPLAY should be either a frame or a display name (a string). -If omitted or nil, that stands for the selected frame's display. */) - (display) - Lisp_Object display; -{ - struct mac_display_info *dpyinfo = check_x_display_info (display); - float mm_per_pixel; - -#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 -#if MAC_OS_X_VERSION_MIN_REQUIRED == 1020 - if (CGDisplayScreenSize != NULL) -#endif - { - CGSize size; - - BLOCK_INPUT; - size = CGDisplayScreenSize (kCGDirectMainDisplay); - mm_per_pixel = size.width / CGDisplayPixelsWide (kCGDirectMainDisplay); - UNBLOCK_INPUT; - } -#if MAC_OS_X_VERSION_MIN_REQUIRED == 1020 - else /* CGDisplayScreenSize == NULL */ -#endif -#endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 */ -#if MAC_OS_X_VERSION_MAX_ALLOWED < 1030 || MAC_OS_X_VERSION_MIN_REQUIRED == 1020 - { - /* This is an approximation. */ - mm_per_pixel = 25.4f / dpyinfo->resx; - } -#endif - - return make_number ((int) (dpyinfo->width * mm_per_pixel + 0.5f)); -} - -DEFUN ("x-display-backing-store", Fx_display_backing_store, - Sx_display_backing_store, 0, 1, 0, - doc: /* Return an indication of whether DISPLAY does backing store. -The value may be `always', `when-mapped', or `not-useful'. -The optional argument DISPLAY specifies which display to ask about. -DISPLAY should be either a frame or a display name (a string). -If omitted or nil, that stands for the selected frame's display. */) - (display) - Lisp_Object display; -{ - return intern ("not-useful"); -} - -DEFUN ("x-display-visual-class", Fx_display_visual_class, - Sx_display_visual_class, 0, 1, 0, - doc: /* Return the visual class of DISPLAY. -The value is one of the symbols `static-gray', `gray-scale', -`static-color', `pseudo-color', `true-color', or `direct-color'. - -The optional argument DISPLAY specifies which display to ask about. -DISPLAY should be either a frame or a display name (a string). -If omitted or nil, that stands for the selected frame's display. */) - (display) - Lisp_Object display; -{ - struct mac_display_info *dpyinfo = check_x_display_info (display); - -#if 0 - switch (dpyinfo->visual->class) - { - case StaticGray: return (intern ("static-gray")); - case GrayScale: return (intern ("gray-scale")); - case StaticColor: return (intern ("static-color")); - case PseudoColor: return (intern ("pseudo-color")); - case TrueColor: return (intern ("true-color")); - case DirectColor: return (intern ("direct-color")); - default: - error ("Display has an unknown visual class"); - } -#endif /* 0 */ - - return (intern ("true-color")); -} - -DEFUN ("x-display-save-under", Fx_display_save_under, - Sx_display_save_under, 0, 1, 0, - doc: /* Return t if DISPLAY supports the save-under feature. -The optional argument DISPLAY specifies which display to ask about. -DISPLAY should be either a frame or a display name (a string). -If omitted or nil, that stands for the selected frame's display. */) - (display) - Lisp_Object display; -{ - return Qnil; -} - -int -x_pixel_width (f) - register struct frame *f; -{ - return FRAME_PIXEL_WIDTH (f); -} - -int -x_pixel_height (f) - register struct frame *f; -{ - return FRAME_PIXEL_HEIGHT (f); -} - -int -x_char_width (f) - register struct frame *f; -{ - return FRAME_COLUMN_WIDTH (f); -} - -int -x_char_height (f) - register struct frame *f; -{ - return FRAME_LINE_HEIGHT (f); -} - -int -x_screen_planes (f) - register struct frame *f; -{ - return FRAME_MAC_DISPLAY_INFO (f)->n_planes; -} - -/* Return the display structure for the display named NAME. - Open a new connection if necessary. */ - -struct mac_display_info * -x_display_info_for_name (name) - Lisp_Object name; -{ - Lisp_Object names; - struct mac_display_info *dpyinfo; - - CHECK_STRING (name); - - for (dpyinfo = &one_mac_display_info, names = x_display_name_list; - dpyinfo; - dpyinfo = dpyinfo->next, names = XCDR (names)) - { - Lisp_Object tem; - tem = Fstring_equal (XCAR (XCAR (names)), name); - if (!NILP (tem)) - return dpyinfo; - } - - /* Use this general default value to start with. */ - Vx_resource_name = Vinvocation_name; - - validate_x_resource_name (); - - dpyinfo = mac_term_init (name, (unsigned char *) 0, - (char *) SDATA (Vx_resource_name)); - - if (dpyinfo == 0) - error ("Cannot connect to server %s", SDATA (name)); - - mac_in_use = 1; - XSETFASTINT (Vwindow_system_version, 3); - - return dpyinfo; -} - -DEFUN ("x-open-connection", Fx_open_connection, Sx_open_connection, - 1, 3, 0, - doc: /* Open a connection to a server. -DISPLAY is the name of the display to connect to. -Optional second arg XRM-STRING is a string of resources in xrdb format. -If the optional third arg MUST-SUCCEED is non-nil, -terminate Emacs if we can't open the connection. */) - (display, xrm_string, must_succeed) - Lisp_Object display, xrm_string, must_succeed; -{ - unsigned char *xrm_option; - struct mac_display_info *dpyinfo; - - CHECK_STRING (display); - if (! NILP (xrm_string)) - CHECK_STRING (xrm_string); - - if (! NILP (xrm_string)) - xrm_option = (unsigned char *) SDATA (xrm_string); - else - xrm_option = (unsigned char *) 0; - - validate_x_resource_name (); - - /* This is what opens the connection and sets x_current_display. - This also initializes many symbols, such as those used for input. */ - dpyinfo = mac_term_init (display, xrm_option, - (char *) SDATA (Vx_resource_name)); - - if (dpyinfo == 0) - { - if (!NILP (must_succeed)) - fatal ("Cannot connect to server %s.\n", - SDATA (display)); - else - error ("Cannot connect to server %s", SDATA (display)); - } - - mac_in_use = 1; - - XSETFASTINT (Vwindow_system_version, 3); - return Qnil; -} - -DEFUN ("x-close-connection", Fx_close_connection, - Sx_close_connection, 1, 1, 0, - doc: /* Close the connection to DISPLAY's server. -For DISPLAY, specify either a frame or a display name (a string). -If DISPLAY is nil, that stands for the selected frame's display. */) - (display) - Lisp_Object display; -{ - struct mac_display_info *dpyinfo = check_x_display_info (display); - int i; - - if (dpyinfo->reference_count > 0) - error ("Display still has frames on it"); - - BLOCK_INPUT; - /* Free the fonts in the font table. */ - for (i = 0; i < dpyinfo->n_fonts; i++) - if (dpyinfo->font_table[i].name) - { - mac_unload_font (dpyinfo, dpyinfo->font_table[i].font); - } - - x_destroy_all_bitmaps (dpyinfo); - - x_delete_display (dpyinfo); - UNBLOCK_INPUT; - - return Qnil; -} - -DEFUN ("x-display-list", Fx_display_list, Sx_display_list, 0, 0, 0, - doc: /* Return the list of display names that Emacs has connections to. */) - () -{ - Lisp_Object tail, result; - - result = Qnil; - for (tail = x_display_name_list; CONSP (tail); tail = XCDR (tail)) - result = Fcons (XCAR (XCAR (tail)), result); - - return result; -} - -DEFUN ("x-synchronize", Fx_synchronize, Sx_synchronize, 1, 2, 0, - doc: /* This is a noop on Mac OS systems. */) - (on, display) - Lisp_Object display, on; -{ - return Qnil; -} - -/* x_sync is a no-op on Mac. */ - -void -x_sync (f) - FRAME_PTR f; -{ -} - - -/*********************************************************************** - Window properties - ***********************************************************************/ - -DEFUN ("x-change-window-property", Fx_change_window_property, - Sx_change_window_property, 2, 6, 0, - doc: /* Change window property PROP to VALUE on the X window of FRAME. -VALUE may be a string or a list of conses, numbers and/or strings. -If an element in the list is a string, it is converted to -an Atom and the value of the Atom is used. If an element is a cons, -it is converted to a 32 bit number where the car is the 16 top bits and the -cdr is the lower 16 bits. -FRAME nil or omitted means use the selected frame. -If TYPE is given and non-nil, it is the name of the type of VALUE. -If TYPE is not given or nil, the type is STRING. -FORMAT gives the size in bits of each element if VALUE is a list. -It must be one of 8, 16 or 32. -If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8. -If OUTER_P is non-nil, the property is changed for the outer X window of -FRAME. Default is to change on the edit X window. - -Value is VALUE. */) - (prop, value, frame, type, format, outer_p) - Lisp_Object prop, value, frame, type, format, outer_p; -{ -#if 0 /* MAC_TODO : port window properties to Mac */ - struct frame *f = check_x_frame (frame); - Atom prop_atom; - - CHECK_STRING (prop); - CHECK_STRING (value); - - BLOCK_INPUT; - prop_atom = XInternAtom (FRAME_W32_DISPLAY (f), SDATA (prop), False); - XChangeProperty (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f), - prop_atom, XA_STRING, 8, PropModeReplace, - SDATA (value), SCHARS (value)); - - /* Make sure the property is set when we return. */ - XFlush (FRAME_W32_DISPLAY (f)); - UNBLOCK_INPUT; - -#endif /* MAC_TODO */ - - return value; -} - - -DEFUN ("x-delete-window-property", Fx_delete_window_property, - Sx_delete_window_property, 1, 2, 0, - doc: /* Remove window property PROP from X window of FRAME. -FRAME nil or omitted means use the selected frame. Value is PROP. */) - (prop, frame) - Lisp_Object prop, frame; -{ -#if 0 /* MAC_TODO : port window properties to Mac */ - - struct frame *f = check_x_frame (frame); - Atom prop_atom; - - CHECK_STRING (prop); - BLOCK_INPUT; - prop_atom = XInternAtom (FRAME_W32_DISPLAY (f), SDATA (prop), False); - XDeleteProperty (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f), prop_atom); - - /* Make sure the property is removed when we return. */ - XFlush (FRAME_W32_DISPLAY (f)); - UNBLOCK_INPUT; -#endif /* MAC_TODO */ - - return prop; -} - - -DEFUN ("x-window-property", Fx_window_property, Sx_window_property, - 1, 2, 0, - doc: /* Value is the value of window property PROP on FRAME. -If FRAME is nil or omitted, use the selected frame. Value is nil -if FRAME hasn't a property with name PROP or if PROP has no string -value. */) - (prop, frame) - Lisp_Object prop, frame; -{ -#if 0 /* MAC_TODO : port window properties to Mac */ - - struct frame *f = check_x_frame (frame); - Atom prop_atom; - int rc; - Lisp_Object prop_value = Qnil; - char *tmp_data = NULL; - Atom actual_type; - int actual_format; - unsigned long actual_size, bytes_remaining; - - CHECK_STRING (prop); - BLOCK_INPUT; - prop_atom = XInternAtom (FRAME_W32_DISPLAY (f), SDATA (prop), False); - rc = XGetWindowProperty (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f), - prop_atom, 0, 0, False, XA_STRING, - &actual_type, &actual_format, &actual_size, - &bytes_remaining, (unsigned char **) &tmp_data); - if (rc == Success) - { - int size = bytes_remaining; - - XFree (tmp_data); - tmp_data = NULL; - - rc = XGetWindowProperty (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f), - prop_atom, 0, bytes_remaining, - False, XA_STRING, - &actual_type, &actual_format, - &actual_size, &bytes_remaining, - (unsigned char **) &tmp_data); - if (rc == Success) - prop_value = make_string (tmp_data, size); - - XFree (tmp_data); - } - - UNBLOCK_INPUT; - - return prop_value; - -#endif /* MAC_TODO */ - return Qnil; -} - - - -/*********************************************************************** - Busy cursor - ***********************************************************************/ - -/* Timer function of hourglass_atimer. TIMER is equal to - hourglass_atimer. - - On Mac, busy status is shown by the progress indicator (chasing - arrows) at the upper-right corner of each frame instead of the - hourglass pointer. */ - -void -show_hourglass (timer) - struct atimer *timer; -{ -#if TARGET_API_MAC_CARBON - /* The timer implementation will cancel this timer automatically - after this function has run. Set hourglass_atimer to null - so that we know the timer doesn't have to be canceled. */ - hourglass_atimer = NULL; - - if (!hourglass_shown_p) - { - Lisp_Object rest, frame; - - BLOCK_INPUT; - - FOR_EACH_FRAME (rest, frame) - { - struct frame *f = XFRAME (frame); - - if (FRAME_LIVE_P (f) && FRAME_MAC_P (f) - && FRAME_MAC_WINDOW (f) != tip_window) - mac_show_hourglass (f); - } - - hourglass_shown_p = 1; - UNBLOCK_INPUT; - } -#endif /* TARGET_API_MAC_CARBON */ -} - - -/* Hide the progress indicators on all frames, if it is currently - shown. */ - -void -hide_hourglass () -{ -#if TARGET_API_MAC_CARBON - if (hourglass_shown_p) - { - Lisp_Object rest, frame; - - BLOCK_INPUT; - FOR_EACH_FRAME (rest, frame) - { - struct frame *f = XFRAME (frame); - - if (FRAME_MAC_P (f)) - mac_hide_hourglass (f); - } - - hourglass_shown_p = 0; - UNBLOCK_INPUT; - } -#endif /* TARGET_API_MAC_CARBON */ -} - - - -/*********************************************************************** - Tool tips - ***********************************************************************/ - -static Lisp_Object x_create_tip_frame P_ ((struct mac_display_info *, - Lisp_Object, Lisp_Object)); -static void compute_tip_xy P_ ((struct frame *, Lisp_Object, Lisp_Object, - Lisp_Object, int, int, int *, int *)); - -/* The frame of a currently visible tooltip. */ - -Lisp_Object tip_frame; - -/* If non-nil, a timer started that hides the last tooltip when it - fires. */ - -Lisp_Object tip_timer; -Window tip_window; - -/* If non-nil, a vector of 3 elements containing the last args - with which x-show-tip was called. See there. */ - -Lisp_Object last_show_tip_args; - -/* Maximum size for tooltips; a cons (COLUMNS . ROWS). */ - -Lisp_Object Vx_max_tooltip_size; - - -static Lisp_Object -unwind_create_tip_frame (frame) - Lisp_Object frame; -{ - Lisp_Object deleted; - - deleted = unwind_create_frame (frame); - if (EQ (deleted, Qt)) - { - tip_window = NULL; - tip_frame = Qnil; - } - - return deleted; -} - - -/* Create a frame for a tooltip on the display described by DPYINFO. - PARMS is a list of frame parameters. TEXT is the string to - display in the tip frame. Value is the frame. - - Note that functions called here, esp. x_default_parameter can - signal errors, for instance when a specified color name is - undefined. We have to make sure that we're in a consistent state - when this happens. */ - -static Lisp_Object -x_create_tip_frame (dpyinfo, parms, text) - struct mac_display_info *dpyinfo; - Lisp_Object parms, text; -{ - struct frame *f; - Lisp_Object frame, tem; - Lisp_Object name; - long window_prompting = 0; - int width, height; - int count = SPECPDL_INDEX (); - struct gcpro gcpro1, gcpro2, gcpro3; - struct kboard *kb; - int face_change_count_before = face_change_count; - Lisp_Object buffer; - struct buffer *old_buffer; - - check_mac (); - - parms = Fcopy_alist (parms); - - kb = dpyinfo->terminal->kboard; - - /* Get the name of the frame to use for resource lookup. */ - name = mac_get_arg (parms, Qname, "name", "Name", RES_TYPE_STRING); - if (!STRINGP (name) - && !EQ (name, Qunbound) - && !NILP (name)) - error ("Invalid frame name--not a string or nil"); - - frame = Qnil; - GCPRO3 (parms, name, frame); - f = make_frame (1); - XSETFRAME (frame, f); - - buffer = Fget_buffer_create (build_string (" *tip*")); - Fset_window_buffer (FRAME_ROOT_WINDOW (f), buffer, Qnil); - old_buffer = current_buffer; - set_buffer_internal_1 (XBUFFER (buffer)); - current_buffer->truncate_lines = Qnil; - specbind (Qinhibit_read_only, Qt); - specbind (Qinhibit_modification_hooks, Qt); - Ferase_buffer (); - Finsert (1, &text); - set_buffer_internal_1 (old_buffer); - - FRAME_CAN_HAVE_SCROLL_BARS (f) = 0; - record_unwind_protect (unwind_create_tip_frame, frame); - - /* By setting the output method, we're essentially saying that - the frame is live, as per FRAME_LIVE_P. If we get a signal - from this point on, x_destroy_window might screw up reference - counts etc. */ - f->terminal = dpyinfo->terminal; - f->terminal->reference_count++; - f->output_method = output_mac; - f->output_data.mac = - (struct mac_output *) xmalloc (sizeof (struct mac_output)); - bzero (f->output_data.mac, sizeof (struct mac_output)); - - FRAME_FONTSET (f) = -1; - f->icon_name = Qnil; -/* FRAME_X_DISPLAY_INFO (f) = dpyinfo; */ -#if GLYPH_DEBUG - image_cache_refcount = FRAME_IMAGE_CACHE (f)->refcount; - dpyinfo_refcount = dpyinfo->reference_count; -#endif /* GLYPH_DEBUG */ - FRAME_KBOARD (f) = kb; - f->output_data.mac->parent_desc = FRAME_MAC_DISPLAY_INFO (f)->root_window; - f->output_data.mac->explicit_parent = 0; - - /* Set the name; the functions to which we pass f expect the name to - be set. */ - if (EQ (name, Qunbound) || NILP (name)) - { - f->name = build_string (dpyinfo->mac_id_name); - f->explicit_name = 0; - } - else - { - f->name = name; - f->explicit_name = 1; - /* use the frame's title when getting resources for this frame. */ - specbind (Qx_resource_name, name); - } - - /* Extract the window parameters from the supplied values that are - needed to determine window geometry. */ - { - Lisp_Object font; - - font = mac_get_arg (parms, Qfont, "font", "Font", RES_TYPE_STRING); - - BLOCK_INPUT; - /* First, try whatever font the caller has specified. */ - if (STRINGP (font)) - { - tem = Fquery_fontset (font, Qnil); - if (STRINGP (tem)) - font = x_new_fontset (f, tem); - else - font = x_new_font (f, SDATA (font)); - } - - /* Try out a font which we hope has bold and italic variations. */ -#if USE_ATSUI - if (! STRINGP (font)) - font = x_new_font (f, "-*-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1"); -#endif - if (! STRINGP (font)) - font = x_new_font (f, "-ETL-fixed-medium-r-*--*-160-*-*-*-*-iso8859-1"); - /* If those didn't work, look for something which will at least work. */ - if (! STRINGP (font)) - font = x_new_fontset (f, build_string ("fontset-standard")); - if (! STRINGP (font)) - font = x_new_font (f, "-*-monaco-*-12-*-mac-roman"); - if (! STRINGP (font)) - font = x_new_font (f, "-*-courier-*-10-*-mac-roman"); - UNBLOCK_INPUT; - if (! STRINGP (font)) - error ("Cannot find any usable font"); - - x_default_parameter (f, parms, Qfont, font, - "font", "Font", RES_TYPE_STRING); - } - - x_default_parameter (f, parms, Qborder_width, make_number (2), - "borderWidth", "BorderWidth", RES_TYPE_NUMBER); - - /* This defaults to 2 in order to match xterm. We recognize either - internalBorderWidth or internalBorder (which is what xterm calls - it). */ - if (NILP (Fassq (Qinternal_border_width, parms))) - { - Lisp_Object value; - - value = mac_get_arg (parms, Qinternal_border_width, - "internalBorder", "internalBorder", RES_TYPE_NUMBER); - if (! EQ (value, Qunbound)) - parms = Fcons (Fcons (Qinternal_border_width, value), - parms); - } - - x_default_parameter (f, parms, Qinternal_border_width, make_number (1), - "internalBorderWidth", "internalBorderWidth", - RES_TYPE_NUMBER); - - /* Also do the stuff which must be set before the window exists. */ - x_default_parameter (f, parms, Qforeground_color, build_string ("black"), - "foreground", "Foreground", RES_TYPE_STRING); - x_default_parameter (f, parms, Qbackground_color, build_string ("white"), - "background", "Background", RES_TYPE_STRING); - x_default_parameter (f, parms, Qmouse_color, build_string ("black"), - "pointerColor", "Foreground", RES_TYPE_STRING); - x_default_parameter (f, parms, Qcursor_color, build_string ("black"), - "cursorColor", "Foreground", RES_TYPE_STRING); - x_default_parameter (f, parms, Qborder_color, build_string ("black"), - "borderColor", "BorderColor", RES_TYPE_STRING); - - /* Init faces before x_default_parameter is called for scroll-bar - parameters because that function calls x_set_scroll_bar_width, - which calls change_frame_size, which calls Fset_window_buffer, - which runs hooks, which call Fvertical_motion. At the end, we - end up in init_iterator with a null face cache, which should not - happen. */ - init_frame_faces (f); - - f->output_data.mac->parent_desc = FRAME_MAC_DISPLAY_INFO (f)->root_window; - - window_prompting = x_figure_window_size (f, parms, 0); - - BLOCK_INPUT; - - mac_create_frame_window (f, 1); - - if (FRAME_MAC_WINDOW (f)) - { - mac_set_frame_window_background (f, FRAME_BACKGROUND_PIXEL (f)); - tip_window = FRAME_MAC_WINDOW (f); - } - - UNBLOCK_INPUT; - - x_make_gc (f); - - x_default_parameter (f, parms, Qauto_raise, Qnil, - "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN); - x_default_parameter (f, parms, Qauto_lower, Qnil, - "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN); - x_default_parameter (f, parms, Qcursor_type, Qbox, - "cursorType", "CursorType", RES_TYPE_SYMBOL); - - /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size. - Change will not be effected unless different from the current - FRAME_LINES (f). */ - width = FRAME_COLS (f); - height = FRAME_LINES (f); - SET_FRAME_COLS (f, 0); - FRAME_LINES (f) = 0; - change_frame_size (f, height, width, 1, 0, 0); - - /* Add `tooltip' frame parameter's default value. */ - if (NILP (Fframe_parameter (frame, intern ("tooltip")))) - Fmodify_frame_parameters (frame, Fcons (Fcons (intern ("tooltip"), Qt), - Qnil)); - - /* Set up faces after all frame parameters are known. This call - also merges in face attributes specified for new frames. - - Frame parameters may be changed if .Xdefaults contains - specifications for the default font. For example, if there is an - `Emacs.default.attributeBackground: pink', the `background-color' - attribute of the frame get's set, which let's the internal border - of the tooltip frame appear in pink. Prevent this. */ - { - Lisp_Object bg = Fframe_parameter (frame, Qbackground_color); - - /* Set tip_frame here, so that */ - tip_frame = frame; - call2 (Qface_set_after_frame_default, frame, Qnil); - - if (!EQ (bg, Fframe_parameter (frame, Qbackground_color))) - Fmodify_frame_parameters (frame, Fcons (Fcons (Qbackground_color, bg), - Qnil)); - } - - f->no_split = 1; - - UNGCPRO; - - /* It is now ok to make the frame official even if we get an error - below. And the frame needs to be on Vframe_list or making it - visible won't work. */ - Vframe_list = Fcons (frame, Vframe_list); - - /* Now that the frame is official, it counts as a reference to - its display. */ - FRAME_MAC_DISPLAY_INFO (f)->reference_count++; - - /* Setting attributes of faces of the tooltip frame from resources - and similar will increment face_change_count, which leads to the - clearing of all current matrices. Since this isn't necessary - here, avoid it by resetting face_change_count to the value it - had before we created the tip frame. */ - face_change_count = face_change_count_before; - - /* Discard the unwind_protect. */ - return unbind_to (count, frame); -} - - -/* Compute where to display tip frame F. PARMS is the list of frame - parameters for F. DX and DY are specified offsets from the current - location of the mouse. WIDTH and HEIGHT are the width and height - of the tooltip. Return coordinates relative to the root window of - the display in *ROOT_X, and *ROOT_Y. */ - -static void -compute_tip_xy (f, parms, dx, dy, width, height, root_x, root_y) - struct frame *f; - Lisp_Object parms, dx, dy; - int width, height; - int *root_x, *root_y; -{ - Lisp_Object left, top; - - /* User-specified position? */ - left = Fcdr (Fassq (Qleft, parms)); - top = Fcdr (Fassq (Qtop, parms)); - - /* Move the tooltip window where the mouse pointer is. Resize and - show it. */ - if (!INTEGERP (left) || !INTEGERP (top)) - { - Point mouse_pos; - - BLOCK_INPUT; -#if TARGET_API_MAC_CARBON - mac_get_global_mouse (&mouse_pos); -#else - GetMouse (&mouse_pos); - LocalToGlobal (&mouse_pos); -#endif - *root_x = mouse_pos.h; - *root_y = mouse_pos.v; - UNBLOCK_INPUT; - } - - if (INTEGERP (top)) - *root_y = XINT (top); - else if (*root_y + XINT (dy) <= 0) - *root_y = 0; /* Can happen for negative dy */ - else if (*root_y + XINT (dy) + height <= FRAME_MAC_DISPLAY_INFO (f)->height) - /* It fits below the pointer */ - *root_y += XINT (dy); - else if (height + XINT (dy) <= *root_y) - /* It fits above the pointer. */ - *root_y -= height + XINT (dy); - else - /* Put it on the top. */ - *root_y = 0; - - if (INTEGERP (left)) - *root_x = XINT (left); - else if (*root_x + XINT (dx) <= 0) - *root_x = 0; /* Can happen for negative dx */ - else if (*root_x + XINT (dx) + width <= FRAME_MAC_DISPLAY_INFO (f)->width) - /* It fits to the right of the pointer. */ - *root_x += XINT (dx); - else if (width + XINT (dx) <= *root_x) - /* It fits to the left of the pointer. */ - *root_x -= width + XINT (dx); - else - /* Put it left-justified on the screen -- it ought to fit that way. */ - *root_x = 0; -} - - -DEFUN ("x-show-tip", Fx_show_tip, Sx_show_tip, 1, 6, 0, - doc: /* Show STRING in a "tooltip" window on frame FRAME. -A tooltip window is a small window displaying a string. - -This is an internal function; Lisp code should call `tooltip-show'. - -FRAME nil or omitted means use the selected frame. - -PARMS is an optional list of frame parameters which can be used to -change the tooltip's appearance. - -Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil -means use the default timeout of 5 seconds. - -If the list of frame parameters PARMS contains a `left' parameter, -the tooltip is displayed at that x-position. Otherwise it is -displayed at the mouse position, with offset DX added (default is 5 if -DX isn't specified). Likewise for the y-position; if a `top' frame -parameter is specified, it determines the y-position of the tooltip -window, otherwise it is displayed at the mouse position, with offset -DY added (default is -10). - -A tooltip's maximum size is specified by `x-max-tooltip-size'. -Text larger than the specified size is clipped. */) - (string, frame, parms, timeout, dx, dy) - Lisp_Object string, frame, parms, timeout, dx, dy; -{ - struct frame *f; - struct window *w; - int root_x, root_y; - struct buffer *old_buffer; - struct text_pos pos; - int i, width, height; - struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; - int old_windows_or_buffers_changed = windows_or_buffers_changed; - int count = SPECPDL_INDEX (); - - specbind (Qinhibit_redisplay, Qt); - - GCPRO4 (string, parms, frame, timeout); - - CHECK_STRING (string); - f = check_x_frame (frame); - if (NILP (timeout)) - timeout = make_number (5); - else - CHECK_NATNUM (timeout); - - if (NILP (dx)) - dx = make_number (5); - else - CHECK_NUMBER (dx); - - if (NILP (dy)) - dy = make_number (-10); - else - CHECK_NUMBER (dy); - - if (NILP (last_show_tip_args)) - last_show_tip_args = Fmake_vector (make_number (3), Qnil); - - if (!NILP (tip_frame)) - { - Lisp_Object last_string = AREF (last_show_tip_args, 0); - Lisp_Object last_frame = AREF (last_show_tip_args, 1); - Lisp_Object last_parms = AREF (last_show_tip_args, 2); - - if (EQ (frame, last_frame) - && !NILP (Fequal (last_string, string)) - && !NILP (Fequal (last_parms, parms))) - { - struct frame *f = XFRAME (tip_frame); - - /* Only DX and DY have changed. */ - if (!NILP (tip_timer)) - { - Lisp_Object timer = tip_timer; - tip_timer = Qnil; - call1 (Qcancel_timer, timer); - } - - BLOCK_INPUT; - compute_tip_xy (f, parms, dx, dy, FRAME_PIXEL_WIDTH (f), - FRAME_PIXEL_HEIGHT (f), &root_x, &root_y); - mac_move_window (FRAME_MAC_WINDOW (f), root_x, root_y, false); - UNBLOCK_INPUT; - goto start_timer; - } - } - - /* Hide a previous tip, if any. */ - Fx_hide_tip (); - - ASET (last_show_tip_args, 0, string); - ASET (last_show_tip_args, 1, frame); - ASET (last_show_tip_args, 2, parms); - - /* Add default values to frame parameters. */ - if (NILP (Fassq (Qname, parms))) - parms = Fcons (Fcons (Qname, build_string ("tooltip")), parms); - if (NILP (Fassq (Qinternal_border_width, parms))) - parms = Fcons (Fcons (Qinternal_border_width, make_number (3)), parms); - if (NILP (Fassq (Qborder_width, parms))) - parms = Fcons (Fcons (Qborder_width, make_number (1)), parms); - if (NILP (Fassq (Qborder_color, parms))) - parms = Fcons (Fcons (Qborder_color, build_string ("lightyellow")), parms); - if (NILP (Fassq (Qbackground_color, parms))) - parms = Fcons (Fcons (Qbackground_color, build_string ("lightyellow")), - parms); - - /* Create a frame for the tooltip, and record it in the global - variable tip_frame. */ - frame = x_create_tip_frame (FRAME_MAC_DISPLAY_INFO (f), parms, string); - f = XFRAME (frame); - - /* Set up the frame's root window. */ - w = XWINDOW (FRAME_ROOT_WINDOW (f)); - w->left_col = w->top_line = make_number (0); - - if (CONSP (Vx_max_tooltip_size) - && INTEGERP (XCAR (Vx_max_tooltip_size)) - && XINT (XCAR (Vx_max_tooltip_size)) > 0 - && INTEGERP (XCDR (Vx_max_tooltip_size)) - && XINT (XCDR (Vx_max_tooltip_size)) > 0) - { - w->total_cols = XCAR (Vx_max_tooltip_size); - w->total_lines = XCDR (Vx_max_tooltip_size); - } - else - { - w->total_cols = make_number (80); - w->total_lines = make_number (40); - } - - FRAME_TOTAL_COLS (f) = XINT (w->total_cols); - adjust_glyphs (f); - w->pseudo_window_p = 1; - - /* Display the tooltip text in a temporary buffer. */ - old_buffer = current_buffer; - set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f))->buffer)); - current_buffer->truncate_lines = Qnil; - clear_glyph_matrix (w->desired_matrix); - clear_glyph_matrix (w->current_matrix); - SET_TEXT_POS (pos, BEGV, BEGV_BYTE); - try_window (FRAME_ROOT_WINDOW (f), pos, 0); - - /* Compute width and height of the tooltip. */ - width = height = 0; - for (i = 0; i < w->desired_matrix->nrows; ++i) - { - struct glyph_row *row = &w->desired_matrix->rows[i]; - struct glyph *last; - int row_width; - - /* Stop at the first empty row at the end. */ - if (!row->enabled_p || !row->displays_text_p) - break; - - /* Let the row go over the full width of the frame. */ - row->full_width_p = 1; - - /* There's a glyph at the end of rows that is used to place - the cursor there. Don't include the width of this glyph. */ - if (row->used[TEXT_AREA]) - { - last = &row->glyphs[TEXT_AREA][row->used[TEXT_AREA] - 1]; - row_width = row->pixel_width - last->pixel_width; - } - else - row_width = row->pixel_width; - - height += row->height; - width = max (width, row_width); - } - - /* Add the frame's internal border to the width and height the X - window should have. */ - height += 2 * FRAME_INTERNAL_BORDER_WIDTH (f); - width += 2 * FRAME_INTERNAL_BORDER_WIDTH (f); - - /* Move the tooltip window where the mouse pointer is. Resize and - show it. */ - compute_tip_xy (f, parms, dx, dy, width, height, &root_x, &root_y); - - BLOCK_INPUT; - mac_move_window (FRAME_MAC_WINDOW (f), root_x, root_y, false); - mac_size_window (FRAME_MAC_WINDOW (f), width, height, true); - mac_show_window (FRAME_MAC_WINDOW (f)); - mac_bring_window_to_front (FRAME_MAC_WINDOW (f)); - UNBLOCK_INPUT; - - FRAME_PIXEL_WIDTH (f) = width; - FRAME_PIXEL_HEIGHT (f) = height; - - /* Draw into the window. */ - w->must_be_updated_p = 1; - update_single_window (w, 1); - - /* Restore original current buffer. */ - set_buffer_internal_1 (old_buffer); - windows_or_buffers_changed = old_windows_or_buffers_changed; - - start_timer: - /* Let the tip disappear after timeout seconds. */ - tip_timer = call3 (intern ("run-at-time"), timeout, Qnil, - intern ("x-hide-tip")); - - UNGCPRO; - return unbind_to (count, Qnil); -} - - -DEFUN ("x-hide-tip", Fx_hide_tip, Sx_hide_tip, 0, 0, 0, - doc: /* Hide the current tooltip window, if there is any. -Value is t if tooltip was open, nil otherwise. */) - () -{ - int count; - Lisp_Object deleted, frame, timer; - struct gcpro gcpro1, gcpro2; - - /* Return quickly if nothing to do. */ - if (NILP (tip_timer) && NILP (tip_frame)) - return Qnil; - - frame = tip_frame; - timer = tip_timer; - GCPRO2 (frame, timer); - tip_frame = tip_timer = deleted = Qnil; - - count = SPECPDL_INDEX (); - specbind (Qinhibit_redisplay, Qt); - specbind (Qinhibit_quit, Qt); - - if (!NILP (timer)) - call1 (Qcancel_timer, timer); - - if (FRAMEP (frame)) - { - Fdelete_frame (frame, Qnil); - deleted = Qt; - } - - UNGCPRO; - return unbind_to (count, deleted); -} - - - -/*********************************************************************** - File selection dialog - ***********************************************************************/ - -#if TARGET_API_MAC_CARBON -DEFUN ("x-file-dialog", Fx_file_dialog, Sx_file_dialog, 2, 5, 0, - doc: /* Read file name, prompting with PROMPT in directory DIR. -Use a file selection dialog. -Select DEFAULT-FILENAME in the dialog's file selection box, if -specified. Ensure that file exists if MUSTMATCH is non-nil. -If ONLY-DIR-P is non-nil, the user can only select directories. */) - (prompt, dir, default_filename, mustmatch, only_dir_p) - Lisp_Object prompt, dir, default_filename, mustmatch, only_dir_p; -{ - return mac_file_dialog (prompt, dir, default_filename, mustmatch, only_dir_p); -} -#endif - - -/*********************************************************************** - Fonts - ***********************************************************************/ - -DEFUN ("mac-clear-font-name-table", Fmac_clear_font_name_table, - Smac_clear_font_name_table, 0, 0, 0, - doc: /* Clear the font name table. */) - () -{ - check_mac (); - mac_clear_font_name_table (); - return Qnil; -} - -#if USE_MAC_FONT_PANEL -DEFUN ("mac-set-font-panel-visible-p", Fmac_set_font_panel_visible_p, - Smac_set_font_panel_visible_p, 1, 1, 0, - doc: /* Make the font panel visible if and only if FLAG is non-nil. -This is for internal use only. Use `mac-font-panel-mode' instead. */) - (flag) - Lisp_Object flag; -{ - OSStatus err = noErr; - - check_mac (); - - BLOCK_INPUT; - if (NILP (flag) != !mac_font_panel_visible_p ()) - { - err = mac_show_hide_font_panel (); - if (err == noErr && !NILP (flag)) - { - Lisp_Object focus_frame = x_get_focus_frame (SELECTED_FRAME ()); - struct frame *f = (NILP (focus_frame) ? SELECTED_FRAME () - : XFRAME (focus_frame)); - - mac_set_font_info_for_selection (f, DEFAULT_FACE_ID, 0); - } - } - UNBLOCK_INPUT; - - if (err != noErr) - error ("Cannot change visibility of the font panel"); - return Qnil; -} -#endif - -#if USE_ATSUI -extern Lisp_Object mac_atsu_font_face_attributes P_ ((ATSUFontID)); - -DEFUN ("mac-atsu-font-face-attributes", Fmac_atsu_font_face_attributes, - Smac_atsu_font_face_attributes, 1, 1, 0, - doc: /* Return plist of face attributes and values for ATSU font ID. -ID is specified by either an integer or a float. */) - (id) - Lisp_Object id; -{ - ATSUFontID font_id; - Lisp_Object result; - - check_mac (); - CHECK_NUMBER_OR_FLOAT (id); - font_id = INTEGERP (id) ? XINT (id) : XFLOAT_DATA (id); - BLOCK_INPUT; - result = mac_atsu_font_face_attributes (font_id); - UNBLOCK_INPUT; - return result; -} -#endif - - -/*********************************************************************** - Initialization - ***********************************************************************/ - -/* Keep this list in the same order as frame_parms in frame.c. - Use 0 for unsupported frame parameters. */ - -frame_parm_handler mac_frame_parm_handlers[] = -{ - x_set_autoraise, - x_set_autolower, - x_set_background_color, - x_set_border_color, - x_set_border_width, - x_set_cursor_color, - x_set_cursor_type, - mac_set_font, - x_set_foreground_color, - x_set_icon_name, - 0, /* MAC_TODO: x_set_icon_type, */ - x_set_internal_border_width, - x_set_menu_bar_lines, - x_set_mouse_color, - x_explicitly_set_name, - x_set_scroll_bar_width, - x_set_title, - x_set_unsplittable, - x_set_vertical_scroll_bars, - x_set_visibility, - x_set_tool_bar_lines, - 0, /* MAC_TODO: x_set_scroll_bar_foreground, */ - 0, /* MAC_TODO: x_set_scroll_bar_background, */ - x_set_screen_gamma, - x_set_line_spacing, - x_set_fringe_width, - x_set_fringe_width, - 0, /* x_set_wait_for_wm, */ - x_set_fullscreen, - 0, /* x_set_font_backend, */ - 0 /* x_set_alpha, */ -}; - -void -syms_of_macfns () -{ -#ifdef MAC_OSX - /* This is zero if not using Mac native windows. */ - mac_in_use = 0; -#else - /* Certainly running on Mac native windows. */ - mac_in_use = 1; -#endif - - /* The section below is built by the lisp expression at the top of the file, - just above where these variables are declared. */ - /*&&& init symbols here &&&*/ - Qnone = intern ("none"); - staticpro (&Qnone); - Qsuppress_icon = intern ("suppress-icon"); - staticpro (&Qsuppress_icon); - Qundefined_color = intern ("undefined-color"); - staticpro (&Qundefined_color); - Qcancel_timer = intern ("cancel-timer"); - staticpro (&Qcancel_timer); - /* This is the end of symbol initialization. */ - - /* Text property `display' should be nonsticky by default. */ - Vtext_property_default_nonsticky - = Fcons (Fcons (Qdisplay, Qt), Vtext_property_default_nonsticky); - - - Fput (Qundefined_color, Qerror_conditions, - Fcons (Qundefined_color, Fcons (Qerror, Qnil))); - Fput (Qundefined_color, Qerror_message, - build_string ("Undefined color")); - - DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape, - doc: /* The shape of the pointer when over text. -Changing the value does not affect existing frames -unless you set the mouse color. */); - Vx_pointer_shape = Qnil; - -#if 0 /* This doesn't really do anything. */ - DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape, - doc: /* The shape of the pointer when not over text. -This variable takes effect when you create a new frame -or when you set the mouse color. */); -#endif - Vx_nontext_pointer_shape = Qnil; - - DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape, - doc: /* The shape of the pointer when Emacs is busy. -This variable takes effect when you create a new frame -or when you set the mouse color. */); - Vx_hourglass_pointer_shape = Qnil; - -#if 0 /* This doesn't really do anything. */ - DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape, - doc: /* The shape of the pointer when over the mode line. -This variable takes effect when you create a new frame -or when you set the mouse color. */); -#endif - Vx_mode_pointer_shape = Qnil; - - DEFVAR_LISP ("x-sensitive-text-pointer-shape", - &Vx_sensitive_text_pointer_shape, - doc: /* The shape of the pointer when over mouse-sensitive text. -This variable takes effect when you create a new frame -or when you set the mouse color. */); - Vx_sensitive_text_pointer_shape = Qnil; - - DEFVAR_LISP ("x-window-horizontal-drag-cursor", - &Vx_window_horizontal_drag_shape, - doc: /* Pointer shape to use for indicating a window can be dragged horizontally. -This variable takes effect when you create a new frame -or when you set the mouse color. */); - Vx_window_horizontal_drag_shape = Qnil; - - DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel, - doc: /* A string indicating the foreground color of the cursor box. */); - Vx_cursor_fore_pixel = Qnil; - - DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size, - doc: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS). -Text larger than this is clipped. */); - Vx_max_tooltip_size = Fcons (make_number (80), make_number (40)); - - DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager, - doc: /* Non-nil if no window manager is in use. -Emacs doesn't try to figure this out; this is always nil -unless you set it to something else. */); - /* We don't have any way to find this out, so set it to nil - and maybe the user would like to set it to t. */ - Vx_no_window_manager = Qnil; - - DEFVAR_LISP ("x-pixel-size-width-font-regexp", - &Vx_pixel_size_width_font_regexp, - doc: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. - -Since Emacs gets width of a font matching with this regexp from -PIXEL_SIZE field of the name, font finding mechanism gets faster for -such a font. This is especially effective for such large fonts as -Chinese, Japanese, and Korean. */); - Vx_pixel_size_width_font_regexp = Qnil; - -#if TARGET_API_MAC_CARBON - DEFVAR_LISP ("mac-carbon-version-string", &Vmac_carbon_version_string, - doc: /* Version info for Carbon API. */); - { - OSErr err; - UInt32 response; - char carbon_version[16] = "Unknown"; - - err = Gestalt (gestaltCarbonVersion, &response); - if (err == noErr) - sprintf (carbon_version, "%u.%u.%u", - (response >> 8) & 0xf, (response >> 4) & 0xf, response & 0xf); - Vmac_carbon_version_string = build_string (carbon_version); - } -#endif /* TARGET_API_MAC_CARBON */ - - /* X window properties. */ - defsubr (&Sx_change_window_property); - defsubr (&Sx_delete_window_property); - defsubr (&Sx_window_property); - - defsubr (&Sxw_display_color_p); - defsubr (&Sx_display_grayscale_p); - defsubr (&Sxw_color_defined_p); - defsubr (&Sxw_color_values); - defsubr (&Sx_server_max_request_size); - defsubr (&Sx_server_vendor); - defsubr (&Sx_server_version); - defsubr (&Sx_display_pixel_width); - defsubr (&Sx_display_pixel_height); - defsubr (&Sx_display_mm_width); - defsubr (&Sx_display_mm_height); - defsubr (&Sx_display_screens); - defsubr (&Sx_display_planes); - defsubr (&Sx_display_color_cells); - defsubr (&Sx_display_visual_class); - defsubr (&Sx_display_backing_store); - defsubr (&Sx_display_save_under); - defsubr (&Sx_create_frame); - defsubr (&Sx_open_connection); - defsubr (&Sx_close_connection); - defsubr (&Sx_display_list); - defsubr (&Sx_synchronize); - defsubr (&Sx_focus_frame); - - /* Setting callback functions for fontset handler. */ - get_font_info_func = x_get_font_info; - -#if 0 /* This function pointer doesn't seem to be used anywhere. - And the pointer assigned has the wrong type, anyway. */ - list_fonts_func = x_list_fonts; -#endif - - load_font_func = x_load_font; - find_ccl_program_func = x_find_ccl_program; - query_font_func = x_query_font; - set_frame_fontset_func = mac_set_font; - check_window_system_func = check_mac; - - hourglass_atimer = NULL; - hourglass_shown_p = 0; - - defsubr (&Sx_show_tip); - defsubr (&Sx_hide_tip); - tip_timer = Qnil; - staticpro (&tip_timer); - tip_frame = Qnil; - staticpro (&tip_frame); - - last_show_tip_args = Qnil; - staticpro (&last_show_tip_args); - -#if TARGET_API_MAC_CARBON - defsubr (&Sx_file_dialog); -#endif - defsubr (&Smac_clear_font_name_table); -#if USE_MAC_FONT_PANEL - defsubr (&Smac_set_font_panel_visible_p); -#endif -#if USE_ATSUI - defsubr (&Smac_atsu_font_face_attributes); -#endif -} - -/* arch-tag: d7591289-f374-4377-b245-12f5dbbb8edc - (do not change this comment) */ |