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