Mercurial > hg > xemacs-beta
annotate src/window-impl.h @ 5184:039d9a7f2e6d
Call init_string_ascii_begin() in #'sort*, #'fill, don't be clever.
2010-04-02 Aidan Kehoe <kehoea@parhasard.net>
* fns.c (FsortX, Ffill):
Don't try to be clever with the ascii_begin string header slot in
these function, just call init_string_ascii_begin().
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Fri, 02 Apr 2010 12:31:23 +0100 |
| parents | a9c41067dd88 |
| children | 308d34e9f07d |
| rev | line source |
|---|---|
| 872 | 1 /* Window definitions for XEmacs. |
| 2 Copyright (C) 1985, 1986, 1992, 1993, 1994, 1995 | |
| 3 Free Software Foundation, Inc. | |
| 4 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois. | |
| 5 Copyright (C) 1995, 1996, 2002 Ben Wing. | |
| 6 Copyright (C) 1996 Chuck Thompson. | |
| 7 | |
| 8 This file is part of XEmacs. | |
| 9 | |
| 10 XEmacs is free software; you can redistribute it and/or modify it | |
| 11 under the terms of the GNU General Public License as published by the | |
| 12 Free Software Foundation; either version 2, or (at your option) any | |
| 13 later version. | |
| 14 | |
| 15 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
| 16 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 17 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 18 for more details. | |
| 19 | |
| 20 You should have received a copy of the GNU General Public License | |
| 21 along with XEmacs; see the file COPYING. If not, write to | |
| 22 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
| 23 Boston, MA 02111-1307, USA. */ | |
| 24 | |
| 25 /* Synched up with: FSF 19.30. */ | |
| 26 | |
| 27 #ifndef INCLUDED_window_impl_h_ | |
| 28 #define INCLUDED_window_impl_h_ | |
| 29 | |
| 30 #include "window.h" | |
| 31 | |
| 32 /* All windows in use are arranged into a tree, with pointers up and down. | |
| 33 | |
| 34 Windows that are leaves of the tree are actually displayed | |
| 35 and show the contents of buffers. Windows that are not leaves | |
| 36 are used for representing the way groups of leaf windows are | |
| 37 arranged on the frame. Leaf windows never become non-leaves. | |
| 38 They are deleted only by calling delete-window on them (but | |
| 39 this can be done implicitly). Combination windows can be created | |
| 40 and deleted at any time. | |
| 41 | |
| 42 A leaf window has a non-nil buffer field, and also | |
| 43 has markers in its start and pointm fields. Non-leaf windows | |
| 44 have nil in these fields. | |
| 45 | |
| 46 Non-leaf windows are either vertical or horizontal combinations. | |
| 47 | |
| 48 A vertical combination window has children that are arranged on the frame | |
| 49 one above the next. Its vchild field points to the uppermost child. | |
| 50 The parent field of each of the children points to the vertical | |
| 51 combination window. The next field of each child points to the | |
| 52 child below it, or is nil for the lowest child. The prev field | |
| 53 of each child points to the child above it, or is nil for the | |
| 54 highest child. | |
| 55 | |
| 56 A horizontal combination window has children that are side by side. | |
| 57 Its hchild field points to the leftmost child. In each child | |
| 58 the next field points to the child to the right and the prev field | |
| 59 points to the child to the left. | |
| 60 | |
| 61 The children of a vertical combination window may be leaf windows | |
| 62 or horizontal combination windows. The children of a horizontal | |
| 63 combination window may be leaf windows or vertical combination windows. | |
| 64 | |
| 65 At the top of the tree are two windows which have nil as parent. | |
| 66 The second of these is minibuf_window. The first one manages all | |
| 67 the frame area that is not minibuffer, and is called the root window. | |
| 68 Different windows can be the root at different times; | |
| 69 initially the root window is a leaf window, but if more windows | |
| 70 are created then that leaf window ceases to be root and a newly | |
| 71 made combination window becomes root instead. | |
| 72 | |
| 73 In any case, on screens which have an ordinary window and a | |
| 74 minibuffer, prev of the minibuf window is the root window and next of | |
| 75 the root window is the minibuf window. On minibufferless screens or | |
| 76 minibuffer-only screens, the root window and the minibuffer window are | |
| 77 one and the same, so its prev and next members are nil. | |
| 78 | |
| 79 A dead window has the `dead' flag set on it. Note that unlike other | |
| 80 dead objects, dead windows can be made live again through restoring a | |
| 81 window configuration. This means that the values in a dead window | |
| 82 need to be preserved, except for those that are reconstructed by from | |
| 83 the window configuration. */ | |
| 84 | |
| 85 struct window | |
| 86 { | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5120
diff
changeset
|
87 NORMAL_LISP_OBJECT_HEADER header; |
| 872 | 88 |
| 89 /* The upper left corner coordinates of this window, | |
| 90 as integers (pixels) relative to upper left corner of frame = 0, 0 */ | |
| 91 int pixel_left; | |
| 92 int pixel_top; | |
| 93 /* The size of the window (in pixels) */ | |
| 94 int pixel_height; | |
| 95 int pixel_width; | |
| 96 | |
| 97 /* Number of columns display within the window is scrolled to the left. */ | |
| 98 int hscroll; | |
| 99 /* Idem for the window's modeline */ | |
| 100 Charcount modeline_hscroll; | |
| 101 /* Amount to clip off the top line for pixel-based scrolling. Point | |
| 102 will remain constant but this will be incremented to | |
| 103 incrementally shift lines up. */ | |
| 104 int top_yoffset; | |
| 105 /* Amount to clip off the left of the lines for pixel-based | |
| 106 scrolling. Hscroll will remain constant but this will be | |
| 107 incremented to incrementally shift lines left.*/ | |
| 108 int left_xoffset; | |
| 109 | |
| 110 /* face cache elements correct for this window and its current buffer */ | |
| 111 face_cachel_dynarr *face_cachels; | |
| 112 /* glyph cache elements correct for this window and its current buffer */ | |
| 113 glyph_cachel_dynarr *glyph_cachels; | |
| 114 /* List of starting positions for display lines. Only valid if | |
| 115 buffer has not changed. */ | |
| 116 line_start_cache_dynarr *line_start_cache; | |
| 117 int line_cache_validation_override; | |
| 118 | |
| 119 /* Length of longest line currently displayed. Used to control the | |
| 120 width of the horizontal scrollbars. */ | |
| 121 int max_line_len; | |
| 122 | |
| 123 /* Frame coords of point at that time */ | |
| 124 int last_point_x[3]; | |
| 125 int last_point_y[3]; | |
| 126 | |
| 127 /* Number of characters in buffer past bottom of window, | |
| 128 as of last redisplay that finished. */ | |
| 129 /* need one for each set of display structures */ | |
| 130 int window_end_pos[3]; | |
| 131 | |
| 132 /* Set by the extent code when extents in the gutter are changed. */ | |
| 133 int gutter_extent_modiff[4]; | |
| 134 | |
| 135 /* Set by redisplay to the last position seen. This is used | |
| 136 to implement the redisplay-end-trigger-functions. */ | |
| 137 Charbpos last_redisplay_pos; | |
| 138 | |
| 139 #define WINDOW_SLOT_DECLARATION | |
| 140 #define WINDOW_SLOT(slot) Lisp_Object slot; | |
| 141 #include "winslots.h" | |
| 142 | |
| 143 /* one-bit flags: */ | |
| 144 | |
| 145 /* marker used when restoring a window configuration */ | |
| 146 unsigned int config_mark :1; | |
| 147 /* Non-zero means window was dead. */ | |
| 148 unsigned int dead :1; | |
| 149 /* Non-zero means next redisplay must use the value of start | |
| 150 set up for it in advance. Set by scrolling commands. */ | |
| 151 unsigned int force_start :1; | |
| 152 /* Non-zero means must regenerate modeline of this window */ | |
| 153 unsigned int redo_modeline :1; | |
| 154 /* Non-zero means current value of `start' | |
| 155 was the beginning of a line when it was chosen. */ | |
| 156 unsigned int start_at_line_beg :1; | |
| 157 /* new redisplay flag */ | |
| 158 unsigned int windows_changed :1; | |
| 159 unsigned int shadow_thickness_changed :1; | |
| 160 /* Vertical divider flag and validity of it */ | |
| 161 unsigned int need_vertical_divider_p :1; | |
| 162 unsigned int need_vertical_divider_valid_p :1; | |
| 163 }; | |
| 164 | |
| 165 #define CURRENT_DISP 0 | |
| 166 #define DESIRED_DISP 1 | |
| 167 #define CMOTION_DISP 2 | |
| 168 | |
| 169 struct window_mirror | |
| 170 { | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5120
diff
changeset
|
171 NORMAL_LISP_OBJECT_HEADER header; |
| 872 | 172 |
| 173 /* Frame this mirror is on. */ | |
| 174 struct frame *frame; | |
| 175 | |
| 176 /* Following child (to right or down) at same level of tree */ | |
| 177 struct window_mirror *next; | |
| 178 | |
| 179 /* There is no prev field because we never traverse this structure | |
| 180 backwards. Same goes for the parent field. */ | |
| 181 | |
| 182 /* First child of this window. */ | |
| 183 /* vchild is used if this is a vertical combination, | |
| 184 hchild if this is a horizontal combination. */ | |
| 185 struct window_mirror *hchild, *vchild; | |
| 186 | |
| 187 /* Dynamic array of display lines */ | |
| 188 display_line_dynarr *current_display_lines; | |
| 189 display_line_dynarr *desired_display_lines; | |
| 190 | |
| 191 /* Buffer current_display_lines represent. */ | |
| 192 struct buffer *buffer; | |
| 193 | |
| 194 #ifdef HAVE_SCROLLBARS | |
| 195 /* Scrollbars associated with window, if any. */ | |
| 196 struct scrollbar_instance *scrollbar_vertical_instance; | |
| 197 struct scrollbar_instance *scrollbar_horizontal_instance; | |
| 198 #endif /* HAVE_SCROLLBARS */ | |
| 199 | |
| 200 /* Flag indicating whether a subwindow is currently being displayed. */ | |
| 201 unsigned int subwindows_being_displayed :1; | |
| 202 | |
| 203 /* Keep track of the truncation status in this window so we can | |
| 204 detect when it has changed. #### Magic variables would be a huge | |
| 205 win here. */ | |
| 206 unsigned int truncate_win :1; | |
| 207 }; | |
| 208 | |
| 209 /* Redefine basic properties more efficiently */ | |
| 210 | |
| 211 #undef WINDOW_LIVE_P | |
| 212 #define WINDOW_LIVE_P(x) (!(x)->dead) | |
| 213 #undef WINDOW_FRAME | |
| 214 #define WINDOW_FRAME(w) ((w)->frame) | |
| 215 #undef WINDOW_BUFFER | |
| 216 #define WINDOW_BUFFER(w) ((w)->buffer) | |
| 217 | |
| 218 /* 1 if W is a minibuffer window. */ | |
| 219 #define MINI_WINDOW_P(W) (!NILP ((W)->mini_p)) | |
| 220 | |
| 221 /* 1 if we are dealing with a parentless window (this includes the | |
| 222 root window on a frame and the minibuffer window; both of these | |
| 223 are siblings). */ | |
| 224 #define TOP_LEVEL_WINDOW_P(w) NILP ((w)->parent) | |
| 225 | |
| 226 /* Set all redisplay flags indicating a window has changed */ | |
| 227 #define MARK_WINDOWS_CHANGED(w) do { \ | |
| 228 (w)->windows_changed = 1; \ | |
| 229 if (!NILP (w->frame)) \ | |
| 230 { \ | |
| 231 struct frame *mwc_frame = XFRAME (w->frame); \ | |
| 232 MARK_FRAME_WINDOWS_CHANGED (mwc_frame); \ | |
| 233 } \ | |
| 234 else \ | |
| 235 windows_changed = 1; \ | |
| 236 } while (0) | |
| 237 | |
| 238 /* #### This should be fixed not to call MARK_FRAME_CHANGED because | |
| 239 faces are cached per window. Also, other code which changes window's | |
| 240 face should use this macro. | |
| 241 */ | |
| 242 #define MARK_WINDOW_FACES_CHANGED(w) \ | |
| 243 MARK_FRAME_FACES_CHANGED (XFRAME ((w)->frame)) | |
| 244 | |
| 245 #define WINDOW_TTY_P(w) FRAME_TTY_P (XFRAME ((w)->frame)) | |
| 246 #define WINDOW_X_P(w) FRAME_X_P (XFRAME ((w)->frame)) | |
| 247 #define WINDOW_NS_P(w) FRAME_NS_P (XFRAME ((w)->frame)) | |
| 248 #define WINDOW_WIN_P(w) FRAME_WIN_P (XFRAME ((w)->frame)) | |
| 249 | |
| 250 /* XEmacs window size and positioning macros. */ | |
| 251 #define WINDOW_TOP(w) ((w)->pixel_top) | |
| 252 #define WINDOW_TEXT_TOP(w) (WINDOW_TOP (w) + window_top_gutter_height (w)) | |
| 253 #define WINDOW_TEXT_TOP_CLIP(w) ((w)->top_yoffset) | |
| 254 #define WINDOW_BOTTOM(w) ((w)->pixel_top + (w)->pixel_height) | |
| 255 #define WINDOW_TEXT_BOTTOM(w) (WINDOW_BOTTOM (w) - window_bottom_gutter_height (w)) | |
| 256 #define WINDOW_LEFT(w) ((w)->pixel_left) | |
| 257 #define WINDOW_TEXT_LEFT(w) (WINDOW_LEFT (w) + window_left_gutter_width (w, 0)) | |
| 258 #define WINDOW_MODELINE_LEFT(w) \ | |
| 259 (WINDOW_LEFT (w) + window_left_gutter_width (w, 1)) | |
| 260 #define WINDOW_RIGHT(w) ((w)->pixel_left + (w)->pixel_width) | |
| 261 #define WINDOW_TEXT_RIGHT(w) \ | |
| 262 (WINDOW_RIGHT (w) - window_right_gutter_width (w, 0)) | |
| 263 #define WINDOW_MODELINE_RIGHT(w) \ | |
| 264 (WINDOW_RIGHT (w) - window_right_gutter_width (w, 1)) | |
| 265 | |
| 266 #define WINDOW_HEIGHT(w) ((w)->pixel_height) | |
| 267 #define WINDOW_TEXT_HEIGHT(w) (WINDOW_TEXT_BOTTOM (w) - WINDOW_TEXT_TOP (w)) | |
| 268 #define WINDOW_WIDTH(w) ((w)->pixel_width) | |
| 269 #define WINDOW_TEXT_WIDTH(w) (WINDOW_TEXT_RIGHT (w) - WINDOW_TEXT_LEFT (w)) | |
| 270 | |
| 271 #define WINDOW_HAS_MODELINE_P(w) (!NILP (w->has_modeline_p)) | |
| 272 | |
| 273 #define MODELINE_OFF_SHADOW_THICKNESS_ADJUSTED(win) \ | |
| 274 abs ((!WINDOW_HAS_MODELINE_P (win) \ | |
| 275 ? ((XINT (win->modeline_shadow_thickness) > 1) \ | |
| 276 ? XINT (win->modeline_shadow_thickness) - 1 \ | |
| 277 : ((XINT (win->modeline_shadow_thickness) < -1) \ | |
| 278 ? XINT (win->modeline_shadow_thickness) + 1 \ | |
| 279 : XINT (win->modeline_shadow_thickness))) \ | |
| 280 : XINT (win->modeline_shadow_thickness))) | |
| 281 | |
| 282 #define MODELINE_SHADOW_THICKNESS(win) \ | |
| 283 (MODELINE_OFF_SHADOW_THICKNESS_ADJUSTED (win) > 10 \ | |
| 284 ? 10 \ | |
| 285 : MODELINE_OFF_SHADOW_THICKNESS_ADJUSTED (win)) | |
| 286 | |
| 287 #endif /* INCLUDED_window_impl_h_ */ |