1/* Display module for Mac OS.
2   Copyright (C) 2000, 2001, 2002, 2003, 2004,
3                 2005, 2006, 2007 Free Software Foundation, Inc.
4
5This file is part of GNU Emacs.
6
7GNU Emacs is free software; you can redistribute it and/or modify
8it under the terms of the GNU General Public License as published by
9the Free Software Foundation; either version 2, or (at your option)
10any later version.
11
12GNU Emacs is distributed in the hope that it will be useful,
13but WITHOUT ANY WARRANTY; without even the implied warranty of
14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15GNU General Public License for more details.
16
17You should have received a copy of the GNU General Public License
18along with GNU Emacs; see the file COPYING.  If not, write to
19the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20Boston, MA 02110-1301, USA.  */
21
22/* Contributed by Andrew Choi (akochoi@mac.com).  */
23
24#include "macgui.h"
25#include "frame.h"
26
27#define RGB_TO_ULONG(r, g, b) (((r) << 16) | ((g) << 8) | (b))
28
29#define RED_FROM_ULONG(color) ((color) >> 16)
30#define GREEN_FROM_ULONG(color) (((color) >> 8) & 0xff)
31#define BLUE_FROM_ULONG(color) ((color) & 0xff)
32
33/* Do not change `* 0x101' in the following lines to `<< 8'.  If
34   changed, image masks in 1-bit depth will not work. */
35#define RED16_FROM_ULONG(color) (RED_FROM_ULONG(color) * 0x101)
36#define GREEN16_FROM_ULONG(color) (GREEN_FROM_ULONG(color) * 0x101)
37#define BLUE16_FROM_ULONG(color) (BLUE_FROM_ULONG(color) * 0x101)
38
39#define BLACK_PIX_DEFAULT(f) RGB_TO_ULONG(0,0,0)
40#define WHITE_PIX_DEFAULT(f) RGB_TO_ULONG(255,255,255)
41
42#define FONT_WIDTH(f)	((f)->max_bounds.width)
43#define FONT_HEIGHT(f)	((f)->ascent + (f)->descent)
44#define FONT_BASE(f)    ((f)->ascent)
45#define FONT_DESCENT(f) ((f)->descent)
46
47/* Structure recording bitmaps and reference count.
48   If REFCOUNT is 0 then this record is free to be reused.  */
49
50struct mac_bitmap_record
51{
52  char *bitmap_data;
53  char *file;
54  int refcount;
55  int height, width;
56};
57
58
59/* For each display (currently only one on mac), we have a structure that
60   records information about it.  */
61
62struct mac_display_info
63{
64  /* Chain of all mac_display_info structures.  */
65  struct mac_display_info *next;
66
67  /* This is a cons cell of the form (NAME . FONT-LIST-CACHE).
68     The same cons cell also appears in x_display_name_list.  */
69  Lisp_Object name_list_element;
70
71  /* Number of frames that are on this display.  */
72  int reference_count;
73
74  /* Dots per inch of the screen.  */
75  double resx, resy;
76
77  /* Number of planes on this screen.  */
78  int n_planes;
79
80  /* Whether the screen supports color */
81  int color_p;
82
83  /* Dimensions of this screen.  */
84  int height, width;
85
86  /* Mask of things that cause the mouse to be grabbed.  */
87  int grabbed;
88
89#if 0
90  /* Emacs bitmap-id of the default icon bitmap for this frame.
91     Or -1 if none has been allocated yet.  */
92  int icon_bitmap_id;
93
94#endif
95  /* The root window of this screen.  */
96  Window root_window;
97
98  /* The cursor to use for vertical scroll bars.  */
99  Cursor vertical_scroll_bar_cursor;
100
101  /* Resource data base */
102  XrmDatabase xrdb;
103
104  /* A table of all the fonts we have already loaded.  */
105  struct font_info *font_table;
106
107  /* The current capacity of font_table.  */
108  int font_table_size;
109
110  /* Minimum width over all characters in all fonts in font_table.  */
111  int smallest_char_width;
112
113  /* Minimum font height over all fonts in font_table.  */
114  int smallest_font_height;
115
116  /* Reusable Graphics Context for drawing a cursor in a non-default face. */
117  GC scratch_cursor_gc;
118
119  /* These variables describe the range of text currently shown in its
120     mouse-face, together with the window they apply to.  As long as
121     the mouse stays within this range, we need not redraw anything on
122     its account.  Rows and columns are glyph matrix positions in
123     MOUSE_FACE_WINDOW.  */
124  int mouse_face_beg_row, mouse_face_beg_col;
125  int mouse_face_beg_x, mouse_face_beg_y;
126  int mouse_face_end_row, mouse_face_end_col;
127  int mouse_face_end_x, mouse_face_end_y;
128  int mouse_face_past_end;
129  Lisp_Object mouse_face_window;
130  int mouse_face_face_id;
131  Lisp_Object mouse_face_overlay;
132
133  /* 1 if a mouse motion event came and we didn't handle it right away because
134     gc was in progress.  */
135  int mouse_face_deferred_gc;
136
137  /* FRAME and X, Y position of mouse when last checked for
138     highlighting.  X and Y can be negative or out of range for the frame.  */
139  struct frame *mouse_face_mouse_frame;
140  int mouse_face_mouse_x, mouse_face_mouse_y;
141
142  /* Nonzero means defer mouse-motion highlighting.  */
143  int mouse_face_defer;
144
145  /* Nonzero means that the mouse highlight should not be shown.  */
146  int mouse_face_hidden;
147
148  int mouse_face_image_state;
149
150  char *mac_id_name;
151
152  /* The number of fonts actually stored in the font table.
153     font_table[n] is used and valid iff 0 <= n < n_fonts.  0 <=
154     n_fonts <= font_table_size and font_table[i].name != 0.  */
155  int n_fonts;
156
157  /* Pointer to bitmap records.  */
158  struct mac_bitmap_record *bitmaps;
159
160  /* Allocated size of bitmaps field.  */
161  int bitmaps_size;
162
163  /* Last used bitmap index.  */
164  int bitmaps_last;
165
166  /* The frame (if any) which has the window that has keyboard focus.
167     Zero if none.  This is examined by Ffocus_frame in macfns.c.  Note
168     that a mere EnterNotify event can set this; if you need to know the
169     last frame specified in a FocusIn or FocusOut event, use
170     x_focus_event_frame.  */
171  struct frame *x_focus_frame;
172
173  /* The last frame mentioned in a FocusIn or FocusOut event.  This is
174     separate from x_focus_frame, because whether or not LeaveNotify
175     events cause us to lose focus depends on whether or not we have
176     received a FocusIn event for it.  */
177  struct frame *x_focus_event_frame;
178
179  /* The frame which currently has the visual highlight, and should get
180     keyboard input (other sorts of input have the frame encoded in the
181     event).  It points to the focus frame's selected window's
182     frame.  It differs from x_focus_frame when we're using a global
183     minibuffer.  */
184  struct frame *x_highlight_frame;
185
186  /* Cache of images.  */
187  struct image_cache *image_cache;
188};
189
190/* This checks to make sure we have a display.  */
191extern void check_mac P_ ((void));
192
193#define x_display_info mac_display_info
194
195/* This is a chain of structures for all the X displays currently in use.  */
196extern struct x_display_info *x_display_list;
197
198/* This is a chain of structures for all the displays currently in use.  */
199extern struct mac_display_info one_mac_display_info;
200
201/* This is a list of cons cells, each of the form (NAME . FONT-LIST-CACHE),
202   one for each element of x_display_list and in the same order.
203   NAME is the name of the frame.
204   FONT-LIST-CACHE records previous values returned by x-list-fonts.  */
205extern Lisp_Object x_display_name_list;
206
207extern struct x_display_info *x_display_info_for_name P_ ((Lisp_Object));
208
209extern struct mac_display_info *mac_term_init P_ ((Lisp_Object, char *, char *));
210
211extern Lisp_Object x_list_fonts P_ ((struct frame *, Lisp_Object, int, int));
212extern struct font_info *x_get_font_info P_ ((struct frame *f, int));
213extern struct font_info *x_load_font P_ ((struct frame *, char *, int));
214extern struct font_info *x_query_font P_ ((struct frame *, char *));
215extern void x_find_ccl_program P_ ((struct font_info *));
216
217/* When Emacs uses a tty window, tty_display in frame.c points to an
218   x_output struct .  */
219struct x_output
220{
221  unsigned long background_pixel;
222  unsigned long foreground_pixel;
223};
224
225/* The collection of data describing a window on the Mac.  */
226struct mac_output
227{
228  /* Placeholder for things accessed through output_data.x.  Must
229     appear first.  */
230  struct x_output x_compatible;
231
232  /* Menubar "widget" handle.  */
233  int menubar_widget;
234
235  FRAME_PTR mFP;		/* points back to the frame struct */
236
237  /* Here are the Graphics Contexts for the default font.  */
238  GC normal_gc;				/* Normal video */
239  GC reverse_gc;			/* Reverse video */
240  GC cursor_gc;				/* cursor drawing */
241
242  /* The window used for this frame.
243     May be zero while the frame object is being created
244     and the window has not yet been created.  */
245  Window window_desc;
246
247  /* The window that is the parent of this window.
248     Usually this is a window that was made by the window manager,
249     but it can be the root window, and it can be explicitly specified
250     (see the explicit_parent field, below).  */
251  Window parent_desc;
252
253  /* Default ASCII font of this frame. */
254  XFontStruct *font;
255
256  /* The baseline offset of the default ASCII font.  */
257  int baseline_offset;
258
259  /* If a fontset is specified for this frame instead of font, this
260     value contains an ID of the fontset, else -1.  */
261  int fontset;
262
263  /* Pixel values used for various purposes.
264     border_pixel may be -1 meaning use a gray tile.  */
265  unsigned long cursor_pixel;
266  unsigned long border_pixel;
267  unsigned long mouse_pixel;
268  unsigned long cursor_foreground_pixel;
269
270#if 0
271  /* Foreground color for scroll bars.  A value of -1 means use the
272     default (black for non-toolkit scroll bars).  */
273  unsigned long scroll_bar_foreground_pixel;
274
275  /* Background color for scroll bars.  A value of -1 means use the
276     default (background color of the frame for non-toolkit scroll
277     bars).  */
278  unsigned long scroll_bar_background_pixel;
279#endif
280
281  /* Descriptor for the cursor in use for this window.  */
282  Cursor text_cursor;
283  Cursor nontext_cursor;
284  Cursor modeline_cursor;
285  Cursor hand_cursor;
286  Cursor hourglass_cursor;
287  Cursor horizontal_drag_cursor;
288#if 0
289  /* Window whose cursor is hourglass_cursor.  This window is temporarily
290     mapped to display a hourglass-cursor.  */
291  Window hourglass_window;
292
293  /* Non-zero means hourglass cursor is currently displayed.  */
294  unsigned hourglass_p : 1;
295
296  /* Flag to set when the window needs to be completely repainted.  */
297  int needs_exposure;
298
299#endif
300
301#if TARGET_API_MAC_CARBON
302  /* The Mac control reference for the hourglass (progress indicator)
303     shown at the upper-right corner of the window.  */
304  ControlRef hourglass_control;
305#endif
306
307  /* This is the Emacs structure for the display this frame is on.  */
308  /* struct w32_display_info *display_info; */
309
310  /* Nonzero means our parent is another application's window
311     and was explicitly specified.  */
312  char explicit_parent;
313
314  /* Nonzero means tried already to make this frame visible.  */
315  char asked_for_visible;
316
317  /* Relief GCs, colors etc.  */
318  struct relief
319  {
320    GC gc;
321    unsigned long pixel;
322    int allocated_p;
323  }
324  black_relief, white_relief;
325
326  /* The background for which the above relief GCs were set up.
327     They are changed only when a different background is involved.  */
328  unsigned long relief_background;
329
330  /* Width of the internal border.  */
331  int internal_border_width;
332
333  /* Hints for the size and the position of a window.  */
334  XSizeHints *size_hints;
335
336#if USE_CG_DRAWING
337  /* Quartz 2D graphics context.  */
338  CGContextRef cg_context;
339#endif
340};
341
342typedef struct mac_output mac_output;
343
344/* Return the X output data for frame F.  */
345#define FRAME_X_OUTPUT(f) ((f)->output_data.mac)
346
347/* Return the Mac window used for displaying data in frame F.  */
348#define FRAME_MAC_WINDOW(f) ((f)->output_data.mac->window_desc)
349#define FRAME_X_WINDOW(f) ((f)->output_data.mac->window_desc)
350
351#define FRAME_FOREGROUND_PIXEL(f) ((f)->output_data.x->foreground_pixel)
352#define FRAME_BACKGROUND_PIXEL(f) ((f)->output_data.x->background_pixel)
353
354#define FRAME_FONT(f) ((f)->output_data.mac->font)
355#define FRAME_FONTSET(f) ((f)->output_data.mac->fontset)
356
357#define FRAME_BASELINE_OFFSET(f) ((f)->output_data.mac->baseline_offset)
358
359#define FRAME_SIZE_HINTS(f) ((f)->output_data.mac->size_hints)
360
361/* This gives the mac_display_info structure for the display F is on.  */
362#define FRAME_MAC_DISPLAY_INFO(f) (&one_mac_display_info)
363#define FRAME_X_DISPLAY_INFO(f) (&one_mac_display_info)
364
365/* This is the `Display *' which frame F is on.  */
366#define FRAME_MAC_DISPLAY(f) (0)
367#define FRAME_X_DISPLAY(f) (0)
368
369/* This is the 'font_info *' which frame F has.  */
370#define FRAME_MAC_FONT_TABLE(f) (FRAME_MAC_DISPLAY_INFO (f)->font_table)
371
372/* Value is the smallest width of any character in any font on frame F.  */
373
374#define FRAME_SMALLEST_CHAR_WIDTH(F) \
375     FRAME_MAC_DISPLAY_INFO(F)->smallest_char_width
376
377/* Value is the smallest height of any font on frame F.  */
378
379#define FRAME_SMALLEST_FONT_HEIGHT(F) \
380     FRAME_MAC_DISPLAY_INFO(F)->smallest_font_height
381
382/* Return a pointer to the image cache of frame F.  */
383
384#define FRAME_X_IMAGE_CACHE(F) FRAME_MAC_DISPLAY_INFO ((F))->image_cache
385
386
387/* Mac-specific scroll bar stuff.  */
388
389/* We represent scroll bars as lisp vectors.  This allows us to place
390   references to them in windows without worrying about whether we'll
391   end up with windows referring to dead scroll bars; the garbage
392   collector will free it when its time comes.
393
394   We use struct scroll_bar as a template for accessing fields of the
395   vector.  */
396
397struct scroll_bar {
398
399  /* These fields are shared by all vectors.  */
400  EMACS_INT size_from_Lisp_Vector_struct;
401  struct Lisp_Vector *next_from_Lisp_Vector_struct;
402
403  /* The window we're a scroll bar for.  */
404  Lisp_Object window;
405
406  /* The next and previous in the chain of scroll bars in this frame.  */
407  Lisp_Object next, prev;
408
409  /* The Mac control handle of this scroll bar.  Since this is a
410     pointer value, we store it split into two Lisp integers.  */
411  Lisp_Object control_handle_low, control_handle_high;
412
413  /* The position and size of the scroll bar in pixels, relative to the
414     frame.  */
415  Lisp_Object top, left, width, height;
416
417  /* The starting and ending positions of the handle, relative to the
418     handle area (i.e. zero is the top position, not
419     SCROLL_BAR_TOP_BORDER).  If they're equal, that means the handle
420     hasn't been drawn yet.
421
422     These are not actually the locations where the beginning and end
423     are drawn; in order to keep handles from becoming invisible when
424     editing large files, we establish a minimum height by always
425     drawing handle bottoms VERTICAL_SCROLL_BAR_MIN_HANDLE pixels below
426     where they would be normally; the bottom and top are in a
427     different co-ordinate system.  */
428  Lisp_Object start, end;
429
430  /* If the scroll bar handle is currently being dragged by the user,
431     this is the number of pixels from the top of the handle to the
432     place where the user grabbed it.  If the handle is pressed but
433     not dragged yet, this is a negative integer whose absolute value
434     is the number of pixels plus 1.  If the handle isn't currently
435     being dragged, this is Qnil.  */
436  Lisp_Object dragging;
437
438#ifdef USE_TOOLKIT_SCROLL_BARS
439  /* The position and size of the scroll bar handle track area in
440     pixels, relative to the frame.  */
441  Lisp_Object track_top, track_height;
442
443  /* Minimum length of the scroll bar handle, in pixels.  */
444  Lisp_Object min_handle;
445#endif
446};
447
448/* The number of elements a vector holding a struct scroll_bar needs.  */
449#define SCROLL_BAR_VEC_SIZE					\
450  ((sizeof (struct scroll_bar)					\
451    - sizeof (EMACS_INT) - sizeof (struct Lisp_Vector *))	\
452   / sizeof (Lisp_Object))
453
454/* Turning a lisp vector value into a pointer to a struct scroll_bar.  */
455#define XSCROLL_BAR(vec) ((struct scroll_bar *) XVECTOR (vec))
456
457
458/* Building a C long integer from two lisp integers.  */
459#define SCROLL_BAR_PACK(low, high) (XINT (high) << 16 | XINT (low))
460
461/* Setting two lisp integers to two parts of a C unsigned long.  */
462#define SCROLL_BAR_UNPACK(low, high, ulong) \
463  (XSETINT ((low),  (ulong) & 0xffff), \
464   XSETINT ((high), (ulong) >> 16))
465
466
467/* Extract the Mac control handle of the scroll bar from a struct
468   scroll_bar.  */
469#define SCROLL_BAR_CONTROL_HANDLE(ptr) \
470  ((ControlHandle) SCROLL_BAR_PACK ((ptr)->control_handle_low, \
471                                    (ptr)->control_handle_high))
472
473/* Store a Mac control handle in a struct scroll_bar.  */
474#define SET_SCROLL_BAR_CONTROL_HANDLE(ptr, handle) \
475  (SCROLL_BAR_UNPACK ((ptr)->control_handle_low, \
476                      (ptr)->control_handle_high, (unsigned long) (handle)))
477
478/* Return the inside width of a vertical scroll bar, given the outside
479   width.  */
480#define VERTICAL_SCROLL_BAR_INSIDE_WIDTH(f, width) \
481  ((width) \
482   - VERTICAL_SCROLL_BAR_LEFT_BORDER \
483   - VERTICAL_SCROLL_BAR_RIGHT_BORDER \
484   - VERTICAL_SCROLL_BAR_WIDTH_TRIM * 2)
485
486/* Return the length of the rectangle within which the top of the
487   handle must stay.  This isn't equivalent to the inside height,
488   because the scroll bar handle has a minimum height.
489
490   This is the real range of motion for the scroll bar, so when we're
491   scaling buffer positions to scroll bar positions, we use this, not
492   VERTICAL_SCROLL_BAR_INSIDE_HEIGHT.  */
493#define VERTICAL_SCROLL_BAR_TOP_RANGE(f,height) \
494  (VERTICAL_SCROLL_BAR_INSIDE_HEIGHT (f, height) \
495   - VERTICAL_SCROLL_BAR_MIN_HANDLE - UP_AND_DOWN_ARROWS)
496
497/* Return the inside height of vertical scroll bar, given the outside
498   height.  See VERTICAL_SCROLL_BAR_TOP_RANGE too.  */
499#define VERTICAL_SCROLL_BAR_INSIDE_HEIGHT(f,height) \
500  ((height) - VERTICAL_SCROLL_BAR_TOP_BORDER \
501   - VERTICAL_SCROLL_BAR_BOTTOM_BORDER)
502
503
504/* Border widths for scroll bars.
505
506   Scroll bar windows don't have any borders; their border width is
507   set to zero, and we redraw borders ourselves.  This makes the code
508   a bit cleaner, since we don't have to convert between outside width
509   (used when relating to the rest of the screen) and inside width
510   (used when sizing and drawing the scroll bar window itself).
511
512   The handle moves up and down/back and forth in a rectangle inset
513   from the edges of the scroll bar.  These are widths by which we
514   inset the handle boundaries from the scroll bar edges.  */
515#define VERTICAL_SCROLL_BAR_LEFT_BORDER (0)
516#define VERTICAL_SCROLL_BAR_RIGHT_BORDER (0)
517#define VERTICAL_SCROLL_BAR_TOP_BORDER (0)
518#define VERTICAL_SCROLL_BAR_BOTTOM_BORDER (0)
519
520/* Minimum lengths for scroll bar handles, in pixels.  */
521#define VERTICAL_SCROLL_BAR_MIN_HANDLE (16)
522
523/* Combined length of up and down arrow boxes in scroll bars, in pixels.  */
524#define UP_AND_DOWN_ARROWS (32)
525
526/* Trimming off a few pixels from each side prevents
527   text from glomming up against the scroll bar */
528#define VERTICAL_SCROLL_BAR_WIDTH_TRIM (0)
529
530/* Variations of possible Aqua scroll bar width.  */
531#define MAC_AQUA_VERTICAL_SCROLL_BAR_WIDTH (15)
532#define MAC_AQUA_SMALL_VERTICAL_SCROLL_BAR_WIDTH (11)
533
534/* Size of hourglass controls */
535#define HOURGLASS_WIDTH (16)
536#define HOURGLASS_HEIGHT (16)
537
538/* Some constants that are used locally.  */
539/* Creator code for Emacs on Mac OS.  */
540enum {
541  MAC_EMACS_CREATOR_CODE	= 'EMAx'
542};
543
544/* Apple event descriptor types */
545enum {
546  TYPE_FILE_NAME		= 'fNam'
547};
548
549/* Keywords for Apple event attributes */
550enum {
551  KEY_EMACS_SUSPENSION_ID_ATTR	= 'esId' /* typeUInt32 */
552};
553
554/* Carbon event parameter names.  */
555enum {
556  EVENT_PARAM_TEXT_INPUT_SEQUENCE_NUMBER = 'tsSn' /* typeUInt32 */
557};
558
559/* Some constants that are not defined in older versions.  */
560#if MAC_OS_X_VERSION_MAX_ALLOWED < 1030
561/* Keywords for Apple event attributes */
562enum {
563  keyReplyRequestedAttr		= 'repq'
564};
565#endif
566
567#if MAC_OS_X_VERSION_MAX_ALLOWED < 1040
568/* Gestalt selectors */
569enum {
570  gestaltSystemVersionMajor	= 'sys1',
571  gestaltSystemVersionMinor	= 'sys2',
572  gestaltSystemVersionBugFix	= 'sys3'
573};
574#endif
575
576#ifdef MAC_OSX
577#if MAC_OS_X_VERSION_MAX_ALLOWED < 1020
578/* Apple event descriptor types */
579enum {
580  typeUTF8Text			= 'utf8'
581};
582
583/* Carbon event parameter names */
584enum {
585  kEventParamWindowMouseLocation = 'wmou'
586};
587#endif
588#endif
589
590struct frame;
591struct face;
592struct image;
593
594Lisp_Object display_x_get_resource P_ ((struct x_display_info *,
595					Lisp_Object, Lisp_Object,
596					Lisp_Object, Lisp_Object));
597struct frame *check_x_frame P_ ((Lisp_Object));
598EXFUN (Fx_display_color_p, 1);
599EXFUN (Fx_display_grayscale_p, 1);
600EXFUN (Fx_display_planes, 1);
601extern void x_free_gcs P_ ((struct frame *));
602extern int XParseGeometry P_ ((char *, int *, int *, unsigned int *,
603			       unsigned int *));
604
605/* Defined in macterm.c.  */
606
607extern void x_set_window_size P_ ((struct frame *, int, int, int));
608extern void x_set_mouse_position P_ ((struct frame *, int, int));
609extern void x_set_mouse_pixel_position P_ ((struct frame *, int, int));
610extern void x_make_frame_visible P_ ((struct frame *));
611extern void x_make_frame_invisible P_ ((struct frame *));
612extern void x_iconify_frame P_ ((struct frame *));
613extern void x_free_frame_resources P_ ((struct frame *));
614extern void x_destroy_window P_ ((struct frame *));
615extern void x_wm_set_size_hint P_ ((struct frame *, long, int));
616extern void x_delete_display P_ ((struct x_display_info *));
617extern void mac_initialize P_ ((void));
618extern Pixmap XCreatePixmap P_ ((Display *, WindowPtr, unsigned int,
619				 unsigned int, unsigned int));
620extern Pixmap XCreatePixmapFromBitmapData P_ ((Display *, WindowPtr, char *,
621					       unsigned int, unsigned int,
622					       unsigned long, unsigned long,
623					       unsigned int));
624extern void XFreePixmap P_ ((Display *, Pixmap));
625extern GC XCreateGC P_ ((Display *, void *, unsigned long, XGCValues *));
626extern void XFreeGC P_ ((Display *, GC));
627extern void XSetForeground P_ ((Display *, GC, unsigned long));
628extern void XSetBackground P_ ((Display *, GC, unsigned long));
629extern void XSetWindowBackground P_ ((Display *, WindowPtr, unsigned long));
630extern void XDrawLine P_ ((Display *, Pixmap, GC, int, int, int, int));
631extern void mac_clear_area P_ ((struct frame *, int, int,
632				unsigned int, unsigned int));
633extern void mac_unload_font P_ ((struct mac_display_info *, XFontStruct *));
634extern int mac_font_panel_visible_p P_ ((void));
635extern OSStatus mac_show_hide_font_panel P_ ((void));
636extern OSStatus mac_set_font_info_for_selection P_ ((struct frame *, int, int));
637extern OSStatus install_window_handler P_ ((WindowPtr));
638extern void remove_window_handler P_ ((WindowPtr));
639extern OSStatus mac_post_mouse_moved_event P_ ((void));
640#if !TARGET_API_MAC_CARBON
641extern void do_apple_menu P_ ((SInt16));
642#endif
643#if USE_CG_DRAWING
644extern void mac_prepare_for_quickdraw P_ ((struct frame *));
645#endif
646extern int mac_quit_char_key_p P_ ((UInt32, UInt32));
647
648#define FONT_TYPE_FOR_UNIBYTE(font, ch) 0
649#define FONT_TYPE_FOR_MULTIBYTE(font, ch) 0
650
651/* Defined in macselect.c */
652
653extern void x_clear_frame_selections P_ ((struct frame *));
654
655/* Defined in macfns.c */
656
657extern int have_menus_p P_ ((void));
658
659extern void x_real_positions P_ ((struct frame *, int *, int *));
660extern void x_set_menu_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object));
661extern int x_pixel_width P_ ((struct frame *));
662extern int x_pixel_height P_ ((struct frame *));
663extern int x_char_width P_ ((struct frame *));
664extern int x_char_height P_ ((struct frame *));
665extern void x_sync P_ ((struct frame *));
666extern void x_set_tool_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object));
667extern void mac_update_title_bar P_ ((struct frame *, int));
668extern Lisp_Object x_get_focus_frame P_ ((struct frame *));
669
670/* Defined in macmenu.c */
671
672extern void x_activate_menubar P_ ((struct frame *));
673extern void free_frame_menubar P_ ((struct frame *));
674
675/* Defined in mac.c.  */
676
677extern void mac_clear_font_name_table P_ ((void));
678extern Lisp_Object mac_aedesc_to_lisp P_ ((const AEDesc *));
679extern OSErr mac_ae_put_lisp P_ ((AEDescList *, UInt32, Lisp_Object));
680#if TARGET_API_MAC_CARBON
681extern OSStatus create_apple_event_from_event_ref P_ ((EventRef, UInt32,
682						       const EventParamName *,
683						       const EventParamType *,
684						       AppleEvent *));
685extern OSErr create_apple_event_from_drag_ref P_ ((DragRef, UInt32,
686						   const FlavorType *,
687						   AppleEvent *));
688extern CFStringRef cfstring_create_with_utf8_cstring P_ ((const char *));
689extern CFStringRef cfstring_create_with_string P_ ((Lisp_Object));
690extern Lisp_Object cfdata_to_lisp P_ ((CFDataRef));
691extern Lisp_Object cfstring_to_lisp_nodecode P_ ((CFStringRef));
692extern Lisp_Object cfstring_to_lisp P_ ((CFStringRef));
693extern Lisp_Object cfnumber_to_lisp P_ ((CFNumberRef));
694extern Lisp_Object cfdate_to_lisp P_ ((CFDateRef));
695extern Lisp_Object cfboolean_to_lisp P_ ((CFBooleanRef));
696extern Lisp_Object cfobject_desc_to_lisp P_ ((CFTypeRef));
697extern Lisp_Object cfproperty_list_to_lisp P_ ((CFPropertyListRef, int, int));
698extern void mac_wakeup_from_rne P_ ((void));
699#endif
700extern void xrm_merge_string_database P_ ((XrmDatabase, const char *));
701extern Lisp_Object xrm_get_resource P_ ((XrmDatabase, const char *,
702					 const char *));
703extern XrmDatabase xrm_get_preference_database P_ ((const char *));
704EXFUN (Fmac_get_preference, 4);
705
706/* arch-tag: 6b4ca125-5bef-476d-8ee8-31ed808b7e79
707   (do not change this comment) */
708