|
0
|
1 /* Define X specific console, device, and frame object for XEmacs.
|
|
|
2 Copyright (C) 1989, 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
|
|
|
3 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
|
|
|
4
|
|
|
5 This file is part of XEmacs.
|
|
|
6
|
|
|
7 XEmacs is free software; you can redistribute it and/or modify it
|
|
|
8 under the terms of the GNU General Public License as published by the
|
|
|
9 Free Software Foundation; either version 2, or (at your option) any
|
|
|
10 later version.
|
|
|
11
|
|
|
12 XEmacs is distributed in the hope that it will be useful, but WITHOUT
|
|
|
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
|
15 for more details.
|
|
|
16
|
|
|
17 You should have received a copy of the GNU General Public License
|
|
|
18 along with XEmacs; see the file COPYING. If not, write to
|
|
|
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
20 Boston, MA 02111-1307, USA. */
|
|
|
21
|
|
|
22 /* Synched up with: Not in FSF. */
|
|
|
23
|
|
|
24
|
|
|
25 /* Authorship:
|
|
|
26
|
|
|
27 Ultimately based on FSF, then later on JWZ work for Lemacs.
|
|
|
28 Rewritten over time by Ben Wing and Chuck Thompson (original
|
|
|
29 multi-device work by Chuck Thompson).
|
|
|
30 */
|
|
|
31
|
|
|
32 #ifndef _XEMACS_CONSOLE_X_H_
|
|
|
33 #define _XEMACS_CONSOLE_X_H_
|
|
|
34
|
|
|
35 #ifdef HAVE_X_WINDOWS
|
|
|
36
|
|
|
37 #include "console.h"
|
|
|
38 #include "xintrinsic.h"
|
|
|
39
|
|
|
40 #include <X11/cursorfont.h>
|
|
|
41 #include <X11/keysym.h>
|
|
|
42 #include <X11/Xatom.h>
|
|
|
43
|
|
163
|
44 #if 0 /* mrb - Xos sux. */
|
|
0
|
45 #ifdef USG
|
|
|
46 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
|
|
|
47 #include <X11/Xos.h>
|
|
|
48 #define USG
|
|
|
49 #else
|
|
|
50 #include <X11/Xos.h>
|
|
|
51 #endif
|
|
163
|
52 #endif /* 0 */
|
|
0
|
53
|
|
|
54 #include <X11/StringDefs.h>
|
|
|
55
|
|
|
56 #ifdef HAVE_XPM
|
|
|
57 #include <X11/xpm.h>
|
|
|
58 #endif
|
|
|
59
|
|
|
60 /* R5 defines the XPointer type, but R4 doesn't.
|
|
|
61 R4 also doesn't define a version number, but R5 does. */
|
|
|
62 #if (XlibSpecificationRelease < 5)
|
|
|
63 # define XPointer char *
|
|
|
64 #endif
|
|
|
65
|
|
|
66 DECLARE_CONSOLE_TYPE (x);
|
|
|
67
|
|
|
68 struct x_device
|
|
|
69 {
|
|
|
70 /* The X connection of this device. */
|
|
|
71 Display *display;
|
|
|
72
|
|
|
73 /* Xt application info. */
|
|
|
74 Widget Xt_app_shell;
|
|
|
75
|
|
|
76 /* Cache of GC's for frame's on this device. */
|
|
|
77 struct gc_cache *gc_cache;
|
|
|
78
|
|
|
79 /* Used by x_bevel_modeline in redisplay-x.c */
|
|
|
80 Pixmap gray_pixmap;
|
|
|
81
|
|
|
82 /* Atoms associated with this device. */
|
|
|
83 /* allocated in Xatoms_of_xfns in xfns.c */
|
|
|
84 Atom Xatom_WM_PROTOCOLS;
|
|
|
85 Atom Xatom_WM_DELETE_WINDOW;
|
|
|
86 Atom Xatom_WM_SAVE_YOURSELF;
|
|
|
87 Atom Xatom_WM_TAKE_FOCUS;
|
|
|
88 Atom Xatom_WM_STATE;
|
|
|
89
|
|
|
90 /* allocated in Xatoms_of_xselect in xselect.c */
|
|
|
91 Atom Xatom_CLIPBOARD;
|
|
|
92 Atom Xatom_TIMESTAMP;
|
|
|
93 Atom Xatom_TEXT;
|
|
|
94 Atom Xatom_DELETE;
|
|
|
95 Atom Xatom_MULTIPLE;
|
|
|
96 Atom Xatom_INCR;
|
|
|
97 Atom Xatom_EMACS_TMP;
|
|
|
98 Atom Xatom_TARGETS;
|
|
|
99 Atom Xatom_NULL;
|
|
|
100 Atom Xatom_ATOM_PAIR;
|
|
|
101 Atom Xatom_COMPOUND_TEXT;
|
|
|
102
|
|
|
103 /* allocated in Xatoms_of_objects_x in objects-x.c */
|
|
|
104 Atom Xatom_FOUNDRY;
|
|
|
105 Atom Xatom_FAMILY_NAME;
|
|
|
106 Atom Xatom_WEIGHT_NAME;
|
|
|
107 Atom Xatom_SLANT;
|
|
|
108 Atom Xatom_SETWIDTH_NAME;
|
|
|
109 Atom Xatom_ADD_STYLE_NAME;
|
|
|
110 Atom Xatom_PIXEL_SIZE;
|
|
|
111 Atom Xatom_POINT_SIZE;
|
|
|
112 Atom Xatom_RESOLUTION_X;
|
|
|
113 Atom Xatom_RESOLUTION_Y;
|
|
|
114 Atom Xatom_SPACING;
|
|
|
115 Atom Xatom_AVERAGE_WIDTH;
|
|
|
116 Atom Xatom_CHARSET_REGISTRY;
|
|
|
117 Atom Xatom_CHARSET_ENCODING;
|
|
|
118
|
|
|
119 /* The following items are all used exclusively in event-Xt.c. */
|
|
|
120 int MetaMask, HyperMask, SuperMask, AltMask, ModeMask;
|
|
|
121 KeySym lock_interpretation;
|
|
|
122
|
|
|
123 XModifierKeymap *x_modifier_keymap;
|
|
|
124
|
|
|
125 KeySym *x_keysym_map;
|
|
|
126 int x_keysym_map_min_code;
|
|
|
127 int x_keysym_map_keysyms_per_code;
|
|
|
128
|
|
|
129 /* frame that holds the WM_COMMAND property; there should be exactly
|
|
|
130 one of these per device. */
|
|
|
131 Lisp_Object WM_COMMAND_frame;
|
|
|
132
|
|
|
133 /* #### It's not clear that there is much distinction anymore
|
|
|
134 between mouse_timestamp and global_mouse_timestamp, now that
|
|
|
135 Emacs doesn't see most (all?) events not destined for it. */
|
|
|
136
|
|
|
137 /* The timestamp of the last button or key event used by emacs itself.
|
|
|
138 This is used for asserting selections and input focus. */
|
|
|
139 Time mouse_timestamp;
|
|
|
140
|
|
|
141 /* This is the timestamp the last button or key event whether it was
|
|
|
142 dispatched to emacs or widgets. */
|
|
|
143 Time global_mouse_timestamp;
|
|
|
144
|
|
|
145 /* This is the last known timestamp received from the server. It is
|
|
|
146 maintained by x_event_to_emacs_event and used to patch bogus
|
|
|
147 WM_TAKE_FOCUS messages sent by Mwm. */
|
|
|
148 Time last_server_timestamp;
|
|
|
149
|
|
|
150 /* Used by Xlib to preserve information across calls to
|
|
|
151 XLookupString(), to implement compose processing.
|
|
|
152
|
|
|
153 According to The X Window System, p. 467, "The creation of
|
|
|
154 XComposeStatus structures is implementation dependent;
|
|
|
155 a portable program must pass NULL for this argument."
|
|
|
156 But this means that a portable program cannot implement
|
|
|
157 compose processing! WTF?
|
|
|
158
|
|
|
159 So we just set it to all zeros. */
|
|
|
160
|
|
70
|
161 /* No X Server ever used this, AFAIK -- mrb */
|
|
|
162 /* XComposeStatus x_compose_status; */
|
|
|
163
|
|
|
164 #ifdef HAVE_XIM
|
|
|
165 XIM xim;
|
|
|
166 XIMStyles *xim_styles;
|
|
|
167 #endif /* HAVE_XIM */
|
|
0
|
168
|
|
|
169 /* stuff for sticky modifiers: */
|
|
|
170
|
|
|
171 unsigned int need_to_add_mask, down_mask;
|
|
|
172 KeyCode last_downkey;
|
|
|
173 Time release_time;
|
|
|
174 };
|
|
|
175
|
|
|
176 #define DEVICE_X_DATA(d) DEVICE_TYPE_DATA (d, x)
|
|
|
177
|
|
|
178 #define FRAME_X_DISPLAY(f) (DEVICE_X_DISPLAY (XDEVICE (f->device)))
|
|
|
179 #define DEVICE_X_DISPLAY(d) (DEVICE_X_DATA (d)->display)
|
|
|
180 #define DEVICE_XT_APP_SHELL(d) (DEVICE_X_DATA (d)->Xt_app_shell)
|
|
|
181 #define DEVICE_X_GC_CACHE(d) (DEVICE_X_DATA (d)->gc_cache)
|
|
|
182 #define DEVICE_X_GRAY_PIXMAP(d) (DEVICE_X_DATA (d)->gray_pixmap)
|
|
|
183 #define DEVICE_X_WM_COMMAND_FRAME(d) (DEVICE_X_DATA (d)->WM_COMMAND_frame)
|
|
|
184 #define DEVICE_X_MOUSE_TIMESTAMP(d) (DEVICE_X_DATA (d)->mouse_timestamp)
|
|
|
185 #define DEVICE_X_GLOBAL_MOUSE_TIMESTAMP(d) \
|
|
|
186 (DEVICE_X_DATA (d)->global_mouse_timestamp)
|
|
|
187 #define DEVICE_X_LAST_SERVER_TIMESTAMP(d) \
|
|
|
188 (DEVICE_X_DATA (d)->last_server_timestamp)
|
|
70
|
189 /* #define DEVICE_X_X_COMPOSE_STATUS(d)
|
|
|
190 (DEVICE_X_DATA (d)->x_compose_status) */
|
|
|
191 #ifdef HAVE_XIM
|
|
|
192 #define DEVICE_X_XIM(d) (DEVICE_X_DATA (d)->xim)
|
|
|
193 #define DEVICE_X_XIM_STYLES(d) (DEVICE_X_DATA (d)->xim_styles)
|
|
|
194 #define DEVICE_X_FONTSET(d) (DEVICE_X_DATA (d)->fontset)
|
|
|
195 #endif /* HAVE_XIM */
|
|
0
|
196
|
|
|
197 /* allocated in Xatoms_of_xfns in xfns.c */
|
|
|
198 #define DEVICE_XATOM_WM_PROTOCOLS(d) (DEVICE_X_DATA (d)->Xatom_WM_PROTOCOLS)
|
|
|
199 #define DEVICE_XATOM_WM_DELETE_WINDOW(d) \
|
|
|
200 (DEVICE_X_DATA (d)->Xatom_WM_DELETE_WINDOW)
|
|
|
201 #define DEVICE_XATOM_WM_SAVE_YOURSELF(d) \
|
|
|
202 (DEVICE_X_DATA (d)->Xatom_WM_SAVE_YOURSELF)
|
|
|
203 #define DEVICE_XATOM_WM_TAKE_FOCUS(d) (DEVICE_X_DATA (d)->Xatom_WM_TAKE_FOCUS)
|
|
|
204 #define DEVICE_XATOM_WM_STATE(d) (DEVICE_X_DATA (d)->Xatom_WM_STATE)
|
|
|
205
|
|
|
206 /* allocated in Xatoms_of_xselect in xselect.c */
|
|
|
207 #define DEVICE_XATOM_CLIPBOARD(d) (DEVICE_X_DATA (d)->Xatom_CLIPBOARD)
|
|
|
208 #define DEVICE_XATOM_TIMESTAMP(d) (DEVICE_X_DATA (d)->Xatom_TIMESTAMP)
|
|
|
209 #define DEVICE_XATOM_TEXT(d) (DEVICE_X_DATA (d)->Xatom_TEXT)
|
|
|
210 #define DEVICE_XATOM_DELETE(d) (DEVICE_X_DATA (d)->Xatom_DELETE)
|
|
|
211 #define DEVICE_XATOM_MULTIPLE(d) (DEVICE_X_DATA (d)->Xatom_MULTIPLE)
|
|
|
212 #define DEVICE_XATOM_INCR(d) (DEVICE_X_DATA (d)->Xatom_INCR)
|
|
|
213 #define DEVICE_XATOM_EMACS_TMP(d) (DEVICE_X_DATA (d)->Xatom_EMACS_TMP)
|
|
|
214 #define DEVICE_XATOM_TARGETS(d) (DEVICE_X_DATA (d)->Xatom_TARGETS)
|
|
|
215 #define DEVICE_XATOM_NULL(d) (DEVICE_X_DATA (d)->Xatom_NULL)
|
|
|
216 #define DEVICE_XATOM_ATOM_PAIR(d) (DEVICE_X_DATA (d)->Xatom_ATOM_PAIR)
|
|
|
217 #define DEVICE_XATOM_COMPOUND_TEXT(d) (DEVICE_X_DATA (d)->Xatom_COMPOUND_TEXT)
|
|
|
218
|
|
|
219 /* allocated in Xatoms_of_objects_x in objects-x.c */
|
|
|
220 #define DEVICE_XATOM_FOUNDRY(d) (DEVICE_X_DATA (d)->Xatom_FOUNDRY)
|
|
|
221 #define DEVICE_XATOM_FAMILY_NAME(d) (DEVICE_X_DATA (d)->Xatom_FAMILY_NAME)
|
|
|
222 #define DEVICE_XATOM_WEIGHT_NAME(d) (DEVICE_X_DATA (d)->Xatom_WEIGHT_NAME)
|
|
|
223 #define DEVICE_XATOM_SLANT(d) (DEVICE_X_DATA (d)->Xatom_SLANT)
|
|
|
224 #define DEVICE_XATOM_SETWIDTH_NAME(d) (DEVICE_X_DATA (d)->Xatom_SETWIDTH_NAME)
|
|
|
225 #define DEVICE_XATOM_ADD_STYLE_NAME(d) \
|
|
|
226 (DEVICE_X_DATA (d)->Xatom_ADD_STYLE_NAME)
|
|
|
227 #define DEVICE_XATOM_PIXEL_SIZE(d) (DEVICE_X_DATA (d)->Xatom_PIXEL_SIZE)
|
|
|
228 #define DEVICE_XATOM_POINT_SIZE(d) (DEVICE_X_DATA (d)->Xatom_POINT_SIZE)
|
|
|
229 #define DEVICE_XATOM_RESOLUTION_X(d) (DEVICE_X_DATA (d)->Xatom_RESOLUTION_X)
|
|
|
230 #define DEVICE_XATOM_RESOLUTION_Y(d) (DEVICE_X_DATA (d)->Xatom_RESOLUTION_Y)
|
|
|
231 #define DEVICE_XATOM_SPACING(d) (DEVICE_X_DATA (d)->Xatom_SPACING)
|
|
|
232 #define DEVICE_XATOM_AVERAGE_WIDTH(d) (DEVICE_X_DATA (d)->Xatom_AVERAGE_WIDTH)
|
|
|
233 #define DEVICE_XATOM_CHARSET_REGISTRY(d) \
|
|
|
234 (DEVICE_X_DATA (d)->Xatom_CHARSET_REGISTRY)
|
|
|
235 #define DEVICE_XATOM_CHARSET_ENCODING(d) \
|
|
|
236 (DEVICE_X_DATA (d)->Xatom_CHARSET_ENCODING)
|
|
|
237
|
|
|
238 /* The maximum number of widgets that can be displayed above the text
|
|
|
239 area at one time. Currently no more than 3 will ever actually be
|
|
|
240 displayed (menubar, psheet, debugger panel). */
|
|
|
241 #define MAX_CONCURRENT_TOP_WIDGETS 8
|
|
|
242
|
|
|
243 struct x_frame
|
|
|
244 {
|
|
|
245 /* The widget of this frame. This is an EmacsShell or an
|
|
|
246 ExternalShell. */
|
|
|
247 Widget widget;
|
|
|
248
|
|
|
249 /* The parent of the EmacsFrame, the menubar, and the scrollbars.
|
|
|
250 This is an EmacsManager. */
|
|
|
251 Widget container;
|
|
|
252
|
|
|
253 /* The widget of the menubar, of whatever widget class it happens to be. */
|
|
|
254 Widget menubar_widget;
|
|
|
255
|
|
|
256 /* The widget of the edit portion of this frame; this is an EmacsFrame,
|
|
|
257 and the window of this widget is what the redisplay code draws on. */
|
|
|
258 Widget edit_widget;
|
|
|
259
|
|
|
260 /* Lists the widgets above the text area, in the proper order.
|
|
|
261 Used by the EmacsManager. */
|
|
|
262 Widget top_widgets[MAX_CONCURRENT_TOP_WIDGETS];
|
|
|
263 int num_top_widgets;
|
|
|
264
|
|
|
265 #ifdef ENERGIZE
|
|
|
266 /* The Energize property-sheets. The current_ slots are the ones which are
|
|
|
267 actually on the frame. The desired_ slots are the ones which should
|
|
|
268 be there. Redisplay synchs these.
|
|
|
269 */
|
|
|
270 int *current_psheets;
|
|
|
271 int *desired_psheets;
|
|
|
272 int current_psheet_count;
|
|
|
273 int desired_psheet_count;
|
|
|
274 Lisp_Object current_psheet_buffer;
|
|
|
275 Lisp_Object desired_psheet_buffer;
|
|
74
|
276 #endif /* ENERGIZE */
|
|
0
|
277
|
|
|
278 /*************************** Miscellaneous **************************/
|
|
|
279
|
|
|
280 /* The icon pixmaps; these are Lisp_Image_Instance objects, or Qnil. */
|
|
|
281 Lisp_Object icon_pixmap;
|
|
|
282 Lisp_Object icon_pixmap_mask;
|
|
|
283
|
|
|
284 /* We don't provide a mechanism for changing these are they are
|
|
|
285 initialized so we might as well keep pointers to them and avoid
|
|
|
286 lots of expensive calls to gc_cache_lookup. */
|
|
|
287 GC toolbar_top_shadow_gc;
|
|
|
288 GC toolbar_bottom_shadow_gc;
|
|
|
289 GC toolbar_blank_background_gc;
|
|
|
290 GC toolbar_pixmap_background_gc;
|
|
|
291
|
|
|
292 /* geometry string that ought to be freed. */
|
|
|
293 char *geom_free_me_please;
|
|
|
294
|
|
70
|
295 #ifdef HAVE_XIM
|
|
|
296 XPoint xic_spot; /* Spot Location cache */
|
|
|
297 #ifdef XIM_XLIB
|
|
|
298 XIC xic;
|
|
|
299 /* Could get these at any time by asking xic, but... */
|
|
|
300 XIMStyle xic_style; /* XIM Style cache */
|
|
|
301 #endif /* XIM_XLIB */
|
|
|
302 #endif /* HAVE_XIM */
|
|
16
|
303
|
|
0
|
304 int old_toolbar_size[4];
|
|
|
305
|
|
|
306 /* 1 if the frame is completely visible on the display, 0 otherwise.
|
|
|
307 if 0 the frame may have been iconified or may be totally
|
|
|
308 or partially hidden by another X window */
|
|
74
|
309 unsigned int totally_visible_p :1;
|
|
0
|
310
|
|
|
311 /* NB: Both of the following flags are derivable from the 'shell'
|
|
|
312 field above, but it's easier if we also have them separately here. */
|
|
|
313
|
|
|
314 /* Are we a top-level frame? This means that our shell is a
|
|
|
315 TopLevelShell, and we should do certain things to interact with
|
|
|
316 the window manager. */
|
|
74
|
317 unsigned int top_level_frame_p :1;
|
|
0
|
318
|
|
|
319 #ifdef EXTERNAL_WIDGET
|
|
|
320 /* Are we using somebody else's window for our shell window? This
|
|
|
321 means that our shell is an ExternalShell. If this flag is set, then
|
|
|
322 `top_level_frame_p' will never be set. */
|
|
74
|
323 unsigned int external_window_p :1;
|
|
0
|
324 #endif /* EXTERNAL_WIDGET */
|
|
|
325 };
|
|
|
326
|
|
|
327 #define FRAME_X_DATA(f) FRAME_TYPE_DATA (f, x)
|
|
|
328
|
|
|
329 #define FRAME_X_SHELL_WIDGET(f) (FRAME_X_DATA (f)->widget)
|
|
|
330 #define FRAME_X_CONTAINER_WIDGET(f) (FRAME_X_DATA (f)->container)
|
|
|
331 #define FRAME_X_MENUBAR_WIDGET(f) (FRAME_X_DATA (f)->menubar_widget)
|
|
|
332 #define FRAME_X_TEXT_WIDGET(f) (FRAME_X_DATA (f)->edit_widget)
|
|
|
333 #define FRAME_X_TOP_WIDGETS(f) (FRAME_X_DATA (f)->top_widgets)
|
|
|
334 #define FRAME_X_NUM_TOP_WIDGETS(f) (FRAME_X_DATA (f)->num_top_widgets)
|
|
|
335
|
|
|
336 #define FRAME_X_OLD_TOOLBAR_SIZE(f, pos) \
|
|
|
337 (FRAME_X_DATA (f)->old_toolbar_size[pos])
|
|
|
338
|
|
|
339 #ifdef ENERGIZE
|
|
|
340 #define FRAME_X_CURRENT_PSHEETS(f) (FRAME_X_DATA (f)->current_psheets)
|
|
|
341 #define FRAME_X_DESIRED_PSHEETS(f) (FRAME_X_DATA (f)->desired_psheets)
|
|
|
342 #define FRAME_X_CURRENT_PSHEET_COUNT(f) \
|
|
|
343 (FRAME_X_DATA (f)->current_psheet_count)
|
|
|
344 #define FRAME_X_DESIRED_PSHEET_COUNT(f) \
|
|
|
345 (FRAME_X_DATA (f)->desired_psheet_count)
|
|
|
346 #define FRAME_X_CURRENT_PSHEET_BUFFER(f) \
|
|
|
347 (FRAME_X_DATA (f)->current_psheet_buffer)
|
|
|
348 #define FRAME_X_DESIRED_PSHEET_BUFFER(f) \
|
|
|
349 (FRAME_X_DATA (f)->desired_psheet_buffer)
|
|
|
350 #endif
|
|
|
351
|
|
|
352 #define FRAME_X_ICON_PIXMAP(f) (FRAME_X_DATA (f)->icon_pixmap)
|
|
|
353 #define FRAME_X_ICON_PIXMAP_MASK(f) (FRAME_X_DATA (f)->icon_pixmap_mask)
|
|
|
354
|
|
|
355 #define FRAME_X_TOOLBAR_TOP_SHADOW_GC(f) \
|
|
|
356 (FRAME_X_DATA (f)->toolbar_top_shadow_gc)
|
|
|
357 #define FRAME_X_TOOLBAR_BOTTOM_SHADOW_GC(f) \
|
|
|
358 (FRAME_X_DATA (f)->toolbar_bottom_shadow_gc)
|
|
|
359 #define FRAME_X_TOOLBAR_BLANK_BACKGROUND_GC(f) \
|
|
|
360 (FRAME_X_DATA (f)->toolbar_blank_background_gc)
|
|
|
361 #define FRAME_X_TOOLBAR_PIXMAP_BACKGROUND_GC(f) \
|
|
|
362 (FRAME_X_DATA (f)->toolbar_pixmap_background_gc)
|
|
|
363
|
|
|
364 #define FRAME_X_GEOM_FREE_ME_PLEASE(f) (FRAME_X_DATA (f)->geom_free_me_please)
|
|
|
365
|
|
|
366 #define FRAME_X_TOTALLY_VISIBLE_P(f) (FRAME_X_DATA (f)->totally_visible_p)
|
|
|
367 #define FRAME_X_TOP_LEVEL_FRAME_P(f) (FRAME_X_DATA (f)->top_level_frame_p)
|
|
|
368
|
|
|
369 #ifdef EXTERNAL_WIDGET
|
|
|
370 #define FRAME_X_EXTERNAL_WINDOW_P(f) (FRAME_X_DATA (f)->external_window_p)
|
|
|
371 #endif
|
|
|
372
|
|
70
|
373 #ifdef HAVE_XIM
|
|
|
374 #define FRAME_X_XIC_SPOT(f) (FRAME_X_DATA (f)->xic_spot)
|
|
|
375 #ifdef XIM_XLIB
|
|
|
376 #define FRAME_X_XIC(f) (FRAME_X_DATA (f)->xic)
|
|
|
377 #define FRAME_X_XIC_STYLE(f) (FRAME_X_DATA (f)->xic_style)
|
|
|
378 #endif /* XIM_XLIB */
|
|
|
379 #endif /* HAVE_XIM */
|
|
|
380
|
|
0
|
381 /* Variables associated with the X display frame this emacs is using. */
|
|
|
382 extern XtAppContext Xt_app_con;
|
|
|
383
|
|
|
384 extern Lisp_Object Vx_gc_pointer_shape;
|
|
|
385 extern Lisp_Object Vx_scrollbar_pointer_shape;
|
|
|
386 extern Lisp_Object Qx_error;
|
|
|
387
|
|
|
388 extern struct console_type *x_console_type;
|
|
|
389 extern Lisp_Object Vdefault_x_device;
|
|
|
390
|
|
|
391 /* Number of pixels below each line. */
|
|
|
392 extern int x_interline_space;
|
|
|
393
|
|
|
394 extern int x_selection_timeout;
|
|
|
395
|
|
|
396 struct frame *x_any_window_to_frame (struct device *d, Window);
|
|
|
397 struct frame *x_any_widget_or_parent_to_frame (struct device *d,
|
|
|
398 Widget widget);
|
|
|
399 struct frame *decode_x_frame (Lisp_Object);
|
|
|
400 Display *get_x_display (Lisp_Object);
|
|
|
401 struct frame *x_window_to_frame (struct device *d, Window);
|
|
|
402 struct device *get_device_from_display (Display *dpy);
|
|
|
403 struct device *decode_x_device (Lisp_Object);
|
|
|
404
|
|
|
405 void x_handle_selection_notify (XSelectionEvent *event);
|
|
|
406 void x_handle_selection_request (XSelectionRequestEvent *event);
|
|
|
407 void x_handle_selection_clear (XSelectionClearEvent *event);
|
|
|
408 void x_handle_property_notify (XPropertyEvent *event);
|
|
|
409
|
|
|
410 void Xatoms_of_xselect (struct device *d);
|
|
|
411 void Xatoms_of_objects_x (struct device *d);
|
|
|
412
|
|
|
413 void x_wm_set_shell_iconic_p (Widget shell, int iconic_p);
|
|
|
414 void x_wm_set_cell_size (Widget wmshell, int cw, int ch);
|
|
|
415 void x_wm_set_variable_size (Widget wmshell, int width, int height);
|
|
|
416
|
|
|
417 CONST char *x_event_name (int event_type);
|
|
|
418 int x_error_handler (Display *disp, XErrorEvent *event);
|
|
|
419 void expect_x_error (Display *dpy);
|
|
|
420 int x_error_occurred_p (Display *dpy);
|
|
|
421 int signal_if_x_error (Display *dpy, int resumable_p);
|
|
|
422 int x_IO_error_handler (Display *disp);
|
|
|
423
|
|
|
424 void x_redraw_exposed_area (struct frame *f, int x, int y,
|
|
|
425 int width, int height);
|
|
|
426 struct Lisp_Image_Instance;
|
|
|
427 void x_output_string (struct window *w, struct display_line *dl,
|
|
|
428 emchar_dynarr *buf, int xpos, int xoffset,
|
|
|
429 int start_pixpos, int width, face_index findex,
|
|
|
430 int cursor, int cursor_start, int cursor_width,
|
|
|
431 int cursor_height);
|
|
|
432 void x_output_x_pixmap (struct frame *f, struct Lisp_Image_Instance *p,
|
|
|
433 int x, int y, int clip_x, int clip_y,
|
|
|
434 int clip_width, int clip_height, int width,
|
|
|
435 int height, int pixmap_offset,
|
|
|
436 unsigned long fg, unsigned long bg,
|
|
|
437 GC override_gc);
|
|
|
438 void x_output_shadows (struct frame *f, int x, int y, int width,
|
|
|
439 int height, GC top_shadow_gc,
|
|
|
440 GC bottom_shadow_gc, GC background_gc,
|
|
|
441 int shadow_thickness);
|
|
|
442 void x_generate_shadow_pixels (struct frame *f,
|
|
|
443 unsigned long *top_shadow,
|
|
|
444 unsigned long *bottom_shadow,
|
|
|
445 unsigned long background,
|
|
|
446 unsigned long core_background);
|
|
|
447
|
|
|
448 int x_initialize_frame_menubar (struct frame *f);
|
|
|
449 void x_init_modifier_mapping (struct device *d);
|
|
|
450
|
|
|
451 #define X_ERROR_OCCURRED(dpy, body) \
|
|
|
452 (expect_x_error ((dpy)), (body), x_error_occurred_p (dpy))
|
|
|
453
|
|
|
454 #define HANDLING_X_ERROR(dpy, body) \
|
|
|
455 ( expect_x_error ((dpy)), (body), signal_if_x_error ((dpy), 0))
|
|
|
456
|
|
|
457 Lisp_Object x_atom_to_symbol (struct device *d, Atom atom);
|
|
|
458 Atom symbol_to_x_atom (struct device *d, Lisp_Object sym,
|
|
|
459 int only_if_exists);
|
|
|
460
|
|
70
|
461 #ifdef HAVE_XIM
|
|
|
462 /* Locale */
|
|
|
463 void Initialize_Locale (void);
|
|
|
464
|
|
|
465 /* X Input Method `methods' */
|
|
|
466 void XIM_init_device (struct device *d);
|
|
|
467 void XIM_init_frame (struct frame *f);
|
|
|
468 void XIM_SetSpotLocation (struct frame *f, int x, int y);
|
|
|
469 void XIM_SetGeometry (struct frame *f);
|
|
|
470 void XIM_focus_event (struct frame *f, int in_p);
|
|
|
471
|
|
|
472 #ifdef XIM_XLIB
|
|
|
473 /* XtTypeConverter */
|
|
|
474 Boolean EmacsXtCvtStringToXIMStyles (
|
|
|
475 Display *dpy,
|
|
|
476 XrmValuePtr args,
|
|
|
477 Cardinal *num_args,
|
|
|
478 XrmValuePtr from,
|
|
|
479 XrmValuePtr to_in_out,
|
|
|
480 XtPointer *converter_data);
|
|
|
481
|
|
|
482 /* XtDestructor */
|
|
|
483 void EmacsFreeXIMStyles (
|
|
|
484 XtAppContext app,
|
|
|
485 XrmValuePtr to,
|
|
|
486 XtPointer converter_data,
|
|
|
487 XrmValuePtr args,
|
|
|
488 Cardinal *num_args);
|
|
|
489
|
|
|
490 #ifdef DEBUG_XEMACS
|
|
|
491 void describe_Window (Window win);
|
|
|
492 void describe_XFontSet (XFontSet font_set);
|
|
|
493 void describe_XIM (XIM im);
|
|
|
494 void describe_XIMStyle (XIMStyle style);
|
|
|
495 void describe_XIMStyles (XIMStyles *styles);
|
|
|
496 void describe_XIC (XIC ic);
|
|
|
497 void describe_event_mask (unsigned long mask);
|
|
|
498 void describe_XRectangle (char *name, XRectangle *rect);
|
|
|
499 void describe_Status (Status status);
|
|
|
500 #endif /* DEBUG_XEMACS */
|
|
|
501 #endif /* XIM_XLIB */
|
|
|
502 #endif /* HAVE_XIM */
|
|
|
503
|
|
0
|
504 extern int in_resource_setting;
|
|
|
505 extern int in_specifier_change_function;
|
|
|
506
|
|
|
507 extern Lisp_Object Vx_initial_argv_list; /* #### ugh! */
|
|
|
508
|
|
|
509 #endif /* HAVE_X_WINDOWS */
|
|
|
510 #endif /* _XEMACS_DEVICE_X_H_ */
|
