src/nsterm.h

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