Mercurial > emacs
annotate src/xterm.c @ 1359:96c43cee31f1
CP:: changed to cust-print- in all names.
Lots of doc fixes.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 07 Oct 1992 09:09:19 +0000 |
parents | 44215417cf6e |
children | 517c3893ec5b |
rev | line source |
---|---|
286 | 1 /* X Communication module for terminals which understand the X protocol. |
621 | 2 Copyright (C) 1989, 1992 Free Software Foundation, Inc. |
286 | 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 | |
621 | 8 the Free Software Foundation; either version 2, or (at your option) |
286 | 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 /* Serious problems: | |
21 | |
22 Kludge: dup2 is used to put the X-connection socket into desc # 0 | |
23 so that wait_reading_process_input will wait for it in place of | |
24 actual terminal input. | |
25 | |
26 */ | |
27 | |
28 #include "config.h" | |
29 | |
30 #ifdef HAVE_X_WINDOWS | |
31 | |
32 #include "lisp.h" | |
33 | |
34 /* On 4.3 this loses if it comes after xterm.h. */ | |
35 #include <signal.h> | |
36 | |
37 /* This may include sys/types.h, and that somehow loses | |
38 if this is not done before the other system files. */ | |
39 #include "xterm.h" | |
40 | |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
41 #ifndef USG |
286 | 42 /* Load sys/types.h if not already loaded. |
43 In some systems loading it twice is suicidal. */ | |
44 #ifndef makedev | |
45 #include <sys/types.h> | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
46 #endif /* makedev */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
47 #endif /* USG */ |
286 | 48 |
49 #ifdef BSD | |
50 #include <sys/ioctl.h> | |
51 #include <strings.h> | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
52 #else /* ! defined (BSD) */ |
286 | 53 #include <sys/termio.h> |
54 #include <string.h> | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
55 #endif /* ! defined (BSD) */ |
286 | 56 |
57 /* Allow m- file to inhibit use of FIONREAD. */ | |
58 #ifdef BROKEN_FIONREAD | |
59 #undef FIONREAD | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
60 #endif /* ! defined (BROKEN_FIONREAD) */ |
286 | 61 |
62 /* We are unable to use interrupts if FIONREAD is not available, | |
63 so flush SIGIO so we won't try. */ | |
64 #ifndef FIONREAD | |
65 #ifdef SIGIO | |
66 #undef SIGIO | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
67 #endif /* ! defined (SIGIO) */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
68 #endif /* FIONREAD */ |
286 | 69 |
555 | 70 #include "systime.h" |
286 | 71 |
72 #include <fcntl.h> | |
73 #include <stdio.h> | |
74 #include <ctype.h> | |
75 #include <errno.h> | |
76 #include <setjmp.h> | |
77 #include <sys/stat.h> | |
78 #include <sys/param.h> | |
79 | |
80 #include "dispextern.h" | |
81 #include "termhooks.h" | |
82 #include "termopts.h" | |
83 #include "termchar.h" | |
84 #if 0 | |
85 #include "sink.h" | |
86 #include "sinkmask.h" | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
87 #endif /* ! 0 */ |
286 | 88 #include "gnu.h" |
771 | 89 #include "frame.h" |
286 | 90 #include "disptab.h" |
91 #include "buffer.h" | |
92 | |
93 #ifdef HAVE_X11 | |
94 #define XMapWindow XMapRaised /* Raise them when mapping. */ | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
95 #else /* ! defined (HAVE_X11) */ |
286 | 96 #include <X/Xkeyboard.h> |
97 /*#include <X/Xproto.h> */ | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
98 #endif /* ! defined (HAVE_X11) */ |
286 | 99 |
100 /* For sending Meta-characters. Do we need this? */ | |
101 #define METABIT 0200 | |
102 | |
103 #define min(a,b) ((a)<(b) ? (a) : (b)) | |
104 #define max(a,b) ((a)>(b) ? (a) : (b)) | |
105 | |
106 /* Nonzero means we must reprint all windows | |
107 because 1) we received an ExposeWindow event | |
108 or 2) we received too many ExposeRegion events to record. */ | |
109 | |
110 static int expose_all_windows; | |
111 | |
112 /* Nonzero means we must reprint all icon windows. */ | |
113 | |
114 static int expose_all_icons; | |
115 | |
116 #ifndef HAVE_X11 | |
117 /* ExposeRegion events, when received, are copied into this queue | |
118 for later processing. */ | |
119 | |
120 static struct event_queue x_expose_queue; | |
121 | |
122 /* ButtonPressed and ButtonReleased events, when received, | |
123 are copied into this queue for later processing. */ | |
124 | |
125 struct event_queue x_mouse_queue; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
126 #endif /* HAVE_X11 */ |
286 | 127 |
128 /* Nonzero after BLOCK_INPUT; prevents input events from being | |
129 processed until later. */ | |
130 | |
131 int x_input_blocked; | |
132 | |
133 #if defined (SIGIO) && defined (FIONREAD) | |
134 int BLOCK_INPUT_mask; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
135 #endif /* ! defined (SIGIO) && defined (FIONREAD) */ |
286 | 136 |
137 /* Nonzero if input events came in while x_input_blocked was nonzero. | |
138 UNBLOCK_INPUT checks for this. */ | |
139 | |
140 int x_pending_input; | |
141 | |
142 /* The id of a bitmap used for icon windows. | |
143 One such map is shared by all Emacs icon windows. | |
144 This is zero if we have not yet had a need to create the bitmap. */ | |
145 | |
146 static Bitmap icon_bitmap; | |
147 | |
148 /* Font used for text icons. */ | |
149 | |
150 static FONT_TYPE *icon_font_info; | |
151 | |
152 /* Stuff for dealing with the main icon title. */ | |
153 | |
154 extern Lisp_Object Vcommand_line_args; | |
398 | 155 char *hostname, *x_id_name; |
395 | 156 Lisp_Object invocation_name; |
286 | 157 |
158 /* This is the X connection that we are using. */ | |
159 | |
160 Display *x_current_display; | |
161 | |
771 | 162 /* Frame being updated by update_frame. */ |
286 | 163 /* This is set by XTupdate_begin and looked at by all the |
164 XT functions. It is zero while not inside an update. | |
771 | 165 In that case, the XT functions assume that `selected_frame' |
166 is the frame to apply to. */ | |
167 | |
168 static struct frame *updating_frame; | |
169 | |
170 /* The frame (if any) which has the X window that has keyboard focus. | |
171 Zero if none. This is examined by Ffocus_frame in frame.c. */ | |
172 struct frame *x_focus_frame; | |
173 | |
174 /* The frame which currently has the visual highlight, and should get | |
175 keyboard input (other sorts of input have the frame encoded in the | |
176 event). It points to the X focus frame's selected window's | |
177 frame. It differs from x_focus_frame when we're using a global | |
369 | 178 minibuffer. */ |
771 | 179 static struct frame *x_highlight_frame; |
369 | 180 |
286 | 181 /* From .Xdefaults, the value of "emacs.WarpMouse". If non-zero, |
771 | 182 mouse is moved to inside of frame when frame is de-iconified. */ |
286 | 183 |
184 static int warp_mouse_on_deiconify; | |
185 | |
186 /* During an update, maximum vpos for ins/del line operations to affect. */ | |
187 | |
188 static int flexlines; | |
189 | |
190 /* During an update, nonzero if chars output now should be highlighted. */ | |
191 | |
192 static int highlight; | |
193 | |
194 /* Nominal cursor position -- where to draw output. | |
195 During an update, these are different from the cursor-box position. */ | |
196 | |
197 static int curs_x; | |
198 static int curs_y; | |
199 | |
200 #ifdef HAVE_X11 | |
201 /* `t' if a mouse button is depressed. */ | |
202 | |
203 extern Lisp_Object Vmouse_depressed; | |
204 | |
205 /* Tells if a window manager is present or not. */ | |
206 | |
207 extern Lisp_Object Vx_no_window_manager; | |
208 | |
209 /* Timestamp that we requested selection data was made. */ | |
210 extern Time requestor_time; | |
211 | |
212 /* ID of the window requesting selection data. */ | |
213 extern Window requestor_window; | |
214 | |
215 /* Nonzero enables some debugging for the X interface code. */ | |
216 extern int _Xdebug; | |
217 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
218 #else /* ! defined (HAVE_X11) */ |
286 | 219 |
220 /* Bit patterns for the mouse cursor. */ | |
221 | |
222 short MouseCursor[] = { | |
223 0x0000, 0x0008, 0x0018, 0x0038, | |
224 0x0078, 0x00f8, 0x01f8, 0x03f8, | |
225 0x07f8, 0x00f8, 0x00d8, 0x0188, | |
226 0x0180, 0x0300, 0x0300, 0x0000}; | |
227 | |
228 short MouseMask[] = { | |
229 0x000c, 0x001c, 0x003c, 0x007c, | |
230 0x00fc, 0x01fc, 0x03fc, 0x07fc, | |
231 0x0ffc, 0x0ffc, 0x01fc, 0x03dc, | |
232 0x03cc, 0x0780, 0x0780, 0x0300}; | |
233 | |
234 static short grey_bits[] = { | |
235 0x0005, 0x000a, 0x0005, 0x000a}; | |
236 | |
237 static Pixmap GreyPixmap = 0; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
238 #endif /* ! defined (HAVE_X11) */ |
286 | 239 |
240 /* From time to time we get info on an Emacs window, here. */ | |
241 | |
242 static WINDOWINFO_TYPE windowinfo; | |
243 | |
244 extern int errno; | |
245 | |
246 extern Display *XOpenDisplay (); | |
247 extern Window XCreateWindow (); | |
248 | |
249 extern Cursor XCreateCursor (); | |
250 extern FONT_TYPE *XOpenFont (); | |
251 | |
252 static void flashback (); | |
253 | |
254 #ifndef HAVE_X11 | |
255 static void dumpqueue (); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
256 #endif /* HAVE_X11 */ |
286 | 257 |
258 void dumpborder (); | |
621 | 259 static int XTcursor_to (); |
260 static int XTclear_end_of_line (); | |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
261 |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
262 |
771 | 263 /* These hooks are called by update_frame at the beginning and end |
264 of a frame update. We record in `updating_frame' the identity | |
265 of the frame being updated, so that the XT... functions do not | |
266 need to take a frame as argument. Most of the XT... functions | |
286 | 267 should never be called except during an update, the only exceptions |
268 being XTcursor_to, XTwrite_char and XTreassert_line_highlight. */ | |
269 | |
270 extern int mouse_track_top, mouse_track_left, mouse_track_width; | |
271 | |
272 static | |
771 | 273 XTupdate_begin (f) |
274 struct frame *f; | |
286 | 275 { |
276 int mask; | |
277 | |
771 | 278 if (f == 0) |
286 | 279 abort (); |
280 | |
771 | 281 updating_frame = f; |
282 flexlines = f->height; | |
286 | 283 highlight = 0; |
284 | |
285 BLOCK_INPUT; | |
286 #ifndef HAVE_X11 | |
287 dumpqueue (); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
288 #endif /* HAVE_X11 */ |
286 | 289 UNBLOCK_INPUT; |
290 } | |
291 | |
292 static void x_do_pending_expose (); | |
293 | |
294 static | |
771 | 295 XTupdate_end (f) |
296 struct frame *f; | |
286 | 297 { |
298 int mask; | |
299 | |
771 | 300 if (updating_frame == 0 |
301 || updating_frame != f) | |
286 | 302 abort (); |
303 | |
304 BLOCK_INPUT; | |
305 #ifndef HAVE_X11 | |
306 dumpqueue (); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
307 #endif /* HAVE_X11 */ |
771 | 308 adjust_scrollbars (f); |
286 | 309 x_do_pending_expose (); |
310 | |
771 | 311 x_display_cursor (f, 1); |
312 | |
313 updating_frame = 0; | |
286 | 314 XFlushQueue (); |
315 UNBLOCK_INPUT; | |
316 } | |
317 | |
318 /* External interface to control of standout mode. | |
319 Call this when about to modify line at position VPOS | |
320 and not change whether it is highlighted. */ | |
321 | |
322 XTreassert_line_highlight (new, vpos) | |
323 int new, vpos; | |
324 { | |
325 highlight = new; | |
326 } | |
327 | |
328 /* Call this when about to modify line at position VPOS | |
329 and change whether it is highlighted. */ | |
330 | |
331 static | |
332 XTchange_line_highlight (new_highlight, vpos, first_unused_hpos) | |
333 int new_highlight, vpos, first_unused_hpos; | |
334 { | |
335 highlight = new_highlight; | |
336 XTcursor_to (vpos, 0); | |
771 | 337 XTclear_end_of_line (updating_frame->width); |
286 | 338 } |
339 | |
340 /* This is used when starting Emacs and when restarting after suspend. | |
341 When starting Emacs, no X window is mapped. And nothing must be done | |
342 to Emacs's own window if it is suspended (though that rarely happens). */ | |
343 | |
344 static | |
345 XTset_terminal_modes () | |
346 { | |
347 } | |
348 | |
349 /* This is called when exiting or suspending Emacs. | |
350 Exiting will make the X-windows go away, and suspending | |
351 requires no action. */ | |
352 | |
353 static | |
354 XTreset_terminal_modes () | |
355 { | |
771 | 356 /* XTclear_frame (); */ |
286 | 357 } |
358 | |
771 | 359 /* Set the nominal cursor position of the frame: |
286 | 360 where display update commands will take effect. |
361 This does not affect the place where the cursor-box is displayed. */ | |
362 | |
621 | 363 static int |
286 | 364 XTcursor_to (row, col) |
365 register int row, col; | |
366 { | |
367 int mask; | |
368 int orow = row; | |
369 | |
370 curs_x = col; | |
371 curs_y = row; | |
372 | |
771 | 373 if (updating_frame == 0) |
286 | 374 { |
375 BLOCK_INPUT; | |
771 | 376 x_display_cursor (selected_frame, 1); |
286 | 377 XFlushQueue (); |
378 UNBLOCK_INPUT; | |
379 } | |
380 } | |
381 | |
382 /* Display a sequence of N glyphs found at GP. | |
383 WINDOW is the x-window to output to. LEFT and TOP are starting coords. | |
384 HL is 1 if this text is highlighted, 2 if the cursor is on it. | |
385 | |
386 FONT is the default font to use (for glyphs whose font-code is 0). */ | |
387 | |
388 static void | |
771 | 389 dumpglyphs (f, left, top, gp, n, hl, font) |
390 struct frame *f; | |
286 | 391 int left, top; |
392 register GLYPH *gp; /* Points to first GLYPH. */ | |
393 register int n; /* Number of glyphs to display. */ | |
394 int hl; | |
395 FONT_TYPE *font; | |
396 { | |
397 register int len; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
398 Window window = FRAME_X_WINDOW (f); |
771 | 399 GC drawing_gc = (hl == 2 ? f->display.x->cursor_gc |
400 : (hl ? f->display.x->reverse_gc | |
401 : f->display.x->normal_gc)); | |
286 | 402 |
313 | 403 if (sizeof (GLYPH) == sizeof (XChar2b)) |
404 XDrawImageString16 (x_current_display, window, drawing_gc, | |
405 left, top + FONT_BASE (font), (XChar2b *) gp, n); | |
406 else if (sizeof (GLYPH) == sizeof (unsigned char)) | |
407 XDrawImageString (x_current_display, window, drawing_gc, | |
408 left, top + FONT_BASE (font), (char *) gp, n); | |
409 else | |
410 /* What size of glyph ARE you using? And does X have a function to | |
411 draw them? */ | |
412 abort (); | |
286 | 413 } |
414 | |
415 #if 0 | |
416 static void | |
771 | 417 dumpglyphs (f, left, top, gp, n, hl, font) |
418 struct frame *f; | |
286 | 419 int left, top; |
420 register GLYPH *gp; /* Points to first GLYPH. */ | |
421 register int n; /* Number of glyphs to display. */ | |
422 int hl; | |
423 FONT_TYPE *font; | |
424 { | |
771 | 425 char buf[f->width]; /* Holds characters to be displayed. */ |
286 | 426 register char *cp; /* Steps through buf[]. */ |
427 register int tlen = GLYPH_TABLE_LENGTH; | |
428 register Lisp_Object *tbase = GLYPH_TABLE_BASE; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
429 Window window = FRAME_X_WINDOW (f); |
771 | 430 int cursor_pixel = f->display.x->cursor_pixel; |
431 int fg_pixel = f->display.x->foreground_pixel; | |
432 int bg_pixel = f->display.x->background_pixel; | |
433 int intborder = f->display.x->internal_border_width; | |
286 | 434 |
435 while (n) | |
436 { | |
437 /* Get the face-code of the next GLYPH. */ | |
438 int cf, len; | |
439 int g = *gp; | |
440 | |
441 while (GLYPH_ALIAS_P (tbase, tlen, g)) | |
442 g = GLYPH_ALIAS (tbase, g); | |
443 | |
444 cf = g >> 8; | |
445 | |
446 /* Find the run of consecutive glyphs with the same face-code. | |
447 Extract their character codes into BUF. */ | |
448 cp = buf; | |
449 while (n > 0) | |
450 { | |
451 g = *gp; | |
452 while (GLYPH_ALIAS_P (tbase, tlen, g)) | |
453 g = GLYPH_ALIAS (tbase, g); | |
454 if ((g >> 8) != cf) | |
455 break; | |
456 | |
457 *cp++ = 0377 & g; | |
458 --n; | |
459 ++gp; | |
460 } | |
461 | |
462 /* LEN gets the length of the run. */ | |
463 len = cp - buf; | |
464 | |
465 /* Now output this run of chars, with the font and pixel values | |
466 determined by the face code CF. */ | |
467 if (cf == 0) | |
468 { | |
469 #ifdef HAVE_X11 | |
771 | 470 GC GC_cursor = f->display.x->cursor_gc; |
471 GC GC_reverse = f->display.x->reverse_gc; | |
472 GC GC_normal = f->display.x->normal_gc; | |
286 | 473 |
474 XDrawImageString (x_current_display, window, | |
475 (hl == 2 | |
476 ? GC_cursor | |
477 : (hl ? GC_reverse : GC_normal)), | |
478 left, top + FONT_BASE (font), buf, len); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
479 #else /* ! defined (HAVE_X11) */ |
286 | 480 XText (window, left, top, |
481 buf, | |
482 len, | |
483 font->id, | |
484 (hl == 2 | |
485 ? (cursor_pixel == fg_pixel ? bg_pixel : fg_pixel) | |
486 : hl ? bg_pixel : fg_pixel), | |
487 (hl == 2 ? cursor_pixel | |
488 : hl ? fg_pixel : bg_pixel)); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
489 #endif /* ! defined (HAVE_X11) */ |
286 | 490 } |
491 else | |
492 { | |
493 #ifdef HAVE_X11 | |
494 if (FACE_IS_FONT (cf)) | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
495 XDrawImageString (x_current_display, FRAME_X_WINDOW (f), |
286 | 496 FACE_GC (cf), |
497 left, top + FONT_BASE (FACE_FONT (cf)), | |
498 buf, len); | |
499 else if (FACE_IS_IMAGE (cf)) | |
500 XCopyPlane (x_current_display, FACE_IMAGE (cf), | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
501 FRAME_X_WINDOW (f), |
771 | 502 f->display.x->normal_gc, |
286 | 503 0, 0, |
504 FACE_IMAGE_WIDTH (cf), | |
505 FACE_IMAGE_HEIGHT (cf), left, top); | |
506 else | |
507 abort (); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
508 #else /* ! defined (HAVE_X11) */ |
286 | 509 register struct face *fp = x_face_table[cf]; |
510 | |
511 XText (window, left, top, | |
512 buf, | |
513 len, | |
514 fp->font->id, | |
515 (hl == 2 | |
516 ? (cursor_pixel == fp->fg ? fp->bg : fp->fg) | |
517 : hl ? fp->bg : fp->fg), | |
518 (hl == 2 ? cursor_pixel | |
519 : hl ? fp->fg : fp->bg)); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
520 #endif /* ! defined (HAVE_X11) */ |
286 | 521 } |
522 left += len * FONT_WIDTH (font); | |
523 } | |
524 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
525 #endif /* ! 0 */ |
286 | 526 |
771 | 527 /* Output some text at the nominal frame cursor position, |
286 | 528 advancing the cursor over the text. |
529 Output LEN glyphs at START. | |
530 | |
531 `highlight', set up by XTreassert_line_highlight or XTchange_line_highlight, | |
532 controls the pixel values used for foreground and background. */ | |
533 | |
534 static | |
535 XTwrite_glyphs (start, len) | |
536 register GLYPH *start; | |
537 int len; | |
538 { | |
539 register int temp_length; | |
540 int mask; | |
771 | 541 struct frame *f; |
286 | 542 |
543 BLOCK_INPUT; | |
544 | |
771 | 545 f = updating_frame; |
546 if (f == 0) | |
286 | 547 { |
771 | 548 f = selected_frame; |
286 | 549 /* If not within an update, |
771 | 550 output at the frame's visible cursor. */ |
551 curs_x = f->cursor_x; | |
552 curs_y = f->cursor_y; | |
286 | 553 } |
554 | |
771 | 555 dumpglyphs (f, |
556 (curs_x * FONT_WIDTH (f->display.x->font) | |
557 + f->display.x->internal_border_width), | |
558 (curs_y * FONT_HEIGHT (f->display.x->font) | |
559 + f->display.x->internal_border_width), | |
560 start, len, highlight, f->display.x->font); | |
429 | 561 |
562 /* If we drew on top of the cursor, note that it is turned off. */ | |
771 | 563 if (curs_y == f->phys_cursor_y |
564 && curs_x <= f->phys_cursor_x | |
565 && curs_x + len > f->phys_cursor_x) | |
566 f->phys_cursor_x = -1; | |
286 | 567 |
771 | 568 if (updating_frame == 0) |
286 | 569 { |
771 | 570 f->cursor_x += len; |
571 x_display_cursor (f, 1); | |
572 f->cursor_x -= len; | |
286 | 573 } |
574 else | |
575 curs_x += len; | |
576 | |
577 UNBLOCK_INPUT; | |
578 } | |
579 | |
580 /* Erase the current text line from the nominal cursor position (inclusive) | |
581 to column FIRST_UNUSED (exclusive). The idea is that everything | |
582 from FIRST_UNUSED onward is already erased. */ | |
583 | |
621 | 584 static int |
286 | 585 XTclear_end_of_line (first_unused) |
586 register int first_unused; | |
587 { | |
771 | 588 struct frame *f = updating_frame; |
286 | 589 int mask; |
590 | |
771 | 591 if (f == 0) |
286 | 592 abort (); |
593 | |
771 | 594 if (curs_y < 0 || curs_y >= f->height) |
286 | 595 return; |
596 if (first_unused <= 0) | |
597 return; | |
598 | |
771 | 599 if (first_unused >= f->width) |
600 first_unused = f->width; | |
286 | 601 |
602 BLOCK_INPUT; | |
603 | |
429 | 604 /* Notice if the cursor will be cleared by this operation. */ |
771 | 605 if (curs_y == f->phys_cursor_y |
606 && curs_x <= f->phys_cursor_x | |
607 && f->phys_cursor_x < first_unused) | |
608 f->phys_cursor_x = -1; | |
286 | 609 |
610 #ifdef HAVE_X11 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
611 XClearArea (x_current_display, FRAME_X_WINDOW (f), |
771 | 612 curs_x * FONT_WIDTH (f->display.x->font) |
613 + f->display.x->internal_border_width, | |
614 curs_y * FONT_HEIGHT (f->display.x->font) | |
615 + f->display.x->internal_border_width, | |
616 FONT_WIDTH (f->display.x->font) * (first_unused - curs_x), | |
617 FONT_HEIGHT (f->display.x->font), False); | |
286 | 618 |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
619 #else /* ! defined (HAVE_X11) */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
620 XPixSet (FRAME_X_WINDOW (f), |
771 | 621 curs_x * FONT_WIDTH (f->display.x->font) + f->display.x->internal_border_width, |
622 curs_y * FONT_HEIGHT (f->display.x->font) + f->display.x->internal_border_width, | |
623 FONT_WIDTH (f->display.x->font) * (first_unused - curs_x), | |
624 FONT_HEIGHT (f->display.x->font), | |
625 f->display.x->background_pixel); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
626 #endif /* ! defined (HAVE_X11) */ |
286 | 627 |
628 UNBLOCK_INPUT; | |
629 } | |
630 | |
631 static | |
771 | 632 XTclear_frame () |
286 | 633 { |
634 int mask; | |
771 | 635 struct frame *f = updating_frame; |
636 | |
637 if (f == 0) | |
638 f = selected_frame; | |
639 | |
640 f->phys_cursor_x = -1; /* Cursor not visible. */ | |
286 | 641 curs_x = 0; /* Nominal cursor position is top left. */ |
642 curs_y = 0; | |
643 | |
644 BLOCK_INPUT; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
645 XClear (FRAME_X_WINDOW (f)); |
286 | 646 #ifndef HAVE_X11 |
771 | 647 dumpborder (f, 0); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
648 #endif /* HAVE_X11 */ |
286 | 649 XFlushQueue (); |
650 UNBLOCK_INPUT; | |
651 } | |
652 | |
771 | 653 /* Paint horzontal bars down the frame for a visible bell. |
286 | 654 Note that this may be way too slow on some machines. */ |
655 | |
771 | 656 XTflash (f) |
657 struct frame *f; | |
286 | 658 { |
771 | 659 register struct frame_glyphs *active_frame = FRAME_CURRENT_GLYPHS (f); |
286 | 660 register int i; |
661 int x, y; | |
662 | |
771 | 663 if (updating_frame != 0) |
286 | 664 abort (); |
665 | |
666 BLOCK_INPUT; | |
667 #ifdef HAVE_X11 | |
668 #if 0 | |
771 | 669 for (i = f->height * FONT_HEIGHT (f->display.x->font) - 10; |
286 | 670 i >= 0; |
671 i -= 100) /* Should be NO LOWER than 75 for speed reasons. */ | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
672 XFillRectangle (x_current_display, FRAME_X_WINDOW (f), |
771 | 673 f->display.x->cursor_gc, |
674 0, i, f->width * FONT_WIDTH (f->display.x->font) | |
675 + 2 * f->display.x->internal_border_width, 25); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
676 #endif /* ! 0 */ |
286 | 677 |
771 | 678 x = (f->width * FONT_WIDTH (f->display.x->font)) / 4; |
679 y = (f->height * FONT_HEIGHT (f->display.x->font)) / 4; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
680 XFillRectangle (x_current_display, FRAME_X_WINDOW (f), |
771 | 681 f->display.x->cursor_gc, |
286 | 682 x, y, 2 * x, 2 * y); |
771 | 683 dumpglyphs (f, (x + f->display.x->internal_border_width), |
684 (y + f->display.x->internal_border_width), | |
685 &active_frame->glyphs[(f->height / 4) + 1][(f->width / 4)], | |
686 1, 0, f->display.x->font); | |
286 | 687 |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
688 #else /* ! defined (HAVE_X11) */ |
771 | 689 for (i = f->height * FONT_HEIGHT (f->display.x->font) - 10; |
286 | 690 i >= 0; |
691 i -= 50) | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
692 XPixFill (FRAME_X_WINDOW (f), 0, i, |
771 | 693 f->width * FONT_WIDTH (f->display.x->font) |
694 + 2 * f->display.x->internal_border_width, 10, | |
286 | 695 WHITE_PIX_DEFAULT, ClipModeClipped, GXinvert, AllPlanes); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
696 #endif /* ! defined (HAVE_X11) */ |
286 | 697 |
698 XFlushQueue (); | |
699 UNBLOCK_INPUT; | |
700 } | |
701 | |
771 | 702 /* Flip background and forground colors of the frame. */ |
703 | |
704 x_invert_frame (f) | |
705 struct frame *f; | |
286 | 706 { |
707 #ifdef HAVE_X11 | |
708 GC temp; | |
709 unsigned long pix_temp; | |
710 | |
771 | 711 x_display_cursor (f, 0); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
712 XClearWindow (x_current_display, FRAME_X_WINDOW (f)); |
771 | 713 temp = f->display.x->normal_gc; |
714 f->display.x->normal_gc = f->display.x->reverse_gc; | |
715 f->display.x->reverse_gc = temp; | |
716 pix_temp = f->display.x->foreground_pixel; | |
717 f->display.x->foreground_pixel = f->display.x->background_pixel; | |
718 f->display.x->background_pixel = pix_temp; | |
719 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
720 XSetWindowBackground (x_current_display, FRAME_X_WINDOW (f), |
771 | 721 f->display.x->background_pixel); |
722 if (f->display.x->background_pixel == f->display.x->cursor_pixel) | |
286 | 723 { |
771 | 724 f->display.x->cursor_pixel = f->display.x->foreground_pixel; |
725 XSetBackground (x_current_display, f->display.x->cursor_gc, | |
726 f->display.x->cursor_pixel); | |
727 XSetForeground (x_current_display, f->display.x->cursor_gc, | |
728 f->display.x->background_pixel); | |
286 | 729 } |
771 | 730 redraw_frame (f); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
731 #endif /* ! defined (HAVE_X11) */ |
286 | 732 } |
733 | |
734 /* Make audible bell. */ | |
735 | |
736 #ifdef HAVE_X11 | |
737 #define XRINGBELL XBell(x_current_display, 0) | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
738 #else /* ! defined (HAVE_X11) */ |
286 | 739 #define XRINGBELL XFeep(0); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
740 #endif /* ! defined (HAVE_X11) */ |
286 | 741 |
742 XTring_bell () | |
743 { | |
744 if (visible_bell) | |
745 #if 0 | |
771 | 746 XTflash (selected_frame); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
747 #endif /* ! 0 */ |
286 | 748 { |
771 | 749 x_invert_frame (selected_frame); |
750 x_invert_frame (selected_frame); | |
286 | 751 } |
752 else | |
753 { | |
754 BLOCK_INPUT; | |
755 XRINGBELL; | |
756 XFlushQueue (); | |
757 UNBLOCK_INPUT; | |
758 } | |
759 } | |
760 | |
761 /* Insert and delete character are not supposed to be used | |
762 because we are supposed to turn off the feature of using them. */ | |
763 | |
764 static | |
765 XTinsert_glyphs (start, len) | |
766 register char *start; | |
767 register int len; | |
768 { | |
769 abort (); | |
770 } | |
771 | |
772 static | |
773 XTdelete_glyphs (n) | |
774 register int n; | |
775 { | |
776 abort (); | |
777 } | |
778 | |
779 /* Specify how many text lines, from the top of the window, | |
780 should be affected by insert-lines and delete-lines operations. | |
781 This, and those operations, are used only within an update | |
782 that is bounded by calls to XTupdate_begin and XTupdate_end. */ | |
783 | |
784 static | |
785 XTset_terminal_window (n) | |
786 register int n; | |
787 { | |
771 | 788 if (updating_frame == 0) |
286 | 789 abort (); |
790 | |
771 | 791 if ((n <= 0) || (n > updating_frame->height)) |
792 flexlines = updating_frame->height; | |
286 | 793 else |
794 flexlines = n; | |
795 } | |
796 | |
797 /* Perform an insert-lines operation, inserting N lines | |
798 at a vertical position curs_y. */ | |
799 | |
800 static void | |
801 stufflines (n) | |
802 register int n; | |
803 { | |
804 register int topregion, bottomregion; | |
805 register int length, newtop, mask; | |
771 | 806 register struct frame *f = updating_frame; |
807 int intborder = f->display.x->internal_border_width; | |
286 | 808 |
809 if (curs_y >= flexlines) | |
810 return; | |
811 | |
812 topregion = curs_y; | |
813 bottomregion = flexlines - (n + 1); | |
814 newtop = topregion + n; | |
815 length = (bottomregion - topregion) + 1; | |
816 | |
817 #ifndef HAVE_X11 | |
818 dumpqueue (); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
819 #endif /* HAVE_X11 */ |
286 | 820 |
821 if ((length > 0) && (newtop <= flexlines)) | |
822 { | |
823 #ifdef HAVE_X11 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
824 XCopyArea (x_current_display, FRAME_X_WINDOW (f), |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
825 FRAME_X_WINDOW (f), f->display.x->normal_gc, |
771 | 826 intborder, topregion * FONT_HEIGHT (f->display.x->font) + intborder, |
827 f->width * FONT_WIDTH (f->display.x->font), | |
828 length * FONT_HEIGHT (f->display.x->font), intborder, | |
829 newtop * FONT_HEIGHT (f->display.x->font) + intborder); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
830 #else /* ! defined (HAVE_X11) */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
831 XMoveArea (FRAME_X_WINDOW (f), |
771 | 832 intborder, topregion * FONT_HEIGHT (f->display.x->font) + intborder, |
833 intborder, newtop * FONT_HEIGHT (f->display.x->font) + intborder, | |
834 f->width * FONT_WIDTH (f->display.x->font), | |
835 length * FONT_HEIGHT (f->display.x->font)); | |
286 | 836 /* Now we must process any ExposeRegion events that occur |
837 if the area being copied from is obscured. | |
838 We can't let it wait because further i/d operations | |
839 may want to copy this area to another area. */ | |
840 x_read_exposes (); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
841 #endif /* ! defined (HAVE_X11) */ |
286 | 842 } |
843 | |
844 newtop = min (newtop, (flexlines - 1)); | |
845 length = newtop - topregion; | |
846 if (length > 0) | |
847 { | |
848 #ifdef HAVE_X11 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
849 XClearArea (x_current_display, FRAME_X_WINDOW (f), intborder, |
771 | 850 topregion * FONT_HEIGHT (f->display.x->font) + intborder, |
851 f->width * FONT_WIDTH (f->display.x->font), | |
852 n * FONT_HEIGHT (f->display.x->font), False); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
853 #else /* ! defined (HAVE_X11) */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
854 XPixSet (FRAME_X_WINDOW (f), |
286 | 855 intborder, |
771 | 856 topregion * FONT_HEIGHT (f->display.x->font) + intborder, |
857 f->width * FONT_WIDTH (f->display.x->font), | |
858 n * FONT_HEIGHT (f->display.x->font), | |
859 f->display.x->background_pixel); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
860 #endif /* ! defined (HAVE_X11) */ |
286 | 861 } |
862 } | |
863 | |
864 /* Perform a delete-lines operation, deleting N lines | |
865 at a vertical position curs_y. */ | |
866 | |
867 static void | |
868 scraplines (n) | |
869 register int n; | |
870 { | |
871 int mask; | |
771 | 872 register struct frame *f = updating_frame; |
873 int intborder = f->display.x->internal_border_width; | |
286 | 874 |
875 if (curs_y >= flexlines) | |
876 return; | |
877 | |
878 #ifndef HAVE_X11 | |
879 dumpqueue (); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
880 #endif /* HAVE_X11 */ |
286 | 881 |
882 if ((curs_y + n) >= flexlines) | |
883 { | |
884 if (flexlines >= (curs_y + 1)) | |
885 { | |
886 #ifdef HAVE_X11 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
887 XClearArea (x_current_display, FRAME_X_WINDOW (f), intborder, |
771 | 888 curs_y * FONT_HEIGHT (f->display.x->font) + intborder, |
889 f->width * FONT_WIDTH (f->display.x->font), | |
890 (flexlines - curs_y) * FONT_HEIGHT (f->display.x->font), False); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
891 #else /* ! defined (HAVE_X11) */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
892 XPixSet (FRAME_X_WINDOW (f), |
771 | 893 intborder, curs_y * FONT_HEIGHT (f->display.x->font) + intborder, |
894 f->width * FONT_WIDTH (f->display.x->font), | |
895 (flexlines - curs_y) * FONT_HEIGHT (f->display.x->font), | |
896 f->display.x->background_pixel); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
897 #endif /* ! defined (HAVE_X11) */ |
286 | 898 } |
899 } | |
900 else | |
901 { | |
902 #ifdef HAVE_X11 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
903 XCopyArea (x_current_display, FRAME_X_WINDOW (f), |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
904 FRAME_X_WINDOW (f), f->display.x->normal_gc, |
286 | 905 intborder, |
771 | 906 (curs_y + n) * FONT_HEIGHT (f->display.x->font) + intborder, |
907 f->width * FONT_WIDTH (f->display.x->font), | |
908 (flexlines - (curs_y + n)) * FONT_HEIGHT (f->display.x->font), | |
909 intborder, curs_y * FONT_HEIGHT (f->display.x->font) + intborder); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
910 XClearArea (x_current_display, FRAME_X_WINDOW (f), |
286 | 911 intborder, |
771 | 912 (flexlines - n) * FONT_HEIGHT (f->display.x->font) + intborder, |
913 f->width * FONT_WIDTH (f->display.x->font), | |
914 n * FONT_HEIGHT (f->display.x->font), False); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
915 #else /* ! defined (HAVE_X11) */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
916 XMoveArea (FRAME_X_WINDOW (f), |
286 | 917 intborder, |
771 | 918 (curs_y + n) * FONT_HEIGHT (f->display.x->font) + intborder, |
919 intborder, curs_y * FONT_HEIGHT (f->display.x->font) + intborder, | |
920 f->width * FONT_WIDTH (f->display.x->font), | |
921 (flexlines - (curs_y + n)) * FONT_HEIGHT (f->display.x->font)); | |
286 | 922 /* Now we must process any ExposeRegion events that occur |
923 if the area being copied from is obscured. | |
924 We can't let it wait because further i/d operations | |
925 may want to copy this area to another area. */ | |
926 x_read_exposes (); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
927 XPixSet (FRAME_X_WINDOW (f), intborder, |
771 | 928 (flexlines - n) * FONT_HEIGHT (f->display.x->font) + intborder, |
929 f->width * FONT_WIDTH (f->display.x->font), | |
930 n * FONT_HEIGHT (f->display.x->font), f->display.x->background_pixel); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
931 #endif /* ! defined (HAVE_X11) */ |
286 | 932 } |
933 } | |
934 | |
935 /* Perform an insert-lines or delete-lines operation, | |
936 inserting N lines or deleting -N lines at vertical position VPOS. */ | |
937 | |
938 XTins_del_lines (vpos, n) | |
939 int vpos, n; | |
940 { | |
771 | 941 if (updating_frame == 0) |
286 | 942 abort (); |
943 | |
429 | 944 /* Hide the cursor. */ |
771 | 945 x_display_cursor (updating_frame, 0); |
286 | 946 |
947 XTcursor_to (vpos, 0); | |
948 | |
949 BLOCK_INPUT; | |
950 if (n >= 0) | |
951 stufflines (n); | |
952 else | |
953 scraplines (-n); | |
954 XFlushQueue (); | |
955 UNBLOCK_INPUT; | |
956 } | |
957 | |
958 static void clear_cursor (); | |
959 | |
771 | 960 /* Output into a rectangle of an X-window (for frame F) |
961 the characters in f->phys_lines that overlap that rectangle. | |
286 | 962 TOP and LEFT are the position of the upper left corner of the rectangle. |
963 ROWS and COLS are the size of the rectangle. */ | |
964 | |
965 static void | |
771 | 966 dumprectangle (f, left, top, cols, rows) |
967 struct frame *f; | |
286 | 968 register int left, top, cols, rows; |
969 { | |
771 | 970 register struct frame_glyphs *active_frame = FRAME_CURRENT_GLYPHS (f); |
286 | 971 int cursor_cleared = 0; |
972 int bottom, right; | |
973 register int y; | |
974 | |
771 | 975 if (FRAME_GARBAGED_P (f)) |
286 | 976 return; |
977 | |
771 | 978 top -= f->display.x->internal_border_width; |
979 left -= f->display.x->internal_border_width; | |
286 | 980 |
981 /* Express rectangle as four edges, instead of position-and-size. */ | |
982 bottom = top + rows; | |
983 right = left + cols; | |
984 | |
985 #ifndef HAVE_X11 /* Window manger does this for X11. */ | |
986 /* If the rectangle includes any of the internal border area, | |
987 redisplay the border emphasis. */ | |
988 if (top < 0 || left < 0 | |
771 | 989 || bottom > f->height * FONT_HEIGHT (f->display.x->font) |
990 || right > f->width * FONT_WIDTH (f->display.x->font)) | |
991 dumpborder (f, 0); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
992 #endif /* HAVE_X11 /* Window manger does this for X11. */ */ |
286 | 993 |
994 /* Convert rectangle edges in pixels to edges in chars. | |
995 Round down for left and top, up for right and bottom. */ | |
771 | 996 top /= FONT_HEIGHT (f->display.x->font); |
997 left /= FONT_WIDTH (f->display.x->font); | |
998 bottom += (FONT_HEIGHT (f->display.x->font) - 1); | |
999 right += (FONT_WIDTH (f->display.x->font) - 1); | |
1000 bottom /= FONT_HEIGHT (f->display.x->font); | |
1001 right /= FONT_WIDTH (f->display.x->font); | |
286 | 1002 |
1003 /* Clip the rectangle to what can be visible. */ | |
1004 if (left < 0) | |
1005 left = 0; | |
1006 if (top < 0) | |
1007 top = 0; | |
771 | 1008 if (right > f->width) |
1009 right = f->width; | |
1010 if (bottom > f->height) | |
1011 bottom = f->height; | |
286 | 1012 |
1013 /* Get size in chars of the rectangle. */ | |
1014 cols = right - left; | |
1015 rows = bottom - top; | |
1016 | |
1017 /* If rectangle has zero area, return. */ | |
1018 if (rows <= 0) return; | |
1019 if (cols <= 0) return; | |
1020 | |
1021 /* Turn off the cursor if it is in the rectangle. | |
1022 We will turn it back on afterward. */ | |
771 | 1023 if ((f->phys_cursor_x >= left) && (f->phys_cursor_x < right) |
1024 && (f->phys_cursor_y >= top) && (f->phys_cursor_y < bottom)) | |
286 | 1025 { |
771 | 1026 clear_cursor (f); |
286 | 1027 cursor_cleared = 1; |
1028 } | |
1029 | |
1030 /* Display the text in the rectangle, one text line at a time. */ | |
1031 | |
1032 for (y = top; y < bottom; y++) | |
1033 { | |
771 | 1034 GLYPH *line = &active_frame->glyphs[y][left]; |
1035 | |
1036 if (! active_frame->enable[y] || left > active_frame->used[y]) | |
286 | 1037 continue; |
1038 | |
771 | 1039 dumpglyphs (f, |
1040 (left * FONT_WIDTH (f->display.x->font) | |
1041 + f->display.x->internal_border_width), | |
1042 (y * FONT_HEIGHT (f->display.x->font) | |
1043 + f->display.x->internal_border_width), | |
1044 line, min (cols, active_frame->used[y] - left), | |
1045 active_frame->highlight[y], f->display.x->font); | |
286 | 1046 } |
1047 | |
1048 /* Turn the cursor on if we turned it off. */ | |
1049 | |
1050 if (cursor_cleared) | |
771 | 1051 x_display_cursor (f, 1); |
286 | 1052 } |
1053 | |
1054 #ifndef HAVE_X11 | |
1055 /* Process all queued ExposeRegion events. */ | |
1056 | |
1057 static void | |
1058 dumpqueue () | |
1059 { | |
1060 register int i; | |
1061 XExposeRegionEvent r; | |
1062 | |
1063 while (dequeue_event (&r, &x_expose_queue)) | |
1064 { | |
771 | 1065 struct frame *f = x_window_to_frame (r.window); |
1066 if (f->display.x->icon_desc == r.window) | |
1067 refreshicon (f); | |
286 | 1068 else |
771 | 1069 dumprectangle (f, r.x, r.y, r.width, r.height); |
286 | 1070 } |
1071 XFlushQueue (); | |
1072 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1073 #endif /* HAVE_X11 */ |
286 | 1074 |
1075 /* Process all expose events that are pending. | |
771 | 1076 Redraws the cursor if necessary on any frame that |
1077 is not in the process of being updated with update_frame. */ | |
286 | 1078 |
1079 static void | |
1080 x_do_pending_expose () | |
1081 { | |
1082 int mask; | |
771 | 1083 struct frame *f; |
1084 Lisp_Object tail, frame; | |
286 | 1085 |
1086 if (expose_all_windows) | |
1087 { | |
1088 expose_all_windows = 0; | |
771 | 1089 for (tail = Vframe_list; CONSP (tail); tail = XCONS (tail)->cdr) |
286 | 1090 { |
1091 register int temp_width, temp_height; | |
1092 int intborder; | |
1093 | |
771 | 1094 frame = XCONS (tail)->car; |
1095 if (XTYPE (frame) != Lisp_Frame) | |
286 | 1096 continue; |
771 | 1097 f = XFRAME (frame); |
976
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
1098 if (! FRAME_X_P (f)) |
286 | 1099 continue; |
771 | 1100 if (!f->visible) |
286 | 1101 continue; |
771 | 1102 if (!f->display.x->needs_exposure) |
286 | 1103 continue; |
1104 | |
771 | 1105 intborder = f->display.x->internal_border_width; |
1106 | |
1107 clear_cursor (f); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1108 XGetWindowInfo (FRAME_X_WINDOW (f), &windowinfo); |
286 | 1109 temp_width = ((windowinfo.width - 2 * intborder |
771 | 1110 - f->display.x->v_scrollbar_width) |
1111 / FONT_WIDTH (f->display.x->font)); | |
286 | 1112 temp_height = ((windowinfo.height- 2 * intborder |
771 | 1113 - f->display.x->h_scrollbar_height) |
1114 / FONT_HEIGHT (f->display.x->font)); | |
1115 if (temp_width != f->width || temp_height != f->height) | |
286 | 1116 { |
771 | 1117 change_frame_size (f, max (1, temp_height), |
976
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
1118 max (1, temp_width), 0, 1); |
771 | 1119 x_resize_scrollbars (f); |
286 | 1120 } |
771 | 1121 f->display.x->left_pos = windowinfo.x; |
1122 f->display.x->top_pos = windowinfo.y; | |
1123 dumprectangle (f, 0, 0, PIXEL_WIDTH (f), PIXEL_HEIGHT (f)); | |
286 | 1124 #if 0 |
771 | 1125 dumpborder (f, 0); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1126 #endif /* ! 0 */ |
771 | 1127 f->display.x->needs_exposure = 0; |
1128 if (updating_frame != f) | |
1129 x_display_cursor (f, 1); | |
286 | 1130 XFlushQueue (); |
1131 } | |
1132 } | |
1133 else | |
1134 /* Handle any individual-rectangle expose events queued | |
1135 for various windows. */ | |
1136 #ifdef HAVE_X11 | |
1137 ; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1138 #else /* ! defined (HAVE_X11) */ |
286 | 1139 dumpqueue (); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1140 #endif /* ! defined (HAVE_X11) */ |
286 | 1141 } |
1142 | |
1143 #ifdef HAVE_X11 | |
1144 static void | |
771 | 1145 frame_highlight (frame) |
1146 struct frame *frame; | |
286 | 1147 { |
1148 if (! EQ (Vx_no_window_manager, Qnil)) | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1149 XSetWindowBorder (x_current_display, FRAME_X_WINDOW (frame), |
771 | 1150 frame->display.x->border_pixel); |
1151 x_display_cursor (frame, 1); | |
286 | 1152 } |
1153 | |
1154 static void | |
771 | 1155 frame_unhighlight (frame) |
1156 struct frame *frame; | |
286 | 1157 { |
1158 if (! EQ (Vx_no_window_manager, Qnil)) | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1159 XSetWindowBorderPixmap (x_current_display, FRAME_X_WINDOW (frame), |
771 | 1160 frame->display.x->border_tile); |
1161 x_display_cursor (frame, 1); | |
286 | 1162 } |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1163 #else /* ! defined (HAVE_X11) */ |
771 | 1164 /* Dump the border-emphasis of frame F. |
1165 If F is selected, this is a lining of the same color as the border, | |
286 | 1166 just within the border, occupying a portion of the internal border. |
771 | 1167 If F is not selected, it is background in the same place. |
286 | 1168 If ALWAYS is 0, don't bother explicitly drawing if it's background. |
1169 | |
771 | 1170 ALWAYS = 1 is used when a frame becomes selected or deselected. |
286 | 1171 In that case, we also turn the cursor off and on again |
1172 so it will appear in the proper shape (solid if selected; else hollow.) */ | |
1173 | |
1174 static void | |
771 | 1175 dumpborder (f, always) |
1176 struct frame *f; | |
286 | 1177 int always; |
1178 { | |
771 | 1179 int thickness = f->display.x->internal_border_width / 2; |
1180 int width = PIXEL_WIDTH (f); | |
1181 int height = PIXEL_HEIGHT (f); | |
286 | 1182 int pixel; |
1183 | |
771 | 1184 if (f != selected_frame) |
286 | 1185 { |
1186 if (!always) | |
1187 return; | |
1188 | |
771 | 1189 pixel = f->display.x->background_pixel; |
286 | 1190 } |
1191 else | |
1192 { | |
771 | 1193 pixel = f->display.x->border_pixel; |
286 | 1194 } |
1195 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1196 XPixSet (FRAME_X_WINDOW (f), 0, 0, width, thickness, pixel); |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1197 XPixSet (FRAME_X_WINDOW (f), 0, 0, thickness, height, pixel); |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1198 XPixSet (FRAME_X_WINDOW (f), 0, height - thickness, width, |
286 | 1199 thickness, pixel); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1200 XPixSet (FRAME_X_WINDOW (f), width - thickness, 0, thickness, |
286 | 1201 height, pixel); |
1202 | |
1203 if (always) | |
771 | 1204 x_display_cursor (f, 1); |
286 | 1205 } |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1206 #endif /* ! defined (HAVE_X11) */ |
286 | 1207 |
771 | 1208 static void XTframe_rehighlight (); |
1209 | |
1210 /* The focus has changed. Update the frames as necessary to reflect | |
1211 the new situation. Note that we can't change the selected frame | |
286 | 1212 here, because the lisp code we are interrupting might become confused. |
771 | 1213 Each event gets marked with the frame in which it occured, so the |
369 | 1214 lisp code can tell when the switch took place by examining the events. */ |
1215 | |
1216 static void | |
771 | 1217 x_new_focus_frame (frame) |
1218 struct frame *frame; | |
286 | 1219 { |
771 | 1220 struct frame *old_focus = x_focus_frame; |
286 | 1221 int events_enqueued = 0; |
1222 | |
771 | 1223 if (frame != x_focus_frame) |
286 | 1224 { |
369 | 1225 /* Set this before calling other routines, so that they see |
771 | 1226 the correct value of x_focus_frame. */ |
1227 x_focus_frame = frame; | |
369 | 1228 |
1229 if (old_focus && old_focus->auto_lower) | |
771 | 1230 x_lower_frame (old_focus); |
286 | 1231 |
1232 #if 0 | |
771 | 1233 selected_frame = frame; |
1234 XSET (XWINDOW (selected_frame->selected_window)->frame, | |
1235 Lisp_Frame, selected_frame); | |
1236 Fselect_window (selected_frame->selected_window); | |
1237 choose_minibuf_frame (); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1238 #endif /* ! 0 */ |
286 | 1239 |
771 | 1240 if (x_focus_frame && x_focus_frame->auto_raise) |
1241 x_raise_frame (x_focus_frame); | |
369 | 1242 } |
1243 | |
771 | 1244 XTframe_rehighlight (); |
369 | 1245 } |
1246 | |
1247 | |
771 | 1248 /* The focus has changed, or we have make a frame's selected window |
1249 point to a window on a different frame (this happens with global | |
1250 minibuffer frames). Shift the highlight as appropriate. */ | |
369 | 1251 static void |
771 | 1252 XTframe_rehighlight () |
369 | 1253 { |
771 | 1254 struct frame *old_highlight = x_highlight_frame; |
1255 | |
1256 if (x_focus_frame) | |
286 | 1257 { |
771 | 1258 x_highlight_frame = XFRAME (FRAME_FOCUS_FRAME (x_focus_frame)); |
1259 if (x_highlight_frame->display.nothing == 0) | |
1260 XSET (FRAME_FOCUS_FRAME (x_focus_frame), Lisp_Frame, | |
1261 (x_highlight_frame = x_focus_frame)); | |
286 | 1262 } |
369 | 1263 else |
771 | 1264 x_highlight_frame = 0; |
1265 | |
1266 if (x_highlight_frame != old_highlight) | |
369 | 1267 { |
1268 if (old_highlight) | |
771 | 1269 frame_unhighlight (old_highlight); |
1270 if (x_highlight_frame) | |
1271 frame_highlight (x_highlight_frame); | |
369 | 1272 } |
286 | 1273 } |
1274 | |
1275 enum window_type | |
1276 { | |
1277 no_window, | |
1278 scrollbar_window, | |
1279 text_window, | |
1280 }; | |
1281 | |
1282 /* Position of the mouse in characters */ | |
1283 unsigned int x_mouse_x, x_mouse_y; | |
1284 | |
1285 /* Offset in buffer of character under the pointer, or 0. */ | |
1286 extern int mouse_buffer_offset; | |
1287 | |
1288 extern int buffer_posn_from_coords (); | |
1289 | |
1290 /* Symbols from xfns.c to denote the different parts of a window. */ | |
1291 extern Lisp_Object Qmodeline_part, Qtext_part; | |
1292 | |
1293 #if 0 | |
1294 /* Set *RESULT to an emacs input_event corresponding to MOTION_EVENT. | |
771 | 1295 F is the frame in which the event occurred. |
286 | 1296 |
1297 WINDOW_TYPE says whether the event happened in a scrollbar window | |
1298 or a text window, affecting the format of the event created. | |
1299 | |
1300 PART specifies which part of the scrollbar the event happened in, | |
1301 if WINDOW_TYPE == scrollbar_window. | |
1302 | |
1303 If the mouse is over the same character as the last time we checked, | |
1304 don't return an event; set result->kind to no_event. */ | |
1305 | |
1306 static void | |
771 | 1307 notice_mouse_movement (result, motion_event, f, window_type, part) |
286 | 1308 struct input_event *result; |
1309 XMotionEvent motion_event; | |
771 | 1310 struct frame *f; |
286 | 1311 int window_type; |
1312 Lisp_Object part; | |
1313 { | |
1314 int x, y, root_x, root_y, pix_x, pix_y; | |
1315 unsigned int keys_and_buttons; | |
1316 Window w, root_window; | |
1317 | |
1318 /* Unless we decide otherwise below, return a non-event. */ | |
1319 result->kind = no_event; | |
1320 | |
1321 if (XQueryPointer (x_current_display, | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1322 FRAME_X_WINDOW (f), |
286 | 1323 &root_window, &w, |
1324 &root_x, &root_y, &pix_x, &pix_y, | |
1325 &keys_and_buttons) | |
1326 == False) | |
1327 return; | |
1328 | |
1329 #if 0 | |
1330 if (w == None) /* Mouse no longer in window. */ | |
1331 return Qnil; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1332 #endif /* ! 0 */ |
286 | 1333 |
771 | 1334 pixel_to_glyph_translation (f, pix_x, pix_y, &x, &y); |
286 | 1335 if (x == x_mouse_x && y == x_mouse_y) |
1336 return; | |
1337 | |
1338 x_mouse_x = x; | |
1339 x_mouse_y = y; | |
1340 | |
1341 /* What sort of window are we in now? */ | |
1342 if (window_type == text_window) /* Text part */ | |
1343 { | |
1344 int modeline_p; | |
1345 | |
771 | 1346 Vmouse_window = window_from_coordinates (f, x, y, &modeline_p); |
286 | 1347 |
1348 if (XTYPE (Vmouse_window) == Lisp_Window) | |
1349 mouse_buffer_offset | |
1350 = buffer_posn_from_coords (XWINDOW (Vmouse_window), x, y); | |
1351 else | |
1352 mouse_buffer_offset = 0; | |
1353 | |
1354 if (EQ (Vmouse_window, Qnil)) | |
771 | 1355 Vmouse_frame_part = Qnil; |
286 | 1356 else if (modeline_p) |
771 | 1357 Vmouse_frame_part = Qmodeline_part; |
286 | 1358 else |
771 | 1359 Vmouse_frame_part = Qtext_part; |
286 | 1360 |
1361 result->kind = window_sys_event; | |
1362 result->code = Qmouse_moved; | |
1363 | |
1364 return; | |
1365 } | |
1366 else if (window_type == scrollbar_window) /* Scrollbar */ | |
1367 { | |
771 | 1368 Vmouse_window = f->selected_window; |
286 | 1369 mouse_buffer_offset = 0; |
771 | 1370 Vmouse_frame_part = part; |
286 | 1371 |
1372 result->kind = window_sys_event; | |
1373 result->code = Qmouse_moved; | |
1374 | |
1375 return; | |
1376 } | |
1377 | |
1378 return; | |
1379 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1380 #endif /* ! 0 */ |
286 | 1381 |
429 | 1382 |
1383 /* Mouse clicks and mouse movement. Rah. */ | |
1384 #ifdef HAVE_X11 | |
1385 | |
771 | 1386 /* Given a pixel position (PIX_X, PIX_Y) on the frame F, return |
429 | 1387 glyph co-ordinates in (*X, *Y). Set *BOUNDS to the rectangle |
1388 that the glyph at X, Y occupies, if BOUNDS != 0. */ | |
1389 static void | |
771 | 1390 pixel_to_glyph_coords (f, pix_x, pix_y, x, y, bounds) |
1391 FRAME_PTR f; | |
286 | 1392 register unsigned int pix_x, pix_y; |
1393 register int *x, *y; | |
429 | 1394 XRectangle *bounds; |
286 | 1395 { |
771 | 1396 int ibw = f->display.x->internal_border_width; |
429 | 1397 int width, height; |
771 | 1398 FONT_TYPE *font = f->display.x->font; |
429 | 1399 |
1400 width = FONT_WIDTH (font); | |
1401 height = FONT_HEIGHT (font); | |
286 | 1402 |
1403 /* What line is it on? */ | |
429 | 1404 if (pix_y < ibw) |
1405 *y = 0; | |
771 | 1406 else if (pix_y > f->display.x->pixel_height - ibw) |
1407 *y = FRAME_HEIGHT (f) - 1; | |
429 | 1408 else |
1409 *y = (pix_y - ibw) / height; | |
1410 | |
1411 /* And what column? */ | |
286 | 1412 if (pix_x < ibw) |
1413 *x = 0; | |
771 | 1414 else if (pix_x > f->display.x->pixel_width - ibw) |
1415 *x = FRAME_WIDTH (f) - 1; | |
286 | 1416 else |
429 | 1417 *x = (pix_x - ibw) / width; |
1418 | |
1419 if (bounds) | |
1420 { | |
1421 bounds->width = width; | |
1422 bounds->height = height; | |
1423 bounds->x = ibw + (*x * width); | |
1424 bounds->y = ibw + (*y * height); | |
1425 } | |
286 | 1426 } |
1427 | |
1428 /* Any buttons grabbed. */ | |
1429 unsigned int x_mouse_grabbed; | |
1430 | |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1431 /* Which modifier keys are on which modifier bits? |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1432 |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1433 With each keystroke, X returns eight bits indicating which modifier |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1434 keys were held down when the key was pressed. The low three bits |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1435 indicate the state of the shift, shift lock, caps lock, and control |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1436 keys; their interpretation is fixed. However, the interpretation |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1437 of the other five modifier bits depends on what keys are attached |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1438 to them. If the Meta_L and Meta_R keysyms are on mod5, then mod5 |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1439 is the meta bit. |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1440 |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1441 x_meta_mod_mask is a mask containing the bits used for the meta key. |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1442 It may have more than one bit set, if more than one modifier bit |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1443 has meta keys on it. Basically, if EVENT is a KeyPress event, |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1444 the meta key is pressed if (EVENT.state & x_meta_mod_mask) != 0. */ |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1445 static int x_meta_mod_mask; |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1446 |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1447 /* Initialize mode_switch_bit and modifier_meaning. */ |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1448 static void |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1449 x_find_modifier_meanings () |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1450 { |
1324
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
1451 int min_code, max_code; |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1452 KeySym *syms; |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1453 int syms_per_code; |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1454 XModifierKeymap *mods; |
1324
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
1455 int alt_mod_mask = 0; |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1456 |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1457 x_meta_mod_mask = 0; |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1458 |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1459 XDisplayKeycodes (x_current_display, &min_code, &max_code); |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1460 syms = XGetKeyboardMapping (x_current_display, |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1461 min_code, max_code - min_code + 1, |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1462 &syms_per_code); |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1463 mods = XGetModifierMapping (x_current_display); |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1464 |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1465 /* If CapsLock is on the lock modifier, then only letters should be |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1466 affected; since XLookupString takes care of this for us, the lock |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1467 modifier shouldn't set shift_modifier. However, if ShiftLock is |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1468 on the lock modifier, then lock should mean shift. */ |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1469 { |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1470 int row, col; /* The row and column in the modifier table. */ |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1471 |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1472 for (row = 3; row < 8; row++) |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1473 for (col = 0; col < mods->max_keypermod; col++) |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1474 { |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1475 KeyCode code = |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1476 mods->modifiermap[(row * mods->max_keypermod) + col]; |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1477 |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1478 /* Are any of this keycode's keysyms a meta key? */ |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1479 { |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1480 int code_col; |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1481 |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1482 for (code_col = 0; code_col < syms_per_code; code_col++) |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1483 { |
1324
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
1484 int sym = syms[((code - min_code) * syms_per_code) + code_col]; |
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
1485 |
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
1486 switch (sym) |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1487 { |
1324
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
1488 case XK_Meta_L: |
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
1489 case XK_Meta_R: |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1490 x_meta_mod_mask |= (1 << row); |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1491 break; |
1324
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
1492 |
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
1493 case XK_Alt_L: |
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
1494 case XK_Alt_R: |
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
1495 alt_mod_mask |= (1 << row); |
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
1496 break; |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1497 } |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1498 } |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1499 } |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1500 } |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1501 } |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1502 |
1324
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
1503 /* If we couldn't find any meta keys, accept any alt keys as meta keys. */ |
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
1504 if (! x_meta_mod_mask) |
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
1505 x_meta_mod_mask = alt_mod_mask; |
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
1506 |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1507 XFree ((char *) syms); |
1324
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
1508 XFreeModifiermap (mods); |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1509 } |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1510 |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1511 |
286 | 1512 /* Convert a set of X modifier bits to the proper form for a |
1513 struct input_event modifiers value. */ | |
1514 | |
1515 static Lisp_Object | |
1516 x_convert_modifiers (state) | |
1517 unsigned int state; | |
1518 { | |
1519 return ( ((state & (ShiftMask | LockMask)) ? shift_modifier : 0) | |
1520 | ((state & ControlMask) ? ctrl_modifier : 0) | |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1521 | ((state & x_meta_mod_mask) ? meta_modifier : 0)); |
286 | 1522 } |
1523 | |
771 | 1524 extern struct frame *x_window_to_scrollbar (); |
286 | 1525 extern Lisp_Object Vmouse_event; |
1526 | |
1527 /* Prepare a mouse-event in *RESULT for placement in the input queue. | |
1528 | |
1529 If the event is a button press, then note that we have grabbed | |
1530 the mouse. | |
1531 | |
1532 If PART and PREFIX are 0, then the event occurred in the text part; | |
1533 otherwise it happened in a scrollbar. */ | |
1534 | |
1535 static Lisp_Object | |
771 | 1536 construct_mouse_click (result, event, f, part, prefix) |
286 | 1537 struct input_event *result; |
1538 XButtonEvent *event; | |
771 | 1539 struct frame *f; |
286 | 1540 int prefix; |
1541 Lisp_Object part; | |
1542 { | |
1543 /* Initialize those fields text and scrollbar clicks hold in common. | |
1544 Make the event type no_event; we'll change that when we decide | |
1545 otherwise. */ | |
1546 result->kind = no_event; | |
1547 XSET (result->code, Lisp_Int, event->button); | |
708 | 1548 result->timestamp = event->time; |
286 | 1549 result->modifiers = (x_convert_modifiers (event->state) |
1324
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
1550 | (event->type == ButtonRelease |
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
1551 ? up_modifier |
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
1552 : down_modifier)); |
286 | 1553 |
1554 /* Notice if the mouse is still grabbed. */ | |
1555 if (event->type == ButtonPress) | |
1556 { | |
1557 if (! x_mouse_grabbed) | |
1558 Vmouse_depressed = Qt; | |
429 | 1559 x_mouse_grabbed |= (1 << event->button); |
286 | 1560 } |
1561 else if (event->type == ButtonRelease) | |
1562 { | |
429 | 1563 x_mouse_grabbed &= ~(1 << event->button); |
286 | 1564 if (!x_mouse_grabbed) |
1565 Vmouse_depressed = Qnil; | |
1566 } | |
1567 | |
1568 if (part) /* Scrollbar event */ | |
1569 { | |
1570 int pos, len; | |
1571 | |
771 | 1572 pos = event->y - (f->display.x->v_scrollbar_width - 2); |
286 | 1573 XSET (x_mouse_x, Lisp_Int, pos); |
771 | 1574 len = ((FONT_HEIGHT (f->display.x->font) * f->height) |
1575 + f->display.x->internal_border_width | |
1576 - (2 * (f->display.x->v_scrollbar_width - 2))); | |
286 | 1577 XSET (x_mouse_y, Lisp_Int, len); |
1578 | |
1579 result->kind = scrollbar_click; | |
1580 result->part = part; | |
771 | 1581 XSET (result->x, Lisp_Int, (f->display.x->top_pos - event->y)); |
1582 XSET (result->y, Lisp_Int, f->display.x->pixel_height); | |
1583 result->frame = f; | |
286 | 1584 } |
1585 else /* Text Window Event */ | |
1586 { | |
1587 int row, column; | |
1588 | |
771 | 1589 pixel_to_glyph_coords (f, event->x, event->y, &column, &row, NULL); |
286 | 1590 result->kind = mouse_click; |
1591 result->x = column; | |
1592 result->y = row; | |
771 | 1593 result->frame = f; |
286 | 1594 } |
1595 } | |
1596 | |
1597 | |
429 | 1598 /* Mouse movement. Rah. |
1599 | |
1600 In order to avoid asking for motion events and then throwing most | |
1601 of them away or busy-polling the server for mouse positions, we ask | |
1602 the server for pointer motion hints. This means that we get only | |
1603 one event per group of mouse movements. "Groups" are delimited by | |
1604 other kinds of events (focus changes and button clicks, for | |
1605 example), or by XQueryPointer calls; when one of these happens, we | |
1606 get another MotionNotify event the next time the mouse moves. This | |
732 | 1607 is at least as efficient as getting motion events when mouse |
429 | 1608 tracking is on, and I suspect only negligibly worse when tracking |
1609 is off. | |
1610 | |
1611 The silly O'Reilly & Associates Nutshell guides barely document | |
1612 pointer motion hints at all (I think you have to infer how they | |
1613 work from an example), and the description of XQueryPointer doesn't | |
1614 mention that calling it causes you to get another motion hint from | |
1615 the server, which is very important. */ | |
1616 | |
1617 /* Where the mouse was last time we reported a mouse event. */ | |
771 | 1618 static FRAME_PTR last_mouse_frame; |
429 | 1619 static XRectangle last_mouse_glyph; |
1620 | |
732 | 1621 /* This is a hack. We would really prefer that XTmouse_position would |
1622 return the time associated with the position it returns, but there | |
1623 doesn't seem to be any way to wrest the timestamp from the server | |
1624 along with the position query. So, we just keep track of the time | |
1625 of the last movement we received, and return that in hopes that | |
1626 it's somewhat accurate. */ | |
1627 static Time last_mouse_movement_time; | |
1628 | |
429 | 1629 /* Function to report a mouse movement to the mainstream Emacs code. |
1630 The input handler calls this. | |
1631 | |
1632 We have received a mouse movement event, which is given in *event. | |
1633 If the mouse is over a different glyph than it was last time, tell | |
1634 the mainstream emacs code by setting mouse_moved. If not, ask for | |
1635 another motion event, so we can check again the next time it moves. */ | |
1636 static void | |
771 | 1637 note_mouse_position (frame, event) |
1638 FRAME_PTR frame; | |
429 | 1639 XMotionEvent *event; |
1640 | |
1641 { | |
732 | 1642 last_mouse_movement_time = event->time; |
1643 | |
429 | 1644 /* Has the mouse moved off the glyph it was on at the last sighting? */ |
1645 if (event->x < last_mouse_glyph.x | |
1646 || event->x >= last_mouse_glyph.x + last_mouse_glyph.width | |
1647 || event->y < last_mouse_glyph.y | |
1648 || event->y >= last_mouse_glyph.y + last_mouse_glyph.height) | |
1649 mouse_moved = 1; | |
1650 else | |
1651 { | |
1652 /* It's on the same glyph. Call XQueryPointer so we'll get an | |
1653 event the next time the mouse moves and we can see if it's | |
1654 *still* on the same glyph. */ | |
1655 int dummy; | |
1656 | |
1657 XQueryPointer (event->display, event->window, | |
1658 (Window *) &dummy, (Window *) &dummy, | |
1659 &dummy, &dummy, &dummy, &dummy, | |
1660 (unsigned int *) &dummy); | |
1661 } | |
1662 } | |
1663 | |
1664 /* Return the current position of the mouse. | |
1665 | |
1666 This clears the mouse_moved flag, so we can wait for the next mouse | |
1667 position. This also calls XQueryPointer, which will cause the | |
1668 server to give us another MotionNotify when the mouse moves again. | |
1669 */ | |
1670 | |
1671 static void | |
771 | 1672 XTmouse_position (f, x, y, time) |
1673 FRAME_PTR *f; | |
429 | 1674 Lisp_Object *x, *y; |
732 | 1675 unsigned long *time; |
429 | 1676 { |
1677 int ix, iy, dummy; | |
1678 Display *d = x_current_display; | |
1679 Window guess, root, child; | |
1680 | |
1681 BLOCK_INPUT; | |
1682 | |
1683 /* I would like to have an X function that just told me the | |
1684 innermost window containing the mouse. | |
1685 | |
1686 /* There doesn't seem to be any way to just get the innermost window | |
771 | 1687 containing the pointer, no matter what X frame it's on; you have |
429 | 1688 to guess a window, and then X will tell you which one of that |
1689 window's children it's in. If the pointer isn't in any of that | |
1690 window's children, it gives you a root window that contains it. | |
1691 | |
771 | 1692 So we start with the selected frame's window and chase down |
429 | 1693 branches under the guidance of XQueryPointer until we hit a leaf |
1694 (all of the Emacs windows we care about are leaf windows). If at | |
1695 any time XQueryPointer returns false, that means that the current | |
1696 window does not contain the pointer any more (perhaps it moved), | |
1697 so we start with the root window XQueryPointer has given us and | |
1698 start again. */ | |
1699 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1700 guess = FRAME_X_WINDOW (selected_frame); |
429 | 1701 for (;;) |
1702 if (XQueryPointer (d, guess, &root, &child, | |
1703 &dummy, &dummy, &ix, &iy, (unsigned int *) &dummy)) | |
1704 { | |
1705 if (child == None) | |
1706 /* Guess is a leaf window, and it contains the pointer. */ | |
1707 break; | |
1708 else | |
1709 guess = child; | |
1710 } | |
1711 else | |
1712 /* When XQueryPointer returns False, the pointer isn't in guess | |
771 | 1713 anymore, but root is the root window of the frame we should |
429 | 1714 try instead. */ |
1715 guess = root; | |
1716 | |
771 | 1717 *f = last_mouse_frame = x_window_to_frame (guess); |
1718 if (! *f) | |
429 | 1719 *x = *y = Qnil; |
1720 else | |
1721 { | |
771 | 1722 pixel_to_glyph_coords (*f, ix, iy, &ix, &iy, &last_mouse_glyph); |
429 | 1723 XSET (*x, Lisp_Int, ix); |
1724 XSET (*y, Lisp_Int, iy); | |
1725 } | |
1726 | |
1727 mouse_moved = 0; | |
1728 | |
1729 /* I don't know how to find the time for the last movement; it seems | |
732 | 1730 like XQueryPointer ought to return it, but it doesn't. So, we'll |
1731 return the time of the last MotionNotify event we received. Note | |
1732 that the use of motion hints means that this isn't guaranteed to | |
1733 be accurate at all. */ | |
1734 *time = last_mouse_movement_time; | |
429 | 1735 |
1736 UNBLOCK_INPUT; | |
1737 } | |
1738 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1739 #else /* ! defined (HAVE_X11) */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1740 #define XEvent XKeyPressedEvent |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1741 #endif /* ! defined (HAVE_X11) */ |
429 | 1742 |
286 | 1743 |
1744 /* Timestamp of enter window event. This is only used by XTread_socket, | |
1745 but we have to put it out here, since static variables within functions | |
1746 sometimes don't work. */ | |
1747 static Time enter_timestamp; | |
1748 | |
642 | 1749 /* Communication with window managers. */ |
1750 Atom Xatom_wm_protocols; | |
1751 | |
1752 /* Kinds of protocol things we may receive. */ | |
1753 Atom Xatom_wm_take_focus; | |
1754 Atom Xatom_wm_save_yourself; | |
1755 Atom Xatom_wm_delete_window; | |
1756 | |
1757 /* Other WM communication */ | |
1758 Atom Xatom_wm_configure_denied; /* When our config request is denied */ | |
1759 Atom Xatom_wm_window_moved; /* When the WM moves us. */ | |
1760 | |
286 | 1761 /* Read events coming from the X server. |
1762 This routine is called by the SIGIO handler. | |
1763 We return as soon as there are no more events to be read. | |
1764 | |
1765 Events representing keys are stored in buffer BUFP, | |
1766 which can hold up to NUMCHARS characters. | |
1767 We return the number of characters stored into the buffer, | |
1768 thus pretending to be `read'. | |
1769 | |
1770 WAITP is nonzero if we should block until input arrives. | |
1771 EXPECTED is nonzero if the caller knows input is available. */ | |
1772 | |
1773 Lisp_Object | |
1774 XTread_socket (sd, bufp, numchars, waitp, expected) | |
1775 register int sd; | |
1776 register struct input_event *bufp; | |
1777 register int numchars; | |
1778 int waitp; | |
1779 int expected; | |
1780 { | |
1781 int count = 0; | |
1782 int nbytes = 0; | |
1783 int mask; | |
1784 int items_pending; /* How many items are in the X queue. */ | |
1785 XEvent event; | |
771 | 1786 struct frame *f; |
286 | 1787 int event_found; |
1788 int prefix; | |
1789 Lisp_Object part; | |
1790 | |
1791 if (x_input_blocked) | |
1792 { | |
1793 x_pending_input = 1; | |
1794 return -1; | |
1795 } | |
1796 | |
1797 x_pending_input = 0; | |
1798 BLOCK_INPUT; | |
1799 | |
1800 if (numchars <= 0) | |
1801 abort (); /* Don't think this happens. */ | |
1802 | |
1803 #ifdef FIOSNBIO | |
1804 /* If available, Xlib uses FIOSNBIO to make the socket | |
1805 non-blocking, and then looks for EWOULDBLOCK. If O_NDELAY is set, | |
1806 FIOSNBIO is ignored, and instead of signalling EWOULDBLOCK, | |
1807 a read returns 0, which Xlib interprets as equivalent to EPIPE. */ | |
1808 fcntl (fileno (stdin), F_SETFL, 0); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1809 #endif /* ! defined (FIOSNBIO) */ |
286 | 1810 |
1811 #ifndef SIGIO | |
1812 #ifndef HAVE_SELECT | |
1813 if (! (fcntl (fileno (stdin), F_GETFL, 0) & O_NDELAY)) | |
1814 { | |
1815 extern int read_alarm_should_throw; | |
1816 read_alarm_should_throw = 1; | |
1817 XPeekEvent (XDISPLAY &event); | |
1818 read_alarm_should_throw = 0; | |
1819 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1820 #endif /* HAVE_SELECT */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1821 #endif /* SIGIO */ |
286 | 1822 |
1823 while (XStuffPending () != 0) | |
1824 { | |
1825 XNextEvent (XDISPLAY &event); | |
1826 event_found = 1; | |
1827 | |
1828 switch (event.type) | |
1829 { | |
1830 #ifdef HAVE_X11 | |
642 | 1831 case ClientMessage: |
1832 { | |
1833 if (event.xclient.message_type == Xatom_wm_protocols | |
1834 && event.xclient.format == 32) | |
1835 { | |
1836 if (event.xclient.data.l[0] == Xatom_wm_take_focus) | |
1837 { | |
771 | 1838 f = x_window_to_frame (event.xclient.window); |
1839 if (f) | |
1840 x_focus_on_frame (f); | |
642 | 1841 /* Not certain about handling scrollbars here */ |
1842 } | |
1843 else if (event.xclient.data.l[0] == Xatom_wm_save_yourself) | |
1844 { | |
1845 /* Save state modify the WM_COMMAND property to | |
1846 something which can reinstate us. This notifies | |
1847 the session manager, who's looking for such a | |
1848 PropertyNotify. Can restart processing when | |
1849 a keyboard or mouse event arrives. */ | |
1850 if (numchars > 0) | |
1851 { | |
1852 } | |
1853 } | |
1854 else if (event.xclient.data.l[0] == Xatom_wm_delete_window) | |
1855 { | |
771 | 1856 struct frame *f = x_window_to_frame (event.xclient.window); |
1857 | |
1858 if (f) | |
642 | 1859 if (numchars > 0) |
1860 { | |
1861 } | |
1862 } | |
1863 } | |
1864 else if (event.xclient.message_type == Xatom_wm_configure_denied) | |
1865 { | |
1866 } | |
1867 else if (event.xclient.message_type == Xatom_wm_window_moved) | |
1868 { | |
1869 int new_x, new_y; | |
1870 | |
786 | 1871 new_x = event.xclient.data.s[0]; |
1872 new_y = event.xclient.data.s[1]; | |
642 | 1873 } |
1874 } | |
1875 break; | |
286 | 1876 |
1877 case SelectionClear: /* Someone has grabbed ownership. */ | |
1878 x_disown_selection (event.xselectionclear.window, | |
1879 event.xselectionclear.selection, | |
1880 event.xselectionclear.time); | |
1881 break; | |
1882 | |
1883 case SelectionRequest: /* Someone wants our selection. */ | |
1884 x_answer_selection_request (event); | |
1885 break; | |
1886 | |
1887 case PropertyNotify: | |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1888 |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1889 /* If we're being told about a root window property, then it's |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1890 a cut buffer change. */ |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1891 if (event.xproperty.window == ROOT_WINDOW) |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1892 x_invalidate_cut_buffer_cache (&event.xproperty); |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1893 |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1894 /* Otherwise, we're probably handling an incremental |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1895 selection transmission. */ |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1896 else |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1897 { |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1898 /* If we were to do this synchronously, there'd be no worry |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1899 about re-selecting. */ |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1900 x_send_incremental (event); |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
1901 } |
286 | 1902 break; |
1903 | |
1904 case Expose: | |
771 | 1905 f = x_window_to_frame (event.xexpose.window); |
1906 if (f) | |
286 | 1907 { |
771 | 1908 if (f->visible == 0) |
286 | 1909 { |
771 | 1910 f->visible = 1; |
1911 f->iconified = 0; | |
1912 SET_FRAME_GARBAGED (f); | |
286 | 1913 } |
1914 else | |
771 | 1915 dumprectangle (x_window_to_frame (event.xexpose.window), |
286 | 1916 event.xexpose.x, event.xexpose.y, |
1917 event.xexpose.width, event.xexpose.height); | |
1918 } | |
1919 break; | |
1920 | |
1921 case GraphicsExpose: /* This occurs when an XCopyArea's | |
1922 source area was obscured or not | |
1923 available.*/ | |
771 | 1924 dumprectangle (x_window_to_frame (event.xgraphicsexpose.drawable), |
286 | 1925 event.xgraphicsexpose.x, event.xgraphicsexpose.y, |
1926 event.xgraphicsexpose.width, | |
1927 event.xgraphicsexpose.height); | |
1928 break; | |
1929 | |
1930 case NoExpose: /* This occurs when an XCopyArea's | |
1931 source area was completely | |
1932 available */ | |
1933 break; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1934 #else /* ! defined (HAVE_X11) */ |
286 | 1935 case ExposeWindow: |
1936 if (event.subwindow != 0) | |
1937 break; /* duplicate event */ | |
771 | 1938 f = x_window_to_frame (event.window); |
1939 if (event.window == f->display.x->icon_desc) | |
286 | 1940 { |
771 | 1941 refreshicon (f); |
1942 f->iconified = 1; | |
286 | 1943 } |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1944 if (event.window == FRAME_X_WINDOW (f)) |
286 | 1945 { |
1946 /* Say must check all windows' needs_exposure flags. */ | |
1947 expose_all_windows = 1; | |
771 | 1948 f->display.x->needs_exposure = 1; |
1949 f->visible = 1; | |
286 | 1950 } |
1951 break; | |
1952 | |
1953 case ExposeRegion: | |
1954 if (event.subwindow != 0) | |
1955 break; /* duplicate event */ | |
771 | 1956 f = x_window_to_frame (event.window); |
1957 if (event.window == f->display.x->icon_desc) | |
286 | 1958 { |
771 | 1959 refreshicon (f); |
286 | 1960 break; |
1961 } | |
1962 /* If window already needs full redraw, ignore this rectangle. */ | |
771 | 1963 if (expose_all_windows && f->display.x->needs_exposure) |
286 | 1964 break; |
1965 /* Put the event on the queue of rectangles to redraw. */ | |
1966 if (enqueue_event (&event, &x_expose_queue)) | |
1967 /* If it is full, we can't record the rectangle, | |
1968 so redraw this entire window. */ | |
1969 { | |
1970 /* Say must check all windows' needs_exposure flags. */ | |
1971 expose_all_windows = 1; | |
771 | 1972 f->display.x->needs_exposure = 1; |
286 | 1973 } |
1974 break; | |
1975 | |
1976 case ExposeCopy: | |
1977 /* This should happen only when we are expecting it, | |
1978 in x_read_exposes. */ | |
1979 abort (); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1980 #endif /* ! defined (HAVE_X11) */ |
286 | 1981 |
1982 #ifdef HAVE_X11 | |
1983 case UnmapNotify: | |
1984 { | |
1985 XWMHints *hints; | |
1986 | |
771 | 1987 f = x_window_to_frame (event.xunmap.window); |
1988 if (f) /* F may no longer exist if | |
1989 the frame was deleted. */ | |
286 | 1990 { |
771 | 1991 /* While a frame is unmapped, display generation is |
286 | 1992 disabled; you don't want to spend time updating a |
1993 display that won't ever be seen. */ | |
771 | 1994 f->visible = 0; |
286 | 1995 x_mouse_x = x_mouse_y = -1; |
1996 } | |
1997 } | |
1998 break; | |
1999 | |
2000 case MapNotify: | |
771 | 2001 f = x_window_to_frame (event.xmap.window); |
2002 if (f) | |
286 | 2003 { |
771 | 2004 f->visible = 1; |
2005 f->iconified = 0; | |
286 | 2006 |
2007 /* wait_reading_process_input will notice this and update | |
771 | 2008 the frame's display structures. */ |
2009 SET_FRAME_GARBAGED (f); | |
286 | 2010 } |
2011 break; | |
2012 | |
2013 /* Turn off processing if we become fully obscured. */ | |
2014 case VisibilityNotify: | |
2015 break; | |
2016 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2017 #else /* ! defined (HAVE_X11) */ |
286 | 2018 case UnmapWindow: |
771 | 2019 f = x_window_to_frame (event.window); |
2020 if (event.window == f->display.x->icon_desc) | |
2021 f->iconified = 0; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2022 if (event.window == FRAME_X_WINDOW (f)) |
771 | 2023 f->visible = 0; |
286 | 2024 break; |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2025 #endif /* ! defined (HAVE_X11) */ |
286 | 2026 |
2027 #ifdef HAVE_X11 | |
2028 case KeyPress: | |
771 | 2029 f = x_window_to_frame (event.xkey.window); |
2030 if (f != 0) | |
286 | 2031 { |
2032 KeySym keysym; | |
2033 XComposeStatus status; | |
2034 char copy_buffer[80]; | |
555 | 2035 int modifiers = event.xkey.state; |
2036 | |
2037 /* Some keyboards generate different characters | |
2038 depending on the state of the meta key, in an attempt | |
2039 to support non-English typists. It would be nice to | |
2040 keep this functionality somehow, but for now, we will | |
2041 just clear the meta-key flag to get the 'pure' character. */ | |
2042 event.xkey.state &= ~Mod1Mask; | |
286 | 2043 |
2044 /* This will have to go some day... */ | |
2045 nbytes = XLookupString (&event.xkey, | |
2046 copy_buffer, | |
2047 80, | |
2048 &keysym, | |
2049 &status); | |
2050 | |
395 | 2051 /* Strip off the vendor-specific keysym bit, and take a shot |
2052 at recognizing the codes. HP servers have extra keysyms | |
2053 that fit into the MiscFunctionKey category. */ | |
2054 keysym &= ~(1<<28); | |
2055 | |
286 | 2056 if (numchars > 1) |
2057 { | |
395 | 2058 if (IsCursorKey (keysym) /* 0xff50 <= x < 0xff60 */ |
2059 || IsMiscFunctionKey (keysym) /* 0xff60 <= x < 0xff80 */ | |
2060 || IsKeypadKey (keysym) /* 0xff80 <= x < 0xffbe */ | |
2061 || IsFunctionKey (keysym)) /* 0xffbe <= x < 0xffe1 */ | |
286 | 2062 { |
2063 bufp->kind = non_ascii_keystroke; | |
429 | 2064 XSET (bufp->code, Lisp_Int, (unsigned) keysym - 0xff50); |
771 | 2065 bufp->frame = f; |
555 | 2066 bufp->modifiers = x_convert_modifiers (modifiers); |
708 | 2067 bufp->timestamp = event.xkey.time; |
286 | 2068 bufp++; |
2069 count++; | |
2070 numchars--; | |
2071 } | |
2072 else if (numchars > nbytes) | |
2073 { | |
2074 register int i; | |
2075 | |
2076 if (nbytes == 1) | |
2077 { | |
1324
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
2078 if (modifiers & x_meta_mod_mask) |
286 | 2079 *copy_buffer |= METABIT; |
2080 bufp->kind = ascii_keystroke; | |
708 | 2081 XSET (bufp->code, Lisp_Int, *copy_buffer); |
771 | 2082 bufp->frame = f; |
708 | 2083 bufp->timestamp = event.xkey.time; |
286 | 2084 bufp++; |
2085 } | |
2086 else | |
2087 for (i = nbytes - 1; i > 1; i--) | |
2088 { | |
2089 bufp->kind = ascii_keystroke; | |
2090 XSET (bufp->code, Lisp_Int, copy_buffer[i]); | |
771 | 2091 bufp->frame = f; |
708 | 2092 bufp->timestamp = event.xkey.time; |
286 | 2093 bufp++; |
2094 } | |
2095 | |
2096 count += nbytes; | |
2097 numchars -= nbytes; | |
2098 } | |
2099 } | |
2100 } | |
2101 break; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2102 #else /* ! defined (HAVE_X11) */ |
286 | 2103 case KeyPressed: |
2104 { | |
2105 register char *where_mapping; | |
2106 | |
771 | 2107 f = x_window_to_frame (event.window); |
286 | 2108 /* Ignore keys typed on icon windows. */ |
771 | 2109 if (f != 0 && event.window == f->display.x->icon_desc) |
286 | 2110 break; |
2111 where_mapping = XLookupMapping (&event, &nbytes); | |
2112 /* Nasty fix for arrow keys */ | |
2113 if (!nbytes && IsCursorKey (event.detail & 0xff)) | |
2114 { | |
2115 switch (event.detail & 0xff) | |
2116 { | |
2117 case KC_CURSOR_LEFT: | |
2118 where_mapping = "\002"; | |
2119 break; | |
2120 case KC_CURSOR_RIGHT: | |
2121 where_mapping = "\006"; | |
2122 break; | |
2123 case KC_CURSOR_UP: | |
2124 where_mapping = "\020"; | |
2125 break; | |
2126 case KC_CURSOR_DOWN: | |
2127 where_mapping = "\016"; | |
2128 break; | |
2129 } | |
2130 nbytes = 1; | |
2131 } | |
2132 if (numchars - nbytes > 0) | |
2133 { | |
2134 register int i; | |
2135 | |
2136 for (i = 0; i < nbytes; i++) | |
2137 { | |
2138 bufp->kind = ascii_keystroke; | |
2139 XSET (bufp->code, Lisp_Int, where_mapping[i]); | |
429 | 2140 XSET (bufp->time, Lisp_Int, event.xkey.time); |
771 | 2141 bufp->frame = f; |
286 | 2142 bufp++; |
2143 } | |
2144 count += nbytes; | |
2145 numchars -= nbytes; | |
2146 } | |
2147 } | |
2148 break; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2149 #endif /* ! defined (HAVE_X11) */ |
286 | 2150 |
2151 #ifdef HAVE_X11 | |
2152 case EnterNotify: | |
771 | 2153 f = x_window_to_frame (event.xcrossing.window); |
369 | 2154 |
286 | 2155 if (event.xcrossing.detail == NotifyInferior) /* Left Scrollbar */ |
2156 ; | |
2157 else if (event.xcrossing.focus) /* Entered Window */ | |
2158 { | |
2159 /* If we decide we want to generate an event to be seen | |
2160 by the rest of Emacs, we put it here. */ | |
2161 struct input_event emacs_event; | |
2162 emacs_event.kind = no_event; | |
2163 | |
2164 /* Avoid nasty pop/raise loops. */ | |
771 | 2165 if (f && (!(f->auto_raise) |
2166 || !(f->auto_lower) | |
286 | 2167 || (event.xcrossing.time - enter_timestamp) > 500)) |
2168 { | |
771 | 2169 x_new_focus_frame (f); |
286 | 2170 enter_timestamp = event.xcrossing.time; |
2171 } | |
2172 #if 0 | |
771 | 2173 else if ((f = x_window_to_scrollbar (event.xcrossing.window, |
286 | 2174 &part, &prefix))) |
2175 /* Fake a motion event */ | |
2176 notice_mouse_movement (&emacs_event, | |
771 | 2177 event.xmotion, f, scrollbar_window, |
286 | 2178 part); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2179 #endif /* ! 0 */ |
286 | 2180 |
2181 #if 0 | |
2182 if (! EQ (Vx_send_mouse_movement_events, Qnil) | |
2183 && numchars >= 1 | |
2184 && emacs_event.kind != no_event) | |
2185 { | |
2186 bcopy (&emacs_event, bufp, sizeof (struct input_event)); | |
2187 bufp++; | |
2188 count++; | |
2189 numchars--; | |
2190 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2191 #endif /* ! 0 */ |
286 | 2192 } |
771 | 2193 else if (f == x_focus_frame) |
2194 x_new_focus_frame (0); | |
286 | 2195 #if 0 |
771 | 2196 else if (f = x_window_to_frame (event.xcrossing.window)) |
2197 x_mouse_frame = f; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2198 #endif /* ! 0 */ |
286 | 2199 |
2200 break; | |
2201 | |
2202 case FocusIn: | |
771 | 2203 f = x_window_to_frame (event.xfocus.window); |
2204 if (f) | |
2205 x_new_focus_frame (f); | |
286 | 2206 break; |
2207 | |
2208 case LeaveNotify: | |
2209 if (event.xcrossing.detail != NotifyInferior | |
2210 && event.xcrossing.subwindow == None | |
2211 && event.xcrossing.mode == NotifyNormal) | |
2212 { | |
771 | 2213 f = x_window_to_frame (event.xcrossing.window); |
976
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
2214 |
313 | 2215 if (event.xcrossing.focus) |
771 | 2216 x_new_focus_frame (f); |
2217 else if (f == x_focus_frame) | |
2218 x_new_focus_frame (0); | |
286 | 2219 } |
2220 break; | |
2221 | |
2222 case FocusOut: | |
771 | 2223 f = x_window_to_frame (event.xfocus.window); |
2224 if (f && f == x_focus_frame) | |
2225 x_new_focus_frame (0); | |
286 | 2226 break; |
2227 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2228 #else /* ! defined (HAVE_X11) */ |
286 | 2229 |
2230 case EnterWindow: | |
2231 if ((event.detail & 0xFF) == 1) | |
2232 break; /* Coming from our own subwindow */ | |
2233 if (event.subwindow != 0) | |
2234 break; /* Entering our own subwindow. */ | |
2235 | |
2236 { | |
771 | 2237 f = x_window_to_frame (event.window); |
2238 x_mouse_frame = f; | |
2239 | |
2240 x_new_focus_frame (f); | |
286 | 2241 } |
2242 break; | |
2243 | |
2244 case LeaveWindow: | |
2245 if ((event.detail & 0xFF) == 1) | |
2246 break; /* Entering our own subwindow */ | |
2247 if (event.subwindow != 0) | |
2248 break; /* Leaving our own subwindow. */ | |
2249 | |
771 | 2250 x_mouse_frame = 0; |
2251 if (x_focus_frame == 0 | |
2252 && x_input_frame != 0 | |
2253 && x_input_frame == x_window_to_frame (event.window) | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2254 && event.window == FRAME_X_WINDOW (x_input_frame)) |
286 | 2255 { |
771 | 2256 f = x_input_frame; |
2257 x_input_frame = 0; | |
2258 if (f) | |
2259 frame_unhighlight (f); | |
286 | 2260 } |
2261 break; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2262 #endif /* ! defined (HAVE_X11) */ |
286 | 2263 |
2264 #ifdef HAVE_X11 | |
2265 case MotionNotify: | |
2266 { | |
771 | 2267 f = x_window_to_frame (event.xmotion.window); |
2268 if (f) | |
2269 note_mouse_position (f, &event.xmotion); | |
286 | 2270 #if 0 |
771 | 2271 else if ((f = x_window_to_scrollbar (event.xmotion.window, |
286 | 2272 &part, &prefix))) |
2273 { | |
2274 What should go here? | |
2275 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2276 #endif /* ! 0 */ |
286 | 2277 } |
2278 break; | |
2279 | |
2280 case ConfigureNotify: | |
2281 { | |
2282 int rows, columns; | |
771 | 2283 f = x_window_to_frame (event.xconfigure.window); |
2284 if (!f) | |
286 | 2285 break; |
2286 | |
2287 columns = ((event.xconfigure.width - | |
771 | 2288 (2 * f->display.x->internal_border_width) |
2289 - f->display.x->v_scrollbar_width) | |
2290 / FONT_WIDTH (f->display.x->font)); | |
286 | 2291 rows = ((event.xconfigure.height - |
771 | 2292 (2 * f->display.x->internal_border_width) |
2293 - f->display.x->h_scrollbar_height) | |
2294 / FONT_HEIGHT (f->display.x->font)); | |
286 | 2295 |
429 | 2296 /* Even if the number of character rows and columns has |
2297 not changed, the font size may have changed, so we need | |
2298 to check the pixel dimensions as well. */ | |
771 | 2299 if (columns != f->width |
2300 || rows != f->height | |
2301 || event.xconfigure.width != f->display.x->pixel_width | |
2302 || event.xconfigure.height != f->display.x->pixel_height) | |
286 | 2303 { |
976
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
2304 change_frame_size (f, rows, columns, 0, 1); |
771 | 2305 x_resize_scrollbars (f); |
2306 SET_FRAME_GARBAGED (f); | |
286 | 2307 } |
2308 | |
771 | 2309 f->display.x->pixel_width = event.xconfigure.width; |
2310 f->display.x->pixel_height = event.xconfigure.height; | |
2311 f->display.x->left_pos = event.xconfigure.x; | |
2312 f->display.x->top_pos = event.xconfigure.y; | |
286 | 2313 break; |
2314 } | |
2315 | |
2316 case ButtonPress: | |
2317 case ButtonRelease: | |
2318 { | |
2319 /* If we decide we want to generate an event to be seen | |
2320 by the rest of Emacs, we put it here. */ | |
2321 struct input_event emacs_event; | |
2322 emacs_event.kind = no_event; | |
2323 | |
771 | 2324 f = x_window_to_frame (event.xbutton.window); |
2325 if (f) | |
2326 if (!x_focus_frame || (f == x_focus_frame)) | |
286 | 2327 construct_mouse_click (&emacs_event, |
771 | 2328 &event, f, 0, 0); |
286 | 2329 else |
2330 continue; | |
2331 else | |
771 | 2332 if ((f = x_window_to_scrollbar (event.xbutton.window, |
286 | 2333 &part, &prefix))) |
2334 { | |
771 | 2335 if (!x_focus_frame || (selected_frame == x_focus_frame)) |
286 | 2336 construct_mouse_click (&emacs_event, |
771 | 2337 &event, f, part, prefix); |
286 | 2338 else |
2339 continue; | |
2340 } | |
2341 | |
2342 if (numchars >= 1 && emacs_event.kind != no_event) | |
2343 { | |
2344 bcopy (&emacs_event, bufp, sizeof (struct input_event)); | |
2345 bufp++; | |
2346 count++; | |
2347 numchars--; | |
2348 } | |
2349 } | |
2350 break; | |
2351 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2352 #else /* ! defined (HAVE_X11) */ |
286 | 2353 case ButtonPressed: |
2354 case ButtonReleased: | |
771 | 2355 f = x_window_to_frame (event.window); |
2356 if (f) | |
286 | 2357 { |
771 | 2358 if (event.window == f->display.x->icon_desc) |
286 | 2359 { |
771 | 2360 x_make_frame_visible (f); |
286 | 2361 |
2362 if (warp_mouse_on_deiconify) | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2363 XWarpMouse (FRAME_X_WINDOW (f), 10, 10); |
286 | 2364 break; |
2365 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2366 if (event.window == FRAME_X_WINDOW (f)) |
286 | 2367 { |
771 | 2368 if (f->auto_raise) |
2369 x_raise_frame (f); | |
286 | 2370 } |
2371 } | |
2372 enqueue_event (&event, &x_mouse_queue); | |
2373 if (numchars >= 2) | |
2374 { | |
2375 bufp->kind = ascii_keystroke; | |
2376 bufp->code = (char) 'X' & 037; /* C-x */ | |
771 | 2377 bufp->frame = f; |
429 | 2378 XSET (bufp->time, Lisp_Int, event.xkey.time); |
286 | 2379 bufp++; |
2380 | |
2381 bufp->kind = ascii_keystroke; | |
2382 bufp->code = (char) 0; /* C-@ */ | |
771 | 2383 bufp->frame = f; |
429 | 2384 XSET (bufp->time, Lisp_Int, event.xkey.time); |
286 | 2385 bufp++; |
2386 | |
2387 count += 2; | |
2388 numchars -= 2; | |
2389 } | |
2390 break; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2391 #endif /* ! defined (HAVE_X11) */ |
286 | 2392 |
2393 #ifdef HAVE_X11 | |
2394 | |
2395 case CirculateNotify: | |
2396 break; | |
2397 case CirculateRequest: | |
2398 break; | |
2399 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2400 #endif /* ! defined (HAVE_X11) */ |
286 | 2401 |
2402 case MappingNotify: | |
2403 if (event.xmapping.request == MappingKeyboard) | |
2404 /* Someone has changed the keyboard mapping - flush the | |
2405 local cache. */ | |
2406 XRefreshKeyboardMapping (&event.xmapping); | |
1324
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
2407 else if (event.xmapping.request == MappingModifier) |
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
2408 x_find_modifier_meanings (); |
286 | 2409 break; |
2410 | |
2411 default: | |
2412 break; | |
2413 } | |
2414 } | |
2415 | |
2416 #if 0 | |
2417 #ifdef HAVE_SELECT | |
2418 if (expected && ! event_found) | |
2419 { | |
2420 /* AOJ 880406: if select returns true but XPending doesn't, it means that | |
2421 there is an EOF condition; in other words, that X has died. | |
2422 Act as if there had been a hangup. */ | |
2423 | |
2424 int fd = ConnectionNumber (x_current_display); | |
2425 int mask = 1 << fd; | |
2426 | |
2427 if (0 != select (fd + 1, &mask, (long *) 0, (long *) 0, | |
555 | 2428 (EMACS_TIME) 0) |
286 | 2429 && !XStuffPending ()) |
2430 kill (getpid (), SIGHUP); | |
2431 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2432 #endif /* ! defined (HAVE_SELECT) */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2433 #endif /* ! 0 */ |
286 | 2434 |
771 | 2435 if (updating_frame == 0) |
286 | 2436 x_do_pending_expose (); |
2437 | |
2438 UNBLOCK_INPUT; | |
2439 return count; | |
2440 } | |
2441 | |
2442 #ifndef HAVE_X11 | |
2443 /* Read and process only Expose events | |
2444 until we get an ExposeCopy event; then return. | |
2445 This is used in insert/delete line. | |
2446 We assume input is already blocked. */ | |
2447 | |
2448 static void | |
2449 x_read_exposes () | |
2450 { | |
771 | 2451 struct frame *f; |
286 | 2452 XKeyPressedEvent event; |
2453 | |
2454 while (1) | |
2455 { | |
2456 /* while there are more events*/ | |
2457 XMaskEvent (ExposeWindow | ExposeRegion | ExposeCopy, &event); | |
2458 switch (event.type) | |
2459 { | |
2460 case ExposeWindow: | |
2461 if (event.subwindow != 0) | |
2462 break; /* duplicate event */ | |
771 | 2463 f = x_window_to_frame (event.window); |
2464 if (event.window == f->display.x->icon_desc) | |
286 | 2465 { |
771 | 2466 refreshicon (f); |
286 | 2467 break; |
2468 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2469 if (event.window == FRAME_X_WINDOW (f)) |
286 | 2470 { |
2471 expose_all_windows = 1; | |
771 | 2472 f->display.x->needs_exposure = 1; |
286 | 2473 break; |
2474 } | |
2475 break; | |
2476 | |
2477 case ExposeRegion: | |
2478 if (event.subwindow != 0) | |
2479 break; /* duplicate event */ | |
771 | 2480 f = x_window_to_frame (event.window); |
2481 if (event.window == f->display.x->icon_desc) | |
286 | 2482 { |
771 | 2483 refreshicon (f); |
286 | 2484 break; |
2485 } | |
2486 /* If window already needs full redraw, ignore this rectangle. */ | |
771 | 2487 if (expose_all_windows && f->display.x->needs_exposure) |
286 | 2488 break; |
2489 /* Put the event on the queue of rectangles to redraw. */ | |
2490 if (enqueue_event (&event, &x_expose_queue)) | |
2491 /* If it is full, we can't record the rectangle, | |
2492 so redraw this entire window. */ | |
2493 { | |
2494 /* Say must check all windows' needs_exposure flags. */ | |
2495 expose_all_windows = 1; | |
771 | 2496 f->display.x->needs_exposure = 1; |
286 | 2497 } |
2498 break; | |
2499 | |
2500 case ExposeCopy: | |
2501 return; | |
2502 } | |
2503 } | |
2504 } | |
2505 #endif /* HAVE_X11 */ | |
2506 | |
2507 | |
2508 /* Draw a hollow box cursor. Don't change the inside of the box. */ | |
2509 | |
2510 static void | |
771 | 2511 x_draw_box (f) |
2512 struct frame *f; | |
286 | 2513 { |
771 | 2514 int left = f->cursor_x * FONT_WIDTH (f->display.x->font) |
2515 + f->display.x->internal_border_width; | |
2516 int top = f->cursor_y * FONT_HEIGHT (f->display.x->font) | |
2517 + f->display.x->internal_border_width; | |
2518 int width = FONT_WIDTH (f->display.x->font); | |
2519 int height = FONT_HEIGHT (f->display.x->font); | |
286 | 2520 |
2521 #ifdef HAVE_X11 | |
2522 /* Perhaps we should subtract 1 from width and height... */ | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2523 XDrawRectangle (x_current_display, FRAME_X_WINDOW (f), |
771 | 2524 f->display.x->cursor_gc, |
286 | 2525 left, top, width - 1, height - 1); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2526 #else /* ! defined (HAVE_X11) */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2527 XPixSet (FRAME_X_WINDOW (f), |
286 | 2528 left, top, width, 1, |
771 | 2529 f->display.x->cursor_pixel); |
2530 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2531 XPixSet (FRAME_X_WINDOW (f), |
286 | 2532 left, top, 1, height, |
771 | 2533 f->display.x->cursor_pixel); |
2534 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2535 XPixSet (FRAME_X_WINDOW (f), |
286 | 2536 left+width-1, top, 1, height, |
771 | 2537 f->display.x->cursor_pixel); |
2538 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2539 XPixSet (FRAME_X_WINDOW (f), |
286 | 2540 left, top+height-1, width, 1, |
771 | 2541 f->display.x->cursor_pixel); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2542 #endif /* ! defined (HAVE_X11) */ |
286 | 2543 } |
2544 | |
771 | 2545 /* Clear the cursor of frame F to background color, |
286 | 2546 and mark the cursor as not shown. |
2547 This is used when the text where the cursor is | |
2548 is about to be rewritten. */ | |
2549 | |
2550 static void | |
771 | 2551 clear_cursor (f) |
2552 struct frame *f; | |
286 | 2553 { |
2554 int mask; | |
2555 | |
771 | 2556 if (! f->visible |
2557 || f->phys_cursor_x < 0) | |
286 | 2558 return; |
2559 | |
2560 #ifdef HAVE_X11 | |
771 | 2561 x_display_cursor (f, 0); |
286 | 2562 #if 0 |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2563 XClearArea (x_current_display, FRAME_X_WINDOW (f), |
771 | 2564 f->phys_cursor_x * FONT_WIDTH (f->display.x->font) |
2565 + f->display.x->internal_border_width, | |
2566 f->phys_cursor_y * FONT_HEIGHT (f->display.x->font) | |
2567 + f->display.x->internal_border_width, | |
2568 FONT_WIDTH (f->display.x->font) + 1, FONT_HEIGHT (f->display.x->font) + 1, False); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2569 #endif /* ! 0 */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2570 #else /* ! defined (HAVE_X11) */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2571 XPixSet (FRAME_X_WINDOW (f), |
771 | 2572 f->phys_cursor_x * FONT_WIDTH (f->display.x->font) + f->display.x->internal_border_width, |
2573 f->phys_cursor_y * FONT_HEIGHT (f->display.x->font) + f->display.x->internal_border_width, | |
2574 FONT_WIDTH (f->display.x->font), FONT_HEIGHT (f->display.x->font), | |
2575 f->display.x->background_pixel); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2576 #endif /* ! defined (HAVE_X11) */ |
771 | 2577 f->phys_cursor_x = -1; |
286 | 2578 } |
2579 | |
429 | 2580 static void |
771 | 2581 x_display_bar_cursor (f, on) |
2582 struct frame *f; | |
286 | 2583 int on; |
2584 { | |
771 | 2585 register int phys_x = f->phys_cursor_x; |
2586 register int phys_y = f->phys_cursor_y; | |
286 | 2587 register int x1; |
2588 register int y1; | |
2589 register int y2; | |
2590 | |
771 | 2591 if (! f->visible || (! on && f->phys_cursor_x < 0)) |
286 | 2592 return; |
2593 | |
2594 #ifdef HAVE_X11 | |
2595 if (phys_x >= 0 && | |
771 | 2596 (!on || phys_x != f->cursor_x || phys_y != f->cursor_y)) |
286 | 2597 { |
771 | 2598 x1 = phys_x * FONT_WIDTH (f->display.x->font) |
2599 + f->display.x->internal_border_width; | |
2600 y1 = phys_y * FONT_HEIGHT (f->display.x->font) | |
2601 + f->display.x->internal_border_width - 1; | |
2602 y2 = y1 + FONT_HEIGHT (f->display.x->font) + 1; | |
2603 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2604 XDrawLine (x_current_display, FRAME_X_WINDOW (f), |
771 | 2605 f->display.x->reverse_gc, x1, y1, x1, y2); |
2606 | |
2607 f->phys_cursor_x = phys_x = -1; | |
286 | 2608 } |
2609 | |
771 | 2610 if (on && f == x_highlight_frame) |
286 | 2611 { |
771 | 2612 x1 = f->cursor_x * FONT_WIDTH (f->display.x->font) |
2613 + f->display.x->internal_border_width; | |
2614 y1 = f->cursor_y * FONT_HEIGHT (f->display.x->font) | |
2615 + f->display.x->internal_border_width - 1; | |
2616 y2 = y1 + FONT_HEIGHT (f->display.x->font) + 1; | |
2617 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2618 XDrawLine (x_current_display, FRAME_X_WINDOW (f), |
771 | 2619 f->display.x->cursor_gc, x1, y1, x1, y2); |
2620 | |
2621 f->phys_cursor_x = f->cursor_x; | |
2622 f->phys_cursor_y = f->cursor_y; | |
286 | 2623 } |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2624 #else /* ! defined (HAVE_X11) */ |
286 | 2625 Give it up, dude. |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2626 #endif /* ! defined (HAVE_X11) */ |
286 | 2627 } |
2628 | |
2629 | |
771 | 2630 /* Redraw the glyph at ROW, COLUMN on frame F, in the style |
429 | 2631 HIGHLIGHT. HIGHLIGHT is as defined for dumpglyphs. Return the |
2632 glyph drawn. */ | |
286 | 2633 |
2634 static void | |
771 | 2635 x_draw_single_glyph (f, row, column, glyph, highlight) |
2636 struct frame *f; | |
286 | 2637 int row, column; |
429 | 2638 GLYPH glyph; |
286 | 2639 int highlight; |
2640 { | |
771 | 2641 dumpglyphs (f, |
2642 (column * FONT_WIDTH (f->display.x->font) | |
2643 + f->display.x->internal_border_width), | |
2644 (row * FONT_HEIGHT (f->display.x->font) | |
2645 + f->display.x->internal_border_width), | |
2646 &glyph, 1, highlight, f->display.x->font); | |
286 | 2647 } |
2648 | |
771 | 2649 /* Turn the displayed cursor of frame F on or off according to ON. |
286 | 2650 If ON is nonzero, where to put the cursor is specified |
771 | 2651 by F->cursor_x and F->cursor_y. */ |
286 | 2652 |
2653 static void | |
771 | 2654 x_display_box_cursor (f, on) |
2655 struct frame *f; | |
286 | 2656 int on; |
2657 { | |
771 | 2658 struct frame_glyphs *current_glyphs = FRAME_CURRENT_GLYPHS (f); |
2659 | |
2660 /* If we're not updating, then we want to use the current frame's | |
708 | 2661 cursor position, not our local idea of where the cursor ought to be. */ |
771 | 2662 if (f != updating_frame) |
708 | 2663 { |
771 | 2664 curs_x = FRAME_CURSOR_X (f); |
2665 curs_y = FRAME_CURSOR_Y (f); | |
708 | 2666 } |
2667 | |
771 | 2668 if (! f->visible) |
286 | 2669 return; |
2670 | |
2671 /* If cursor is off and we want it off, return quickly. */ | |
771 | 2672 if (!on && f->phys_cursor_x < 0) |
286 | 2673 return; |
2674 | |
2675 /* If cursor is currently being shown and we don't want it to be | |
2676 or it is in the wrong place, | |
2677 or we want a hollow box and it's not so, (pout!) | |
2678 erase it. */ | |
771 | 2679 if (f->phys_cursor_x >= 0 |
286 | 2680 && (!on |
771 | 2681 || f->phys_cursor_x != curs_x |
2682 || f->phys_cursor_y != curs_y | |
2683 || (f->display.x->text_cursor_kind != hollow_box_cursor | |
2684 && (f != x_highlight_frame)))) | |
286 | 2685 { |
2686 /* Erase the cursor by redrawing the character underneath it. */ | |
771 | 2687 x_draw_single_glyph (f, f->phys_cursor_y, f->phys_cursor_x, |
2688 f->phys_cursor_glyph, | |
2689 current_glyphs->highlight[f->phys_cursor_y]); | |
2690 f->phys_cursor_x = -1; | |
286 | 2691 } |
2692 | |
2693 /* If we want to show a cursor, | |
2694 or we want a box cursor and it's not so, | |
2695 write it in the right place. */ | |
2696 if (on | |
771 | 2697 && (f->phys_cursor_x < 0 |
2698 || (f->display.x->text_cursor_kind != filled_box_cursor | |
2699 && f == x_highlight_frame))) | |
286 | 2700 { |
771 | 2701 f->phys_cursor_glyph |
708 | 2702 = ((current_glyphs->enable[curs_y] |
2703 && curs_x < current_glyphs->used[curs_y]) | |
2704 ? current_glyphs->glyphs[curs_y][curs_x] | |
429 | 2705 : SPACEGLYPH); |
771 | 2706 if (f != x_highlight_frame) |
286 | 2707 { |
771 | 2708 x_draw_box (f); |
2709 f->display.x->text_cursor_kind = hollow_box_cursor; | |
286 | 2710 } |
2711 else | |
2712 { | |
771 | 2713 x_draw_single_glyph (f, curs_y, curs_x, |
2714 f->phys_cursor_glyph, 2); | |
2715 f->display.x->text_cursor_kind = filled_box_cursor; | |
286 | 2716 } |
2717 | |
771 | 2718 f->phys_cursor_x = curs_x; |
2719 f->phys_cursor_y = curs_y; | |
286 | 2720 } |
2721 | |
771 | 2722 if (updating_frame != f) |
286 | 2723 XFlushQueue (); |
2724 } | |
2725 | |
2726 extern Lisp_Object Vbar_cursor; | |
2727 | |
771 | 2728 x_display_cursor (f, on) |
2729 struct frame *f; | |
286 | 2730 int on; |
2731 { | |
2732 if (EQ (Vbar_cursor, Qnil)) | |
771 | 2733 x_display_box_cursor (f, on); |
286 | 2734 else |
771 | 2735 x_display_bar_cursor (f, on); |
286 | 2736 } |
2737 | |
2738 /* Icons. */ | |
2739 | |
771 | 2740 /* Refresh bitmap kitchen sink icon for frame F |
286 | 2741 when we get an expose event for it. */ |
2742 | |
771 | 2743 refreshicon (f) |
2744 struct frame *f; | |
286 | 2745 { |
2746 #ifdef HAVE_X11 | |
2747 /* Normally, the window manager handles this function. */ | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2748 #else /* ! defined (HAVE_X11) */ |
286 | 2749 int mask; |
2750 | |
771 | 2751 if (f->display.x->icon_bitmap_flag) |
2752 XBitmapBitsPut (f->display.x->icon_desc, 0, 0, sink_width, sink_height, | |
286 | 2753 sink_bits, BlackPixel, WHITE_PIX_DEFAULT, |
2754 icon_bitmap, GXcopy, AllPlanes); | |
2755 else | |
2756 { | |
771 | 2757 extern struct frame *selected_frame; |
286 | 2758 struct Lisp_String *str; |
2759 unsigned char *string; | |
2760 | |
2761 string | |
771 | 2762 = XSTRING (XBUFFER (XWINDOW (f->selected_window)->buffer)->name)->data; |
2763 | |
2764 if (f->display.x->icon_label != string) | |
286 | 2765 { |
771 | 2766 f->display.x->icon_label = string; |
2767 XChangeWindow (f->display.x->icon_desc, | |
286 | 2768 XQueryWidth (string, icon_font_info->id) + 10, |
2769 icon_font_info->height + 10); | |
2770 } | |
2771 | |
771 | 2772 XText (f->display.x->icon_desc, 5, 5, string, |
286 | 2773 str->size, icon_font_info->id, |
2774 BLACK_PIX_DEFAULT, WHITE_PIX_DEFAULT); | |
2775 } | |
2776 XFlushQueue (); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2777 #endif /* ! defined (HAVE_X11) */ |
286 | 2778 } |
2779 | |
771 | 2780 /* Make the x-window of frame F use the kitchen-sink icon |
286 | 2781 that's a window generated by Emacs. */ |
2782 | |
2783 int | |
771 | 2784 x_bitmap_icon (f) |
2785 struct frame *f; | |
286 | 2786 { |
2787 int mask; | |
2788 Window icon_window; | |
2789 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2790 if (FRAME_X_WINDOW (f) == 0) |
286 | 2791 return 1; |
2792 | |
2793 #ifdef HAVE_X11 | |
2794 if (icon_bitmap) | |
2795 XFreePixmap (x_current_display, icon_bitmap); | |
2796 | |
2797 icon_bitmap = | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2798 XCreateBitmapFromData (x_current_display, FRAME_X_WINDOW (f), |
286 | 2799 gnu_bits, gnu_width, gnu_height); |
771 | 2800 x_wm_set_icon_pixmap (f, icon_bitmap); |
2801 f->display.x->icon_bitmap_flag = 1; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2802 #else /* ! defined (HAVE_X11) */ |
771 | 2803 if (f->display.x->icon_desc) |
286 | 2804 { |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2805 XClearIconWindow (FRAME_X_WINDOW (f)); |
771 | 2806 XDestroyWindow (f->display.x->icon_desc); |
286 | 2807 } |
2808 | |
771 | 2809 icon_window = XCreateWindow (f->display.x->parent_desc, |
286 | 2810 0, 0, sink_width, sink_height, |
2811 2, WhitePixmap, (Pixmap) NULL); | |
2812 | |
2813 if (icon_window == 0) | |
2814 return 1; | |
2815 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2816 XSetIconWindow (FRAME_X_WINDOW (f), icon_window); |
286 | 2817 XSelectInput (icon_window, ExposeWindow | UnmapWindow); |
2818 | |
771 | 2819 f->display.x->icon_desc = icon_window; |
2820 f->display.x->icon_bitmap_flag = 1; | |
286 | 2821 |
2822 if (icon_bitmap == 0) | |
2823 icon_bitmap | |
2824 = XStoreBitmap (sink_mask_width, sink_mask_height, sink_mask_bits); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2825 #endif /* ! defined (HAVE_X11) */ |
286 | 2826 |
2827 return 0; | |
2828 } | |
2829 | |
2830 | |
771 | 2831 /* Make the x-window of frame F use a rectangle with text. */ |
286 | 2832 |
2833 int | |
771 | 2834 x_text_icon (f, icon_name) |
2835 struct frame *f; | |
286 | 2836 char *icon_name; |
2837 { | |
2838 #ifndef HAVE_X11 | |
2839 int mask; | |
2840 int width; | |
2841 Window icon_window; | |
2842 char *X_DefaultValue; | |
2843 Bitmap b1; | |
2844 | |
2845 #ifndef WhitePixel | |
2846 #define WhitePixel 1 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2847 #endif /* WhitePixel */ |
286 | 2848 |
2849 #ifndef BlackPixel | |
2850 #define BlackPixel 0 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2851 #endif /* BlackPixel */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2852 #endif /* HAVE_X11 */ |
286 | 2853 |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2854 if (FRAME_X_WINDOW (f) == 0) |
286 | 2855 return 1; |
2856 | |
2857 if (icon_font_info == 0) | |
2858 icon_font_info | |
395 | 2859 = XGetFont (XGetDefault (XDISPLAY |
2860 (char *) XSTRING (invocation_name)->data, | |
2861 "BodyFont")); | |
286 | 2862 |
2863 #ifdef HAVE_X11 | |
2864 if (icon_name) | |
771 | 2865 f->display.x->icon_label = icon_name; |
286 | 2866 else |
771 | 2867 if (! f->display.x->icon_label) |
2868 f->display.x->icon_label = " *emacs* "; | |
286 | 2869 |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2870 XSetIconName (x_current_display, FRAME_X_WINDOW (f), |
771 | 2871 (char *) f->display.x->icon_label); |
286 | 2872 |
771 | 2873 f->display.x->icon_bitmap_flag = 0; |
976
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
2874 x_wm_set_icon_pixmap (f, 0); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2875 #else /* ! defined (HAVE_X11) */ |
771 | 2876 if (f->display.x->icon_desc) |
286 | 2877 { |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2878 XClearIconWindow (XDISPLAY FRAME_X_WINDOW (f)); |
771 | 2879 XDestroyWindow (XDISPLAY f->display.x->icon_desc); |
286 | 2880 } |
2881 | |
2882 if (icon_name) | |
771 | 2883 f->display.x->icon_label = (unsigned char *) icon_name; |
286 | 2884 else |
771 | 2885 if (! f->display.x->icon_label) |
2886 f->display.x->icon_label = XSTRING (f->name)->data; | |
2887 | |
2888 width = XStringWidth (f->display.x->icon_label, icon_font_info, 0, 0); | |
2889 icon_window = XCreateWindow (f->display.x->parent_desc, | |
2890 f->display.x->left_pos, | |
2891 f->display.x->top_pos, | |
286 | 2892 width + 10, icon_font_info->height + 10, |
2893 2, BlackPixmap, WhitePixmap); | |
2894 | |
2895 if (icon_window == 0) | |
2896 return 1; | |
2897 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2898 XSetIconWindow (FRAME_X_WINDOW (f), icon_window); |
286 | 2899 XSelectInput (icon_window, ExposeWindow | ExposeRegion | UnmapWindow | ButtonPressed); |
2900 | |
771 | 2901 f->display.x->icon_desc = icon_window; |
2902 f->display.x->icon_bitmap_flag = 0; | |
2903 f->display.x->icon_label = 0; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2904 #endif /* ! defined (HAVE_X11) */ |
286 | 2905 |
2906 return 0; | |
2907 } | |
2908 | |
621 | 2909 /* Handling X errors. */ |
2910 | |
2911 /* A handler for SIGPIPE, when it occurs on the X server's connection. | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2912 This basically does an orderly shutdown of Emacs. */ |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
2913 |
621 | 2914 static SIGTYPE |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2915 x_connection_closed () |
621 | 2916 { |
2917 if (_Xdebug) | |
2918 abort (); | |
2919 else | |
2920 Fkill_emacs (make_number (70)); | |
2921 } | |
2922 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2923 /* An X error handler which prints an error message and then kills Emacs. |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2924 This is what's normally installed as Xlib's handler for protocol and |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2925 I/O errors. */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2926 static int |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2927 x_error_quitter (display, error) |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2928 Display *display; |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2929 XErrorEvent *error; |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2930 { |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2931 char buf[256]; |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2932 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2933 /* Note that there is no real way portable across R3/R4 to get the |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2934 original error handler. */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2935 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2936 XGetErrorText (display, error->error_code, buf, sizeof (buf)); |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2937 fprintf (stderr, "X protocol error: %s on protocol request %d\n", |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2938 buf, error->request_code); |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2939 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2940 x_connection_closed (); |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2941 } |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2942 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2943 /* A buffer for storing X error messages. */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2944 static char (*x_caught_error_message)[200]; |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2945 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2946 /* An X error handler which stores the error message in |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2947 x_caught_error_message. This is what's installed when |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2948 x_catch_errors is in effect. */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2949 static int |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2950 x_error_catcher (display, error) |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2951 Display *display; |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2952 XErrorEvent *error; |
286 | 2953 { |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2954 XGetErrorText (display, error->error_code, |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2955 *x_caught_error_message, sizeof (*x_caught_error_message)); |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2956 } |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2957 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2958 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2959 /* Begin trapping X errors. |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2960 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2961 After calling this function, X protocol errors no longer cause |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2962 Emacs to exit; instead, they are recorded in x_cfc_error_message. |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2963 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2964 Calling x_check_errors signals an Emacs error if an X error has |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2965 occurred since the last call to x_catch_errors or x_check_errors. |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2966 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2967 Calling x_uncatch_errors resumes the normal error handling. */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2968 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2969 void x_catch_errors(), x_check_errors (), x_uncatch_errors (); |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2970 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2971 void |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2972 x_catch_errors () |
286 | 2973 { |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2974 /* Make sure any errors from previous requests have been dealt with. */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2975 XSync (x_current_display, False); |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2976 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2977 /* Set up the error buffer. */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2978 x_caught_error_message = |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2979 (char (*)[]) xmalloc (sizeof (*x_caught_error_message)); |
1077
d6ee6ff7562d
* xterm.c (x_catch_errors): Don't forget to initialize
Jim Blandy <jimb@redhat.com>
parents:
1052
diff
changeset
|
2980 (*x_caught_error_message)[0] = '\0'; |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2981 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2982 /* Install our little error handler. */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2983 XHandleError (x_error_catcher); |
286 | 2984 } |
2985 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2986 /* If any X protocol errors have arrived since the last call to |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2987 x_catch_errors or x_check_errors, signal an Emacs error using |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2988 sprintf (a buffer, FORMAT, the x error message text) as the text. */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2989 void |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2990 x_check_errors (format) |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2991 char *format; |
286 | 2992 { |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2993 /* Make sure to catch any errors incurred so far. */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2994 XSync (x_current_display, False); |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2995 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2996 if ((*x_caught_error_message)[0]) |
286 | 2997 { |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2998 char buf[256]; |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2999 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3000 sprintf (buf, format, *x_caught_error_message); |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3001 free (x_caught_error_message); |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3002 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3003 x_uncatch_errors (); |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3004 error (buf); |
286 | 3005 } |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3006 } |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3007 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3008 void |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3009 x_uncatch_errors () |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3010 { |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3011 free (x_caught_error_message); |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3012 XHandleError (x_error_quitter); |
286 | 3013 } |
3014 | |
3015 #if 0 | |
3016 static unsigned int x_wire_count; | |
3017 x_trace_wire () | |
3018 { | |
3019 fprintf (stderr, "Lib call: %d\n", ++x_wire_count); | |
3020 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3021 #endif /* ! 0 */ |
286 | 3022 |
3023 | |
771 | 3024 /* Set the font of the x-window specified by frame F |
286 | 3025 to the font named NEWNAME. This is safe to use |
771 | 3026 even before F has an actual x-window. */ |
286 | 3027 |
3028 #ifdef HAVE_X11 | |
3029 | |
3030 /* A table of all the fonts we have already loaded. */ | |
3031 static XFontStruct **x_font_table; | |
3032 | |
3033 /* The current capacity of x_font_table. */ | |
3034 static int x_font_table_size; | |
3035 | |
3036 /* The number of fonts actually stored in x_font_table. | |
3037 x_font_table[n] is used and valid iff 0 <= n < n_fonts. | |
3038 0 <= n_fonts <= x_font_table_size. */ | |
3039 static int n_fonts; | |
3040 | |
771 | 3041 x_new_font (f, fontname) |
3042 struct frame *f; | |
286 | 3043 register char *fontname; |
3044 { | |
3045 XFontStruct *temp; | |
3046 int already_loaded; | |
3047 int n_matching_fonts; | |
3048 XFontStruct *font_info; | |
3049 char **font_names; | |
3050 | |
3051 /* Get a list of all the fonts that match this name. Once we | |
3052 have a list of matching fonts, we compare them against the fonts | |
3053 we already have by comparing font ids. */ | |
3054 font_names = (char **) XListFontsWithInfo (x_current_display, fontname, | |
3055 1024, &n_matching_fonts, | |
3056 &font_info); | |
3057 /* If the server couldn't find any fonts whose named matched fontname, | |
3058 return an error code. */ | |
3059 if (n_matching_fonts == 0) | |
3060 return 1; | |
3061 | |
429 | 3062 /* See if we've already loaded a matching font. */ |
286 | 3063 { |
3064 int i, j; | |
3065 | |
3066 already_loaded = 0; | |
3067 for (i = 0; i < n_fonts; i++) | |
3068 for (j = 0; j < n_matching_fonts; j++) | |
3069 if (x_font_table[i]->fid == font_info[j].fid) | |
3070 { | |
3071 already_loaded = i; | |
3072 goto found_font; | |
3073 } | |
3074 } | |
3075 found_font: | |
3076 | |
3077 /* If we have, just return it from the table. */ | |
3078 if (already_loaded) | |
771 | 3079 f->display.x->font = x_font_table[already_loaded]; |
429 | 3080 |
286 | 3081 /* Otherwise, load the font and add it to the table. */ |
3082 else | |
3083 { | |
3084 XFontStruct *font; | |
3085 | |
3086 font = (XFontStruct *) XLoadQueryFont (x_current_display, fontname); | |
3087 if (! font) | |
3088 return 1; | |
3089 | |
3090 /* Do we need to create the table? */ | |
3091 if (x_font_table_size == 0) | |
3092 { | |
3093 x_font_table_size = 16; | |
3094 x_font_table | |
3095 = (XFontStruct **) xmalloc (x_font_table_size | |
3096 * sizeof (x_font_table[0])); | |
3097 } | |
3098 /* Do we need to grow the table? */ | |
3099 else if (n_fonts >= x_font_table_size) | |
3100 { | |
429 | 3101 x_font_table_size *= 2; |
286 | 3102 x_font_table |
3103 = (XFontStruct **) xrealloc (x_font_table, | |
3104 (x_font_table_size | |
3105 * sizeof (x_font_table[0]))); | |
3106 } | |
3107 | |
771 | 3108 f->display.x->font = x_font_table[n_fonts++] = font; |
286 | 3109 } |
3110 | |
3111 /* Free the information from XListFontsWithInfo. The data | |
3112 we actually retain comes from XLoadQueryFont. */ | |
3113 XFreeFontInfo (font_names, font_info, n_matching_fonts); | |
3114 | |
771 | 3115 /* Now make the frame display the given font. */ |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3116 if (FRAME_X_WINDOW (f) != 0) |
286 | 3117 { |
771 | 3118 XSetFont (x_current_display, f->display.x->normal_gc, |
3119 f->display.x->font->fid); | |
3120 XSetFont (x_current_display, f->display.x->reverse_gc, | |
3121 f->display.x->font->fid); | |
3122 XSetFont (x_current_display, f->display.x->cursor_gc, | |
3123 f->display.x->font->fid); | |
3124 | |
3125 x_set_window_size (f, f->width, f->height); | |
286 | 3126 } |
3127 | |
3128 return 0; | |
3129 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3130 #else /* ! defined (HAVE_X11) */ |
771 | 3131 x_new_font (f, newname) |
3132 struct frame *f; | |
286 | 3133 register char *newname; |
3134 { | |
3135 FONT_TYPE *temp; | |
3136 int mask; | |
3137 | |
3138 temp = XGetFont (newname); | |
3139 if (temp == (FONT_TYPE *) 0) | |
3140 return 1; | |
3141 | |
771 | 3142 if (f->display.x->font) |
3143 XLoseFont (f->display.x->font); | |
3144 | |
3145 f->display.x->font = temp; | |
3146 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3147 if (FRAME_X_WINDOW (f) != 0) |
771 | 3148 x_set_window_size (f, f->width, f->height); |
286 | 3149 |
3150 return 0; | |
3151 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3152 #endif /* ! defined (HAVE_X11) */ |
286 | 3153 |
771 | 3154 x_calc_absolute_position (f) |
3155 struct frame *f; | |
286 | 3156 { |
3157 #ifdef HAVE_X11 | |
771 | 3158 if (f->display.x->left_pos < 0) |
3159 f->display.x->left_pos | |
786 | 3160 = XINT (x_screen_width) - PIXEL_WIDTH (f) + f->display.x->left_pos; |
771 | 3161 |
3162 if (f->display.x->top_pos < 0) | |
3163 f->display.x->top_pos | |
786 | 3164 = XINT (x_screen_height) - PIXEL_HEIGHT (f) + f->display.x->top_pos; |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3165 #else /* ! defined (HAVE_X11) */ |
286 | 3166 WINDOWINFO_TYPE parentinfo; |
3167 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3168 XGetWindowInfo (FRAME_X_WINDOW (f), &parentinfo); |
771 | 3169 |
3170 if (f->display.x->left_pos < 0) | |
3171 f->display.x->left_pos = parentinfo.width + (f->display.x->left_pos + 1) | |
3172 - PIXEL_WIDTH (f) - 2 * f->display.x->internal_border_width; | |
3173 | |
3174 if (f->display.x->top_pos < 0) | |
3175 f->display.x->top_pos = parentinfo.height + (f->display.x->top_pos + 1) | |
3176 - PIXEL_HEIGHT (f) - 2 * f->display.x->internal_border_width; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3177 #endif /* ! defined (HAVE_X11) */ |
286 | 3178 } |
3179 | |
771 | 3180 x_set_offset (f, xoff, yoff) |
3181 struct frame *f; | |
286 | 3182 register int xoff, yoff; |
3183 { | |
771 | 3184 f->display.x->top_pos = yoff; |
3185 f->display.x->left_pos = xoff; | |
3186 x_calc_absolute_position (f); | |
286 | 3187 |
3188 BLOCK_INPUT; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3189 XMoveWindow (XDISPLAY FRAME_X_WINDOW (f), |
771 | 3190 f->display.x->left_pos, f->display.x->top_pos); |
286 | 3191 #ifdef HAVE_X11 |
771 | 3192 x_wm_set_size_hint (f, 0); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3193 #endif /* ! defined (HAVE_X11) */ |
286 | 3194 UNBLOCK_INPUT; |
3195 } | |
3196 | |
771 | 3197 /* Call this to change the size of frame F's x-window. */ |
3198 | |
3199 x_set_window_size (f, cols, rows) | |
3200 struct frame *f; | |
976
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3201 int cols, rows; |
286 | 3202 { |
3203 int pixelwidth, pixelheight; | |
3204 int mask; | |
771 | 3205 int ibw = f->display.x->internal_border_width; |
286 | 3206 |
3207 BLOCK_INPUT; | |
3208 | |
976
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3209 check_frame_size (f, &rows, &cols); |
771 | 3210 pixelwidth = (cols * FONT_WIDTH (f->display.x->font) + 2 * ibw |
3211 + f->display.x->v_scrollbar_width); | |
3212 pixelheight = (rows * FONT_HEIGHT (f->display.x->font) + 2 * ibw | |
3213 + f->display.x->h_scrollbar_height); | |
286 | 3214 |
3215 #ifdef HAVE_X11 | |
771 | 3216 x_wm_set_size_hint (f, 0); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3217 #endif /* ! defined (HAVE_X11) */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3218 XChangeWindowSize (FRAME_X_WINDOW (f), pixelwidth, pixelheight); |
976
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3219 |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3220 /* Now, strictly speaking, we can't be sure that this is accurate, |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3221 but the window manager will get around to dealing with the size |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3222 change request eventually, and we'll hear how it went when the |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3223 ConfigureNotify event gets here. */ |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3224 FRAME_WIDTH (f) = cols; |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3225 FRAME_WIDTH (f) = rows; |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3226 PIXEL_WIDTH (f) = pixelwidth; |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3227 PIXEL_HEIGHT (f) = pixelheight; |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3228 |
286 | 3229 XFlushQueue (); |
3230 UNBLOCK_INPUT; | |
3231 } | |
3232 | |
3233 #ifndef HAVE_X11 | |
771 | 3234 x_set_resize_hint (f) |
3235 struct frame *f; | |
286 | 3236 { |
3237 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3238 XSetResizeHint (FRAME_X_WINDOW (f), 2 * f->display.x->internal_border_width, |
771 | 3239 2 * f->display.x->internal_border_width, |
3240 FONT_WIDTH (f->display.x->font), FONT_HEIGHT (f->display.x->font)); | |
286 | 3241 } |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3242 #endif /* HAVE_X11 */ |
286 | 3243 |
3244 | |
771 | 3245 x_set_mouse_position (f, x, y) |
3246 struct frame *f; | |
286 | 3247 int x, y; |
3248 { | |
3249 int pix_x, pix_y; | |
3250 | |
771 | 3251 x_raise_frame (f); |
286 | 3252 |
3253 if (x < 0) | |
771 | 3254 pix_x = (FRAME_WIDTH (f) |
3255 * FONT_WIDTH (f->display.x->font) | |
3256 + 2 * f->display.x->internal_border_width | |
3257 + f->display.x->v_scrollbar_width) / 2; | |
286 | 3258 else |
771 | 3259 pix_x = x * FONT_WIDTH (f->display.x->font) + 2; /* add 2 pixels to each |
286 | 3260 dimension to move the |
3261 mouse into the char | |
3262 cell */ | |
3263 | |
3264 if (y < 0) | |
771 | 3265 pix_y = (FRAME_HEIGHT (f) |
3266 * FONT_HEIGHT (f->display.x->font) | |
3267 + 2 * f->display.x->internal_border_width | |
3268 + f->display.x->h_scrollbar_height) / 2; | |
286 | 3269 else |
771 | 3270 pix_y = y * FONT_HEIGHT (f->display.x->font) + 2; |
286 | 3271 |
3272 BLOCK_INPUT; | |
3273 x_mouse_x = x; | |
3274 x_mouse_y = y; | |
3275 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3276 XWarpMousePointer (FRAME_X_WINDOW (f), pix_x, pix_y); |
286 | 3277 UNBLOCK_INPUT; |
3278 } | |
3279 | |
3280 #ifdef HAVE_X11 | |
771 | 3281 x_focus_on_frame (f) |
3282 struct frame *f; | |
286 | 3283 { |
771 | 3284 x_raise_frame (f); |
369 | 3285 #if 0 |
3286 /* I don't think that the ICCCM allows programs to do things like this | |
3287 without the interaction of the window manager. Whatever you end up | |
771 | 3288 doing with this code, do it to x_unfocus_frame too. */ |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3289 XSetInputFocus (x_current_display, FRAME_X_WINDOW (f), |
286 | 3290 RevertToPointerRoot, CurrentTime); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3291 #endif /* ! 0 */ |
286 | 3292 } |
3293 | |
771 | 3294 x_unfocus_frame (f) |
3295 struct frame *f; | |
286 | 3296 { |
369 | 3297 #if 0 |
771 | 3298 /* Look at the remarks in x_focus_on_frame. */ |
3299 if (x_focus_frame == f) | |
286 | 3300 XSetInputFocus (x_current_display, PointerRoot, |
3301 RevertToPointerRoot, CurrentTime); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3302 #endif /* ! 0 */ |
286 | 3303 } |
3304 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3305 #endif /* ! defined (HAVE_X11) */ |
286 | 3306 |
771 | 3307 /* Raise frame F. */ |
3308 | |
3309 x_raise_frame (f) | |
3310 struct frame *f; | |
286 | 3311 { |
771 | 3312 if (f->visible) |
286 | 3313 { |
3314 BLOCK_INPUT; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3315 XRaiseWindow (XDISPLAY FRAME_X_WINDOW (f)); |
286 | 3316 XFlushQueue (); |
3317 UNBLOCK_INPUT; | |
3318 } | |
3319 } | |
3320 | |
771 | 3321 /* Lower frame F. */ |
3322 | |
3323 x_lower_frame (f) | |
3324 struct frame *f; | |
286 | 3325 { |
771 | 3326 if (f->visible) |
286 | 3327 { |
3328 BLOCK_INPUT; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3329 XLowerWindow (XDISPLAY FRAME_X_WINDOW (f)); |
286 | 3330 XFlushQueue (); |
3331 UNBLOCK_INPUT; | |
3332 } | |
3333 } | |
3334 | |
3335 /* Change from withdrawn state to mapped state. */ | |
3336 | |
771 | 3337 x_make_frame_visible (f) |
3338 struct frame *f; | |
286 | 3339 { |
3340 int mask; | |
3341 | |
429 | 3342 BLOCK_INPUT; |
3343 | |
771 | 3344 if (! FRAME_VISIBLE_P (f)) |
286 | 3345 { |
3346 #ifdef HAVE_X11 | |
429 | 3347 if (! EQ (Vx_no_window_manager, Qt)) |
771 | 3348 x_wm_set_window_state (f, NormalState); |
3349 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3350 XMapWindow (XDISPLAY FRAME_X_WINDOW (f)); |
771 | 3351 if (f->display.x->v_scrollbar != 0 || f->display.x->h_scrollbar != 0) |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3352 XMapSubwindows (x_current_display, FRAME_X_WINDOW (f)); |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3353 #else /* ! defined (HAVE_X11) */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3354 XMapWindow (XDISPLAY FRAME_X_WINDOW (f)); |
771 | 3355 if (f->display.x->icon_desc != 0) |
3356 XUnmapWindow (f->display.x->icon_desc); | |
429 | 3357 |
3358 /* Handled by the MapNotify event for X11 */ | |
771 | 3359 f->visible = 1; |
3360 f->iconified = 0; | |
3361 | |
3362 /* NOTE: this may cause problems for the first frame. */ | |
429 | 3363 XTcursor_to (0, 0); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3364 #endif /* ! defined (HAVE_X11) */ |
429 | 3365 } |
286 | 3366 |
3367 XFlushQueue (); | |
429 | 3368 |
286 | 3369 UNBLOCK_INPUT; |
3370 } | |
3371 | |
3372 /* Change from mapped state to withdrawn state. */ | |
3373 | |
771 | 3374 x_make_frame_invisible (f) |
3375 struct frame *f; | |
286 | 3376 { |
3377 int mask; | |
3378 | |
771 | 3379 if (! f->visible) |
286 | 3380 return; |
3381 | |
3382 BLOCK_INPUT; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3383 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3384 #ifdef HAVE_X11R4 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3385 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3386 if (! XWithdrawWindow (x_current_display, FRAME_X_WINDOW (f), |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3387 DefaultScreen (x_current_display))) |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3388 { |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3389 UNBLOCK_INPUT_RESIGNAL; |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3390 error ("can't notify window manager of window withdrawl"); |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3391 } |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3392 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3393 #else /* ! defined (HAVE_X11R4) */ |
286 | 3394 #ifdef HAVE_X11 |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3395 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3396 /* Tell the window manager what we're going to do. */ |
286 | 3397 if (! EQ (Vx_no_window_manager, Qt)) |
3398 { | |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3399 XEvent unmap; |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3400 |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3401 unmap.xunmap.type = UnmapNotify; |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3402 unmap.xunmap.window = FRAME_X_WINDOW (f); |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3403 unmap.xunmap.event = DefaultRootWindow (x_current_display); |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3404 unmap.xunmap.from_configure = False; |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3405 if (! XSendEvent (x_current_display, |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3406 DefaultRootWindow (x_current_display), |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3407 False, |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3408 SubstructureRedirectMask|SubstructureNotifyMask, |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3409 &unmap)) |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3410 { |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3411 UNBLOCK_INPUT_RESIGNAL; |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3412 error ("can't notify window manager of withdrawal"); |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3413 } |
286 | 3414 } |
3415 | |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3416 /* Unmap the window ourselves. Cheeky! */ |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3417 XUnmapWindow (x_current_display, FRAME_X_WINDOW (f)); |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3418 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3419 #else /* ! defined (HAVE_X11) */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3420 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3421 XUnmapWindow (FRAME_X_WINDOW (f)); |
771 | 3422 f->visible = 0; /* Handled by the UnMap event for X11 */ |
3423 if (f->display.x->icon_desc != 0) | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3424 XUnmapWindow (f->display.x->icon_desc); |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3425 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3426 #endif /* ! defined (HAVE_X11) */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3427 #endif /* ! defined (HAVE_X11R4) */ |
286 | 3428 |
3429 XFlushQueue (); | |
3430 UNBLOCK_INPUT; | |
3431 } | |
3432 | |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3433 /* Window manager communication. Created in Fx_open_connection. */ |
286 | 3434 extern Atom Xatom_wm_change_state; |
3435 | |
3436 /* Change window state from mapped to iconified. */ | |
3437 | |
771 | 3438 x_iconify_frame (f) |
3439 struct frame *f; | |
286 | 3440 { |
3441 int mask; | |
3442 | |
771 | 3443 if (f->iconified) |
286 | 3444 return; |
3445 | |
3446 BLOCK_INPUT; | |
3447 | |
3448 #ifdef HAVE_X11 | |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3449 /* Since we don't know which revision of X we're running, we'll use both |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3450 the X11R3 and X11R4 techniques. I don't know if this is a good idea. */ |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3451 |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3452 /* X11R4: send a ClientMessage to the window manager using the |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3453 WM_CHANGE_STATE type. */ |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3454 { |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3455 XEvent message; |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3456 |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3457 message.xclient.window = FRAME_X_WINDOW (f); |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3458 message.xclient.type = ClientMessage; |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3459 message.xclient.message_type = Xatom_wm_change_state; |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3460 message.xclient.format = 32; |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3461 message.xclient.data.l[0] = IconicState; |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3462 |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3463 if (! XSendEvent (x_current_display, |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3464 DefaultRootWindow (x_current_display), |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3465 False, |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3466 SubstructureRedirectMask | SubstructureNotifyMask, |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3467 &message)) |
286 | 3468 { |
3469 UNBLOCK_INPUT_RESIGNAL; | |
3470 error ("Can't notify window manager of iconification."); | |
3471 } | |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3472 } |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3473 |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3474 /* X11R3: set the initial_state field of the window manager hints to |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3475 IconicState. */ |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3476 x_wm_set_window_state (f, IconicState); |
286 | 3477 |
771 | 3478 f->iconified = 1; |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3479 #else /* ! defined (HAVE_X11) */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3480 XUnmapWindow (XDISPLAY FRAME_X_WINDOW (f)); |
771 | 3481 |
3482 f->visible = 0; /* Handled in the UnMap event for X11. */ | |
3483 if (f->display.x->icon_desc != 0) | |
286 | 3484 { |
771 | 3485 XMapWindow (XDISPLAY f->display.x->icon_desc); |
3486 refreshicon (f); | |
286 | 3487 } |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3488 #endif /* ! defined (HAVE_X11) */ |
286 | 3489 |
3490 XFlushQueue (); | |
3491 UNBLOCK_INPUT; | |
3492 } | |
3493 | |
771 | 3494 /* Destroy the X window of frame F. |
3495 DISPL is the former f->display (since f->display | |
286 | 3496 has already been nulled out). */ |
3497 | |
771 | 3498 x_destroy_window (f, displ) |
3499 struct frame *f; | |
286 | 3500 union display displ; |
3501 { | |
3502 int mask; | |
3503 | |
3504 BLOCK_INPUT; | |
3505 if (displ.x->icon_desc != 0) | |
3506 XDestroyWindow (XDISPLAY displ.x->icon_desc); | |
3507 XDestroyWindow (XDISPLAY displ.x->window_desc); | |
3508 XFlushQueue (); | |
3509 UNBLOCK_INPUT; | |
3510 | |
3511 free (displ.x); | |
771 | 3512 if (f == x_focus_frame) |
3513 x_focus_frame = 0; | |
3514 if (f == x_highlight_frame) | |
3515 x_highlight_frame = 0; | |
286 | 3516 } |
3517 | |
3518 #ifndef HAVE_X11 | |
3519 | |
3520 /* Manage event queues. | |
3521 | |
3522 This code is only used by the X10 support. | |
3523 | |
3524 We cannot leave events in the X queue and get them when we are ready | |
3525 because X does not provide a subroutine to get only a certain kind | |
3526 of event but not block if there are no queued events of that kind. | |
3527 | |
3528 Therefore, we must examine events as they come in and copy events | |
3529 of certain kinds into our private queues. | |
3530 | |
3531 All ExposeRegion events are put in x_expose_queue. | |
3532 All ButtonPressed and ButtonReleased events are put in x_mouse_queue. */ | |
3533 | |
3534 | |
3535 /* Write the event *P_XREP into the event queue *QUEUE. | |
3536 If the queue is full, do nothing, but return nonzero. */ | |
3537 | |
3538 int | |
3539 enqueue_event (p_xrep, queue) | |
3540 register XEvent *p_xrep; | |
3541 register struct event_queue *queue; | |
3542 { | |
3543 int newindex = queue->windex + 1; | |
3544 if (newindex == EVENT_BUFFER_SIZE) | |
3545 newindex = 0; | |
3546 if (newindex == queue->rindex) | |
3547 return -1; | |
3548 queue->xrep[queue->windex] = *p_xrep; | |
3549 queue->windex = newindex; | |
3550 return 0; | |
3551 } | |
3552 | |
3553 /* Fetch the next event from queue *QUEUE and store it in *P_XREP. | |
3554 If *QUEUE is empty, do nothing and return 0. */ | |
3555 | |
3556 int | |
3557 dequeue_event (p_xrep, queue) | |
3558 register XEvent *p_xrep; | |
3559 register struct event_queue *queue; | |
3560 { | |
3561 if (queue->windex == queue->rindex) | |
3562 return 0; | |
3563 *p_xrep = queue->xrep[queue->rindex++]; | |
3564 if (queue->rindex == EVENT_BUFFER_SIZE) | |
3565 queue->rindex = 0; | |
3566 return 1; | |
3567 } | |
3568 | |
3569 /* Return the number of events buffered in *QUEUE. */ | |
3570 | |
3571 int | |
3572 queue_event_count (queue) | |
3573 register struct event_queue *queue; | |
3574 { | |
3575 int tem = queue->windex - queue->rindex; | |
3576 if (tem >= 0) | |
3577 return tem; | |
3578 return EVENT_BUFFER_SIZE + tem; | |
3579 } | |
3580 | |
3581 /* Return nonzero if mouse input is pending. */ | |
3582 | |
3583 int | |
3584 mouse_event_pending_p () | |
3585 { | |
3586 return queue_event_count (&x_mouse_queue); | |
3587 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3588 #endif /* HAVE_X11 */ |
286 | 3589 |
3590 #ifdef HAVE_X11 | |
3591 | |
771 | 3592 x_wm_set_size_hint (f, prompting) |
3593 struct frame *f; | |
286 | 3594 long prompting; |
3595 { | |
3596 XSizeHints size_hints; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3597 Window window = FRAME_X_WINDOW (f); |
286 | 3598 |
3599 size_hints.flags = PResizeInc | PMinSize | PMaxSize; | |
3600 | |
771 | 3601 flexlines = f->height; |
3602 | |
3603 size_hints.x = f->display.x->left_pos; | |
3604 size_hints.y = f->display.x->top_pos; | |
3605 size_hints.height = PIXEL_HEIGHT (f); | |
3606 size_hints.width = PIXEL_WIDTH (f); | |
3607 size_hints.width_inc = FONT_WIDTH (f->display.x->font); | |
3608 size_hints.height_inc = FONT_HEIGHT (f->display.x->font); | |
976
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3609 size_hints.max_width = |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3610 (x_screen_width - ((2 * f->display.x->internal_border_width) |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3611 + f->display.x->v_scrollbar_width)); |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3612 size_hints.max_height = |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3613 (x_screen_height - ((2 * f->display.x->internal_border_width) |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3614 + f->display.x->h_scrollbar_height)); |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3615 { |
1127
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3616 int base_width, base_height; |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3617 |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3618 base_width = ((2 * f->display.x->internal_border_width) |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3619 + f->display.x->v_scrollbar_width); |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3620 base_height = ((2 * f->display.x->internal_border_width) |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3621 + f->display.x->h_scrollbar_height); |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3622 |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3623 { |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3624 int min_rows = 0, min_cols = 0; |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3625 check_frame_size (f, &min_rows, &min_cols); |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3626 |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3627 /* The window manager uses the base width hints to calculate the |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3628 current number of rows and columns in the frame while |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3629 resizing; min_width and min_height aren't useful for this |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3630 purpose, since they might not give the dimensions for a |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3631 zero-row, zero-column frame. |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3632 |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3633 We use the base_width and base_height members if we have |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3634 them; otherwise, we set the min_width and min_height members |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3635 to the size for a zero x zero frame. */ |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3636 |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3637 #ifdef HAVE_X11R4 |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3638 size_hints.flags |= PBaseSize; |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3639 size_hints.base_width = base_width; |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3640 size_hints.base_height = base_height; |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3641 size_hints.min_width = base_width + min_cols * size_hints.width_inc; |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3642 size_hints.min_height = base_height + min_rows * size_hints.height_inc; |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3643 #else |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3644 size_hints.min_width = base_width; |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3645 size_hints.min_height = base_height; |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3646 #endif |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3647 } |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3648 |
976
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3649 } |
286 | 3650 |
3651 if (prompting) | |
3652 size_hints.flags |= prompting; | |
3653 else | |
3654 { | |
3655 XSizeHints hints; /* Sometimes I hate X Windows... */ | |
3656 | |
3657 XGetNormalHints (x_current_display, window, &hints); | |
3658 if (hints.flags & PSize) | |
3659 size_hints.flags |= PSize; | |
3660 if (hints.flags & PPosition) | |
3661 size_hints.flags |= PPosition; | |
3662 if (hints.flags & USPosition) | |
3663 size_hints.flags |= USPosition; | |
3664 if (hints.flags & USSize) | |
3665 size_hints.flags |= USSize; | |
3666 } | |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3667 |
1127
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3668 #ifdef HAVE_X11R4 |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3669 XSetWMNormalHints (x_current_display, window, &size_hints); |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3670 #else |
286 | 3671 XSetNormalHints (x_current_display, window, &size_hints); |
1127
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
3672 #endif |
286 | 3673 } |
3674 | |
3675 /* Used for IconicState or NormalState */ | |
771 | 3676 x_wm_set_window_state (f, state) |
3677 struct frame *f; | |
286 | 3678 int state; |
3679 { | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3680 Window window = FRAME_X_WINDOW (f); |
286 | 3681 |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3682 f->display.x->wm_hints.flags |= StateHint; |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3683 f->display.x->wm_hints.initial_state = state; |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3684 |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3685 XSetWMHints (x_current_display, window, &f->display.x->wm_hints); |
286 | 3686 } |
3687 | |
771 | 3688 x_wm_set_icon_pixmap (f, icon_pixmap) |
3689 struct frame *f; | |
286 | 3690 Pixmap icon_pixmap; |
3691 { | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3692 Window window = FRAME_X_WINDOW (f); |
286 | 3693 |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3694 f->display.x->wm_hints.flags |= IconPixmapHint; |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3695 f->display.x->wm_hints.icon_pixmap = icon_pixmap ? icon_pixmap : None; |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3696 |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3697 XSetWMHints (x_current_display, window, &f->display.x->wm_hints); |
286 | 3698 } |
3699 | |
771 | 3700 x_wm_set_icon_position (f, icon_x, icon_y) |
3701 struct frame *f; | |
286 | 3702 int icon_x, icon_y; |
3703 { | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3704 Window window = FRAME_X_WINDOW (f); |
286 | 3705 |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3706 f->display.x->wm_hints.flags |= IconPositionHint; |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3707 f->display.x->wm_hints.icon_x = icon_x; |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3708 f->display.x->wm_hints.icon_y = icon_y; |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3709 |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3710 XSetWMHints (x_current_display, window, &f->display.x->wm_hints); |
286 | 3711 } |
3712 | |
3713 | |
3714 void | |
3715 x_term_init (display_name) | |
3716 char *display_name; | |
3717 { | |
771 | 3718 Lisp_Object frame; |
286 | 3719 char *defaultvalue; |
3720 #ifdef F_SETOWN | |
3721 extern int old_fcntl_owner; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3722 #endif /* ! defined (F_SETOWN) */ |
369 | 3723 |
771 | 3724 x_focus_frame = x_highlight_frame = 0; |
286 | 3725 |
3726 x_current_display = XOpenDisplay (display_name); | |
3727 if (x_current_display == 0) | |
3728 fatal ("X server %s not responding; check the DISPLAY environment variable or use \"-d\"\n", | |
3729 display_name); | |
3730 | |
3731 #ifdef HAVE_X11 | |
3732 { | |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3733 int hostname_size = 256; |
398 | 3734 |
3735 hostname = (char *) xmalloc (hostname_size); | |
3736 | |
286 | 3737 #if 0 |
3738 XSetAfterFunction (x_current_display, x_trace_wire); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3739 #endif /* ! 0 */ |
286 | 3740 |
395 | 3741 invocation_name = Ffile_name_nondirectory (Fcar (Vcommand_line_args)); |
398 | 3742 |
3743 /* Try to get the host name; if the buffer is too short, try | |
3744 again. Apparently, the only indication gethostname gives of | |
3745 whether the buffer was large enough is the presence or absence | |
3746 of a '\0' in the string. Eech. */ | |
3747 for (;;) | |
3748 { | |
3749 gethostname (hostname, hostname_size - 1); | |
3750 hostname[hostname_size - 1] = '\0'; | |
3751 | |
3752 /* Was the buffer large enough for gethostname to store the '\0'? */ | |
3753 if (strlen (hostname) < hostname_size - 1) | |
3754 break; | |
3755 | |
3756 hostname_size <<= 1; | |
3757 hostname = (char *) xrealloc (hostname, hostname_size); | |
3758 } | |
3759 x_id_name = (char *) xmalloc (XSTRING (invocation_name)->size | |
3760 + strlen (hostname) | |
3761 + 2); | |
3762 sprintf (x_id_name, "%s@%s", XSTRING (invocation_name)->data, hostname); | |
286 | 3763 } |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3764 |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3765 /* Figure out which modifier bits mean what. */ |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3766 x_find_modifier_meanings (); |
286 | 3767 |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3768 /* Watch for PropertyNotify events on the root window; we use them |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3769 to figure out when to invalidate our cache of the cut buffers. */ |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3770 x_watch_cut_buffer_cache (); |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3771 |
286 | 3772 dup2 (ConnectionNumber (x_current_display), 0); |
369 | 3773 |
3774 #ifndef SYSV_STREAMS | |
3775 /* Streams somehow keeps track of which descriptor number | |
3776 is being used to talk to X. So it is not safe to substitute | |
3777 descriptor 0. But it is safe to make descriptor 0 a copy of it. */ | |
286 | 3778 close (ConnectionNumber (x_current_display)); |
369 | 3779 ConnectionNumber (x_current_display) = 0; /* Looks a little strange? |
3780 * check the def of the macro; | |
3781 * it is a genuine lvalue */ | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3782 #endif /* SYSV_STREAMS */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3783 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3784 #endif /* ! defined (HAVE_X11) */ |
286 | 3785 |
3786 #ifdef F_SETOWN | |
3787 old_fcntl_owner = fcntl (0, F_GETOWN, 0); | |
3788 #ifdef F_SETOWN_SOCK_NEG | |
3789 fcntl (0, F_SETOWN, -getpid ()); /* stdin is a socket here */ | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3790 #else /* ! defined (F_SETOWN_SOCK_NEG) */ |
286 | 3791 fcntl (0, F_SETOWN, getpid ()); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3792 #endif /* ! defined (F_SETOWN_SOCK_NEG) */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3793 #endif /* ! defined (F_SETOWN) */ |
286 | 3794 |
3795 #ifdef SIGIO | |
3796 init_sigio (); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3797 #endif /* ! defined (SIGIO) */ |
286 | 3798 |
3799 /* Must use interrupt input because we cannot otherwise | |
3800 arrange for C-g to be noticed immediately. | |
3801 We cannot connect it to SIGINT. */ | |
3802 Fset_input_mode (Qt, Qnil, Qt, Qnil); | |
3803 | |
3804 expose_all_windows = 0; | |
3805 | |
771 | 3806 clear_frame_hook = XTclear_frame; |
286 | 3807 clear_end_of_line_hook = XTclear_end_of_line; |
3808 ins_del_lines_hook = XTins_del_lines; | |
3809 change_line_highlight_hook = XTchange_line_highlight; | |
3810 insert_glyphs_hook = XTinsert_glyphs; | |
3811 write_glyphs_hook = XTwrite_glyphs; | |
3812 delete_glyphs_hook = XTdelete_glyphs; | |
3813 ring_bell_hook = XTring_bell; | |
3814 reset_terminal_modes_hook = XTreset_terminal_modes; | |
3815 set_terminal_modes_hook = XTset_terminal_modes; | |
3816 update_begin_hook = XTupdate_begin; | |
3817 update_end_hook = XTupdate_end; | |
3818 set_terminal_window_hook = XTset_terminal_window; | |
3819 read_socket_hook = XTread_socket; | |
3820 cursor_to_hook = XTcursor_to; | |
3821 reassert_line_highlight_hook = XTreassert_line_highlight; | |
771 | 3822 frame_rehighlight_hook = XTframe_rehighlight; |
429 | 3823 mouse_position_hook = XTmouse_position; |
286 | 3824 |
771 | 3825 scroll_region_ok = 1; /* we'll scroll partial frames */ |
286 | 3826 char_ins_del_ok = 0; /* just as fast to write the line */ |
3827 line_ins_del_ok = 1; /* we'll just blt 'em */ | |
3828 fast_clear_end_of_line = 1; /* X does this well */ | |
771 | 3829 memory_below_frame = 0; /* we don't remember what scrolls |
286 | 3830 off the bottom */ |
3831 baud_rate = 19200; | |
3832 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3833 /* Note that there is no real way portable across R3/R4 to get the |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3834 original error handler. */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3835 XHandleError (x_error_quitter); |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3836 XHandleIOError (x_error_quitter); |
286 | 3837 |
3838 /* Disable Window Change signals; they are handled by X events. */ | |
3839 #ifdef SIGWINCH | |
3840 signal (SIGWINCH, SIG_DFL); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3841 #endif /* ! defined (SIGWINCH) */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3842 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3843 signal (SIGPIPE, x_connection_closed); |
286 | 3844 } |
395 | 3845 |
3846 void | |
3847 syms_of_xterm () | |
3848 { | |
3849 staticpro (&invocation_name); | |
3850 invocation_name = Qnil; | |
3851 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3852 #endif /* ! defined (HAVE_X11) */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3853 #endif /* ! defined (HAVE_X_WINDOWS) */ |