src/nsterm.h

   1 /* Definitions and headers for communication with NeXT/Open/GNUstep API.
   2    Copyright (C) 1989, 1993, 2005, 2008, 2009 Free Software Foundation, Inc.
   3
   4 This file is part of GNU Emacs.
   5
   6 GNU Emacs is free software: you can redistribute it and/or modify
   7 it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation, either version 3 of the License, or
   9 (at your option) any later version.
  10
  11 GNU Emacs is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
  18
  19
  20 #include "dispextern.h"
  21 #include "frame.h"
  22 #include "character.h"
  23 #include "font.h"
  24
  25 #ifdef HAVE_NS
  26
  27 #ifdef __OBJC__
  28
  29 /* ==========================================================================
  30
  31    The Emacs application
  32
  33    ========================================================================== */
  34
  35 /* We override sendEvent: as a means to stop/start the event loop */
  36 @interface EmacsApp : NSApplication
  37 {
  38 }
  39 - (void)logNotification: (NSNotification *)notification;
  40 - (void)sendEvent: (NSEvent *)theEvent;
  41 - (void)showPreferencesWindow: (id)sender;
  42 - (BOOL) openFile: (NSString *)fileName;
  43 - (void)fd_handler: (NSTimer *) fdEntry;
  44 - (void)timeout_handler: (NSTimer *)timedEntry;
  45 - (BOOL)fulfillService: (NSString *)name withArg: (NSString *)arg;
  46 @end
  47
  48
  49 /* ==========================================================================
  50
  51    The main Emacs view
  52
  53    ========================================================================== */
  54
  55 @class EmacsToolbar;
  56
  57 @interface EmacsView : NSView <NSTextInput>
  58    {
  59    char *old_title;
  60    BOOL windowClosing;
  61    NSString *workingText;
  62    BOOL processingCompose;
  63 @public
  64    struct frame *emacsframe;
  65    int rows, cols;
  66    int scrollbarsNeedingUpdate;
  67    EmacsToolbar *toolbar;
  68    }
  69
  70 /* AppKit-side interface */
  71 - menuDown: sender;
  72 - toolbarClicked: (id)item;
  73 - toggleToolbar: (id)sender;
  74 - (void)keyDown: (NSEvent *)theEvent;
  75 - (void)mouseDown: (NSEvent *)theEvent;
  76 - (void)mouseUp: (NSEvent *)theEvent;
  77 - setMiniwindowImage: (BOOL)setMini;
  78
  79 /* Emacs-side interface */
  80 - initFrameFromEmacs: (struct frame *) f;
  81 - (void) setRows: (int) r andColumns: (int) c;
  82 - (void) setWindowClosing: (BOOL)closing;
  83 - (EmacsToolbar *) toolbar;
  84 - (void) deleteWorkingText;
  85
  86 #ifdef NS_IMPL_GNUSTEP
  87 /* Not declared, but useful. */
  88 - (void) unlockFocusNeedsFlush: (BOOL)needs;
  89 #endif
  90 @end
  91
  92
  93 /* Small utility used for processing resize events under Cocoa. */
  94 @interface EmacsWindow : NSWindow
  95 {
  96   NSPoint grabOffset;
  97 }
  98 @end
  99
 100
 101 /* ==========================================================================
 102
 103    The main menu implementation
 104
 105    ========================================================================== */
 106
 107 @interface EmacsMenu : NSMenu
 108 {
 109   struct frame *frame;
 110   unsigned long keyEquivModMask;
 111 }
 112
 113 - initWithTitle: (NSString *)title frame: (struct frame *)f;
 114 - (void)setFrame: (struct frame *)f;
 115 - (void)menuNeedsUpdate: (NSMenu *)menu; /* (delegate method) */
 116 - (NSString *)parseKeyEquiv: (char *)key;
 117 - (NSMenuItem *)addItemWithWidgetValue: (void *)wvptr;
 118 - (void)fillWithWidgetValue: (void *)wvptr;
 119 - (EmacsMenu *)addSubmenuWithTitle: (char *)title forFrame: (struct frame *)f;
 120 - (void) clear;
 121 - (Lisp_Object)runMenuAt: (NSPoint)p forFrame: (struct frame *)f
 122                  keymaps: (int)keymaps;
 123 @end
 124
 125
 126 /* ==========================================================================
 127
 128    Toolbar
 129
 130    ========================================================================== */
 131
 132 @class EmacsImage;
 133
 134 @interface EmacsToolbar : NSToolbar
 135    {
 136      EmacsView *emacsView;
 137      NSMutableDictionary *identifierToItem;
 138      NSMutableArray *activeIdentifiers;
 139      NSArray *prevIdentifiers;
 140      unsigned long enablement, prevEnablement;
 141    }
 142 - initForView: (EmacsView *)view withIdentifier: (NSString *)identifier;
 143 - (void) clearActive;
 144 - (BOOL) changed;
 145 - (void) addDisplayItemWithImage: (EmacsImage *)img idx: (int)idx
 146                         helpText: (char *)help
 147                          enabled: (BOOL)enabled;
 148 /* delegate methods */
 149 - (NSToolbarItem *)toolbar: (NSToolbar *)toolbar
 150      itemForItemIdentifier: (NSString *)itemIdentifier
 151  willBeInsertedIntoToolbar: (BOOL)flag;
 152 - (NSArray *)toolbarDefaultItemIdentifiers: (NSToolbar *)toolbar;
 153 - (NSArray *)toolbarAllowedItemIdentifiers: (NSToolbar *)toolbar;
 154 @end
 155
 156
 157 /* ==========================================================================
 158
 159    Message / question windows
 160
 161    ========================================================================== */
 162
 163 @interface EmacsDialogPanel : NSPanel
 164    {
 165    NSTextField *command;
 166    NSTextField *title;
 167    NSMatrix *matrix;
 168    int rows, cols;
 169    }
 170 - initFromContents: (Lisp_Object)menu isQuestion: (BOOL)isQ;
 171 - addButton: (char *)str value: (Lisp_Object)val row: (int)row;
 172 - addString: (char *)str row: (int)row;
 173 - addSplit;
 174 - (Lisp_Object)runDialogAt: (NSPoint)p;
 175 @end
 176
 177 @interface EmacsTooltip : NSObject
 178   {
 179     NSWindow *win;
 180     NSTextField *textField;
 181     NSTimer *timer;
 182   }
 183 - init;
 184 - (void) setText: (char *)text;
 185 - (void) showAtX: (int)x Y: (int)y for: (int)seconds;
 186 - (void) hide;
 187 - (BOOL) isActive;
 188 - (NSRect) frame;
 189 @end
 190
 191
 192 /* ==========================================================================
 193
 194    File open/save panels
 195    This and next override methods to work around OS X behavior of
 196    restarting application loop when user dismisses panel.
 197
 198    ========================================================================== */
 199
 200 @interface EmacsSavePanel : NSSavePanel
 201 {
 202 }
 203 @end
 204 @interface EmacsOpenPanel : NSOpenPanel
 205 {
 206 }
 207 @end
 208
 209 @interface EmacsFileDelegate : NSObject
 210 {
 211 }
 212 - (BOOL)panel: (id)sender isValidFilename: (NSString *)filename;
 213 - (BOOL)panel: (id)sender shouldShowFilename: (NSString *)filename;
 214 - (NSString *)panel: (id)sender userEnteredFilename: (NSString *)filename
 215           confirmed: (BOOL)okFlag;
 216 @end
 217
 218
 219 /* ==========================================================================
 220
 221    Images and stippling
 222
 223    ========================================================================== */
 224
 225 @interface EmacsImage : NSImage
 226 {
 227   id imageListNext;
 228   int refCount;
 229   NSBitmapImageRep *bmRep; /* used for accessing pixel data */
 230   unsigned char *pixmapData[5]; /* shortcut to access pixel data */
 231   BOOL onTiger;
 232   NSColor *stippleMask;
 233 }
 234 + allocInitFromFile: (Lisp_Object)file;
 235 - reference;
 236 - imageListSetNext: (id)arg;
 237 - imageListNext;
 238 - (void)dealloc;
 239 - initFromXBM: (unsigned char *)bits width: (int)w height: (int)h
 240          flip: (BOOL)flip;
 241 - initFromSkipXBM: (unsigned char *)bits width: (int)w height: (int)h
 242              flip: (BOOL)flip length: (int)length;
 243 - setXBMColor: (NSColor *)color;
 244 - initForXPMWithDepth: (int)depth width: (int)width height: (int)height;
 245 - (void)setPixmapData;
 246 - (unsigned long)getPixelAtX: (int)x Y: (int)y;
 247 - (void)setPixelAtX: (int)x Y: (int)y toRed: (unsigned char)r
 248                green: (unsigned char)g blue: (unsigned char)b
 249               alpha:(unsigned char)a;
 250 - (void)setAlphaAtX: (int)x Y: (int)y to: (unsigned char)a;
 251 - (NSColor *)stippleMask;
 252 @end
 253
 254
 255 /* ==========================================================================
 256
 257    Scrollbars
 258
 259    ========================================================================== */
 260
 261 @interface EmacsScroller : NSScroller
 262   {
 263    Lisp_Object win;
 264    struct frame *frame;
 265    NSResponder *prevResponder;
 266
 267    /* offset to the bottom of knob of last mouse down */
 268    float last_mouse_offset;
 269    float min_portion;
 270    int pixel_height;
 271    int last_hit_part;
 272
 273    BOOL condemned;
 274
 275    /* optimize against excessive positioning calls generated by emacs */
 276    int em_position;
 277    int em_portion;
 278    int em_whole;
 279    }
 280
 281 - initFrame: (NSRect )r window: (Lisp_Object)win;
 282 - (void)setFrame: (NSRect)r;
 283 - (void)dealloc;
 284
 285 - setPosition: (int) position portion: (int) portion whole: (int) whole;
 286 - (int) checkSamePosition: (int)position portion: (int)portion
 287                     whole: (int)whole;
 288 - (void) getMouseMotionPart: (int *)part window: (Lisp_Object *)window
 289                           x: (Lisp_Object *)x y: ( Lisp_Object *)y;
 290 - (void) sendScrollEventAtLoc: (float)loc fromEvent: (NSEvent *)e;
 291 - repeatScroll: (NSTimer *)sender;
 292 - condemn;
 293 - reprieve;
 294 - judge;
 295 @end
 296
 297
 298 /* ==========================================================================
 299
 300    Rendering on Panther and above
 301
 302    ========================================================================== */
 303
 304 #ifdef NS_IMPL_COCOA
 305 /* rendering util */
 306 @interface EmacsGlyphStorage : NSObject <NSGlyphStorage>
 307 {
 308 @public
 309   NSAttributedString *attrStr;
 310   NSMutableDictionary *dict;
 311   CGGlyph *cglyphs;
 312   unsigned long maxChar, maxGlyph;
 313   long i, len;
 314 }
 315 - initWithCapacity: (unsigned long) c;
 316 - (void) setString: (NSString *)str font: (NSFont *)font;
 317 @end
 318 #endif  /* NS_IMPL_COCOA */
 319
 320
 321 /* ==========================================================================
 322
 323    Running the preferences window
 324
 325    ========================================================================== */
 326
 327 @interface EmacsPrefsController : NSObject
 328 {
 329     struct frame *frame;
 330     IBOutlet NSWindow *prefsWindow;
 331     IBOutlet NSPopUpButton *alternateModMenu;
 332     IBOutlet NSPopUpButton *commandModMenu;
 333 #ifdef NS_IMPL_COCOA
 334     IBOutlet NSPopUpButton *controlModMenu;
 335     IBOutlet NSPopUpButton *functionModMenu;
 336 #endif
 337     IBOutlet NSMatrix *cursorTypeMatrix;
 338     IBOutlet NSSlider *expandSpaceSlider;
 339 #ifdef NS_IMPL_COCOA
 340     IBOutlet NSButton *smoothFontsCheck;
 341     IBOutlet NSButton *useQuickdrawCheck;
 342     IBOutlet NSButton *useSysHiliteCheck;
 343     IBOutlet NSButton *confirmQuitCheck;
 344     Lisp_Object prevUseHighlightColor;
 345 #endif
 346     float prevExpandSpace;
 347 #ifdef NS_IMPL_GNUSTEP
 348     /* TODO: remove as soon as someone can edit the .nib to replace the
 349              cursor-blink widget with checkbox conn to confirmQuitCheck */
 350     IBOutlet NSSlider *cursorBlinkSlider;
 351 #endif
 352 }
 353 - (IBAction)cancel: (id)sender;
 354 - (IBAction)ok: (id)sender;
 355 - (IBAction)resetToDefaults: (id)sender;
 356 - (IBAction)runHelp: (id)sender;
 357 - (IBAction)setColors: (id)sender;
 358 - (IBAction)setDefaultFont: (id)sender;
 359
 360 - (void) showForFrame: (struct frame *)f;
 361 - (void) setPanelFromValues;
 362 - (void) setPanelFromDefaultValues;
 363 - (void) setValuesFromPanel;
 364 @end
 365
 366 extern NSArray *ns_send_types, *ns_return_types;
 367 extern EmacsMenu *mainMenu, *svcsMenu, *dockMenu;
 368
 369 /* Apple removed the declaration, but kept the implementation */
 370 #if defined (NS_IMPL_COCOA) && MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4
 371 @interface NSApplication (EmacsApp)
 372 - (void)setAppleMenu: (NSMenu *)menu;
 373 @end
 374 #endif
 375
 376 #ifndef NS_HAVE_NSINTEGER
 377 typedef long NSInteger;
 378 typedef unsigned long NSUInteger;
 379 #endif /* not NS_HAVE_NSINTEGER */
 380
 381 #endif  /* __OBJC__ */
 382
 383
 384
 385 /* ==========================================================================
 386
 387    Non-OO stuff
 388
 389    ========================================================================== */
 390
 391 /* Special keycodes that we pass down the event chain */
 392 #define KEY_NS_POWER_OFF               ((1<<28)|(0<<16)|1)
 393 #define KEY_NS_OPEN_FILE               ((1<<28)|(0<<16)|2)
 394 #define KEY_NS_OPEN_TEMP_FILE          ((1<<28)|(0<<16)|3)
 395 #define KEY_NS_DRAG_FILE               ((1<<28)|(0<<16)|4)
 396 #define KEY_NS_DRAG_COLOR              ((1<<28)|(0<<16)|5)
 397 #define KEY_NS_DRAG_TEXT               ((1<<28)|(0<<16)|6)
 398 #define KEY_NS_CHANGE_FONT             ((1<<28)|(0<<16)|7)
 399 #define KEY_NS_OPEN_FILE_LINE          ((1<<28)|(0<<16)|8)
 400 #define KEY_NS_PUT_WORKING_TEXT        ((1<<28)|(0<<16)|9)
 401 #define KEY_NS_UNPUT_WORKING_TEXT      ((1<<28)|(0<<16)|10)
 402 #define KEY_NS_SPI_SERVICE_CALL        ((1<<28)|(0<<16)|11)
 403 #define KEY_NS_NEW_FRAME               ((1<<28)|(0<<16)|12)
 404 #define KEY_NS_TOGGLE_TOOLBAR          ((1<<28)|(0<<16)|13)
 405 #define KEY_NS_INFO_PREFS              ((1<<28)|(0<<16)|14)
 406
 407 /* could use list to store these, but rest of emacs has a big infrastructure
 408    for managing a table of bitmap "records" */
 409 struct ns_bitmap_record
 410 {
 411 #ifdef __OBJC__
 412   EmacsImage *img;
 413 #else
 414   void *img;
 415 #endif
 416   char *file;
 417   int refcount;
 418   int height, width, depth;
 419 };
 420
 421 /* this to map between emacs color indices and NSColor objects */
 422 struct ns_color_table
 423 {
 424   unsigned int size;
 425   unsigned int avail;
 426 #ifdef __OBJC__
 427   NSColor **colors;
 428   NSMutableSet *empty_indices;
 429 #else
 430   void **items;
 431   void *availIndices;
 432 #endif
 433 };
 434 #define NS_COLOR_CAPACITY 256
 435
 436 #define RGB_TO_ULONG(r, g, b) (((r) << 16) | ((g) << 8) | (b))
 437 #define ARGB_TO_ULONG(a, r, g, b) (((a) << 24) | ((r) << 16) | ((g) << 8) | (b))
 438
 439 #define ALPHA_FROM_ULONG(color) ((color) >> 24)
 440 #define RED_FROM_ULONG(color) (((color) >> 16) & 0xff)
 441 #define GREEN_FROM_ULONG(color) (((color) >> 8) & 0xff)
 442 #define BLUE_FROM_ULONG(color) ((color) & 0xff)
 443
 444 /* Do not change `* 0x101' in the following lines to `<< 8'.  If
 445    changed, image masks in 1-bit depth will not work. */
 446 #define RED16_FROM_ULONG(color) (RED_FROM_ULONG(color) * 0x101)
 447 #define GREEN16_FROM_ULONG(color) (GREEN_FROM_ULONG(color) * 0x101)
 448 #define BLUE16_FROM_ULONG(color) (BLUE_FROM_ULONG(color) * 0x101)
 449
 450 /* this extends font backend font */
 451 struct nsfont_info
 452 {
 453   struct font font;
 454
 455   char *name;  /* postscript name, uniquely identifies on NS systems */
 456   float width;  /* this and following metrics stored as float rather than int */
 457   float height;
 458   float underpos;
 459   float underwidth;
 460   float size;
 461 #ifdef __OBJC__
 462   NSFont *nsfont;
 463   /* cgfont and synthItal are used only on OS X 10.3+ */
 464 #if defined (NS_IMPL_COCOA) && (MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3)
 465   CGFontRef cgfont;
 466 #else /* GNUstep or OS X < 10.3 */
 467   void *cgfont;
 468 #endif
 469 #else /* ! OBJC */
 470   void *nsfont;
 471   void *cgfont;
 472 #endif
 473   char bold, ital;  /* convenience flags */
 474   char synthItal;
 475   float voffset;  /* mean of ascender/descender offsets */
 476   XCharStruct max_bounds;
 477   /* we compute glyph codes and metrics on-demand in blocks of 256 indexed
 478      by hibyte, lobyte */
 479   unsigned short **glyphs; /* map unicode index to glyph */
 480   struct font_metrics **metrics;
 481 };
 482
 483
 484 /* init'd in ns_initialize_display_info () */
 485 struct ns_display_info
 486 {
 487   /* Chain of all ns_display_info structures.  */
 488   struct ns_display_info *next;
 489
 490   /* The generic display parameters corresponding to this NS display. */
 491   struct terminal *terminal;
 492
 493   /* This is a cons cell of the form (NAME . FONT-LIST-CACHE).
 494      The same cons cell also appears in ns_display_name_list.  */
 495   Lisp_Object name_list_element;
 496
 497   /* The number of fonts loaded. */
 498   int n_fonts;
 499
 500   /* Minimum width over all characters in all fonts in font_table.  */
 501   int smallest_char_width;
 502
 503   /* Minimum font height over all fonts in font_table.  */
 504   int smallest_font_height;
 505
 506   struct ns_bitmap_record *bitmaps;
 507   int bitmaps_size;
 508   int bitmaps_last;
 509
 510   struct image_cache *image_cache;
 511
 512   struct ns_color_table *color_table;
 513
 514   /* DPI resolution of this screen */
 515   double resx, resy;
 516
 517   /* Mask of things that cause the mouse to be grabbed */
 518   int grabbed;
 519
 520   int n_planes;
 521
 522   int color_p;
 523
 524   Window root_window;
 525
 526   /* Xism */
 527   XrmDatabase xrdb;
 528
 529   /* The cursor to use for vertical scroll bars. */
 530   Cursor vertical_scroll_bar_cursor;
 531
 532   /* most mouse face stuff moved in here as of 21+ (and reasonably so) */
 533   int mouse_face_beg_row, mouse_face_beg_col;
 534   int mouse_face_end_row, mouse_face_end_col;
 535   int mouse_face_beg_x, mouse_face_beg_y;
 536   int mouse_face_end_x, mouse_face_end_y;
 537   int mouse_face_past_end;
 538   Lisp_Object mouse_face_window;
 539   int mouse_face_face_id;
 540   int mouse_face_deferred_gc;
 541   Lisp_Object mouse_face_overlay;
 542   FRAME_PTR mouse_face_mouse_frame;
 543   int mouse_face_mouse_x, mouse_face_mouse_y;
 544   int mouse_face_defer;
 545   int mouse_face_hidden;
 546   int mouse_face_image_state;
 547
 548   struct frame *x_highlight_frame;
 549   struct frame *x_focus_frame;
 550 };
 551
 552 /* This is a chain of structures for all the NS displays currently in use.  */
 553 extern struct ns_display_info *x_display_list;
 554
 555 extern Lisp_Object ns_display_name_list;
 556 extern struct ns_display_info *ns_display_info_for_name ();
 557
 558 struct ns_display_info *check_x_display_info (Lisp_Object frame);
 559 FRAME_PTR check_x_frame (Lisp_Object frame);
 560
 561
 562 struct ns_output
 563 {
 564 #ifdef __OBJC__
 565   EmacsView *view;
 566   id miniimage;
 567   NSColor *cursor_color;
 568   NSColor *foreground_color;
 569   NSColor *background_color;
 570   EmacsToolbar *toolbar;
 571 #else
 572   void *view;
 573   void *miniimage;
 574   void *cursor_color;
 575   void *foreground_color;
 576   void *background_color;
 577   void *toolbar;
 578 #endif
 579
 580   /* NSCursors init'ed in initFrameFromEmacs */
 581   Cursor text_cursor;
 582   Cursor nontext_cursor;
 583   Cursor modeline_cursor;
 584   Cursor hand_cursor;
 585   Cursor hourglass_cursor;
 586   Cursor horizontal_drag_cursor;
 587
 588   /* NS-specific */
 589   Cursor current_pointer;
 590
 591   /* lord knows why Emacs needs to know about our Window ids.. */
 592   Window window_desc, parent_desc;
 593   char explicit_parent;
 594
 595   struct font *font;
 596   int baseline_offset;
 597
 598   /* If a fontset is specified for this frame instead of font, this
 599      value contains an ID of the fontset, else -1.  */
 600   int fontset; /* only used with font_backend */
 601
 602   Lisp_Object icon_top;
 603   Lisp_Object icon_left;
 604
 605   /* The size of the extra width currently allotted for vertical
 606      scroll bars, in pixels.  */
 607   int vertical_scroll_bar_extra;
 608
 609   /* The height of the titlebar decoration (included in NSWindow's frame). */
 610   int titlebar_height;
 611
 612   /* The height of the toolbar if displayed, else 0. */
 613   int toolbar_height;
 614
 615   /* This is the Emacs structure for the NS display this frame is on.  */
 616   struct ns_display_info *display_info;
 617 };
 618
 619 /* this dummy decl needed to support TTYs */
 620 struct x_output
 621 {
 622   unsigned long background_pixel;
 623   unsigned long foreground_pixel;
 624 };
 625
 626
 627 /* This gives the ns_display_info structure for the display F is on.  */
 628 #define FRAME_NS_DISPLAY_INFO(f) ((f)->output_data.ns->display_info)
 629 /* the primacy of X must be constantly worked with... */
 630 #define FRAME_X_DISPLAY_INFO(f) ((f)->output_data.ns->display_info)
 631 #define FRAME_X_OUTPUT(f) ((f)->output_data.ns)
 632 #define FRAME_NS_WINDOW(f) ((f)->output_data.ns->window_desc)
 633 #define FRAME_X_WINDOW(f) ((f)->output_data.ns->window_desc)
 634
 635 /* This is the `Display *' which frame F is on.  */
 636 #define FRAME_NS_DISPLAY(f) (0)
 637 #define FRAME_X_DISPLAY(f) (0)
 638
 639 #define FRAME_FOREGROUND_COLOR(f) ((f)->output_data.ns->foreground_color)
 640 #define FRAME_BACKGROUND_COLOR(f) ((f)->output_data.ns->background_color)
 641
 642 #define FRAME_X_IMAGE_CACHE(F) FRAME_NS_DISPLAY_INFO ((F))->image_cache
 643
 644 #define NS_FACE_FOREGROUND(f) ((f)->foreground)
 645 #define NS_FACE_BACKGROUND(f) ((f)->background)
 646 #define FRAME_NS_TITLEBAR_HEIGHT(f) ((f)->output_data.ns->titlebar_height)
 647 #define FRAME_NS_TOOLBAR_HEIGHT(f) ((f)->output_data.ns->toolbar_height)
 648
 649 #define FONT_WIDTH(f)   ((f)->max_width)
 650 #define FONT_HEIGHT(f)  ((f)->height)
 651 /*#define FONT_BASE(f)    ((f)->ascent) */
 652 #define FONT_BASE(f)    (((struct nsfont_info *)f)->max_bounds.ascent)
 653 /*#define FONT_DESCENT(f) ((f)->descent) */
 654 #define FONT_DESCENT(f) (((struct nsfont_info *)f)->max_bounds.descent)
 655
 656 #define FRAME_DEFAULT_FACE(f) FACE_FROM_ID (f, DEFAULT_FACE_ID)
 657
 658 #define FRAME_NS_VIEW(f) ((f)->output_data.ns->view)
 659 #define FRAME_CURSOR_COLOR(f) ((f)->output_data.ns->cursor_color)
 660 #define FRAME_POINTER_TYPE(f) ((f)->output_data.ns->current_pointer)
 661
 662 #define FRAME_FONT(f) ((f)->output_data.ns->font)
 663
 664 #ifdef __OBJC__
 665 #define XNS_SCROLL_BAR(vec) ((id) XSAVE_VALUE (vec)->pointer)
 666 #else
 667 #define XNS_SCROLL_BAR(vec) XSAVE_VALUE (vec)->pointer
 668 #endif
 669
 670 /* Compute pixel size for vertical scroll bars */
 671 #define NS_SCROLL_BAR_WIDTH(f)                              \
 672 (FRAME_HAS_VERTICAL_SCROLL_BARS (f)                          \
 673  ? rint (FRAME_CONFIG_SCROLL_BAR_WIDTH (f) > 0               \
 674         ? FRAME_CONFIG_SCROLL_BAR_WIDTH (f)                 \
 675         : (FRAME_SCROLL_BAR_COLS (f) * FRAME_COLUMN_WIDTH (f)))   \
 676  : 0)
 677
 678 /* Difference btwn char-column-calculated and actual SB widths.
 679    This is only a concern for rendering when SB on left. */
 680 #define NS_SCROLL_BAR_ADJUST(w, f)              \
 681 (WINDOW_HAS_VERTICAL_SCROLL_BAR_ON_LEFT (w) ?   \
 682     (FRAME_SCROLL_BAR_COLS (f) * FRAME_COLUMN_WIDTH (f) \
 683         - NS_SCROLL_BAR_WIDTH (f)) : 0)
 684
 685 /* XXX: fix for GNUstep inconsistent accounting for titlebar */
 686 #ifdef NS_IMPL_GNUSTEP
 687 #define NS_TOP_POS(f) ((f)->top_pos + 18)
 688 #else
 689 #define NS_TOP_POS(f) ((f)->top_pos)
 690 #endif
 691
 692 #define FRAME_NS_FONT_TABLE(f) (FRAME_NS_DISPLAY_INFO (f)->font_table)
 693
 694 #define FRAME_FONTSET(f) ((f)->output_data.ns->fontset)
 695
 696 #define FRAME_SMALLEST_CHAR_WIDTH(f)  \
 697   (FRAME_NS_DISPLAY_INFO (f)->smallest_char_width)
 698 #define FRAME_SMALLEST_FONT_HEIGHT(f) \
 699   (FRAME_NS_DISPLAY_INFO (f)->smallest_font_height)
 700 #define FONT_TYPE_FOR_UNIBYTE(font, ch)   0
 701 #define FONT_TYPE_FOR_MULTIBYTE(font, ch) 0
 702 #define FRAME_BASELINE_OFFSET(f) ((f)->output_data.ns->baseline_offset)
 703 #define BLACK_PIX_DEFAULT(f) 0x000000
 704 #define WHITE_PIX_DEFAULT(f) 0xFFFFFF
 705
 706 /* First position where characters can be shown (instead of scrollbar, if
 707    it is on left. */
 708 #define FIRST_CHAR_POSITION(f) \
 709   (! (FRAME_HAS_VERTICAL_SCROLL_BARS_ON_LEFT (f)) ? 0 \
 710    : FRAME_SCROLL_BAR_COLS (f))
 711
 712 extern struct ns_display_info *ns_term_init ();
 713 extern void ns_term_shutdown (int sig);
 714
 715 /* constants for text rendering */
 716 #define NS_DUMPGLYPH_NORMAL             0
 717 #define NS_DUMPGLYPH_CURSOR             1
 718 #define NS_DUMPGLYPH_FOREGROUND         2
 719 #define NS_DUMPGLYPH_MOUSEFACE          3
 720
 721
 722 EXFUN (Fx_display_grayscale_p, 1);
 723 EXFUN (Fx_display_planes, 1);
 724
 725 /* In nsfont, called from fontset.c */
 726 extern void nsfont_make_fontset_for_font (Lisp_Object name,
 727                                          Lisp_Object font_object);
 728
 729 /* In nsfont, for debugging */
 730 struct glyph_string;
 731 void dump_glyphstring (struct glyph_string *s);
 732
 733 /* Implemented in nsterm, published in or needed from nsfns. */
 734 extern Lisp_Object Qfontsize;
 735 extern Lisp_Object ns_list_fonts (FRAME_PTR f, Lisp_Object pattern,
 736                                   int size, int maxnames);
 737 extern void ns_clear_frame (struct frame *f);
 738
 739 extern const char *ns_xlfd_to_fontname (const char *xlfd);
 740
 741 extern void check_ns (void);
 742 extern Lisp_Object ns_map_event_to_object ();
 743 extern Lisp_Object ns_string_from_pasteboard ();
 744 extern void ns_string_to_pasteboard ();
 745 extern void nxatoms_of_nsselect ();
 746 extern int ns_lisp_to_cursor_type ();
 747 extern Lisp_Object ns_cursor_type_to_lisp (int arg);
 748 extern Lisp_Object Qnone;
 749 extern char ns_no_defaults;
 750
 751 extern int
 752 ns_defined_color (struct frame *f, char *name, XColor *color_def, int alloc,
 753                   char makeIndex);
 754 extern void
 755 ns_query_color (void *col, XColor *color_def, int setPixel);
 756
 757 #ifdef __OBJC__
 758 extern Lisp_Object ns_color_to_lisp (NSColor *col);
 759 extern int ns_lisp_to_color (Lisp_Object color, NSColor **col);
 760 extern NSColor *ns_lookup_indexed_color (unsigned long idx, struct frame *f);
 761 extern unsigned long ns_index_color (NSColor *color, struct frame *f);
 762 extern void ns_free_indexed_color (unsigned long idx, struct frame *f);
 763 #endif
 764
 765 /* C access to ObjC functionality */
 766 extern void  ns_release_object (void *obj);
 767 extern void  ns_retain_object (void *obj);
 768 extern void *ns_alloc_autorelease_pool ();
 769 extern void ns_release_autorelease_pool ();
 770
 771 /* in nsmenu */
 772 extern void update_frame_tool_bar (FRAME_PTR f);
 773 extern void free_frame_tool_bar (FRAME_PTR f);
 774 extern void find_and_call_menu_selection (FRAME_PTR f,
 775     int menu_bar_items_used, Lisp_Object vector, void *client_data);
 776 extern Lisp_Object find_and_return_menu_selection (FRAME_PTR f,
 777                                                    int keymaps,
 778                                                    void *client_data);
 779 extern Lisp_Object ns_popup_dialog (Lisp_Object position, Lisp_Object contents,
 780                                     Lisp_Object header);
 781
 782 /* two more prototypes that should be moved to a more general include file */
 783 extern void set_frame_menubar (struct frame *f, int first_time, int deep_p);
 784 extern void x_set_window_size (struct frame *f, int change_grav,
 785                               int cols, int rows);
 786
 787 /* From nsimage.m, needed in image.c */
 788 struct image;
 789 extern void *ns_image_from_XBM (unsigned char *bits, int width, int height);
 790 extern void *ns_image_for_XPM (int width, int height, int depth);
 791 extern void *ns_image_from_file (Lisp_Object file);
 792 extern int ns_load_image (struct frame *f, struct image *img,
 793                           Lisp_Object spec_file, Lisp_Object spec_data);
 794 extern int ns_image_width (void *img);
 795 extern int ns_image_height (void *img);
 796 extern unsigned long ns_get_pixel (void *img, int x, int y);
 797 extern void ns_put_pixel (void *img, int x, int y, unsigned long argb);
 798 extern void ns_set_alpha (void *img, int x, int y, unsigned char a);
 799
 800 extern int x_display_pixel_height P_ ((struct ns_display_info *));
 801 extern int x_display_pixel_width P_ ((struct ns_display_info *));
 802
 803 /* This in nsterm.m */
 804 extern unsigned long ns_get_rgb_color (struct frame *f,
 805                                        float r, float g, float b, float a);
 806 extern NSPoint last_mouse_motion_position;
 807
 808 #ifdef NS_IMPL_GNUSTEP
 809 extern char gnustep_base_version[];  /* version tracking */
 810 #endif
 811
 812 #define MINWIDTH 10
 813 #define MINHEIGHT 10
 814
 815 /* Screen max coordinate
 816  Using larger coordinates causes movewindow/placewindow to abort */
 817 #define SCREENMAX 16000
 818
 819 #define NS_SCROLL_BAR_WIDTH_DEFAULT     [EmacsScroller scrollerWidth]
 820 /* This is to match emacs on other platforms, ugly though it is. */
 821 #define NS_SELECTION_COLOR_DEFAULT      @"LightGoldenrod2";
 822 #define RESIZE_HANDLE_SIZE 12
 823
 824 /* Little utility macros */
 825 #define IN_BOUND(min, x, max) (((x) < (min)) \
 826                                 ? (min) : (((x)>(max)) ? (max) : (x)))
 827 #define SCREENMAXBOUND(x) (IN_BOUND (-SCREENMAX, x, SCREENMAX))
 828
 829 /* needed somewhere... */
 830 #define VERTICAL_SCROLL_BAR_WIDTH_TRIM (0)
 831
 832
 833 #endif  /* HAVE_NS */
 834
 835 /* arch-tag: 0a28b142-4ac1-4a81-a243-abcd82d9c4e5
 836    (do not change this comment) */