src/frame.h

   1 /* Define frame-object for GNU Emacs.
   2    Copyright (C) 1993-1994, 1999-2012 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 /* Don't multiply include: dispextern.h includes macterm.h which
  20    includes frame.h some emacs source includes both dispextern.h and
  21    frame.h */
  22
  23 #ifndef EMACS_FRAME_H
  24 #define EMACS_FRAME_H
  25
  26 #include "dispextern.h"
  27
  28 \f
  29 /* Miscellanea.  */
  30
  31 /* Nonzero means there is at least one garbaged frame. */
  32 extern int frame_garbaged;
  33
  34 \f
  35 /* The structure representing a frame.  */
  36
  37 enum output_method
  38 {
  39   output_initial,
  40   output_termcap,
  41   output_x_window,
  42   output_msdos_raw,
  43   output_w32,
  44   output_mac,
  45   output_ns
  46 };
  47
  48 enum vertical_scroll_bar_type
  49 {
  50   vertical_scroll_bar_none,
  51   vertical_scroll_bar_left,
  52   vertical_scroll_bar_right
  53 };
  54
  55 enum text_cursor_kinds
  56 {
  57   DEFAULT_CURSOR = -2,
  58   NO_CURSOR = -1,
  59   FILLED_BOX_CURSOR,
  60   HOLLOW_BOX_CURSOR,
  61   BAR_CURSOR,
  62   HBAR_CURSOR
  63 };
  64
  65 enum fullscreen_type
  66 {
  67   FULLSCREEN_NONE,
  68   FULLSCREEN_WIDTH     = 0x001,
  69   FULLSCREEN_HEIGHT    = 0x002,
  70   FULLSCREEN_BOTH      = 0x003,
  71   FULLSCREEN_MAXIMIZED = 0x013,
  72   FULLSCREEN_WAIT      = 0x100
  73 };
  74
  75
  76 #define FRAME_FOREGROUND_PIXEL(f) ((f)->foreground_pixel)
  77 #define FRAME_BACKGROUND_PIXEL(f) ((f)->background_pixel)
  78
  79 struct terminal;
  80
  81 struct font_driver_list;
  82
  83 struct frame
  84 {
  85   struct vectorlike_header header;
  86
  87   /* All Lisp_Object components must come first.
  88      That ensures they are all aligned normally.  */
  89
  90   /* Name of this frame: a Lisp string.  It is used for looking up resources,
  91      as well as for the title in some cases.  */
  92   Lisp_Object name;
  93
  94   /* The name to use for the icon, the last time
  95      it was refreshed.  nil means not explicitly specified.  */
  96   Lisp_Object icon_name;
  97
  98   /* This is the frame title specified explicitly, if any.
  99      Usually it is nil.  */
 100   Lisp_Object title;
 101
 102   /* The frame which should receive keystrokes that occur in this
 103      frame, or nil if they should go to the frame itself.  This is
 104      usually nil, but if the frame is minibufferless, we can use this
 105      to redirect keystrokes to a surrogate minibuffer frame when
 106      needed.
 107
 108      Note that a value of nil is different than having the field point
 109      to the frame itself.  Whenever the Fselect_frame function is used
 110      to shift from one frame to the other, any redirections to the
 111      original frame are shifted to the newly selected frame; if
 112      focus_frame is nil, Fselect_frame will leave it alone.  */
 113   Lisp_Object focus_frame;
 114
 115   /* This frame's root window.  Every frame has one.
 116      If the frame has only a minibuffer window, this is it.
 117      Otherwise, if the frame has a minibuffer window, this is its sibling.  */
 118   Lisp_Object root_window;
 119
 120   /* This frame's selected window.
 121      Each frame has its own window hierarchy
 122      and one of the windows in it is selected within the frame.
 123      The selected window of the selected frame is Emacs's selected window.  */
 124   Lisp_Object selected_window;
 125
 126   /* This frame's minibuffer window.
 127      Most frames have their own minibuffer windows,
 128      but only the selected frame's minibuffer window
 129      can actually appear to exist.  */
 130   Lisp_Object minibuffer_window;
 131
 132   /* Parameter alist of this frame.
 133      These are the parameters specified when creating the frame
 134      or modified with modify-frame-parameters.  */
 135   Lisp_Object param_alist;
 136
 137   /* List of scroll bars on this frame.
 138      Actually, we don't specify exactly what is stored here at all; the
 139      scroll bar implementation code can use it to store anything it likes.
 140      This field is marked by the garbage collector.  It is here
 141      instead of in the `device' structure so that the garbage
 142      collector doesn't need to look inside the window-system-dependent
 143      structure.  */
 144   Lisp_Object scroll_bars;
 145   Lisp_Object condemned_scroll_bars;
 146
 147   /* Vector describing the items to display in the menu bar.
 148      Each item has four elements in this vector.
 149      They are KEY, STRING, SUBMAP, and HPOS.
 150      (HPOS is not used in when the X toolkit is in use.)
 151      There are four additional elements of nil at the end, to terminate.  */
 152   Lisp_Object menu_bar_items;
 153
 154   /* Alist of elements (FACE-NAME . FACE-VECTOR-DATA).  */
 155   Lisp_Object face_alist;
 156
 157   /* A vector that records the entire structure of this frame's menu bar.
 158      For the format of the data, see extensive comments in xmenu.c.
 159      Only the X toolkit version uses this.  */
 160   Lisp_Object menu_bar_vector;
 161
 162   /* Predicate for selecting buffers for other-buffer.  */
 163   Lisp_Object buffer_predicate;
 164
 165   /* List of buffers viewed in this frame, for other-buffer.  */
 166   Lisp_Object buffer_list;
 167
 168   /* List of buffers that were viewed, then buried in this frame.  The
 169      most recently buried buffer is first.  For last-buffer.  */
 170   Lisp_Object buried_buffer_list;
 171
 172   /* A dummy window used to display menu bars under X when no X
 173      toolkit support is available.  */
 174   Lisp_Object menu_bar_window;
 175
 176   /* A window used to display the tool-bar of a frame.  */
 177   Lisp_Object tool_bar_window;
 178
 179   /* Desired and current tool-bar items.  */
 180   Lisp_Object tool_bar_items;
 181
 182   /* Where tool bar is, can be left, right, top or bottom.  The native
 183      tool bar only supports top.  */
 184   Lisp_Object tool_bar_position;
 185
 186   /* Desired and current contents displayed in tool_bar_window.  */
 187   Lisp_Object desired_tool_bar_string, current_tool_bar_string;
 188
 189   /* Beyond here, there should be no more Lisp_Object components.  */
 190
 191   /* Cache of realized faces.  */
 192   struct face_cache *face_cache;
 193
 194   /* Number of elements in `menu_bar_vector' that have meaningful data.  */
 195   int menu_bar_items_used;
 196
 197   /* A buffer to hold the frame's name.  We can't use the Lisp
 198      string's pointer (`name', above) because it might get relocated.  */
 199   char *namebuf;
 200
 201   /* Glyph pool and matrix. */
 202   struct glyph_pool *current_pool;
 203   struct glyph_pool *desired_pool;
 204   struct glyph_matrix *desired_matrix;
 205   struct glyph_matrix *current_matrix;
 206
 207   /* 1 means that glyphs on this frame have been initialized so it can
 208      be used for output.  */
 209   unsigned glyphs_initialized_p : 1;
 210
 211   /* Set to non-zero in change_frame_size when size of frame changed
 212      Clear the frame in clear_garbaged_frames if set.  */
 213   unsigned resized_p : 1;
 214
 215   /* Set to non-zero in when we want for force a flush_display in
 216      update_frame, usually after resizing the frame.  */
 217   unsigned force_flush_display_p : 1;
 218
 219   /* Set to non-zero if the default face for the frame has been
 220      realized.  Reset to zero whenever the default face changes.
 221      Used to see the difference between a font change and face change.  */
 222   unsigned default_face_done_p : 1;
 223
 224   /* Set to non-zero if this frame has already been hscrolled during
 225      current redisplay.  */
 226   unsigned already_hscrolled_p : 1;
 227
 228   /* Set to non-zero when current redisplay has updated frame.  */
 229   unsigned updated_p : 1;
 230
 231   /* Set to non-zero to minimize tool-bar height even when
 232      auto-resize-tool-bar is set to grow-only.  */
 233   unsigned minimize_tool_bar_window_p : 1;
 234
 235 #if defined (USE_GTK) || defined (HAVE_NS)
 236   /* Nonzero means using a tool bar that comes from the toolkit.  */
 237   int external_tool_bar;
 238 #endif
 239
 240   /* Margin at the top of the frame.  Used to display the tool-bar.  */
 241   int tool_bar_lines;
 242
 243   int n_tool_bar_rows;
 244   int n_tool_bar_items;
 245
 246   /* A buffer for decode_mode_line. */
 247   char *decode_mode_spec_buffer;
 248
 249   /* See do_line_insertion_deletion_costs for info on these arrays. */
 250   /* Cost of inserting 1 line on this frame */
 251   int *insert_line_cost;
 252   /* Cost of deleting 1 line on this frame */
 253   int *delete_line_cost;
 254   /* Cost of inserting n lines on this frame */
 255   int *insert_n_lines_cost;
 256   /* Cost of deleting n lines on this frame */
 257   int *delete_n_lines_cost;
 258
 259   /* Size of this frame, excluding fringes, scroll bars etc.,
 260      in units of canonical characters.  */
 261   int text_lines, text_cols;
 262
 263   /* Total size of this frame (i.e. its native window), in units of
 264      canonical characters.  */
 265   int total_lines, total_cols;
 266
 267   /* New text height and width for pending size change.
 268      0 if no change pending.  */
 269   int new_text_lines, new_text_cols;
 270
 271   /* Pixel position of the frame window (x and y offsets in root window).  */
 272   int left_pos, top_pos;
 273
 274   /* Size of the frame window in pixels.  */
 275   int pixel_height, pixel_width;
 276
 277   /* Dots per inch of the screen the frame is on.  */
 278   double resx, resy;
 279
 280   /* These many pixels are the difference between the outer window (i.e. the
 281      left and top of the window manager decoration) and FRAME_X_WINDOW. */
 282   int x_pixels_diff, y_pixels_diff;
 283
 284   /* This is the gravity value for the specified window position.  */
 285   int win_gravity;
 286
 287   /* The geometry flags for this window.  */
 288   int size_hint_flags;
 289
 290   /* Border width of the frame window as known by the (X) window system.  */
 291   int border_width;
 292
 293   /* Width of the internal border.  This is a line of background color
 294      just inside the window's border.  When the frame is selected,
 295      a highlighting is displayed inside the internal border.  */
 296   int internal_border_width;
 297
 298   /* Canonical X unit.  Width of default font, in pixels.  */
 299   int column_width;
 300
 301   /* Width of space glyph of default font, in pixels.  */
 302   int space_width;
 303
 304   /* Canonical Y unit.  Height of a line, in pixels.  */
 305   int line_height;
 306
 307   /* The output method says how the contents of this frame are
 308      displayed.  It could be using termcap, or using an X window.
 309      This must be the same as the terminal->type. */
 310   enum output_method output_method;
 311
 312   /* The terminal device that this frame uses.  If this is NULL, then
 313      the frame has been deleted. */
 314   struct terminal *terminal;
 315
 316   /* Device-dependent, frame-local auxiliary data used for displaying
 317      the contents.  When the frame is deleted, this data is deleted as
 318      well. */
 319   union output_data
 320   {
 321     struct tty_output *tty;     /* termchar.h */
 322     struct x_output *x;         /* xterm.h */
 323     struct w32_output *w32;     /* w32term.h */
 324     struct ns_output *ns;       /* nsterm.h */
 325     EMACS_INT nothing;
 326   }
 327   output_data;
 328
 329   /* List of font-drivers available on the frame. */
 330   struct font_driver_list *font_driver_list;
 331   /* List of data specific to font-driver and frame, but common to
 332      faces.  */
 333   struct font_data_list *font_data_list;
 334
 335   /* Total width of fringes reserved for drawing truncation bitmaps,
 336      continuation bitmaps and alike.  The width is in canonical char
 337      units of the frame.  This must currently be the case because window
 338      sizes aren't pixel values.  If it weren't the case, we wouldn't be
 339      able to split windows horizontally nicely.  */
 340   int fringe_cols;
 341
 342   /* The extra width (in pixels) currently allotted for fringes.  */
 343   int left_fringe_width, right_fringe_width;
 344
 345   /* See FULLSCREEN_ enum below */
 346   enum fullscreen_type want_fullscreen;
 347
 348   /* Number of lines of menu bar.  */
 349   int menu_bar_lines;
 350
 351 #if defined (USE_X_TOOLKIT) || defined (HAVE_NTGUI) \
 352     || defined (HAVE_NS) || defined (USE_GTK)
 353   /* Nonzero means using a menu bar that comes from the X toolkit.  */
 354   unsigned int external_menu_bar : 1;
 355 #endif
 356
 357   /* Nonzero if last attempt at redisplay on this frame was preempted.  */
 358   unsigned char display_preempted : 1;
 359
 360   /* visible is nonzero if the frame is currently displayed; we check
 361      it to see if we should bother updating the frame's contents.
 362      DON'T SET IT DIRECTLY; instead, use FRAME_SET_VISIBLE.
 363
 364      Note that, since invisible frames aren't updated, whenever a
 365      frame becomes visible again, it must be marked as garbaged.  The
 366      FRAME_SAMPLE_VISIBILITY macro takes care of this.
 367
 368      On ttys and on Windows NT/9X, to avoid wasting effort updating
 369      visible frames that are actually completely obscured by other
 370      windows on the display, we bend the meaning of visible slightly:
 371      if greater than 1, then the frame is obscured - we still consider
 372      it to be "visible" as seen from lisp, but we don't bother
 373      updating it.  We must take care to garbage the frame when it
 374      ceases to be obscured though.
 375
 376      iconified is nonzero if the frame is currently iconified.
 377
 378      Asynchronous input handlers should NOT change these directly;
 379      instead, they should change async_visible or async_iconified, and
 380      let the FRAME_SAMPLE_VISIBILITY macro set visible and iconified
 381      at the next redisplay.
 382
 383      These should probably be considered read-only by everyone except
 384      FRAME_SAMPLE_VISIBILITY.
 385
 386      These two are mutually exclusive.  They might both be zero, if the
 387      frame has been made invisible without an icon.  */
 388   unsigned char visible : 2;
 389   unsigned char iconified : 1;
 390
 391   /* Let's not use bitfields for volatile variables.  */
 392
 393   /* Asynchronous input handlers change these, and
 394      FRAME_SAMPLE_VISIBILITY copies them into visible and iconified.
 395      See FRAME_SAMPLE_VISIBILITY, below.  */
 396   volatile char async_visible, async_iconified;
 397
 398   /* Nonzero if this frame should be redrawn.  */
 399   volatile char garbaged;
 400
 401   /* True if frame actually has a minibuffer window on it.
 402      0 if using a minibuffer window that isn't on this frame.  */
 403   unsigned char has_minibuffer : 1;
 404
 405   /* 0 means, if this frame has just one window,
 406      show no modeline for that window.  */
 407   unsigned char wants_modeline : 1;
 408
 409   /* Non-zero if the hardware device this frame is displaying on can
 410      support scroll bars.  */
 411   char can_have_scroll_bars;
 412
 413   /* Non-0 means raise this frame to the top of the heap when selected.  */
 414   unsigned char auto_raise : 1;
 415
 416   /* Non-0 means lower this frame to the bottom of the stack when left.  */
 417   unsigned char auto_lower : 1;
 418
 419   /* True if frame's root window can't be split.  */
 420   unsigned char no_split : 1;
 421
 422   /* If this is set, then Emacs won't change the frame name to indicate
 423      the current buffer, etcetera.  If the user explicitly sets the frame
 424      name, this gets set.  If the user sets the name to Qnil, this is
 425      cleared.  */
 426   unsigned char explicit_name : 1;
 427
 428   /* Nonzero if size of some window on this frame has changed.  */
 429   unsigned char window_sizes_changed : 1;
 430
 431   /* Nonzero if the mouse has moved on this display device
 432      since the last time we checked.  */
 433   unsigned char mouse_moved :1;
 434
 435   /* Nonzero means that the pointer is invisible. */
 436   unsigned char pointer_invisible :1;
 437
 438   /* If can_have_scroll_bars is non-zero, this is non-zero if we should
 439      actually display them on this frame.  */
 440   enum vertical_scroll_bar_type vertical_scroll_bar_type;
 441
 442   /* What kind of text cursor should we draw in the future?
 443      This should always be filled_box_cursor or bar_cursor.  */
 444   enum text_cursor_kinds desired_cursor;
 445
 446   /* Width of bar cursor (if we are using that).  */
 447   int cursor_width;
 448
 449   /* What kind of text cursor should we draw when the cursor blinks off?
 450      This can be filled_box_cursor or bar_cursor or no_cursor.  */
 451   enum text_cursor_kinds blink_off_cursor;
 452
 453   /* Width of bar cursor (if we are using that) for blink-off state.  */
 454   int blink_off_cursor_width;
 455
 456   /* Storage for messages to this frame. */
 457   char *message_buf;
 458
 459   /* Nonnegative if current redisplay should not do scroll computation
 460      for lines beyond a certain vpos.  This is the vpos.  */
 461   int scroll_bottom_vpos;
 462
 463   /* Configured width of the scroll bar, in pixels and in characters.
 464      config_scroll_bar_cols tracks config_scroll_bar_width if the
 465      latter is positive; a zero value in config_scroll_bar_width means
 466      to compute the actual width on the fly, using config_scroll_bar_cols
 467      and the current font width.  */
 468   int config_scroll_bar_width;
 469   int config_scroll_bar_cols;
 470
 471   /* The size of the extra width currently allotted for vertical
 472      scroll bars in this frame, in pixels.  */
 473   int scroll_bar_actual_width;
 474
 475   /* The baud rate that was used to calculate costs for this frame.  */
 476   int cost_calculation_baud_rate;
 477
 478   /* frame opacity
 479      alpha[0]: alpha transparency of the active frame
 480      alpha[1]: alpha transparency of inactive frames
 481      Negative values mean not to change alpha.  */
 482   double alpha[2];
 483
 484   /* Exponent for gamma correction of colors.  1/(VIEWING_GAMMA *
 485      SCREEN_GAMMA) where viewing_gamma is 0.4545 and SCREEN_GAMMA is a
 486      frame parameter.  0 means don't do gamma correction.  */
 487   double gamma;
 488
 489   /* Additional space to put between text lines on this frame.  */
 490   int extra_line_spacing;
 491
 492   /* All display backends seem to need these two pixel values. */
 493   unsigned long background_pixel;
 494   unsigned long foreground_pixel;
 495 };
 496
 497 #define FRAME_KBOARD(f) ((f)->terminal->kboard)
 498
 499 /* Return a pointer to the image cache of frame F.  */
 500 #define FRAME_IMAGE_CACHE(F) ((F)->terminal->image_cache)
 501
 502 typedef struct frame *FRAME_PTR;
 503
 504 #define XFRAME(p) (eassert (FRAMEP(p)),(struct frame *) XPNTR (p))
 505 #define XSETFRAME(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_FRAME))
 506
 507 /* Given a window, return its frame as a Lisp_Object.  */
 508 #define WINDOW_FRAME(w) (w)->frame
 509
 510 /* Test a frame for particular kinds of display methods.  */
 511 #define FRAME_INITIAL_P(f) ((f)->output_method == output_initial)
 512 #define FRAME_TERMCAP_P(f) ((f)->output_method == output_termcap)
 513 #define FRAME_X_P(f) ((f)->output_method == output_x_window)
 514 #define FRAME_W32_P(f) ((f)->output_method == output_w32)
 515 #define FRAME_MSDOS_P(f) ((f)->output_method == output_msdos_raw)
 516 #define FRAME_MAC_P(f) ((f)->output_method == output_mac)
 517 #define FRAME_NS_P(f) ((f)->output_method == output_ns)
 518
 519 /* FRAME_WINDOW_P tests whether the frame is a window, and is
 520    defined to be the predicate for the window system being used.  */
 521
 522 #ifdef HAVE_X_WINDOWS
 523 #define FRAME_WINDOW_P(f) FRAME_X_P (f)
 524 #endif
 525 #ifdef HAVE_NTGUI
 526 #define FRAME_WINDOW_P(f) FRAME_W32_P (f)
 527 #endif
 528 #ifdef HAVE_NS
 529 #define FRAME_WINDOW_P(f) FRAME_NS_P(f)
 530 #endif
 531 #ifndef FRAME_WINDOW_P
 532 #define FRAME_WINDOW_P(f) (0)
 533 #endif
 534
 535 /* Return a pointer to the structure holding information about the
 536    region of text, if any, that is currently shown in mouse-face on
 537    frame F.  We need to define two versions because a TTY-only build
 538    does not have FRAME_X_DISPLAY_INFO.  */
 539 #ifdef HAVE_WINDOW_SYSTEM
 540 # define MOUSE_HL_INFO(F)                                       \
 541   (FRAME_WINDOW_P(F)                                            \
 542    ? &FRAME_X_DISPLAY_INFO(F)->mouse_highlight                  \
 543    : &(F)->output_data.tty->display_info->mouse_highlight)
 544 #else
 545 # define MOUSE_HL_INFO(F)                                       \
 546   (&(F)->output_data.tty->display_info->mouse_highlight)
 547 #endif
 548
 549 /* Nonzero if frame F is still alive (not deleted).  */
 550 #define FRAME_LIVE_P(f) ((f)->terminal != 0)
 551
 552 /* Nonzero if frame F is a minibuffer-only frame.  */
 553 #define FRAME_MINIBUF_ONLY_P(f) \
 554   EQ (FRAME_ROOT_WINDOW (f), FRAME_MINIBUF_WINDOW (f))
 555
 556 /* Nonzero if frame F contains a minibuffer window.
 557    (If this is 0, F must use some other minibuffer window.)  */
 558 #define FRAME_HAS_MINIBUF_P(f) ((f)->has_minibuffer)
 559
 560 /* Pixel height of frame F, including non-toolkit menu bar and
 561    non-toolkit tool bar lines.  */
 562 #define FRAME_PIXEL_HEIGHT(f) ((f)->pixel_height)
 563
 564 /* Pixel width of frame F.  */
 565 #define FRAME_PIXEL_WIDTH(f) ((f)->pixel_width)
 566
 567 /* Height of frame F, measured in canonical lines, including
 568    non-toolkit menu bar and non-toolkit tool bar lines.  */
 569 #define FRAME_LINES(f) (f)->text_lines
 570
 571 /* Width of frame F, measured in canonical character columns,
 572    not including scroll bars if any.  */
 573 #define FRAME_COLS(f) (f)->text_cols
 574
 575 /* Number of lines of frame F used for menu bar.
 576    This is relevant on terminal frames and on
 577    X Windows when not using the X toolkit.
 578    These lines are counted in FRAME_LINES.  */
 579 #define FRAME_MENU_BAR_LINES(f) (f)->menu_bar_lines
 580
 581 /* Nonzero if this frame should display a tool bar
 582    in a way that does not use any text lines.  */
 583 #if defined (USE_GTK) || defined (HAVE_NS)
 584 #define FRAME_EXTERNAL_TOOL_BAR(f) (f)->external_tool_bar
 585 #else
 586 #define FRAME_EXTERNAL_TOOL_BAR(f) 0
 587 #endif
 588
 589 /* Number of lines of frame F used for the tool-bar.  */
 590
 591 #define FRAME_TOOL_BAR_LINES(f) (f)->tool_bar_lines
 592
 593
 594 /* Lines above the top-most window in frame F.  */
 595
 596 #define FRAME_TOP_MARGIN(F) \
 597   (FRAME_MENU_BAR_LINES (F) + FRAME_TOOL_BAR_LINES (F))
 598
 599 /* Pixel height of the top margin above.  */
 600
 601 #define FRAME_TOP_MARGIN_HEIGHT(f) \
 602   (FRAME_TOP_MARGIN (f) * FRAME_LINE_HEIGHT (f))
 603
 604 /* Nonzero if this frame should display a menu bar
 605    in a way that does not use any text lines.  */
 606 #if defined (USE_X_TOOLKIT) || defined (HAVE_NTGUI) \
 607      || defined (HAVE_NS) || defined (USE_GTK)
 608 #define FRAME_EXTERNAL_MENU_BAR(f) (f)->external_menu_bar
 609 #else
 610 #define FRAME_EXTERNAL_MENU_BAR(f) 0
 611 #endif
 612 #define FRAME_VISIBLE_P(f) ((f)->visible != 0)
 613
 614 /* Nonzero if frame F is currently visible but hidden.  */
 615 #define FRAME_OBSCURED_P(f) ((f)->visible > 1)
 616
 617 /* Nonzero if frame F is currently iconified.  */
 618 #define FRAME_ICONIFIED_P(f) (f)->iconified
 619
 620 #define FRAME_SET_VISIBLE(f,p) \
 621   ((f)->async_visible = (p), FRAME_SAMPLE_VISIBILITY (f))
 622 #define SET_FRAME_GARBAGED(f) (frame_garbaged = 1, f->garbaged = 1)
 623 #define FRAME_GARBAGED_P(f) (f)->garbaged
 624
 625 /* Nonzero means do not allow splitting this frame's window.  */
 626 #define FRAME_NO_SPLIT_P(f) (f)->no_split
 627
 628 /* Not really implemented.  */
 629 #define FRAME_WANTS_MODELINE_P(f) (f)->wants_modeline
 630
 631 /* Nonzero if a size change has been requested for frame F
 632    but not yet really put into effect.  This can be true temporarily
 633    when an X event comes in at a bad time.  */
 634 #define FRAME_WINDOW_SIZES_CHANGED(f) (f)->window_sizes_changed
 635
 636 /* The minibuffer window of frame F, if it has one; otherwise nil.  */
 637 #define FRAME_MINIBUF_WINDOW(f) (f)->minibuffer_window
 638
 639 /* The root window of the window tree of frame F.  */
 640 #define FRAME_ROOT_WINDOW(f) (f)->root_window
 641
 642 /* The currently selected window of the window tree of frame F.  */
 643 #define FRAME_SELECTED_WINDOW(f) (f)->selected_window
 644
 645 #define FRAME_INSERT_COST(f) (f)->insert_line_cost
 646 #define FRAME_DELETE_COST(f) (f)->delete_line_cost
 647 #define FRAME_INSERTN_COST(f) (f)->insert_n_lines_cost
 648 #define FRAME_DELETEN_COST(f) (f)->delete_n_lines_cost
 649 #define FRAME_MESSAGE_BUF(f) (f)->message_buf
 650 #define FRAME_SCROLL_BOTTOM_VPOS(f) (f)->scroll_bottom_vpos
 651 #define FRAME_FOCUS_FRAME(f) (f)->focus_frame
 652
 653 /* Nonzero if frame F supports scroll bars.
 654    If this is zero, then it is impossible to enable scroll bars
 655    on frame F.  */
 656 #define FRAME_CAN_HAVE_SCROLL_BARS(f) ((f)->can_have_scroll_bars)
 657
 658 /* This frame slot says whether scroll bars are currently enabled for frame F,
 659    and which side they are on.  */
 660 #define FRAME_VERTICAL_SCROLL_BAR_TYPE(f) ((f)->vertical_scroll_bar_type)
 661 #define FRAME_HAS_VERTICAL_SCROLL_BARS(f) \
 662   ((f)->vertical_scroll_bar_type != vertical_scroll_bar_none)
 663 #define FRAME_HAS_VERTICAL_SCROLL_BARS_ON_LEFT(f) \
 664   ((f)->vertical_scroll_bar_type == vertical_scroll_bar_left)
 665 #define FRAME_HAS_VERTICAL_SCROLL_BARS_ON_RIGHT(f) \
 666   ((f)->vertical_scroll_bar_type == vertical_scroll_bar_right)
 667
 668 /* Width that a scroll bar in frame F should have, if there is one.
 669    Measured in pixels.
 670    If scroll bars are turned off, this is still nonzero.  */
 671 #define FRAME_CONFIG_SCROLL_BAR_WIDTH(f) ((f)->config_scroll_bar_width)
 672
 673 /* Width that a scroll bar in frame F should have, if there is one.
 674    Measured in columns (characters).
 675    If scroll bars are turned off, this is still nonzero.  */
 676 #define FRAME_CONFIG_SCROLL_BAR_COLS(f) ((f)->config_scroll_bar_cols)
 677
 678 /* Width of a scroll bar in frame F, measured in columns (characters),
 679    but only if scroll bars are on the left.  If scroll bars are on
 680    the right in this frame, or there are no scroll bars, value is 0.  */
 681
 682 #define FRAME_LEFT_SCROLL_BAR_COLS(f)                   \
 683   (FRAME_HAS_VERTICAL_SCROLL_BARS_ON_LEFT (f)           \
 684    ? FRAME_CONFIG_SCROLL_BAR_COLS (f)                   \
 685    : 0)
 686
 687 /* Width of a left scroll bar in frame F, measured in pixels */
 688
 689 #define FRAME_LEFT_SCROLL_BAR_AREA_WIDTH(f)                             \
 690   (FRAME_HAS_VERTICAL_SCROLL_BARS_ON_LEFT (f)                           \
 691    ? (FRAME_CONFIG_SCROLL_BAR_COLS (f) * FRAME_COLUMN_WIDTH (f))        \
 692    : 0)
 693
 694 /* Width of a scroll bar in frame F, measured in columns (characters),
 695    but only if scroll bars are on the right.  If scroll bars are on
 696    the left in this frame, or there are no scroll bars, value is 0.  */
 697
 698 #define FRAME_RIGHT_SCROLL_BAR_COLS(f)                  \
 699   (FRAME_HAS_VERTICAL_SCROLL_BARS_ON_RIGHT (f)          \
 700    ? FRAME_CONFIG_SCROLL_BAR_COLS (f)                   \
 701    : 0)
 702
 703 /* Width of a right scroll bar area in frame F, measured in pixels */
 704
 705 #define FRAME_RIGHT_SCROLL_BAR_AREA_WIDTH(f)                            \
 706   (FRAME_HAS_VERTICAL_SCROLL_BARS_ON_RIGHT (f)                          \
 707    ? (FRAME_CONFIG_SCROLL_BAR_COLS (f) * FRAME_COLUMN_WIDTH (f))        \
 708    : 0)
 709
 710 /* Actual width of a scroll bar in frame F, measured in columns.  */
 711
 712 #define FRAME_SCROLL_BAR_COLS(f)                        \
 713   (FRAME_HAS_VERTICAL_SCROLL_BARS (f)                   \
 714    ? FRAME_CONFIG_SCROLL_BAR_COLS (f)                   \
 715    : 0)
 716
 717 /* Actual width of a scroll bar area in frame F, measured in pixels.  */
 718
 719 #define FRAME_SCROLL_BAR_AREA_WIDTH(f)                                  \
 720   (FRAME_HAS_VERTICAL_SCROLL_BARS (f)                                   \
 721    ? (FRAME_CONFIG_SCROLL_BAR_COLS (f) * FRAME_COLUMN_WIDTH (f))        \
 722    : 0)
 723
 724 /* Total width of frame F, in columns (characters),
 725    including the width used by scroll bars if any.  */
 726
 727 #define FRAME_TOTAL_COLS(f) ((f)->total_cols)
 728
 729 /* Set the width of frame F to VAL.
 730    VAL is the width of a full-frame window,
 731    not including scroll bars and fringes.  */
 732
 733 #define SET_FRAME_COLS(f, val)                                          \
 734   (FRAME_COLS (f) = (val),                                              \
 735    (f)->total_cols = FRAME_TOTAL_COLS_ARG (f, FRAME_COLS (f)))
 736
 737 /* Given a value WIDTH for frame F's nominal width,
 738    return the value that FRAME_TOTAL_COLS should have.  */
 739
 740 #define FRAME_TOTAL_COLS_ARG(f, width)          \
 741   ((width)                                      \
 742    + FRAME_SCROLL_BAR_COLS (f)                  \
 743    + FRAME_FRINGE_COLS (f))
 744
 745 /* Maximum + 1 legitimate value for FRAME_CURSOR_X.  */
 746
 747 #define FRAME_CURSOR_X_LIMIT(f) \
 748   (FRAME_COLS (f) + FRAME_LEFT_SCROLL_BAR_COLS (f))
 749
 750 /* Nonzero if frame F has scroll bars.  */
 751
 752 #define FRAME_SCROLL_BARS(f) ((f)->scroll_bars)
 753
 754 #define FRAME_CONDEMNED_SCROLL_BARS(f) ((f)->condemned_scroll_bars)
 755 #define FRAME_MENU_BAR_ITEMS(f) ((f)->menu_bar_items)
 756 #define FRAME_COST_BAUD_RATE(f) ((f)->cost_calculation_baud_rate)
 757
 758 #define FRAME_DESIRED_CURSOR(f) ((f)->desired_cursor)
 759 #define FRAME_BLINK_OFF_CURSOR(f) ((f)->blink_off_cursor)
 760 #define FRAME_CURSOR_WIDTH(f) ((f)->cursor_width)
 761 #define FRAME_BLINK_OFF_CURSOR_WIDTH(f) ((f)->blink_off_cursor_width)
 762
 763 /* Return a pointer to the face cache of frame F.  */
 764
 765 #define FRAME_FACE_CACHE(F)     (F)->face_cache
 766
 767 /* Return the size of message_buf of the frame F.  We multiply the
 768    width of the frame by 4 because multi-byte form may require at most
 769    4-byte for a character.  */
 770
 771 #define FRAME_MESSAGE_BUF_SIZE(f) (((int) FRAME_COLS (f)) * 4)
 772
 773 /* Emacs's redisplay code could become confused if a frame's
 774    visibility changes at arbitrary times.  For example, if a frame is
 775    visible while the desired glyphs are being built, but becomes
 776    invisible before they are updated, then some rows of the
 777    desired_glyphs will be left marked as enabled after redisplay is
 778    complete, which should never happen.  The next time the frame
 779    becomes visible, redisplay will probably barf.
 780
 781    Currently, there are no similar situations involving iconified, but
 782    the principle is the same.
 783
 784    So instead of having asynchronous input handlers directly set and
 785    clear the frame's visibility and iconification flags, they just set
 786    the async_visible and async_iconified flags; the redisplay code
 787    calls the FRAME_SAMPLE_VISIBILITY macro before doing any redisplay,
 788    which sets visible and iconified from their asynchronous
 789    counterparts.
 790
 791    Synchronous code must use the FRAME_SET_VISIBLE macro.
 792
 793    Also, if a frame used to be invisible, but has just become visible,
 794    it must be marked as garbaged, since redisplay hasn't been keeping
 795    up its contents.
 796
 797    Note that a tty frame is visible if and only if it is the topmost
 798    frame. */
 799
 800 #define FRAME_SAMPLE_VISIBILITY(f) \
 801   (((f)->async_visible && (f)->visible != (f)->async_visible) ? \
 802    SET_FRAME_GARBAGED (f) : 0, \
 803    (f)->visible = (f)->async_visible, \
 804    (f)->iconified = (f)->async_iconified)
 805
 806 #define CHECK_FRAME(x) \
 807   CHECK_TYPE (FRAMEP (x), Qframep, x)
 808
 809 #define CHECK_LIVE_FRAME(x) \
 810   CHECK_TYPE (FRAMEP (x) && FRAME_LIVE_P (XFRAME (x)), Qframe_live_p, x)
 811
 812 /* FOR_EACH_FRAME (LIST_VAR, FRAME_VAR) followed by a statement is a
 813    `for' loop which iterates over the elements of Vframe_list.  The
 814    loop will set FRAME_VAR, a Lisp_Object, to each frame in
 815    Vframe_list in succession and execute the statement.  LIST_VAR
 816    should be a Lisp_Object too; it is used to iterate through the
 817    Vframe_list.
 818
 819    This macro is a holdover from a time when multiple frames weren't always
 820    supported.  An alternate definition of the macro would expand to
 821    something which executes the statement once.  */
 822
 823 #define FOR_EACH_FRAME(list_var, frame_var)                     \
 824   for ((list_var) = Vframe_list;                                \
 825        (CONSP (list_var)                                        \
 826         && (frame_var = XCAR (list_var), 1));           \
 827        list_var = XCDR (list_var))
 828
 829
 830 extern Lisp_Object Qframep, Qframe_live_p;
 831 extern Lisp_Object Qtty, Qtty_type;
 832 extern Lisp_Object Qtty_color_mode;
 833 extern Lisp_Object Qterminal, Qterminal_live_p;
 834 extern Lisp_Object Qnoelisp;
 835
 836 extern struct frame *last_nonminibuf_frame;
 837
 838 extern void set_menu_bar_lines (struct frame *, Lisp_Object, Lisp_Object);
 839 extern struct frame *make_initial_frame (void);
 840 extern struct frame *make_frame (int);
 841 #ifdef HAVE_WINDOW_SYSTEM
 842 extern struct frame *make_minibuffer_frame (void);
 843 extern struct frame *make_frame_without_minibuffer (Lisp_Object,
 844                                                     struct kboard *,
 845                                                     Lisp_Object);
 846 #endif /* HAVE_WINDOW_SYSTEM */
 847 extern void frame_make_pointer_invisible (void);
 848 extern void frame_make_pointer_visible (void);
 849 extern Lisp_Object delete_frame (Lisp_Object, Lisp_Object);
 850
 851 extern Lisp_Object Vframe_list;
 852 \f
 853 /* The currently selected frame.  */
 854
 855 extern Lisp_Object selected_frame;
 856
 857 /* Value is a pointer to the selected frame.  If the selected frame
 858    isn't live, abort.  */
 859
 860 #define SELECTED_FRAME()                                \
 861      ((FRAMEP (selected_frame)                          \
 862        && FRAME_LIVE_P (XFRAME (selected_frame)))       \
 863       ? XFRAME (selected_frame)                         \
 864       : (abort (), (struct frame *) 0))
 865
 866 \f
 867 /***********************************************************************
 868                         Display-related Macros
 869  ***********************************************************************/
 870
 871 /* Canonical y-unit on frame F.
 872    This value currently equals the line height of the frame (which is
 873    the height of the default font of F).  */
 874
 875 #define FRAME_LINE_HEIGHT(F) ((F)->line_height)
 876
 877 /* Canonical x-unit on frame F.
 878    This value currently equals the average width of the default font of F.  */
 879
 880 #define FRAME_COLUMN_WIDTH(F) ((F)->column_width)
 881
 882 /* Space glyph width of the default font of frame F.  */
 883
 884 #define FRAME_SPACE_WIDTH(F) ((F)->space_width)
 885
 886
 887 /* Pixel width of areas used to display truncation marks, continuation
 888    marks, overlay arrows.  This is 0 for terminal frames.  */
 889
 890 #ifdef HAVE_WINDOW_SYSTEM
 891
 892 /* Total width of fringes reserved for drawing truncation bitmaps,
 893    continuation bitmaps and alike.  The width is in canonical char
 894    units of the frame.  This must currently be the case because window
 895    sizes aren't pixel values.  If it weren't the case, we wouldn't be
 896    able to split windows horizontally nicely.  */
 897
 898 #define FRAME_FRINGE_COLS(F) ((F)->fringe_cols)
 899
 900 /* Pixel-width of the left and right fringe.  */
 901
 902 #define FRAME_LEFT_FRINGE_WIDTH(F) ((F)->left_fringe_width)
 903 #define FRAME_RIGHT_FRINGE_WIDTH(F) ((F)->right_fringe_width)
 904
 905 /* Total width of fringes in pixels.  */
 906
 907 #define FRAME_TOTAL_FRINGE_WIDTH(F) \
 908   (FRAME_LEFT_FRINGE_WIDTH (F) + FRAME_RIGHT_FRINGE_WIDTH (F))
 909
 910
 911 /* Pixel-width of internal border lines */
 912
 913 #define FRAME_INTERNAL_BORDER_WIDTH(F) ((F)->internal_border_width)
 914
 915 #else /* not HAVE_WINDOW_SYSTEM */
 916
 917 #define FRAME_FRINGE_COLS(F)    0
 918 #define FRAME_TOTAL_FRINGE_WIDTH(F)     0
 919 #define FRAME_LEFT_FRINGE_WIDTH(F)  0
 920 #define FRAME_RIGHT_FRINGE_WIDTH(F) 0
 921 #define FRAME_INTERNAL_BORDER_WIDTH(F) 0
 922
 923 #endif /* not HAVE_WINDOW_SYSTEM */
 924
 925
 926
 927 \f
 928 /***********************************************************************
 929             Conversion between canonical units and pixels
 930  ***********************************************************************/
 931
 932 /* Canonical x-values are fractions of FRAME_COLUMN_WIDTH, canonical
 933    y-unit are fractions of FRAME_LINE_HEIGHT of a frame.  Both are
 934    represented as Lisp numbers, i.e. integers or floats.  */
 935
 936 /* Convert canonical value X to pixels.  F is the frame whose
 937    canonical char width is to be used.  X must be a Lisp integer or
 938    float.  Value is a C integer.  */
 939
 940 #define FRAME_PIXEL_X_FROM_CANON_X(F, X)                \
 941   (INTEGERP (X)                                         \
 942    ? XINT (X) * FRAME_COLUMN_WIDTH (F)                  \
 943    : (int) (XFLOAT_DATA (X) * FRAME_COLUMN_WIDTH (F)))
 944
 945 /* Convert canonical value Y to pixels.  F is the frame whose
 946    canonical character height is to be used.  X must be a Lisp integer
 947    or float.  Value is a C integer.  */
 948
 949 #define FRAME_PIXEL_Y_FROM_CANON_Y(F, Y)                \
 950   (INTEGERP (Y)                                         \
 951    ? XINT (Y) * FRAME_LINE_HEIGHT (F)                   \
 952    : (int) (XFLOAT_DATA (Y) * FRAME_LINE_HEIGHT (F)))
 953
 954 /* Convert pixel-value X to canonical units.  F is the frame whose
 955    canonical character width is to be used.  X is a C integer.  Result
 956    is a Lisp float if X is not a multiple of the canon width,
 957    otherwise it's a Lisp integer.  */
 958
 959 #define FRAME_CANON_X_FROM_PIXEL_X(F, X)                        \
 960   ((X) % FRAME_COLUMN_WIDTH (F) != 0                            \
 961    ? make_float ((double) (X) / FRAME_COLUMN_WIDTH (F))         \
 962    : make_number ((X) / FRAME_COLUMN_WIDTH (F)))
 963
 964 /* Convert pixel-value Y to canonical units.  F is the frame whose
 965    canonical character height is to be used.  Y is a C integer.
 966    Result is a Lisp float if Y is not a multiple of the canon width,
 967    otherwise it's a Lisp integer.  */
 968
 969 #define FRAME_CANON_Y_FROM_PIXEL_Y(F, Y)                        \
 970   ((Y) % FRAME_LINE_HEIGHT (F)                                  \
 971    ? make_float ((double) (Y) / FRAME_LINE_HEIGHT (F))          \
 972    : make_number ((Y) / FRAME_LINE_HEIGHT (F)))
 973
 974
 975 \f
 976 /* Manipulating pixel sizes and character sizes.
 977    Knowledge of which factors affect the overall size of the window should
 978    be hidden in these macros, if that's possible.
 979
 980    Return the upper/left pixel position of the character cell on frame F
 981    at ROW/COL.  */
 982
 983 #define FRAME_LINE_TO_PIXEL_Y(f, row) \
 984   (((row) < FRAME_TOP_MARGIN (f) ? 0 : FRAME_INTERNAL_BORDER_WIDTH (f)) \
 985    + (row) * FRAME_LINE_HEIGHT (f))
 986
 987 #define FRAME_COL_TO_PIXEL_X(f, col) \
 988   (FRAME_INTERNAL_BORDER_WIDTH (f) \
 989    + (col) * FRAME_COLUMN_WIDTH (f))
 990
 991 /* Return the pixel width/height of frame F if it has
 992    COLS columns/LINES rows.  */
 993
 994 #define FRAME_TEXT_COLS_TO_PIXEL_WIDTH(f, cols) \
 995   (FRAME_COL_TO_PIXEL_X (f, cols) \
 996    + (f)->scroll_bar_actual_width \
 997    + FRAME_TOTAL_FRINGE_WIDTH (f)      \
 998    + FRAME_INTERNAL_BORDER_WIDTH (f))
 999
