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