code.delx.au - gnu-emacs/blob - src/nsterm.h

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