Mercurial > emacs
annotate src/xterm.c @ 1091:3302f6e93ce5
*** empty log message ***
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 11 Sep 1992 09:04:24 +0000 |
parents | d6ee6ff7562d |
children | cd3d59155bf7 |
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 | |
1431 /* Convert a set of X modifier bits to the proper form for a | |
1432 struct input_event modifiers value. */ | |
1433 | |
1434 static Lisp_Object | |
1435 x_convert_modifiers (state) | |
1436 unsigned int state; | |
1437 { | |
1438 return ( ((state & (ShiftMask | LockMask)) ? shift_modifier : 0) | |
1439 | ((state & ControlMask) ? ctrl_modifier : 0) | |
1440 | ((state & Mod1Mask) ? meta_modifier : 0)); | |
1441 } | |
1442 | |
771 | 1443 extern struct frame *x_window_to_scrollbar (); |
286 | 1444 extern Lisp_Object Vmouse_event; |
1445 | |
1446 /* Prepare a mouse-event in *RESULT for placement in the input queue. | |
1447 | |
1448 If the event is a button press, then note that we have grabbed | |
1449 the mouse. | |
1450 | |
1451 If PART and PREFIX are 0, then the event occurred in the text part; | |
1452 otherwise it happened in a scrollbar. */ | |
1453 | |
1454 static Lisp_Object | |
771 | 1455 construct_mouse_click (result, event, f, part, prefix) |
286 | 1456 struct input_event *result; |
1457 XButtonEvent *event; | |
771 | 1458 struct frame *f; |
286 | 1459 int prefix; |
1460 Lisp_Object part; | |
1461 { | |
1462 /* Initialize those fields text and scrollbar clicks hold in common. | |
1463 Make the event type no_event; we'll change that when we decide | |
1464 otherwise. */ | |
1465 result->kind = no_event; | |
1466 XSET (result->code, Lisp_Int, event->button); | |
708 | 1467 result->timestamp = event->time; |
286 | 1468 result->modifiers = (x_convert_modifiers (event->state) |
1469 | (event->type == ButtonRelease ? up_modifier : 0)); | |
1470 | |
1471 /* Notice if the mouse is still grabbed. */ | |
1472 if (event->type == ButtonPress) | |
1473 { | |
1474 if (! x_mouse_grabbed) | |
1475 Vmouse_depressed = Qt; | |
429 | 1476 x_mouse_grabbed |= (1 << event->button); |
286 | 1477 } |
1478 else if (event->type == ButtonRelease) | |
1479 { | |
429 | 1480 x_mouse_grabbed &= ~(1 << event->button); |
286 | 1481 if (!x_mouse_grabbed) |
1482 Vmouse_depressed = Qnil; | |
1483 } | |
1484 | |
1485 if (part) /* Scrollbar event */ | |
1486 { | |
1487 int pos, len; | |
1488 | |
771 | 1489 pos = event->y - (f->display.x->v_scrollbar_width - 2); |
286 | 1490 XSET (x_mouse_x, Lisp_Int, pos); |
771 | 1491 len = ((FONT_HEIGHT (f->display.x->font) * f->height) |
1492 + f->display.x->internal_border_width | |
1493 - (2 * (f->display.x->v_scrollbar_width - 2))); | |
286 | 1494 XSET (x_mouse_y, Lisp_Int, len); |
1495 | |
1496 result->kind = scrollbar_click; | |
1497 result->part = part; | |
771 | 1498 XSET (result->x, Lisp_Int, (f->display.x->top_pos - event->y)); |
1499 XSET (result->y, Lisp_Int, f->display.x->pixel_height); | |
1500 result->frame = f; | |
286 | 1501 } |
1502 else /* Text Window Event */ | |
1503 { | |
1504 int row, column; | |
1505 | |
771 | 1506 pixel_to_glyph_coords (f, event->x, event->y, &column, &row, NULL); |
286 | 1507 result->kind = mouse_click; |
1508 result->x = column; | |
1509 result->y = row; | |
771 | 1510 result->frame = f; |
286 | 1511 } |
1512 } | |
1513 | |
1514 | |
429 | 1515 /* Mouse movement. Rah. |
1516 | |
1517 In order to avoid asking for motion events and then throwing most | |
1518 of them away or busy-polling the server for mouse positions, we ask | |
1519 the server for pointer motion hints. This means that we get only | |
1520 one event per group of mouse movements. "Groups" are delimited by | |
1521 other kinds of events (focus changes and button clicks, for | |
1522 example), or by XQueryPointer calls; when one of these happens, we | |
1523 get another MotionNotify event the next time the mouse moves. This | |
732 | 1524 is at least as efficient as getting motion events when mouse |
429 | 1525 tracking is on, and I suspect only negligibly worse when tracking |
1526 is off. | |
1527 | |
1528 The silly O'Reilly & Associates Nutshell guides barely document | |
1529 pointer motion hints at all (I think you have to infer how they | |
1530 work from an example), and the description of XQueryPointer doesn't | |
1531 mention that calling it causes you to get another motion hint from | |
1532 the server, which is very important. */ | |
1533 | |
1534 /* Where the mouse was last time we reported a mouse event. */ | |
771 | 1535 static FRAME_PTR last_mouse_frame; |
429 | 1536 static XRectangle last_mouse_glyph; |
1537 | |
732 | 1538 /* This is a hack. We would really prefer that XTmouse_position would |
1539 return the time associated with the position it returns, but there | |
1540 doesn't seem to be any way to wrest the timestamp from the server | |
1541 along with the position query. So, we just keep track of the time | |
1542 of the last movement we received, and return that in hopes that | |
1543 it's somewhat accurate. */ | |
1544 static Time last_mouse_movement_time; | |
1545 | |
429 | 1546 /* Function to report a mouse movement to the mainstream Emacs code. |
1547 The input handler calls this. | |
1548 | |
1549 We have received a mouse movement event, which is given in *event. | |
1550 If the mouse is over a different glyph than it was last time, tell | |
1551 the mainstream emacs code by setting mouse_moved. If not, ask for | |
1552 another motion event, so we can check again the next time it moves. */ | |
1553 static void | |
771 | 1554 note_mouse_position (frame, event) |
1555 FRAME_PTR frame; | |
429 | 1556 XMotionEvent *event; |
1557 | |
1558 { | |
732 | 1559 last_mouse_movement_time = event->time; |
1560 | |
429 | 1561 /* Has the mouse moved off the glyph it was on at the last sighting? */ |
1562 if (event->x < last_mouse_glyph.x | |
1563 || event->x >= last_mouse_glyph.x + last_mouse_glyph.width | |
1564 || event->y < last_mouse_glyph.y | |
1565 || event->y >= last_mouse_glyph.y + last_mouse_glyph.height) | |
1566 mouse_moved = 1; | |
1567 else | |
1568 { | |
1569 /* It's on the same glyph. Call XQueryPointer so we'll get an | |
1570 event the next time the mouse moves and we can see if it's | |
1571 *still* on the same glyph. */ | |
1572 int dummy; | |
1573 | |
1574 XQueryPointer (event->display, event->window, | |
1575 (Window *) &dummy, (Window *) &dummy, | |
1576 &dummy, &dummy, &dummy, &dummy, | |
1577 (unsigned int *) &dummy); | |
1578 } | |
1579 } | |
1580 | |
1581 /* Return the current position of the mouse. | |
1582 | |
1583 This clears the mouse_moved flag, so we can wait for the next mouse | |
1584 position. This also calls XQueryPointer, which will cause the | |
1585 server to give us another MotionNotify when the mouse moves again. | |
1586 */ | |
1587 | |
1588 static void | |
771 | 1589 XTmouse_position (f, x, y, time) |
1590 FRAME_PTR *f; | |
429 | 1591 Lisp_Object *x, *y; |
732 | 1592 unsigned long *time; |
429 | 1593 { |
1594 int ix, iy, dummy; | |
1595 Display *d = x_current_display; | |
1596 Window guess, root, child; | |
1597 | |
1598 BLOCK_INPUT; | |
1599 | |
1600 /* I would like to have an X function that just told me the | |
1601 innermost window containing the mouse. | |
1602 | |
1603 /* There doesn't seem to be any way to just get the innermost window | |
771 | 1604 containing the pointer, no matter what X frame it's on; you have |
429 | 1605 to guess a window, and then X will tell you which one of that |
1606 window's children it's in. If the pointer isn't in any of that | |
1607 window's children, it gives you a root window that contains it. | |
1608 | |
771 | 1609 So we start with the selected frame's window and chase down |
429 | 1610 branches under the guidance of XQueryPointer until we hit a leaf |
1611 (all of the Emacs windows we care about are leaf windows). If at | |
1612 any time XQueryPointer returns false, that means that the current | |
1613 window does not contain the pointer any more (perhaps it moved), | |
1614 so we start with the root window XQueryPointer has given us and | |
1615 start again. */ | |
1616 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1617 guess = FRAME_X_WINDOW (selected_frame); |
429 | 1618 for (;;) |
1619 if (XQueryPointer (d, guess, &root, &child, | |
1620 &dummy, &dummy, &ix, &iy, (unsigned int *) &dummy)) | |
1621 { | |
1622 if (child == None) | |
1623 /* Guess is a leaf window, and it contains the pointer. */ | |
1624 break; | |
1625 else | |
1626 guess = child; | |
1627 } | |
1628 else | |
1629 /* When XQueryPointer returns False, the pointer isn't in guess | |
771 | 1630 anymore, but root is the root window of the frame we should |
429 | 1631 try instead. */ |
1632 guess = root; | |
1633 | |
771 | 1634 *f = last_mouse_frame = x_window_to_frame (guess); |
1635 if (! *f) | |
429 | 1636 *x = *y = Qnil; |
1637 else | |
1638 { | |
771 | 1639 pixel_to_glyph_coords (*f, ix, iy, &ix, &iy, &last_mouse_glyph); |
429 | 1640 XSET (*x, Lisp_Int, ix); |
1641 XSET (*y, Lisp_Int, iy); | |
1642 } | |
1643 | |
1644 mouse_moved = 0; | |
1645 | |
1646 /* I don't know how to find the time for the last movement; it seems | |
732 | 1647 like XQueryPointer ought to return it, but it doesn't. So, we'll |
1648 return the time of the last MotionNotify event we received. Note | |
1649 that the use of motion hints means that this isn't guaranteed to | |
1650 be accurate at all. */ | |
1651 *time = last_mouse_movement_time; | |
429 | 1652 |
1653 UNBLOCK_INPUT; | |
1654 } | |
1655 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1656 #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
|
1657 #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
|
1658 #endif /* ! defined (HAVE_X11) */ |
429 | 1659 |
286 | 1660 |
1661 /* Timestamp of enter window event. This is only used by XTread_socket, | |
1662 but we have to put it out here, since static variables within functions | |
1663 sometimes don't work. */ | |
1664 static Time enter_timestamp; | |
1665 | |
642 | 1666 /* Communication with window managers. */ |
1667 Atom Xatom_wm_protocols; | |
1668 | |
1669 /* Kinds of protocol things we may receive. */ | |
1670 Atom Xatom_wm_take_focus; | |
1671 Atom Xatom_wm_save_yourself; | |
1672 Atom Xatom_wm_delete_window; | |
1673 | |
1674 /* Other WM communication */ | |
1675 Atom Xatom_wm_configure_denied; /* When our config request is denied */ | |
1676 Atom Xatom_wm_window_moved; /* When the WM moves us. */ | |
1677 | |
286 | 1678 /* Read events coming from the X server. |
1679 This routine is called by the SIGIO handler. | |
1680 We return as soon as there are no more events to be read. | |
1681 | |
1682 Events representing keys are stored in buffer BUFP, | |
1683 which can hold up to NUMCHARS characters. | |
1684 We return the number of characters stored into the buffer, | |
1685 thus pretending to be `read'. | |
1686 | |
1687 WAITP is nonzero if we should block until input arrives. | |
1688 EXPECTED is nonzero if the caller knows input is available. */ | |
1689 | |
1690 Lisp_Object | |
1691 XTread_socket (sd, bufp, numchars, waitp, expected) | |
1692 register int sd; | |
1693 register struct input_event *bufp; | |
1694 register int numchars; | |
1695 int waitp; | |
1696 int expected; | |
1697 { | |
1698 int count = 0; | |
1699 int nbytes = 0; | |
1700 int mask; | |
1701 int items_pending; /* How many items are in the X queue. */ | |
1702 XEvent event; | |
771 | 1703 struct frame *f; |
286 | 1704 int event_found; |
1705 int prefix; | |
1706 Lisp_Object part; | |
1707 | |
1708 if (x_input_blocked) | |
1709 { | |
1710 x_pending_input = 1; | |
1711 return -1; | |
1712 } | |
1713 | |
1714 x_pending_input = 0; | |
1715 BLOCK_INPUT; | |
1716 | |
1717 if (numchars <= 0) | |
1718 abort (); /* Don't think this happens. */ | |
1719 | |
1720 #ifdef FIOSNBIO | |
1721 /* If available, Xlib uses FIOSNBIO to make the socket | |
1722 non-blocking, and then looks for EWOULDBLOCK. If O_NDELAY is set, | |
1723 FIOSNBIO is ignored, and instead of signalling EWOULDBLOCK, | |
1724 a read returns 0, which Xlib interprets as equivalent to EPIPE. */ | |
1725 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
|
1726 #endif /* ! defined (FIOSNBIO) */ |
286 | 1727 |
1728 #ifndef SIGIO | |
1729 #ifndef HAVE_SELECT | |
1730 if (! (fcntl (fileno (stdin), F_GETFL, 0) & O_NDELAY)) | |
1731 { | |
1732 extern int read_alarm_should_throw; | |
1733 read_alarm_should_throw = 1; | |
1734 XPeekEvent (XDISPLAY &event); | |
1735 read_alarm_should_throw = 0; | |
1736 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1737 #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
|
1738 #endif /* SIGIO */ |
286 | 1739 |
1740 while (XStuffPending () != 0) | |
1741 { | |
1742 XNextEvent (XDISPLAY &event); | |
1743 event_found = 1; | |
1744 | |
1745 switch (event.type) | |
1746 { | |
1747 #ifdef HAVE_X11 | |
642 | 1748 case ClientMessage: |
1749 { | |
1750 if (event.xclient.message_type == Xatom_wm_protocols | |
1751 && event.xclient.format == 32) | |
1752 { | |
1753 if (event.xclient.data.l[0] == Xatom_wm_take_focus) | |
1754 { | |
771 | 1755 f = x_window_to_frame (event.xclient.window); |
1756 if (f) | |
1757 x_focus_on_frame (f); | |
642 | 1758 /* Not certain about handling scrollbars here */ |
1759 } | |
1760 else if (event.xclient.data.l[0] == Xatom_wm_save_yourself) | |
1761 { | |
1762 /* Save state modify the WM_COMMAND property to | |
1763 something which can reinstate us. This notifies | |
1764 the session manager, who's looking for such a | |
1765 PropertyNotify. Can restart processing when | |
1766 a keyboard or mouse event arrives. */ | |
1767 if (numchars > 0) | |
1768 { | |
1769 } | |
1770 } | |
1771 else if (event.xclient.data.l[0] == Xatom_wm_delete_window) | |
1772 { | |
771 | 1773 struct frame *f = x_window_to_frame (event.xclient.window); |
1774 | |
1775 if (f) | |
642 | 1776 if (numchars > 0) |
1777 { | |
1778 } | |
1779 } | |
1780 } | |
1781 else if (event.xclient.message_type == Xatom_wm_configure_denied) | |
1782 { | |
1783 } | |
1784 else if (event.xclient.message_type == Xatom_wm_window_moved) | |
1785 { | |
1786 int new_x, new_y; | |
1787 | |
786 | 1788 new_x = event.xclient.data.s[0]; |
1789 new_y = event.xclient.data.s[1]; | |
642 | 1790 } |
1791 } | |
1792 break; | |
286 | 1793 |
1794 case SelectionClear: /* Someone has grabbed ownership. */ | |
1795 x_disown_selection (event.xselectionclear.window, | |
1796 event.xselectionclear.selection, | |
1797 event.xselectionclear.time); | |
1798 break; | |
1799 | |
1800 case SelectionRequest: /* Someone wants our selection. */ | |
1801 x_answer_selection_request (event); | |
1802 break; | |
1803 | |
1804 case PropertyNotify: | |
1805 /* If we were to do this synchronously, there'd be no worry | |
1806 about re-selecting. */ | |
1807 x_send_incremental (event); | |
1808 break; | |
1809 | |
1810 case Expose: | |
771 | 1811 f = x_window_to_frame (event.xexpose.window); |
1812 if (f) | |
286 | 1813 { |
771 | 1814 if (f->visible == 0) |
286 | 1815 { |
771 | 1816 f->visible = 1; |
1817 f->iconified = 0; | |
1818 SET_FRAME_GARBAGED (f); | |
286 | 1819 } |
1820 else | |
771 | 1821 dumprectangle (x_window_to_frame (event.xexpose.window), |
286 | 1822 event.xexpose.x, event.xexpose.y, |
1823 event.xexpose.width, event.xexpose.height); | |
1824 } | |
1825 break; | |
1826 | |
1827 case GraphicsExpose: /* This occurs when an XCopyArea's | |
1828 source area was obscured or not | |
1829 available.*/ | |
771 | 1830 dumprectangle (x_window_to_frame (event.xgraphicsexpose.drawable), |
286 | 1831 event.xgraphicsexpose.x, event.xgraphicsexpose.y, |
1832 event.xgraphicsexpose.width, | |
1833 event.xgraphicsexpose.height); | |
1834 break; | |
1835 | |
1836 case NoExpose: /* This occurs when an XCopyArea's | |
1837 source area was completely | |
1838 available */ | |
1839 break; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1840 #else /* ! defined (HAVE_X11) */ |
286 | 1841 case ExposeWindow: |
1842 if (event.subwindow != 0) | |
1843 break; /* duplicate event */ | |
771 | 1844 f = x_window_to_frame (event.window); |
1845 if (event.window == f->display.x->icon_desc) | |
286 | 1846 { |
771 | 1847 refreshicon (f); |
1848 f->iconified = 1; | |
286 | 1849 } |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1850 if (event.window == FRAME_X_WINDOW (f)) |
286 | 1851 { |
1852 /* Say must check all windows' needs_exposure flags. */ | |
1853 expose_all_windows = 1; | |
771 | 1854 f->display.x->needs_exposure = 1; |
1855 f->visible = 1; | |
286 | 1856 } |
1857 break; | |
1858 | |
1859 case ExposeRegion: | |
1860 if (event.subwindow != 0) | |
1861 break; /* duplicate event */ | |
771 | 1862 f = x_window_to_frame (event.window); |
1863 if (event.window == f->display.x->icon_desc) | |
286 | 1864 { |
771 | 1865 refreshicon (f); |
286 | 1866 break; |
1867 } | |
1868 /* If window already needs full redraw, ignore this rectangle. */ | |
771 | 1869 if (expose_all_windows && f->display.x->needs_exposure) |
286 | 1870 break; |
1871 /* Put the event on the queue of rectangles to redraw. */ | |
1872 if (enqueue_event (&event, &x_expose_queue)) | |
1873 /* If it is full, we can't record the rectangle, | |
1874 so redraw this entire window. */ | |
1875 { | |
1876 /* Say must check all windows' needs_exposure flags. */ | |
1877 expose_all_windows = 1; | |
771 | 1878 f->display.x->needs_exposure = 1; |
286 | 1879 } |
1880 break; | |
1881 | |
1882 case ExposeCopy: | |
1883 /* This should happen only when we are expecting it, | |
1884 in x_read_exposes. */ | |
1885 abort (); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1886 #endif /* ! defined (HAVE_X11) */ |
286 | 1887 |
1888 #ifdef HAVE_X11 | |
1889 case UnmapNotify: | |
1890 { | |
1891 XWMHints *hints; | |
1892 | |
771 | 1893 f = x_window_to_frame (event.xunmap.window); |
1894 if (f) /* F may no longer exist if | |
1895 the frame was deleted. */ | |
286 | 1896 { |
771 | 1897 /* While a frame is unmapped, display generation is |
286 | 1898 disabled; you don't want to spend time updating a |
1899 display that won't ever be seen. */ | |
771 | 1900 f->visible = 0; |
286 | 1901 x_mouse_x = x_mouse_y = -1; |
1902 } | |
1903 } | |
1904 break; | |
1905 | |
1906 case MapNotify: | |
771 | 1907 f = x_window_to_frame (event.xmap.window); |
1908 if (f) | |
286 | 1909 { |
771 | 1910 f->visible = 1; |
1911 f->iconified = 0; | |
286 | 1912 |
1913 /* wait_reading_process_input will notice this and update | |
771 | 1914 the frame's display structures. */ |
1915 SET_FRAME_GARBAGED (f); | |
286 | 1916 } |
1917 break; | |
1918 | |
1919 /* Turn off processing if we become fully obscured. */ | |
1920 case VisibilityNotify: | |
1921 break; | |
1922 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1923 #else /* ! defined (HAVE_X11) */ |
286 | 1924 case UnmapWindow: |
771 | 1925 f = x_window_to_frame (event.window); |
1926 if (event.window == f->display.x->icon_desc) | |
1927 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
|
1928 if (event.window == FRAME_X_WINDOW (f)) |
771 | 1929 f->visible = 0; |
286 | 1930 break; |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
1931 #endif /* ! defined (HAVE_X11) */ |
286 | 1932 |
1933 #ifdef HAVE_X11 | |
1934 case KeyPress: | |
771 | 1935 f = x_window_to_frame (event.xkey.window); |
1936 if (f != 0) | |
286 | 1937 { |
1938 KeySym keysym; | |
1939 XComposeStatus status; | |
1940 char copy_buffer[80]; | |
555 | 1941 int modifiers = event.xkey.state; |
1942 | |
1943 /* Some keyboards generate different characters | |
1944 depending on the state of the meta key, in an attempt | |
1945 to support non-English typists. It would be nice to | |
1946 keep this functionality somehow, but for now, we will | |
1947 just clear the meta-key flag to get the 'pure' character. */ | |
1948 event.xkey.state &= ~Mod1Mask; | |
286 | 1949 |
1950 /* This will have to go some day... */ | |
1951 nbytes = XLookupString (&event.xkey, | |
1952 copy_buffer, | |
1953 80, | |
1954 &keysym, | |
1955 &status); | |
1956 | |
395 | 1957 /* Strip off the vendor-specific keysym bit, and take a shot |
1958 at recognizing the codes. HP servers have extra keysyms | |
1959 that fit into the MiscFunctionKey category. */ | |
1960 keysym &= ~(1<<28); | |
1961 | |
286 | 1962 if (numchars > 1) |
1963 { | |
395 | 1964 if (IsCursorKey (keysym) /* 0xff50 <= x < 0xff60 */ |
1965 || IsMiscFunctionKey (keysym) /* 0xff60 <= x < 0xff80 */ | |
1966 || IsKeypadKey (keysym) /* 0xff80 <= x < 0xffbe */ | |
1967 || IsFunctionKey (keysym)) /* 0xffbe <= x < 0xffe1 */ | |
286 | 1968 { |
1969 bufp->kind = non_ascii_keystroke; | |
429 | 1970 XSET (bufp->code, Lisp_Int, (unsigned) keysym - 0xff50); |
771 | 1971 bufp->frame = f; |
555 | 1972 bufp->modifiers = x_convert_modifiers (modifiers); |
708 | 1973 bufp->timestamp = event.xkey.time; |
286 | 1974 bufp++; |
1975 count++; | |
1976 numchars--; | |
1977 } | |
1978 else if (numchars > nbytes) | |
1979 { | |
1980 register int i; | |
1981 | |
1982 if (nbytes == 1) | |
1983 { | |
555 | 1984 if (modifiers & Mod1Mask) |
286 | 1985 *copy_buffer |= METABIT; |
1986 bufp->kind = ascii_keystroke; | |
708 | 1987 XSET (bufp->code, Lisp_Int, *copy_buffer); |
771 | 1988 bufp->frame = f; |
708 | 1989 bufp->timestamp = event.xkey.time; |
286 | 1990 bufp++; |
1991 } | |
1992 else | |
1993 for (i = nbytes - 1; i > 1; i--) | |
1994 { | |
1995 bufp->kind = ascii_keystroke; | |
1996 XSET (bufp->code, Lisp_Int, copy_buffer[i]); | |
771 | 1997 bufp->frame = f; |
708 | 1998 bufp->timestamp = event.xkey.time; |
286 | 1999 bufp++; |
2000 } | |
2001 | |
2002 count += nbytes; | |
2003 numchars -= nbytes; | |
2004 } | |
2005 } | |
2006 } | |
2007 break; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2008 #else /* ! defined (HAVE_X11) */ |
286 | 2009 case KeyPressed: |
2010 { | |
2011 register char *where_mapping; | |
2012 | |
771 | 2013 f = x_window_to_frame (event.window); |
286 | 2014 /* Ignore keys typed on icon windows. */ |
771 | 2015 if (f != 0 && event.window == f->display.x->icon_desc) |
286 | 2016 break; |
2017 where_mapping = XLookupMapping (&event, &nbytes); | |
2018 /* Nasty fix for arrow keys */ | |
2019 if (!nbytes && IsCursorKey (event.detail & 0xff)) | |
2020 { | |
2021 switch (event.detail & 0xff) | |
2022 { | |
2023 case KC_CURSOR_LEFT: | |
2024 where_mapping = "\002"; | |
2025 break; | |
2026 case KC_CURSOR_RIGHT: | |
2027 where_mapping = "\006"; | |
2028 break; | |
2029 case KC_CURSOR_UP: | |
2030 where_mapping = "\020"; | |
2031 break; | |
2032 case KC_CURSOR_DOWN: | |
2033 where_mapping = "\016"; | |
2034 break; | |
2035 } | |
2036 nbytes = 1; | |
2037 } | |
2038 if (numchars - nbytes > 0) | |
2039 { | |
2040 register int i; | |
2041 | |
2042 for (i = 0; i < nbytes; i++) | |
2043 { | |
2044 bufp->kind = ascii_keystroke; | |
2045 XSET (bufp->code, Lisp_Int, where_mapping[i]); | |
429 | 2046 XSET (bufp->time, Lisp_Int, event.xkey.time); |
771 | 2047 bufp->frame = f; |
286 | 2048 bufp++; |
2049 } | |
2050 count += nbytes; | |
2051 numchars -= nbytes; | |
2052 } | |
2053 } | |
2054 break; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2055 #endif /* ! defined (HAVE_X11) */ |
286 | 2056 |
2057 #ifdef HAVE_X11 | |
2058 case EnterNotify: | |
771 | 2059 f = x_window_to_frame (event.xcrossing.window); |
369 | 2060 |
286 | 2061 if (event.xcrossing.detail == NotifyInferior) /* Left Scrollbar */ |
2062 ; | |
2063 else if (event.xcrossing.focus) /* Entered Window */ | |
2064 { | |
2065 /* If we decide we want to generate an event to be seen | |
2066 by the rest of Emacs, we put it here. */ | |
2067 struct input_event emacs_event; | |
2068 emacs_event.kind = no_event; | |
2069 | |
2070 /* Avoid nasty pop/raise loops. */ | |
771 | 2071 if (f && (!(f->auto_raise) |
2072 || !(f->auto_lower) | |
286 | 2073 || (event.xcrossing.time - enter_timestamp) > 500)) |
2074 { | |
771 | 2075 x_new_focus_frame (f); |
286 | 2076 enter_timestamp = event.xcrossing.time; |
2077 } | |
2078 #if 0 | |
771 | 2079 else if ((f = x_window_to_scrollbar (event.xcrossing.window, |
286 | 2080 &part, &prefix))) |
2081 /* Fake a motion event */ | |
2082 notice_mouse_movement (&emacs_event, | |
771 | 2083 event.xmotion, f, scrollbar_window, |
286 | 2084 part); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2085 #endif /* ! 0 */ |
286 | 2086 |
2087 #if 0 | |
2088 if (! EQ (Vx_send_mouse_movement_events, Qnil) | |
2089 && numchars >= 1 | |
2090 && emacs_event.kind != no_event) | |
2091 { | |
2092 bcopy (&emacs_event, bufp, sizeof (struct input_event)); | |
2093 bufp++; | |
2094 count++; | |
2095 numchars--; | |
2096 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2097 #endif /* ! 0 */ |
286 | 2098 } |
771 | 2099 else if (f == x_focus_frame) |
2100 x_new_focus_frame (0); | |
286 | 2101 #if 0 |
771 | 2102 else if (f = x_window_to_frame (event.xcrossing.window)) |
2103 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
|
2104 #endif /* ! 0 */ |
286 | 2105 |
2106 break; | |
2107 | |
2108 case FocusIn: | |
771 | 2109 f = x_window_to_frame (event.xfocus.window); |
2110 if (f) | |
2111 x_new_focus_frame (f); | |
286 | 2112 break; |
2113 | |
2114 case LeaveNotify: | |
2115 if (event.xcrossing.detail != NotifyInferior | |
2116 && event.xcrossing.subwindow == None | |
2117 && event.xcrossing.mode == NotifyNormal) | |
2118 { | |
771 | 2119 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
|
2120 |
313 | 2121 if (event.xcrossing.focus) |
771 | 2122 x_new_focus_frame (f); |
2123 else if (f == x_focus_frame) | |
2124 x_new_focus_frame (0); | |
286 | 2125 } |
2126 break; | |
2127 | |
2128 case FocusOut: | |
771 | 2129 f = x_window_to_frame (event.xfocus.window); |
2130 if (f && f == x_focus_frame) | |
2131 x_new_focus_frame (0); | |
286 | 2132 break; |
2133 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2134 #else /* ! defined (HAVE_X11) */ |
286 | 2135 |
2136 case EnterWindow: | |
2137 if ((event.detail & 0xFF) == 1) | |
2138 break; /* Coming from our own subwindow */ | |
2139 if (event.subwindow != 0) | |
2140 break; /* Entering our own subwindow. */ | |
2141 | |
2142 { | |
771 | 2143 f = x_window_to_frame (event.window); |
2144 x_mouse_frame = f; | |
2145 | |
2146 x_new_focus_frame (f); | |
286 | 2147 } |
2148 break; | |
2149 | |
2150 case LeaveWindow: | |
2151 if ((event.detail & 0xFF) == 1) | |
2152 break; /* Entering our own subwindow */ | |
2153 if (event.subwindow != 0) | |
2154 break; /* Leaving our own subwindow. */ | |
2155 | |
771 | 2156 x_mouse_frame = 0; |
2157 if (x_focus_frame == 0 | |
2158 && x_input_frame != 0 | |
2159 && 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
|
2160 && event.window == FRAME_X_WINDOW (x_input_frame)) |
286 | 2161 { |
771 | 2162 f = x_input_frame; |
2163 x_input_frame = 0; | |
2164 if (f) | |
2165 frame_unhighlight (f); | |
286 | 2166 } |
2167 break; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2168 #endif /* ! defined (HAVE_X11) */ |
286 | 2169 |
2170 #ifdef HAVE_X11 | |
2171 case MotionNotify: | |
2172 { | |
771 | 2173 f = x_window_to_frame (event.xmotion.window); |
2174 if (f) | |
2175 note_mouse_position (f, &event.xmotion); | |
286 | 2176 #if 0 |
771 | 2177 else if ((f = x_window_to_scrollbar (event.xmotion.window, |
286 | 2178 &part, &prefix))) |
2179 { | |
2180 What should go here? | |
2181 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2182 #endif /* ! 0 */ |
286 | 2183 } |
2184 break; | |
2185 | |
2186 case ConfigureNotify: | |
2187 { | |
2188 int rows, columns; | |
771 | 2189 f = x_window_to_frame (event.xconfigure.window); |
2190 if (!f) | |
286 | 2191 break; |
2192 | |
2193 columns = ((event.xconfigure.width - | |
771 | 2194 (2 * f->display.x->internal_border_width) |
2195 - f->display.x->v_scrollbar_width) | |
2196 / FONT_WIDTH (f->display.x->font)); | |
286 | 2197 rows = ((event.xconfigure.height - |
771 | 2198 (2 * f->display.x->internal_border_width) |
2199 - f->display.x->h_scrollbar_height) | |
2200 / FONT_HEIGHT (f->display.x->font)); | |
286 | 2201 |
429 | 2202 /* Even if the number of character rows and columns has |
2203 not changed, the font size may have changed, so we need | |
2204 to check the pixel dimensions as well. */ | |
771 | 2205 if (columns != f->width |
2206 || rows != f->height | |
2207 || event.xconfigure.width != f->display.x->pixel_width | |
2208 || event.xconfigure.height != f->display.x->pixel_height) | |
286 | 2209 { |
976
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
2210 change_frame_size (f, rows, columns, 0, 1); |
771 | 2211 x_resize_scrollbars (f); |
2212 SET_FRAME_GARBAGED (f); | |
286 | 2213 } |
2214 | |
771 | 2215 f->display.x->pixel_width = event.xconfigure.width; |
2216 f->display.x->pixel_height = event.xconfigure.height; | |
2217 f->display.x->left_pos = event.xconfigure.x; | |
2218 f->display.x->top_pos = event.xconfigure.y; | |
286 | 2219 break; |
2220 } | |
2221 | |
2222 case ButtonPress: | |
2223 case ButtonRelease: | |
2224 { | |
2225 /* If we decide we want to generate an event to be seen | |
2226 by the rest of Emacs, we put it here. */ | |
2227 struct input_event emacs_event; | |
2228 emacs_event.kind = no_event; | |
2229 | |
771 | 2230 f = x_window_to_frame (event.xbutton.window); |
2231 if (f) | |
2232 if (!x_focus_frame || (f == x_focus_frame)) | |
286 | 2233 construct_mouse_click (&emacs_event, |
771 | 2234 &event, f, 0, 0); |
286 | 2235 else |
2236 continue; | |
2237 else | |
771 | 2238 if ((f = x_window_to_scrollbar (event.xbutton.window, |
286 | 2239 &part, &prefix))) |
2240 { | |
771 | 2241 if (!x_focus_frame || (selected_frame == x_focus_frame)) |
286 | 2242 construct_mouse_click (&emacs_event, |
771 | 2243 &event, f, part, prefix); |
286 | 2244 else |
2245 continue; | |
2246 } | |
2247 | |
2248 if (numchars >= 1 && emacs_event.kind != no_event) | |
2249 { | |
2250 bcopy (&emacs_event, bufp, sizeof (struct input_event)); | |
2251 bufp++; | |
2252 count++; | |
2253 numchars--; | |
2254 } | |
2255 } | |
2256 break; | |
2257 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2258 #else /* ! defined (HAVE_X11) */ |
286 | 2259 case ButtonPressed: |
2260 case ButtonReleased: | |
771 | 2261 f = x_window_to_frame (event.window); |
2262 if (f) | |
286 | 2263 { |
771 | 2264 if (event.window == f->display.x->icon_desc) |
286 | 2265 { |
771 | 2266 x_make_frame_visible (f); |
286 | 2267 |
2268 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
|
2269 XWarpMouse (FRAME_X_WINDOW (f), 10, 10); |
286 | 2270 break; |
2271 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2272 if (event.window == FRAME_X_WINDOW (f)) |
286 | 2273 { |
771 | 2274 if (f->auto_raise) |
2275 x_raise_frame (f); | |
286 | 2276 } |
2277 } | |
2278 enqueue_event (&event, &x_mouse_queue); | |
2279 if (numchars >= 2) | |
2280 { | |
2281 bufp->kind = ascii_keystroke; | |
2282 bufp->code = (char) 'X' & 037; /* C-x */ | |
771 | 2283 bufp->frame = f; |
429 | 2284 XSET (bufp->time, Lisp_Int, event.xkey.time); |
286 | 2285 bufp++; |
2286 | |
2287 bufp->kind = ascii_keystroke; | |
2288 bufp->code = (char) 0; /* C-@ */ | |
771 | 2289 bufp->frame = f; |
429 | 2290 XSET (bufp->time, Lisp_Int, event.xkey.time); |
286 | 2291 bufp++; |
2292 | |
2293 count += 2; | |
2294 numchars -= 2; | |
2295 } | |
2296 break; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2297 #endif /* ! defined (HAVE_X11) */ |
286 | 2298 |
2299 #ifdef HAVE_X11 | |
2300 | |
2301 case CirculateNotify: | |
2302 break; | |
2303 case CirculateRequest: | |
2304 break; | |
2305 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2306 #endif /* ! defined (HAVE_X11) */ |
286 | 2307 |
2308 case MappingNotify: | |
2309 if (event.xmapping.request == MappingKeyboard) | |
2310 /* Someone has changed the keyboard mapping - flush the | |
2311 local cache. */ | |
2312 XRefreshKeyboardMapping (&event.xmapping); | |
2313 break; | |
2314 | |
2315 default: | |
2316 break; | |
2317 } | |
2318 } | |
2319 | |
2320 #if 0 | |
2321 #ifdef HAVE_SELECT | |
2322 if (expected && ! event_found) | |
2323 { | |
2324 /* AOJ 880406: if select returns true but XPending doesn't, it means that | |
2325 there is an EOF condition; in other words, that X has died. | |
2326 Act as if there had been a hangup. */ | |
2327 | |
2328 int fd = ConnectionNumber (x_current_display); | |
2329 int mask = 1 << fd; | |
2330 | |
2331 if (0 != select (fd + 1, &mask, (long *) 0, (long *) 0, | |
555 | 2332 (EMACS_TIME) 0) |
286 | 2333 && !XStuffPending ()) |
2334 kill (getpid (), SIGHUP); | |
2335 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2336 #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
|
2337 #endif /* ! 0 */ |
286 | 2338 |
771 | 2339 if (updating_frame == 0) |
286 | 2340 x_do_pending_expose (); |
2341 | |
2342 UNBLOCK_INPUT; | |
2343 return count; | |
2344 } | |
2345 | |
2346 #ifndef HAVE_X11 | |
2347 /* Read and process only Expose events | |
2348 until we get an ExposeCopy event; then return. | |
2349 This is used in insert/delete line. | |
2350 We assume input is already blocked. */ | |
2351 | |
2352 static void | |
2353 x_read_exposes () | |
2354 { | |
771 | 2355 struct frame *f; |
286 | 2356 XKeyPressedEvent event; |
2357 | |
2358 while (1) | |
2359 { | |
2360 /* while there are more events*/ | |
2361 XMaskEvent (ExposeWindow | ExposeRegion | ExposeCopy, &event); | |
2362 switch (event.type) | |
2363 { | |
2364 case ExposeWindow: | |
2365 if (event.subwindow != 0) | |
2366 break; /* duplicate event */ | |
771 | 2367 f = x_window_to_frame (event.window); |
2368 if (event.window == f->display.x->icon_desc) | |
286 | 2369 { |
771 | 2370 refreshicon (f); |
286 | 2371 break; |
2372 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2373 if (event.window == FRAME_X_WINDOW (f)) |
286 | 2374 { |
2375 expose_all_windows = 1; | |
771 | 2376 f->display.x->needs_exposure = 1; |
286 | 2377 break; |
2378 } | |
2379 break; | |
2380 | |
2381 case ExposeRegion: | |
2382 if (event.subwindow != 0) | |
2383 break; /* duplicate event */ | |
771 | 2384 f = x_window_to_frame (event.window); |
2385 if (event.window == f->display.x->icon_desc) | |
286 | 2386 { |
771 | 2387 refreshicon (f); |
286 | 2388 break; |
2389 } | |
2390 /* If window already needs full redraw, ignore this rectangle. */ | |
771 | 2391 if (expose_all_windows && f->display.x->needs_exposure) |
286 | 2392 break; |
2393 /* Put the event on the queue of rectangles to redraw. */ | |
2394 if (enqueue_event (&event, &x_expose_queue)) | |
2395 /* If it is full, we can't record the rectangle, | |
2396 so redraw this entire window. */ | |
2397 { | |
2398 /* Say must check all windows' needs_exposure flags. */ | |
2399 expose_all_windows = 1; | |
771 | 2400 f->display.x->needs_exposure = 1; |
286 | 2401 } |
2402 break; | |
2403 | |
2404 case ExposeCopy: | |
2405 return; | |
2406 } | |
2407 } | |
2408 } | |
2409 #endif /* HAVE_X11 */ | |
2410 | |
2411 | |
2412 /* Draw a hollow box cursor. Don't change the inside of the box. */ | |
2413 | |
2414 static void | |
771 | 2415 x_draw_box (f) |
2416 struct frame *f; | |
286 | 2417 { |
771 | 2418 int left = f->cursor_x * FONT_WIDTH (f->display.x->font) |
2419 + f->display.x->internal_border_width; | |
2420 int top = f->cursor_y * FONT_HEIGHT (f->display.x->font) | |
2421 + f->display.x->internal_border_width; | |
2422 int width = FONT_WIDTH (f->display.x->font); | |
2423 int height = FONT_HEIGHT (f->display.x->font); | |
286 | 2424 |
2425 #ifdef HAVE_X11 | |
2426 /* 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
|
2427 XDrawRectangle (x_current_display, FRAME_X_WINDOW (f), |
771 | 2428 f->display.x->cursor_gc, |
286 | 2429 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
|
2430 #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
|
2431 XPixSet (FRAME_X_WINDOW (f), |
286 | 2432 left, top, width, 1, |
771 | 2433 f->display.x->cursor_pixel); |
2434 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2435 XPixSet (FRAME_X_WINDOW (f), |
286 | 2436 left, top, 1, height, |
771 | 2437 f->display.x->cursor_pixel); |
2438 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2439 XPixSet (FRAME_X_WINDOW (f), |
286 | 2440 left+width-1, top, 1, height, |
771 | 2441 f->display.x->cursor_pixel); |
2442 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2443 XPixSet (FRAME_X_WINDOW (f), |
286 | 2444 left, top+height-1, width, 1, |
771 | 2445 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
|
2446 #endif /* ! defined (HAVE_X11) */ |
286 | 2447 } |
2448 | |
771 | 2449 /* Clear the cursor of frame F to background color, |
286 | 2450 and mark the cursor as not shown. |
2451 This is used when the text where the cursor is | |
2452 is about to be rewritten. */ | |
2453 | |
2454 static void | |
771 | 2455 clear_cursor (f) |
2456 struct frame *f; | |
286 | 2457 { |
2458 int mask; | |
2459 | |
771 | 2460 if (! f->visible |
2461 || f->phys_cursor_x < 0) | |
286 | 2462 return; |
2463 | |
2464 #ifdef HAVE_X11 | |
771 | 2465 x_display_cursor (f, 0); |
286 | 2466 #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
|
2467 XClearArea (x_current_display, FRAME_X_WINDOW (f), |
771 | 2468 f->phys_cursor_x * FONT_WIDTH (f->display.x->font) |
2469 + f->display.x->internal_border_width, | |
2470 f->phys_cursor_y * FONT_HEIGHT (f->display.x->font) | |
2471 + f->display.x->internal_border_width, | |
2472 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
|
2473 #endif /* ! 0 */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2474 #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
|
2475 XPixSet (FRAME_X_WINDOW (f), |
771 | 2476 f->phys_cursor_x * FONT_WIDTH (f->display.x->font) + f->display.x->internal_border_width, |
2477 f->phys_cursor_y * FONT_HEIGHT (f->display.x->font) + f->display.x->internal_border_width, | |
2478 FONT_WIDTH (f->display.x->font), FONT_HEIGHT (f->display.x->font), | |
2479 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
|
2480 #endif /* ! defined (HAVE_X11) */ |
771 | 2481 f->phys_cursor_x = -1; |
286 | 2482 } |
2483 | |
429 | 2484 static void |
771 | 2485 x_display_bar_cursor (f, on) |
2486 struct frame *f; | |
286 | 2487 int on; |
2488 { | |
771 | 2489 register int phys_x = f->phys_cursor_x; |
2490 register int phys_y = f->phys_cursor_y; | |
286 | 2491 register int x1; |
2492 register int y1; | |
2493 register int y2; | |
2494 | |
771 | 2495 if (! f->visible || (! on && f->phys_cursor_x < 0)) |
286 | 2496 return; |
2497 | |
2498 #ifdef HAVE_X11 | |
2499 if (phys_x >= 0 && | |
771 | 2500 (!on || phys_x != f->cursor_x || phys_y != f->cursor_y)) |
286 | 2501 { |
771 | 2502 x1 = phys_x * FONT_WIDTH (f->display.x->font) |
2503 + f->display.x->internal_border_width; | |
2504 y1 = phys_y * FONT_HEIGHT (f->display.x->font) | |
2505 + f->display.x->internal_border_width - 1; | |
2506 y2 = y1 + FONT_HEIGHT (f->display.x->font) + 1; | |
2507 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2508 XDrawLine (x_current_display, FRAME_X_WINDOW (f), |
771 | 2509 f->display.x->reverse_gc, x1, y1, x1, y2); |
2510 | |
2511 f->phys_cursor_x = phys_x = -1; | |
286 | 2512 } |
2513 | |
771 | 2514 if (on && f == x_highlight_frame) |
286 | 2515 { |
771 | 2516 x1 = f->cursor_x * FONT_WIDTH (f->display.x->font) |
2517 + f->display.x->internal_border_width; | |
2518 y1 = f->cursor_y * FONT_HEIGHT (f->display.x->font) | |
2519 + f->display.x->internal_border_width - 1; | |
2520 y2 = y1 + FONT_HEIGHT (f->display.x->font) + 1; | |
2521 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2522 XDrawLine (x_current_display, FRAME_X_WINDOW (f), |
771 | 2523 f->display.x->cursor_gc, x1, y1, x1, y2); |
2524 | |
2525 f->phys_cursor_x = f->cursor_x; | |
2526 f->phys_cursor_y = f->cursor_y; | |
286 | 2527 } |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2528 #else /* ! defined (HAVE_X11) */ |
286 | 2529 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
|
2530 #endif /* ! defined (HAVE_X11) */ |
286 | 2531 } |
2532 | |
2533 | |
771 | 2534 /* Redraw the glyph at ROW, COLUMN on frame F, in the style |
429 | 2535 HIGHLIGHT. HIGHLIGHT is as defined for dumpglyphs. Return the |
2536 glyph drawn. */ | |
286 | 2537 |
2538 static void | |
771 | 2539 x_draw_single_glyph (f, row, column, glyph, highlight) |
2540 struct frame *f; | |
286 | 2541 int row, column; |
429 | 2542 GLYPH glyph; |
286 | 2543 int highlight; |
2544 { | |
771 | 2545 dumpglyphs (f, |
2546 (column * FONT_WIDTH (f->display.x->font) | |
2547 + f->display.x->internal_border_width), | |
2548 (row * FONT_HEIGHT (f->display.x->font) | |
2549 + f->display.x->internal_border_width), | |
2550 &glyph, 1, highlight, f->display.x->font); | |
286 | 2551 } |
2552 | |
771 | 2553 /* Turn the displayed cursor of frame F on or off according to ON. |
286 | 2554 If ON is nonzero, where to put the cursor is specified |
771 | 2555 by F->cursor_x and F->cursor_y. */ |
286 | 2556 |
2557 static void | |
771 | 2558 x_display_box_cursor (f, on) |
2559 struct frame *f; | |
286 | 2560 int on; |
2561 { | |
771 | 2562 struct frame_glyphs *current_glyphs = FRAME_CURRENT_GLYPHS (f); |
2563 | |
2564 /* If we're not updating, then we want to use the current frame's | |
708 | 2565 cursor position, not our local idea of where the cursor ought to be. */ |
771 | 2566 if (f != updating_frame) |
708 | 2567 { |
771 | 2568 curs_x = FRAME_CURSOR_X (f); |
2569 curs_y = FRAME_CURSOR_Y (f); | |
708 | 2570 } |
2571 | |
771 | 2572 if (! f->visible) |
286 | 2573 return; |
2574 | |
2575 /* If cursor is off and we want it off, return quickly. */ | |
771 | 2576 if (!on && f->phys_cursor_x < 0) |
286 | 2577 return; |
2578 | |
2579 /* If cursor is currently being shown and we don't want it to be | |
2580 or it is in the wrong place, | |
2581 or we want a hollow box and it's not so, (pout!) | |
2582 erase it. */ | |
771 | 2583 if (f->phys_cursor_x >= 0 |
286 | 2584 && (!on |
771 | 2585 || f->phys_cursor_x != curs_x |
2586 || f->phys_cursor_y != curs_y | |
2587 || (f->display.x->text_cursor_kind != hollow_box_cursor | |
2588 && (f != x_highlight_frame)))) | |
286 | 2589 { |
2590 /* Erase the cursor by redrawing the character underneath it. */ | |
771 | 2591 x_draw_single_glyph (f, f->phys_cursor_y, f->phys_cursor_x, |
2592 f->phys_cursor_glyph, | |
2593 current_glyphs->highlight[f->phys_cursor_y]); | |
2594 f->phys_cursor_x = -1; | |
286 | 2595 } |
2596 | |
2597 /* If we want to show a cursor, | |
2598 or we want a box cursor and it's not so, | |
2599 write it in the right place. */ | |
2600 if (on | |
771 | 2601 && (f->phys_cursor_x < 0 |
2602 || (f->display.x->text_cursor_kind != filled_box_cursor | |
2603 && f == x_highlight_frame))) | |
286 | 2604 { |
771 | 2605 f->phys_cursor_glyph |
708 | 2606 = ((current_glyphs->enable[curs_y] |
2607 && curs_x < current_glyphs->used[curs_y]) | |
2608 ? current_glyphs->glyphs[curs_y][curs_x] | |
429 | 2609 : SPACEGLYPH); |
771 | 2610 if (f != x_highlight_frame) |
286 | 2611 { |
771 | 2612 x_draw_box (f); |
2613 f->display.x->text_cursor_kind = hollow_box_cursor; | |
286 | 2614 } |
2615 else | |
2616 { | |
771 | 2617 x_draw_single_glyph (f, curs_y, curs_x, |
2618 f->phys_cursor_glyph, 2); | |
2619 f->display.x->text_cursor_kind = filled_box_cursor; | |
286 | 2620 } |
2621 | |
771 | 2622 f->phys_cursor_x = curs_x; |
2623 f->phys_cursor_y = curs_y; | |
286 | 2624 } |
2625 | |
771 | 2626 if (updating_frame != f) |
286 | 2627 XFlushQueue (); |
2628 } | |
2629 | |
2630 extern Lisp_Object Vbar_cursor; | |
2631 | |
771 | 2632 x_display_cursor (f, on) |
2633 struct frame *f; | |
286 | 2634 int on; |
2635 { | |
2636 if (EQ (Vbar_cursor, Qnil)) | |
771 | 2637 x_display_box_cursor (f, on); |
286 | 2638 else |
771 | 2639 x_display_bar_cursor (f, on); |
286 | 2640 } |
2641 | |
2642 /* Icons. */ | |
2643 | |
771 | 2644 /* Refresh bitmap kitchen sink icon for frame F |
286 | 2645 when we get an expose event for it. */ |
2646 | |
771 | 2647 refreshicon (f) |
2648 struct frame *f; | |
286 | 2649 { |
2650 #ifdef HAVE_X11 | |
2651 /* 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
|
2652 #else /* ! defined (HAVE_X11) */ |
286 | 2653 int mask; |
2654 | |
771 | 2655 if (f->display.x->icon_bitmap_flag) |
2656 XBitmapBitsPut (f->display.x->icon_desc, 0, 0, sink_width, sink_height, | |
286 | 2657 sink_bits, BlackPixel, WHITE_PIX_DEFAULT, |
2658 icon_bitmap, GXcopy, AllPlanes); | |
2659 else | |
2660 { | |
771 | 2661 extern struct frame *selected_frame; |
286 | 2662 struct Lisp_String *str; |
2663 unsigned char *string; | |
2664 | |
2665 string | |
771 | 2666 = XSTRING (XBUFFER (XWINDOW (f->selected_window)->buffer)->name)->data; |
2667 | |
2668 if (f->display.x->icon_label != string) | |
286 | 2669 { |
771 | 2670 f->display.x->icon_label = string; |
2671 XChangeWindow (f->display.x->icon_desc, | |
286 | 2672 XQueryWidth (string, icon_font_info->id) + 10, |
2673 icon_font_info->height + 10); | |
2674 } | |
2675 | |
771 | 2676 XText (f->display.x->icon_desc, 5, 5, string, |
286 | 2677 str->size, icon_font_info->id, |
2678 BLACK_PIX_DEFAULT, WHITE_PIX_DEFAULT); | |
2679 } | |
2680 XFlushQueue (); | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2681 #endif /* ! defined (HAVE_X11) */ |
286 | 2682 } |
2683 | |
771 | 2684 /* Make the x-window of frame F use the kitchen-sink icon |
286 | 2685 that's a window generated by Emacs. */ |
2686 | |
2687 int | |
771 | 2688 x_bitmap_icon (f) |
2689 struct frame *f; | |
286 | 2690 { |
2691 int mask; | |
2692 Window icon_window; | |
2693 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2694 if (FRAME_X_WINDOW (f) == 0) |
286 | 2695 return 1; |
2696 | |
2697 #ifdef HAVE_X11 | |
2698 if (icon_bitmap) | |
2699 XFreePixmap (x_current_display, icon_bitmap); | |
2700 | |
2701 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
|
2702 XCreateBitmapFromData (x_current_display, FRAME_X_WINDOW (f), |
286 | 2703 gnu_bits, gnu_width, gnu_height); |
771 | 2704 x_wm_set_icon_pixmap (f, icon_bitmap); |
2705 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
|
2706 #else /* ! defined (HAVE_X11) */ |
771 | 2707 if (f->display.x->icon_desc) |
286 | 2708 { |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2709 XClearIconWindow (FRAME_X_WINDOW (f)); |
771 | 2710 XDestroyWindow (f->display.x->icon_desc); |
286 | 2711 } |
2712 | |
771 | 2713 icon_window = XCreateWindow (f->display.x->parent_desc, |
286 | 2714 0, 0, sink_width, sink_height, |
2715 2, WhitePixmap, (Pixmap) NULL); | |
2716 | |
2717 if (icon_window == 0) | |
2718 return 1; | |
2719 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2720 XSetIconWindow (FRAME_X_WINDOW (f), icon_window); |
286 | 2721 XSelectInput (icon_window, ExposeWindow | UnmapWindow); |
2722 | |
771 | 2723 f->display.x->icon_desc = icon_window; |
2724 f->display.x->icon_bitmap_flag = 1; | |
286 | 2725 |
2726 if (icon_bitmap == 0) | |
2727 icon_bitmap | |
2728 = 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
|
2729 #endif /* ! defined (HAVE_X11) */ |
286 | 2730 |
2731 return 0; | |
2732 } | |
2733 | |
2734 | |
771 | 2735 /* Make the x-window of frame F use a rectangle with text. */ |
286 | 2736 |
2737 int | |
771 | 2738 x_text_icon (f, icon_name) |
2739 struct frame *f; | |
286 | 2740 char *icon_name; |
2741 { | |
2742 #ifndef HAVE_X11 | |
2743 int mask; | |
2744 int width; | |
2745 Window icon_window; | |
2746 char *X_DefaultValue; | |
2747 Bitmap b1; | |
2748 | |
2749 #ifndef WhitePixel | |
2750 #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
|
2751 #endif /* WhitePixel */ |
286 | 2752 |
2753 #ifndef BlackPixel | |
2754 #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
|
2755 #endif /* BlackPixel */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2756 #endif /* HAVE_X11 */ |
286 | 2757 |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2758 if (FRAME_X_WINDOW (f) == 0) |
286 | 2759 return 1; |
2760 | |
2761 if (icon_font_info == 0) | |
2762 icon_font_info | |
395 | 2763 = XGetFont (XGetDefault (XDISPLAY |
2764 (char *) XSTRING (invocation_name)->data, | |
2765 "BodyFont")); | |
286 | 2766 |
2767 #ifdef HAVE_X11 | |
2768 if (icon_name) | |
771 | 2769 f->display.x->icon_label = icon_name; |
286 | 2770 else |
771 | 2771 if (! f->display.x->icon_label) |
2772 f->display.x->icon_label = " *emacs* "; | |
286 | 2773 |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2774 XSetIconName (x_current_display, FRAME_X_WINDOW (f), |
771 | 2775 (char *) f->display.x->icon_label); |
286 | 2776 |
771 | 2777 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
|
2778 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
|
2779 #else /* ! defined (HAVE_X11) */ |
771 | 2780 if (f->display.x->icon_desc) |
286 | 2781 { |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2782 XClearIconWindow (XDISPLAY FRAME_X_WINDOW (f)); |
771 | 2783 XDestroyWindow (XDISPLAY f->display.x->icon_desc); |
286 | 2784 } |
2785 | |
2786 if (icon_name) | |
771 | 2787 f->display.x->icon_label = (unsigned char *) icon_name; |
286 | 2788 else |
771 | 2789 if (! f->display.x->icon_label) |
2790 f->display.x->icon_label = XSTRING (f->name)->data; | |
2791 | |
2792 width = XStringWidth (f->display.x->icon_label, icon_font_info, 0, 0); | |
2793 icon_window = XCreateWindow (f->display.x->parent_desc, | |
2794 f->display.x->left_pos, | |
2795 f->display.x->top_pos, | |
286 | 2796 width + 10, icon_font_info->height + 10, |
2797 2, BlackPixmap, WhitePixmap); | |
2798 | |
2799 if (icon_window == 0) | |
2800 return 1; | |
2801 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2802 XSetIconWindow (FRAME_X_WINDOW (f), icon_window); |
286 | 2803 XSelectInput (icon_window, ExposeWindow | ExposeRegion | UnmapWindow | ButtonPressed); |
2804 | |
771 | 2805 f->display.x->icon_desc = icon_window; |
2806 f->display.x->icon_bitmap_flag = 0; | |
2807 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
|
2808 #endif /* ! defined (HAVE_X11) */ |
286 | 2809 |
2810 return 0; | |
2811 } | |
2812 | |
621 | 2813 /* Handling X errors. */ |
2814 | |
2815 /* 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
|
2816 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
|
2817 |
621 | 2818 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
|
2819 x_connection_closed () |
621 | 2820 { |
2821 if (_Xdebug) | |
2822 abort (); | |
2823 else | |
2824 Fkill_emacs (make_number (70)); | |
2825 } | |
2826 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2827 /* 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
|
2828 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
|
2829 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
|
2830 static int |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2831 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
|
2832 Display *display; |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2833 XErrorEvent *error; |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2834 { |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2835 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
|
2836 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2837 /* 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
|
2838 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
|
2839 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2840 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
|
2841 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
|
2842 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
|
2843 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2844 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
|
2845 } |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2846 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2847 /* 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
|
2848 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
|
2849 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2850 /* 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
|
2851 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
|
2852 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
|
2853 static int |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2854 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
|
2855 Display *display; |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2856 XErrorEvent *error; |
286 | 2857 { |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2858 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
|
2859 *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
|
2860 } |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2861 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2862 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2863 /* 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
|
2864 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2865 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
|
2866 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
|
2867 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2868 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
|
2869 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
|
2870 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2871 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
|
2872 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2873 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
|
2874 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2875 void |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2876 x_catch_errors () |
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 /* 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
|
2879 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
|
2880 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2881 /* 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
|
2882 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
|
2883 (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
|
2884 (*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
|
2885 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2886 /* 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
|
2887 XHandleError (x_error_catcher); |
286 | 2888 } |
2889 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2890 /* 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
|
2891 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
|
2892 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
|
2893 void |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2894 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
|
2895 char *format; |
286 | 2896 { |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2897 /* 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
|
2898 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
|
2899 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2900 if ((*x_caught_error_message)[0]) |
286 | 2901 { |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2902 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
|
2903 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2904 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
|
2905 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
|
2906 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2907 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
|
2908 error (buf); |
286 | 2909 } |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2910 } |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2911 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2912 void |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2913 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
|
2914 { |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2915 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
|
2916 XHandleError (x_error_quitter); |
286 | 2917 } |
2918 | |
2919 #if 0 | |
2920 static unsigned int x_wire_count; | |
2921 x_trace_wire () | |
2922 { | |
2923 fprintf (stderr, "Lib call: %d\n", ++x_wire_count); | |
2924 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
2925 #endif /* ! 0 */ |
286 | 2926 |
2927 | |
771 | 2928 /* Set the font of the x-window specified by frame F |
286 | 2929 to the font named NEWNAME. This is safe to use |
771 | 2930 even before F has an actual x-window. */ |
286 | 2931 |
2932 #ifdef HAVE_X11 | |
2933 | |
2934 /* A table of all the fonts we have already loaded. */ | |
2935 static XFontStruct **x_font_table; | |
2936 | |
2937 /* The current capacity of x_font_table. */ | |
2938 static int x_font_table_size; | |
2939 | |
2940 /* The number of fonts actually stored in x_font_table. | |
2941 x_font_table[n] is used and valid iff 0 <= n < n_fonts. | |
2942 0 <= n_fonts <= x_font_table_size. */ | |
2943 static int n_fonts; | |
2944 | |
771 | 2945 x_new_font (f, fontname) |
2946 struct frame *f; | |
286 | 2947 register char *fontname; |
2948 { | |
2949 XFontStruct *temp; | |
2950 int already_loaded; | |
2951 int n_matching_fonts; | |
2952 XFontStruct *font_info; | |
2953 char **font_names; | |
2954 | |
2955 /* Get a list of all the fonts that match this name. Once we | |
2956 have a list of matching fonts, we compare them against the fonts | |
2957 we already have by comparing font ids. */ | |
2958 font_names = (char **) XListFontsWithInfo (x_current_display, fontname, | |
2959 1024, &n_matching_fonts, | |
2960 &font_info); | |
2961 /* If the server couldn't find any fonts whose named matched fontname, | |
2962 return an error code. */ | |
2963 if (n_matching_fonts == 0) | |
2964 return 1; | |
2965 | |
429 | 2966 /* See if we've already loaded a matching font. */ |
286 | 2967 { |
2968 int i, j; | |
2969 | |
2970 already_loaded = 0; | |
2971 for (i = 0; i < n_fonts; i++) | |
2972 for (j = 0; j < n_matching_fonts; j++) | |
2973 if (x_font_table[i]->fid == font_info[j].fid) | |
2974 { | |
2975 already_loaded = i; | |
2976 goto found_font; | |
2977 } | |
2978 } | |
2979 found_font: | |
2980 | |
2981 /* If we have, just return it from the table. */ | |
2982 if (already_loaded) | |
771 | 2983 f->display.x->font = x_font_table[already_loaded]; |
429 | 2984 |
286 | 2985 /* Otherwise, load the font and add it to the table. */ |
2986 else | |
2987 { | |
2988 XFontStruct *font; | |
2989 | |
2990 font = (XFontStruct *) XLoadQueryFont (x_current_display, fontname); | |
2991 if (! font) | |
2992 return 1; | |
2993 | |
2994 /* Do we need to create the table? */ | |
2995 if (x_font_table_size == 0) | |
2996 { | |
2997 x_font_table_size = 16; | |
2998 x_font_table | |
2999 = (XFontStruct **) xmalloc (x_font_table_size | |
3000 * sizeof (x_font_table[0])); | |
3001 } | |
3002 /* Do we need to grow the table? */ | |
3003 else if (n_fonts >= x_font_table_size) | |
3004 { | |
429 | 3005 x_font_table_size *= 2; |
286 | 3006 x_font_table |
3007 = (XFontStruct **) xrealloc (x_font_table, | |
3008 (x_font_table_size | |
3009 * sizeof (x_font_table[0]))); | |
3010 } | |
3011 | |
771 | 3012 f->display.x->font = x_font_table[n_fonts++] = font; |
286 | 3013 } |
3014 | |
3015 /* Free the information from XListFontsWithInfo. The data | |
3016 we actually retain comes from XLoadQueryFont. */ | |
3017 XFreeFontInfo (font_names, font_info, n_matching_fonts); | |
3018 | |
771 | 3019 /* 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
|
3020 if (FRAME_X_WINDOW (f) != 0) |
286 | 3021 { |
771 | 3022 XSetFont (x_current_display, f->display.x->normal_gc, |
3023 f->display.x->font->fid); | |
3024 XSetFont (x_current_display, f->display.x->reverse_gc, | |
3025 f->display.x->font->fid); | |
3026 XSetFont (x_current_display, f->display.x->cursor_gc, | |
3027 f->display.x->font->fid); | |
3028 | |
3029 x_set_window_size (f, f->width, f->height); | |
286 | 3030 } |
3031 | |
3032 return 0; | |
3033 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3034 #else /* ! defined (HAVE_X11) */ |
771 | 3035 x_new_font (f, newname) |
3036 struct frame *f; | |
286 | 3037 register char *newname; |
3038 { | |
3039 FONT_TYPE *temp; | |
3040 int mask; | |
3041 | |
3042 temp = XGetFont (newname); | |
3043 if (temp == (FONT_TYPE *) 0) | |
3044 return 1; | |
3045 | |
771 | 3046 if (f->display.x->font) |
3047 XLoseFont (f->display.x->font); | |
3048 | |
3049 f->display.x->font = temp; | |
3050 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3051 if (FRAME_X_WINDOW (f) != 0) |
771 | 3052 x_set_window_size (f, f->width, f->height); |
286 | 3053 |
3054 return 0; | |
3055 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3056 #endif /* ! defined (HAVE_X11) */ |
286 | 3057 |
771 | 3058 x_calc_absolute_position (f) |
3059 struct frame *f; | |
286 | 3060 { |
3061 #ifdef HAVE_X11 | |
771 | 3062 if (f->display.x->left_pos < 0) |
3063 f->display.x->left_pos | |
786 | 3064 = XINT (x_screen_width) - PIXEL_WIDTH (f) + f->display.x->left_pos; |
771 | 3065 |
3066 if (f->display.x->top_pos < 0) | |
3067 f->display.x->top_pos | |
786 | 3068 = 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
|
3069 #else /* ! defined (HAVE_X11) */ |
286 | 3070 WINDOWINFO_TYPE parentinfo; |
3071 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3072 XGetWindowInfo (FRAME_X_WINDOW (f), &parentinfo); |
771 | 3073 |
3074 if (f->display.x->left_pos < 0) | |
3075 f->display.x->left_pos = parentinfo.width + (f->display.x->left_pos + 1) | |
3076 - PIXEL_WIDTH (f) - 2 * f->display.x->internal_border_width; | |
3077 | |
3078 if (f->display.x->top_pos < 0) | |
3079 f->display.x->top_pos = parentinfo.height + (f->display.x->top_pos + 1) | |
3080 - 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
|
3081 #endif /* ! defined (HAVE_X11) */ |
286 | 3082 } |
3083 | |
771 | 3084 x_set_offset (f, xoff, yoff) |
3085 struct frame *f; | |
286 | 3086 register int xoff, yoff; |
3087 { | |
771 | 3088 f->display.x->top_pos = yoff; |
3089 f->display.x->left_pos = xoff; | |
3090 x_calc_absolute_position (f); | |
286 | 3091 |
3092 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
|
3093 XMoveWindow (XDISPLAY FRAME_X_WINDOW (f), |
771 | 3094 f->display.x->left_pos, f->display.x->top_pos); |
286 | 3095 #ifdef HAVE_X11 |
771 | 3096 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
|
3097 #endif /* ! defined (HAVE_X11) */ |
286 | 3098 UNBLOCK_INPUT; |
3099 } | |
3100 | |
771 | 3101 /* Call this to change the size of frame F's x-window. */ |
3102 | |
3103 x_set_window_size (f, cols, rows) | |
3104 struct frame *f; | |
976
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3105 int cols, rows; |
286 | 3106 { |
3107 int pixelwidth, pixelheight; | |
3108 int mask; | |
771 | 3109 int ibw = f->display.x->internal_border_width; |
286 | 3110 |
3111 BLOCK_INPUT; | |
3112 | |
976
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3113 check_frame_size (f, &rows, &cols); |
771 | 3114 pixelwidth = (cols * FONT_WIDTH (f->display.x->font) + 2 * ibw |
3115 + f->display.x->v_scrollbar_width); | |
3116 pixelheight = (rows * FONT_HEIGHT (f->display.x->font) + 2 * ibw | |
3117 + f->display.x->h_scrollbar_height); | |
286 | 3118 |
3119 #ifdef HAVE_X11 | |
771 | 3120 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
|
3121 #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
|
3122 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
|
3123 |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3124 /* 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
|
3125 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
|
3126 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
|
3127 ConfigureNotify event gets here. */ |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3128 FRAME_WIDTH (f) = cols; |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3129 FRAME_WIDTH (f) = rows; |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3130 PIXEL_WIDTH (f) = pixelwidth; |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3131 PIXEL_HEIGHT (f) = pixelheight; |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3132 |
286 | 3133 XFlushQueue (); |
3134 UNBLOCK_INPUT; | |
3135 } | |
3136 | |
3137 #ifndef HAVE_X11 | |
771 | 3138 x_set_resize_hint (f) |
3139 struct frame *f; | |
286 | 3140 { |
3141 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3142 XSetResizeHint (FRAME_X_WINDOW (f), 2 * f->display.x->internal_border_width, |
771 | 3143 2 * f->display.x->internal_border_width, |
3144 FONT_WIDTH (f->display.x->font), FONT_HEIGHT (f->display.x->font)); | |
286 | 3145 } |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3146 #endif /* HAVE_X11 */ |
286 | 3147 |
3148 | |
771 | 3149 x_set_mouse_position (f, x, y) |
3150 struct frame *f; | |
286 | 3151 int x, y; |
3152 { | |
3153 int pix_x, pix_y; | |
3154 | |
771 | 3155 x_raise_frame (f); |
286 | 3156 |
3157 if (x < 0) | |
771 | 3158 pix_x = (FRAME_WIDTH (f) |
3159 * FONT_WIDTH (f->display.x->font) | |
3160 + 2 * f->display.x->internal_border_width | |
3161 + f->display.x->v_scrollbar_width) / 2; | |
286 | 3162 else |
771 | 3163 pix_x = x * FONT_WIDTH (f->display.x->font) + 2; /* add 2 pixels to each |
286 | 3164 dimension to move the |
3165 mouse into the char | |
3166 cell */ | |
3167 | |
3168 if (y < 0) | |
771 | 3169 pix_y = (FRAME_HEIGHT (f) |
3170 * FONT_HEIGHT (f->display.x->font) | |
3171 + 2 * f->display.x->internal_border_width | |
3172 + f->display.x->h_scrollbar_height) / 2; | |
286 | 3173 else |
771 | 3174 pix_y = y * FONT_HEIGHT (f->display.x->font) + 2; |
286 | 3175 |
3176 BLOCK_INPUT; | |
3177 x_mouse_x = x; | |
3178 x_mouse_y = y; | |
3179 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3180 XWarpMousePointer (FRAME_X_WINDOW (f), pix_x, pix_y); |
286 | 3181 UNBLOCK_INPUT; |
3182 } | |
3183 | |
3184 #ifdef HAVE_X11 | |
771 | 3185 x_focus_on_frame (f) |
3186 struct frame *f; | |
286 | 3187 { |
771 | 3188 x_raise_frame (f); |
369 | 3189 #if 0 |
3190 /* I don't think that the ICCCM allows programs to do things like this | |
3191 without the interaction of the window manager. Whatever you end up | |
771 | 3192 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
|
3193 XSetInputFocus (x_current_display, FRAME_X_WINDOW (f), |
286 | 3194 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
|
3195 #endif /* ! 0 */ |
286 | 3196 } |
3197 | |
771 | 3198 x_unfocus_frame (f) |
3199 struct frame *f; | |
286 | 3200 { |
369 | 3201 #if 0 |
771 | 3202 /* Look at the remarks in x_focus_on_frame. */ |
3203 if (x_focus_frame == f) | |
286 | 3204 XSetInputFocus (x_current_display, PointerRoot, |
3205 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
|
3206 #endif /* ! 0 */ |
286 | 3207 } |
3208 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3209 #endif /* ! defined (HAVE_X11) */ |
286 | 3210 |
771 | 3211 /* Raise frame F. */ |
3212 | |
3213 x_raise_frame (f) | |
3214 struct frame *f; | |
286 | 3215 { |
771 | 3216 if (f->visible) |
286 | 3217 { |
3218 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
|
3219 XRaiseWindow (XDISPLAY FRAME_X_WINDOW (f)); |
286 | 3220 XFlushQueue (); |
3221 UNBLOCK_INPUT; | |
3222 } | |
3223 } | |
3224 | |
771 | 3225 /* Lower frame F. */ |
3226 | |
3227 x_lower_frame (f) | |
3228 struct frame *f; | |
286 | 3229 { |
771 | 3230 if (f->visible) |
286 | 3231 { |
3232 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
|
3233 XLowerWindow (XDISPLAY FRAME_X_WINDOW (f)); |
286 | 3234 XFlushQueue (); |
3235 UNBLOCK_INPUT; | |
3236 } | |
3237 } | |
3238 | |
3239 /* Change from withdrawn state to mapped state. */ | |
3240 | |
771 | 3241 x_make_frame_visible (f) |
3242 struct frame *f; | |
286 | 3243 { |
3244 int mask; | |
3245 | |
429 | 3246 BLOCK_INPUT; |
3247 | |
771 | 3248 if (! FRAME_VISIBLE_P (f)) |
286 | 3249 { |
3250 #ifdef HAVE_X11 | |
429 | 3251 if (! EQ (Vx_no_window_manager, Qt)) |
771 | 3252 x_wm_set_window_state (f, NormalState); |
3253 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3254 XMapWindow (XDISPLAY FRAME_X_WINDOW (f)); |
771 | 3255 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
|
3256 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
|
3257 #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
|
3258 XMapWindow (XDISPLAY FRAME_X_WINDOW (f)); |
771 | 3259 if (f->display.x->icon_desc != 0) |
3260 XUnmapWindow (f->display.x->icon_desc); | |
429 | 3261 |
3262 /* Handled by the MapNotify event for X11 */ | |
771 | 3263 f->visible = 1; |
3264 f->iconified = 0; | |
3265 | |
3266 /* NOTE: this may cause problems for the first frame. */ | |
429 | 3267 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
|
3268 #endif /* ! defined (HAVE_X11) */ |
429 | 3269 } |
286 | 3270 |
3271 XFlushQueue (); | |
429 | 3272 |
286 | 3273 UNBLOCK_INPUT; |
3274 } | |
3275 | |
3276 /* Change from mapped state to withdrawn state. */ | |
3277 | |
771 | 3278 x_make_frame_invisible (f) |
3279 struct frame *f; | |
286 | 3280 { |
3281 int mask; | |
3282 | |
771 | 3283 if (! f->visible) |
286 | 3284 return; |
3285 | |
3286 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
|
3287 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3288 #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
|
3289 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3290 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
|
3291 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
|
3292 { |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3293 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
|
3294 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
|
3295 } |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3296 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3297 #else /* ! defined (HAVE_X11R4) */ |
286 | 3298 #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
|
3299 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3300 /* Tell the window manager what we're going to do. */ |
286 | 3301 if (! EQ (Vx_no_window_manager, Qt)) |
3302 { | |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3303 XEvent unmap; |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3304 |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3305 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
|
3306 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
|
3307 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
|
3308 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
|
3309 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
|
3310 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
|
3311 False, |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3312 SubstructureRedirectMask|SubstructureNotifyMask, |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3313 &unmap)) |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3314 { |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3315 UNBLOCK_INPUT_RESIGNAL; |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3316 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
|
3317 } |
286 | 3318 } |
3319 | |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3320 /* 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
|
3321 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
|
3322 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3323 #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
|
3324 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3325 XUnmapWindow (FRAME_X_WINDOW (f)); |
771 | 3326 f->visible = 0; /* Handled by the UnMap event for X11 */ |
3327 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
|
3328 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
|
3329 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3330 #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
|
3331 #endif /* ! defined (HAVE_X11R4) */ |
286 | 3332 |
3333 XFlushQueue (); | |
3334 UNBLOCK_INPUT; | |
3335 } | |
3336 | |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3337 /* Window manager communication. Created in Fx_open_connection. */ |
286 | 3338 extern Atom Xatom_wm_change_state; |
3339 | |
3340 /* Change window state from mapped to iconified. */ | |
3341 | |
771 | 3342 x_iconify_frame (f) |
3343 struct frame *f; | |
286 | 3344 { |
3345 int mask; | |
3346 | |
771 | 3347 if (f->iconified) |
286 | 3348 return; |
3349 | |
3350 BLOCK_INPUT; | |
3351 | |
3352 #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
|
3353 /* 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
|
3354 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
|
3355 |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3356 /* 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
|
3357 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
|
3358 { |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3359 XEvent message; |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3360 |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3361 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
|
3362 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
|
3363 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
|
3364 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
|
3365 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
|
3366 |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3367 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
|
3368 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
|
3369 False, |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3370 SubstructureRedirectMask | SubstructureNotifyMask, |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3371 &message)) |
286 | 3372 { |
3373 UNBLOCK_INPUT_RESIGNAL; | |
3374 error ("Can't notify window manager of iconification."); | |
3375 } | |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3376 } |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3377 |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3378 /* 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
|
3379 IconicState. */ |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3380 x_wm_set_window_state (f, IconicState); |
286 | 3381 |
771 | 3382 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
|
3383 #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
|
3384 XUnmapWindow (XDISPLAY FRAME_X_WINDOW (f)); |
771 | 3385 |
3386 f->visible = 0; /* Handled in the UnMap event for X11. */ | |
3387 if (f->display.x->icon_desc != 0) | |
286 | 3388 { |
771 | 3389 XMapWindow (XDISPLAY f->display.x->icon_desc); |
3390 refreshicon (f); | |
286 | 3391 } |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3392 #endif /* ! defined (HAVE_X11) */ |
286 | 3393 |
3394 XFlushQueue (); | |
3395 UNBLOCK_INPUT; | |
3396 } | |
3397 | |
771 | 3398 /* Destroy the X window of frame F. |
3399 DISPL is the former f->display (since f->display | |
286 | 3400 has already been nulled out). */ |
3401 | |
771 | 3402 x_destroy_window (f, displ) |
3403 struct frame *f; | |
286 | 3404 union display displ; |
3405 { | |
3406 int mask; | |
3407 | |
3408 BLOCK_INPUT; | |
3409 if (displ.x->icon_desc != 0) | |
3410 XDestroyWindow (XDISPLAY displ.x->icon_desc); | |
3411 XDestroyWindow (XDISPLAY displ.x->window_desc); | |
3412 XFlushQueue (); | |
3413 UNBLOCK_INPUT; | |
3414 | |
3415 free (displ.x); | |
771 | 3416 if (f == x_focus_frame) |
3417 x_focus_frame = 0; | |
3418 if (f == x_highlight_frame) | |
3419 x_highlight_frame = 0; | |
286 | 3420 } |
3421 | |
3422 #ifndef HAVE_X11 | |
3423 | |
3424 /* Manage event queues. | |
3425 | |
3426 This code is only used by the X10 support. | |
3427 | |
3428 We cannot leave events in the X queue and get them when we are ready | |
3429 because X does not provide a subroutine to get only a certain kind | |
3430 of event but not block if there are no queued events of that kind. | |
3431 | |
3432 Therefore, we must examine events as they come in and copy events | |
3433 of certain kinds into our private queues. | |
3434 | |
3435 All ExposeRegion events are put in x_expose_queue. | |
3436 All ButtonPressed and ButtonReleased events are put in x_mouse_queue. */ | |
3437 | |
3438 | |
3439 /* Write the event *P_XREP into the event queue *QUEUE. | |
3440 If the queue is full, do nothing, but return nonzero. */ | |
3441 | |
3442 int | |
3443 enqueue_event (p_xrep, queue) | |
3444 register XEvent *p_xrep; | |
3445 register struct event_queue *queue; | |
3446 { | |
3447 int newindex = queue->windex + 1; | |
3448 if (newindex == EVENT_BUFFER_SIZE) | |
3449 newindex = 0; | |
3450 if (newindex == queue->rindex) | |
3451 return -1; | |
3452 queue->xrep[queue->windex] = *p_xrep; | |
3453 queue->windex = newindex; | |
3454 return 0; | |
3455 } | |
3456 | |
3457 /* Fetch the next event from queue *QUEUE and store it in *P_XREP. | |
3458 If *QUEUE is empty, do nothing and return 0. */ | |
3459 | |
3460 int | |
3461 dequeue_event (p_xrep, queue) | |
3462 register XEvent *p_xrep; | |
3463 register struct event_queue *queue; | |
3464 { | |
3465 if (queue->windex == queue->rindex) | |
3466 return 0; | |
3467 *p_xrep = queue->xrep[queue->rindex++]; | |
3468 if (queue->rindex == EVENT_BUFFER_SIZE) | |
3469 queue->rindex = 0; | |
3470 return 1; | |
3471 } | |
3472 | |
3473 /* Return the number of events buffered in *QUEUE. */ | |
3474 | |
3475 int | |
3476 queue_event_count (queue) | |
3477 register struct event_queue *queue; | |
3478 { | |
3479 int tem = queue->windex - queue->rindex; | |
3480 if (tem >= 0) | |
3481 return tem; | |
3482 return EVENT_BUFFER_SIZE + tem; | |
3483 } | |
3484 | |
3485 /* Return nonzero if mouse input is pending. */ | |
3486 | |
3487 int | |
3488 mouse_event_pending_p () | |
3489 { | |
3490 return queue_event_count (&x_mouse_queue); | |
3491 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3492 #endif /* HAVE_X11 */ |
286 | 3493 |
3494 #ifdef HAVE_X11 | |
3495 | |
771 | 3496 x_wm_set_size_hint (f, prompting) |
3497 struct frame *f; | |
286 | 3498 long prompting; |
3499 { | |
3500 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
|
3501 Window window = FRAME_X_WINDOW (f); |
286 | 3502 |
3503 size_hints.flags = PResizeInc | PMinSize | PMaxSize; | |
3504 | |
771 | 3505 flexlines = f->height; |
3506 | |
3507 size_hints.x = f->display.x->left_pos; | |
3508 size_hints.y = f->display.x->top_pos; | |
3509 size_hints.height = PIXEL_HEIGHT (f); | |
3510 size_hints.width = PIXEL_WIDTH (f); | |
3511 size_hints.width_inc = FONT_WIDTH (f->display.x->font); | |
3512 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
|
3513 size_hints.max_width = |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3514 (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
|
3515 + f->display.x->v_scrollbar_width)); |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3516 size_hints.max_height = |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3517 (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
|
3518 + f->display.x->h_scrollbar_height)); |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3519 { |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3520 int min_rows = 0, min_cols = 0; |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3521 check_frame_size (f, &min_rows, &min_cols); |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3522 size_hints.min_width = ((2 * f->display.x->internal_border_width) |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3523 + min_cols * size_hints.width_inc |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3524 + f->display.x->v_scrollbar_width); |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3525 size_hints.min_height = ((2 * f->display.x->internal_border_width) |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3526 + min_rows * size_hints.height_inc |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3527 + f->display.x->h_scrollbar_height); |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3528 |
976
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
3529 } |
286 | 3530 |
3531 if (prompting) | |
3532 size_hints.flags |= prompting; | |
3533 else | |
3534 { | |
3535 XSizeHints hints; /* Sometimes I hate X Windows... */ | |
3536 | |
3537 XGetNormalHints (x_current_display, window, &hints); | |
3538 if (hints.flags & PSize) | |
3539 size_hints.flags |= PSize; | |
3540 if (hints.flags & PPosition) | |
3541 size_hints.flags |= PPosition; | |
3542 if (hints.flags & USPosition) | |
3543 size_hints.flags |= USPosition; | |
3544 if (hints.flags & USSize) | |
3545 size_hints.flags |= USSize; | |
3546 } | |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3547 |
286 | 3548 XSetNormalHints (x_current_display, window, &size_hints); |
3549 } | |
3550 | |
3551 /* Used for IconicState or NormalState */ | |
771 | 3552 x_wm_set_window_state (f, state) |
3553 struct frame *f; | |
286 | 3554 int state; |
3555 { | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3556 Window window = FRAME_X_WINDOW (f); |
286 | 3557 |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3558 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
|
3559 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
|
3560 |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3561 XSetWMHints (x_current_display, window, &f->display.x->wm_hints); |
286 | 3562 } |
3563 | |
771 | 3564 x_wm_set_icon_pixmap (f, icon_pixmap) |
3565 struct frame *f; | |
286 | 3566 Pixmap icon_pixmap; |
3567 { | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3568 Window window = FRAME_X_WINDOW (f); |
286 | 3569 |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3570 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
|
3571 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
|
3572 |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3573 XSetWMHints (x_current_display, window, &f->display.x->wm_hints); |
286 | 3574 } |
3575 | |
771 | 3576 x_wm_set_icon_position (f, icon_x, icon_y) |
3577 struct frame *f; | |
286 | 3578 int icon_x, icon_y; |
3579 { | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3580 Window window = FRAME_X_WINDOW (f); |
286 | 3581 |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3582 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
|
3583 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
|
3584 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
|
3585 |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3586 XSetWMHints (x_current_display, window, &f->display.x->wm_hints); |
286 | 3587 } |
3588 | |
3589 | |
3590 void | |
3591 x_term_init (display_name) | |
3592 char *display_name; | |
3593 { | |
771 | 3594 Lisp_Object frame; |
286 | 3595 char *defaultvalue; |
3596 #ifdef F_SETOWN | |
3597 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
|
3598 #endif /* ! defined (F_SETOWN) */ |
369 | 3599 |
771 | 3600 x_focus_frame = x_highlight_frame = 0; |
286 | 3601 |
3602 x_current_display = XOpenDisplay (display_name); | |
3603 if (x_current_display == 0) | |
3604 fatal ("X server %s not responding; check the DISPLAY environment variable or use \"-d\"\n", | |
3605 display_name); | |
3606 | |
3607 #ifdef HAVE_X11 | |
3608 { | |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
3609 int hostname_size = 256; |
398 | 3610 |
3611 hostname = (char *) xmalloc (hostname_size); | |
3612 | |
286 | 3613 #if 0 |
3614 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
|
3615 #endif /* ! 0 */ |
286 | 3616 |
395 | 3617 invocation_name = Ffile_name_nondirectory (Fcar (Vcommand_line_args)); |
398 | 3618 |
3619 /* Try to get the host name; if the buffer is too short, try | |
3620 again. Apparently, the only indication gethostname gives of | |
3621 whether the buffer was large enough is the presence or absence | |
3622 of a '\0' in the string. Eech. */ | |
3623 for (;;) | |
3624 { | |
3625 gethostname (hostname, hostname_size - 1); | |
3626 hostname[hostname_size - 1] = '\0'; | |
3627 | |
3628 /* Was the buffer large enough for gethostname to store the '\0'? */ | |
3629 if (strlen (hostname) < hostname_size - 1) | |
3630 break; | |
3631 | |
3632 hostname_size <<= 1; | |
3633 hostname = (char *) xrealloc (hostname, hostname_size); | |
3634 } | |
3635 x_id_name = (char *) xmalloc (XSTRING (invocation_name)->size | |
3636 + strlen (hostname) | |
3637 + 2); | |
3638 sprintf (x_id_name, "%s@%s", XSTRING (invocation_name)->data, hostname); | |
286 | 3639 } |
3640 | |
3641 dup2 (ConnectionNumber (x_current_display), 0); | |
369 | 3642 |
3643 #ifndef SYSV_STREAMS | |
3644 /* Streams somehow keeps track of which descriptor number | |
3645 is being used to talk to X. So it is not safe to substitute | |
3646 descriptor 0. But it is safe to make descriptor 0 a copy of it. */ | |
286 | 3647 close (ConnectionNumber (x_current_display)); |
369 | 3648 ConnectionNumber (x_current_display) = 0; /* Looks a little strange? |
3649 * check the def of the macro; | |
3650 * 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
|
3651 #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
|
3652 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3653 #endif /* ! defined (HAVE_X11) */ |
286 | 3654 |
3655 #ifdef F_SETOWN | |
3656 old_fcntl_owner = fcntl (0, F_GETOWN, 0); | |
3657 #ifdef F_SETOWN_SOCK_NEG | |
3658 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
|
3659 #else /* ! defined (F_SETOWN_SOCK_NEG) */ |
286 | 3660 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
|
3661 #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
|
3662 #endif /* ! defined (F_SETOWN) */ |
286 | 3663 |
3664 #ifdef SIGIO | |
3665 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
|
3666 #endif /* ! defined (SIGIO) */ |
286 | 3667 |
3668 /* Must use interrupt input because we cannot otherwise | |
3669 arrange for C-g to be noticed immediately. | |
3670 We cannot connect it to SIGINT. */ | |
3671 Fset_input_mode (Qt, Qnil, Qt, Qnil); | |
3672 | |
3673 expose_all_windows = 0; | |
3674 | |
771 | 3675 clear_frame_hook = XTclear_frame; |
286 | 3676 clear_end_of_line_hook = XTclear_end_of_line; |
3677 ins_del_lines_hook = XTins_del_lines; | |
3678 change_line_highlight_hook = XTchange_line_highlight; | |
3679 insert_glyphs_hook = XTinsert_glyphs; | |
3680 write_glyphs_hook = XTwrite_glyphs; | |
3681 delete_glyphs_hook = XTdelete_glyphs; | |
3682 ring_bell_hook = XTring_bell; | |
3683 reset_terminal_modes_hook = XTreset_terminal_modes; | |
3684 set_terminal_modes_hook = XTset_terminal_modes; | |
3685 update_begin_hook = XTupdate_begin; | |
3686 update_end_hook = XTupdate_end; | |
3687 set_terminal_window_hook = XTset_terminal_window; | |
3688 read_socket_hook = XTread_socket; | |
3689 cursor_to_hook = XTcursor_to; | |
3690 reassert_line_highlight_hook = XTreassert_line_highlight; | |
771 | 3691 frame_rehighlight_hook = XTframe_rehighlight; |
429 | 3692 mouse_position_hook = XTmouse_position; |
286 | 3693 |
771 | 3694 scroll_region_ok = 1; /* we'll scroll partial frames */ |
286 | 3695 char_ins_del_ok = 0; /* just as fast to write the line */ |
3696 line_ins_del_ok = 1; /* we'll just blt 'em */ | |
3697 fast_clear_end_of_line = 1; /* X does this well */ | |
771 | 3698 memory_below_frame = 0; /* we don't remember what scrolls |
286 | 3699 off the bottom */ |
3700 baud_rate = 19200; | |
3701 | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3702 /* 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
|
3703 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
|
3704 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
|
3705 XHandleIOError (x_error_quitter); |
286 | 3706 |
3707 /* Disable Window Change signals; they are handled by X events. */ | |
3708 #ifdef SIGWINCH | |
3709 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
|
3710 #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
|
3711 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3712 signal (SIGPIPE, x_connection_closed); |
286 | 3713 } |
395 | 3714 |
3715 void | |
3716 syms_of_xterm () | |
3717 { | |
3718 staticpro (&invocation_name); | |
3719 invocation_name = Qnil; | |
3720 } | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3721 #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
|
3722 #endif /* ! defined (HAVE_X_WINDOWS) */ |