Mercurial > emacs
annotate src/xterm.h @ 23892:f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
(ps-mule-external-libraries): New element FEATURE.
(ps-mule-init-external-library): Ajusted for the above change.
(ps-mule-generate-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-prepare-font): Likewise.
(ps-mule-initialize): Likewise.
(ps-begin-file): Superfluous tailing parenthesis deleted.
Mule related code moved to ps-mule.el.
(ps-begin-job): While setting ps-control-or-escape-regexp, don't
check ps-mule-charset-list.
(ps-begin-page): Don't set ps-mule-current-charset, instead call
ps-mule-begin-page.
(ps-basic-plot-string): Call ps-mule-prepare-ascii-font.
(ps-plot-region): Don't set ps-mule-current-charset, instead call
ps-mule-set-ascii-font. Don't call ps-mule-skip-same-charset,
instead skip same charsets by itself.
(ps-generate): Call ps-mule-initialize of needs-begin-file is
non-nil. Call ps-mule-begin-job.
(ps-print-version): New version number (4.1.2), doc fix
and mule related code extraction. Autoload ps-mule funs.
Define several functions for Emacs 20.2 and the
earlier version.
(ps-printer-name): Check if printer-name is bound.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Tue, 15 Dec 1998 06:31:48 +0000 |
parents | 88fadff500be |
children | 7505930b5456 |
rev | line source |
---|---|
259 | 1 /* Definitions and headers for communication with X protocol. |
7307 | 2 Copyright (C) 1989, 1993, 1994 Free Software Foundation, Inc. |
259 | 3 |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
8 the Free Software Foundation; either version 2, or (at your option) |
259 | 9 any later version. |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14164
diff
changeset
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14164
diff
changeset
|
19 Boston, MA 02111-1307, USA. */ |
259 | 20 |
21 #include <X11/Xlib.h> | |
22 #include <X11/cursorfont.h> | |
23 #include <X11/Xutil.h> | |
24 #include <X11/keysym.h> | |
25 #include <X11/Xatom.h> | |
26 #include <X11/Xresource.h> | |
27 | |
5656
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
28 #ifdef USE_X_TOOLKIT |
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
29 #include <X11/StringDefs.h> |
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
30 #include <X11/IntrinsicP.h> /* CoreP.h needs this */ |
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
31 #include <X11/CoreP.h> /* foul, but we need this to use our own |
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
32 window inside a widget instead of one |
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
33 that Xt creates... */ |
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
34 #include <X11/StringDefs.h> |
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
35 #endif |
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
36 |
9655
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
37 /* The class of this X application. */ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
38 #define EMACS_CLASS "Emacs" |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
39 |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
40 /* Bookkeeping to distinguish X versions. */ |
999 | 41 |
1040 | 42 /* HAVE_X11R4 is defined if we have the features of X11R4. It should |
43 be defined when we're using X11R5, since X11R5 has the features of | |
44 X11R4. If, in the future, we find we need more of these flags | |
45 (HAVE_X11R5, for example), code should always be written to test | |
46 the most recent flag first: | |
47 | |
48 #ifdef HAVE_X11R5 | |
49 ... | |
50 #elif HAVE_X11R4 | |
51 ... | |
52 #elif HAVE_X11 | |
53 ... | |
54 #endif | |
55 | |
56 If you ever find yourself writing a "#ifdef HAVE_FOO" clause that | |
57 looks a lot like another one, consider moving the text into a macro | |
58 whose definition is configuration-dependent, but whose usage is | |
59 universal - like the stuff in systime.h. | |
60 | |
61 It turns out that we can auto-detect whether we're being compiled | |
999 | 62 with X11R3 or X11R4 by looking for the flag macros for R4 structure |
63 members that R3 doesn't have. */ | |
64 #ifdef PBaseSize | |
4711
94fe4e71f7fc
(HAVE_X11R4): If AIX, do not define HAVE_X11R4.
Richard M. Stallman <rms@gnu.org>
parents:
3883
diff
changeset
|
65 /* AIX 3.1's X is somewhere between X11R3 and X11R4. It has |
94fe4e71f7fc
(HAVE_X11R4): If AIX, do not define HAVE_X11R4.
Richard M. Stallman <rms@gnu.org>
parents:
3883
diff
changeset
|
66 PBaseSize, but not XWithdrawWindow, XSetWMName, XSetWMNormalHints, |
6603
ec7c89180b65
Define HAVE_X11R4 if AIX3_2 is defined.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6571
diff
changeset
|
67 XSetWMIconName. |
ec7c89180b65
Define HAVE_X11R4 if AIX3_2 is defined.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6571
diff
changeset
|
68 AIX 3.2 is at least X11R4. */ |
ec7c89180b65
Define HAVE_X11R4 if AIX3_2 is defined.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6571
diff
changeset
|
69 #if (!defined AIX) || (defined AIX3_2) |
999 | 70 #define HAVE_X11R4 |
71 #endif | |
4711
94fe4e71f7fc
(HAVE_X11R4): If AIX, do not define HAVE_X11R4.
Richard M. Stallman <rms@gnu.org>
parents:
3883
diff
changeset
|
72 #endif |
999 | 73 |
15529
f36477de186c
Don't define HAVE_X11R5 here.
Richard M. Stallman <rms@gnu.org>
parents:
15043
diff
changeset
|
74 #ifdef HAVE_X11R5 |
6870
4b783d429e6e
(HAVE_X11R4): If we define HAVE_X11R5, define this too.
Richard M. Stallman <rms@gnu.org>
parents:
6769
diff
changeset
|
75 /* In case someone has X11R5 on AIX 3.1, |
4b783d429e6e
(HAVE_X11R4): If we define HAVE_X11R5, define this too.
Richard M. Stallman <rms@gnu.org>
parents:
6769
diff
changeset
|
76 make sure HAVE_X11R4 is defined as well as HAVE_X11R5. */ |
4b783d429e6e
(HAVE_X11R4): If we define HAVE_X11R5, define this too.
Richard M. Stallman <rms@gnu.org>
parents:
6769
diff
changeset
|
77 #define HAVE_X11R4 |
2300
dfef2f43f4bf
* xfns.c (Fx_open_connection): If we have X11R5, use
Jim Blandy <jimb@redhat.com>
parents:
2208
diff
changeset
|
78 #endif |
13346
620c6dc0329c
Move the include of Xlocale.h after setting HAVE_X11R5.
Richard M. Stallman <rms@gnu.org>
parents:
13315
diff
changeset
|
79 |
620c6dc0329c
Move the include of Xlocale.h after setting HAVE_X11R5.
Richard M. Stallman <rms@gnu.org>
parents:
13315
diff
changeset
|
80 #ifdef HAVE_X11R5 |
620c6dc0329c
Move the include of Xlocale.h after setting HAVE_X11R5.
Richard M. Stallman <rms@gnu.org>
parents:
13315
diff
changeset
|
81 #define HAVE_X_I18N |
620c6dc0329c
Move the include of Xlocale.h after setting HAVE_X11R5.
Richard M. Stallman <rms@gnu.org>
parents:
13315
diff
changeset
|
82 #include <X11/Xlocale.h> |
620c6dc0329c
Move the include of Xlocale.h after setting HAVE_X11R5.
Richard M. Stallman <rms@gnu.org>
parents:
13315
diff
changeset
|
83 #endif |
9655
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
84 |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
85 #define BLACK_PIX_DEFAULT(f) BlackPixel (FRAME_X_DISPLAY (f), \ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
86 XScreenNumberOfScreen (FRAME_X_SCREEN (f))) |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
87 #define WHITE_PIX_DEFAULT(f) WhitePixel (FRAME_X_DISPLAY (f), \ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
88 XScreenNumberOfScreen (FRAME_X_SCREEN (f))) |
259 | 89 |
90 #define FONT_WIDTH(f) ((f)->max_bounds.width) | |
91 #define FONT_HEIGHT(f) ((f)->ascent + (f)->descent) | |
92 #define FONT_BASE(f) ((f)->ascent) | |
93 | |
94 /* The mask of events that text windows always want to receive. This | |
15043
a0716ac97a83
(STANDARD_EVENT_SET): Remove PointerNotifyHintMask.
Richard M. Stallman <rms@gnu.org>
parents:
14829
diff
changeset
|
95 includes mouse movement events, since handling the mouse-font text property |
a0716ac97a83
(STANDARD_EVENT_SET): Remove PointerNotifyHintMask.
Richard M. Stallman <rms@gnu.org>
parents:
14829
diff
changeset
|
96 means that we must track mouse motion all the time. */ |
259 | 97 |
98 #define STANDARD_EVENT_SET \ | |
99 (KeyPressMask \ | |
100 | ExposureMask \ | |
101 | ButtonPressMask \ | |
424 | 102 | ButtonReleaseMask \ |
103 | PointerMotionMask \ | |
259 | 104 | StructureNotifyMask \ |
105 | FocusChangeMask \ | |
106 | LeaveWindowMask \ | |
107 | EnterWindowMask \ | |
108 | VisibilityChangeMask) | |
109 | |
5946 | 110 /* This checks to make sure we have a display. */ |
111 extern void check_x (); | |
112 | |
771 | 113 extern struct frame *x_window_to_frame (); |
259 | 114 |
5656
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
115 #ifdef USE_X_TOOLKIT |
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
116 extern struct frame *x_any_window_to_frame (); |
11612
00bf6e6098d4
Declare x_non_menubar_window_to_frame.
Karl Heuer <kwzh@gnu.org>
parents:
11538
diff
changeset
|
117 extern struct frame *x_non_menubar_window_to_frame (); |
6994
b43ec2effc1d
(x_top_window_to_frame): Declare this function.
Karl Heuer <kwzh@gnu.org>
parents:
6933
diff
changeset
|
118 extern struct frame *x_top_window_to_frame (); |
5656
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
119 #endif |
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
120 |
9655
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
121 extern Visual *select_visual (); |
9013
0ab80494b155
(FRAME_X_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
8947
diff
changeset
|
122 |
259 | 123 enum text_cursor_kinds { |
124 filled_box_cursor, hollow_box_cursor, bar_cursor | |
125 }; | |
9692 | 126 |
127 /* Structure recording X pixmap and reference count. | |
128 If REFCOUNT is 0 then this record is free to be reused. */ | |
129 | |
130 struct x_bitmap_record | |
131 { | |
132 Pixmap pixmap; | |
133 char *file; | |
134 int refcount; | |
135 /* Record some info about this pixmap. */ | |
136 int height, width, depth; | |
137 }; | |
9013
0ab80494b155
(FRAME_X_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
8947
diff
changeset
|
138 |
0ab80494b155
(FRAME_X_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
8947
diff
changeset
|
139 /* For each X display, we have a structure that records |
0ab80494b155
(FRAME_X_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
8947
diff
changeset
|
140 information about it. */ |
259 | 141 |
9655
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
142 struct x_display_info |
9013
0ab80494b155
(FRAME_X_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
8947
diff
changeset
|
143 { |
9692 | 144 /* Chain of all x_display_info structures. */ |
9655
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
145 struct x_display_info *next; |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
146 /* Connection number (normally a file descriptor number). */ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
147 int connection; |
9013
0ab80494b155
(FRAME_X_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
8947
diff
changeset
|
148 /* This says how to access this display in Xlib. */ |
9655
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
149 Display *display; |
9692 | 150 /* This is a cons cell of the form (NAME . FONT-LIST-CACHE). |
151 The same cons cell also appears in x_display_name_list. */ | |
152 Lisp_Object name_list_element; | |
9013
0ab80494b155
(FRAME_X_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
8947
diff
changeset
|
153 /* Number of frames that are on this display. */ |
0ab80494b155
(FRAME_X_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
8947
diff
changeset
|
154 int reference_count; |
9655
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
155 /* The Screen this connection is connected to. */ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
156 Screen *screen; |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
157 /* The Visual being used for this display. */ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
158 Visual *visual; |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
159 /* Number of panes on this screen. */ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
160 int n_planes; |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
161 /* Dimensions of this screen. */ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
162 int height, width; |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
163 /* Mask of things that cause the mouse to be grabbed. */ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
164 int grabbed; |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
165 /* Emacs bitmap-id of the default icon bitmap for this frame. |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
166 Or -1 if none has been allocated yet. */ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
167 int icon_bitmap_id; |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
168 /* The root window of this screen. */ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
169 Window root_window; |
9692 | 170 /* The cursor to use for vertical scroll bars. */ |
171 Cursor vertical_scroll_bar_cursor; | |
9655
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
172 /* X Resource data base */ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
173 XrmDatabase xrdb; |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
174 |
9692 | 175 /* A table of all the fonts we have already loaded. */ |
176 struct font_info *font_table; | |
177 | |
178 /* The current capacity of x_font_table. */ | |
179 int font_table_size; | |
180 | |
181 /* Reusable Graphics Context for drawing a cursor in a non-default face. */ | |
182 GC scratch_cursor_gc; | |
183 | |
184 /* These variables describe the range of text currently shown | |
185 in its mouse-face, together with the window they apply to. | |
186 As long as the mouse stays within this range, we need not | |
187 redraw anything on its account. */ | |
188 int mouse_face_beg_row, mouse_face_beg_col; | |
189 int mouse_face_end_row, mouse_face_end_col; | |
190 int mouse_face_past_end; | |
191 Lisp_Object mouse_face_window; | |
192 int mouse_face_face_id; | |
193 | |
194 /* 1 if a mouse motion event came and we didn't handle it right away because | |
195 gc was in progress. */ | |
196 int mouse_face_deferred_gc; | |
197 | |
198 /* FRAME and X, Y position of mouse when last checked for | |
199 highlighting. X and Y can be negative or out of range for the frame. */ | |
200 struct frame *mouse_face_mouse_frame; | |
201 int mouse_face_mouse_x, mouse_face_mouse_y; | |
202 | |
203 /* Nonzero means defer mouse-motion highlighting. */ | |
204 int mouse_face_defer; | |
205 | |
206 char *x_id_name; | |
207 | |
208 /* The number of fonts actually stored in x_font_table. | |
209 font_table[n] is used and valid iff 0 <= n < n_fonts. | |
210 0 <= n_fonts <= font_table_size. */ | |
211 int n_fonts; | |
212 | |
213 /* Pointer to bitmap records. */ | |
214 struct x_bitmap_record *bitmaps; | |
215 | |
216 /* Allocated size of bitmaps field. */ | |
217 int bitmaps_size; | |
218 | |
219 /* Last used bitmap index. */ | |
220 int bitmaps_last; | |
221 | |
9655
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
222 /* Which modifier keys are on which modifier bits? |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
223 |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
224 With each keystroke, X returns eight bits indicating which modifier |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
225 keys were held down when the key was pressed. The interpretation |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
226 of the top five modifier bits depends on what keys are attached |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
227 to them. If the Meta_L and Meta_R keysyms are on mod5, then mod5 |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
228 is the meta bit. |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
229 |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
230 meta_mod_mask is a mask containing the bits used for the meta key. |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
231 It may have more than one bit set, if more than one modifier bit |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
232 has meta keys on it. Basically, if EVENT is a KeyPress event, |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
233 the meta key is pressed if (EVENT.state & meta_mod_mask) != 0. |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
234 |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
235 shift_lock_mask is LockMask if the XK_Shift_Lock keysym is on the |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
236 lock modifier bit, or zero otherwise. Non-alphabetic keys should |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
237 only be affected by the lock modifier bit if XK_Shift_Lock is in |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
238 use; XK_Caps_Lock should only affect alphabetic keys. With this |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
239 arrangement, the lock modifier should shift the character if |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
240 (EVENT.state & shift_lock_mask) != 0. */ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
241 int meta_mod_mask, shift_lock_mask; |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
242 |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
243 /* These are like meta_mod_mask, but for different modifiers. */ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
244 int alt_mod_mask, super_mod_mask, hyper_mod_mask; |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
245 |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
246 /* Communication with window managers. */ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
247 Atom Xatom_wm_protocols; |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
248 /* Kinds of protocol things we may receive. */ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
249 Atom Xatom_wm_take_focus; |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
250 Atom Xatom_wm_save_yourself; |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
251 Atom Xatom_wm_delete_window; |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
252 /* Atom for indicating window state to the window manager. */ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
253 Atom Xatom_wm_change_state; |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
254 /* Other WM communication */ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
255 Atom Xatom_wm_configure_denied; /* When our config request is denied */ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
256 Atom Xatom_wm_window_moved; /* When the WM moves us. */ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
257 /* EditRes protocol */ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
258 Atom Xatom_editres; |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
259 |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
260 /* More atoms, which are selection types. */ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
261 Atom Xatom_CLIPBOARD, Xatom_TIMESTAMP, Xatom_TEXT, Xatom_DELETE, |
17051
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
262 Xatom_COMPOUND_TEXT, |
9655
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
263 Xatom_MULTIPLE, Xatom_INCR, Xatom_EMACS_TMP, Xatom_TARGETS, Xatom_NULL, |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
264 Xatom_ATOM_PAIR; |
17051
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
265 |
17104
b2a15ee1d181
(struct x_display_info): New member Xatom_MULE_DEFAULT_ASCENT.
Kenichi Handa <handa@m17n.org>
parents:
17051
diff
changeset
|
266 /* More atoms for font properties. The last three are private |
17051
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
267 properties, see the comments in src/fontset.h. */ |
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
268 Atom Xatom_PIXEL_SIZE, |
17104
b2a15ee1d181
(struct x_display_info): New member Xatom_MULE_DEFAULT_ASCENT.
Kenichi Handa <handa@m17n.org>
parents:
17051
diff
changeset
|
269 Xatom_MULE_BASELINE_OFFSET, Xatom_MULE_RELATIVE_COMPOSE, |
b2a15ee1d181
(struct x_display_info): New member Xatom_MULE_DEFAULT_ASCENT.
Kenichi Handa <handa@m17n.org>
parents:
17051
diff
changeset
|
270 Xatom_MULE_DEFAULT_ASCENT; |
17051
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
271 |
11013
f0fe22922005
(struct x_display_info): member kboard (formerly perdisplay) is now a pointer,
Karl Heuer <kwzh@gnu.org>
parents:
10741
diff
changeset
|
272 #ifdef MULTI_KBOARD |
11352
800e56de3795
(struct x_display_info): Use `struct kboard', not KBOARD.
Richard M. Stallman <rms@gnu.org>
parents:
11163
diff
changeset
|
273 struct kboard *kboard; |
11013
f0fe22922005
(struct x_display_info): member kboard (formerly perdisplay) is now a pointer,
Karl Heuer <kwzh@gnu.org>
parents:
10741
diff
changeset
|
274 #endif |
11163
d6b56a8f415b
(struct x_display_info): New member cut_buffers_initialized.
Karl Heuer <kwzh@gnu.org>
parents:
11013
diff
changeset
|
275 int cut_buffers_initialized; /* Whether we're sure they all exist */ |
11538
d0bd2102adbc
(struct x_display_info): New members x_focus_frame,
Karl Heuer <kwzh@gnu.org>
parents:
11352
diff
changeset
|
276 |
d0bd2102adbc
(struct x_display_info): New members x_focus_frame,
Karl Heuer <kwzh@gnu.org>
parents:
11352
diff
changeset
|
277 /* The frame (if any) which has the X window that has keyboard focus. |
d0bd2102adbc
(struct x_display_info): New members x_focus_frame,
Karl Heuer <kwzh@gnu.org>
parents:
11352
diff
changeset
|
278 Zero if none. This is examined by Ffocus_frame in xfns.c. Note |
d0bd2102adbc
(struct x_display_info): New members x_focus_frame,
Karl Heuer <kwzh@gnu.org>
parents:
11352
diff
changeset
|
279 that a mere EnterNotify event can set this; if you need to know the |
d0bd2102adbc
(struct x_display_info): New members x_focus_frame,
Karl Heuer <kwzh@gnu.org>
parents:
11352
diff
changeset
|
280 last frame specified in a FocusIn or FocusOut event, use |
d0bd2102adbc
(struct x_display_info): New members x_focus_frame,
Karl Heuer <kwzh@gnu.org>
parents:
11352
diff
changeset
|
281 x_focus_event_frame. */ |
d0bd2102adbc
(struct x_display_info): New members x_focus_frame,
Karl Heuer <kwzh@gnu.org>
parents:
11352
diff
changeset
|
282 struct frame *x_focus_frame; |
d0bd2102adbc
(struct x_display_info): New members x_focus_frame,
Karl Heuer <kwzh@gnu.org>
parents:
11352
diff
changeset
|
283 |
d0bd2102adbc
(struct x_display_info): New members x_focus_frame,
Karl Heuer <kwzh@gnu.org>
parents:
11352
diff
changeset
|
284 /* The last frame mentioned in a FocusIn or FocusOut event. This is |
d0bd2102adbc
(struct x_display_info): New members x_focus_frame,
Karl Heuer <kwzh@gnu.org>
parents:
11352
diff
changeset
|
285 separate from x_focus_frame, because whether or not LeaveNotify |
d0bd2102adbc
(struct x_display_info): New members x_focus_frame,
Karl Heuer <kwzh@gnu.org>
parents:
11352
diff
changeset
|
286 events cause us to lose focus depends on whether or not we have |
d0bd2102adbc
(struct x_display_info): New members x_focus_frame,
Karl Heuer <kwzh@gnu.org>
parents:
11352
diff
changeset
|
287 received a FocusIn event for it. */ |
d0bd2102adbc
(struct x_display_info): New members x_focus_frame,
Karl Heuer <kwzh@gnu.org>
parents:
11352
diff
changeset
|
288 struct frame *x_focus_event_frame; |
d0bd2102adbc
(struct x_display_info): New members x_focus_frame,
Karl Heuer <kwzh@gnu.org>
parents:
11352
diff
changeset
|
289 |
d0bd2102adbc
(struct x_display_info): New members x_focus_frame,
Karl Heuer <kwzh@gnu.org>
parents:
11352
diff
changeset
|
290 /* The frame which currently has the visual highlight, and should get |
d0bd2102adbc
(struct x_display_info): New members x_focus_frame,
Karl Heuer <kwzh@gnu.org>
parents:
11352
diff
changeset
|
291 keyboard input (other sorts of input have the frame encoded in the |
d0bd2102adbc
(struct x_display_info): New members x_focus_frame,
Karl Heuer <kwzh@gnu.org>
parents:
11352
diff
changeset
|
292 event). It points to the X focus frame's selected window's |
d0bd2102adbc
(struct x_display_info): New members x_focus_frame,
Karl Heuer <kwzh@gnu.org>
parents:
11352
diff
changeset
|
293 frame. It differs from x_focus_frame when we're using a global |
d0bd2102adbc
(struct x_display_info): New members x_focus_frame,
Karl Heuer <kwzh@gnu.org>
parents:
11352
diff
changeset
|
294 minibuffer. */ |
d0bd2102adbc
(struct x_display_info): New members x_focus_frame,
Karl Heuer <kwzh@gnu.org>
parents:
11352
diff
changeset
|
295 struct frame *x_highlight_frame; |
17051
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
296 |
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
297 /* The null pixel used for filling a character background with |
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
298 background color of a gc. */ |
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
299 Pixmap null_pixel; |
9013
0ab80494b155
(FRAME_X_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
8947
diff
changeset
|
300 }; |
9655
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
301 |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
302 /* This is a chain of structures for all the X displays currently in use. */ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
303 extern struct x_display_info *x_display_list; |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
304 |
9692 | 305 /* This is a list of cons cells, each of the form (NAME . FONT-LIST-CACHE), |
306 one for each element of x_display_list and in the same order. | |
307 NAME is the name of the frame. | |
308 FONT-LIST-CACHE records previous values returned by x-list-fonts. */ | |
309 extern Lisp_Object x_display_name_list; | |
310 | |
17051
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
311 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */ |
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
312 extern Lisp_Object Vx_pixel_size_width_font_regexp; |
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
313 |
23022
2dc474eaa693
(x_display_unibyte_char_with_fontset): Extern it.
Kenichi Handa <handa@m17n.org>
parents:
22934
diff
changeset
|
314 /* A flag to control how to display unibyte 8-bit character. */ |
23037
88fadff500be
x_display_unibyte_char_with_fontset renamed to
Richard M. Stallman <rms@gnu.org>
parents:
23034
diff
changeset
|
315 extern int unibyte_display_via_language_environment; |
23022
2dc474eaa693
(x_display_unibyte_char_with_fontset): Extern it.
Kenichi Handa <handa@m17n.org>
parents:
22934
diff
changeset
|
316 |
9655
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
317 extern struct x_display_info *x_display_info_for_display (); |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
318 extern struct x_display_info *x_display_info_for_name (); |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
319 |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
320 extern struct x_display_info *x_term_init (); |
17051
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
321 |
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
322 extern Lisp_Object x_list_fonts (); |
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
323 extern struct font_info *x_get_font_info(), *x_load_font (), *x_query_font (); |
21547
b2295127eff0
(x_find_ccl_program): Extern it.
Kenichi Handa <handa@m17n.org>
parents:
21515
diff
changeset
|
324 extern void x_find_ccl_program(); |
9013
0ab80494b155
(FRAME_X_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
8947
diff
changeset
|
325 |
12666
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
326 /* Each X frame object points to its own struct x_output object |
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
327 in the output_data.x field. The x_output structure contains |
259 | 328 the information that is specific to X windows. */ |
329 | |
12666
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
330 struct x_output |
259 | 331 { |
332 /* Position of the X window (x and y offsets in root window). */ | |
333 int left_pos; | |
334 int top_pos; | |
335 | |
336 /* Border width of the X window as known by the X window system. */ | |
337 int border_width; | |
338 | |
7265
bca3fe63efec
(struct x_display): New field size_hint_flags.
Richard M. Stallman <rms@gnu.org>
parents:
6994
diff
changeset
|
339 /* Size of the X window in pixels. */ |
259 | 340 int pixel_height, pixel_width; |
341 | |
11899
e1834fb53c35
(struct x_display): New field menubar_height.
Karl Heuer <kwzh@gnu.org>
parents:
11612
diff
changeset
|
342 /* Height of menu bar widget, in pixels. |
e1834fb53c35
(struct x_display): New field menubar_height.
Karl Heuer <kwzh@gnu.org>
parents:
11612
diff
changeset
|
343 Zero if not using the X toolkit. |
e1834fb53c35
(struct x_display): New field menubar_height.
Karl Heuer <kwzh@gnu.org>
parents:
11612
diff
changeset
|
344 When using the toolkit, this value is not meaningful |
e1834fb53c35
(struct x_display): New field menubar_height.
Karl Heuer <kwzh@gnu.org>
parents:
11612
diff
changeset
|
345 if the menubar is turned off. */ |
e1834fb53c35
(struct x_display): New field menubar_height.
Karl Heuer <kwzh@gnu.org>
parents:
11612
diff
changeset
|
346 int menubar_height; |
e1834fb53c35
(struct x_display): New field menubar_height.
Karl Heuer <kwzh@gnu.org>
parents:
11612
diff
changeset
|
347 |
6769
55237bfe01e5
(struct x_display): New field line_height.
Richard M. Stallman <rms@gnu.org>
parents:
6758
diff
changeset
|
348 /* Height of a line, in pixels. */ |
55237bfe01e5
(struct x_display): New field line_height.
Richard M. Stallman <rms@gnu.org>
parents:
6758
diff
changeset
|
349 int line_height; |
55237bfe01e5
(struct x_display): New field line_height.
Richard M. Stallman <rms@gnu.org>
parents:
6758
diff
changeset
|
350 |
7265
bca3fe63efec
(struct x_display): New field size_hint_flags.
Richard M. Stallman <rms@gnu.org>
parents:
6994
diff
changeset
|
351 /* The tiled border used when the mouse is out of the frame. */ |
259 | 352 Pixmap border_tile; |
353 | |
7265
bca3fe63efec
(struct x_display): New field size_hint_flags.
Richard M. Stallman <rms@gnu.org>
parents:
6994
diff
changeset
|
354 /* Here are the Graphics Contexts for the default font. */ |
259 | 355 GC normal_gc; /* Normal video */ |
356 GC reverse_gc; /* Reverse video */ | |
357 GC cursor_gc; /* cursor drawing */ | |
358 | |
359 /* Width of the internal border. This is a line of background color | |
771 | 360 just inside the window's border. When the frame is selected, |
259 | 361 a highlighting is displayed inside the internal border. */ |
362 int internal_border_width; | |
363 | |
771 | 364 /* The X window used for this frame. |
365 May be zero while the frame object is being created | |
259 | 366 and the X window has not yet been created. */ |
367 Window window_desc; | |
368 | |
369 /* The X window used for the bitmap icon; | |
370 or 0 if we don't have a bitmap icon. */ | |
371 Window icon_desc; | |
372 | |
373 /* The X window that is the parent of this X window. | |
10171
3c022e99daab
(struct x_display): New field explicit_parent.
Richard M. Stallman <rms@gnu.org>
parents:
9961
diff
changeset
|
374 Usually this is a window that was made by the window manager, |
3c022e99daab
(struct x_display): New field explicit_parent.
Richard M. Stallman <rms@gnu.org>
parents:
9961
diff
changeset
|
375 but it can be the root window, and it can be explicitly specified |
3c022e99daab
(struct x_display): New field explicit_parent.
Richard M. Stallman <rms@gnu.org>
parents:
9961
diff
changeset
|
376 (see the explicit_parent field, below). */ |
259 | 377 Window parent_desc; |
378 | |
5656
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
379 #ifdef USE_X_TOOLKIT |
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
380 /* The widget of this screen. This is the window of a "shell" widget. */ |
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
381 Widget widget; |
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
382 /* The XmPanedWindows... */ |
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
383 Widget column_widget; |
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
384 /* The widget of the edit portion of this screen; the window in |
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
385 "window_desc" is inside of this. */ |
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
386 Widget edit_widget; |
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
387 |
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
388 Widget menubar_widget; |
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
389 #endif |
94f317eca45d
[USE_X_TOOLKIT]: Include StringDefs.h, IntrinsicP.h,
Richard M. Stallman <rms@gnu.org>
parents:
4711
diff
changeset
|
390 |
9544
1f8c357797a2
(x_display): Changed icon_bitmap_flag to icon_bitmap.
Richard M. Stallman <rms@gnu.org>
parents:
9259
diff
changeset
|
391 /* If >=0, a bitmap index. The indicated bitmap is used for the |
1f8c357797a2
(x_display): Changed icon_bitmap_flag to icon_bitmap.
Richard M. Stallman <rms@gnu.org>
parents:
9259
diff
changeset
|
392 icon. */ |
1f8c357797a2
(x_display): Changed icon_bitmap_flag to icon_bitmap.
Richard M. Stallman <rms@gnu.org>
parents:
9259
diff
changeset
|
393 int icon_bitmap; |
259 | 394 |
17051
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
395 /* Default ASCII font of this frame. */ |
9655
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
396 XFontStruct *font; |
259 | 397 |
17051
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
398 /* The baseline position of the default ASCII font. */ |
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
399 int font_baseline; |
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
400 |
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
401 /* If a fontset is specified for this frame instead of font, this |
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
402 value contains an ID of the fontset, else -1. */ |
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
403 int fontset; |
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
404 |
259 | 405 /* Pixel values used for various purposes. |
406 border_pixel may be -1 meaning use a gray tile. */ | |
9655
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
407 unsigned long background_pixel; |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
408 unsigned long foreground_pixel; |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
409 unsigned long cursor_pixel; |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
410 unsigned long border_pixel; |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
411 unsigned long mouse_pixel; |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
412 unsigned long cursor_foreground_pixel; |
259 | 413 |
414 /* Descriptor for the cursor in use for this window. */ | |
415 Cursor text_cursor; | |
416 Cursor nontext_cursor; | |
417 Cursor modeline_cursor; | |
6758
2395a59123b8
(cross_cursor): New field for struct x_display.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6603
diff
changeset
|
418 Cursor cross_cursor; |
259 | 419 |
7265
bca3fe63efec
(struct x_display): New field size_hint_flags.
Richard M. Stallman <rms@gnu.org>
parents:
6994
diff
changeset
|
420 /* Flag to set when the X window needs to be completely repainted. */ |
259 | 421 int needs_exposure; |
422 | |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1788
diff
changeset
|
423 /* What kind of text cursor is drawn in this window right now? |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1788
diff
changeset
|
424 (If there is no cursor (phys_cursor_x < 0), then this means nothing.) */ |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1788
diff
changeset
|
425 enum text_cursor_kinds current_cursor; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1788
diff
changeset
|
426 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1788
diff
changeset
|
427 /* What kind of text cursor should we draw in the future? |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1788
diff
changeset
|
428 This should always be filled_box_cursor or bar_cursor. */ |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1788
diff
changeset
|
429 enum text_cursor_kinds desired_cursor; |
999 | 430 |
10741
2bbb48f3dd0c
(struct x_display): New element cursor_width.
Richard M. Stallman <rms@gnu.org>
parents:
10610
diff
changeset
|
431 /* Width of bar cursor (if we are using that). */ |
2bbb48f3dd0c
(struct x_display): New element cursor_width.
Richard M. Stallman <rms@gnu.org>
parents:
10610
diff
changeset
|
432 int cursor_width; |
2bbb48f3dd0c
(struct x_display): New element cursor_width.
Richard M. Stallman <rms@gnu.org>
parents:
10610
diff
changeset
|
433 |
999 | 434 /* These are the current window manager hints. It seems that |
435 XSetWMHints, when presented with an unset bit in the `flags' | |
436 member of the hints structure, does not leave the corresponding | |
437 attribute unchanged; rather, it resets that attribute to its | |
438 default value. For example, unless you set the `icon_pixmap' | |
439 field and the `IconPixmapHint' bit, XSetWMHints will forget what | |
440 your icon pixmap was. This is rather troublesome, since some of | |
441 the members (for example, `input' and `icon_pixmap') want to stay | |
442 the same throughout the execution of Emacs. So, we keep this | |
443 structure around, just leaving values in it and adding new bits | |
444 to the mask as we go. */ | |
445 XWMHints wm_hints; | |
1721
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
446 |
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
447 /* The size of the extra width currently allotted for vertical |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
448 scroll bars, in pixels. */ |
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
449 int vertical_scroll_bar_extra; |
2394
6ec15e6b2a08
(FRAME_FACES, FRAME_N_FACES, FRAME_DEFAULT_FACE)
Richard M. Stallman <rms@gnu.org>
parents:
2354
diff
changeset
|
450 |
3883
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
451 /* Table of parameter faces for this frame. Any X resources (pixel |
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
452 values, fonts) referred to here have been allocated explicitly |
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
453 for this face, and should be freed if we change the face. */ |
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
454 struct face **param_faces; |
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
455 int n_param_faces; |
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
456 |
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
457 /* Table of computed faces for this frame. These are the faces |
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
458 whose indexes go into the upper bits of a glyph, computed by |
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
459 combining the parameter faces specified by overlays, text |
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
460 properties, and what have you. The X resources mentioned here |
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
461 are all shared with parameter faces. */ |
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
462 struct face **computed_faces; |
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
463 int n_computed_faces; /* How many are valid */ |
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
464 int size_computed_faces; /* How many are allocated */ |
6933
b5f510efd194
(x_display): New field win_gravity.
Richard M. Stallman <rms@gnu.org>
parents:
6870
diff
changeset
|
465 |
b5f510efd194
(x_display): New field win_gravity.
Richard M. Stallman <rms@gnu.org>
parents:
6870
diff
changeset
|
466 /* This is the gravity value for the specified window position. */ |
b5f510efd194
(x_display): New field win_gravity.
Richard M. Stallman <rms@gnu.org>
parents:
6870
diff
changeset
|
467 int win_gravity; |
7265
bca3fe63efec
(struct x_display): New field size_hint_flags.
Richard M. Stallman <rms@gnu.org>
parents:
6994
diff
changeset
|
468 |
bca3fe63efec
(struct x_display): New field size_hint_flags.
Richard M. Stallman <rms@gnu.org>
parents:
6994
diff
changeset
|
469 /* The geometry flags for this window. */ |
bca3fe63efec
(struct x_display): New field size_hint_flags.
Richard M. Stallman <rms@gnu.org>
parents:
6994
diff
changeset
|
470 int size_hint_flags; |
9013
0ab80494b155
(FRAME_X_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
8947
diff
changeset
|
471 |
0ab80494b155
(FRAME_X_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
8947
diff
changeset
|
472 /* This is the Emacs structure for the X display this frame is on. */ |
9655
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
473 struct x_display_info *display_info; |
10171
3c022e99daab
(struct x_display): New field explicit_parent.
Richard M. Stallman <rms@gnu.org>
parents:
9961
diff
changeset
|
474 |
12658
dd26c4fb9999
(struct x_display): New fields saved_button_event, id.
Richard M. Stallman <rms@gnu.org>
parents:
12275
diff
changeset
|
475 /* This is a button event that wants to activate the menubar. |
15709
32550876ed0f
(struct x_output): Member saved_button_event replaced by
Karl Heuer <kwzh@gnu.org>
parents:
15529
diff
changeset
|
476 We save it here until the command loop gets to think about it. */ |
32550876ed0f
(struct x_output): Member saved_button_event replaced by
Karl Heuer <kwzh@gnu.org>
parents:
15529
diff
changeset
|
477 XEvent *saved_menu_event; |
12658
dd26c4fb9999
(struct x_display): New fields saved_button_event, id.
Richard M. Stallman <rms@gnu.org>
parents:
12275
diff
changeset
|
478 |
dd26c4fb9999
(struct x_display): New fields saved_button_event, id.
Richard M. Stallman <rms@gnu.org>
parents:
12275
diff
changeset
|
479 /* This is the widget id used for this frame's menubar in lwlib. */ |
dd26c4fb9999
(struct x_display): New fields saved_button_event, id.
Richard M. Stallman <rms@gnu.org>
parents:
12275
diff
changeset
|
480 #ifdef USE_X_TOOLKIT |
dd26c4fb9999
(struct x_display): New fields saved_button_event, id.
Richard M. Stallman <rms@gnu.org>
parents:
12275
diff
changeset
|
481 int id; |
dd26c4fb9999
(struct x_display): New fields saved_button_event, id.
Richard M. Stallman <rms@gnu.org>
parents:
12275
diff
changeset
|
482 #endif |
dd26c4fb9999
(struct x_display): New fields saved_button_event, id.
Richard M. Stallman <rms@gnu.org>
parents:
12275
diff
changeset
|
483 |
10171
3c022e99daab
(struct x_display): New field explicit_parent.
Richard M. Stallman <rms@gnu.org>
parents:
9961
diff
changeset
|
484 /* Nonzero means our parent is another application's window |
3c022e99daab
(struct x_display): New field explicit_parent.
Richard M. Stallman <rms@gnu.org>
parents:
9961
diff
changeset
|
485 and was explicitly specified. */ |
3c022e99daab
(struct x_display): New field explicit_parent.
Richard M. Stallman <rms@gnu.org>
parents:
9961
diff
changeset
|
486 char explicit_parent; |
12191
33e8a9ef3cab
(struct x_display): New field asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12072
diff
changeset
|
487 |
33e8a9ef3cab
(struct x_display): New field asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12072
diff
changeset
|
488 /* Nonzero means tried already to make this frame visible. */ |
33e8a9ef3cab
(struct x_display): New field asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12072
diff
changeset
|
489 char asked_for_visible; |
13226
3b15cf8aa50d
(HAVE_X_I18N): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
12666
diff
changeset
|
490 |
18073
460d5452a852
(struct x_output): New field has_been_visible.
Richard M. Stallman <rms@gnu.org>
parents:
17104
diff
changeset
|
491 /* Nonzero if this frame was ever previously visible. */ |
460d5452a852
(struct x_output): New field has_been_visible.
Richard M. Stallman <rms@gnu.org>
parents:
17104
diff
changeset
|
492 char has_been_visible; |
460d5452a852
(struct x_output): New field has_been_visible.
Richard M. Stallman <rms@gnu.org>
parents:
17104
diff
changeset
|
493 |
13226
3b15cf8aa50d
(HAVE_X_I18N): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
12666
diff
changeset
|
494 #ifdef HAVE_X_I18N |
14829
13f71787615d
(struct x_output): New member xim.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
495 /* Input method. */ |
13f71787615d
(struct x_output): New member xim.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
496 XIM xim; |
13226
3b15cf8aa50d
(HAVE_X_I18N): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
12666
diff
changeset
|
497 /* Input context (currently, this means Compose key handler setup). */ |
3b15cf8aa50d
(HAVE_X_I18N): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
12666
diff
changeset
|
498 XIC xic; |
3b15cf8aa50d
(HAVE_X_I18N): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
12666
diff
changeset
|
499 #endif |
259 | 500 }; |
1040 | 501 |
3883
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
502 /* Get at the computed faces of an X window frame. */ |
12666
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
503 #define FRAME_PARAM_FACES(f) ((f)->output_data.x->param_faces) |
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
504 #define FRAME_N_PARAM_FACES(f) ((f)->output_data.x->n_param_faces) |
3883
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
505 #define FRAME_DEFAULT_PARAM_FACE(f) (FRAME_PARAM_FACES (f)[0]) |
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
506 #define FRAME_MODE_LINE_PARAM_FACE(f) (FRAME_PARAM_FACES (f)[1]) |
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
507 |
12666
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
508 #define FRAME_COMPUTED_FACES(f) ((f)->output_data.x->computed_faces) |
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
509 #define FRAME_N_COMPUTED_FACES(f) ((f)->output_data.x->n_computed_faces) |
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
510 #define FRAME_SIZE_COMPUTED_FACES(f) ((f)->output_data.x->size_computed_faces) |
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
511 #define FRAME_DEFAULT_FACE(f) ((f)->output_data.x->computed_faces[0]) |
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
512 #define FRAME_MODE_LINE_FACE(f) ((f)->output_data.x->computed_faces[1]) |
2394
6ec15e6b2a08
(FRAME_FACES, FRAME_N_FACES, FRAME_DEFAULT_FACE)
Richard M. Stallman <rms@gnu.org>
parents:
2354
diff
changeset
|
513 |
22934
c3b29b916c9c
(FRAME_OUTER_WINDOW): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21547
diff
changeset
|
514 /* Return the X window used for displaying data in frame F. */ |
12666
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
515 #define FRAME_X_WINDOW(f) ((f)->output_data.x->window_desc) |
1040 | 516 |
22934
c3b29b916c9c
(FRAME_OUTER_WINDOW): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21547
diff
changeset
|
517 /* Return the outermost X window associated with the frame F. */ |
c3b29b916c9c
(FRAME_OUTER_WINDOW): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21547
diff
changeset
|
518 #ifdef USE_X_TOOLKIT |
c3b29b916c9c
(FRAME_OUTER_WINDOW): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21547
diff
changeset
|
519 #define FRAME_OUTER_WINDOW(f) (XtWindow ((f)->output_data.x->widget)) |
c3b29b916c9c
(FRAME_OUTER_WINDOW): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21547
diff
changeset
|
520 #else |
c3b29b916c9c
(FRAME_OUTER_WINDOW): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21547
diff
changeset
|
521 #define FRAME_OUTER_WINDOW(f) (FRAME_X_WINDOW (f)) |
c3b29b916c9c
(FRAME_OUTER_WINDOW): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21547
diff
changeset
|
522 #endif |
c3b29b916c9c
(FRAME_OUTER_WINDOW): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
21547
diff
changeset
|
523 |
12666
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
524 #define FRAME_FOREGROUND_PIXEL(f) ((f)->output_data.x->foreground_pixel) |
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
525 #define FRAME_BACKGROUND_PIXEL(f) ((f)->output_data.x->background_pixel) |
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
526 #define FRAME_FONT(f) ((f)->output_data.x->font) |
17051
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
527 #define FRAME_FONTSET(f) ((f)->output_data.x->fontset) |
13420
72e8212db4d9
(FRAME_INTERNAL_BORDER_WIDTH, FRAME_LINE_HEIGHT): New macros.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13346
diff
changeset
|
528 #define FRAME_INTERNAL_BORDER_WIDTH(f) ((f)->output_data.x->internal_border_width) |
72e8212db4d9
(FRAME_INTERNAL_BORDER_WIDTH, FRAME_LINE_HEIGHT): New macros.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13346
diff
changeset
|
529 #define FRAME_LINE_HEIGHT(f) ((f)->output_data.x->line_height) |
9547
b0cf6d689f7a
(FRAME_FOREGROUND_PIXEL, FRAME_BACKGROUND_PIXEL)
Richard M. Stallman <rms@gnu.org>
parents:
9544
diff
changeset
|
530 |
9655
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
531 /* This gives the x_display_info structure for the display F is on. */ |
12666
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
532 #define FRAME_X_DISPLAY_INFO(f) ((f)->output_data.x->display_info) |
9013
0ab80494b155
(FRAME_X_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
8947
diff
changeset
|
533 |
0ab80494b155
(FRAME_X_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
8947
diff
changeset
|
534 /* This is the `Display *' which frame F is on. */ |
9655
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
535 #define FRAME_X_DISPLAY(f) (FRAME_X_DISPLAY_INFO (f)->display) |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
536 |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
537 /* This is the `Screen *' which frame F is on. */ |
93ccc7bbae8a
(struct x_display_info): Struct renamed from x_screen.
Richard M. Stallman <rms@gnu.org>
parents:
9547
diff
changeset
|
538 #define FRAME_X_SCREEN(f) (FRAME_X_DISPLAY_INFO (f)->screen) |
9013
0ab80494b155
(FRAME_X_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
8947
diff
changeset
|
539 |
17051
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
540 /* This is the 'font_info *' which frame F has. */ |
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
541 #define FRAME_X_FONT_TABLE(f) (FRAME_X_DISPLAY_INFO (f)->font_table) |
fd0b17a79b07
(struct font_info): This definition is moved to
Karl Heuer <kwzh@gnu.org>
parents:
16268
diff
changeset
|
542 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1788
diff
changeset
|
543 /* These two really ought to be called FRAME_PIXEL_{WIDTH,HEIGHT}. */ |
12666
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
544 #define PIXEL_WIDTH(f) ((f)->output_data.x->pixel_width) |
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
545 #define PIXEL_HEIGHT(f) ((f)->output_data.x->pixel_height) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1788
diff
changeset
|
546 |
12666
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
547 #define FRAME_DESIRED_CURSOR(f) ((f)->output_data.x->desired_cursor) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1788
diff
changeset
|
548 |
14829
13f71787615d
(struct x_output): New member xim.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
549 #define FRAME_XIM(f) ((f)->output_data.x->xim) |
13315
2edc6ae38a78
(FRAME_XIC): Fix wrong field name.
Richard M. Stallman <rms@gnu.org>
parents:
13226
diff
changeset
|
550 #define FRAME_XIC(f) ((f)->output_data.x->xic) |
259 | 551 |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
552 /* X-specific scroll bar stuff. */ |
1721
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
553 |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
554 /* We represent scroll bars as lisp vectors. This allows us to place |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
555 references to them in windows without worrying about whether we'll |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
556 end up with windows referring to dead scroll bars; the garbage |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
557 collector will free it when its time comes. |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
558 |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
559 We use struct scroll_bar as a template for accessing fields of the |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
560 vector. */ |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
561 |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
562 struct scroll_bar { |
1721
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
563 |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
564 /* These fields are shared by all vectors. */ |
8837
a48847852901
(struct scroll_bar, SCROLL_BAR_VEC_SIZE): Use EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
565 EMACS_INT size_from_Lisp_Vector_struct; |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
566 struct Lisp_Vector *next_from_Lisp_Vector_struct; |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
567 |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
568 /* The window we're a scroll bar for. */ |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
569 Lisp_Object window; |
1721
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
570 |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
571 /* The next and previous in the chain of scroll bars in this frame. */ |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
572 Lisp_Object next, prev; |
1721
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
573 |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
574 /* The X window representing this scroll bar. Since this is a full |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
575 32-bit quantity, we store it split into two 32-bit values. */ |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
576 Lisp_Object x_window_low, x_window_high; |
1721
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
577 |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
578 /* The position and size of the scroll bar in pixels, relative to the |
1721
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
579 frame. */ |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
580 Lisp_Object top, left, width, height; |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
581 |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
582 /* The starting and ending positions of the handle, relative to the |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
583 handle area (i.e. zero is the top position, not |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
584 SCROLL_BAR_TOP_BORDER). If they're equal, that means the handle |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
585 hasn't been drawn yet. |
1721
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
586 |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
587 These are not actually the locations where the beginning and end |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
588 are drawn; in order to keep handles from becoming invisible when |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
589 editing large files, we establish a minimum height by always |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
590 drawing handle bottoms VERTICAL_SCROLL_BAR_MIN_HANDLE pixels below |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
591 where they would be normally; the bottom and top are in a |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
592 different co-ordinate system. */ |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
593 Lisp_Object start, end; |
1721
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
594 |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
595 /* If the scroll bar handle is currently being dragged by the user, |
1721
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
596 this is the number of pixels from the top of the handle to the |
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
597 place where the user grabbed it. If the handle isn't currently |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
598 being dragged, this is Qnil. */ |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
599 Lisp_Object dragging; |
1721
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
600 }; |
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
601 |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
602 /* The number of elements a vector holding a struct scroll_bar needs. */ |
9961
5ecf054a8c8f
(XSCROLL_BAR): Extract from Lisp_Vector, not generic pointer.
Karl Heuer <kwzh@gnu.org>
parents:
9692
diff
changeset
|
603 #define SCROLL_BAR_VEC_SIZE \ |
5ecf054a8c8f
(XSCROLL_BAR): Extract from Lisp_Vector, not generic pointer.
Karl Heuer <kwzh@gnu.org>
parents:
9692
diff
changeset
|
604 ((sizeof (struct scroll_bar) \ |
5ecf054a8c8f
(XSCROLL_BAR): Extract from Lisp_Vector, not generic pointer.
Karl Heuer <kwzh@gnu.org>
parents:
9692
diff
changeset
|
605 - sizeof (EMACS_INT) - sizeof (struct Lisp_Vector *)) \ |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
606 / sizeof (Lisp_Object)) |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
607 |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
608 /* Turning a lisp vector value into a pointer to a struct scroll_bar. */ |
9961
5ecf054a8c8f
(XSCROLL_BAR): Extract from Lisp_Vector, not generic pointer.
Karl Heuer <kwzh@gnu.org>
parents:
9692
diff
changeset
|
609 #define XSCROLL_BAR(vec) ((struct scroll_bar *) XVECTOR (vec)) |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
610 |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
611 |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
612 /* Building a 32-bit C integer from two 16-bit lisp integers. */ |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
613 #define SCROLL_BAR_PACK(low, high) (XINT (high) << 16 | XINT (low)) |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
614 |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
615 /* Setting two lisp integers to the low and high words of a 32-bit C int. */ |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
616 #define SCROLL_BAR_UNPACK(low, high, int32) \ |
9259
df555d80f093
(SCROLL_BAR_UNPACK): Use new accessor macros instead of calling XSET directly.
Karl Heuer <kwzh@gnu.org>
parents:
9168
diff
changeset
|
617 (XSETINT ((low), (int32) & 0xffff), \ |
df555d80f093
(SCROLL_BAR_UNPACK): Use new accessor macros instead of calling XSET directly.
Karl Heuer <kwzh@gnu.org>
parents:
9168
diff
changeset
|
618 XSETINT ((high), ((int32) >> 16) & 0xffff)) |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
619 |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
620 |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
621 /* Extract the X window id of the scroll bar from a struct scroll_bar. */ |
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
622 #define SCROLL_BAR_X_WINDOW(ptr) \ |
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
623 ((Window) SCROLL_BAR_PACK ((ptr)->x_window_low, (ptr)->x_window_high)) |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
624 |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
625 /* Store a window id in a struct scroll_bar. */ |
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
626 #define SET_SCROLL_BAR_X_WINDOW(ptr, id) \ |
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
627 (SCROLL_BAR_UNPACK ((ptr)->x_window_low, (ptr)->x_window_high, (int) id)) |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
628 |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
629 |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
630 /* Return the outside pixel height for a vertical scroll bar HEIGHT |
1721
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
631 rows high on frame F. */ |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
632 #define VERTICAL_SCROLL_BAR_PIXEL_HEIGHT(f, height) \ |
12666
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
633 ((height) * (f)->output_data.x->line_height) |
1721
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
634 |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
635 /* Return the inside width of a vertical scroll bar, given the outside |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
636 width. */ |
16252
41c962c84de5
(VERTICAL_SCROLL_BAR_INSIDE_WIDTH): Add frame as an
Richard M. Stallman <rms@gnu.org>
parents:
16049
diff
changeset
|
637 #define VERTICAL_SCROLL_BAR_INSIDE_WIDTH(f, width) \ |
41c962c84de5
(VERTICAL_SCROLL_BAR_INSIDE_WIDTH): Add frame as an
Richard M. Stallman <rms@gnu.org>
parents:
16049
diff
changeset
|
638 ((width) \ |
41c962c84de5
(VERTICAL_SCROLL_BAR_INSIDE_WIDTH): Add frame as an
Richard M. Stallman <rms@gnu.org>
parents:
16049
diff
changeset
|
639 - VERTICAL_SCROLL_BAR_LEFT_BORDER \ |
41c962c84de5
(VERTICAL_SCROLL_BAR_INSIDE_WIDTH): Add frame as an
Richard M. Stallman <rms@gnu.org>
parents:
16049
diff
changeset
|
640 - VERTICAL_SCROLL_BAR_RIGHT_BORDER \ |
16268
eed1157f0587
(VERTICAL_SCROLL_BAR_WIDTH_TRIM): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16252
diff
changeset
|
641 - VERTICAL_SCROLL_BAR_WIDTH_TRIM * 2) |
1721
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
642 |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
643 /* Return the length of the rectangle within which the top of the |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
644 handle must stay. This isn't equivalent to the inside height, |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
645 because the scroll bar handle has a minimum height. |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
646 |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
647 This is the real range of motion for the scroll bar, so when we're |
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
648 scaling buffer positions to scroll bar positions, we use this, not |
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
649 VERTICAL_SCROLL_BAR_INSIDE_HEIGHT. */ |
16252
41c962c84de5
(VERTICAL_SCROLL_BAR_INSIDE_WIDTH): Add frame as an
Richard M. Stallman <rms@gnu.org>
parents:
16049
diff
changeset
|
650 #define VERTICAL_SCROLL_BAR_TOP_RANGE(f, height) \ |
41c962c84de5
(VERTICAL_SCROLL_BAR_INSIDE_WIDTH): Add frame as an
Richard M. Stallman <rms@gnu.org>
parents:
16049
diff
changeset
|
651 (VERTICAL_SCROLL_BAR_INSIDE_HEIGHT (f, height) - VERTICAL_SCROLL_BAR_MIN_HANDLE) |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
652 |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
653 /* Return the inside height of vertical scroll bar, given the outside |
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
654 height. See VERTICAL_SCROLL_BAR_TOP_RANGE too. */ |
16252
41c962c84de5
(VERTICAL_SCROLL_BAR_INSIDE_WIDTH): Add frame as an
Richard M. Stallman <rms@gnu.org>
parents:
16049
diff
changeset
|
655 #define VERTICAL_SCROLL_BAR_INSIDE_HEIGHT(f, height) \ |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
656 ((height) - VERTICAL_SCROLL_BAR_TOP_BORDER - VERTICAL_SCROLL_BAR_BOTTOM_BORDER) |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
657 |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
658 |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
659 /* Border widths for scroll bars. |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
660 |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
661 Scroll bar windows don't have any X borders; their border width is |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
662 set to zero, and we redraw borders ourselves. This makes the code |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
663 a bit cleaner, since we don't have to convert between outside width |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
664 (used when relating to the rest of the screen) and inside width |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
665 (used when sizing and drawing the scroll bar window itself). |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
666 |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3195
diff
changeset
|
667 The handle moves up and down/back and forth in a rectangle inset |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
668 from the edges of the scroll bar. These are widths by which we |
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
669 inset the handle boundaries from the scroll bar edges. */ |
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
670 #define VERTICAL_SCROLL_BAR_LEFT_BORDER (2) |
6357
fb5923ece02c
(VERTICAL_SCROLL_BAR_RIGHT_BORDER): Change from 3 to 2.
Karl Heuer <kwzh@gnu.org>
parents:
5946
diff
changeset
|
671 #define VERTICAL_SCROLL_BAR_RIGHT_BORDER (2) |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
672 #define VERTICAL_SCROLL_BAR_TOP_BORDER (2) |
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
673 #define VERTICAL_SCROLL_BAR_BOTTOM_BORDER (2) |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
674 |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
675 /* Minimum lengths for scroll bar handles, in pixels. */ |
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
676 #define VERTICAL_SCROLL_BAR_MIN_HANDLE (5) |
1721
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
677 |
16268
eed1157f0587
(VERTICAL_SCROLL_BAR_WIDTH_TRIM): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16252
diff
changeset
|
678 /* Trimming off a few pixels from each side prevents |
16252
41c962c84de5
(VERTICAL_SCROLL_BAR_INSIDE_WIDTH): Add frame as an
Richard M. Stallman <rms@gnu.org>
parents:
16049
diff
changeset
|
679 text from glomming up against the scroll bar */ |
16268
eed1157f0587
(VERTICAL_SCROLL_BAR_WIDTH_TRIM): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16252
diff
changeset
|
680 #define VERTICAL_SCROLL_BAR_WIDTH_TRIM (2) |
16252
41c962c84de5
(VERTICAL_SCROLL_BAR_INSIDE_WIDTH): Add frame as an
Richard M. Stallman <rms@gnu.org>
parents:
16049
diff
changeset
|
681 |
1721
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
682 |
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
683 /* Manipulating pixel sizes and character sizes. |
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
684 Knowledge of which factors affect the overall size of the window should |
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
685 be hidden in these macros, if that's possible. |
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
686 |
9168 | 687 Return the upper/left pixel position of the character cell on frame F |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
688 at ROW/COL. */ |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
689 #define CHAR_TO_PIXEL_ROW(f, row) \ |
12666
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
690 ((f)->output_data.x->internal_border_width \ |
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
691 + (row) * (f)->output_data.x->line_height) |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
692 #define CHAR_TO_PIXEL_COL(f, col) \ |
12666
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
693 ((f)->output_data.x->internal_border_width \ |
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
694 + (col) * FONT_WIDTH ((f)->output_data.x->font)) |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
695 |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
696 /* Return the pixel width/height of frame F if it has |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
697 WIDTH columns/HEIGHT rows. */ |
1721
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
698 #define CHAR_TO_PIXEL_WIDTH(f, width) \ |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
699 (CHAR_TO_PIXEL_COL (f, width) \ |
12666
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
700 + (f)->output_data.x->vertical_scroll_bar_extra \ |
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
701 + (f)->output_data.x->internal_border_width) |
1721
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
702 #define CHAR_TO_PIXEL_HEIGHT(f, height) \ |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
703 (CHAR_TO_PIXEL_ROW (f, height) \ |
12666
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
704 + (f)->output_data.x->internal_border_width) |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
705 |
1721
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
706 |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
707 /* Return the row/column (zero-based) of the character cell containing |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
708 the pixel on FRAME at ROW/COL. */ |
3195
1071243e14c7
(PIXEL_TO_CHAR_COL, PIXEL_TO_CHAR_ROW): Fix mismatch in arg names.
Richard M. Stallman <rms@gnu.org>
parents:
3077
diff
changeset
|
709 #define PIXEL_TO_CHAR_ROW(f, row) \ |
12666
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
710 (((row) - (f)->output_data.x->internal_border_width) \ |
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
711 / (f)->output_data.x->line_height) |
3195
1071243e14c7
(PIXEL_TO_CHAR_COL, PIXEL_TO_CHAR_ROW): Fix mismatch in arg names.
Richard M. Stallman <rms@gnu.org>
parents:
3077
diff
changeset
|
712 #define PIXEL_TO_CHAR_COL(f, col) \ |
12666
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
713 (((col) - (f)->output_data.x->internal_border_width) \ |
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
714 / FONT_WIDTH ((f)->output_data.x->font)) |
1721
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
715 |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
716 /* How many columns/rows of text can we fit in WIDTH/HEIGHT pixels on |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
717 frame F? */ |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
718 #define PIXEL_TO_CHAR_WIDTH(f, width) \ |
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
719 (PIXEL_TO_CHAR_COL (f, ((width) \ |
12666
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
720 - (f)->output_data.x->internal_border_width \ |
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
721 - (f)->output_data.x->vertical_scroll_bar_extra))) |
1721
6ba3bca4c3de
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1531
diff
changeset
|
722 #define PIXEL_TO_CHAR_HEIGHT(f, height) \ |
1788
aaccd635fb71
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1721
diff
changeset
|
723 (PIXEL_TO_CHAR_ROW (f, ((height) \ |
12666
47630952226e
(struct x_output): Renamed from struct x_display.
Richard M. Stallman <rms@gnu.org>
parents:
12658
diff
changeset
|
724 - (f)->output_data.x->internal_border_width))) |
2196
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
725 |
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
726 /* If a struct input_event has a kind which is selection_request_event |
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
727 or selection_clear_event, then its contents are really described |
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
728 by this structure. */ |
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
729 |
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
730 /* For an event of kind selection_request_event, |
14164 | 731 this structure really describes the contents. |
732 **Don't make this struct longer!** | |
733 If it overlaps the frame_or_window field of struct input_event, | |
734 that will cause GC to crash. */ | |
2196
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
735 struct selection_input_event |
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
736 { |
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
737 int kind; |
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
738 Display *display; |
14030 | 739 /* We spell it with an "o" here because X does. */ |
740 Window requestor; | |
2196
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
741 Atom selection, target, property; |
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
742 Time time; |
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
743 }; |
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
744 |
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
745 #define SELECTION_EVENT_DISPLAY(eventp) \ |
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
746 (((struct selection_input_event *) (eventp))->display) |
14030 | 747 /* We spell it with an "o" here because X does. */ |
748 #define SELECTION_EVENT_REQUESTOR(eventp) \ | |
749 (((struct selection_input_event *) (eventp))->requestor) | |
2196
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
750 #define SELECTION_EVENT_SELECTION(eventp) \ |
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
751 (((struct selection_input_event *) (eventp))->selection) |
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
752 #define SELECTION_EVENT_TARGET(eventp) \ |
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
753 (((struct selection_input_event *) (eventp))->target) |
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
754 #define SELECTION_EVENT_PROPERTY(eventp) \ |
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
755 (((struct selection_input_event *) (eventp))->property) |
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
756 #define SELECTION_EVENT_TIME(eventp) \ |
75e1f1ee83ad
(SELECTION_EVENT_DISPLAY): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
757 (((struct selection_input_event *) (eventp))->time) |
3077
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
758 |
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
759 |
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
760 /* Interface to the face code functions. */ |
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
761 |
21515 | 762 /* Forward declarations for prototypes. */ |
763 struct frame; | |
764 struct window; | |
765 struct input_event; | |
766 | |
3883
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
767 /* Create the first two computed faces for a frame -- the ones that |
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
768 have GC's. */ |
21515 | 769 extern void init_frame_faces P_ ((struct frame *)); |
3077
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
770 |
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
771 /* Free the resources for the faces associated with a frame. */ |
21515 | 772 extern void free_frame_faces P_ ((struct frame *)); |
3077
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
773 |
3883
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
774 /* Given a computed face, find or make an equivalent display face |
3077
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
775 in face_vector, and return a pointer to it. */ |
21515 | 776 extern struct face *intern_face P_ ((struct frame *, struct face *)); |
3077
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
777 |
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
778 /* Given a frame and a face name, return the face's ID number, or |
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
779 zero if it isn't a recognized face name. */ |
21515 | 780 extern int face_name_id_number P_ ((struct frame *, Lisp_Object)); |
3077
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
781 |
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
782 /* Return non-zero if FONT1 and FONT2 have the same size bounding box. |
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
783 We assume that they're both character-cell fonts. */ |
21515 | 784 extern int same_size_fonts P_ ((XFontStruct *, XFontStruct *)); |
3077
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
785 |
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
786 /* Recompute the GC's for the default and modeline faces. |
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
787 We call this after changing frame parameters on which those GC's |
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
788 depend. */ |
21515 | 789 extern void recompute_basic_faces P_ ((struct frame *)); |
3077
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
790 |
3883
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
791 /* Return the face ID associated with a buffer position POS. Store |
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
792 into *ENDPTR the next position at which a different face is |
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
793 needed. This does not take account of glyphs that specify their |
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
794 own face codes. F is the frame in use for display, and W is a |
b9e5a869b33e
Separate parameter faces (those created and modified by the user)
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
795 window displaying the current buffer. |
3077
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
796 |
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
797 REGION_BEG, REGION_END delimit the region, so it can be highlighted. */ |
21515 | 798 extern int compute_char_face P_ ((struct frame *frame, |
799 struct window *w, | |
800 int pos, | |
801 int region_beg, int region_end, | |
802 int *endptr, | |
803 int limit, int mouse)); | |
3077
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
804 /* Return the face ID to use to display a special glyph which selects |
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
805 FACE_CODE as the face ID, assuming that ordinarily the face would |
8bba60752a32
* xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents:
2841
diff
changeset
|
806 be BASIC_FACE. F is the frame. */ |
21515 | 807 extern int compute_glyph_face P_ ((struct frame *, int, int)); |
808 | |
809 /* Given a pixel position (PIX_X, PIX_Y) on the frame F, return | |
810 glyph co-ordinates in (*X, *Y). Set *BOUNDS to the rectangle | |
811 that the glyph at X, Y occupies, if BOUNDS != 0. | |
812 If NOCLIP is nonzero, do not force the value into range. */ | |
813 | |
814 extern void pixel_to_glyph_coords P_ ((struct frame *f, int pix_x, int pix_y, | |
815 int *x, int *y, XRectangle *bounds, | |
816 int noclip)); | |
817 | |
818 extern void glyph_to_pixel_coords P_ ((struct frame *f, int x, int y, | |
819 int *pix_x, int *pix_y)); | |
820 | |
821 /* Defined in xterm.c */ | |
822 | |
823 extern void cancel_mouse_face P_ ((struct frame *)); | |
824 extern void x_scroll_bar_clear P_ ((struct frame *)); | |
825 extern void x_start_queuing_selection_requests P_ ((Display *)); | |
826 extern void x_stop_queuing_selection_requests P_ ((Display *)); | |
827 extern void x_display_cursor P_ ((struct frame *, int, int, int)); | |
828 extern void x_update_cursor P_ ((struct frame *, int)); | |
829 extern int x_text_icon P_ ((struct frame *, char *)); | |
830 extern int x_bitmap_icon P_ ((struct frame *, Lisp_Object)); | |
831 extern int x_catch_errors P_ ((Display *)); | |
832 extern void x_check_errors P_ ((Display *, char *)); | |
833 extern int x_had_errors_p P_ ((Display *)); | |
834 extern void x_uncatch_errors P_ ((Display *, int)); | |
835 extern Lisp_Object x_new_font P_ ((struct frame *, char *)); | |
836 extern Lisp_Object x_new_fontset P_ ((struct frame *, char *)); | |
837 extern void x_set_offset P_ ((struct frame *, int, int, int)); | |
838 extern void x_set_window_size P_ ((struct frame *, int, int, int)); | |
839 extern void x_set_mouse_position P_ ((struct frame *, int, int)); | |
840 extern void x_set_mouse_pixel_position P_ ((struct frame *, int, int)); | |
841 extern void x_raise_frame P_ ((struct frame *)); | |
842 extern void x_lower_frame P_ ((struct frame *)); | |
843 extern void x_make_frame_visible P_ ((struct frame *)); | |
844 extern void x_make_frame_invisible P_ ((struct frame *)); | |
845 extern void x_iconify_frame P_ ((struct frame *)); | |
846 extern void x_destroy_window P_ ((struct frame *)); | |
847 extern void x_wm_set_size_hint P_ ((struct frame *, long, int)); | |
848 extern void x_wm_set_window_state P_ ((struct frame *, int)); | |
849 extern void x_wm_set_icon_pixmap P_ ((struct frame *, int)); | |
850 extern void x_wm_set_icon_position P_ ((struct frame *, int, int)); | |
851 extern void x_delete_display P_ ((struct x_display_info *)); | |
852 extern void x_initialize P_ ((void)); | |
853 | |
854 /* Defined in xselect.c */ | |
855 | |
856 extern void x_handle_property_notify P_ ((XPropertyEvent *)); | |
857 extern void x_handle_selection_notify P_ ((XSelectionEvent *)); | |
858 extern void x_handle_selection_request P_ ((struct input_event *)); | |
859 extern void x_handle_selection_clear P_ ((struct input_event *)); | |
860 extern void x_clear_frame_selections P_ ((struct frame *)); | |
861 | |
862 /* Defined in xfns.c */ | |
863 | |
864 extern int have_menus_p P_ ((void)); | |
865 extern int x_bitmap_height P_ ((struct frame *, int)); | |
866 extern int x_bitmap_width P_ ((struct frame *, int)); | |
867 extern int x_bitmap_pixmap P_ ((struct frame *, int)); | |
868 extern void x_reference_bitmap P_ ((struct frame *, int)); | |
869 extern int x_create_bitmap_from_data P_ ((struct frame *, char *, | |
870 unsigned int, unsigned int)); | |
871 extern int x_create_bitmap_from_file P_ ((struct frame *, Lisp_Object)); | |
872 extern void x_destroy_bitmap P_ ((struct frame *, int)); | |
873 extern void x_set_frame_parameters P_ ((struct frame *, Lisp_Object)); | |
874 extern void x_real_positions P_ ((struct frame *, int *, int *)); | |
875 extern void x_report_frame_params P_ ((struct frame *, Lisp_Object *)); | |
876 extern int defined_color P_ ((struct frame *, char *, XColor *, int)); | |
877 extern void x_set_border_pixel P_ ((struct frame *, int)); | |
878 extern void x_set_menu_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object)); | |
879 extern void x_implicitly_set_name P_ ((struct frame *, Lisp_Object, Lisp_Object)); | |
880 extern int x_pixel_width P_ ((struct frame *)); | |
881 extern int x_pixel_height P_ ((struct frame *)); | |
882 extern int x_char_width P_ ((struct frame *)); | |
883 extern int x_char_height P_ ((struct frame *)); | |
884 extern int x_screen_planes P_ ((struct frame *)); | |
885 extern void x_sync P_ ((struct frame *)); | |
886 | |
887 /* Defined in xfaces.c */ | |
888 extern int frame_update_line_height P_ ((struct frame *)); | |
889 extern void clear_face_cache P_ ((void)); | |
890 extern int compute_glyph_face P_ ((struct frame *, int, int)); | |
891 extern int compute_glyph_face_1 P_ ((struct frame *, Lisp_Object, int)); | |
892 | |
893 /* Defined in xmenu.c */ | |
894 extern void x_activate_menubar P_ ((struct frame *)); | |
895 extern int popup_activated P_ ((void)); | |
896 extern void initialize_frame_menubar P_ ((struct frame *)); | |
897 | |
898 /* Defined in widget.c */ | |
23034
c458948948a9
(widget_store_internal_border): Conditionalize declaration.
Richard M. Stallman <rms@gnu.org>
parents:
23022
diff
changeset
|
899 #ifdef USE_X_TOOLKIT |
21515 | 900 extern void widget_store_internal_border P_ ((Widget)); |
23034
c458948948a9
(widget_store_internal_border): Conditionalize declaration.
Richard M. Stallman <rms@gnu.org>
parents:
23022
diff
changeset
|
901 #endif |