Mercurial > emacs
annotate src/xterm.h @ 1537:8531c6d96e5c
(make-directory): Renamed from make-directory-path.
Optional argument says whether to create parent dirs.
Invoke file-name handler here.
(after-find-file): Delete code that offers to create dir.
Instead, just print a message.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 03 Nov 1992 07:07:02 +0000 |
parents | 86202f01266d |
children | 6ba3bca4c3de |
rev | line source |
---|---|
259 | 1 /* Definitions and headers for communication with X protocol. |
2 Copyright (C) 1989 Free Software Foundation, Inc. | |
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 | |
8 the Free Software Foundation; either version 1, or (at your option) | |
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 | |
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ | |
19 | |
20 #ifdef HAVE_X11 | |
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 #else | |
28 #include <X/Xlib.h> | |
29 #endif /* HAVE_X11 */ | |
30 | |
31 /* Define a queue for X-events. One such queue is used for mouse clicks. | |
32 Another is used for expose events. */ | |
33 | |
34 #define EVENT_BUFFER_SIZE 64 | |
35 | |
36 /* Max and Min sizes in character columns. */ | |
37 #define MINWIDTH 10 | |
38 #define MINHEIGHT 10 | |
39 #define MAXWIDTH 300 | |
40 #define MAXHEIGHT 80 | |
41 | |
42 #ifdef HAVE_X11 | |
999 | 43 |
1040 | 44 /* HAVE_X11R4 is defined if we have the features of X11R4. It should |
45 be defined when we're using X11R5, since X11R5 has the features of | |
46 X11R4. If, in the future, we find we need more of these flags | |
47 (HAVE_X11R5, for example), code should always be written to test | |
48 the most recent flag first: | |
49 | |
50 #ifdef HAVE_X11R5 | |
51 ... | |
52 #elif HAVE_X11R4 | |
53 ... | |
54 #elif HAVE_X11 | |
55 ... | |
56 #endif | |
57 | |
58 If you ever find yourself writing a "#ifdef HAVE_FOO" clause that | |
59 looks a lot like another one, consider moving the text into a macro | |
60 whose definition is configuration-dependent, but whose usage is | |
61 universal - like the stuff in systime.h. | |
62 | |
63 It turns out that we can auto-detect whether we're being compiled | |
999 | 64 with X11R3 or X11R4 by looking for the flag macros for R4 structure |
65 members that R3 doesn't have. */ | |
66 #ifdef PBaseSize | |
67 #define HAVE_X11R4 | |
68 #endif | |
69 | |
259 | 70 #define PIX_TYPE unsigned long |
71 #define XDISPLAY x_current_display, | |
72 #define XFlushQueue() XFlush(x_current_display) | |
73 #define BLACK_PIX_DEFAULT BlackPixel (x_current_display, \ | |
74 XDefaultScreen (x_current_display)) | |
75 #define WHITE_PIX_DEFAULT WhitePixel (x_current_display, \ | |
76 XDefaultScreen (x_current_display)) | |
77 #define DISPLAY_SCREEN_ARG x_current_display, \ | |
78 XDefaultScreen (x_current_display) | |
79 #define DISPLAY_CELLS DisplayCells (x_current_display, XDefaultScreen (x_current_display)) | |
1258
353663d81b11
* xterm.h (ROOT_WINDOW): Use the DefaultScreen macro, not the
Jim Blandy <jimb@redhat.com>
parents:
1040
diff
changeset
|
80 #define ROOT_WINDOW RootWindow (x_current_display, DefaultScreen (x_current_display)) |
259 | 81 #define FONT_TYPE XFontStruct |
82 #define Color XColor | |
83 | |
84 #define XExposeRegionEvent XExposeEvent | |
85 #define Bitmap Pixmap /* In X11, Bitmaps are are kind of | |
86 Pixmap. */ | |
87 #define WINDOWINFO_TYPE XWindowAttributes | |
88 #define XGetWindowInfo(w, i) XGetWindowAttributes (x_current_display, \ | |
89 (w), (i)) | |
90 #define XGetFont(f) XLoadQueryFont (x_current_display, (f)) | |
91 #define XLoseFont(f) XFreeFont (x_current_display, (f)) | |
92 #define XStuffPending() XPending (x_current_display) | |
93 #define XClear(w) XClearWindow (x_current_display, (w)) | |
94 #define XWarpMousePointer(w,x,y) XWarpPointer (x_current_display, None, w, \ | |
95 0,0,0,0, x, y) | |
96 #define XHandleError XSetErrorHandler | |
97 #define XHandleIOError XSetIOErrorHandler | |
98 | |
99 #define XChangeWindowSize(w,x,y) XResizeWindow(x_current_display,w,x,y) | |
100 | |
101 #define FONT_WIDTH(f) ((f)->max_bounds.width) | |
102 #define FONT_HEIGHT(f) ((f)->ascent + (f)->descent) | |
103 #define FONT_BASE(f) ((f)->ascent) | |
104 | |
105 /* The mask of events that text windows always want to receive. This | |
424 | 106 does not include mouse movement events. It is used when the window |
107 is created (in x_window) and when we ask/unask for mouse movement | |
108 events (in XTmouse_tracking_enable). | |
109 | |
110 We do include ButtonReleases in this set because elisp isn't always | |
111 fast enough to catch them when it wants them, and they're rare | |
112 enough that they don't use much processor time. */ | |
259 | 113 |
114 #define STANDARD_EVENT_SET \ | |
115 (KeyPressMask \ | |
116 | ExposureMask \ | |
117 | ButtonPressMask \ | |
424 | 118 | ButtonReleaseMask \ |
119 | PointerMotionMask \ | |
120 | PointerMotionHintMask \ | |
259 | 121 | StructureNotifyMask \ |
122 | FocusChangeMask \ | |
123 | LeaveWindowMask \ | |
124 | EnterWindowMask \ | |
125 | VisibilityChangeMask) | |
126 | |
127 #else /* X10 */ | |
128 | |
129 #define ConnectionNumber(dpy) dpyno() | |
130 #define PIX_TYPE int | |
131 #define XDISPLAY | |
132 #define XFlushQueue() XFlush() | |
133 #define BLACK_PIX_DEFAULT BlackPixel | |
134 #define WHITE_PIX_DEFAULT WhitePixel | |
135 #define DISPLAY_SCREEN_ARG | |
136 #define DISPLAY_CELLS DisplayCells () | |
137 #define ROOT_WINDOW RootWindow | |
138 #define XFree free | |
139 #define FONT_TYPE FontInfo | |
140 | |
141 #define WINDOWINFO_TYPE WindowInfo | |
142 #define XGetWindowInfo(w, i) XQueryWindow ((w), (i)) | |
143 #define XGetFont(f) XOpenFont ((f)) | |
144 #define XLoseFont(f) XCloseFont ((f)) | |
145 #define XStuffPending() XPending () | |
146 #define XWarpMousePointer(w,x,y) XWarpMouse (w,x,y) | |
147 #define XHandleError XErrorHandler | |
148 #define XHandleIOError XIOErrorHandler | |
149 | |
150 #define FONT_WIDTH(f) ((f)->width) | |
151 #define FONT_HEIGHT(f) ((f)->height) | |
152 #define FONT_BASE(f) ((f)->base) | |
153 | |
154 #define XChangeWindowSize(w,x,y) XChangeWindow(w,x,y) | |
155 | |
156 #endif /* X10 */ | |
157 | |
158 struct event_queue | |
159 { | |
160 int rindex; /* Index at which to fetch next. */ | |
161 int windex; /* Index at which to store next. */ | |
162 XEvent xrep[EVENT_BUFFER_SIZE]; | |
163 }; | |
164 | |
165 /* Queue for mouse clicks. */ | |
166 extern struct event_queue x_mouse_queue; | |
167 | |
168 /* Mechanism for interlocking between main program level | |
169 and input interrupt level. */ | |
170 | |
171 /* Nonzero during a critical section. At such a time, an input interrupt | |
172 does nothing but set `x_pending_input'. */ | |
173 extern int x_input_blocked; | |
174 | |
175 /* Nonzero means an input interrupt has arrived | |
176 during the current critical section. */ | |
177 extern int x_pending_input; | |
178 | |
179 /* Begin critical section. */ | |
180 #define BLOCK_INPUT (x_input_blocked++) | |
181 | |
182 /* End critical section. */ | |
485 | 183 #define UNBLOCK_INPUT \ |
184 (x_input_blocked--, (x_input_blocked < 0 ? (abort (), 0) : 0)) | |
259 | 185 |
186 #define TOTALLY_UNBLOCK_INPUT (x_input_blocked = 0) | |
187 #define UNBLOCK_INPUT_RESIGNAL UNBLOCK_INPUT | |
188 | |
189 /* This is the X connection that we are using. */ | |
190 | |
191 extern Display *x_current_display; | |
192 | |
771 | 193 extern struct frame *x_window_to_frame (); |
259 | 194 |
771 | 195 /* The frame (if any) which has the X window that has keyboard focus. |
196 Zero if none. This is examined by Ffocus_frame in xfns.c */ | |
259 | 197 |
771 | 198 struct frame *x_focus_frame; |
259 | 199 |
200 #ifdef HAVE_X11 | |
201 /* Variables associated with the X display screen this emacs is using. */ | |
202 | |
203 /* How many screens this X display has. */ | |
1531
86202f01266d
* xterm.h (x_screen_count, x_release, x_screen_height,
Jim Blandy <jimb@redhat.com>
parents:
1408
diff
changeset
|
204 extern int x_screen_count; |
259 | 205 |
206 /* The vendor supporting this X server. */ | |
207 extern Lisp_Object Vx_vendor; | |
208 | |
209 /* The vendor's release number for this X server. */ | |
1531
86202f01266d
* xterm.h (x_screen_count, x_release, x_screen_height,
Jim Blandy <jimb@redhat.com>
parents:
1408
diff
changeset
|
210 extern int x_release; |
259 | 211 |
212 /* Height of this X screen in pixels. */ | |
1531
86202f01266d
* xterm.h (x_screen_count, x_release, x_screen_height,
Jim Blandy <jimb@redhat.com>
parents:
1408
diff
changeset
|
213 extern int x_screen_height; |
259 | 214 |
215 /* Height of this X screen in millimeters. */ | |
1531
86202f01266d
* xterm.h (x_screen_count, x_release, x_screen_height,
Jim Blandy <jimb@redhat.com>
parents:
1408
diff
changeset
|
216 extern int x_screen_height_mm; |
259 | 217 |
218 /* Width of this X screen in pixels. */ | |
1531
86202f01266d
* xterm.h (x_screen_count, x_release, x_screen_height,
Jim Blandy <jimb@redhat.com>
parents:
1408
diff
changeset
|
219 extern int x_screen_width; |
259 | 220 |
221 /* Width of this X screen in millimeters. */ | |
1531
86202f01266d
* xterm.h (x_screen_count, x_release, x_screen_height,
Jim Blandy <jimb@redhat.com>
parents:
1408
diff
changeset
|
222 extern int x_screen_width_mm; |
259 | 223 |
224 /* Does this X screen do backing store? */ | |
225 extern Lisp_Object Vx_backing_store; | |
226 | |
227 /* Does this X screen do save-unders? */ | |
1531
86202f01266d
* xterm.h (x_screen_count, x_release, x_screen_height,
Jim Blandy <jimb@redhat.com>
parents:
1408
diff
changeset
|
228 extern int x_save_under; |
259 | 229 |
230 /* Number of planes for this screen. */ | |
1531
86202f01266d
* xterm.h (x_screen_count, x_release, x_screen_height,
Jim Blandy <jimb@redhat.com>
parents:
1408
diff
changeset
|
231 extern int x_screen_planes; |
259 | 232 |
233 /* X Visual type of this screen. */ | |
234 extern Lisp_Object Vx_screen_visual; | |
235 | |
236 #endif /* HAVE_X11 */ | |
237 | |
238 enum text_cursor_kinds { | |
239 filled_box_cursor, hollow_box_cursor, bar_cursor | |
240 }; | |
241 | |
242 #define PIXEL_WIDTH(s) ((s)->display.x->pixel_width) | |
243 #define PIXEL_HEIGHT(s) ((s)->display.x->pixel_height) | |
244 | |
771 | 245 /* Each X frame object points to its own struct x_display object |
259 | 246 in the display.x field. The x_display structure contains all |
247 the information that is specific to X windows. */ | |
248 | |
249 struct x_display | |
250 { | |
251 /* Position of the X window (x and y offsets in root window). */ | |
252 int left_pos; | |
253 int top_pos; | |
254 | |
255 /* Border width of the X window as known by the X window system. */ | |
256 int border_width; | |
257 | |
258 /* Size of the X window in pixels. */ | |
259 int pixel_height, pixel_width; | |
260 | |
261 #ifdef HAVE_X11 | |
771 | 262 /* The tiled border used when the mouse is out of the frame. */ |
259 | 263 Pixmap border_tile; |
264 | |
265 /* Here are the Graphics Contexts for the default font. */ | |
266 GC normal_gc; /* Normal video */ | |
267 GC reverse_gc; /* Reverse video */ | |
268 GC cursor_gc; /* cursor drawing */ | |
269 #endif /* HAVE_X11 */ | |
270 | |
271 /* Width of the internal border. This is a line of background color | |
771 | 272 just inside the window's border. When the frame is selected, |
259 | 273 a highlighting is displayed inside the internal border. */ |
274 int internal_border_width; | |
275 | |
771 | 276 /* The X window used for this frame. |
277 May be zero while the frame object is being created | |
259 | 278 and the X window has not yet been created. */ |
279 Window window_desc; | |
280 | |
281 /* The X window used for the bitmap icon; | |
282 or 0 if we don't have a bitmap icon. */ | |
283 Window icon_desc; | |
284 | |
285 /* The X window that is the parent of this X window. | |
286 Usually but not always RootWindow. */ | |
287 Window parent_desc; | |
288 | |
289 /* 1 for bitmap icon, 0 for text icon. */ | |
290 int icon_bitmap_flag; | |
291 | |
292 FONT_TYPE *font; | |
293 | |
294 /* Pixel values used for various purposes. | |
295 border_pixel may be -1 meaning use a gray tile. */ | |
296 PIX_TYPE background_pixel; | |
297 PIX_TYPE foreground_pixel; | |
298 PIX_TYPE cursor_pixel; | |
299 PIX_TYPE border_pixel; | |
300 PIX_TYPE mouse_pixel; | |
301 | |
302 /* Windows for scrollbars */ | |
303 Window v_scrollbar; | |
304 Window v_thumbup; | |
305 Window v_thumbdown; | |
306 Window v_slider; | |
307 | |
308 Window h_scrollbar; | |
309 Window h_thumbleft; | |
310 Window h_thumbright; | |
311 Window h_slider; | |
312 | |
313 /* Scrollbar info */ | |
314 | |
315 int v_scrollbar_width; | |
316 int h_scrollbar_height; | |
317 | |
318 /* Descriptor for the cursor in use for this window. */ | |
319 #ifdef HAVE_X11 | |
320 Cursor text_cursor; | |
321 Cursor nontext_cursor; | |
322 Cursor modeline_cursor; | |
323 #else | |
324 Cursor cursor; | |
325 #endif | |
326 | |
327 /* The name that was associated with the icon, the last time | |
328 it was refreshed. Usually the same as the name of the | |
771 | 329 buffer in the currently selected window in the frame */ |
259 | 330 char *icon_label; |
331 | |
332 /* Flag to set when the X window needs to be completely repainted. */ | |
333 int needs_exposure; | |
334 | |
335 /* What kind of text cursor is drawn in this window right now? (If | |
336 there is no cursor (phys_cursor_x < 0), then this means nothing. */ | |
337 enum text_cursor_kinds text_cursor_kind; | |
999 | 338 |
339 /* These are the current window manager hints. It seems that | |
340 XSetWMHints, when presented with an unset bit in the `flags' | |
341 member of the hints structure, does not leave the corresponding | |
342 attribute unchanged; rather, it resets that attribute to its | |
343 default value. For example, unless you set the `icon_pixmap' | |
344 field and the `IconPixmapHint' bit, XSetWMHints will forget what | |
345 your icon pixmap was. This is rather troublesome, since some of | |
346 the members (for example, `input' and `icon_pixmap') want to stay | |
347 the same throughout the execution of Emacs. So, we keep this | |
348 structure around, just leaving values in it and adding new bits | |
349 to the mask as we go. */ | |
350 XWMHints wm_hints; | |
259 | 351 }; |
1040 | 352 |
353 /* Return the window associated with the frame F. */ | |
354 #define FRAME_X_WINDOW(f) ((f)->display.x->window_desc) | |
355 | |
259 | 356 |
357 /* When X windows are used, a glyf may be a 16 bit unsigned datum. | |
358 The high order byte is the face number and is used as an index | |
359 in the face table. A face is a font plus: | |
360 1) the unhighlighted foreground color, | |
361 2) the unhighlighted background color. | |
362 For highlighting, the two colors are exchanged. | |
363 Face number 0 is unused. The low order byte of a glyf gives | |
364 the character within the font. All fonts are assumed to be | |
365 fixed width, and to have the same height and width. */ | |
366 | |
367 #ifdef HAVE_X11 | |
368 | |
1408
b8e32247c590
* xterm.h: Declaration of struct face removed.
Joseph Arceneaux <jla@gnu.org>
parents:
1258
diff
changeset
|
369 /* Face declared in dispextern.h */ |
259 | 370 |
371 #else /* X10 */ | |
372 | |
373 struct face | |
374 { | |
375 FONT_TYPE *font; /* Font info for specified font. */ | |
376 int fg; /* Unhighlighted foreground. */ | |
377 int bg; /* Unhighlighted background. */ | |
378 }; | |
379 #endif /* X10 */ | |
380 | |
381 #define MAX_FACES_AND_GLYPHS 256 | |
382 extern struct face *x_face_table[]; |