1000 #define FRAME_TEXT_LINES_TO_PIXEL_HEIGHT(f, lines) \
1001   ((lines) * FRAME_LINE_HEIGHT (f) \
1002    + 2 * FRAME_INTERNAL_BORDER_WIDTH (f))
1003
1004
1005 /* Return the row/column (zero-based) of the character cell containing
1006    the pixel on FRAME at Y/X.  */
1007
1008 #define FRAME_PIXEL_Y_TO_LINE(f, y) \
1009   (((y) < FRAME_TOP_MARGIN_HEIGHT (f)   \
1010     ? (y)       \
1011     : ((y) < FRAME_TOP_MARGIN_HEIGHT (f) + FRAME_INTERNAL_BORDER_WIDTH (f) \
1012        ? (y) - (FRAME_TOP_MARGIN_HEIGHT (f) + FRAME_INTERNAL_BORDER_WIDTH (f) \
1013                 /* Arrange for the division to round down.  */  \
1014                 + FRAME_LINE_HEIGHT (f) - 1)    \
1015        : (y) - FRAME_INTERNAL_BORDER_WIDTH (f)))        \
1016    / FRAME_LINE_HEIGHT (f))
1017
1018 #define FRAME_PIXEL_X_TO_COL(f, x) \
1019   (((x) - FRAME_INTERNAL_BORDER_WIDTH (f))      \
1020    / FRAME_COLUMN_WIDTH (f))
1021
1022 /* How many columns/rows of text can we fit in WIDTH/HEIGHT pixels on
1023    frame F?  */
1024
1025 #define FRAME_PIXEL_WIDTH_TO_TEXT_COLS(f, width)                \
1026   (FRAME_PIXEL_X_TO_COL (f, ((width)                            \
1027                              - FRAME_INTERNAL_BORDER_WIDTH (f)  \
1028                              - FRAME_TOTAL_FRINGE_WIDTH (f)     \
1029                              - (f)->scroll_bar_actual_width)))
1030
1031 #define FRAME_PIXEL_HEIGHT_TO_TEXT_LINES(f, height) \
1032   (FRAME_PIXEL_Y_TO_LINE (f, ((height) \
1033                               - FRAME_INTERNAL_BORDER_WIDTH (f))))
1034
1035
1036 /***********************************************************************
1037                                 Frame Parameters
1038  ***********************************************************************/
1039
1040 extern Lisp_Object Qauto_raise, Qauto_lower;
1041 extern Lisp_Object Qborder_color, Qborder_width;
1042 extern Lisp_Object Qbuffer_predicate;
1043 extern Lisp_Object Qcursor_color, Qcursor_type;
1044 extern Lisp_Object Qfont;
1045 extern Lisp_Object Qbackground_color, Qforeground_color;
1046 extern Lisp_Object Qicon, Qicon_name, Qicon_type, Qicon_left, Qicon_top;
1047 extern Lisp_Object Qinternal_border_width;
1048 extern Lisp_Object Qtooltip;
1049 extern Lisp_Object Qmenu_bar_lines, Qtool_bar_lines, Qtool_bar_position;
1050 extern Lisp_Object Qmouse_color;
1051 extern Lisp_Object Qname, Qtitle;
1052 extern Lisp_Object Qparent_id;
1053 extern Lisp_Object Qunsplittable, Qvisibility;
1054 extern Lisp_Object Qscroll_bar_width, Qvertical_scroll_bars;
1055 extern Lisp_Object Qscroll_bar_foreground, Qscroll_bar_background;
1056 extern Lisp_Object Qscreen_gamma;
1057 extern Lisp_Object Qline_spacing;
1058 extern Lisp_Object Qwait_for_wm;
1059 extern Lisp_Object Qfullscreen;
1060 extern Lisp_Object Qfullwidth, Qfullheight, Qfullboth, Qmaximized;
1061 extern Lisp_Object Qsticky;
1062 extern Lisp_Object Qfont_backend;
1063 extern Lisp_Object Qalpha;
1064
1065 extern Lisp_Object Qleft_fringe, Qright_fringe;
1066 extern Lisp_Object Qheight, Qwidth;
1067 extern Lisp_Object Qminibuffer, Qmodeline;
1068 extern Lisp_Object Qx, Qw32, Qmac, Qpc, Qns;
1069 extern Lisp_Object Qvisible;
1070 extern Lisp_Object Qdisplay_type;
1071
1072 extern Lisp_Object Qx_resource_name;
1073
1074 extern Lisp_Object Qleft, Qright, Qtop, Qbox, Qbottom;
1075 extern Lisp_Object Qdisplay;
1076
1077 extern Lisp_Object Qrun_hook_with_args;
1078
1079 #ifdef HAVE_WINDOW_SYSTEM
1080
1081 /* The class of this X application.  */
1082 #define EMACS_CLASS "Emacs"
1083
1084 /* These are in xterm.c, w32term.c, etc.  */
1085
1086 extern void x_set_scroll_bar_default_width (struct frame *);
1087 extern void x_set_offset (struct frame *, int, int, int);
1088 extern void x_wm_set_icon_position (struct frame *, int, int);
1089
1090 extern Lisp_Object x_new_font (struct frame *, Lisp_Object, int);
1091
1092
1093 extern Lisp_Object Qface_set_after_frame_default;
1094
1095 #ifdef WINDOWSNT
1096 extern void x_fullscreen_adjust (struct frame *f, int *, int *,
1097                                  int *, int *);
1098 #endif
1099
1100 extern void x_set_frame_parameters (struct frame *, Lisp_Object);
1101
1102 extern void x_set_fullscreen (struct frame *, Lisp_Object, Lisp_Object);
1103 extern void x_set_line_spacing (struct frame *, Lisp_Object, Lisp_Object);
1104 extern void x_set_screen_gamma (struct frame *, Lisp_Object, Lisp_Object);
1105 extern void x_set_font (struct frame *, Lisp_Object, Lisp_Object);
1106 extern void x_set_font_backend (struct frame *, Lisp_Object, Lisp_Object);
1107 extern void x_set_fringe_width (struct frame *, Lisp_Object, Lisp_Object);
1108 extern void x_set_border_width (struct frame *, Lisp_Object, Lisp_Object);
1109 extern void x_set_internal_border_width (struct frame *, Lisp_Object,
1110                                          Lisp_Object);
1111 extern void x_set_visibility (struct frame *, Lisp_Object, Lisp_Object);
1112 extern void x_set_autoraise (struct frame *, Lisp_Object, Lisp_Object);
1113 extern void x_set_autolower (struct frame *, Lisp_Object, Lisp_Object);
1114 extern void x_set_unsplittable (struct frame *, Lisp_Object, Lisp_Object);
1115 extern void x_set_vertical_scroll_bars (struct frame *, Lisp_Object,
1116                                         Lisp_Object);
1117 extern void x_set_scroll_bar_width (struct frame *, Lisp_Object,
1118                                     Lisp_Object);
1119
1120 extern Lisp_Object x_icon_type (struct frame *);
1121
1122 extern int x_figure_window_size (struct frame *, Lisp_Object, int);
1123
1124 extern void x_set_alpha (struct frame *, Lisp_Object, Lisp_Object);
1125
1126 extern void validate_x_resource_name (void);
1127
1128 extern Lisp_Object display_x_get_resource (Display_Info *,
1129                                            Lisp_Object attribute,
1130                                            Lisp_Object class,
1131                                            Lisp_Object component,
1132                                            Lisp_Object subclass);
1133
1134 #if defined HAVE_X_WINDOWS && !defined USE_X_TOOLKIT
1135 extern char *x_get_resource_string (const char *, const char *);
1136 #endif
1137
1138 /* In xmenu.c */
1139 extern void set_frame_menubar (FRAME_PTR, int, int);
1140
1141 #endif /* HAVE_WINDOW_SYSTEM */
1142
1143 #endif /* not EMACS_FRAME_H */