annotate src/frame.h @ 102265:a7393d93645e

(dired-guess-shell-alist-user): Fix doc typo.
author Glenn Morris <rgm@gnu.org>
date Wed, 25 Feb 2009 08:41:44 +0000
parents e038c1a8307c
children 340c701162a6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
1 /* Define frame-object for GNU Emacs.
64770
a0d1312ede66 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64477
diff changeset
2 Copyright (C) 1993, 1994, 1999, 2000, 2001, 2002, 2003, 2004,
100951
e038c1a8307c Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100632
diff changeset
3 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5 This file is part of GNU Emacs.
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6
94994
29adfc9354e7 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94930
diff changeset
7 GNU Emacs is free software: you can redistribute it and/or modify
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8 it under the terms of the GNU General Public License as published by
94994
29adfc9354e7 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94930
diff changeset
9 the Free Software Foundation, either version 3 of the License, or
29adfc9354e7 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94930
diff changeset
10 (at your option) any later version.
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15 GNU General Public License for more details.
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
94994
29adfc9354e7 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94930
diff changeset
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19
35802
1416f2329eb2 (EMACS_FRAME_H_INCLUDED): Use an include blocker
Gerd Moellmann <gerd@gnu.org>
parents: 35799
diff changeset
20 /* Don't multiply include: dispextern.h includes macterm.h which
1416f2329eb2 (EMACS_FRAME_H_INCLUDED): Use an include blocker
Gerd Moellmann <gerd@gnu.org>
parents: 35799
diff changeset
21 includes frame.h some emacs source includes both dispextern.h and
1416f2329eb2 (EMACS_FRAME_H_INCLUDED): Use an include blocker
Gerd Moellmann <gerd@gnu.org>
parents: 35799
diff changeset
22 frame.h */
1416f2329eb2 (EMACS_FRAME_H_INCLUDED): Use an include blocker
Gerd Moellmann <gerd@gnu.org>
parents: 35799
diff changeset
23
35803
888df8063774 Change the include blocker to the same form as in other header
Gerd Moellmann <gerd@gnu.org>
parents: 35802
diff changeset
24 #ifndef EMACS_FRAME_H
888df8063774 Change the include blocker to the same form as in other header
Gerd Moellmann <gerd@gnu.org>
parents: 35802
diff changeset
25 #define EMACS_FRAME_H
35799
74655128ce2d Update copyright.
Gerd Moellmann <gerd@gnu.org>
parents: 35798
diff changeset
26
96759
1e2f7aab70ba * Makefile.in: Undef LIB_STANDARD before defining it to silence warning
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
27 #include "dispextern.h"
1e2f7aab70ba * Makefile.in: Undef LIB_STANDARD before defining it to silence warning
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
28
1776
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
29
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
30 /* Miscellanea. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31
53229
33c3c7c16e13 lib-src/emacsclient.c: Implemented --here option (open a new Emacs tty). Needs more work.
Karoly Lorentey <lorentey@elte.hu>
parents: 53226
diff changeset
32 /* Nonzero means there is at least one garbaged frame. */
1776
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
33 extern int frame_garbaged;
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
34
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
35 /* Nonzero means FRAME_MESSAGE_BUF (selected_frame) is being used by
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
36 print. */
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
37
1776
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
38 extern int message_buf_print;
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
39
78985
d9165841eb0a (focus_follows_mouse): Extern it.
Martin Rudalics <rudalics@gmx.at>
parents: 78780
diff changeset
40 /* Nonzero means window system changes focus when moving the
d9165841eb0a (focus_follows_mouse): Extern it.
Martin Rudalics <rudalics@gmx.at>
parents: 78780
diff changeset
41 mouse. */
d9165841eb0a (focus_follows_mouse): Extern it.
Martin Rudalics <rudalics@gmx.at>
parents: 78780
diff changeset
42
d9165841eb0a (focus_follows_mouse): Extern it.
Martin Rudalics <rudalics@gmx.at>
parents: 78780
diff changeset
43 extern int focus_follows_mouse;
d9165841eb0a (focus_follows_mouse): Extern it.
Martin Rudalics <rudalics@gmx.at>
parents: 78780
diff changeset
44
1776
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
45
16051
ccf489f8596e Removed support for !MULTI_FRAME.
Karl Heuer <kwzh@gnu.org>
parents: 15390
diff changeset
46 /* The structure representing a frame. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48 enum output_method
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
49 {
83008
040dd41ed7d0 Hookified termcap devices, added bootstrap display device, plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83004
diff changeset
50 output_initial,
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
51 output_termcap,
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
52 output_x_window,
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
53 output_msdos_raw,
25524
095548b9a36c Do nothing if included a second time.
Richard M. Stallman <rms@gnu.org>
parents: 25460
diff changeset
54 output_w32,
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95158
diff changeset
55 output_mac,
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95158
diff changeset
56 output_ns
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
57 };
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58
16270
4547dae187e9 (vertical_scroll_bar_type): Add enumerated
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
59 enum vertical_scroll_bar_type
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
60 {
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
61 vertical_scroll_bar_none,
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
62 vertical_scroll_bar_left,
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
63 vertical_scroll_bar_right
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
64 };
16270
4547dae187e9 (vertical_scroll_bar_type): Add enumerated
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
65
47133
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
66 enum text_cursor_kinds
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
67 {
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
68 DEFAULT_CURSOR = -2,
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
69 NO_CURSOR = -1,
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
70 FILLED_BOX_CURSOR,
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
71 HOLLOW_BOX_CURSOR,
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
72 BAR_CURSOR,
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
73 HBAR_CURSOR
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
74 };
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
75
93325
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
76 enum fullscreen_type
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
77 {
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
78 /* Values used as a bit mask, BOTH == WIDTH | HEIGHT. */
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
79 FULLSCREEN_NONE = 0,
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
80 FULLSCREEN_WIDTH = 1,
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
81 FULLSCREEN_HEIGHT = 2,
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
82 FULLSCREEN_BOTH = 3,
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
83 FULLSCREEN_WAIT = 4
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
84 };
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
85
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
86
82989
f3845715a5f6 Separate frame-local, tty-dependent parameters from tty-local parameters.
Karoly Lorentey <lorentey@elte.hu>
parents: 53232
diff changeset
87 #define FRAME_FOREGROUND_PIXEL(f) ((f)->foreground_pixel)
f3845715a5f6 Separate frame-local, tty-dependent parameters from tty-local parameters.
Karoly Lorentey <lorentey@elte.hu>
parents: 53232
diff changeset
88 #define FRAME_BACKGROUND_PIXEL(f) ((f)->background_pixel)
26781
4982f642dfdc (PIX_TYPE) [! HAVE_X_WINDOWS]: Define PIX_TYPE.
Dave Love <fx@gnu.org>
parents: 26729
diff changeset
89
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83427
diff changeset
90 struct terminal;
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 25711
diff changeset
91
90411
508480e70e4a (struct frame): New members resx and resy.
Kenichi Handa <handa@m17n.org>
parents: 90341
diff changeset
92 struct font_driver_list;
508480e70e4a (struct frame): New members resx and resy.
Kenichi Handa <handa@m17n.org>
parents: 90341
diff changeset
93
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
94 struct frame
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
95 {
85022
96eb42c9e0e3 * window.h (struct window):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84749
diff changeset
96 EMACS_UINT size;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
97 struct Lisp_Vector *next;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
98
10208
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
99 /* All Lisp_Object components must come first.
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
100 That ensures they are all aligned normally. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
101
14215
f258b4fd44c0 (struct frame): New field `title'.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
102 /* Name of this frame: a Lisp string. It is used for looking up resources,
f258b4fd44c0 (struct frame): New field `title'.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
103 as well as for the title in some cases. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
104 Lisp_Object name;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
105
12274
f3383ea95b06 (struct frame): New field icon_name.
Richard M. Stallman <rms@gnu.org>
parents: 11493
diff changeset
106 /* The name to use for the icon, the last time
f3383ea95b06 (struct frame): New field icon_name.
Richard M. Stallman <rms@gnu.org>
parents: 11493
diff changeset
107 it was refreshed. nil means not explicitly specified. */
f3383ea95b06 (struct frame): New field icon_name.
Richard M. Stallman <rms@gnu.org>
parents: 11493
diff changeset
108 Lisp_Object icon_name;
f3383ea95b06 (struct frame): New field icon_name.
Richard M. Stallman <rms@gnu.org>
parents: 11493
diff changeset
109
14215
f258b4fd44c0 (struct frame): New field `title'.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
110 /* This is the frame title specified explicitly, if any.
f258b4fd44c0 (struct frame): New field `title'.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
111 Usually it is nil. */
f258b4fd44c0 (struct frame): New field `title'.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
112 Lisp_Object title;
f258b4fd44c0 (struct frame): New field `title'.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
113
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 3518
diff changeset
114 /* The frame which should receive keystrokes that occur in this
1710
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
115 frame, or nil if they should go to the frame itself. This is
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
116 usually nil, but if the frame is minibufferless, we can use this
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
117 to redirect keystrokes to a surrogate minibuffer frame when
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
118 needed.
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
119
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
120 Note that a value of nil is different than having the field point
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
121 to the frame itself. Whenever the Fselect_frame function is used
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
122 to shift from one frame to the other, any redirections to the
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
123 original frame are shifted to the newly selected frame; if
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
124 focus_frame is nil, Fselect_frame will leave it alone. */
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
125 Lisp_Object focus_frame;
357
1ad871406b12 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 261
diff changeset
126
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
127 /* This frame's root window. Every frame has one.
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
128 If the frame has only a minibuffer window, this is it.
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
129 Otherwise, if the frame has a minibuffer window, this is its sibling. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
130 Lisp_Object root_window;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
131
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
132 /* This frame's selected window.
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
133 Each frame has its own window hierarchy
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
134 and one of the windows in it is selected within the frame.
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
135 The selected window of the selected frame is Emacs's selected window. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
136 Lisp_Object selected_window;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
137
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
138 /* This frame's minibuffer window.
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
139 Most frames have their own minibuffer windows,
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
140 but only the selected frame's minibuffer window
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
141 can actually appear to exist. */
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
142 Lisp_Object minibuffer_window;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
143
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
144 /* Parameter alist of this frame.
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
145 These are the parameters specified when creating the frame
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
146 or modified with modify-frame-parameters. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
147 Lisp_Object param_alist;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
148
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49322
diff changeset
149 /* List of scroll bars on this frame.
1776
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
150 Actually, we don't specify exactly what is stored here at all; the
1994
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
151 scroll bar implementation code can use it to store anything it likes.
1776
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
152 This field is marked by the garbage collector. It is here
83342
9216636c02fc Rename `struct display' to `struct device'. Update function, parameter and variable names accordingly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83332
diff changeset
153 instead of in the `device' structure so that the garbage
1776
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
154 collector doesn't need to look inside the window-system-dependent
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
155 structure. */
1994
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
156 Lisp_Object scroll_bars;
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
157 Lisp_Object condemned_scroll_bars;
1776
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
158
15098
a3c8776451ce Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 14215
diff changeset
159 /* Vector describing the items to display in the menu bar.
a3c8776451ce Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 14215
diff changeset
160 Each item has four elements in this vector.
a3c8776451ce Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 14215
diff changeset
161 They are KEY, STRING, SUBMAP, and HPOS.
a3c8776451ce Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 14215
diff changeset
162 (HPOS is not used in when the X toolkit is in use.)
a3c8776451ce Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 14215
diff changeset
163 There are four additional elements of nil at the end, to terminate. */
2148
9b8040c3f320 (FRAME_MENU_BAR_ITEMS): New macro (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
164 Lisp_Object menu_bar_items;
9b8040c3f320 (FRAME_MENU_BAR_ITEMS): New macro (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
165
2396
80bed5e0c8aa (struct frame): New field face_alist.
Richard M. Stallman <rms@gnu.org>
parents: 2252
diff changeset
166 /* Alist of elements (FACE-NAME . FACE-VECTOR-DATA). */
80bed5e0c8aa (struct frame): New field face_alist.
Richard M. Stallman <rms@gnu.org>
parents: 2252
diff changeset
167 Lisp_Object face_alist;
80bed5e0c8aa (struct frame): New field face_alist.
Richard M. Stallman <rms@gnu.org>
parents: 2252
diff changeset
168
10208
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
169 /* A vector that records the entire structure of this frame's menu bar.
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
170 For the format of the data, see extensive comments in xmenu.c.
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
171 Only the X toolkit version uses this. */
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
172 Lisp_Object menu_bar_vector;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
173
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
174 /* Predicate for selecting buffers for other-buffer. */
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
175 Lisp_Object buffer_predicate;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
176
17222
60053e19d485 (struct frame): New field buffer_list.
Richard M. Stallman <rms@gnu.org>
parents: 17033
diff changeset
177 /* List of buffers viewed in this frame, for other-buffer. */
60053e19d485 (struct frame): New field buffer_list.
Richard M. Stallman <rms@gnu.org>
parents: 17033
diff changeset
178 Lisp_Object buffer_list;
60053e19d485 (struct frame): New field buffer_list.
Richard M. Stallman <rms@gnu.org>
parents: 17033
diff changeset
179
83415
d2c799f58129 Implement full support for frame-local `next-buffer' and `previous-buffer'.
Karoly Lorentey <lorentey@elte.hu>
parents: 83364
diff changeset
180 /* List of buffers that were viewed, then buried in this frame. The
d2c799f58129 Implement full support for frame-local `next-buffer' and `previous-buffer'.
Karoly Lorentey <lorentey@elte.hu>
parents: 83364
diff changeset
181 most recently buried buffer is first. For last-buffer. */
d2c799f58129 Implement full support for frame-local `next-buffer' and `previous-buffer'.
Karoly Lorentey <lorentey@elte.hu>
parents: 83364
diff changeset
182 Lisp_Object buried_buffer_list;
85032
2cdd862c6b0f *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 85026
diff changeset
183
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
184 /* A dummy window used to display menu bars under X when no X
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
185 toolkit support is available. */
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
186 Lisp_Object menu_bar_window;
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
187
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25527
diff changeset
188 /* A window used to display the tool-bar of a frame. */
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25527
diff changeset
189 Lisp_Object tool_bar_window;
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
190
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25527
diff changeset
191 /* Desired and current tool-bar items. */
33759
593bc303c500 (struct frame): Members desired_tool_bar_items,
Gerd Moellmann <gerd@gnu.org>
parents: 32752
diff changeset
192 Lisp_Object tool_bar_items;
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
193
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25527
diff changeset
194 /* Desired and current contents displayed in tool_bar_window. */
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25527
diff changeset
195 Lisp_Object desired_tool_bar_string, current_tool_bar_string;
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
196
85032
2cdd862c6b0f *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 85026
diff changeset
197 /* Beyond here, there should be no more Lisp_Object components. */
10208
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
198
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
199 /* Cache of realized faces. */
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
200 struct face_cache *face_cache;
10208
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
201
85026
09975f2063bd (struct frame): Don't try to GC-mark menu_bar_items_used.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85022
diff changeset
202 /* Number of elements in `menu_bar_vector' that have meaningful data. */
09975f2063bd (struct frame): Don't try to GC-mark menu_bar_items_used.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85022
diff changeset
203 EMACS_INT menu_bar_items_used;
09975f2063bd (struct frame): Don't try to GC-mark menu_bar_items_used.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85022
diff changeset
204
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
205 /* A buffer to hold the frame's name. We can't use the Lisp
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
206 string's pointer (`name', above) because it might get relocated. */
11493
7a15a07093c2 (struct frame): New member namebuf.
Karl Heuer <kwzh@gnu.org>
parents: 11351
diff changeset
207 char *namebuf;
7a15a07093c2 (struct frame): New member namebuf.
Karl Heuer <kwzh@gnu.org>
parents: 11351
diff changeset
208
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
209 /* Glyph pool and matrix. */
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
210 struct glyph_pool *current_pool;
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
211 struct glyph_pool *desired_pool;
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
212 struct glyph_matrix *desired_matrix;
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
213 struct glyph_matrix *current_matrix;
10208
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
214
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
215 /* 1 means that glyphs on this frame have been initialized so it can
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
216 be used for output. */
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
217 unsigned glyphs_initialized_p : 1;
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
218
85682
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
219 /* Set to non-zero in change_frame_size when size of frame changed
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
220 Clear the frame in clear_garbaged_frames if set. */
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
221 unsigned resized_p : 1;
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
222
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
223 /* Set to non-zero in when we want for force a flush_display in
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
224 update_frame, usually after resizing the frame. */
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
225 unsigned force_flush_display_p : 1;
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
226
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
227 /* Set to non-zero if the default face for the frame has been
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
228 realized. Reset to zero whenever the default face changes.
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
229 Used to see the difference between a font change and face change. */
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
230 unsigned default_face_done_p : 1;
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
231
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
232 /* Set to non-zero if this frame has already been hscrolled during
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
233 current redisplay. */
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
234 unsigned already_hscrolled_p : 1;
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
235
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
236 /* Set to non-zero when current redisplay has updated frame. */
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
237 unsigned updated_p : 1;
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
238
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
239 /* Set to non-zero to minimize tool-bar height even when
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
240 auto-resize-tool-bar is set to grow-only. */
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
241 unsigned minimize_tool_bar_window_p : 1;
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
242
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 96759
diff changeset
243 #if defined (USE_GTK) || defined (HAVE_NS)
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 48321
diff changeset
244 /* Nonzero means using a tool bar that comes from the toolkit. */
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 48321
diff changeset
245 int external_tool_bar;
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 48321
diff changeset
246 #endif
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 48321
diff changeset
247
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25527
diff changeset
248 /* Margin at the top of the frame. Used to display the tool-bar. */
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25527
diff changeset
249 int tool_bar_lines;
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
250
69241
d34c25a166bd (struct frame): New member n_tool_bar_rows.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
251 int n_tool_bar_rows;
33759
593bc303c500 (struct frame): Members desired_tool_bar_items,
Gerd Moellmann <gerd@gnu.org>
parents: 32752
diff changeset
252 int n_tool_bar_items;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49322
diff changeset
253
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
254 /* A buffer for decode_mode_line. */
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
255 char *decode_mode_spec_buffer;
10208
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
256
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
257 /* See do_line_insertion_deletion_costs for info on these arrays. */
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
258 /* Cost of inserting 1 line on this frame */
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
259 int *insert_line_cost;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
260 /* Cost of deleting 1 line on this frame */
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
261 int *delete_line_cost;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
262 /* Cost of inserting n lines on this frame */
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
263 int *insert_n_lines_cost;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
264 /* Cost of deleting n lines on this frame */
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
265 int *delete_n_lines_cost;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
266
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
267 /* Size of this frame, excluding fringes, scroll bars etc.,
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
268 in units of canonical characters. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
269 EMACS_INT text_lines, text_cols;
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
270
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
271 /* Total size of this frame (i.e. its native window), in units of
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
272 canonical characters. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
273 EMACS_INT total_lines, total_cols;
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
274
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
275 /* New text height and width for pending size change.
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
276 0 if no change pending. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
277 int new_text_lines, new_text_cols;
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
278
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
279 /* Pixel position of the frame window (x and y offsets in root window). */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
280 int left_pos, top_pos;
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
281
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
282 /* Size of the frame window in pixels. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
283 int pixel_height, pixel_width;
10208
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
284
90411
508480e70e4a (struct frame): New members resx and resy.
Kenichi Handa <handa@m17n.org>
parents: 90341
diff changeset
285 /* Dots per inch of the screen the frame is on. */
508480e70e4a (struct frame): New members resx and resy.
Kenichi Handa <handa@m17n.org>
parents: 90341
diff changeset
286 double resx, resy;
508480e70e4a (struct frame): New members resx and resy.
Kenichi Handa <handa@m17n.org>
parents: 90341
diff changeset
287
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
288 /* These many pixels are the difference between the outer window (i.e. the
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
289 left and top of the window manager decoration) and FRAME_X_WINDOW. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
290 int x_pixels_diff, y_pixels_diff;
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
291
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
292 /* This is the gravity value for the specified window position. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
293 int win_gravity;
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
294
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
295 /* The geometry flags for this window. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
296 int size_hint_flags;
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
297
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
298 /* Border width of the frame window as known by the (X) window system. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
299 int border_width;
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
300
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
301 /* Width of the internal border. This is a line of background color
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
302 just inside the window's border. When the frame is selected,
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
303 a highlighting is displayed inside the internal border. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
304 int internal_border_width;
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
305
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
306 /* Canonical X unit. Width of default font, in pixels. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
307 int column_width;
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
308
59203
3573aee81cc8 (struct frame): New member space_width.
Kenichi Handa <handa@m17n.org>
parents: 53883
diff changeset
309 /* Widht of space glyph of default font, in pixels. */
3573aee81cc8 (struct frame): New member space_width.
Kenichi Handa <handa@m17n.org>
parents: 53883
diff changeset
310 int space_width;
3573aee81cc8 (struct frame): New member space_width.
Kenichi Handa <handa@m17n.org>
parents: 53883
diff changeset
311
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
312 /* Canonical Y unit. Height of a line, in pixels. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
313 int line_height;
10208
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
314
83004
7900111db01c Converted display hooks to be display-local. Plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 82991
diff changeset
315 /* The output method says how the contents of this frame are
7900111db01c Converted display hooks to be display-local. Plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 82991
diff changeset
316 displayed. It could be using termcap, or using an X window.
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83427
diff changeset
317 This must be the same as the terminal->type. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
318 enum output_method output_method;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
319
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83427
diff changeset
320 /* The terminal device that this frame uses. If this is NULL, then
83342
9216636c02fc Rename `struct display' to `struct device'. Update function, parameter and variable names accordingly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83332
diff changeset
321 the frame has been deleted. */
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83427
diff changeset
322 struct terminal *terminal;
85032
2cdd862c6b0f *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 85026
diff changeset
323
83342
9216636c02fc Rename `struct display' to `struct device'. Update function, parameter and variable names accordingly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83332
diff changeset
324 /* Device-dependent, frame-local auxiliary data used for displaying
83004
7900111db01c Converted display hooks to be display-local. Plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 82991
diff changeset
325 the contents. When the frame is deleted, this data is deleted as
7900111db01c Converted display hooks to be display-local. Plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 82991
diff changeset
326 well. */
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
327 union output_data
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
328 {
83004
7900111db01c Converted display hooks to be display-local. Plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 82991
diff changeset
329 struct tty_output *tty; /* termchar.h */
7900111db01c Converted display hooks to be display-local. Plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 82991
diff changeset
330 struct x_output *x; /* xterm.h */
7900111db01c Converted display hooks to be display-local. Plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 82991
diff changeset
331 struct w32_output *w32; /* w32term.h */
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95158
diff changeset
332 struct ns_output *ns; /* nsterm.h */
31900
8b2fa657800d (struct frame): Make the `nothing' member of union
Gerd Moellmann <gerd@gnu.org>
parents: 31147
diff changeset
333 EMACS_INT nothing;
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
334 }
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
335 output_data;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
336
90411
508480e70e4a (struct frame): New members resx and resy.
Kenichi Handa <handa@m17n.org>
parents: 90341
diff changeset
337 /* List of font-drivers available on the frame. */
508480e70e4a (struct frame): New members resx and resy.
Kenichi Handa <handa@m17n.org>
parents: 90341
diff changeset
338 struct font_driver_list *font_driver_list;
91113
1b739acb7b7c (struct frame): New member font_data_list.
Kenichi Handa <handa@m17n.org>
parents: 91073
diff changeset
339 /* List of data specific to font-driver and frame, but common to
1b739acb7b7c (struct frame): New member font_data_list.
Kenichi Handa <handa@m17n.org>
parents: 91073
diff changeset
340 faces. */
1b739acb7b7c (struct frame): New member font_data_list.
Kenichi Handa <handa@m17n.org>
parents: 91073
diff changeset
341 struct font_data_list *font_data_list;
90411
508480e70e4a (struct frame): New members resx and resy.
Kenichi Handa <handa@m17n.org>
parents: 90341
diff changeset
342
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
343 /* Total width of fringes reserved for drawing truncation bitmaps,
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
344 continuation bitmaps and alike. The width is in canonical char
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
345 units of the frame. This must currently be the case because window
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
346 sizes aren't pixel values. If it weren't the case, we wouldn't be
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
347 able to split windows horizontally nicely. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
348 int fringe_cols;
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
349
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
350 /* The extra width (in pixels) currently allotted for fringes. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
351 int left_fringe_width, right_fringe_width;
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
352
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
353 /* See FULLSCREEN_ enum below */
93325
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
354 enum fullscreen_type want_fullscreen;
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
355
2148
9b8040c3f320 (FRAME_MENU_BAR_ITEMS): New macro (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
356 /* Number of lines of menu bar. */
9b8040c3f320 (FRAME_MENU_BAR_ITEMS): New macro (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
357 int menu_bar_lines;
9b8040c3f320 (FRAME_MENU_BAR_ITEMS): New macro (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
358
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 96759
diff changeset
359 #if defined (USE_X_TOOLKIT) || defined (HAVE_NTGUI) \
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95158
diff changeset
360 || defined (HAVE_NS) || defined (USE_GTK)
5657
ac0f9da25111 (struct frame): New field external_menu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 3649
diff changeset
361 /* Nonzero means using a menu bar that comes from the X toolkit. */
93325
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
362 unsigned int external_menu_bar : 1;
5657
ac0f9da25111 (struct frame): New field external_menu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 3649
diff changeset
363 #endif
ac0f9da25111 (struct frame): New field external_menu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 3649
diff changeset
364
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
365 /* Nonzero if last attempt at redisplay on this frame was preempted. */
93325
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
366 unsigned char display_preempted : 1;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
367
1653
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
368 /* visible is nonzero if the frame is currently displayed; we check
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
369 it to see if we should bother updating the frame's contents.
1710
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
370 DON'T SET IT DIRECTLY; instead, use FRAME_SET_VISIBLE.
1653
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
371
1776
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
372 Note that, since invisible frames aren't updated, whenever a
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
373 frame becomes visible again, it must be marked as garbaged. The
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
374 FRAME_SAMPLE_VISIBILITY macro takes care of this.
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
375
53232
22aaf1e5fbe6 Full support for multiple terminal I/O (with some rough edges).
Karoly Lorentey <lorentey@elte.hu>
parents: 53229
diff changeset
376 On ttys and on Windows NT/9X, to avoid wasting effort updating
22aaf1e5fbe6 Full support for multiple terminal I/O (with some rough edges).
Karoly Lorentey <lorentey@elte.hu>
parents: 53229
diff changeset
377 visible frames that are actually completely obscured by other
22aaf1e5fbe6 Full support for multiple terminal I/O (with some rough edges).
Karoly Lorentey <lorentey@elte.hu>
parents: 53229
diff changeset
378 windows on the display, we bend the meaning of visible slightly:
22aaf1e5fbe6 Full support for multiple terminal I/O (with some rough edges).
Karoly Lorentey <lorentey@elte.hu>
parents: 53229
diff changeset
379 if greater than 1, then the frame is obscured - we still consider
22aaf1e5fbe6 Full support for multiple terminal I/O (with some rough edges).
Karoly Lorentey <lorentey@elte.hu>
parents: 53229
diff changeset
380 it to be "visible" as seen from lisp, but we don't bother
22aaf1e5fbe6 Full support for multiple terminal I/O (with some rough edges).
Karoly Lorentey <lorentey@elte.hu>
parents: 53229
diff changeset
381 updating it. We must take care to garbage the frame when it
22aaf1e5fbe6 Full support for multiple terminal I/O (with some rough edges).
Karoly Lorentey <lorentey@elte.hu>
parents: 53229
diff changeset
382 ceaces to be obscured though.
19696
dc5e4b1ce93c (FRAME_OBSCURED_P): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17222
diff changeset
383
1653
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
384 iconified is nonzero if the frame is currently iconified.
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
385
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
386 Asynchronous input handlers should NOT change these directly;
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
387 instead, they should change async_visible or async_iconified, and
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
388 let the FRAME_SAMPLE_VISIBILITY macro set visible and iconified
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
389 at the next redisplay.
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
390
1653
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
391 These should probably be considered read-only by everyone except
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
392 FRAME_SAMPLE_VISIBILITY.
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
393
6183
242d3fed9285 Fix typo in comment.
Karl Heuer <kwzh@gnu.org>
parents: 5657
diff changeset
394 These two are mutually exclusive. They might both be zero, if the
1653
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
395 frame has been made invisible without an icon. */
93667
f8942531c106 (struct frame): Give one more bit to `visible' since we use
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93325
diff changeset
396 unsigned char visible : 2;
93325
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
397 unsigned char iconified : 1;
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
398
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
399 /* Let's not use bitfields for volatile variables. */
1653
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
400
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
401 /* Asynchronous input handlers change these, and
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
402 FRAME_SAMPLE_VISIBILITY copies them into visible and iconified.
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
403 See FRAME_SAMPLE_VISIBILITY, below. */
29439
b5e905b3b506 (struct frame): Use volatile unconditionally.
Dave Love <fx@gnu.org>
parents: 28691
diff changeset
404 volatile char async_visible, async_iconified;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
405
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
406 /* Nonzero if this frame should be redrawn. */
29439
b5e905b3b506 (struct frame): Use volatile unconditionally.
Dave Love <fx@gnu.org>
parents: 28691
diff changeset
407 volatile char garbaged;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
408
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
409 /* True if frame actually has a minibuffer window on it.
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
410 0 if using a minibuffer window that isn't on this frame. */
93325
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
411 unsigned char has_minibuffer : 1;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49322
diff changeset
412
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
413 /* 0 means, if this frame has just one window,
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
414 show no modeline for that window. */
93325
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
415 unsigned char wants_modeline : 1;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
416
1710
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
417 /* Non-zero if the hardware device this frame is displaying on can
1994
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
418 support scroll bars. */
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
419 char can_have_scroll_bars;
1710
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
420
85682
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
421 /* Non-0 means raise this frame to the top of the heap when selected. */
93325
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
422 unsigned char auto_raise : 1;
85682
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
423
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
424 /* Non-0 means lower this frame to the bottom of the stack when left. */
93325
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
425 unsigned char auto_lower : 1;
85682
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
426
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
427 /* True if frame's root window can't be split. */
93325
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
428 unsigned char no_split : 1;
85682
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
429
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
430 /* If this is set, then Emacs won't change the frame name to indicate
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
431 the current buffer, etcetera. If the user explicitly sets the frame
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
432 name, this gets set. If the user sets the name to Qnil, this is
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
433 cleared. */
93325
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
434 unsigned char explicit_name : 1;
85682
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
435
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
436 /* Nonzero if size of some window on this frame has changed. */
93325
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
437 unsigned char window_sizes_changed : 1;
85682
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
438
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
439 /* Nonzero if the mouse has moved on this display device
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
440 since the last time we checked. */
93325
38e4e1858d46 (enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
441 unsigned char mouse_moved :1;
85682
919974c09488 (struct frame): Move all bit fields after the first bit
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85614
diff changeset
442
1994
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
443 /* If can_have_scroll_bars is non-zero, this is non-zero if we should
1710
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
444 actually display them on this frame. */
16270
4547dae187e9 (vertical_scroll_bar_type): Add enumerated
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
445 enum vertical_scroll_bar_type vertical_scroll_bar_type;
1710
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
446
47133
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
447 /* What kind of text cursor should we draw in the future?
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
448 This should always be filled_box_cursor or bar_cursor. */
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
449 enum text_cursor_kinds desired_cursor;
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
450
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
451 /* Width of bar cursor (if we are using that). */
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
452 int cursor_width;
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
453
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
454 /* What kind of text cursor should we draw when the cursor blinks off?
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
455 This can be filled_box_cursor or bar_cursor or no_cursor. */
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
456 enum text_cursor_kinds blink_off_cursor;
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
457
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
458 /* Width of bar cursor (if we are using that) for blink-off state. */
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
459 int blink_off_cursor_width;
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
460
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
461 /* Storage for messages to this frame. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
462 char *message_buf;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
463
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
464 /* Nonnegative if current redisplay should not do scroll computation
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
465 for lines beyond a certain vpos. This is the vpos. */
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
466 int scroll_bottom_vpos;
7094
b473ea5a3473 (struct frame): New fields menu_bar_vector and menu_bar_items_used.
Richard M. Stallman <rms@gnu.org>
parents: 6183
diff changeset
467
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
468 /* Configured width of the scroll bar, in pixels and in characters.
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
469 config_scroll_bar_cols tracks config_scroll_bar_width if the
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
470 latter is positive; a zero value in config_scroll_bar_width means
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
471 to compute the actual width on the fly, using config_scroll_bar_cols
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
472 and the current font width. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
473 int config_scroll_bar_width;
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
474 int config_scroll_bar_cols;
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
475
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
476 /* The size of the extra width currently allotted for vertical
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
477 scroll bars in this frame, in pixels. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
478 int scroll_bar_actual_width;
10120
8b5ae8d2eefc (struct frame): New field cost_calculation_baud_rate.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
479
8b5ae8d2eefc (struct frame): New field cost_calculation_baud_rate.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
480 /* The baud rate that was used to calculate costs for this frame. */
8b5ae8d2eefc (struct frame): New field cost_calculation_baud_rate.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
481 int cost_calculation_baud_rate;
12543
13aa3e939a4d (struct frame): New field `mouse_moved'.
Karl Heuer <kwzh@gnu.org>
parents: 12274
diff changeset
482
98231
05d5848d935c * frame.h (struct frame): Move alpha from the middle of bitfields.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97141
diff changeset
483 /* frame opacity
05d5848d935c * frame.h (struct frame): Move alpha from the middle of bitfields.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97141
diff changeset
484 alpha[0]: alpha transparency of the active frame
99510
a6f3b375799a Negative alpha means "don't touch".
Chong Yidong <cyd@stupidchicken.com>
parents: 98231
diff changeset
485 alpha[1]: alpha transparency of inactive frames
a6f3b375799a Negative alpha means "don't touch".
Chong Yidong <cyd@stupidchicken.com>
parents: 98231
diff changeset
486 Negative values mean not to change alpha. */
98231
05d5848d935c * frame.h (struct frame): Move alpha from the middle of bitfields.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97141
diff changeset
487 double alpha[2];
05d5848d935c * frame.h (struct frame): Move alpha from the middle of bitfields.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97141
diff changeset
488
25527
93b2f5b92137 (struct frame): New member `gamma'.
Gerd Moellmann <gerd@gnu.org>
parents: 25524
diff changeset
489 /* Exponent for gamma correction of colors. 1/(VIEWING_GAMMA *
93b2f5b92137 (struct frame): New member `gamma'.
Gerd Moellmann <gerd@gnu.org>
parents: 25524
diff changeset
490 SCREEN_GAMMA) where viewing_gamma is 0.4545 and SCREEN_GAMMA is a
93b2f5b92137 (struct frame): New member `gamma'.
Gerd Moellmann <gerd@gnu.org>
parents: 25524
diff changeset
491 frame parameter. 0 means don't do gamma correction. */
93b2f5b92137 (struct frame): New member `gamma'.
Gerd Moellmann <gerd@gnu.org>
parents: 25524
diff changeset
492 double gamma;
28691
26fdeb2124f0 (struct frame): Add member extra_line_spacing.
Gerd Moellmann <gerd@gnu.org>
parents: 28651
diff changeset
493
26fdeb2124f0 (struct frame): Add member extra_line_spacing.
Gerd Moellmann <gerd@gnu.org>
parents: 28651
diff changeset
494 /* Additional space to put between text lines on this frame. */
26fdeb2124f0 (struct frame): Add member extra_line_spacing.
Gerd Moellmann <gerd@gnu.org>
parents: 28651
diff changeset
495 int extra_line_spacing;
40511
35857e7683d8 (struct frame) <resized_p>: New member.
Gerd Moellmann <gerd@gnu.org>
parents: 35803
diff changeset
496
82989
f3845715a5f6 Separate frame-local, tty-dependent parameters from tty-local parameters.
Karoly Lorentey <lorentey@elte.hu>
parents: 53232
diff changeset
497 /* All display backends seem to need these two pixel values. */
f3845715a5f6 Separate frame-local, tty-dependent parameters from tty-local parameters.
Karoly Lorentey <lorentey@elte.hu>
parents: 53232
diff changeset
498 unsigned long background_pixel;
f3845715a5f6 Separate frame-local, tty-dependent parameters from tty-local parameters.
Karoly Lorentey <lorentey@elte.hu>
parents: 53232
diff changeset
499 unsigned long foreground_pixel;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
500 };
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
501
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83427
diff changeset
502 #define FRAME_KBOARD(f) ((f)->terminal->kboard)
11005
3155b56586e9 (struct frame): New member kboard.
Karl Heuer <kwzh@gnu.org>
parents: 10665
diff changeset
503
92109
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91732
diff changeset
504 /* Return a pointer to the image cache of frame F. */
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91732
diff changeset
505 #define FRAME_IMAGE_CACHE(F) ((F)->terminal->image_cache)
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91732
diff changeset
506
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
507 typedef struct frame *FRAME_PTR;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
508
90970
3371fc48749b Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 90951
diff changeset
509 #define XFRAME(p) (eassert (FRAMEP(p)),(struct frame *) XPNTR (p))
10288
e4a6f55757a9 (XSETFRAME): Use pseudovector.
Richard M. Stallman <rms@gnu.org>
parents: 10208
diff changeset
510 #define XSETFRAME(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_FRAME))
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
511
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
512 /* Given a window, return its frame as a Lisp_Object. */
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
513 #define WINDOW_FRAME(w) (w)->frame
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
514
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
515 /* Test a frame for particular kinds of display methods. */
83008
040dd41ed7d0 Hookified termcap devices, added bootstrap display device, plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83004
diff changeset
516 #define FRAME_INITIAL_P(f) ((f)->output_method == output_initial)
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
517 #define FRAME_TERMCAP_P(f) ((f)->output_method == output_termcap)
13411
58efb2561888 (output_method): New method: output_win32.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12665
diff changeset
518 #define FRAME_X_P(f) ((f)->output_method == output_x_window)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16429
diff changeset
519 #define FRAME_W32_P(f) ((f)->output_method == output_w32)
15390
d01198d2bc40 (FRAME_MSDOS_P): A new macro for MSDOS frames.
Richard M. Stallman <rms@gnu.org>
parents: 15098
diff changeset
520 #define FRAME_MSDOS_P(f) ((f)->output_method == output_msdos_raw)
25524
095548b9a36c Do nothing if included a second time.
Richard M. Stallman <rms@gnu.org>
parents: 25460
diff changeset
521 #define FRAME_MAC_P(f) ((f)->output_method == output_mac)
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95158
diff changeset
522 #define FRAME_NS_P(f) ((f)->output_method == output_ns)
13411
58efb2561888 (output_method): New method: output_win32.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12665
diff changeset
523
58efb2561888 (output_method): New method: output_win32.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12665
diff changeset
524 /* FRAME_WINDOW_P tests whether the frame is a window, and is
58efb2561888 (output_method): New method: output_win32.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12665
diff changeset
525 defined to be the predicate for the window system being used. */
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
526
13411
58efb2561888 (output_method): New method: output_win32.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12665
diff changeset
527 #ifdef HAVE_X_WINDOWS
58efb2561888 (output_method): New method: output_win32.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12665
diff changeset
528 #define FRAME_WINDOW_P(f) FRAME_X_P (f)
58efb2561888 (output_method): New method: output_win32.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12665
diff changeset
529 #endif
58efb2561888 (output_method): New method: output_win32.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12665
diff changeset
530 #ifdef HAVE_NTGUI
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16429
diff changeset
531 #define FRAME_WINDOW_P(f) FRAME_W32_P (f)
13411
58efb2561888 (output_method): New method: output_win32.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12665
diff changeset
532 #endif
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95158
diff changeset
533 #ifdef HAVE_NS
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95158
diff changeset
534 #define FRAME_WINDOW_P(f) FRAME_NS_P(f)
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95158
diff changeset
535 #endif
13568
01ec2620dd87 (FRAME_WINDOW_P): Always define it one way or another.
Richard M. Stallman <rms@gnu.org>
parents: 13411
diff changeset
536 #ifndef FRAME_WINDOW_P
01ec2620dd87 (FRAME_WINDOW_P): Always define it one way or another.
Richard M. Stallman <rms@gnu.org>
parents: 13411
diff changeset
537 #define FRAME_WINDOW_P(f) (0)
01ec2620dd87 (FRAME_WINDOW_P): Always define it one way or another.
Richard M. Stallman <rms@gnu.org>
parents: 13411
diff changeset
538 #endif
13411
58efb2561888 (output_method): New method: output_win32.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12665
diff changeset
539
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
540 /* Nonzero if frame F is still alive (not deleted). */
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83427
diff changeset
541 #define FRAME_LIVE_P(f) ((f)->terminal != 0)
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
542
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
543 /* Nonzero if frame F is a minibuffer-only frame. */
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
544 #define FRAME_MINIBUF_ONLY_P(f) \
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
545 EQ (FRAME_ROOT_WINDOW (f), FRAME_MINIBUF_WINDOW (f))
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
546
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
547 /* Nonzero if frame F contains a minibuffer window.
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
548 (If this is 0, F must use some other minibuffer window.) */
979
268c7b5da35b *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
549 #define FRAME_HAS_MINIBUF_P(f) ((f)->has_minibuffer)
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
550
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
551 /* Pixel height of frame F, including non-toolkit menu bar and
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
552 non-toolkit tool bar lines. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
553 #define FRAME_PIXEL_HEIGHT(f) ((f)->pixel_height)
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
554
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
555 /* Pixel width of frame F. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
556 #define FRAME_PIXEL_WIDTH(f) ((f)->pixel_width)
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
557
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
558 /* Height of frame F, measured in canonical lines, including
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
559 non-toolkit menu bar and non-toolkit tool bar lines. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
560 #define FRAME_LINES(f) (f)->text_lines
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
561
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
562 /* Width of frame F, measured in canonical character columns,
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
563 not including scroll bars if any. */
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
564 #define FRAME_COLS(f) (f)->text_cols
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
565
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
566 /* Number of lines of frame F used for menu bar.
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
567 This is relevant on terminal frames and on
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
568 X Windows when not using the X toolkit.
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
569 These lines are counted in FRAME_LINES. */
2148
9b8040c3f320 (FRAME_MENU_BAR_ITEMS): New macro (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
570 #define FRAME_MENU_BAR_LINES(f) (f)->menu_bar_lines
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
571
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 48321
diff changeset
572 /* Nonzero if this frame should display a tool bar
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 48321
diff changeset
573 in a way that does not use any text lines. */
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 96759
diff changeset
574 #if defined (USE_GTK) || defined (HAVE_NS)
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 48321
diff changeset
575 #define FRAME_EXTERNAL_TOOL_BAR(f) (f)->external_tool_bar
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 48321
diff changeset
576 #else
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 48321
diff changeset
577 #define FRAME_EXTERNAL_TOOL_BAR(f) 0
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 48321
diff changeset
578 #endif
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 48321
diff changeset
579
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25527
diff changeset
580 /* Number of lines of frame F used for the tool-bar. */
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
581
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25527
diff changeset
582 #define FRAME_TOOL_BAR_LINES(f) (f)->tool_bar_lines
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
583
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 48321
diff changeset
584
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
585 /* Lines above the top-most window in frame F. */
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
586
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
587 #define FRAME_TOP_MARGIN(F) \
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25527
diff changeset
588 (FRAME_MENU_BAR_LINES (F) + FRAME_TOOL_BAR_LINES (F))
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
589
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
590 /* Nonzero if this frame should display a menu bar
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
591 in a way that does not use any text lines. */
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 96759
diff changeset
592 #if defined (USE_X_TOOLKIT) || defined (HAVE_NTGUI) \
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95158
diff changeset
593 || defined (HAVE_NS) || defined (USE_GTK)
5657
ac0f9da25111 (struct frame): New field external_menu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 3649
diff changeset
594 #define FRAME_EXTERNAL_MENU_BAR(f) (f)->external_menu_bar
8233
5b063488f2f8 (FRAME_EXTERNAL_MENU_BAR) [!USE_X_TOOLKIT]: Give zero.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
595 #else
5b063488f2f8 (FRAME_EXTERNAL_MENU_BAR) [!USE_X_TOOLKIT]: Give zero.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
596 #define FRAME_EXTERNAL_MENU_BAR(f) 0
5b063488f2f8 (FRAME_EXTERNAL_MENU_BAR) [!USE_X_TOOLKIT]: Give zero.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
597 #endif
1710
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
598 #define FRAME_VISIBLE_P(f) ((f)->visible != 0)
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
599
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
600 /* Nonzero if frame F is currently visible but hidden. */
19696
dc5e4b1ce93c (FRAME_OBSCURED_P): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17222
diff changeset
601 #define FRAME_OBSCURED_P(f) ((f)->visible > 1)
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
602
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
603 /* Nonzero if frame F is currently iconified. */
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
604 #define FRAME_ICONIFIED_P(f) (f)->iconified
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
605
1710
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
606 #define FRAME_SET_VISIBLE(f,p) \
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
607 ((f)->async_visible = (p), FRAME_SAMPLE_VISIBILITY (f))
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
608 #define SET_FRAME_GARBAGED(f) (frame_garbaged = 1, f->garbaged = 1)
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
609 #define FRAME_GARBAGED_P(f) (f)->garbaged
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
610
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
611 /* Nonzero means do not allow splitting this frame's window. */
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
612 #define FRAME_NO_SPLIT_P(f) (f)->no_split
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
613
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
614 /* Not really implemented. */
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
615 #define FRAME_WANTS_MODELINE_P(f) (f)->wants_modeline
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
616
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
617 /* Nonzero if a size change has been requested for frame F
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
618 but not yet really put into effect. This can be true temporarily
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
619 when an X event comes in at a bad time. */
10665
4e7da2fc451b (struct frame): New field window_sizes_changed.
Richard M. Stallman <rms@gnu.org>
parents: 10288
diff changeset
620 #define FRAME_WINDOW_SIZES_CHANGED(f) (f)->window_sizes_changed
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
621
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
622 /* The minibuffer window of frame F, if it has one; otherwise nil. */
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
623 #define FRAME_MINIBUF_WINDOW(f) (f)->minibuffer_window
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
624
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
625 /* The root window of the window tree of frame F. */
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
626 #define FRAME_ROOT_WINDOW(f) (f)->root_window
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
627
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
628 /* The currently selected window of the window tree of frame F. */
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
629 #define FRAME_SELECTED_WINDOW(f) (f)->selected_window
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
630
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49322
diff changeset
631 #define FRAME_INSERT_COST(f) (f)->insert_line_cost
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49322
diff changeset
632 #define FRAME_DELETE_COST(f) (f)->delete_line_cost
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
633 #define FRAME_INSERTN_COST(f) (f)->insert_n_lines_cost
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
634 #define FRAME_DELETEN_COST(f) (f)->delete_n_lines_cost
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
635 #define FRAME_MESSAGE_BUF(f) (f)->message_buf
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
636 #define FRAME_SCROLL_BOTTOM_VPOS(f) (f)->scroll_bottom_vpos
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
637 #define FRAME_FOCUS_FRAME(f) (f)->focus_frame
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
638
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
639 /* Nonzero if frame F supports scroll bars.
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
640 If this is zero, then it is impossible to enable scroll bars
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
641 on frame F. */
1994
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
642 #define FRAME_CAN_HAVE_SCROLL_BARS(f) ((f)->can_have_scroll_bars)
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
643
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
644 /* This frame slot says whether scroll bars are currently enabled for frame F,
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
645 and which side they are on. */
16270
4547dae187e9 (vertical_scroll_bar_type): Add enumerated
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
646 #define FRAME_VERTICAL_SCROLL_BAR_TYPE(f) ((f)->vertical_scroll_bar_type)
4547dae187e9 (vertical_scroll_bar_type): Add enumerated
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
647 #define FRAME_HAS_VERTICAL_SCROLL_BARS(f) \
4547dae187e9 (vertical_scroll_bar_type): Add enumerated
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
648 ((f)->vertical_scroll_bar_type != vertical_scroll_bar_none)
4547dae187e9 (vertical_scroll_bar_type): Add enumerated
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
649 #define FRAME_HAS_VERTICAL_SCROLL_BARS_ON_LEFT(f) \
4547dae187e9 (vertical_scroll_bar_type): Add enumerated
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
650 ((f)->vertical_scroll_bar_type == vertical_scroll_bar_left)
4547dae187e9 (vertical_scroll_bar_type): Add enumerated
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
651 #define FRAME_HAS_VERTICAL_SCROLL_BARS_ON_RIGHT(f) \
4547dae187e9 (vertical_scroll_bar_type): Add enumerated
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
652 ((f)->vertical_scroll_bar_type == vertical_scroll_bar_right)
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
653
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
654 /* Width that a scroll bar in frame F should have, if there is one.
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
655 Measured in pixels.
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
656 If scroll bars are turned off, this is still nonzero. */
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
657 #define FRAME_CONFIG_SCROLL_BAR_WIDTH(f) ((f)->config_scroll_bar_width)
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
658
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
659 /* Width that a scroll bar in frame F should have, if there is one.
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
660 Measured in columns (characters).
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
661 If scroll bars are turned off, this is still nonzero. */
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
662 #define FRAME_CONFIG_SCROLL_BAR_COLS(f) ((f)->config_scroll_bar_cols)
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
663
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
664 /* Width of a scroll bar in frame F, measured in columns (characters),
35798
48534cd0de43 (FRAME_RIGHT_SCROLL_BAR_WIDTH): New define.
Gerd Moellmann <gerd@gnu.org>
parents: 35446
diff changeset
665 but only if scroll bars are on the left. If scroll bars are on
48534cd0de43 (FRAME_RIGHT_SCROLL_BAR_WIDTH): New define.
Gerd Moellmann <gerd@gnu.org>
parents: 35446
diff changeset
666 the right in this frame, or there are no scroll bars, value is 0. */
48534cd0de43 (FRAME_RIGHT_SCROLL_BAR_WIDTH): New define.
Gerd Moellmann <gerd@gnu.org>
parents: 35446
diff changeset
667
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
668 #define FRAME_LEFT_SCROLL_BAR_COLS(f) \
35798
48534cd0de43 (FRAME_RIGHT_SCROLL_BAR_WIDTH): New define.
Gerd Moellmann <gerd@gnu.org>
parents: 35446
diff changeset
669 (FRAME_HAS_VERTICAL_SCROLL_BARS_ON_LEFT (f) \
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
670 ? FRAME_CONFIG_SCROLL_BAR_COLS (f) \
35798
48534cd0de43 (FRAME_RIGHT_SCROLL_BAR_WIDTH): New define.
Gerd Moellmann <gerd@gnu.org>
parents: 35446
diff changeset
671 : 0)
48534cd0de43 (FRAME_RIGHT_SCROLL_BAR_WIDTH): New define.
Gerd Moellmann <gerd@gnu.org>
parents: 35446
diff changeset
672
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
673 /* Width of a left scroll bar in frame F, measured in pixels */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
674
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
675 #define FRAME_LEFT_SCROLL_BAR_AREA_WIDTH(f) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
676 (FRAME_HAS_VERTICAL_SCROLL_BARS_ON_LEFT (f) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
677 ? (FRAME_CONFIG_SCROLL_BAR_COLS (f) * FRAME_COLUMN_WIDTH (f)) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
678 : 0)
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
679
35798
48534cd0de43 (FRAME_RIGHT_SCROLL_BAR_WIDTH): New define.
Gerd Moellmann <gerd@gnu.org>
parents: 35446
diff changeset
680 /* Width of a scroll bar in frame F, measured in columns (characters),
48534cd0de43 (FRAME_RIGHT_SCROLL_BAR_WIDTH): New define.
Gerd Moellmann <gerd@gnu.org>
parents: 35446
diff changeset
681 but only if scroll bars are on the right. If scroll bars are on
48534cd0de43 (FRAME_RIGHT_SCROLL_BAR_WIDTH): New define.
Gerd Moellmann <gerd@gnu.org>
parents: 35446
diff changeset
682 the left in this frame, or there are no scroll bars, value is 0. */
48534cd0de43 (FRAME_RIGHT_SCROLL_BAR_WIDTH): New define.
Gerd Moellmann <gerd@gnu.org>
parents: 35446
diff changeset
683
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
684 #define FRAME_RIGHT_SCROLL_BAR_COLS(f) \
35798
48534cd0de43 (FRAME_RIGHT_SCROLL_BAR_WIDTH): New define.
Gerd Moellmann <gerd@gnu.org>
parents: 35446
diff changeset
685 (FRAME_HAS_VERTICAL_SCROLL_BARS_ON_RIGHT (f) \
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
686 ? FRAME_CONFIG_SCROLL_BAR_COLS (f) \
16270
4547dae187e9 (vertical_scroll_bar_type): Add enumerated
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
687 : 0)
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
688
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
689 /* Width of a right scroll bar area in frame F, measured in pixels */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
690
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
691 #define FRAME_RIGHT_SCROLL_BAR_AREA_WIDTH(f) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
692 (FRAME_HAS_VERTICAL_SCROLL_BARS_ON_RIGHT (f) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
693 ? (FRAME_CONFIG_SCROLL_BAR_COLS (f) * FRAME_COLUMN_WIDTH (f)) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
694 : 0)
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
695
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
696 /* Actual width of a scroll bar in frame F, measured in columns. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
697
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
698 #define FRAME_SCROLL_BAR_COLS(f) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
699 (FRAME_HAS_VERTICAL_SCROLL_BARS (f) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
700 ? FRAME_CONFIG_SCROLL_BAR_COLS (f) \
16270
4547dae187e9 (vertical_scroll_bar_type): Add enumerated
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
701 : 0)
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
702
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
703 /* Actual width of a scroll bar area in frame F, measured in pixels. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
704
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
705 #define FRAME_SCROLL_BAR_AREA_WIDTH(f) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
706 (FRAME_HAS_VERTICAL_SCROLL_BARS (f) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
707 ? (FRAME_CONFIG_SCROLL_BAR_COLS (f) * FRAME_COLUMN_WIDTH (f)) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
708 : 0)
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
709
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
710 /* Total width of frame F, in columns (characters),
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
711 including the width used by scroll bars if any. */
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
712
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
713 #define FRAME_TOTAL_COLS(f) ((f)->total_cols)
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
714
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
715 /* Set the width of frame F to VAL.
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
716 VAL is the width of a full-frame window,
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
717 not including scroll bars and fringes. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
718
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
719 #define SET_FRAME_COLS(f, val) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
720 (FRAME_COLS (f) = (val), \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
721 (f)->total_cols = FRAME_TOTAL_COLS_ARG (f, FRAME_COLS (f)))
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
722
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
723 /* Given a value WIDTH for frame F's nominal width,
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
724 return the value that FRAME_TOTAL_COLS should have. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
725
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
726 #define FRAME_TOTAL_COLS_ARG(f, width) \
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
727 ((width) \
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
728 + FRAME_SCROLL_BAR_COLS (f) \
41121
2b74029038bd Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40655
diff changeset
729 + FRAME_FRINGE_COLS (f))
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
730
21762
b2746acaa663 (FRAME_CURSOR_X_LIMIT): New macro.
Richard M. Stallman <rms@gnu.org>
parents: 21425
diff changeset
731 /* Maximum + 1 legitimate value for FRAME_CURSOR_X. */
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
732
21762
b2746acaa663 (FRAME_CURSOR_X_LIMIT): New macro.
Richard M. Stallman <rms@gnu.org>
parents: 21425
diff changeset
733 #define FRAME_CURSOR_X_LIMIT(f) \
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
734 (FRAME_COLS (f) + FRAME_LEFT_SCROLL_BAR_COLS (f))
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
735
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
736 /* Nonzero if frame F has scroll bars. */
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
737
1994
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
738 #define FRAME_SCROLL_BARS(f) ((f)->scroll_bars)
21814
852655b4c6f9 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 21762
diff changeset
739
1994
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
740 #define FRAME_CONDEMNED_SCROLL_BARS(f) ((f)->condemned_scroll_bars)
2148
9b8040c3f320 (FRAME_MENU_BAR_ITEMS): New macro (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
741 #define FRAME_MENU_BAR_ITEMS(f) ((f)->menu_bar_items)
10120
8b5ae8d2eefc (struct frame): New field cost_calculation_baud_rate.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
742 #define FRAME_COST_BAUD_RATE(f) ((f)->cost_calculation_baud_rate)
17033
ffd6878cae02 (struct frame): New member `fontset_data'.
Karl Heuer <kwzh@gnu.org>
parents: 16588
diff changeset
743
47133
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
744 #define FRAME_DESIRED_CURSOR(f) ((f)->desired_cursor)
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
745 #define FRAME_BLINK_OFF_CURSOR(f) ((f)->blink_off_cursor)
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
746 #define FRAME_CURSOR_WIDTH(f) ((f)->cursor_width)
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
747 #define FRAME_BLINK_OFF_CURSOR_WIDTH(f) ((f)->blink_off_cursor_width)
85e238cd7287 (enum text_cursor_kinds): Consolidated here.
Kim F. Storm <storm@cua.dk>
parents: 44890
diff changeset
748
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
749 /* Return a pointer to the face cache of frame F. */
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
750
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
751 #define FRAME_FACE_CACHE(F) (F)->face_cache
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
752
17033
ffd6878cae02 (struct frame): New member `fontset_data'.
Karl Heuer <kwzh@gnu.org>
parents: 16588
diff changeset
753 /* Return the size of message_buf of the frame F. We multiply the
ffd6878cae02 (struct frame): New member `fontset_data'.
Karl Heuer <kwzh@gnu.org>
parents: 16588
diff changeset
754 width of the frame by 4 because multi-byte form may require at most
ffd6878cae02 (struct frame): New member `fontset_data'.
Karl Heuer <kwzh@gnu.org>
parents: 16588
diff changeset
755 4-byte for a character. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49322
diff changeset
756
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
757 #define FRAME_MESSAGE_BUF_SIZE(f) (((int) FRAME_COLS (f)) * 4)
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
758
1653
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
759 /* Emacs's redisplay code could become confused if a frame's
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
760 visibility changes at arbitrary times. For example, if a frame is
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
761 visible while the desired glyphs are being built, but becomes
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
762 invisible before they are updated, then some rows of the
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
763 desired_glyphs will be left marked as enabled after redisplay is
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
764 complete, which should never happen. The next time the frame
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
765 becomes visible, redisplay will probably barf.
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
766
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
767 Currently, there are no similar situations involving iconified, but
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
768 the principle is the same.
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
769
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
770 So instead of having asynchronous input handlers directly set and
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
771 clear the frame's visibility and iconification flags, they just set
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
772 the async_visible and async_iconified flags; the redisplay code
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
773 calls the FRAME_SAMPLE_VISIBILITY macro before doing any redisplay,
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
774 which sets visible and iconified from their asynchronous
1710
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
775 counterparts.
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
776
1776
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
777 Synchronous code must use the FRAME_SET_VISIBLE macro.
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
778
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
779 Also, if a frame used to be invisible, but has just become visible,
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
780 it must be marked as garbaged, since redisplay hasn't been keeping
53229
33c3c7c16e13 lib-src/emacsclient.c: Implemented --here option (open a new Emacs tty). Needs more work.
Karoly Lorentey <lorentey@elte.hu>
parents: 53226
diff changeset
781 up its contents.
33c3c7c16e13 lib-src/emacsclient.c: Implemented --here option (open a new Emacs tty). Needs more work.
Karoly Lorentey <lorentey@elte.hu>
parents: 53226
diff changeset
782
33c3c7c16e13 lib-src/emacsclient.c: Implemented --here option (open a new Emacs tty). Needs more work.
Karoly Lorentey <lorentey@elte.hu>
parents: 53226
diff changeset
783 Note that a tty frame is visible if and only if it is the topmost
33c3c7c16e13 lib-src/emacsclient.c: Implemented --here option (open a new Emacs tty). Needs more work.
Karoly Lorentey <lorentey@elte.hu>
parents: 53226
diff changeset
784 frame. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49322
diff changeset
785
1653
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
786 #define FRAME_SAMPLE_VISIBILITY(f) \
19696
dc5e4b1ce93c (FRAME_OBSCURED_P): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17222
diff changeset
787 (((f)->async_visible && (f)->visible != (f)->async_visible) ? \
dc5e4b1ce93c (FRAME_OBSCURED_P): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17222
diff changeset
788 SET_FRAME_GARBAGED (f) : 0, \
1776
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
789 (f)->visible = (f)->async_visible, \
1653
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
790 (f)->iconified = (f)->async_iconified)
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
791
71823
6b4b6ba02f17 (CHECK_FRAME, CHECK_LIVE_FRAME): Use CHECK_TYPE.
Kim F. Storm <storm@cua.dk>
parents: 69241
diff changeset
792 #define CHECK_FRAME(x) \
6b4b6ba02f17 (CHECK_FRAME, CHECK_LIVE_FRAME): Use CHECK_TYPE.
Kim F. Storm <storm@cua.dk>
parents: 69241
diff changeset
793 CHECK_TYPE (FRAMEP (x), Qframep, x)
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 385
diff changeset
794
71823
6b4b6ba02f17 (CHECK_FRAME, CHECK_LIVE_FRAME): Use CHECK_TYPE.
Kim F. Storm <storm@cua.dk>
parents: 69241
diff changeset
795 #define CHECK_LIVE_FRAME(x) \
6b4b6ba02f17 (CHECK_FRAME, CHECK_LIVE_FRAME): Use CHECK_TYPE.
Kim F. Storm <storm@cua.dk>
parents: 69241
diff changeset
796 CHECK_TYPE (FRAMEP (x) && FRAME_LIVE_P (XFRAME (x)), Qframe_live_p, x)
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 385
diff changeset
797
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
798 /* FOR_EACH_FRAME (LIST_VAR, FRAME_VAR) followed by a statement is a
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
799 `for' loop which iterates over the elements of Vframe_list. The
2252
9793d8654e23 * frame.h (FOR_EACH_FRAME): Change the definition so that
Jim Blandy <jimb@redhat.com>
parents: 2199
diff changeset
800 loop will set FRAME_VAR, a Lisp_Object, to each frame in
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
801 Vframe_list in succession and execute the statement. LIST_VAR
2252
9793d8654e23 * frame.h (FOR_EACH_FRAME): Change the definition so that
Jim Blandy <jimb@redhat.com>
parents: 2199
diff changeset
802 should be a Lisp_Object too; it is used to iterate through the
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49322
diff changeset
803 Vframe_list.
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
804
16051
ccf489f8596e Removed support for !MULTI_FRAME.
Karl Heuer <kwzh@gnu.org>
parents: 15390
diff changeset
805 This macro is a holdover from a time when multiple frames weren't always
ccf489f8596e Removed support for !MULTI_FRAME.
Karl Heuer <kwzh@gnu.org>
parents: 15390
diff changeset
806 supported. An alternate definition of the macro would expand to
ccf489f8596e Removed support for !MULTI_FRAME.
Karl Heuer <kwzh@gnu.org>
parents: 15390
diff changeset
807 something which executes the statement once. */
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
808
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
809 #define FOR_EACH_FRAME(list_var, frame_var) \
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
810 for ((list_var) = Vframe_list; \
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
811 (CONSP (list_var) \
25638
d02186608877 (FOR_EACH_FRAME): Use XCAR and XCDR.
Ken Raeburn <raeburn@raeburn.org>
parents: 25544
diff changeset
812 && (frame_var = XCAR (list_var), 1)); \
d02186608877 (FOR_EACH_FRAME): Use XCAR and XCDR.
Ken Raeburn <raeburn@raeburn.org>
parents: 25544
diff changeset
813 list_var = XCDR (list_var))
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
814
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
815
50358
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
816 extern Lisp_Object Qframep, Qframe_live_p;
83074
34a7a8f40548 Fix background-mode on terminal frames (Dan Nicolaescu).
Karoly Lorentey <lorentey@elte.hu>
parents: 83037
diff changeset
817 extern Lisp_Object Qtty, Qtty_type;
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83427
diff changeset
818 extern Lisp_Object Qterminal, Qterminal_live_p;
91732
c33ec1f680a9 * frame.c (Qnoelisp): New symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91327
diff changeset
819 extern Lisp_Object Qnoelisp;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
820
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
821 extern struct frame *last_nonminibuf_frame;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
822
83008
040dd41ed7d0 Hookified termcap devices, added bootstrap display device, plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83004
diff changeset
823 extern struct frame *make_initial_frame P_ ((void));
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83427
diff changeset
824 extern struct frame *make_terminal_frame P_ ((struct terminal *));
20316
2a2818b0812e Protoize function declarations.
Andreas Schwab <schwab@suse.de>
parents: 19696
diff changeset
825 extern struct frame *make_frame P_ ((int));
21425
69491a9294a4 (make_frame_without_minibuffer): Conditionalize on HAVE_WINDOW_SYSTEM.
Richard M. Stallman <rms@gnu.org>
parents: 20316
diff changeset
826 #ifdef HAVE_WINDOW_SYSTEM
20316
2a2818b0812e Protoize function declarations.
Andreas Schwab <schwab@suse.de>
parents: 19696
diff changeset
827 extern struct frame *make_minibuffer_frame P_ ((void));
2a2818b0812e Protoize function declarations.
Andreas Schwab <schwab@suse.de>
parents: 19696
diff changeset
828 extern struct frame *make_frame_without_minibuffer P_ ((Lisp_Object,
2a2818b0812e Protoize function declarations.
Andreas Schwab <schwab@suse.de>
parents: 19696
diff changeset
829 struct kboard *,
2a2818b0812e Protoize function declarations.
Andreas Schwab <schwab@suse.de>
parents: 19696
diff changeset
830 Lisp_Object));
21425
69491a9294a4 (make_frame_without_minibuffer): Conditionalize on HAVE_WINDOW_SYSTEM.
Richard M. Stallman <rms@gnu.org>
parents: 20316
diff changeset
831 #endif /* HAVE_WINDOW_SYSTEM */
20316
2a2818b0812e Protoize function declarations.
Andreas Schwab <schwab@suse.de>
parents: 19696
diff changeset
832 extern int other_visible_frames P_ ((struct frame *));
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
833
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
834 extern Lisp_Object Vframe_list;
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
835 extern Lisp_Object Vdefault_frame_alist;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
836
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
837 extern Lisp_Object Vterminal_frame;
43367
7d02c2aeb8fb (Vmouse_highlight): Declare extern.
Kim F. Storm <storm@cua.dk>
parents: 41717
diff changeset
838
7d02c2aeb8fb (Vmouse_highlight): Declare extern.
Kim F. Storm <storm@cua.dk>
parents: 41717
diff changeset
839 extern Lisp_Object Vmouse_highlight;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
840
25670
728844445e1c (SELECTED_FRAME): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25638
diff changeset
841 /* The currently selected frame. */
728844445e1c (SELECTED_FRAME): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25638
diff changeset
842
728844445e1c (SELECTED_FRAME): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25638
diff changeset
843 extern Lisp_Object selected_frame;
728844445e1c (SELECTED_FRAME): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25638
diff changeset
844
728844445e1c (SELECTED_FRAME): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25638
diff changeset
845 /* Value is a pointer to the selected frame. If the selected frame
29439
b5e905b3b506 (struct frame): Use volatile unconditionally.
Dave Love <fx@gnu.org>
parents: 28691
diff changeset
846 isn't live, abort. */
25670
728844445e1c (SELECTED_FRAME): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25638
diff changeset
847
728844445e1c (SELECTED_FRAME): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25638
diff changeset
848 #define SELECTED_FRAME() \
728844445e1c (SELECTED_FRAME): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25638
diff changeset
849 ((FRAMEP (selected_frame) \
728844445e1c (SELECTED_FRAME): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25638
diff changeset
850 && FRAME_LIVE_P (XFRAME (selected_frame))) \
728844445e1c (SELECTED_FRAME): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25638
diff changeset
851 ? XFRAME (selected_frame) \
28651
2ce492de4cb9 (SELECTED_FRAME): Change definition to compile cleanly
Gerd Moellmann <gerd@gnu.org>
parents: 28417
diff changeset
852 : (abort (), (struct frame *) 0))
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
853
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
854
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
855 /***********************************************************************
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
856 Display-related Macros
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
857 ***********************************************************************/
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
858
64477
def523ae062b (struct frame): New member already_hscrolled_p.
Kim F. Storm <storm@cua.dk>
parents: 64084
diff changeset
859 /* Canonical y-unit on frame F.
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
860 This value currently equals the line height of the frame (which is
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
861 the height of the default font of F). */
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
862
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
863 #define FRAME_LINE_HEIGHT(F) ((F)->line_height)
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
864
64477
def523ae062b (struct frame): New member already_hscrolled_p.
Kim F. Storm <storm@cua.dk>
parents: 64084
diff changeset
865 /* Canonical x-unit on frame F.
59203
3573aee81cc8 (struct frame): New member space_width.
Kenichi Handa <handa@m17n.org>
parents: 53883
diff changeset
866 This value currently equals the average width of the default font of F. */
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
867
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
868 #define FRAME_COLUMN_WIDTH(F) ((F)->column_width)
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
869
59203
3573aee81cc8 (struct frame): New member space_width.
Kenichi Handa <handa@m17n.org>
parents: 53883
diff changeset
870 /* Space glyph width of the default font of frame F. */
3573aee81cc8 (struct frame): New member space_width.
Kenichi Handa <handa@m17n.org>
parents: 53883
diff changeset
871
3573aee81cc8 (struct frame): New member space_width.
Kenichi Handa <handa@m17n.org>
parents: 53883
diff changeset
872 #define FRAME_SPACE_WIDTH(F) ((F)->space_width)
3573aee81cc8 (struct frame): New member space_width.
Kenichi Handa <handa@m17n.org>
parents: 53883
diff changeset
873
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
874
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
875 /* Pixel width of areas used to display truncation marks, continuation
25460
8569b5f63527 (FRAME_WINDOW_WIDTH_ARG): Add in FRAME_FLAGS_AREA_COLS
Gerd Moellmann <gerd@gnu.org>
parents: 25029
diff changeset
876 marks, overlay arrows. This is 0 for terminal frames. */
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
877
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
878 #ifdef HAVE_WINDOW_SYSTEM
31147
a158ff61b113 (FRAME_FLAGS_AREA_COLS, FRAME_FLAGS_AREA_WIDTH)
Gerd Moellmann <gerd@gnu.org>
parents: 29439
diff changeset
879
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
880 /* Total width of fringes reserved for drawing truncation bitmaps,
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
881 continuation bitmaps and alike. The width is in canonical char
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
882 units of the frame. This must currently be the case because window
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
883 sizes aren't pixel values. If it weren't the case, we wouldn't be
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
884 able to split windows horizontally nicely. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
885
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
886 #define FRAME_FRINGE_COLS(F) ((F)->fringe_cols)
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
887
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
888 /* Pixel-width of the left and right fringe. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
889
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
890 #define FRAME_LEFT_FRINGE_WIDTH(F) ((F)->left_fringe_width)
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
891 #define FRAME_RIGHT_FRINGE_WIDTH(F) ((F)->right_fringe_width)
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
892
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
893 /* Total width of fringes in pixels. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
894
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
895 #define FRAME_TOTAL_FRINGE_WIDTH(F) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
896 (FRAME_LEFT_FRINGE_WIDTH (F) + FRAME_RIGHT_FRINGE_WIDTH (F))
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
897
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
898
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
899 /* Pixel-width of internal border lines */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
900
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
901 #define FRAME_INTERNAL_BORDER_WIDTH(F) ((F)->internal_border_width)
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49322
diff changeset
902
31147
a158ff61b113 (FRAME_FLAGS_AREA_COLS, FRAME_FLAGS_AREA_WIDTH)
Gerd Moellmann <gerd@gnu.org>
parents: 29439
diff changeset
903 #else /* not HAVE_WINDOW_SYSTEM */
a158ff61b113 (FRAME_FLAGS_AREA_COLS, FRAME_FLAGS_AREA_WIDTH)
Gerd Moellmann <gerd@gnu.org>
parents: 29439
diff changeset
904
41121
2b74029038bd Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40655
diff changeset
905 #define FRAME_FRINGE_COLS(F) 0
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
906 #define FRAME_TOTAL_FRINGE_WIDTH(F) 0
41121
2b74029038bd Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40655
diff changeset
907 #define FRAME_LEFT_FRINGE_WIDTH(F) 0
41717
6ca418a9510b (struct frame): Remove trunc_area_pixel_width and trunc_area_cols fields.
Kim F. Storm <storm@cua.dk>
parents: 41121
diff changeset
908 #define FRAME_RIGHT_FRINGE_WIDTH(F) 0
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
909 #define FRAME_INTERNAL_BORDER_WIDTH(F) 0
31147
a158ff61b113 (FRAME_FLAGS_AREA_COLS, FRAME_FLAGS_AREA_WIDTH)
Gerd Moellmann <gerd@gnu.org>
parents: 29439
diff changeset
910
a158ff61b113 (FRAME_FLAGS_AREA_COLS, FRAME_FLAGS_AREA_WIDTH)
Gerd Moellmann <gerd@gnu.org>
parents: 29439
diff changeset
911 #endif /* not HAVE_WINDOW_SYSTEM */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49322
diff changeset
912
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
913
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
914
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
915
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
916 /***********************************************************************
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
917 Conversion between canonical units and pixels
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
918 ***********************************************************************/
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
919
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
920 /* Canonical x-values are fractions of FRAME_COLUMN_WIDTH, canonical
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
921 y-unit are fractions of FRAME_LINE_HEIGHT of a frame. Both are
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
922 represented as Lisp numbers, i.e. integers or floats. */
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
923
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
924 /* Convert canonical value X to pixels. F is the frame whose
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
925 canonical char width is to be used. X must be a Lisp integer or
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
926 float. Value is a C integer. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49322
diff changeset
927
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
928 #define FRAME_PIXEL_X_FROM_CANON_X(F, X) \
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
929 (INTEGERP (X) \
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
930 ? XINT (X) * FRAME_COLUMN_WIDTH (F) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
931 : (int) (XFLOAT_DATA (X) * FRAME_COLUMN_WIDTH (F)))
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49322
diff changeset
932
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
933 /* Convert canonical value Y to pixels. F is the frame whose
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
934 canonical character height is to be used. X must be a Lisp integer
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
935 or float. Value is a C integer. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49322
diff changeset
936
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
937 #define FRAME_PIXEL_Y_FROM_CANON_Y(F, Y) \
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
938 (INTEGERP (Y) \
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
939 ? XINT (Y) * FRAME_LINE_HEIGHT (F) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
940 : (int) (XFLOAT_DATA (Y) * FRAME_LINE_HEIGHT (F)))
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
941
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
942 /* Convert pixel-value X to canonical units. F is the frame whose
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
943 canonical character width is to be used. X is a C integer. Result
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
944 is a Lisp float if X is not a multiple of the canon width,
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
945 otherwise it's a Lisp integer. */
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
946
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
947 #define FRAME_CANON_X_FROM_PIXEL_X(F, X) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
948 ((X) % FRAME_COLUMN_WIDTH (F) != 0 \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
949 ? make_float ((double) (X) / FRAME_COLUMN_WIDTH (F)) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
950 : make_number ((X) / FRAME_COLUMN_WIDTH (F)))
25029
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
951
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
952 /* Convert pixel-value Y to canonical units. F is the frame whose
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
953 canonical character height is to be used. Y is a C integer.
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
954 Result is a Lisp float if Y is not a multiple of the canon width,
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
955 otherwise it's a Lisp integer. */
dc975d71a3a5 (FRAME_TOOLBAR_LINES): New.
Gerd Moellmann <gerd@gnu.org>
parents: 21814
diff changeset
956
51195
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
957 #define FRAME_CANON_Y_FROM_PIXEL_Y(F, Y) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
958 ((Y) % FRAME_LINE_HEIGHT (F) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
959 ? make_float ((double) (Y) / FRAME_LINE_HEIGHT (F)) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
960 : make_number ((Y) / FRAME_LINE_HEIGHT (F)))
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
961
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
962
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
963
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
964 /* Manipulating pixel sizes and character sizes.
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
965 Knowledge of which factors affect the overall size of the window should
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
966 be hidden in these macros, if that's possible.
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
967
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
968 Return the upper/left pixel position of the character cell on frame F
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
969 at ROW/COL. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
970
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
971 #define FRAME_LINE_TO_PIXEL_Y(f, row) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
972 (FRAME_INTERNAL_BORDER_WIDTH (f) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
973 + (row) * FRAME_LINE_HEIGHT (f))
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
974
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
975 #define FRAME_COL_TO_PIXEL_X(f, col) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
976 (FRAME_INTERNAL_BORDER_WIDTH (f) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
977 + (col) * FRAME_COLUMN_WIDTH (f))
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
978
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
979 /* Return the pixel width/height of frame F if it has
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
980 COLS columns/LINES rows. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
981
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
982 #define FRAME_TEXT_COLS_TO_PIXEL_WIDTH(f, cols) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
983 (FRAME_COL_TO_PIXEL_X (f, cols) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
984 + (f)->scroll_bar_actual_width \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
985 + FRAME_TOTAL_FRINGE_WIDTH (f) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
986 + FRAME_INTERNAL_BORDER_WIDTH (f))
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
987
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
988 #define FRAME_TEXT_LINES_TO_PIXEL_HEIGHT(f, lines) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
989 (FRAME_LINE_TO_PIXEL_Y (f, lines) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
990 + FRAME_INTERNAL_BORDER_WIDTH (f))
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
991
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
992
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
993 /* Return the row/column (zero-based) of the character cell containing
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
994 the pixel on FRAME at Y/X. */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
995
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
996 #define FRAME_PIXEL_Y_TO_LINE(f, y) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
997 (((y) - FRAME_INTERNAL_BORDER_WIDTH (f)) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
998 / FRAME_LINE_HEIGHT (f))
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
999
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
1000 #define FRAME_PIXEL_X_TO_COL(f, x) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
1001 (((x) - FRAME_INTERNAL_BORDER_WIDTH (f)) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
1002 / FRAME_COLUMN_WIDTH (f))
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
1003
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
1004 /* How many columns/rows of text can we fit in WIDTH/HEIGHT pixels on
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
1005 frame F? */
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
1006
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
1007 #define FRAME_PIXEL_WIDTH_TO_TEXT_COLS(f, width) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
1008 (FRAME_PIXEL_X_TO_COL (f, ((width) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
1009 - FRAME_INTERNAL_BORDER_WIDTH (f) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
1010 - FRAME_TOTAL_FRINGE_WIDTH (f) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
1011 - (f)->scroll_bar_actual_width)))
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
1012
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
1013 #define FRAME_PIXEL_HEIGHT_TO_TEXT_LINES(f, height) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
1014 (FRAME_PIXEL_Y_TO_LINE (f, ((height) \
3cbf29813eea (struct frame): Rename members height to text_lines,
Kim F. Storm <storm@cua.dk>
parents: 50358
diff changeset
1015 - FRAME_INTERNAL_BORDER_WIDTH (f))))
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49322
diff changeset
1016
50358
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1017
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1018 /***********************************************************************
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1019 Frame Parameters
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1020 ***********************************************************************/
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1021
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1022 extern Lisp_Object Qauto_raise, Qauto_lower;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1023 extern Lisp_Object Qborder_color, Qborder_width;
83415
d2c799f58129 Implement full support for frame-local `next-buffer' and `previous-buffer'.
Karoly Lorentey <lorentey@elte.hu>
parents: 83364
diff changeset
1024 extern Lisp_Object Qbuffer_predicate, Qbuffer_list, Qburied_buffer_list;
50358
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1025 extern Lisp_Object Qcursor_color, Qcursor_type;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1026 extern Lisp_Object Qfont;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1027 extern Lisp_Object Qbackground_color, Qforeground_color;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1028 extern Lisp_Object Qicon, Qicon_name, Qicon_type, Qicon_left, Qicon_top;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1029 extern Lisp_Object Qinternal_border_width;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1030 extern Lisp_Object Qmenu_bar_lines, Qtool_bar_lines;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1031 extern Lisp_Object Qmouse_color;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1032 extern Lisp_Object Qname, Qtitle;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1033 extern Lisp_Object Qparent_id;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1034 extern Lisp_Object Qunsplittable, Qvisibility;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1035 extern Lisp_Object Qscroll_bar_width, Qvertical_scroll_bars;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1036 extern Lisp_Object Qscroll_bar_foreground, Qscroll_bar_background;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1037 extern Lisp_Object Qscreen_gamma;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1038 extern Lisp_Object Qline_spacing;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1039 extern Lisp_Object Qwait_for_wm;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1040 extern Lisp_Object Qfullscreen;
90548
7cc05972a79e (Qfont_backend): Extern it.
Kenichi Handa <handa@m17n.org>
parents: 90533
diff changeset
1041 extern Lisp_Object Qfont_backend;
95158
69278a81390d Seiji Zenitani <zenitani at mac.com>
Glenn Morris <rgm@gnu.org>
parents: 94994
diff changeset
1042 extern Lisp_Object Qalpha;
50358
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1043
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1044 extern Lisp_Object Qleft_fringe, Qright_fringe;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1045 extern Lisp_Object Qheight, Qwidth;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1046 extern Lisp_Object Qminibuffer, Qmodeline;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1047 extern Lisp_Object Qonly;
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 95158
diff changeset
1048 extern Lisp_Object Qx, Qw32, Qmac, Qpc, Qns;
50358
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1049 extern Lisp_Object Qvisible;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1050 extern Lisp_Object Qdisplay_type;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1051 extern Lisp_Object Qbackground_mode;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1052
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1053 extern Lisp_Object Qx_resource_name;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1054
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1055 extern Lisp_Object Qleft, Qright, Qtop, Qbox;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1056 extern Lisp_Object Qdisplay;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1057
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1058 #ifdef HAVE_WINDOW_SYSTEM
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1059
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1060 /* The class of this X application. */
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1061 #define EMACS_CLASS "Emacs"
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1062
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1063 /* These are in xterm.c, w32term.c, etc. */
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1064
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1065 extern void x_set_scroll_bar_default_width P_ ((struct frame *));
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1066 extern void x_set_offset P_ ((struct frame *, int, int, int));
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1067 extern void x_wm_set_icon_position P_ ((struct frame *, int, int));
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1068
94930
aa7f14981acf Delete USE_FONT_BACKEND conditional.
Kenichi Handa <handa@m17n.org>
parents: 93667
diff changeset
1069 extern Lisp_Object x_new_font P_ ((struct frame *, Lisp_Object, int));
50358
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1070
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1071 /* These are in frame.c */
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1072
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1073 extern Lisp_Object Vx_resource_name;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1074 extern Lisp_Object Vx_resource_class;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1075
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1076
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1077 extern Lisp_Object Qface_set_after_frame_default;
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1078
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1079 extern void x_fullscreen_adjust P_ ((struct frame *f, int *, int *,
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1080 int *, int *));
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1081
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1082 extern void x_set_frame_parameters P_ ((struct frame *, Lisp_Object));
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1083 extern void x_report_frame_params P_ ((struct frame *, Lisp_Object *));
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1084
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1085 extern void x_set_fullscreen P_ ((struct frame *, Lisp_Object, Lisp_Object));
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1086 extern void x_set_line_spacing P_ ((struct frame *, Lisp_Object, Lisp_Object));
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1087 extern void x_set_screen_gamma P_ ((struct frame *, Lisp_Object, Lisp_Object));
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1088 extern void x_set_font P_ ((struct frame *, Lisp_Object, Lisp_Object));
90548
7cc05972a79e (Qfont_backend): Extern it.
Kenichi Handa <handa@m17n.org>
parents: 90533
diff changeset
1089 extern void x_set_font_backend P_ ((struct frame *, Lisp_Object, Lisp_Object));
50358
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1090 extern void x_set_fringe_width P_ ((struct frame *, Lisp_Object, Lisp_Object));
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1091 extern void x_set_border_width P_ ((struct frame *, Lisp_Object, Lisp_Object));
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1092 extern void x_set_internal_border_width P_ ((struct frame *, Lisp_Object,
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1093 Lisp_Object));
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1094 extern void x_set_visibility P_ ((struct frame *, Lisp_Object, Lisp_Object));
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1095 extern void x_set_autoraise P_ ((struct frame *, Lisp_Object, Lisp_Object));
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1096 extern void x_set_autolower P_ ((struct frame *, Lisp_Object, Lisp_Object));
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1097 extern void x_set_unsplittable P_ ((struct frame *, Lisp_Object, Lisp_Object));
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1098 extern void x_set_vertical_scroll_bars P_ ((struct frame *, Lisp_Object,
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1099 Lisp_Object));
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1100 extern void x_set_scroll_bar_width P_ ((struct frame *, Lisp_Object,
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1101 Lisp_Object));
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1102
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1103 extern Lisp_Object x_icon_type P_ ((struct frame *));
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1104
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1105 extern int x_figure_window_size P_ ((struct frame *, Lisp_Object, int));
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1106
95158
69278a81390d Seiji Zenitani <zenitani at mac.com>
Glenn Morris <rgm@gnu.org>
parents: 94994
diff changeset
1107 extern Lisp_Object Vframe_alpha_lower_limit;
69278a81390d Seiji Zenitani <zenitani at mac.com>
Glenn Morris <rgm@gnu.org>
parents: 94994
diff changeset
1108 extern void x_set_alpha P_ ((struct frame *, Lisp_Object, Lisp_Object));
50358
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1109
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1110 extern void validate_x_resource_name P_ ((void));
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1111
96759
1e2f7aab70ba * Makefile.in: Undef LIB_STANDARD before defining it to silence warning
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
1112 extern Lisp_Object display_x_get_resource (Display_Info *,
1e2f7aab70ba * Makefile.in: Undef LIB_STANDARD before defining it to silence warning
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
1113 Lisp_Object attribute,
1e2f7aab70ba * Makefile.in: Undef LIB_STANDARD before defining it to silence warning
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
1114 Lisp_Object class,
1e2f7aab70ba * Makefile.in: Undef LIB_STANDARD before defining it to silence warning
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
1115 Lisp_Object component,
1e2f7aab70ba * Makefile.in: Undef LIB_STANDARD before defining it to silence warning
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
1116 Lisp_Object subclass);
1e2f7aab70ba * Makefile.in: Undef LIB_STANDARD before defining it to silence warning
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
1117
100632
389db2f016a4 * frame.c (delete_frame): New function derived from
Martin Rudalics <rudalics@gmx.at>
parents: 99510
diff changeset
1118 extern Lisp_Object delete_frame P_ ((Lisp_Object, Lisp_Object));
96759
1e2f7aab70ba * Makefile.in: Undef LIB_STANDARD before defining it to silence warning
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
1119
50358
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1120 #endif /* HAVE_WINDOW_SYSTEM */
35c02b1585b3 (Qauto_raise, Qauto_lower, ...): Declare extern all frame
Kim F. Storm <storm@cua.dk>
parents: 49600
diff changeset
1121
35803
888df8063774 Change the include blocker to the same form as in other header
Gerd Moellmann <gerd@gnu.org>
parents: 35802
diff changeset
1122 #endif /* not EMACS_FRAME_H */
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51665
diff changeset
1123
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51665
diff changeset
1124 /* arch-tag: 0df048ee-e6bf-4f48-bd56-e3cd055dd8c4
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51665
diff changeset
1125 (do not change this comment) */