annotate src/window.h @ 617:af57a77cbc92

[xemacs-hg @ 2001-06-18 07:09:50 by ben] --------------------------------------------------------------- DOCUMENTATION FIXES: --------------------------------------------------------------- eval.c: Correct documentation. elhash.c: Doc correction. --------------------------------------------------------------- LISP OBJECT CLEANUP: --------------------------------------------------------------- bytecode.h, buffer.h, casetab.h, chartab.h, console-msw.h, console.h, database.c, device.h, eldap.h, elhash.h, events.h, extents.h, faces.h, file-coding.h, frame.h, glyphs.h, gui-x.h, gui.h, keymap.h, lisp-disunion.h, lisp-union.h, lisp.h, lrecord.h, lstream.h, mule-charset.h, objects.h, opaque.h, postgresql.h, process.h, rangetab.h, specifier.h, toolbar.h, tooltalk.h, ui-gtk.h: Add wrap_* to all objects (it was already there for a few of them) -- an expression to encapsulate a pointer into a Lisp object, rather than the inconvenient XSET*. "wrap" was chosen because "make" as in make_int(), make_char() is not appropriate. (It implies allocation. The issue does not exist for ints and chars because they are not allocated.) Full error checking has been added to these expressions. When used without error checking, non-union build, use of these expressions will incur no loss of efficiency. (In fact, XSET* is now defined in terms of wrap_* in a non-union build.) In a union build, you will also get no loss of efficiency provided that you have a decent optimizing compiler, and a compiler that either understands inlines or automatically inlines those particular functions. (And since people don't normally do their production builds on union, it doesn't matter.) Update the sample Lisp object definition in lrecord.h accordingly. dumper.c: Fix places in dumper that referenced wrap_object to reference its new name, wrap_pointer_1. buffer.c, bufslots.h, conslots.h, console.c, console.h, devslots.h, device.c, device.h, frame.c, frame.h, frameslots.h, window.c, window.h, winslots.h: -- Extract out the Lisp objects of `struct device' into devslots.h, just like for the other structures. -- Extract out the remaining (not copied into the window config) Lisp objects in `struct window' into winslots.h; use different macros (WINDOW_SLOT vs. WINDOW_SAVED_SLOT) to differentiate them. -- Eliminate the `dead' flag of `struct frame', since it duplicates information already available in `framemeths', and fix FRAME_LIVE_P accordingly. (Devices and consoles already work this way.) -- In *slots.h, switch to system where MARKED_SLOT is automatically undef'd at the end of the file. (Follows what winslots.h already does.) -- Update the comments at the beginning of *slots.h to be accurate. -- When making any of the above objects dead, zero it out entirely and reset all Lisp object slots to Qnil. (We were already doing this somewhat, but not consistently.) This (1) Eliminates the possibility of extra objects hanging around that ought to be GC'd, (2) Causes an immediate crash if anyone tries to access a structure in one of these objects, (3) Ensures consistent behavior wrt dead objects. dialog-msw.c: Use internal_object_printer, since this object should not escape. --------------------------------------------------------------- FIXING A CRASH THAT I HIT ONCE (AND A RELATED BAD BEHAVIOR): --------------------------------------------------------------- eval.c: Fix up some comments about the FSF implementation. Fix two nasty bugs: (1) condition_case_unwind frees the conses sitting in the catch->tag slot too quickly, resulting in a crash that I hit. (2) catches need to be unwound one at a time when calling unwind-protect code, rather than all at once at the end; otherwise, incorrect behavior can result. (A comment shows exactly how.) backtrace.h: Improve comment about FSF differences in the handler stack. --------------------------------------------------------------- FIXING A CRASH THAT I REPEATEDLY HIT WHEN USING THE MOUSE WHEEL UNDER MSWINDOWS: --------------------------------------------------------------- Basic idea: My crash is due either to a dead, non-marked, GC-collected frame inside of a window mirror, or a prematurely freed window mirror. We need to mark the Lisp objects inside of window mirrors. Tracking the lifespan of window mirrors and scrollbar instances is extremely hard, and there may well be lurking bugs where such objects are freed too soon. The only safe way to fix these problems (and it fixes both problems at once) is to make both of these structures Lisp objects. lrecord.h, emacs.c, inline.c, scrollbar-gtk.c, scrollbar-msw.c, scrollbar-x.c, scrollbar.c, scrollbar.h, symsinit.h: Make scrollbar instances actual Lisp objects. Mark the window mirrors in them. inline.c needs to know about scrollbar.h now. Record the new type in lrecord.h. Fix up scrollbar-*.c appropriately. Create a hash table in scrollbar-msw.c so that the scrollbar instances stored in scrollbar HWND's are properly GC-protected. Create complex_vars_of_scrollbar_mswindows() to create the hash table at startup, and call it from emacs.c. Don't store the scrollbar instance as a property of the GTK scrollbar, as it's not used and if we did this, we'd have to separately GC-protect it in a hash table, like in MS Windows. lrecord.h, frame.h, frame.c, frameslots.h, redisplay.c, window.c, window.h: Move mark_window_mirror from redisplay.c to window.c. Make window mirrors actual Lisp objects. Tell lrecord.h about them. Change the window mirror member of struct frame from a pointer to a Lisp object, and add XWINDOW_MIRROR in appropriate places. Mark the scrollbar instances in the window mirror. redisplay.c, redisplay.h, alloc.c: Delete mark_redisplay. Don't call mark_redisplay. We now mark frame-specific structures in mark_frame. NOTE: I also deleted an extremely questionable call to update_frame_window_mirrors(). It was extremely questionable before, and now totally impossible, since it will create Lisp objects during redisplay. frame.c: Mark the scrollbar instances, which are now Lisp objects. Call mark_gutter() here, not in mark_redisplay(). gutter.c: Update comments about correct marking. --------------------------------------------------------------- ISSUES BROUGHT UP BY MARTIN: --------------------------------------------------------------- buffer.h: Put back these macros the way Steve T and I think they ought to be. I already explained in a previous changelog entry why I think these macros should be the way I'd defined them. Once again: We fix these macros so they don't care about the type of their lvalues. The non-C-string equivalents of these already function in the same way, and it's correct because it should be OK to pass in a CBufbyte *, a BufByte *, a Char_Binary *, an UChar_Binary *, etc. The whole reason for these different types is to work around errors caused by signed-vs-unsigned non-matching types. Any possible error that might be caught in a DFC macro would also be caught wherever the argument is used elsewhere. So creating multiple macro versions would add no useful error-checking and just further complicate an already complicated area. As for Martin's "ANSI aliasing" bug, XEmacs is not ANSI-aliasing clean and probably never will be. Unless the board agrees to change XEmacs in this way (and we really don't want to go down that road), this is not a bug. sound.h: Undo Martin's type change. signal.c: Fix problem identified by Martin with Linux and g++ due to non-standard declaration of setitimer(). systime.h: Update the docs for "qxe_" to point out why making the encapsulation explicit is always the right way to go. (setitimer() itself serves as an example.) For 21.4: update-elc-2.el: Correct misplaced parentheses, making lisp/mule not get recompiled.
author ben
date Mon, 18 Jun 2001 07:10:32 +0000
parents 190b164ddcac
children fdefd0186b75
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 /* Window definitions for XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2 Copyright (C) 1985, 1986, 1992, 1993, 1994, 1995
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3 Free Software Foundation, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5 Copyright (C) 1995, 1996 Ben Wing.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6 Copyright (C) 1996 Chuck Thompson.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8 This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11 under the terms of the GNU General Public License as published by the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12 Free Software Foundation; either version 2, or (at your option) any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13 later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 XEmacs is distributed in the hope that it will be useful, but WITHOUT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18 for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21 along with XEmacs; see the file COPYING. If not, write to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23 Boston, MA 02111-1307, USA. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25 /* Synched up with: FSF 19.30. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
27 #ifndef INCLUDED_window_h_
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
28 #define INCLUDED_window_h_
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
29
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30 #include "redisplay.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
31 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32 #include "scrollbar.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
34
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35 /* All windows in use are arranged into a tree, with pointers up and down.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
36
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 Windows that are leaves of the tree are actually displayed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38 and show the contents of buffers. Windows that are not leaves
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 are used for representing the way groups of leaf windows are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40 arranged on the frame. Leaf windows never become non-leaves.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41 They are deleted only by calling delete-window on them (but
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42 this can be done implicitly). Combination windows can be created
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43 and deleted at any time.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45 A leaf window has a non-nil buffer field, and also
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46 has markers in its start and pointm fields. Non-leaf windows
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47 have nil in these fields.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49 Non-leaf windows are either vertical or horizontal combinations.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51 A vertical combination window has children that are arranged on the frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52 one above the next. Its vchild field points to the uppermost child.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53 The parent field of each of the children points to the vertical
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54 combination window. The next field of each child points to the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55 child below it, or is nil for the lowest child. The prev field
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56 of each child points to the child above it, or is nil for the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57 highest child.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
58
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59 A horizontal combination window has children that are side by side.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 Its hchild field points to the leftmost child. In each child
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 the next field points to the child to the right and the prev field
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 points to the child to the left.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 The children of a vertical combination window may be leaf windows
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65 or horizontal combination windows. The children of a horizontal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 combination window may be leaf windows or vertical combination windows.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68 At the top of the tree are two windows which have nil as parent.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69 The second of these is minibuf_window. The first one manages all
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 the frame area that is not minibuffer, and is called the root window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 Different windows can be the root at different times;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72 initially the root window is a leaf window, but if more windows
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 are created then that leaf window ceases to be root and a newly
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74 made combination window becomes root instead.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 In any case, on screens which have an ordinary window and a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77 minibuffer, prev of the minibuf window is the root window and next of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78 the root window is the minibuf window. On minibufferless screens or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79 minibuffer-only screens, the root window and the minibuffer window are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 one and the same, so its prev and next members are nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 A dead window has the `dead' flag set on it. Note that unlike other
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83 dead objects, dead windows can be made live again through restoring a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 window configuration. This means that the values in a dead window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85 need to be preserved, except for those that are reconstructed by from
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86 the window configuration. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88 struct window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90 struct lcrecord_header header;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92 /* The upper left corner coordinates of this window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93 as integers (pixels) relative to upper left corner of frame = 0, 0 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94 int pixel_left;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95 int pixel_top;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
96 /* The size of the window (in pixels) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97 int pixel_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98 int pixel_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100 /* Number of columns display within the window is scrolled to the left. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101 int hscroll;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
102 /* Idem for the window's modeline */
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
103 Charcount modeline_hscroll;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104 /* Amount to clip off the top line for pixel-based scrolling. Point
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
105 will remain constant but this will be incremented to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
106 incrementally shift lines up. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107 int top_yoffset;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
108 /* Amount to clip off the left of the lines for pixel-based
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
109 scrolling. Hscroll will remain constant but this will be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110 incremented to incrementally shift lines left.*/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111 int left_xoffset;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113 /* face cache elements correct for this window and its current buffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114 face_cachel_dynarr *face_cachels;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115 /* glyph cache elements correct for this window and its current buffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116 glyph_cachel_dynarr *glyph_cachels;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 /* List of starting positions for display lines. Only valid if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118 buffer has not changed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119 line_start_cache_dynarr *line_start_cache;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120 int line_cache_validation_override;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122 /* Length of longest line currently displayed. Used to control the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123 width of the horizontal scrollbars. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 int max_line_len;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
126 /* Frame coords of point at that time */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
127 int last_point_x[3];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
128 int last_point_y[3];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130 /* Number of characters in buffer past bottom of window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
131 as of last redisplay that finished. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
132 /* need one for each set of display structures */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
133 int window_end_pos[3];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
134
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
135 /* Set by the extent code when extents in the gutter are changed. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
136 int gutter_extent_modiff[4];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
137
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
138 /* Set by redisplay to the last position seen. This is used
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
139 to implement the redisplay-end-trigger-functions. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
140 Bufpos last_redisplay_pos;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
141
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
142 #define WINDOW_SLOT_DECLARATION
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
143 #define WINDOW_SLOT(slot) Lisp_Object slot;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144 #include "winslots.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
146 /* one-bit flags: */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148 /* marker used when restoring a window configuration */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149 unsigned int config_mark :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150 /* Non-zero means window was dead. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151 unsigned int dead :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152 /* Non-zero means next redisplay must use the value of start
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 set up for it in advance. Set by scrolling commands. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
154 unsigned int force_start :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
155 /* Non-zero means must regenerate modeline of this window */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
156 unsigned int redo_modeline :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
157 /* Non-zero means current value of `start'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
158 was the beginning of a line when it was chosen. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159 unsigned int start_at_line_beg :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
160 /* new redisplay flag */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
161 unsigned int windows_changed :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
162 unsigned int shadow_thickness_changed :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163 /* Vertical divider flag and validity of it */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164 unsigned int need_vertical_divider_p :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165 unsigned int need_vertical_divider_valid_p :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
167
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
168 DECLARE_LRECORD (window, struct window);
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
169 #define XWINDOW(x) XRECORD (x, window, struct window)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
170 #define XSETWINDOW(x, p) XSETRECORD (x, p, window)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
171 #define wrap_window(p) wrap_record (p, window)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
172 #define WINDOWP(x) RECORDP (x, window)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
173 #define CHECK_WINDOW(x) CHECK_RECORD (x, window)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
174 #define CONCHECK_WINDOW(x) CONCHECK_RECORD (x, window)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
175
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176 #define CURRENT_DISP 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
177 #define DESIRED_DISP 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178 #define CMOTION_DISP 2
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
179
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
180 struct window_mirror
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181 {
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
182 struct lcrecord_header header;
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
183
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184 /* Frame this mirror is on. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185 struct frame *frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 /* Following child (to right or down) at same level of tree */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 struct window_mirror *next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
190 /* There is no prev field because we never traverse this structure
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191 backwards. Same goes for the parent field. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193 /* First child of this window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
194 /* vchild is used if this is a vertical combination,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195 hchild if this is a horizontal combination. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
196 struct window_mirror *hchild, *vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
197
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
198 /* Dynamic array of display lines */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
199 display_line_dynarr *current_display_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
200 display_line_dynarr *desired_display_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
201
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
202 /* Buffer current_display_lines represent. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
203 struct buffer *buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
204
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
205 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
206 /* Scrollbars associated with window, if any. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
207 struct scrollbar_instance *scrollbar_vertical_instance;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
208 struct scrollbar_instance *scrollbar_horizontal_instance;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
209 #endif /* HAVE_SCROLLBARS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
210
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
211 /* Flag indicating whether a subwindow is currently being displayed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
212 unsigned int subwindows_being_displayed :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
213
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
214 /* Keep track of the truncation status in this window so we can
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215 detect when it has changed. #### Magic variables would be a huge
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
216 win here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
217 unsigned int truncate_win :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
218 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
219
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
220 DECLARE_LRECORD (window_mirror, struct window_mirror);
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
221 #define XWINDOW_MIRROR(x) XRECORD (x, window_mirror, struct window_mirror)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
222 #define XSETWINDOW_MIRROR(x, p) XSETRECORD (x, p, window_mirror)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
223 #define wrap_window_mirror(p) wrap_record (p, window_mirror)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
224 #define WINDOW_MIRRORP(x) RECORDP (x, window_mirror)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
225 #define CHECK_WINDOW_MIRROR(x) CHECK_RECORD (x, window_mirror)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
226 #define CONCHECK_WINDOW_MIRROR(x) CONCHECK_RECORD (x, window_mirror)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
227
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
228 #define WINDOW_LIVE_P(x) (!(x)->dead)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
229 #define CHECK_LIVE_WINDOW(x) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
230 CHECK_WINDOW (x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
231 if (!WINDOW_LIVE_P (XWINDOW (x))) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
232 dead_wrong_type_argument (Qwindow_live_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
233 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
234 #define CONCHECK_LIVE_WINDOW(x) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235 CONCHECK_WINDOW (x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
236 if (!WINDOW_LIVE_P (XWINDOW (x))) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
237 x = wrong_type_argument (Qwindow_live_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
238 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
239
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
240 /* 1 if W is a minibuffer window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
241 #define MINI_WINDOW_P(W) (!NILP ((W)->mini_p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
242
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
243 /* 1 if we are dealing with a parentless window (this includes the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
244 root window on a frame and the minibuffer window; both of these
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
245 are siblings). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
246 #define TOP_LEVEL_WINDOW_P(w) NILP ((w)->parent)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248 /* Set all redisplay flags indicating a window has changed */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249 #define MARK_WINDOWS_CHANGED(w) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
250 (w)->windows_changed = 1; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
251 if (!NILP (w->frame)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252 { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 struct frame *mwc_frame = XFRAME (w->frame); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254 MARK_FRAME_WINDOWS_CHANGED (mwc_frame); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
255 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
256 else \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
257 windows_changed = 1; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
258 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
259
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
260 /* #### This should be fixed not to call MARK_FRAME_CHANGED because
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
261 faces are cached per window. Also, other code which changes window's
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
262 face should use this macro.
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
263 */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
264 #define MARK_WINDOW_FACES_CHANGED(w) \
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
265 MARK_FRAME_FACES_CHANGED (XFRAME ((w)->frame))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
266
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
267 #define WINDOW_TTY_P(w) FRAME_TTY_P (XFRAME ((w)->frame))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
268 #define WINDOW_X_P(w) FRAME_X_P (XFRAME ((w)->frame))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
269 #define WINDOW_NS_P(w) FRAME_NS_P (XFRAME ((w)->frame))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
270 #define WINDOW_WIN_P(w) FRAME_WIN_P (XFRAME ((w)->frame))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
271
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
272 DECLARE_LRECORD (window_configuration, struct window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
273
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
274 EXFUN (Fget_buffer_window, 3);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
275 EXFUN (Fmove_to_window_line, 2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
276 EXFUN (Frecenter, 2);
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
277 EXFUN (Freplace_buffer_in_windows, 3);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
278 EXFUN (Fselect_window, 2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
279 EXFUN (Fselected_window, 1);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
280 EXFUN (Fset_window_buffer, 3);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
281 EXFUN (Fset_window_hscroll, 2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
282 EXFUN (Fset_window_point, 2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
283 EXFUN (Fset_window_start, 3);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
284 EXFUN (Fwindow_buffer, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
285 EXFUN (Fwindow_highest_p, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
286 EXFUN (Fwindow_point, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
287 EXFUN (Fwindow_start, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
288
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
289 /* The minibuffer window of the selected frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
290 Note that you cannot test for minibufferness of an arbitrary window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
291 by comparing against this; but you can test for minibufferness of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
292 the selected window or of any window that is displayed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
293 extern Lisp_Object minibuf_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
294
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
295 /* Prompt to display in front of the minibuffer contents, or nil */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
296 extern Lisp_Object Vminibuf_prompt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
297 /* Prompt to display in front of the minibuffer prompt, or nil */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
298 extern Lisp_Object Vminibuf_preprompt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
299
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
300 Lisp_Object allocate_window (void);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
301 int window_char_width (struct window *, int include_margins_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
302 int window_char_height (struct window *, int include_gutters_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
303 int window_displayed_height (struct window *);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
304 int window_is_leftmost (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
305 int window_is_rightmost (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
306 int window_is_lowest (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
307 int window_is_highest (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
308 int window_truncation_on (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
309 int window_needs_vertical_divider (struct window *);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
310 int window_scrollbar_width (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
311 int window_scrollbar_height (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
312 int window_modeline_height (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
313 int window_left_margin_width (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
314 int window_right_margin_width (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
315 int window_top_gutter_height (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
316 int window_bottom_gutter_height (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
317 int window_left_gutter_width (struct window *w, int modeline);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
318 int window_right_gutter_width (struct window *w, int modeline);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
319
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
320 void delete_all_subwindows (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
321 void set_window_pixheight (Lisp_Object window, int pixheight,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
322 int nodelete);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
323 void set_window_pixwidth (Lisp_Object window, int pixwidth,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
324 int nodelete);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
325 void window_scroll (Lisp_Object window, Lisp_Object n, int direction,
578
190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben]
ben
parents: 448
diff changeset
326 Error_Behavior errb);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
327 int buffer_window_count (struct buffer *b, struct frame *f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
328 int buffer_window_mru (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
329 void check_frame_size (struct frame *frame, int *rows, int *cols);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
330 int frame_pixsize_valid_p (struct frame *frame, int width, int height);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
331 int frame_size_valid_p (struct frame *frame, int rows, int cols);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
332 struct window *decode_window (Lisp_Object window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
333 struct window *find_window_by_pixel_pos (int pix_x, int pix_y, Lisp_Object win);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
334
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
335 void free_window_mirror (struct window_mirror *mir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
336 Lisp_Object real_window (struct window_mirror *mir, int no_abort);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
337 struct window_mirror *find_window_mirror (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
338 display_line_dynarr *window_display_lines (struct window *w, int);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
339 struct buffer *window_display_buffer (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
340 void set_window_display_buffer (struct window *w, struct buffer *b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
341 void update_frame_window_mirror (struct frame *f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
342
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
343 int map_windows (struct frame *f,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
344 int (*mapfun) (struct window *w, void *closure),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
345 void *closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
346 void some_window_value_changed (Lisp_Object specifier, struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
347 Lisp_Object oldval);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
348 int invalidate_vertical_divider_cache_in_window (struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
349 void *u_n_u_s_e_d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
350 int window_divider_width (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
351
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
352 #define WINDOW_FRAME(w) ((w)->frame)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
353 #define WINDOW_XFRAME(w) XFRAME (WINDOW_FRAME (w))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
354 #define WINDOW_BUFFER(w) ((w)->buffer)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
355 #define WINDOW_XBUFFER(w) XBUFFER (WINDOW_BUFFER (w))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
356 #define WINDOW_DEVICE(w) FRAME_DEVICE (XFRAME (WINDOW_FRAME (w)))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
357 #define WINDOW_XDEVICE(w) XDEVICE (WINDOW_DEVICE (w))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
358 #define WINDOW_CONSOLE(w) DEVICE_CONSOLE (XDEVICE (WINDOW_DEVICE (w)))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
359 #define WINDOW_XCONSOLE(w) XCONSOLE (WINDOW_CONSOLE (w))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
360
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
361 /* XEmacs window size and positioning macros. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
362 #define WINDOW_TOP(w) ((w)->pixel_top)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
363 #define WINDOW_TEXT_TOP(w) (WINDOW_TOP (w) + window_top_gutter_height (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
364 #define WINDOW_TEXT_TOP_CLIP(w) ((w)->top_yoffset)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
365 #define WINDOW_BOTTOM(w) ((w)->pixel_top + (w)->pixel_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
366 #define WINDOW_TEXT_BOTTOM(w) (WINDOW_BOTTOM (w) - window_bottom_gutter_height (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
367 #define WINDOW_LEFT(w) ((w)->pixel_left)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
368 #define WINDOW_TEXT_LEFT(w) (WINDOW_LEFT (w) + window_left_gutter_width (w, 0))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
369 #define WINDOW_MODELINE_LEFT(w) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
370 (WINDOW_LEFT (w) + window_left_gutter_width (w, 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
371 #define WINDOW_RIGHT(w) ((w)->pixel_left + (w)->pixel_width)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
372 #define WINDOW_TEXT_RIGHT(w) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
373 (WINDOW_RIGHT (w) - window_right_gutter_width (w, 0))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
374 #define WINDOW_MODELINE_RIGHT(w) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
375 (WINDOW_RIGHT (w) - window_right_gutter_width (w, 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
377 #define WINDOW_HEIGHT(w) ((w)->pixel_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 #define WINDOW_TEXT_HEIGHT(w) (WINDOW_TEXT_BOTTOM (w) - WINDOW_TEXT_TOP (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379 #define WINDOW_WIDTH(w) ((w)->pixel_width)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
380 #define WINDOW_TEXT_WIDTH(w) (WINDOW_TEXT_RIGHT (w) - WINDOW_TEXT_LEFT (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
381
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
382 #define WINDOW_HAS_MODELINE_P(w) (!NILP (w->has_modeline_p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
383
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
384 #define MODELINE_OFF_SHADOW_THICKNESS_ADJUSTED(win) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385 abs ((!WINDOW_HAS_MODELINE_P (win) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386 ? ((XINT (win->modeline_shadow_thickness) > 1) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387 ? XINT (win->modeline_shadow_thickness) - 1 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
388 : ((XINT (win->modeline_shadow_thickness) < -1) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
389 ? XINT (win->modeline_shadow_thickness) + 1 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
390 : XINT (win->modeline_shadow_thickness))) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
391 : XINT (win->modeline_shadow_thickness)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
392
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
393 #define MODELINE_SHADOW_THICKNESS(win) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
394 (MODELINE_OFF_SHADOW_THICKNESS_ADJUSTED (win) > 10 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
395 ? 10 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
396 : MODELINE_OFF_SHADOW_THICKNESS_ADJUSTED (win))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
397
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
398 #endif /* INCLUDED_window_h_ */