annotate src/frame.h @ 12755:7a567a79b03b

(HAVE_SOCKETS, NEED_NET_ERRNO_H): Defined. (HAVE_TERMIOS): Defined. (HAVE_TERMIO): Add undef.
author Richard M. Stallman <rms@gnu.org>
date Wed, 02 Aug 1995 18:41:00 +0000
parents 427a3d6560bf
children 58efb2561888
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.
7307
cd81dba38a49 Update copyright.
Karl Heuer <kwzh@gnu.org>
parents: 7094
diff changeset
2 Copyright (C) 1993, 1994 Free Software Foundation, Inc.
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4 This file is part of GNU Emacs.
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6 GNU Emacs is free software; you can redistribute it and/or modify
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7 it under the terms of the GNU General Public License as published by
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
8 the Free Software Foundation; either version 2, or (at your option)
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 any later version.
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 GNU General Public License for more details.
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 along with GNU Emacs; see the file COPYING. If not, write to
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19
1776
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
20
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
21 /* Miscellanea. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22
1776
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
23 /* Nonzero means don't assume anything about current
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
24 contents of actual terminal frame */
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
25 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
26
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
27 /* 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
28 print. */
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
29 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
30
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
31
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
32 /* The structure representing a frame.
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
33
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
34 We declare this even if MULTI_FRAME is not defined, because when
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
35 we lack multi-frame support, we use one instance of this structure
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
36 to represent the one frame we support. This is cleaner than
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
37 having miscellaneous random variables scattered about. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39 enum output_method
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9293
diff changeset
40 { output_termcap, output_x_window, output_msdos_raw };
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
42 struct frame
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43 {
8826
9f5965fe4f6b (struct frame, selected_frame, last_nonminibuf_frame): Use EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents: 8233
diff changeset
44 EMACS_INT size;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
45 struct Lisp_Vector *next;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46
10208
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
47 /* All Lisp_Object components must come first.
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
48 Only EMACS_INT values can be intermixed with them.
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
49 That ensures they are all aligned normally. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50
11493
7a15a07093c2 (struct frame): New member namebuf.
Karl Heuer <kwzh@gnu.org>
parents: 11351
diff changeset
51 /* Name of this frame: a Lisp string. See also `explicit_name'
7a15a07093c2 (struct frame): New member namebuf.
Karl Heuer <kwzh@gnu.org>
parents: 11351
diff changeset
52 and `namebuf'. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53 Lisp_Object name;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
54
12274
f3383ea95b06 (struct frame): New field icon_name.
Richard M. Stallman <rms@gnu.org>
parents: 11493
diff changeset
55 /* 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
56 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
57 Lisp_Object icon_name;
f3383ea95b06 (struct frame): New field icon_name.
Richard M. Stallman <rms@gnu.org>
parents: 11493
diff changeset
58
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 3518
diff changeset
59 /* 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
60 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
61 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
62 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
63 needed.
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
64
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
65 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
66 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
67 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
68 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
69 focus_frame is nil, Fselect_frame will leave it alone. */
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
70 Lisp_Object focus_frame;
357
1ad871406b12 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 261
diff changeset
71
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
72 /* This frame's root window. Every frame has one.
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
73 If the frame has only a minibuffer window, this is it.
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
74 Otherwise, if the frame has a minibuffer window, this is its sibling. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
75 Lisp_Object root_window;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
76
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
77 /* This frame's selected window.
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
78 Each frame has its own window hierarchy
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
79 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
80 The selected window of the selected frame is Emacs's selected window. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
81 Lisp_Object selected_window;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
82
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
83 /* This frame's minibuffer window.
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
84 Most frames have their own minibuffer windows,
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
85 but only the selected frame's minibuffer window
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
86 can actually appear to exist. */
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
87 Lisp_Object minibuffer_window;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
88
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
89 /* Parameter alist of this frame.
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
90 These are the parameters specified when creating the frame
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
91 or modified with modify-frame-parameters. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
92 Lisp_Object param_alist;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
93
1994
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
94 /* 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
95 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
96 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
97 This field is marked by the garbage collector. It is here
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
98 instead of in the `display' structure so that the garbage
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
99 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
100 structure. */
1994
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
101 Lisp_Object scroll_bars;
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
102 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
103
2396
80bed5e0c8aa (struct frame): New field face_alist.
Richard M. Stallman <rms@gnu.org>
parents: 2252
diff changeset
104 /* List of elements to display in the menu bar.
80bed5e0c8aa (struct frame): New field face_alist.
Richard M. Stallman <rms@gnu.org>
parents: 2252
diff changeset
105 The elements have the form (KEY STRING . nil) to start;
80bed5e0c8aa (struct frame): New field face_alist.
Richard M. Stallman <rms@gnu.org>
parents: 2252
diff changeset
106 when they are displayed, the hpos of the left edge goes in the cddr. */
2148
9b8040c3f320 (FRAME_MENU_BAR_ITEMS): New macro (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
107 Lisp_Object menu_bar_items;
9b8040c3f320 (FRAME_MENU_BAR_ITEMS): New macro (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
108
2396
80bed5e0c8aa (struct frame): New field face_alist.
Richard M. Stallman <rms@gnu.org>
parents: 2252
diff changeset
109 /* 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
110 Lisp_Object face_alist;
80bed5e0c8aa (struct frame): New field face_alist.
Richard M. Stallman <rms@gnu.org>
parents: 2252
diff changeset
111
10208
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
112 /* 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
113 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
114 Only the X toolkit version uses this. */
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
115 Lisp_Object menu_bar_vector;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
116 /* Number of elements in the vector that have meaningful data. */
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
117 EMACS_INT menu_bar_items_used;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
118
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
119 /* Predicate for selecting buffers for other-buffer. */
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
120 Lisp_Object buffer_predicate;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
121
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
122 /* Beyond here, there should be no more Lisp_Object components. */
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
123
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
124
11493
7a15a07093c2 (struct frame): New member namebuf.
Karl Heuer <kwzh@gnu.org>
parents: 11351
diff changeset
125 /* A buffer to hold the frame's name. We can't use the Lisp string's
7a15a07093c2 (struct frame): New member namebuf.
Karl Heuer <kwzh@gnu.org>
parents: 11351
diff changeset
126 pointer (`name', above) because it might get relocated. */
7a15a07093c2 (struct frame): New member namebuf.
Karl Heuer <kwzh@gnu.org>
parents: 11351
diff changeset
127 char *namebuf;
7a15a07093c2 (struct frame): New member namebuf.
Karl Heuer <kwzh@gnu.org>
parents: 11351
diff changeset
128
10208
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
129 /* glyphs as they appear on the frame */
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
130 struct frame_glyphs *current_glyphs;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
131
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
132 /* glyphs we'd like to appear on the frame */
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
133 struct frame_glyphs *desired_glyphs;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
134
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
135 /* 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
136 /* 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
137 int *insert_line_cost;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
138 /* 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
139 int *delete_line_cost;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
140 /* 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
141 int *insert_n_lines_cost;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
142 /* 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
143 int *delete_n_lines_cost;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
144
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
145 /* glyphs for the mode line */
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
146 struct frame_glyphs *temp_glyphs;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
147
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
148 /* Intended cursor position of this frame.
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
149 Measured in characters, counting from upper left corner
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
150 within the frame. */
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
151 int cursor_x;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
152 int cursor_y;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
153
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
154 /* Actual cursor position of this frame, and the character under it.
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
155 (Not used for terminal frames.) */
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
156 int phys_cursor_x;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
157 int phys_cursor_y;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
158 /* This is handy for undrawing the cursor, because current_glyphs is
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
159 not always accurate when in do_scrolling. */
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
160 GLYPH phys_cursor_glyph;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
161
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
162 /* Size of this frame, in units of characters. */
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
163 EMACS_INT height;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
164 EMACS_INT width;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
165
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
166 /* New height and width for pending size change. 0 if no change pending. */
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
167 int new_height, new_width;
9e8f603bcff4 (struct frame): New field buffer_predicate.
Richard M. Stallman <rms@gnu.org>
parents: 10120
diff changeset
168
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
169 /* The output method says how the contents of this frame
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
170 are displayed. It could be using termcap, or using an X window. */
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
171 enum output_method output_method;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
172
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
173 /* A structure of auxiliary data used for displaying the contents.
12665
427a3d6560bf (struct frame): Rename `display' member to `output_data'.
Richard M. Stallman <rms@gnu.org>
parents: 12543
diff changeset
174 struct x_output is used for X window frames;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
175 it is defined in xterm.h. */
12665
427a3d6560bf (struct frame): Rename `display' member to `output_data'.
Richard M. Stallman <rms@gnu.org>
parents: 12543
diff changeset
176 union output_data { struct x_output *x; int nothing; } output_data;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
177
11005
3155b56586e9 (struct frame): New member kboard.
Karl Heuer <kwzh@gnu.org>
parents: 10665
diff changeset
178 #ifdef MULTI_KBOARD
3155b56586e9 (struct frame): New member kboard.
Karl Heuer <kwzh@gnu.org>
parents: 10665
diff changeset
179 /* A pointer to the kboard structure associated with this frame.
3155b56586e9 (struct frame): New member kboard.
Karl Heuer <kwzh@gnu.org>
parents: 10665
diff changeset
180 For termcap frames, this points to initial_kboard. For X frames,
3155b56586e9 (struct frame): New member kboard.
Karl Heuer <kwzh@gnu.org>
parents: 10665
diff changeset
181 it will be the same as display.x->display_info->kboard. */
11351
beecf2972ed3 (struct frame): Use `struct kboard', not KBOARD.
Richard M. Stallman <rms@gnu.org>
parents: 11005
diff changeset
182 struct kboard *kboard;
11005
3155b56586e9 (struct frame): New member kboard.
Karl Heuer <kwzh@gnu.org>
parents: 10665
diff changeset
183 #endif
3155b56586e9 (struct frame): New member kboard.
Karl Heuer <kwzh@gnu.org>
parents: 10665
diff changeset
184
2148
9b8040c3f320 (FRAME_MENU_BAR_ITEMS): New macro (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
185 /* 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
186 int menu_bar_lines;
9b8040c3f320 (FRAME_MENU_BAR_ITEMS): New macro (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
187
5657
ac0f9da25111 (struct frame): New field external_menu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 3649
diff changeset
188 #ifdef USE_X_TOOLKIT
ac0f9da25111 (struct frame): New field external_menu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 3649
diff changeset
189 /* Nonzero means using a menu bar that comes from the X toolkit. */
ac0f9da25111 (struct frame): New field external_menu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 3649
diff changeset
190 int external_menu_bar;
ac0f9da25111 (struct frame): New field external_menu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 3649
diff changeset
191 #endif
ac0f9da25111 (struct frame): New field external_menu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 3649
diff changeset
192
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
193 /* Nonzero if last attempt at redisplay on this frame was preempted. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
194 char display_preempted;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
195
1653
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
196 /* 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
197 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
198 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
199
1776
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
200 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
201 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
202 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
203
1653
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
204 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
205
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
206 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
207 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
208 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
209 at the next redisplay.
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
210
1653
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
211 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
212 FRAME_SAMPLE_VISIBILITY.
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
213
6183
242d3fed9285 Fix typo in comment.
Karl Heuer <kwzh@gnu.org>
parents: 5657
diff changeset
214 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
215 frame has been made invisible without an icon. */
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
216 char visible, iconified;
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
217
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
218 /* 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
219 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
220 See FRAME_SAMPLE_VISIBILITY, below. */
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
221 #ifdef __STDC__
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
222 volatile
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
223 #endif
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
224 char async_visible, async_iconified;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
225
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
226 /* Nonzero if this frame should be redrawn. */
1653
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
227 #ifdef __STDC__
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
228 volatile
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
229 #endif
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
230 char garbaged;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
231
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
232 /* True if frame actually has a minibuffer window on it.
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
233 0 if using a minibuffer window that isn't on this frame. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
234 char has_minibuffer;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
235
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
236 /* 0 means, if this frame has just one window,
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
237 show no modeline for that window. */
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
238 char wants_modeline;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
239
1710
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
240 /* 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
241 support scroll bars. */
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
242 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
243
1994
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
244 /* 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
245 actually display them on this frame. */
1994
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
246 char has_vertical_scroll_bars;
1710
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
247
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
248 /* Non-0 means raise this frame to the top of the heap when selected. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
249 char auto_raise;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
250
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
251 /* Non-0 means lower this frame to the bottom of the stack when left. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
252 char auto_lower;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
253
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
254 /* True if frame's root window can't be split. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
255 char no_split;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
256
998
61c6983219ff entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 984
diff changeset
257 /* If this is set, then Emacs won't change the frame name to indicate
61c6983219ff entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 984
diff changeset
258 the current buffer, etcetera. If the user explicitly sets the frame
61c6983219ff entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 984
diff changeset
259 name, this gets set. If the user sets the name to Qnil, this is
61c6983219ff entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 984
diff changeset
260 cleared. */
61c6983219ff entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 984
diff changeset
261 char explicit_name;
61c6983219ff entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 984
diff changeset
262
10665
4e7da2fc451b (struct frame): New field window_sizes_changed.
Richard M. Stallman <rms@gnu.org>
parents: 10288
diff changeset
263 /* Nonzero if size of some window on this frame has changed. */
4e7da2fc451b (struct frame): New field window_sizes_changed.
Richard M. Stallman <rms@gnu.org>
parents: 10288
diff changeset
264 char window_sizes_changed;
4e7da2fc451b (struct frame): New field window_sizes_changed.
Richard M. Stallman <rms@gnu.org>
parents: 10288
diff changeset
265
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
266 /* Storage for messages to this frame. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
267 char *message_buf;
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
268
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
269 /* Nonnegative if current redisplay should not do scroll computation
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
270 for lines beyond a certain vpos. This is the vpos. */
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
271 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
272
9164
fbdd7a2e62f4 (scroll_bar_pixel_width, scroll_bar_cols): Update comment.
Karl Heuer <kwzh@gnu.org>
parents: 8948
diff changeset
273 /* Width of the scroll bar, in pixels and in characters.
fbdd7a2e62f4 (scroll_bar_pixel_width, scroll_bar_cols): Update comment.
Karl Heuer <kwzh@gnu.org>
parents: 8948
diff changeset
274 scroll_bar_cols tracks scroll_bar_pixel_width if the latter is positive;
fbdd7a2e62f4 (scroll_bar_pixel_width, scroll_bar_cols): Update comment.
Karl Heuer <kwzh@gnu.org>
parents: 8948
diff changeset
275 a zero value in scroll_bar_pixel_width means to compute the actual width
fbdd7a2e62f4 (scroll_bar_pixel_width, scroll_bar_cols): Update comment.
Karl Heuer <kwzh@gnu.org>
parents: 8948
diff changeset
276 on the fly, using scroll_bar_cols and the current font width. */
8948
5f79babaa7d2 (FRAME_SCROLL_BAR_PIXEL_WIDTH): New macro, supersedes
Karl Heuer <kwzh@gnu.org>
parents: 8900
diff changeset
277 int scroll_bar_pixel_width;
5f79babaa7d2 (FRAME_SCROLL_BAR_PIXEL_WIDTH): New macro, supersedes
Karl Heuer <kwzh@gnu.org>
parents: 8900
diff changeset
278 int scroll_bar_cols;
10120
8b5ae8d2eefc (struct frame): New field cost_calculation_baud_rate.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
279
8b5ae8d2eefc (struct frame): New field cost_calculation_baud_rate.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
280 /* 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
281 int cost_calculation_baud_rate;
12543
13aa3e939a4d (struct frame): New field `mouse_moved'.
Karl Heuer <kwzh@gnu.org>
parents: 12274
diff changeset
282
13aa3e939a4d (struct frame): New field `mouse_moved'.
Karl Heuer <kwzh@gnu.org>
parents: 12274
diff changeset
283 /* Nonzero if the mouse has moved on this display
13aa3e939a4d (struct frame): New field `mouse_moved'.
Karl Heuer <kwzh@gnu.org>
parents: 12274
diff changeset
284 since the last time we checked. */
13aa3e939a4d (struct frame): New field `mouse_moved'.
Karl Heuer <kwzh@gnu.org>
parents: 12274
diff changeset
285 char mouse_moved;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
286 };
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
287
11005
3155b56586e9 (struct frame): New member kboard.
Karl Heuer <kwzh@gnu.org>
parents: 10665
diff changeset
288 #ifdef MULTI_KBOARD /* Note that MULTI_KBOARD implies MULTI_FRAME */
3155b56586e9 (struct frame): New member kboard.
Karl Heuer <kwzh@gnu.org>
parents: 10665
diff changeset
289 #define FRAME_KBOARD(f) ((f)->kboard)
3155b56586e9 (struct frame): New member kboard.
Karl Heuer <kwzh@gnu.org>
parents: 10665
diff changeset
290 #else
3155b56586e9 (struct frame): New member kboard.
Karl Heuer <kwzh@gnu.org>
parents: 10665
diff changeset
291 #define FRAME_KBOARD(f) (&the_only_kboard)
3155b56586e9 (struct frame): New member kboard.
Karl Heuer <kwzh@gnu.org>
parents: 10665
diff changeset
292 #endif
3155b56586e9 (struct frame): New member kboard.
Karl Heuer <kwzh@gnu.org>
parents: 10665
diff changeset
293
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
294 #ifdef MULTI_FRAME
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
295
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
296 typedef struct frame *FRAME_PTR;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
297
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
298 #define XFRAME(p) ((struct frame *) XPNTR (p))
10288
e4a6f55757a9 (XSETFRAME): Use pseudovector.
Richard M. Stallman <rms@gnu.org>
parents: 10208
diff changeset
299 #define XSETFRAME(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_FRAME))
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
300
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
301 #define WINDOW_FRAME(w) (w)->frame
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
302
12665
427a3d6560bf (struct frame): Rename `display' member to `output_data'.
Richard M. Stallman <rms@gnu.org>
parents: 12543
diff changeset
303 #define FRAME_LIVE_P(f) ((f)->output_data.nothing != 0)
979
268c7b5da35b *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
304 #define FRAME_TERMCAP_P(f) ((f)->output_method == output_termcap)
268c7b5da35b *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
305 #define FRAME_X_P(f) ((f)->output_method == output_x_window)
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
306 #define FRAME_MINIBUF_ONLY_P(f) \
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
307 EQ (FRAME_ROOT_WINDOW (f), FRAME_MINIBUF_WINDOW (f))
979
268c7b5da35b *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
308 #define FRAME_HAS_MINIBUF_P(f) ((f)->has_minibuffer)
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
309 #define FRAME_CURRENT_GLYPHS(f) (f)->current_glyphs
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
310 #define FRAME_DESIRED_GLYPHS(f) (f)->desired_glyphs
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
311 #define FRAME_TEMP_GLYPHS(f) (f)->temp_glyphs
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
312 #define FRAME_HEIGHT(f) (f)->height
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
313 #define FRAME_WIDTH(f) (f)->width
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
314 #define FRAME_NEW_HEIGHT(f) (f)->new_height
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
315 #define FRAME_NEW_WIDTH(f) (f)->new_width
2148
9b8040c3f320 (FRAME_MENU_BAR_ITEMS): New macro (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
316 #define FRAME_MENU_BAR_LINES(f) (f)->menu_bar_lines
8233
5b063488f2f8 (FRAME_EXTERNAL_MENU_BAR) [!USE_X_TOOLKIT]: Give zero.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
317 #ifdef USE_X_TOOLKIT
5657
ac0f9da25111 (struct frame): New field external_menu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 3649
diff changeset
318 #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
319 #else
5b063488f2f8 (FRAME_EXTERNAL_MENU_BAR) [!USE_X_TOOLKIT]: Give zero.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
320 #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
321 #endif
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
322 #define FRAME_CURSOR_X(f) (f)->cursor_x
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
323 #define FRAME_CURSOR_Y(f) (f)->cursor_y
1710
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
324 #define FRAME_VISIBLE_P(f) ((f)->visible != 0)
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
325 #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
326 ((f)->async_visible = (p), FRAME_SAMPLE_VISIBILITY (f))
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
327 #define SET_FRAME_GARBAGED(f) (frame_garbaged = 1, f->garbaged = 1)
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
328 #define FRAME_GARBAGED_P(f) (f)->garbaged
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
329 #define FRAME_NO_SPLIT_P(f) (f)->no_split
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
330 #define FRAME_WANTS_MODELINE_P(f) (f)->wants_modeline
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
331 #define FRAME_ICONIFIED_P(f) (f)->iconified
10665
4e7da2fc451b (struct frame): New field window_sizes_changed.
Richard M. Stallman <rms@gnu.org>
parents: 10288
diff changeset
332 #define FRAME_WINDOW_SIZES_CHANGED(f) (f)->window_sizes_changed
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
333 #define FRAME_MINIBUF_WINDOW(f) (f)->minibuffer_window
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
334 #define FRAME_ROOT_WINDOW(f) (f)->root_window
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
335 #define FRAME_SELECTED_WINDOW(f) (f)->selected_window
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
336 #define SET_GLYPHS_FRAME(glyphs,frame) ((glyphs)->frame = (frame))
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
337 #define FRAME_INSERT_COST(f) (f)->insert_line_cost
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
338 #define FRAME_DELETE_COST(f) (f)->delete_line_cost
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
339 #define FRAME_INSERTN_COST(f) (f)->insert_n_lines_cost
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
340 #define FRAME_DELETEN_COST(f) (f)->delete_n_lines_cost
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
341 #define FRAME_MESSAGE_BUF(f) (f)->message_buf
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
342 #define FRAME_SCROLL_BOTTOM_VPOS(f) (f)->scroll_bottom_vpos
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
343 #define FRAME_FOCUS_FRAME(f) (f)->focus_frame
1994
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
344 #define FRAME_CAN_HAVE_SCROLL_BARS(f) ((f)->can_have_scroll_bars)
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
345 #define FRAME_HAS_VERTICAL_SCROLL_BARS(f) ((f)->has_vertical_scroll_bars)
8948
5f79babaa7d2 (FRAME_SCROLL_BAR_PIXEL_WIDTH): New macro, supersedes
Karl Heuer <kwzh@gnu.org>
parents: 8900
diff changeset
346 #define FRAME_SCROLL_BAR_PIXEL_WIDTH(f) ((f)->scroll_bar_pixel_width)
5f79babaa7d2 (FRAME_SCROLL_BAR_PIXEL_WIDTH): New macro, supersedes
Karl Heuer <kwzh@gnu.org>
parents: 8900
diff changeset
347 #define FRAME_SCROLL_BAR_COLS(f) ((f)->scroll_bar_cols)
1994
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
348 #define FRAME_SCROLL_BARS(f) ((f)->scroll_bars)
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
349 #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
350 #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
351 #define FRAME_COST_BAUD_RATE(f) ((f)->cost_calculation_baud_rate)
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
352
1653
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
353 /* 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
354 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
355 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
356 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
357 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
358 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
359 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
360
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
361 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
362 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
363
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
364 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
365 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
366 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
367 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
368 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
369 counterparts.
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
370
1776
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
371 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
372
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
373 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
374 it must be marked as garbaged, since redisplay hasn't been keeping
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
375 up its contents. */
1653
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
376 #define FRAME_SAMPLE_VISIBILITY(f) \
1776
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
377 (((f)->async_visible && ! (f)->visible) ? SET_FRAME_GARBAGED (f) : 0, \
20c6f4aa5843 Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents: 1710
diff changeset
378 (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
379 (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
380
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
381 #define CHECK_FRAME(x, i) \
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 385
diff changeset
382 { \
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
383 if (! FRAMEP (x)) \
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
384 x = wrong_type_argument (Qframep, (x)); \
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 385
diff changeset
385 }
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 385
diff changeset
386
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
387 #define CHECK_LIVE_FRAME(x, i) \
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 385
diff changeset
388 { \
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
389 if (! FRAMEP (x) \
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
390 || ! FRAME_LIVE_P (XFRAME (x))) \
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1776
diff changeset
391 x = wrong_type_argument (Qframe_live_p, (x)); \
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 385
diff changeset
392 }
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 385
diff changeset
393
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
394 /* 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
395 `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
396 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
397 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
398 should be a Lisp_Object too; it is used to iterate through the
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
399 Vframe_list.
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
400
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
401 If MULTI_FRAME isn't defined, then this loop expands to something which
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
402 executes the statement once. */
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
403 #define FOR_EACH_FRAME(list_var, frame_var) \
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
404 for ((list_var) = Vframe_list; \
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
405 (CONSP (list_var) \
2252
9793d8654e23 * frame.h (FOR_EACH_FRAME): Change the definition so that
Jim Blandy <jimb@redhat.com>
parents: 2199
diff changeset
406 && (frame_var = XCONS (list_var)->car, 1)); \
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
407 list_var = XCONS (list_var)->cdr)
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
408
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
409
3649
e52308087b66 (Qicon): Declared.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
410 extern Lisp_Object Qframep, Qframe_live_p, Qicon;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
411
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
412 extern struct frame *selected_frame;
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
413 extern struct frame *last_nonminibuf_frame;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
414
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
415 extern struct frame *make_terminal_frame ();
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
416 extern struct frame *make_frame ();
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
417 extern struct frame *make_minibuffer_frame ();
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
418 extern struct frame *make_frame_without_minibuffer ();
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
419
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
420 extern Lisp_Object Vframe_list;
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
421 extern Lisp_Object Vdefault_frame_alist;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
422
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
423 extern Lisp_Object Vterminal_frame;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
424
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
425 #else /* not MULTI_FRAME */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
426
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
427 /* These definitions are used in a single-frame version of Emacs. */
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
428
984
4fda1fce3579 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 979
diff changeset
429 /* A frame we use to store all the data concerning the screen when we
4fda1fce3579 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 979
diff changeset
430 don't have multiple frames. Remember, if you store any data in it
4fda1fce3579 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 979
diff changeset
431 which needs to be protected from GC, you should staticpro that
4fda1fce3579 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 979
diff changeset
432 element explicitly. */
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
433 extern struct frame the_only_frame;
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
434
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9293
diff changeset
435 typedef struct frame *FRAME_PTR;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9293
diff changeset
436 #ifdef __GNUC__
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9293
diff changeset
437 /* A function call for always getting 0 is overkill, so... */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9293
diff changeset
438 #define WINDOW_FRAME(w) ({ Lisp_Object tem; XSETFASTINT (tem, 0); tem; })
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9293
diff changeset
439 #else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9293
diff changeset
440 #define WINDOW_FRAME(w) (Fselected_frame ())
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9293
diff changeset
441 #endif
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9293
diff changeset
442 #define XSETFRAME(p, v) (p = WINDOW_FRAME (***bogus***))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9293
diff changeset
443 #define XFRAME(frame) (&the_only_frame)
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
444
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9293
diff changeset
445 extern FRAME_PTR selected_frame;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9293
diff changeset
446 extern FRAME_PTR last_nonminibuf_frame;
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
447
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
448 #define FRAME_LIVE_P(f) 1
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9293
diff changeset
449 #ifdef MSDOS
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9293
diff changeset
450 /* The following definitions could also be used in the non-MSDOS case,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9293
diff changeset
451 but the constants below lead to better code. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9293
diff changeset
452 #define FRAME_TERMCAP_P(f) (the_only_frame.output_method == output_termcap)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9293
diff changeset
453 #define FRAME_X_P(f) (the_only_frame.output_method != output_termcap)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9293
diff changeset
454 #else
979
268c7b5da35b *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
455 #define FRAME_TERMCAP_P(f) 1
268c7b5da35b *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
456 #define FRAME_X_P(f) 0
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9293
diff changeset
457 #endif
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
458 #define FRAME_MINIBUF_ONLY_P(f) 0
979
268c7b5da35b *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
459 #define FRAME_HAS_MINIBUF_P(f) 1
984
4fda1fce3579 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 979
diff changeset
460 #define FRAME_CURRENT_GLYPHS(f) (the_only_frame.current_glyphs)
4fda1fce3579 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 979
diff changeset
461 #define FRAME_DESIRED_GLYPHS(f) (the_only_frame.desired_glyphs)
4fda1fce3579 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 979
diff changeset
462 #define FRAME_TEMP_GLYPHS(f) (the_only_frame.temp_glyphs)
4fda1fce3579 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 979
diff changeset
463 #define FRAME_HEIGHT(f) (the_only_frame.height)
4fda1fce3579 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 979
diff changeset
464 #define FRAME_WIDTH(f) (the_only_frame.width)
4fda1fce3579 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 979
diff changeset
465 #define FRAME_NEW_HEIGHT(f) (the_only_frame.new_height)
4fda1fce3579 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 979
diff changeset
466 #define FRAME_NEW_WIDTH(f) (the_only_frame.new_width)
2148
9b8040c3f320 (FRAME_MENU_BAR_ITEMS): New macro (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
467 #define FRAME_MENU_BAR_LINES(f) (the_only_frame.menu_bar_lines)
984
4fda1fce3579 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 979
diff changeset
468 #define FRAME_CURSOR_X(f) (the_only_frame.cursor_x)
4fda1fce3579 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 979
diff changeset
469 #define FRAME_CURSOR_Y(f) (the_only_frame.cursor_y)
1710
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
470 #define FRAME_SET_VISIBLE(f,p) (p)
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
471 #define FRAME_VISIBLE_P(f) 1
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
472 #define SET_FRAME_GARBAGED(f) (frame_garbaged = 1)
984
4fda1fce3579 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 979
diff changeset
473 #define FRAME_GARBAGED_P(f) (frame_garbaged)
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
474 #define FRAME_NO_SPLIT_P(f) 0
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
475 #define FRAME_WANTS_MODELINE_P(f) 1
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
476 #define FRAME_ICONIFIED_P(f) 0
10665
4e7da2fc451b (struct frame): New field window_sizes_changed.
Richard M. Stallman <rms@gnu.org>
parents: 10288
diff changeset
477 #define FRAME_WINDOW_SIZES_CHANGED(f) the_only_frame.window_sizes_changed
3518
2a9fb3c334ab (FRAME_MINIBUF_WINDOW): Use minibuffer_window.
Richard M. Stallman <rms@gnu.org>
parents: 2961
diff changeset
478 #define FRAME_MINIBUF_WINDOW(f) (minibuf_window)
998
61c6983219ff entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 984
diff changeset
479 #define FRAME_ROOT_WINDOW(f) (the_only_frame.root_window)
984
4fda1fce3579 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 979
diff changeset
480 #define FRAME_SELECTED_WINDOW(f) (selected_window)
4fda1fce3579 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 979
diff changeset
481 #define SET_GLYPHS_FRAME(glyphs,frame) do ; while (0)
4fda1fce3579 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 979
diff changeset
482 #define FRAME_INSERT_COST(frame) (the_only_frame.insert_line_cost)
4fda1fce3579 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 979
diff changeset
483 #define FRAME_DELETE_COST(frame) (the_only_frame.delete_line_cost)
4fda1fce3579 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 979
diff changeset
484 #define FRAME_INSERTN_COST(frame) (the_only_frame.insert_n_lines_cost)
4fda1fce3579 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 979
diff changeset
485 #define FRAME_DELETEN_COST(frame) (the_only_frame.delete_n_lines_cost)
4fda1fce3579 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 979
diff changeset
486 #define FRAME_MESSAGE_BUF(f) (the_only_frame.message_buf)
4fda1fce3579 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 979
diff changeset
487 #define FRAME_SCROLL_BOTTOM_VPOS(f) (the_only_frame.scroll_bottom_vpos)
1710
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
488 #define FRAME_FOCUS_FRAME(f) (Qnil)
1994
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
489 #define FRAME_CAN_HAVE_SCROLL_BARS(f) (the_only_frame.can_have_scroll_bars)
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
490 #define FRAME_HAS_VERTICAL_SCROLL_BARS(f) \
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
491 (the_only_frame.has_vertical_scroll_bars)
8948
5f79babaa7d2 (FRAME_SCROLL_BAR_PIXEL_WIDTH): New macro, supersedes
Karl Heuer <kwzh@gnu.org>
parents: 8900
diff changeset
492 #define FRAME_SCROLL_BAR_PIXEL_WIDTH(f) (the_only_frame.scroll_bar_pixel_width)
5f79babaa7d2 (FRAME_SCROLL_BAR_PIXEL_WIDTH): New macro, supersedes
Karl Heuer <kwzh@gnu.org>
parents: 8900
diff changeset
493 #define FRAME_SCROLL_BAR_COLS(f) (the_only_frame.scroll_bar_cols)
1994
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
494 #define FRAME_SCROLL_BARS(f) (the_only_frame.scroll_bars)
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
495 #define FRAME_CONDEMNED_SCROLL_BARS(f) (the_only_frame.condemned_scroll_bars)
2148
9b8040c3f320 (FRAME_MENU_BAR_ITEMS): New macro (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
496 #define FRAME_MENU_BAR_ITEMS(f) (the_only_frame.menu_bar_items)
10120
8b5ae8d2eefc (struct frame): New field cost_calculation_baud_rate.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
497 #define FRAME_COST_BAUD_RATE(f) (the_only_frame.cost_calculation_baud_rate)
357
1ad871406b12 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 261
diff changeset
498
1653
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
499 /* See comments in definition above. */
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
500 #define FRAME_SAMPLE_VISIBILITY(f) (0)
fd573317f468 * frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents: 998
diff changeset
501
979
268c7b5da35b *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
502 #define CHECK_FRAME(x, i) do; while (0)
268c7b5da35b *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
503 #define CHECK_LIVE_FRAME(x, y) do; while (0)
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
504
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
505 /* 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
506 `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
507 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
508 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
509 should be a Lisp_Object too; it is used to iterate through the
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
510 Vframe_list.
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
511
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
512 If MULTI_FRAME _is_ defined, then this loop expands to a real
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
513 `for' loop which traverses Vframe_list using LIST_VAR and
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
514 FRAME_VAR. */
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
515 #define FOR_EACH_FRAME(list_var, frame_var) \
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9293
diff changeset
516 for (list_var = Qt; frame_var = WINDOW_FRAME (***bogus***), ! NILP (list_var); list_var = Qnil)
261
731afdb0842c Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
517
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
518 #endif /* not MULTI_FRAME */
1710
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
519
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
520
1994
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
521 /* Device- and MULTI_FRAME-independent scroll bar stuff. */
1710
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
522
1994
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
523 /* Return the starting column (zero-based) of the vertical scroll bar
1710
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
524 for window W. The column before this one is the last column we can
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
525 use for text. If the window touches the right edge of the frame,
1994
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
526 we have extra space allocated for it. Otherwise, the scroll bar
1710
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
527 takes over the window's rightmost columns. */
1994
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
528 #define WINDOW_VERTICAL_SCROLL_BAR_COLUMN(w) \
1710
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
529 (((XINT ((w)->left) + XINT ((w)->width)) \
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
530 < FRAME_WIDTH (XFRAME (WINDOW_FRAME (w)))) \
8948
5f79babaa7d2 (FRAME_SCROLL_BAR_PIXEL_WIDTH): New macro, supersedes
Karl Heuer <kwzh@gnu.org>
parents: 8900
diff changeset
531 ? (XINT ((w)->left) + XINT ((w)->width) \
5f79babaa7d2 (FRAME_SCROLL_BAR_PIXEL_WIDTH): New macro, supersedes
Karl Heuer <kwzh@gnu.org>
parents: 8900
diff changeset
532 - FRAME_SCROLL_BAR_COLS (XFRAME (WINDOW_FRAME (w)))) \
1710
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
533 : FRAME_WIDTH (XFRAME (WINDOW_FRAME (w))))
26054080a152 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1653
diff changeset
534
1994
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
535 /* Return the height in lines of the vertical scroll bar in w. If the
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
536 window has a mode line, don't make the scroll bar extend that far. */
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
537 #define WINDOW_VERTICAL_SCROLL_BAR_HEIGHT(w) (window_internal_height (w))