259
|
1 /* Definitions and headers for communication with X protocol.
|
33605
|
2 Copyright (C) 1989, 1993, 1994, 1998, 1999, 2000
|
|
3 Free Software Foundation, Inc.
|
259
|
4
|
|
5 This file is part of GNU Emacs.
|
|
6
|
|
7 GNU Emacs is free software; you can redistribute it and/or modify
|
|
8 it under the terms of the GNU General Public License as published by
|
1788
|
9 the Free Software Foundation; either version 2, or (at your option)
|
259
|
10 any later version.
|
|
11
|
|
12 GNU Emacs is distributed in the hope that it will be useful,
|
|
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
15 GNU General Public License for more details.
|
|
16
|
|
17 You should have received a copy of the GNU General Public License
|
|
18 along with GNU Emacs; see the file COPYING. If not, write to
|
14186
|
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
20 Boston, MA 02111-1307, USA. */
|
259
|
21
|
|
22 #include <X11/Xlib.h>
|
|
23 #include <X11/cursorfont.h>
|
|
24 #include <X11/Xutil.h>
|
|
25 #include <X11/keysym.h>
|
|
26 #include <X11/Xatom.h>
|
|
27 #include <X11/Xresource.h>
|
|
28
|
5656
|
29 #ifdef USE_X_TOOLKIT
|
|
30 #include <X11/StringDefs.h>
|
|
31 #include <X11/IntrinsicP.h> /* CoreP.h needs this */
|
|
32 #include <X11/CoreP.h> /* foul, but we need this to use our own
|
|
33 window inside a widget instead of one
|
|
34 that Xt creates... */
|
|
35 #include <X11/StringDefs.h>
|
|
36 #endif
|
|
37
|
9655
|
38 /* The class of this X application. */
|
|
39 #define EMACS_CLASS "Emacs"
|
|
40
|
|
41 /* Bookkeeping to distinguish X versions. */
|
999
|
42
|
1040
|
43 /* HAVE_X11R4 is defined if we have the features of X11R4. It should
|
|
44 be defined when we're using X11R5, since X11R5 has the features of
|
|
45 X11R4. If, in the future, we find we need more of these flags
|
|
46 (HAVE_X11R5, for example), code should always be written to test
|
|
47 the most recent flag first:
|
|
48
|
|
49 #ifdef HAVE_X11R5
|
|
50 ...
|
|
51 #elif HAVE_X11R4
|
|
52 ...
|
|
53 #elif HAVE_X11
|
|
54 ...
|
|
55 #endif
|
|
56
|
|
57 If you ever find yourself writing a "#ifdef HAVE_FOO" clause that
|
|
58 looks a lot like another one, consider moving the text into a macro
|
|
59 whose definition is configuration-dependent, but whose usage is
|
|
60 universal - like the stuff in systime.h.
|
|
61
|
|
62 It turns out that we can auto-detect whether we're being compiled
|
999
|
63 with X11R3 or X11R4 by looking for the flag macros for R4 structure
|
|
64 members that R3 doesn't have. */
|
|
65 #ifdef PBaseSize
|
4711
|
66 /* AIX 3.1's X is somewhere between X11R3 and X11R4. It has
|
|
67 PBaseSize, but not XWithdrawWindow, XSetWMName, XSetWMNormalHints,
|
6603
|
68 XSetWMIconName.
|
|
69 AIX 3.2 is at least X11R4. */
|
|
70 #if (!defined AIX) || (defined AIX3_2)
|
999
|
71 #define HAVE_X11R4
|
|
72 #endif
|
4711
|
73 #endif
|
999
|
74
|
15529
|
75 #ifdef HAVE_X11R5
|
6870
|
76 /* In case someone has X11R5 on AIX 3.1,
|
|
77 make sure HAVE_X11R4 is defined as well as HAVE_X11R5. */
|
|
78 #define HAVE_X11R4
|
2300
|
79 #endif
|
13346
|
80
|
28146
|
81 #ifdef HAVE_X_I18N
|
13346
|
82 #include <X11/Xlocale.h>
|
|
83 #endif
|
9655
|
84
|
|
85 #define BLACK_PIX_DEFAULT(f) BlackPixel (FRAME_X_DISPLAY (f), \
|
|
86 XScreenNumberOfScreen (FRAME_X_SCREEN (f)))
|
|
87 #define WHITE_PIX_DEFAULT(f) WhitePixel (FRAME_X_DISPLAY (f), \
|
|
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
|
95 includes mouse movement events, since handling the mouse-font text property
|
|
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
|
24990
|
110 enum text_cursor_kinds
|
|
111 {
|
|
112 NO_CURSOR = -1,
|
|
113 FILLED_BOX_CURSOR,
|
|
114 HOLLOW_BOX_CURSOR,
|
|
115 BAR_CURSOR
|
259
|
116 };
|
9692
|
117
|
|
118 /* Structure recording X pixmap and reference count.
|
|
119 If REFCOUNT is 0 then this record is free to be reused. */
|
|
120
|
|
121 struct x_bitmap_record
|
|
122 {
|
|
123 Pixmap pixmap;
|
|
124 char *file;
|
|
125 int refcount;
|
|
126 /* Record some info about this pixmap. */
|
|
127 int height, width, depth;
|
|
128 };
|
9013
|
129
|
|
130 /* For each X display, we have a structure that records
|
|
131 information about it. */
|
259
|
132
|
9655
|
133 struct x_display_info
|
9013
|
134 {
|
9692
|
135 /* Chain of all x_display_info structures. */
|
9655
|
136 struct x_display_info *next;
|
24990
|
137
|
9655
|
138 /* Connection number (normally a file descriptor number). */
|
|
139 int connection;
|
24990
|
140
|
9013
|
141 /* This says how to access this display in Xlib. */
|
9655
|
142 Display *display;
|
24990
|
143
|
9692
|
144 /* This is a cons cell of the form (NAME . FONT-LIST-CACHE).
|
|
145 The same cons cell also appears in x_display_name_list. */
|
|
146 Lisp_Object name_list_element;
|
24990
|
147
|
9013
|
148 /* Number of frames that are on this display. */
|
|
149 int reference_count;
|
24990
|
150
|
9655
|
151 /* The Screen this connection is connected to. */
|
|
152 Screen *screen;
|
24990
|
153
|
|
154 /* Dots per inch of the screen. */
|
|
155 double resx, resy;
|
|
156
|
9655
|
157 /* The Visual being used for this display. */
|
|
158 Visual *visual;
|
27986
|
159
|
|
160 /* THe colormap being used. */
|
|
161 Colormap cmap;
|
24990
|
162
|
9655
|
163 /* Number of panes on this screen. */
|
|
164 int n_planes;
|
24990
|
165
|
9655
|
166 /* Dimensions of this screen. */
|
|
167 int height, width;
|
24990
|
168
|
9655
|
169 /* Mask of things that cause the mouse to be grabbed. */
|
|
170 int grabbed;
|
24990
|
171
|
9655
|
172 /* Emacs bitmap-id of the default icon bitmap for this frame.
|
|
173 Or -1 if none has been allocated yet. */
|
|
174 int icon_bitmap_id;
|
24990
|
175
|
9655
|
176 /* The root window of this screen. */
|
|
177 Window root_window;
|
24990
|
178
|
9692
|
179 /* The cursor to use for vertical scroll bars. */
|
|
180 Cursor vertical_scroll_bar_cursor;
|
24990
|
181
|
9655
|
182 /* X Resource data base */
|
|
183 XrmDatabase xrdb;
|
|
184
|
9692
|
185 /* A table of all the fonts we have already loaded. */
|
|
186 struct font_info *font_table;
|
|
187
|
|
188 /* The current capacity of x_font_table. */
|
|
189 int font_table_size;
|
|
190
|
24990
|
191 /* Minimum width over all characters in all fonts in font_table. */
|
|
192 int smallest_char_width;
|
|
193
|
|
194 /* Minimum font height over all fonts in font_table. */
|
|
195 int smallest_font_height;
|
|
196
|
9692
|
197 /* Reusable Graphics Context for drawing a cursor in a non-default face. */
|
|
198 GC scratch_cursor_gc;
|
|
199
|
24990
|
200 /* These variables describe the range of text currently shown in its
|
|
201 mouse-face, together with the window they apply to. As long as
|
|
202 the mouse stays within this range, we need not redraw anything on
|
|
203 its account. Rows and columns are glyph matrix positions in
|
|
204 MOUSE_FACE_WINDOW. */
|
9692
|
205 int mouse_face_beg_row, mouse_face_beg_col;
|
24990
|
206 int mouse_face_beg_x, mouse_face_beg_y;
|
9692
|
207 int mouse_face_end_row, mouse_face_end_col;
|
24990
|
208 int mouse_face_end_x, mouse_face_end_y;
|
9692
|
209 int mouse_face_past_end;
|
|
210 Lisp_Object mouse_face_window;
|
|
211 int mouse_face_face_id;
|
|
212
|
|
213 /* 1 if a mouse motion event came and we didn't handle it right away because
|
|
214 gc was in progress. */
|
|
215 int mouse_face_deferred_gc;
|
|
216
|
|
217 /* FRAME and X, Y position of mouse when last checked for
|
|
218 highlighting. X and Y can be negative or out of range for the frame. */
|
|
219 struct frame *mouse_face_mouse_frame;
|
|
220 int mouse_face_mouse_x, mouse_face_mouse_y;
|
|
221
|
|
222 /* Nonzero means defer mouse-motion highlighting. */
|
|
223 int mouse_face_defer;
|
|
224
|
24990
|
225 int mouse_face_image_state;
|
|
226
|
9692
|
227 char *x_id_name;
|
|
228
|
|
229 /* The number of fonts actually stored in x_font_table.
|
24990
|
230 font_table[n] is used and valid iff 0 <= n < n_fonts. 0 <=
|
|
231 n_fonts <= font_table_size and font_table[i].name != 0. */
|
9692
|
232 int n_fonts;
|
|
233
|
|
234 /* Pointer to bitmap records. */
|
|
235 struct x_bitmap_record *bitmaps;
|
|
236
|
|
237 /* Allocated size of bitmaps field. */
|
|
238 int bitmaps_size;
|
|
239
|
|
240 /* Last used bitmap index. */
|
|
241 int bitmaps_last;
|
|
242
|
9655
|
243 /* Which modifier keys are on which modifier bits?
|
|
244
|
|
245 With each keystroke, X returns eight bits indicating which modifier
|
|
246 keys were held down when the key was pressed. The interpretation
|
|
247 of the top five modifier bits depends on what keys are attached
|
|
248 to them. If the Meta_L and Meta_R keysyms are on mod5, then mod5
|
|
249 is the meta bit.
|
|
250
|
|
251 meta_mod_mask is a mask containing the bits used for the meta key.
|
|
252 It may have more than one bit set, if more than one modifier bit
|
|
253 has meta keys on it. Basically, if EVENT is a KeyPress event,
|
|
254 the meta key is pressed if (EVENT.state & meta_mod_mask) != 0.
|
|
255
|
|
256 shift_lock_mask is LockMask if the XK_Shift_Lock keysym is on the
|
|
257 lock modifier bit, or zero otherwise. Non-alphabetic keys should
|
|
258 only be affected by the lock modifier bit if XK_Shift_Lock is in
|
|
259 use; XK_Caps_Lock should only affect alphabetic keys. With this
|
|
260 arrangement, the lock modifier should shift the character if
|
|
261 (EVENT.state & shift_lock_mask) != 0. */
|
|
262 int meta_mod_mask, shift_lock_mask;
|
|
263
|
|
264 /* These are like meta_mod_mask, but for different modifiers. */
|
|
265 int alt_mod_mask, super_mod_mask, hyper_mod_mask;
|
|
266
|
|
267 /* Communication with window managers. */
|
|
268 Atom Xatom_wm_protocols;
|
24990
|
269
|
9655
|
270 /* Kinds of protocol things we may receive. */
|
|
271 Atom Xatom_wm_take_focus;
|
|
272 Atom Xatom_wm_save_yourself;
|
|
273 Atom Xatom_wm_delete_window;
|
24990
|
274
|
9655
|
275 /* Atom for indicating window state to the window manager. */
|
|
276 Atom Xatom_wm_change_state;
|
24990
|
277
|
9655
|
278 /* Other WM communication */
|
|
279 Atom Xatom_wm_configure_denied; /* When our config request is denied */
|
|
280 Atom Xatom_wm_window_moved; /* When the WM moves us. */
|
24990
|
281
|
9655
|
282 /* EditRes protocol */
|
|
283 Atom Xatom_editres;
|
|
284
|
|
285 /* More atoms, which are selection types. */
|
|
286 Atom Xatom_CLIPBOARD, Xatom_TIMESTAMP, Xatom_TEXT, Xatom_DELETE,
|
17051
|
287 Xatom_COMPOUND_TEXT,
|
9655
|
288 Xatom_MULTIPLE, Xatom_INCR, Xatom_EMACS_TMP, Xatom_TARGETS, Xatom_NULL,
|
|
289 Xatom_ATOM_PAIR;
|
17051
|
290
|
17104
|
291 /* More atoms for font properties. The last three are private
|
17051
|
292 properties, see the comments in src/fontset.h. */
|
|
293 Atom Xatom_PIXEL_SIZE,
|
17104
|
294 Xatom_MULE_BASELINE_OFFSET, Xatom_MULE_RELATIVE_COMPOSE,
|
|
295 Xatom_MULE_DEFAULT_ASCENT;
|
17051
|
296
|
24990
|
297 /* More atoms for Ghostscript support. */
|
|
298 Atom Xatom_DONE, Xatom_PAGE;
|
|
299
|
|
300 /* Atom used in toolkit scroll bar client messages. */
|
|
301 Atom Xatom_Scrollbar;
|
|
302
|
11013
f0fe22922005
(struct x_display_info): member kboard (formerly perdisplay) is now a pointer,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
303 #ifdef MULTI_KBOARD
|
11352
|
304 struct kboard *kboard;
|
11013
f0fe22922005
(struct x_display_info): member kboard (formerly perdisplay) is now a pointer,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
305 #endif
|
11163
|
306 int cut_buffers_initialized; /* Whether we're sure they all exist */
|
11538
|
307
|
|
308 /* The frame (if any) which has the X window that has keyboard focus.
|
|
309 Zero if none. This is examined by Ffocus_frame in xfns.c. Note
|
|
310 that a mere EnterNotify event can set this; if you need to know the
|
|
311 last frame specified in a FocusIn or FocusOut event, use
|
|
312 x_focus_event_frame. */
|
|
313 struct frame *x_focus_frame;
|
|
314
|
|
315 /* The last frame mentioned in a FocusIn or FocusOut event. This is
|
|
316 separate from x_focus_frame, because whether or not LeaveNotify
|
|
317 events cause us to lose focus depends on whether or not we have
|
|
318 received a FocusIn event for it. */
|
|
319 struct frame *x_focus_event_frame;
|
|
320
|
|
321 /* The frame which currently has the visual highlight, and should get
|
|
322 keyboard input (other sorts of input have the frame encoded in the
|
|
323 event). It points to the X focus frame's selected window's
|
|
324 frame. It differs from x_focus_frame when we're using a global
|
|
325 minibuffer. */
|
|
326 struct frame *x_highlight_frame;
|
17051
|
327
|
|
328 /* The null pixel used for filling a character background with
|
|
329 background color of a gc. */
|
|
330 Pixmap null_pixel;
|
24990
|
331
|
|
332 /* The gray pixmap. */
|
|
333 Pixmap gray;
|
|
334
|
|
335 /* Cache of images. */
|
|
336 struct image_cache *image_cache;
|
27501
|
337
|
|
338 #ifdef HAVE_X_I18N
|
|
339 /* XIM (X Input method). */
|
|
340 XIM xim;
|
|
341 XIMStyles *xim_styles;
|
|
342 #endif
|
32608
|
343
|
|
344 /* If non-null, a cache of the colors in the color map. Don't
|
|
345 use this directly, call x_color_cells instead. */
|
|
346 XColor *color_cells;
|
|
347 int ncolor_cells;
|
9013
|
348 };
|
9655
|
349
|
30321
|
350 /* This checks to make sure we have a display. */
|
|
351 extern void check_x P_ ((void));
|
|
352
|
|
353 extern struct frame *x_window_to_frame P_ ((struct x_display_info *, int));
|
|
354
|
|
355 #ifdef USE_X_TOOLKIT
|
|
356 extern struct frame *x_any_window_to_frame P_ ((struct x_display_info *, int));
|
|
357 extern struct frame *x_non_menubar_window_to_frame P_ ((struct x_display_info *, int));
|
|
358 extern struct frame *x_top_window_to_frame P_ ((struct x_display_info *, int));
|
|
359 #endif
|
|
360
|
9655
|
361 /* This is a chain of structures for all the X displays currently in use. */
|
|
362 extern struct x_display_info *x_display_list;
|
|
363
|
9692
|
364 /* This is a list of cons cells, each of the form (NAME . FONT-LIST-CACHE),
|
|
365 one for each element of x_display_list and in the same order.
|
|
366 NAME is the name of the frame.
|
|
367 FONT-LIST-CACHE records previous values returned by x-list-fonts. */
|
|
368 extern Lisp_Object x_display_name_list;
|
|
369
|
17051
|
370 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
|
|
371 extern Lisp_Object Vx_pixel_size_width_font_regexp;
|
|
372
|
23022
|
373 /* A flag to control how to display unibyte 8-bit character. */
|
23037
|
374 extern int unibyte_display_via_language_environment;
|
23022
|
375
|
30321
|
376 extern struct x_display_info *x_display_info_for_display P_ ((Display *));
|
|
377 extern struct x_display_info *x_display_info_for_name P_ ((Lisp_Object));
|
9655
|
378
|
30321
|
379 extern struct x_display_info *x_term_init P_ ((Lisp_Object, char *, char *));
|
17051
|
380
|
24990
|
381 extern Lisp_Object x_list_fonts P_ ((struct frame *, Lisp_Object, int, int));
|
27992
|
382 extern void select_visual P_ ((struct x_display_info *));
|
30321
|
383 extern struct font_info *x_get_font_info P_ ((struct frame *f, int));
|
|
384 extern struct font_info *x_load_font P_ ((struct frame *, char *, int));
|
|
385 extern struct font_info *x_query_font P_ ((struct frame *, char *));
|
|
386 extern void x_find_ccl_program P_ ((struct font_info *));
|
9013
|
387
|
12666
|
388 /* Each X frame object points to its own struct x_output object
|
|
389 in the output_data.x field. The x_output structure contains
|
259
|
390 the information that is specific to X windows. */
|
|
391
|
12666
|
392 struct x_output
|
259
|
393 {
|
|
394 /* Position of the X window (x and y offsets in root window). */
|
|
395 int left_pos;
|
|
396 int top_pos;
|
|
397
|
|
398 /* Border width of the X window as known by the X window system. */
|
|
399 int border_width;
|
|
400
|
7265
|
401 /* Size of the X window in pixels. */
|
259
|
402 int pixel_height, pixel_width;
|
|
403
|
11899
|
404 /* Height of menu bar widget, in pixels.
|
|
405 Zero if not using the X toolkit.
|
|
406 When using the toolkit, this value is not meaningful
|
|
407 if the menubar is turned off. */
|
|
408 int menubar_height;
|
|
409
|
6769
|
410 /* Height of a line, in pixels. */
|
|
411 int line_height;
|
|
412
|
7265
|
413 /* The tiled border used when the mouse is out of the frame. */
|
259
|
414 Pixmap border_tile;
|
|
415
|
7265
|
416 /* Here are the Graphics Contexts for the default font. */
|
259
|
417 GC normal_gc; /* Normal video */
|
|
418 GC reverse_gc; /* Reverse video */
|
|
419 GC cursor_gc; /* cursor drawing */
|
|
420
|
|
421 /* Width of the internal border. This is a line of background color
|
771
|
422 just inside the window's border. When the frame is selected,
|
259
|
423 a highlighting is displayed inside the internal border. */
|
|
424 int internal_border_width;
|
|
425
|
771
|
426 /* The X window used for this frame.
|
|
427 May be zero while the frame object is being created
|
259
|
428 and the X window has not yet been created. */
|
|
429 Window window_desc;
|
|
430
|
|
431 /* The X window used for the bitmap icon;
|
|
432 or 0 if we don't have a bitmap icon. */
|
|
433 Window icon_desc;
|
|
434
|
|
435 /* The X window that is the parent of this X window.
|
10171
|
436 Usually this is a window that was made by the window manager,
|
|
437 but it can be the root window, and it can be explicitly specified
|
|
438 (see the explicit_parent field, below). */
|
259
|
439 Window parent_desc;
|
|
440
|
5656
|
441 #ifdef USE_X_TOOLKIT
|
|
442 /* The widget of this screen. This is the window of a "shell" widget. */
|
|
443 Widget widget;
|
|
444 /* The XmPanedWindows... */
|
|
445 Widget column_widget;
|
|
446 /* The widget of the edit portion of this screen; the window in
|
|
447 "window_desc" is inside of this. */
|
|
448 Widget edit_widget;
|
|
449
|
|
450 Widget menubar_widget;
|
|
451 #endif
|
|
452
|
9544
|
453 /* If >=0, a bitmap index. The indicated bitmap is used for the
|
|
454 icon. */
|
|
455 int icon_bitmap;
|
259
|
456
|
17051
|
457 /* Default ASCII font of this frame. */
|
9655
|
458 XFontStruct *font;
|
259
|
459
|
26878
|
460 /* The baseline offset of the default ASCII font. */
|
|
461 int baseline_offset;
|
17051
|
462
|
|
463 /* If a fontset is specified for this frame instead of font, this
|
|
464 value contains an ID of the fontset, else -1. */
|
|
465 int fontset;
|
|
466
|
259
|
467 /* Pixel values used for various purposes.
|
|
468 border_pixel may be -1 meaning use a gray tile. */
|
9655
|
469 unsigned long background_pixel;
|
|
470 unsigned long foreground_pixel;
|
|
471 unsigned long cursor_pixel;
|
|
472 unsigned long border_pixel;
|
|
473 unsigned long mouse_pixel;
|
|
474 unsigned long cursor_foreground_pixel;
|
259
|
475
|
24990
|
476 /* Foreground color for scroll bars. A value of -1 means use the
|
|
477 default (black for non-toolkit scroll bars). */
|
|
478 unsigned long scroll_bar_foreground_pixel;
|
|
479
|
|
480 /* Background color for scroll bars. A value of -1 means use the
|
|
481 default (background color of the frame for non-toolkit scroll
|
|
482 bars). */
|
|
483 unsigned long scroll_bar_background_pixel;
|
|
484
|
259
|
485 /* Descriptor for the cursor in use for this window. */
|
|
486 Cursor text_cursor;
|
|
487 Cursor nontext_cursor;
|
|
488 Cursor modeline_cursor;
|
6758
|
489 Cursor cross_cursor;
|
24990
|
490 Cursor busy_cursor;
|
|
491
|
|
492 /* Window whose cursor is busy_cursor. This window is temporarily
|
|
493 mapped to display a busy-cursor. */
|
|
494 Window busy_window;
|
|
495
|
|
496 /* Non-zero means busy cursor is currently displayed. */
|
|
497 unsigned busy_p : 1;
|
259
|
498
|
7265
|
499 /* Flag to set when the X window needs to be completely repainted. */
|
259
|
500 int needs_exposure;
|
|
501
|
1821
|
502 /* What kind of text cursor is drawn in this window right now?
|
|
503 (If there is no cursor (phys_cursor_x < 0), then this means nothing.) */
|
|
504 enum text_cursor_kinds current_cursor;
|
|
505
|
|
506 /* What kind of text cursor should we draw in the future?
|
|
507 This should always be filled_box_cursor or bar_cursor. */
|
|
508 enum text_cursor_kinds desired_cursor;
|
999
|
509
|
10741
|
510 /* Width of bar cursor (if we are using that). */
|
|
511 int cursor_width;
|
|
512
|
999
|
513 /* These are the current window manager hints. It seems that
|
|
514 XSetWMHints, when presented with an unset bit in the `flags'
|
|
515 member of the hints structure, does not leave the corresponding
|
|
516 attribute unchanged; rather, it resets that attribute to its
|
|
517 default value. For example, unless you set the `icon_pixmap'
|
|
518 field and the `IconPixmapHint' bit, XSetWMHints will forget what
|
|
519 your icon pixmap was. This is rather troublesome, since some of
|
|
520 the members (for example, `input' and `icon_pixmap') want to stay
|
|
521 the same throughout the execution of Emacs. So, we keep this
|
|
522 structure around, just leaving values in it and adding new bits
|
|
523 to the mask as we go. */
|
|
524 XWMHints wm_hints;
|
1721
|
525
|
|
526 /* The size of the extra width currently allotted for vertical
|
1994
|
527 scroll bars, in pixels. */
|
|
528 int vertical_scroll_bar_extra;
|
2394
|
529
|
24990
|
530 /* The extra width currently allotted for the areas in which
|
|
531 truncation marks, continuation marks, and overlay arrows are
|
|
532 displayed. */
|
|
533 int flags_areas_extra;
|
6933
|
534
|
|
535 /* This is the gravity value for the specified window position. */
|
|
536 int win_gravity;
|
7265
|
537
|
|
538 /* The geometry flags for this window. */
|
|
539 int size_hint_flags;
|
9013
|
540
|
|
541 /* This is the Emacs structure for the X display this frame is on. */
|
9655
|
542 struct x_display_info *display_info;
|
10171
|
543
|
12658
|
544 /* This is a button event that wants to activate the menubar.
|
15709
|
545 We save it here until the command loop gets to think about it. */
|
|
546 XEvent *saved_menu_event;
|
12658
|
547
|
|
548 /* This is the widget id used for this frame's menubar in lwlib. */
|
|
549 #ifdef USE_X_TOOLKIT
|
|
550 int id;
|
|
551 #endif
|
|
552
|
10171
|
553 /* Nonzero means our parent is another application's window
|
|
554 and was explicitly specified. */
|
|
555 char explicit_parent;
|
12191
|
556
|
|
557 /* Nonzero means tried already to make this frame visible. */
|
|
558 char asked_for_visible;
|
13226
|
559
|
18073
|
560 /* Nonzero if this frame was ever previously visible. */
|
|
561 char has_been_visible;
|
|
562
|
13226
|
563 #ifdef HAVE_X_I18N
|
|
564 /* Input context (currently, this means Compose key handler setup). */
|
|
565 XIC xic;
|
27501
|
566 XIMStyle xic_style;
|
|
567 XFontSet xic_xfs;
|
13226
|
568 #endif
|
1040
|
569
|
24990
|
570 /* Relief GCs, colors etc. */
|
|
571 struct relief
|
|
572 {
|
|
573 GC gc;
|
|
574 unsigned long pixel;
|
|
575 int allocated_p;
|
|
576 }
|
|
577 black_relief, white_relief;
|
3883
|
578
|
24990
|
579 /* The background for which the above relief GCs were set up.
|
|
580 They are changed only when a different background is involved. */
|
|
581 unsigned long relief_background;
|
|
582 };
|
2394
|
583
|
22934
|
584 /* Return the X window used for displaying data in frame F. */
|
12666
|
585 #define FRAME_X_WINDOW(f) ((f)->output_data.x->window_desc)
|
1040
|
586
|
22934
|
587 /* Return the outermost X window associated with the frame F. */
|
|
588 #ifdef USE_X_TOOLKIT
|
|
589 #define FRAME_OUTER_WINDOW(f) (XtWindow ((f)->output_data.x->widget))
|
|
590 #else
|
|
591 #define FRAME_OUTER_WINDOW(f) (FRAME_X_WINDOW (f))
|
|
592 #endif
|
|
593
|
12666
|
594 #define FRAME_FONT(f) ((f)->output_data.x->font)
|
17051
|
595 #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>
diff
changeset
|
596 #define FRAME_INTERNAL_BORDER_WIDTH(f) ((f)->output_data.x->internal_border_width)
|
27501
|
597 #define FRAME_MENUBAR_HEIGHT(f) ((f)->output_data.x->menubar_height)
|
13420
72e8212db4d9
(FRAME_INTERNAL_BORDER_WIDTH, FRAME_LINE_HEIGHT): New macros.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
598 #define FRAME_LINE_HEIGHT(f) ((f)->output_data.x->line_height)
|
9547
|
599
|
24990
|
600 /* Width of the default font of frame F. Must be defined by each
|
|
601 terminal specific header. */
|
|
602 #define FRAME_DEFAULT_FONT_WIDTH(F) FONT_WIDTH (FRAME_FONT (F))
|
|
603
|
9655
|
604 /* This gives the x_display_info structure for the display F is on. */
|
12666
|
605 #define FRAME_X_DISPLAY_INFO(f) ((f)->output_data.x->display_info)
|
9013
|
606
|
|
607 /* This is the `Display *' which frame F is on. */
|
9655
|
608 #define FRAME_X_DISPLAY(f) (FRAME_X_DISPLAY_INFO (f)->display)
|
|
609
|
|
610 /* This is the `Screen *' which frame F is on. */
|
|
611 #define FRAME_X_SCREEN(f) (FRAME_X_DISPLAY_INFO (f)->screen)
|
9013
|
612
|
27986
|
613 /* This is the Visual which frame F is on. */
|
|
614 #define FRAME_X_VISUAL(f) FRAME_X_DISPLAY_INFO (f)->visual
|
|
615
|
|
616 /* This is the Colormap which frame F uses. */
|
|
617 #define FRAME_X_COLORMAP(f) FRAME_X_DISPLAY_INFO (f)->cmap
|
|
618
|
17051
|
619 /* This is the 'font_info *' which frame F has. */
|
|
620 #define FRAME_X_FONT_TABLE(f) (FRAME_X_DISPLAY_INFO (f)->font_table)
|
|
621
|
1821
|
622 /* These two really ought to be called FRAME_PIXEL_{WIDTH,HEIGHT}. */
|
12666
|
623 #define PIXEL_WIDTH(f) ((f)->output_data.x->pixel_width)
|
|
624 #define PIXEL_HEIGHT(f) ((f)->output_data.x->pixel_height)
|
1821
|
625
|
12666
|
626 #define FRAME_DESIRED_CURSOR(f) ((f)->output_data.x->desired_cursor)
|
1821
|
627
|
13315
|
628 #define FRAME_XIC(f) ((f)->output_data.x->xic)
|
27501
|
629 #define FRAME_X_XIM(f) (FRAME_X_DISPLAY_INFO (f)->xim)
|
|
630 #define FRAME_X_XIM_STYLES(f) (FRAME_X_DISPLAY_INFO (f)->xim_styles)
|
|
631 #define FRAME_XIC_STYLE(f) ((f)->output_data.x->xic_style)
|
|
632 #define FRAME_XIC_FONTSET(f) ((f)->output_data.x->xic_xfs)
|
24990
|
633
|
|
634 /* Value is the smallest width of any character in any font on frame F. */
|
|
635
|
|
636 #define FRAME_SMALLEST_CHAR_WIDTH(F) \
|
|
637 FRAME_X_DISPLAY_INFO(F)->smallest_char_width
|
|
638
|
|
639 /* Value is the smallest height of any font on frame F. */
|
|
640
|
|
641 #define FRAME_SMALLEST_FONT_HEIGHT(F) \
|
|
642 FRAME_X_DISPLAY_INFO(F)->smallest_font_height
|
|
643
|
|
644 /* Return a pointer to the image cache of frame F. */
|
|
645
|
|
646 #define FRAME_X_IMAGE_CACHE(F) FRAME_X_DISPLAY_INFO ((F))->image_cache
|
|
647
|
|
648
|
|
649 /* Pixel width of the bitmaps drawn to indicate truncation,
|
|
650 continuation etc. */
|
|
651
|
|
652 #define FRAME_FLAGS_BITMAP_WIDTH(f) 8
|
|
653 #define FRAME_FLAGS_BITMAP_HEIGHT(f) 8
|
|
654
|
25466
|
655 /* Total width of a areas reserved for drawing truncation bitmaps,
|
24990
|
656 continuation bitmaps and alike. The width is in canonical char
|
|
657 units of the frame. This must currently be the case because window
|
|
658 sizes aren't pixel values. If it weren't the case, we wouldn't be
|
|
659 able to split windows horizontally nicely. */
|
|
660
|
25466
|
661 #define FRAME_X_FLAGS_AREA_COLS(F) \
|
|
662 ((2 * FRAME_FLAGS_BITMAP_WIDTH ((F)) + CANON_X_UNIT ((F)) - 1) \
|
24990
|
663 / CANON_X_UNIT ((F)))
|
|
664
|
25466
|
665 /* Total width of flags areas in pixels. */
|
|
666
|
24990
|
667 #define FRAME_X_FLAGS_AREA_WIDTH(F) \
|
|
668 (FRAME_X_FLAGS_AREA_COLS ((F)) * CANON_X_UNIT ((F)))
|
|
669
|
25466
|
670 /* Pixel-width of the left flags area. */
|
|
671
|
|
672 #define FRAME_X_LEFT_FLAGS_AREA_WIDTH(F) \
|
|
673 (FRAME_X_FLAGS_AREA_WIDTH (F) / 2)
|
|
674
|
|
675 /* Pixel-width of the right flags area. Note that we are doing
|
|
676 integer arithmetic here, so don't loose a pixel if the total
|
|
677 width is an odd number. */
|
|
678
|
|
679 #define FRAME_X_RIGHT_FLAGS_AREA_WIDTH(F) \
|
|
680 (FRAME_X_FLAGS_AREA_WIDTH (F) - FRAME_X_FLAGS_AREA_WIDTH (F) / 2)
|
|
681
|
|
682
|
259
|
683
|
1994
|
684 /* X-specific scroll bar stuff. */
|
1721
|
685
|
1994
|
686 /* We represent scroll bars as lisp vectors. This allows us to place
|
1788
|
687 references to them in windows without worrying about whether we'll
|
1994
|
688 end up with windows referring to dead scroll bars; the garbage
|
1788
|
689 collector will free it when its time comes.
|
|
690
|
1994
|
691 We use struct scroll_bar as a template for accessing fields of the
|
1788
|
692 vector. */
|
|
693
|
33605
|
694 struct scroll_bar
|
|
695 {
|
1788
|
696 /* These fields are shared by all vectors. */
|
8837
|
697 EMACS_INT size_from_Lisp_Vector_struct;
|
1788
|
698 struct Lisp_Vector *next_from_Lisp_Vector_struct;
|
|
699
|
1994
|
700 /* The window we're a scroll bar for. */
|
1788
|
701 Lisp_Object window;
|
1721
|
702
|
1994
|
703 /* The next and previous in the chain of scroll bars in this frame. */
|
1788
|
704 Lisp_Object next, prev;
|
1721
|
705
|
1994
|
706 /* The X window representing this scroll bar. Since this is a full
|
1788
|
707 32-bit quantity, we store it split into two 32-bit values. */
|
|
708 Lisp_Object x_window_low, x_window_high;
|
1721
|
709
|
1994
|
710 /* The position and size of the scroll bar in pixels, relative to the
|
1721
|
711 frame. */
|
1788
|
712 Lisp_Object top, left, width, height;
|
|
713
|
|
714 /* The starting and ending positions of the handle, relative to the
|
|
715 handle area (i.e. zero is the top position, not
|
1994
|
716 SCROLL_BAR_TOP_BORDER). If they're equal, that means the handle
|
1788
|
717 hasn't been drawn yet.
|
1721
|
718
|
1788
|
719 These are not actually the locations where the beginning and end
|
|
720 are drawn; in order to keep handles from becoming invisible when
|
|
721 editing large files, we establish a minimum height by always
|
1994
|
722 drawing handle bottoms VERTICAL_SCROLL_BAR_MIN_HANDLE pixels below
|
1788
|
723 where they would be normally; the bottom and top are in a
|
|
724 different co-ordinate system. */
|
|
725 Lisp_Object start, end;
|
1721
|
726
|
1994
|
727 /* If the scroll bar handle is currently being dragged by the user,
|
1721
|
728 this is the number of pixels from the top of the handle to the
|
|
729 place where the user grabbed it. If the handle isn't currently
|
1788
|
730 being dragged, this is Qnil. */
|
|
731 Lisp_Object dragging;
|
1721
|
732 };
|
|
733
|
1994
|
734 /* The number of elements a vector holding a struct scroll_bar needs. */
|
9961
|
735 #define SCROLL_BAR_VEC_SIZE \
|
|
736 ((sizeof (struct scroll_bar) \
|
|
737 - sizeof (EMACS_INT) - sizeof (struct Lisp_Vector *)) \
|
1788
|
738 / sizeof (Lisp_Object))
|
|
739
|
1994
|
740 /* Turning a lisp vector value into a pointer to a struct scroll_bar. */
|
9961
|
741 #define XSCROLL_BAR(vec) ((struct scroll_bar *) XVECTOR (vec))
|
1788
|
742
|
|
743
|
|
744 /* Building a 32-bit C integer from two 16-bit lisp integers. */
|
1994
|
745 #define SCROLL_BAR_PACK(low, high) (XINT (high) << 16 | XINT (low))
|
1788
|
746
|
|
747 /* Setting two lisp integers to the low and high words of a 32-bit C int. */
|
1994
|
748 #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>
diff
changeset
|
749 (XSETINT ((low), (int32) & 0xffff), \
|
df555d80f093
(SCROLL_BAR_UNPACK): Use new accessor macros instead of calling XSET directly.
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
750 XSETINT ((high), ((int32) >> 16) & 0xffff))
|
1788
|
751
|
|
752
|
1994
|
753 /* Extract the X window id of the scroll bar from a struct scroll_bar. */
|
|
754 #define SCROLL_BAR_X_WINDOW(ptr) \
|
|
755 ((Window) SCROLL_BAR_PACK ((ptr)->x_window_low, (ptr)->x_window_high))
|
1788
|
756
|
1994
|
757 /* Store a window id in a struct scroll_bar. */
|
|
758 #define SET_SCROLL_BAR_X_WINDOW(ptr, id) \
|
|
759 (SCROLL_BAR_UNPACK ((ptr)->x_window_low, (ptr)->x_window_high, (int) id))
|
1788
|
760
|
33605
|
761 /* Extract the X widget of the scroll bar from a struct scroll_bar.
|
|
762 XtWindowToWidget should be fast enough since Xt uses a hash table
|
|
763 to map windows to widgets. */
|
|
764
|
|
765 #define SCROLL_BAR_X_WIDGET(dpy, ptr) \
|
|
766 XtWindowToWidget (dpy, SCROLL_BAR_X_WINDOW (ptr))
|
1788
|
767
|
24990
|
768 /* Store a widget id in a struct scroll_bar. */
|
33605
|
769
|
|
770 #define SET_SCROLL_BAR_X_WIDGET(ptr, w) \
|
|
771 do { \
|
|
772 Window window = XtWindow (w); \
|
|
773 SET_SCROLL_BAR_X_WINDOW (ptr, window); \
|
|
774 } while (0)
|
24990
|
775
|
1721
|
776
|
1994
|
777 /* Return the inside width of a vertical scroll bar, given the outside
|
1788
|
778 width. */
|
16252
|
779 #define VERTICAL_SCROLL_BAR_INSIDE_WIDTH(f, width) \
|
|
780 ((width) \
|
|
781 - VERTICAL_SCROLL_BAR_LEFT_BORDER \
|
|
782 - VERTICAL_SCROLL_BAR_RIGHT_BORDER \
|
16268
|
783 - VERTICAL_SCROLL_BAR_WIDTH_TRIM * 2)
|
1721
|
784
|
1788
|
785 /* Return the length of the rectangle within which the top of the
|
|
786 handle must stay. This isn't equivalent to the inside height,
|
1994
|
787 because the scroll bar handle has a minimum height.
|
1788
|
788
|
1994
|
789 This is the real range of motion for the scroll bar, so when we're
|
|
790 scaling buffer positions to scroll bar positions, we use this, not
|
|
791 VERTICAL_SCROLL_BAR_INSIDE_HEIGHT. */
|
16252
|
792 #define VERTICAL_SCROLL_BAR_TOP_RANGE(f, height) \
|
|
793 (VERTICAL_SCROLL_BAR_INSIDE_HEIGHT (f, height) - VERTICAL_SCROLL_BAR_MIN_HANDLE)
|
1788
|
794
|
1994
|
795 /* Return the inside height of vertical scroll bar, given the outside
|
|
796 height. See VERTICAL_SCROLL_BAR_TOP_RANGE too. */
|
16252
|
797 #define VERTICAL_SCROLL_BAR_INSIDE_HEIGHT(f, height) \
|
1994
|
798 ((height) - VERTICAL_SCROLL_BAR_TOP_BORDER - VERTICAL_SCROLL_BAR_BOTTOM_BORDER)
|
1788
|
799
|
|
800
|
1994
|
801 /* Border widths for scroll bars.
|
1788
|
802
|
1994
|
803 Scroll bar windows don't have any X borders; their border width is
|
1788
|
804 set to zero, and we redraw borders ourselves. This makes the code
|
|
805 a bit cleaner, since we don't have to convert between outside width
|
|
806 (used when relating to the rest of the screen) and inside width
|
1994
|
807 (used when sizing and drawing the scroll bar window itself).
|
1788
|
808
|
3591
|
809 The handle moves up and down/back and forth in a rectangle inset
|
1994
|
810 from the edges of the scroll bar. These are widths by which we
|
|
811 inset the handle boundaries from the scroll bar edges. */
|
|
812 #define VERTICAL_SCROLL_BAR_LEFT_BORDER (2)
|
6357
|
813 #define VERTICAL_SCROLL_BAR_RIGHT_BORDER (2)
|
1994
|
814 #define VERTICAL_SCROLL_BAR_TOP_BORDER (2)
|
|
815 #define VERTICAL_SCROLL_BAR_BOTTOM_BORDER (2)
|
1788
|
816
|
1994
|
817 /* Minimum lengths for scroll bar handles, in pixels. */
|
|
818 #define VERTICAL_SCROLL_BAR_MIN_HANDLE (5)
|
1721
|
819
|
16268
|
820 /* Trimming off a few pixels from each side prevents
|
16252
|
821 text from glomming up against the scroll bar */
|
25496
|
822 #define VERTICAL_SCROLL_BAR_WIDTH_TRIM (0)
|
16252
|
823
|
1721
|
824
|
|
825 /* Manipulating pixel sizes and character sizes.
|
|
826 Knowledge of which factors affect the overall size of the window should
|
|
827 be hidden in these macros, if that's possible.
|
|
828
|
9168
|
829 Return the upper/left pixel position of the character cell on frame F
|
1788
|
830 at ROW/COL. */
|
|
831 #define CHAR_TO_PIXEL_ROW(f, row) \
|
12666
|
832 ((f)->output_data.x->internal_border_width \
|
|
833 + (row) * (f)->output_data.x->line_height)
|
1788
|
834 #define CHAR_TO_PIXEL_COL(f, col) \
|
12666
|
835 ((f)->output_data.x->internal_border_width \
|
|
836 + (col) * FONT_WIDTH ((f)->output_data.x->font))
|
1788
|
837
|
|
838 /* Return the pixel width/height of frame F if it has
|
|
839 WIDTH columns/HEIGHT rows. */
|
1721
|
840 #define CHAR_TO_PIXEL_WIDTH(f, width) \
|
1788
|
841 (CHAR_TO_PIXEL_COL (f, width) \
|
12666
|
842 + (f)->output_data.x->vertical_scroll_bar_extra \
|
24990
|
843 + (f)->output_data.x->flags_areas_extra \
|
12666
|
844 + (f)->output_data.x->internal_border_width)
|
1721
|
845 #define CHAR_TO_PIXEL_HEIGHT(f, height) \
|
1788
|
846 (CHAR_TO_PIXEL_ROW (f, height) \
|
12666
|
847 + (f)->output_data.x->internal_border_width)
|
1788
|
848
|
1721
|
849
|
1788
|
850 /* Return the row/column (zero-based) of the character cell containing
|
|
851 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>
diff
changeset
|
852 #define PIXEL_TO_CHAR_ROW(f, row) \
|
12666
|
853 (((row) - (f)->output_data.x->internal_border_width) \
|
|
854 / (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>
diff
changeset
|
855 #define PIXEL_TO_CHAR_COL(f, col) \
|
12666
|
856 (((col) - (f)->output_data.x->internal_border_width) \
|
|
857 / FONT_WIDTH ((f)->output_data.x->font))
|
1721
|
858
|
1788
|
859 /* How many columns/rows of text can we fit in WIDTH/HEIGHT pixels on
|
|
860 frame F? */
|
|
861 #define PIXEL_TO_CHAR_WIDTH(f, width) \
|
|
862 (PIXEL_TO_CHAR_COL (f, ((width) \
|
12666
|
863 - (f)->output_data.x->internal_border_width \
|
24990
|
864 - (f)->output_data.x->flags_areas_extra \
|
12666
|
865 - (f)->output_data.x->vertical_scroll_bar_extra)))
|
1721
|
866 #define PIXEL_TO_CHAR_HEIGHT(f, height) \
|
1788
|
867 (PIXEL_TO_CHAR_ROW (f, ((height) \
|
12666
|
868 - (f)->output_data.x->internal_border_width)))
|
24990
|
869
|
2196
|
870
|
|
871 /* If a struct input_event has a kind which is selection_request_event
|
|
872 or selection_clear_event, then its contents are really described
|
|
873 by this structure. */
|
|
874
|
|
875 /* For an event of kind selection_request_event,
|
14164
|
876 this structure really describes the contents.
|
|
877 **Don't make this struct longer!**
|
|
878 If it overlaps the frame_or_window field of struct input_event,
|
|
879 that will cause GC to crash. */
|
2196
|
880 struct selection_input_event
|
|
881 {
|
|
882 int kind;
|
|
883 Display *display;
|
14030
|
884 /* We spell it with an "o" here because X does. */
|
|
885 Window requestor;
|
2196
|
886 Atom selection, target, property;
|
|
887 Time time;
|
|
888 };
|
|
889
|
|
890 #define SELECTION_EVENT_DISPLAY(eventp) \
|
|
891 (((struct selection_input_event *) (eventp))->display)
|
14030
|
892 /* We spell it with an "o" here because X does. */
|
|
893 #define SELECTION_EVENT_REQUESTOR(eventp) \
|
|
894 (((struct selection_input_event *) (eventp))->requestor)
|
2196
|
895 #define SELECTION_EVENT_SELECTION(eventp) \
|
|
896 (((struct selection_input_event *) (eventp))->selection)
|
|
897 #define SELECTION_EVENT_TARGET(eventp) \
|
|
898 (((struct selection_input_event *) (eventp))->target)
|
|
899 #define SELECTION_EVENT_PROPERTY(eventp) \
|
|
900 (((struct selection_input_event *) (eventp))->property)
|
|
901 #define SELECTION_EVENT_TIME(eventp) \
|
|
902 (((struct selection_input_event *) (eventp))->time)
|
3077
|
903
|
|
904
|
24990
|
905 struct window;
|
|
906 struct glyph_matrix;
|
21515
|
907 struct frame;
|
|
908 struct input_event;
|
28784
|
909 struct face;
|
|
910 struct image;
|
21515
|
911
|
24990
|
912 /* From xselect.c. */
|
3077
|
913
|
24990
|
914 void x_handle_selection_notify P_ ((XSelectionEvent *));
|
|
915 void x_handle_property_notify P_ ((XPropertyEvent *));
|
3077
|
916
|
24990
|
917 /* From xfns.c. */
|
3077
|
918
|
24990
|
919 Lisp_Object display_x_get_resource P_ ((struct x_display_info *,
|
|
920 Lisp_Object, Lisp_Object,
|
|
921 Lisp_Object, Lisp_Object));
|
|
922 struct frame *check_x_frame P_ ((Lisp_Object));
|
|
923 EXFUN (Fx_display_color_p, 1);
|
|
924 EXFUN (Fx_display_grayscale_p, 1);
|
28784
|
925 int image_ascent P_ ((struct image *, struct face *));
|
3077
|
926
|
24990
|
927 /* From xrdb.c. */
|
3077
|
928
|
24990
|
929 char *x_get_string_resource P_ ((XrmDatabase, char *, char *));
|
|
930 char *x_get_customization_string P_ ((XrmDatabase, char *, char *));
|
|
931 XrmDatabase x_load_resources P_ ((Display *, char *, char *, char *));
|
|
932 int x_get_resource P_ ((XrmDatabase, char *, char *,
|
|
933 XrmRepresentation, XrmValue *));
|
|
934 void x_delete_display P_ ((struct x_display_info *));
|
|
935 void x_make_frame_visible P_ ((struct frame *));
|
|
936 void x_iconify_frame P_ ((struct frame *));
|
|
937 void x_wm_set_size_hint P_ ((struct frame *, long, int));
|
|
938 void x_set_offset P_ ((struct frame *, int, int, int));
|
|
939 void x_wm_set_icon_position P_ ((struct frame *, int, int));
|
|
940 int x_catch_errors P_ ((Display *));
|
|
941 int x_had_errors_p P_ ((Display *));
|
|
942 void x_uncatch_errors P_ ((Display *, int));
|
|
943 void x_check_errors P_ ((Display *, char *));
|
|
944 int x_text_icon P_ ((struct frame *, char *));
|
|
945 int x_bitmap_icon P_ ((struct frame *, Lisp_Object));
|
|
946 void x_set_window_size P_ ((struct frame *, int, int, int));
|
|
947 void x_wm_set_window_state P_ ((struct frame *, int));
|
25530
|
948 int x_alloc_nearest_color P_ ((struct frame *, Colormap, XColor *));
|
21515
|
949
|
24990
|
950 extern void pixel_to_glyph_coords P_ ((struct frame *, int, int,
|
|
951 int *, int *, XRectangle *, int));
|
21515
|
952
|
|
953 /* Defined in xterm.c */
|
|
954
|
24990
|
955 extern void clear_mouse_face P_ ((struct x_display_info *));
|
21515
|
956 extern void cancel_mouse_face P_ ((struct frame *));
|
|
957 extern void x_scroll_bar_clear P_ ((struct frame *));
|
|
958 extern void x_start_queuing_selection_requests P_ ((Display *));
|
|
959 extern void x_stop_queuing_selection_requests P_ ((Display *));
|
|
960 extern void x_update_cursor P_ ((struct frame *, int));
|
|
961 extern int x_text_icon P_ ((struct frame *, char *));
|
|
962 extern int x_bitmap_icon P_ ((struct frame *, Lisp_Object));
|
|
963 extern int x_catch_errors P_ ((Display *));
|
|
964 extern void x_check_errors P_ ((Display *, char *));
|
|
965 extern int x_had_errors_p P_ ((Display *));
|
|
966 extern void x_uncatch_errors P_ ((Display *, int));
|
|
967 extern Lisp_Object x_new_font P_ ((struct frame *, char *));
|
|
968 extern Lisp_Object x_new_fontset P_ ((struct frame *, char *));
|
|
969 extern void x_set_offset P_ ((struct frame *, int, int, int));
|
|
970 extern void x_set_window_size P_ ((struct frame *, int, int, int));
|
|
971 extern void x_set_mouse_position P_ ((struct frame *, int, int));
|
|
972 extern void x_set_mouse_pixel_position P_ ((struct frame *, int, int));
|
|
973 extern void x_raise_frame P_ ((struct frame *));
|
|
974 extern void x_lower_frame P_ ((struct frame *));
|
|
975 extern void x_make_frame_visible P_ ((struct frame *));
|
|
976 extern void x_make_frame_invisible P_ ((struct frame *));
|
|
977 extern void x_iconify_frame P_ ((struct frame *));
|
|
978 extern void x_destroy_window P_ ((struct frame *));
|
|
979 extern void x_wm_set_size_hint P_ ((struct frame *, long, int));
|
|
980 extern void x_wm_set_window_state P_ ((struct frame *, int));
|
|
981 extern void x_wm_set_icon_pixmap P_ ((struct frame *, int));
|
|
982 extern void x_wm_set_icon_position P_ ((struct frame *, int, int));
|
|
983 extern void x_delete_display P_ ((struct x_display_info *));
|
|
984 extern void x_initialize P_ ((void));
|
28353
|
985 extern void x_display_cursor P_ ((struct window *, int, int, int, int, int));
|
|
986 extern void x_update_cursor P_ ((struct frame *, int));
|
|
987 extern unsigned long x_copy_color P_ ((struct frame *, unsigned long));
|
29867
|
988 #ifdef USE_X_TOOLKIT
|
|
989 extern XtAppContext Xt_app_con;
|
|
990 #endif
|
32608
|
991 extern void x_query_colors P_ ((struct frame *f, XColor *, int));
|
|
992 extern void x_query_color P_ ((struct frame *f, XColor *));
|
21515
|
993
|
|
994 /* Defined in xselect.c */
|
|
995
|
|
996 extern void x_handle_property_notify P_ ((XPropertyEvent *));
|
|
997 extern void x_handle_selection_notify P_ ((XSelectionEvent *));
|
|
998 extern void x_handle_selection_request P_ ((struct input_event *));
|
|
999 extern void x_handle_selection_clear P_ ((struct input_event *));
|
|
1000 extern void x_clear_frame_selections P_ ((struct frame *));
|
|
1001
|
|
1002 /* Defined in xfns.c */
|
|
1003
|
|
1004 extern int have_menus_p P_ ((void));
|
|
1005 extern int x_bitmap_height P_ ((struct frame *, int));
|
|
1006 extern int x_bitmap_width P_ ((struct frame *, int));
|
|
1007 extern int x_bitmap_pixmap P_ ((struct frame *, int));
|
|
1008 extern void x_reference_bitmap P_ ((struct frame *, int));
|
|
1009 extern int x_create_bitmap_from_data P_ ((struct frame *, char *,
|
|
1010 unsigned int, unsigned int));
|
|
1011 extern int x_create_bitmap_from_file P_ ((struct frame *, Lisp_Object));
|
|
1012 extern void x_destroy_bitmap P_ ((struct frame *, int));
|
|
1013 extern void x_set_frame_parameters P_ ((struct frame *, Lisp_Object));
|
|
1014 extern void x_real_positions P_ ((struct frame *, int *, int *));
|
|
1015 extern void x_report_frame_params P_ ((struct frame *, Lisp_Object *));
|
|
1016 extern int defined_color P_ ((struct frame *, char *, XColor *, int));
|
|
1017 extern void x_set_border_pixel P_ ((struct frame *, int));
|
|
1018 extern void x_set_menu_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object));
|
30353
|
1019 extern unsigned char * x_encode_text P_ ((Lisp_Object, Lisp_Object,
|
|
1020 int *, int *));
|
21515
|
1021 extern void x_implicitly_set_name P_ ((struct frame *, Lisp_Object, Lisp_Object));
|
27501
|
1022 extern void create_frame_xic P_ ((struct frame *));
|
|
1023 extern void destroy_frame_xic P_ ((struct frame *));
|
|
1024 extern void xic_set_preeditarea P_ ((struct window *, int, int));
|
|
1025 extern void xic_set_statusarea P_ ((struct frame *));
|
|
1026 extern void xic_set_xfontset P_ ((struct frame *, char *));
|
21515
|
1027 extern int x_pixel_width P_ ((struct frame *));
|
|
1028 extern int x_pixel_height P_ ((struct frame *));
|
|
1029 extern int x_char_width P_ ((struct frame *));
|
|
1030 extern int x_char_height P_ ((struct frame *));
|
|
1031 extern int x_screen_planes P_ ((struct frame *));
|
|
1032 extern void x_sync P_ ((struct frame *));
|
28353
|
1033 extern enum text_cursor_kinds x_specified_cursor_type P_ ((Lisp_Object, int *));
|
29780
|
1034 extern int x_defined_color P_ ((struct frame *, char *, XColor *, int));
|
|
1035 #ifdef HAVE_X_I18N
|
|
1036 extern void free_frame_xic P_ ((struct frame *));
|
|
1037 #endif
|
|
1038 extern void x_set_tool_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object));
|
21515
|
1039
|
|
1040 /* Defined in xfaces.c */
|
24990
|
1041
|
21515
|
1042 extern int frame_update_line_height P_ ((struct frame *));
|
|
1043 extern int compute_glyph_face P_ ((struct frame *, int, int));
|
|
1044 extern int compute_glyph_face_1 P_ ((struct frame *, Lisp_Object, int));
|
|
1045
|
|
1046 /* Defined in xmenu.c */
|
24990
|
1047
|
21515
|
1048 extern void x_activate_menubar P_ ((struct frame *));
|
|
1049 extern int popup_activated P_ ((void));
|
|
1050 extern void initialize_frame_menubar P_ ((struct frame *));
|
|
1051
|
|
1052 /* Defined in widget.c */
|
24990
|
1053
|
23034
|
1054 #ifdef USE_X_TOOLKIT
|
21515
|
1055 extern void widget_store_internal_border P_ ((Widget));
|
23034
|
1056 #endif
|