Mercurial > hg > xemacs-beta
annotate src/window.h @ 5925:08cfc8f77fb6 cygwin
make space for long ptr, and store as such, for frame in WINDOW data,
add a bit more debugging to debug-mswindow,
Vin Shelton patch to fix M-x shell
| author | Henry Thompson <ht@markup.co.uk> |
|---|---|
| date | Fri, 27 Feb 2015 17:41:20 +0000 |
| parents | 308d34e9f07d |
| children |
| rev | line source |
|---|---|
| 428 | 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. | |
|
5047
07dcc7000bbf
put width before height consistently, fix a real bug found in the process
Ben Wing <ben@xemacs.org>
parents:
4775
diff
changeset
|
5 Copyright (C) 1995, 1996, 2002, 2010 Ben Wing. |
| 428 | 6 Copyright (C) 1996 Chuck Thompson. |
| 7 | |
| 8 This file is part of XEmacs. | |
| 9 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5157
diff
changeset
|
10 XEmacs is free software: you can redistribute it and/or modify it |
| 428 | 11 under the terms of the GNU General Public License as published by the |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5157
diff
changeset
|
12 Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5157
diff
changeset
|
13 option) any later version. |
| 428 | 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 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5157
diff
changeset
|
21 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */ |
| 428 | 22 |
| 23 /* Synched up with: FSF 19.30. */ | |
| 24 | |
| 440 | 25 #ifndef INCLUDED_window_h_ |
| 26 #define INCLUDED_window_h_ | |
| 428 | 27 |
| 28 #include "redisplay.h" | |
| 29 #ifdef HAVE_SCROLLBARS | |
| 30 #include "scrollbar.h" | |
| 31 #endif | |
| 32 | |
| 872 | 33 struct window; |
| 428 | 34 |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4775
diff
changeset
|
35 DECLARE_LISP_OBJECT (window, struct window); |
| 617 | 36 #define XWINDOW(x) XRECORD (x, window, struct window) |
| 37 #define wrap_window(p) wrap_record (p, window) | |
| 38 #define WINDOWP(x) RECORDP (x, window) | |
| 39 #define CHECK_WINDOW(x) CHECK_RECORD (x, window) | |
| 40 #define CONCHECK_WINDOW(x) CONCHECK_RECORD (x, window) | |
| 41 | |
| 872 | 42 /* Basic properties available to non-privileged users; redefined in |
| 43 window-impl.h */ | |
| 428 | 44 |
| 872 | 45 int window_live_p (struct window *w); |
| 46 Lisp_Object window_frame (struct window *w); | |
| 47 Lisp_Object window_buffer (struct window *w); | |
| 428 | 48 |
| 872 | 49 #define WINDOW_LIVE_P(w) window_live_p (w) |
| 50 #define WINDOW_FRAME(w) window_frame (w) | |
| 51 #define WINDOW_BUFFER(w) window_buffer (w) | |
| 428 | 52 |
| 872 | 53 #define WINDOW_XFRAME(w) XFRAME (WINDOW_FRAME (w)) |
| 54 #define WINDOW_DEVICE(w) XFRAME_DEVICE (WINDOW_FRAME (w)) | |
| 55 #define WINDOW_XDEVICE(w) XDEVICE (WINDOW_DEVICE (w)) | |
| 56 #define WINDOW_CONSOLE(w) XDEVICE_CONSOLE (WINDOW_DEVICE (w)) | |
| 57 #define WINDOW_XCONSOLE(w) XCONSOLE (WINDOW_CONSOLE (w)) | |
| 58 #define WINDOW_XBUFFER(w) XBUFFER (WINDOW_BUFFER (w)) | |
| 428 | 59 |
| 872 | 60 #define XWINDOW_FRAME(w) WINDOW_FRAME (XWINDOW (w)) |
| 61 #define XWINDOW_XFRAME(w) XFRAME (XWINDOW_FRAME (w)) | |
| 62 #define XWINDOW_DEVICE(w) XFRAME_DEVICE (XWINDOW_FRAME (w)) | |
| 63 #define XWINDOW_XDEVICE(w) XDEVICE (XWINDOW_DEVICE (w)) | |
| 64 #define XWINDOW_CONSOLE(w) XDEVICE_CONSOLE (XWINDOW_DEVICE (w)) | |
| 65 #define XWINDOW_XCONSOLE(w) XCONSOLE (XWINDOW_CONSOLE (w)) | |
| 66 #define XWINDOW_BUFFER(w) WINDOW_BUFFER (XWINDOW (w)) | |
| 67 #define XWINDOW_XBUFFER(w) XBUFFER (XWINDOW_BUFFER (w)) | |
| 428 | 68 |
| 69 #define CHECK_LIVE_WINDOW(x) do { \ | |
| 70 CHECK_WINDOW (x); \ | |
| 71 if (!WINDOW_LIVE_P (XWINDOW (x))) \ | |
| 72 dead_wrong_type_argument (Qwindow_live_p, (x)); \ | |
| 73 } while (0) | |
| 74 #define CONCHECK_LIVE_WINDOW(x) do { \ | |
| 75 CONCHECK_WINDOW (x); \ | |
| 76 if (!WINDOW_LIVE_P (XWINDOW (x))) \ | |
| 77 x = wrong_type_argument (Qwindow_live_p, (x)); \ | |
| 78 } while (0) | |
| 79 | |
| 872 | 80 struct window_mirror; |
| 428 | 81 |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4775
diff
changeset
|
82 DECLARE_LISP_OBJECT (window_mirror, struct window_mirror); |
| 872 | 83 #define XWINDOW_MIRROR(x) XRECORD (x, window_mirror, struct window_mirror) |
| 84 #define wrap_window_mirror(p) wrap_record (p, window_mirror) | |
| 85 #define WINDOW_MIRRORP(x) RECORDP (x, window_mirror) | |
| 86 #define CHECK_WINDOW_MIRROR(x) CHECK_RECORD (x, window_mirror) | |
| 87 #define CONCHECK_WINDOW_MIRROR(x) CONCHECK_RECORD (x, window_mirror) | |
| 428 | 88 |
| 89 EXFUN (Fget_buffer_window, 3); | |
| 90 EXFUN (Fmove_to_window_line, 2); | |
| 91 EXFUN (Frecenter, 2); | |
| 444 | 92 EXFUN (Freplace_buffer_in_windows, 3); |
| 428 | 93 EXFUN (Fselect_window, 2); |
| 94 EXFUN (Fselected_window, 1); | |
| 440 | 95 EXFUN (Fset_window_buffer, 3); |
| 428 | 96 EXFUN (Fset_window_hscroll, 2); |
| 97 EXFUN (Fset_window_point, 2); | |
| 98 EXFUN (Fset_window_start, 3); | |
| 99 EXFUN (Fwindow_buffer, 1); | |
| 100 EXFUN (Fwindow_highest_p, 1); | |
| 101 EXFUN (Fwindow_point, 1); | |
| 102 EXFUN (Fwindow_start, 1); | |
| 872 | 103 |
| 1149 | 104 extern Lisp_Object Qcurrent_window_configuration, Qset_window_configuration; |
| 872 | 105 Lisp_Object display_buffer (Lisp_Object, Lisp_Object, Lisp_Object); |
| 428 | 106 |
| 107 /* The minibuffer window of the selected frame. | |
| 108 Note that you cannot test for minibufferness of an arbitrary window | |
| 109 by comparing against this; but you can test for minibufferness of | |
| 110 the selected window or of any window that is displayed. */ | |
| 111 extern Lisp_Object minibuf_window; | |
| 112 | |
| 113 /* Prompt to display in front of the minibuffer contents, or nil */ | |
| 114 extern Lisp_Object Vminibuf_prompt; | |
| 115 /* Prompt to display in front of the minibuffer prompt, or nil */ | |
| 116 extern Lisp_Object Vminibuf_preprompt; | |
| 117 | |
| 118 Lisp_Object allocate_window (void); | |
| 119 int window_char_width (struct window *, int include_margins_p); | |
| 120 int window_char_height (struct window *, int include_gutters_p); | |
| 121 int window_displayed_height (struct window *); | |
| 122 int window_is_leftmost (struct window *w); | |
| 123 int window_is_rightmost (struct window *w); | |
| 124 int window_is_lowest (struct window *w); | |
| 125 int window_is_highest (struct window *w); | |
| 126 int window_truncation_on (struct window *w); | |
| 127 int window_needs_vertical_divider (struct window *); | |
| 128 int window_scrollbar_width (struct window *w); | |
| 129 int window_scrollbar_height (struct window *w); | |
| 130 int window_modeline_height (struct window *w); | |
| 131 int window_left_margin_width (struct window *w); | |
| 132 int window_right_margin_width (struct window *w); | |
| 133 int window_top_gutter_height (struct window *w); | |
| 134 int window_bottom_gutter_height (struct window *w); | |
| 135 int window_left_gutter_width (struct window *w, int modeline); | |
| 136 int window_right_gutter_width (struct window *w, int modeline); | |
| 137 | |
| 138 void delete_all_subwindows (struct window *w); | |
| 139 void set_window_pixheight (Lisp_Object window, int pixheight, | |
| 140 int nodelete); | |
| 141 void set_window_pixwidth (Lisp_Object window, int pixwidth, | |
| 142 int nodelete); | |
| 143 void window_scroll (Lisp_Object window, Lisp_Object n, int direction, | |
| 578 | 144 Error_Behavior errb); |
| 428 | 145 int buffer_window_count (struct buffer *b, struct frame *f); |
| 146 int buffer_window_mru (struct window *w); | |
|
5047
07dcc7000bbf
put width before height consistently, fix a real bug found in the process
Ben Wing <ben@xemacs.org>
parents:
4775
diff
changeset
|
147 void check_frame_size (struct frame *frame, int *cols, int *rows); |
| 440 | 148 int frame_pixsize_valid_p (struct frame *frame, int width, int height); |
| 428 | 149 struct window *decode_window (Lisp_Object window); |
| 150 struct window *find_window_by_pixel_pos (int pix_x, int pix_y, Lisp_Object win); | |
| 151 | |
| 152 void free_window_mirror (struct window_mirror *mir); | |
| 153 Lisp_Object real_window (struct window_mirror *mir, int no_abort); | |
| 154 struct window_mirror *find_window_mirror (struct window *w); | |
| 155 display_line_dynarr *window_display_lines (struct window *w, int); | |
| 156 struct buffer *window_display_buffer (struct window *w); | |
| 157 void set_window_display_buffer (struct window *w, struct buffer *b); | |
| 158 void update_frame_window_mirror (struct frame *f); | |
| 159 | |
| 160 int map_windows (struct frame *f, | |
| 161 int (*mapfun) (struct window *w, void *closure), | |
| 162 void *closure); | |
| 163 void some_window_value_changed (Lisp_Object specifier, struct window *w, | |
| 164 Lisp_Object oldval); | |
| 165 int invalidate_vertical_divider_cache_in_window (struct window *w, | |
| 166 void *u_n_u_s_e_d); | |
| 167 int window_divider_width (struct window *w); | |
| 168 | |
| 440 | 169 #endif /* INCLUDED_window_h_ */ |