annotate src/window.h @ 384:bbff43aa5eb7 r21-2-7

Import from CVS: tag r21-2-7
author cvs
date Mon, 13 Aug 2007 11:08:24 +0200
parents 8626e4521993
children 74fd4e045ea6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 /* Window definitions for XEmacs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2 Copyright (C) 1985, 1986, 1992, 1993, 1994, 1995
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3 Free Software Foundation, Inc.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5 Copyright (C) 1995, 1996 Ben Wing.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 Copyright (C) 1996 Chuck Thompson.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8 This file is part of XEmacs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 XEmacs is free software; you can redistribute it and/or modify it
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11 under the terms of the GNU General Public License as published by the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12 Free Software Foundation; either version 2, or (at your option) any
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13 later version.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15 XEmacs is distributed in the hope that it will be useful, but WITHOUT
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18 for more details.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20 You should have received a copy of the GNU General Public License
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21 along with XEmacs; see the file COPYING. If not, write to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23 Boston, MA 02111-1307, USA. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
24
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
25 /* Synched up with: FSF 19.30. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
27 #ifndef _XEMACS_WINDOW_H_
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
28 #define _XEMACS_WINDOW_H_
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
29
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
30 #include "redisplay.h"
380
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 284
diff changeset
31 #ifdef HAVE_SCROLLBARS
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
32 #include "scrollbar.h"
380
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 284
diff changeset
33 #endif
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
34
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
35 /* All windows in use are arranged into a tree, with pointers up and down.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
36
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
37 Windows that are leaves of the tree are actually displayed
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
38 and show the contents of buffers. Windows that are not leaves
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
39 are used for representing the way groups of leaf windows are
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
40 arranged on the frame. Leaf windows never become non-leaves.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
41 They are deleted only by calling delete-window on them (but
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
42 this can be done implicitly). Combination windows can be created
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
43 and deleted at any time.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
44
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
45 A leaf window has a non-nil buffer field, and also
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
46 has markers in its start and pointm fields. Non-leaf windows
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
47 have nil in these fields.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
48
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
49 Non-leaf windows are either vertical or horizontal combinations.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
50
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
51 A vertical combination window has children that are arranged on the frame
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
52 one above the next. Its vchild field points to the uppermost child.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
53 The parent field of each of the children points to the vertical
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
54 combination window. The next field of each child points to the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
55 child below it, or is nil for the lowest child. The prev field
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
56 of each child points to the child above it, or is nil for the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
57 highest child.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
58
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
59 A horizontal combination window has children that are side by side.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
60 Its hchild field points to the leftmost child. In each child
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
61 the next field points to the child to the right and the prev field
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
62 points to the child to the left.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
63
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
64 The children of a vertical combination window may be leaf windows
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
65 or horizontal combination windows. The children of a horizontal
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
66 combination window may be leaf windows or vertical combination windows.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
67
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
68 At the top of the tree are two windows which have nil as parent.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
69 The second of these is minibuf_window. The first one manages all
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
70 the frame area that is not minibuffer, and is called the root window.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
71 Different windows can be the root at different times;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
72 initially the root window is a leaf window, but if more windows
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
73 are created then that leaf window ceases to be root and a newly
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
74 made combination window becomes root instead.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
75
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
76 In any case, on screens which have an ordinary window and a
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
77 minibuffer, prev of the minibuf window is the root window and next of
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
78 the root window is the minibuf window. On minibufferless screens or
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
79 minibuffer-only screens, the root window and the minibuffer window are
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
80 one and the same, so its prev and next members are nil.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
81
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
82 A dead window has the `dead' flag set on it. Note that unlike other
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
83 dead objects, dead windows can be made live again through restoring a
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
84 window configuration. This means that the values in a dead window
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
85 need to be preserved, except for those that are reconstructed by from
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
86 the window configuration. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
87
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
88 struct window
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
89 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
90 struct lcrecord_header header;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
91
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
92 /* The frame this window is on. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
93 Lisp_Object frame;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
94 /* t if this window is a minibuffer window. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
95 Lisp_Object mini_p;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
96 /* Following child (to right or down) at same level of tree */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
97 Lisp_Object next;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
98 /* Preceding child (to left or up) at same level of tree */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
99 Lisp_Object prev;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
100 /* First child of this window. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
101 /* vchild is used if this is a vertical combination,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
102 hchild if this is a horizontal combination. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
103 Lisp_Object hchild, vchild;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
104 /* The window this one is a child of. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
105 Lisp_Object parent;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
106
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
107 /* The upper left corner coordinates of this window,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
108 as integers (pixels) relative to upper left corner of frame = 0, 0 */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
109 int pixel_left;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
110 int pixel_top;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
111 /* The size of the window (in pixels) */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
112 int pixel_height;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
113 int pixel_width;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
114
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
115 /* The buffer displayed in this window */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
116 /* Of the fields vchild, hchild and buffer, only one is non-nil. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
117 Lisp_Object buffer;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
118 /* A marker pointing to where in the text to start displaying */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
119 /* need one for each set of display structures */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
120 Lisp_Object start[3];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
121 /* A marker pointing to where in the text point is in this window,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
122 used only when the window is not selected.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
123 This exists so that when multiple windows show one buffer
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
124 each one can have its own value of point. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
125 /* need one for each set of display structures */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
126 Lisp_Object pointm[3];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
127 /* A marker pointing to where in the text the scrollbar is pointing */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
128 Lisp_Object sb_point;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
129 /* Number of columns display within the window is scrolled to the left. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
130 int hscroll;
257
65c19d2020f7 Import from CVS: tag r20-5b27
cvs
parents: 251
diff changeset
131 /* Idem for the window's modeline */
65c19d2020f7 Import from CVS: tag r20-5b27
cvs
parents: 251
diff changeset
132 int modeline_hscroll;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
133 /* Number saying how recently window was selected */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
134 Lisp_Object use_time;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
135 /* text.modified of displayed buffer as of last time display completed */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
136 Lisp_Object last_modified[3];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
137 /* Value of point at that time */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
138 Lisp_Object last_point[3];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
139 /* Value of start at that time */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
140 Lisp_Object last_start[3];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
141 /* buf.face_change as of last time display completed */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
142 Lisp_Object last_facechange[3];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
143
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
144 /* face cache elements correct for this window and its current buffer */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
145 face_cachel_dynarr *face_cachels;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
146 /* glyph cache elements correct for this window and its current buffer */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
147 glyph_cachel_dynarr *glyph_cachels;
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 380
diff changeset
148 /* we cannot have a per-device cache of widgets / subwindows because
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 380
diff changeset
149 each visible instance needs to be a separate instance. The lowest
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 380
diff changeset
150 level of granularity we can get easily is the window that the
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 380
diff changeset
151 subwindow is in. This will fail if we attach the same subwindow
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 380
diff changeset
152 twice to a buffer. However, we are quite unlikely to do this,
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 380
diff changeset
153 especially with buttons which will need individual callbacks. The
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 380
diff changeset
154 proper solution is probably not worth the effort. */
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 380
diff changeset
155 Lisp_Object subwindow_instance_cache;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
156 /* List of starting positions for display lines. Only valid if
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
157 buffer has not changed. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
158 line_start_cache_dynarr *line_start_cache;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
159 Lisp_Object line_cache_last_updated;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
160 int line_cache_validation_override;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
161
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
162 /* Length of longest line currently displayed. Used to control the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
163 width of the horizontal scrollbars. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
164 int max_line_len;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
165
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
166 /* Frame coords of point at that time */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
167 int last_point_x[3];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
168 int last_point_y[3];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
169
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
170 /* Number of characters in buffer past bottom of window,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
171 as of last redisplay that finished. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
172 /* need one for each set of display structures */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
173 int window_end_pos[3];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
174
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
175 /* If redisplay in this window goes beyond this buffer position,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
176 must run the redisplay-end-trigger-functions. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
177 Lisp_Object redisplay_end_trigger;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
178
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
179 /* Set by redisplay to the last position seen. This is used
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
180 to implement the redisplay-end-trigger-functions. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
181 Bufpos last_redisplay_pos;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
182
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
183 #define WINDOW_SLOT_DECLARATION
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
184 #define WINDOW_SLOT(slot, compare) Lisp_Object slot
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
185 #include "winslots.h"
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
186
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
187 /* one-bit flags: */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
188
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
189 /* marker used when restoring a window configuration */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
190 unsigned int config_mark :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
191 /* Non-zero means window was dead. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
192 unsigned int dead :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
193 /* Non-zero means next redisplay must use the value of start
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
194 set up for it in advance. Set by scrolling commands. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
195 unsigned int force_start :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
196 /* Non-zero means must regenerate modeline of this window */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
197 unsigned int redo_modeline :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
198 /* Non-zero means current value of `start'
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
199 was the beginning of a line when it was chosen. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
200 unsigned int start_at_line_beg :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
201 /* new redisplay flag */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
202 unsigned int windows_changed :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
203 unsigned int shadow_thickness_changed :1;
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
204 /* Vertical divider flag and validity of it */
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
205 unsigned int need_vertical_divider_p :1;
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
206 unsigned int need_vertical_divider_valid_p :1;
187
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
207 };
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
208
187
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
209 #define CURRENT_DISP 0
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
210 #define DESIRED_DISP 1
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
211 #define CMOTION_DISP 2
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
212
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
213 struct window_mirror
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
214 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
215 /* Frame this mirror is on. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
216 struct frame *frame;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
217
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
218 /* Following child (to right or down) at same level of tree */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
219 struct window_mirror *next;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
220
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
221 /* There is no prev field because we never traverse this structure
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
222 backwards. Same goes for the parent field. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
223
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
224 /* First child of this window. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
225 /* vchild is used if this is a vertical combination,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
226 hchild if this is a horizontal combination. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
227 struct window_mirror *hchild, *vchild;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
228
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
229 /* Dynamic array of display lines */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
230 display_line_dynarr *current_display_lines;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
231 display_line_dynarr *desired_display_lines;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
232
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
233 /* Buffer current_display_lines represent. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
234 struct buffer *buffer;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
235
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
236 #ifdef HAVE_SCROLLBARS
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
237 /* Scrollbars associated with window, if any. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
238 struct scrollbar_instance *scrollbar_vertical_instance;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
239 struct scrollbar_instance *scrollbar_horizontal_instance;
187
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
240 #endif /* HAVE_SCROLLBARS */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
241
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
242 /* Flag indicating whether a subwindow is currently being displayed. */
74
54cc21c15cbb Import from CVS: tag r20-0b32
cvs
parents: 70
diff changeset
243 unsigned int subwindows_being_displayed :1;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
244
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
245 /* Keep track of the truncation status in this window so we can
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
246 detect when it has changed. #### Magic variables would be a huge
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
247 win here. */
74
54cc21c15cbb Import from CVS: tag r20-0b32
cvs
parents: 70
diff changeset
248 unsigned int truncate_win :1;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
249 };
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
250
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
251 #ifdef emacs /* some things other than emacs want the structs */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
252
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
253 DECLARE_LRECORD (window, struct window);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
254 #define XWINDOW(x) XRECORD (x, window, struct window)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
255 #define XSETWINDOW(x, p) XSETRECORD (x, p, window)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
256 #define WINDOWP(x) RECORDP (x, window)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
257 #define GC_WINDOWP(x) GC_RECORDP (x, window)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
258 #define CHECK_WINDOW(x) CHECK_RECORD (x, window)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
259 #define CONCHECK_WINDOW(x) CONCHECK_RECORD (x, window)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
260
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
261 #define WINDOW_LIVE_P(x) (!(x)->dead)
187
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
262 #define CHECK_LIVE_WINDOW(x) do { \
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
263 CHECK_WINDOW (x); \
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
264 if (!WINDOW_LIVE_P (XWINDOW (x))) \
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
265 dead_wrong_type_argument (Qwindow_live_p, (x)); \
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
266 } while (0)
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
267 #define CONCHECK_LIVE_WINDOW(x) do { \
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
268 CONCHECK_WINDOW (x); \
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
269 if (!WINDOW_LIVE_P (XWINDOW (x))) \
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
270 x = wrong_type_argument (Qwindow_live_p, (x)); \
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
271 } while (0)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
272
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
273 /* 1 if W is a minibuffer window. */
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 257
diff changeset
274 #define MINI_WINDOW_P(W) (!NILP ((W)->mini_p))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
275
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
276 /* 1 if we are dealing with a parentless window (this includes the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
277 root window on a frame and the minibuffer window; both of these
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
278 are siblings). */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
279 #define TOP_LEVEL_WINDOW_P(w) NILP ((w)->parent)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
280
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
281 /* Set all redisplay flags indicating a window has changed */
187
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
282 #define MARK_WINDOWS_CHANGED(w) do { \
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
283 (w)->windows_changed = 1; \
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
284 if (!NILP (w->frame)) \
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 257
diff changeset
285 { \
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 257
diff changeset
286 struct frame *mwc_frame = XFRAME (w->frame); \
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 257
diff changeset
287 MARK_FRAME_WINDOWS_CHANGED (mwc_frame); \
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 257
diff changeset
288 } \
187
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
289 else \
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
290 windows_changed = 1; \
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
291 } while (0)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
292
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
293 #define WINDOW_TTY_P(w) FRAME_TTY_P (XFRAME ((w)->frame))
187
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
294 #define WINDOW_X_P(w) FRAME_X_P (XFRAME ((w)->frame))
b405438285a2 Import from CVS: tag r20-3b20
cvs
parents: 110
diff changeset
295 #define WINDOW_NS_P(w) FRAME_NS_P (XFRAME ((w)->frame))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
296 #define WINDOW_WIN_P(w) FRAME_WIN_P (XFRAME ((w)->frame))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
297
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
298 DECLARE_LRECORD (window_configuration, struct window_config);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
299
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 257
diff changeset
300 EXFUN (Fget_buffer_window, 3);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 257
diff changeset
301 EXFUN (Fmove_to_window_line, 2);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 257
diff changeset
302 EXFUN (Frecenter, 2);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 257
diff changeset
303 EXFUN (Freplace_buffer_in_windows, 1);
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 272
diff changeset
304 EXFUN (Fselect_window, 2);
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 257
diff changeset
305 EXFUN (Fselected_window, 1);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 257
diff changeset
306 EXFUN (Fset_window_buffer, 2);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 257
diff changeset
307 EXFUN (Fset_window_hscroll, 2);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 257
diff changeset
308 EXFUN (Fset_window_point, 2);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 257
diff changeset
309 EXFUN (Fset_window_start, 3);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 257
diff changeset
310 EXFUN (Fwindow_buffer, 1);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 257
diff changeset
311 EXFUN (Fwindow_highest_p, 1);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 257
diff changeset
312 EXFUN (Fwindow_point, 1);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 257
diff changeset
313 EXFUN (Fwindow_start, 1);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 257
diff changeset
314
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
315 /* The minibuffer window of the selected frame.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
316 Note that you cannot test for minibufferness of an arbitrary window
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
317 by comparing against this; but you can test for minibufferness of
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
318 the selected window or of any window that is displayed. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
319 extern Lisp_Object minibuf_window;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
320
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
321 /* Prompt to display in front of the minibuffer contents, or nil */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
322 extern Lisp_Object Vminibuf_prompt;
110
fe104dbd9147 Import from CVS: tag r20-1b7
cvs
parents: 74
diff changeset
323 /* Prompt to display in front of the minibuffer prompt, or nil */
fe104dbd9147 Import from CVS: tag r20-1b7
cvs
parents: 74
diff changeset
324 extern Lisp_Object Vminibuf_preprompt;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
325
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
326 Lisp_Object allocate_window (void);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
327 int window_char_width (struct window *, int include_margins_p);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
328 int window_char_height (struct window *, int include_gutters_p);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
329 int window_displayed_height (struct window *);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
330 int window_is_leftmost (struct window *w);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
331 int window_is_rightmost (struct window *w);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
332 int window_truncation_on (struct window *w);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
333 int window_needs_vertical_divider (struct window *);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
334 int window_scrollbar_width (struct window *w);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
335 int window_scrollbar_height (struct window *w);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
336 int window_modeline_height (struct window *w);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
337 int window_left_margin_width (struct window *w);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
338 int window_right_margin_width (struct window *w);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
339 int window_top_gutter_height (struct window *w);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
340 int window_bottom_gutter_height (struct window *w);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
341 int window_left_gutter_width (struct window *w, int modeline);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
342 int window_right_gutter_width (struct window *w, int modeline);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
343 int window_bottom_toolbar_height (struct window *w);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
344
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
345 void delete_all_subwindows (struct window *w);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
346 void set_window_pixheight (Lisp_Object window, int pixheight,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
347 int nodelete);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
348 void set_window_pixwidth (Lisp_Object window, int pixwidth,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
349 int nodelete);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
350 void window_scroll (Lisp_Object window, Lisp_Object n, int direction,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
351 Error_behavior errb);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
352 int buffer_window_count (struct buffer *b, struct frame *f);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
353 int buffer_window_mru (struct window *w);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
354 void check_frame_size (struct frame *frame, int *rows, int *cols);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
355 struct window *decode_window (Lisp_Object window);
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 257
diff changeset
356 struct window *find_window_by_pixel_pos (int pix_x, int pix_y, Lisp_Object win);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
357
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
358 /* new functions to handle the window mirror */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
359 void free_window_mirror (struct window_mirror *mir);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
360 Lisp_Object real_window (struct window_mirror *mir, int no_abort);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
361 struct window_mirror *find_window_mirror (struct window *w);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
362 display_line_dynarr *window_display_lines (struct window *w, int);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
363 struct buffer *window_display_buffer (struct window *w);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
364 void set_window_display_buffer (struct window *w, struct buffer *b);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
365 void update_frame_window_mirror (struct frame *f);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
366
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
367 int map_windows (struct frame *f,
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
368 int (*mapfun) (struct window *w, void *closure),
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
369 void *closure);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
370 void some_window_value_changed (Lisp_Object specifier, struct window *w,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
371 Lisp_Object oldval);
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
372 int invalidate_vertical_divider_cache_in_window (struct window *w,
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
373 void *u_n_u_s_e_d);
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
374 int window_divider_width (struct window *w);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
375
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
376 #define WINDOW_FRAME(w) ((w)->frame)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
377 #define WINDOW_BUFFER(w) ((w)->buffer)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
378 #define WINDOW_DEVICE(w) FRAME_DEVICE (XFRAME (WINDOW_FRAME (w)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
379 #define WINDOW_CONSOLE(w) DEVICE_CONSOLE (XDEVICE (WINDOW_DEVICE (w)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
380
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
381 /* XEmacs window size and positioning macros. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
382 #define WINDOW_TOP(w) ((w)->pixel_top)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
383 #define WINDOW_TEXT_TOP(w) (WINDOW_TOP (w) + window_top_gutter_height (w))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
384 #define WINDOW_BOTTOM(w) ((w)->pixel_top + (w)->pixel_height)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
385 #define WINDOW_TEXT_BOTTOM(w) (WINDOW_BOTTOM (w) - window_bottom_gutter_height (w))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
386 #define WINDOW_LEFT(w) ((w)->pixel_left)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
387 #define WINDOW_TEXT_LEFT(w) (WINDOW_LEFT (w) + window_left_gutter_width (w, 0))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
388 #define WINDOW_MODELINE_LEFT(w) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
389 (WINDOW_LEFT (w) + window_left_gutter_width (w, 1))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
390 #define WINDOW_RIGHT(w) ((w)->pixel_left + (w)->pixel_width)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
391 #define WINDOW_TEXT_RIGHT(w) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
392 (WINDOW_RIGHT (w) - window_right_gutter_width (w, 0))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
393 #define WINDOW_MODELINE_RIGHT(w) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
394 (WINDOW_RIGHT (w) - window_right_gutter_width (w, 1))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
395
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
396 #define WINDOW_HEIGHT(w) ((w)->pixel_height)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
397 #define WINDOW_TEXT_HEIGHT(w) (WINDOW_TEXT_BOTTOM (w) - WINDOW_TEXT_TOP (w))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
398 #define WINDOW_WIDTH(w) ((w)->pixel_width)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
399 #define WINDOW_TEXT_WIDTH(w) (WINDOW_TEXT_RIGHT (w) - WINDOW_TEXT_LEFT (w))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
400
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
401 #define WINDOW_HAS_MODELINE_P(w) (!NILP (w->has_modeline_p))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
402
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
403 #define MODELINE_OFF_SHADOW_THICKNESS_ADJUSTED(win) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
404 abs ((!WINDOW_HAS_MODELINE_P (win) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
405 ? ((XINT (win->modeline_shadow_thickness) > 1) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
406 ? XINT (win->modeline_shadow_thickness) - 1 \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
407 : ((XINT (win->modeline_shadow_thickness) < -1) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
408 ? XINT (win->modeline_shadow_thickness) + 1 \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
409 : XINT (win->modeline_shadow_thickness))) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
410 : XINT (win->modeline_shadow_thickness)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
411
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
412 #define MODELINE_SHADOW_THICKNESS(win) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
413 (MODELINE_OFF_SHADOW_THICKNESS_ADJUSTED (win) > 10 \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
414 ? 10 \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
415 : MODELINE_OFF_SHADOW_THICKNESS_ADJUSTED (win))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
416
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
417 #endif /* emacs */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
418
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
419 #endif /* _XEMACS_WINDOW_H_ */