annotate src/event-Xt.c @ 980:2ec85ed291da

[xemacs-hg @ 2002-08-30 08:05:30 by youngs] 2002-08-29 Jerry James <james@xemacs.org> * lisp.h: structrures -> structures.
author youngs
date Fri, 30 Aug 2002 08:05:32 +0000
parents 8401dcd2d43a
children 5323022ae863
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 /* The event_stream interface for X11 with Xt, and/or tty frames.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2 Copyright (C) 1991-5, 1997 Free Software Foundation, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3 Copyright (C) 1995 Sun Microsystems, Inc.
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4 Copyright (C) 1996, 2001, 2002 Ben Wing.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6 This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8 XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 under the terms of the GNU General Public License as published by the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 Free Software Foundation; either version 2, or (at your option) any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11 later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13 XEmacs is distributed in the hope that it will be useful, but WITHOUT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16 for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18 You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 along with XEmacs; see the file COPYING. If not, write to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21 Boston, MA 02111-1307, USA. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23 /* Synched up with: Not in FSF. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25 #include <config.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26 #include "lisp.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
28 #include "blocktype.h"
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
29 #include "charset.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30 #include "console.h"
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
31 #include "device-impl.h"
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
32 #include "elhash.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33 #include "events.h"
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
34 #include "file-coding.h"
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
35 #include "frame-impl.h"
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
36 #include "glyphs.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
37 #include "lstream.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38 #include "process.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 #include "redisplay.h"
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
40 #include "window.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
41
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
42 #include "console-tty.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
43
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
44 #include "console-x-impl.h"
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
45 #include "objects-x.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
46 #include "../lwlib/lwlib.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
47 #include "EmacsFrame.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
48
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
49 #include "sysproc.h" /* for MAXDESC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 #include "systime.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52 #include "xintrinsicp.h" /* CoreP.h needs this */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53 #include <X11/CoreP.h> /* Numerous places access the fields of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54 a core widget directly. We could
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55 use XtGetValues(), but ... */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56 #include <X11/ShellP.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
58 #if defined (HAVE_XIM) && defined (XIM_MOTIF)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59 #include <Xm/Xm.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 #ifdef HAVE_DRAGNDROP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63 #include "dragdrop.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 #if defined (HAVE_OFFIX_DND)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67 #include "offix.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 static void handle_focus_event_1 (struct frame *f, int in_p);
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
71 static void handle_focus_event_2 (Window w, struct frame *f, int in_p);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 static struct event_stream *Xt_event_stream;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75 /* With the new event model, all events go through XtDispatchEvent()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 and are picked up by an event handler that is added to each frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77 widget. (This is how it's supposed to be.) In the old method,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78 Emacs sucks out events directly from XtNextEvent() and only
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79 dispatches the events that it doesn't need to deal with. This
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 old way has lots of corresponding junk that is no longer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 necessary: lwlib extensions, synthetic XAnyEvents, unnecessary
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 magic events, etc. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 /* The one and only one application context that Emacs uses. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85 XtAppContext Xt_app_con;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 /* Do we accept events sent by other clients? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88 int x_allow_sendevents;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90 #ifdef DEBUG_XEMACS
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 452
diff changeset
91 Fixnum debug_x_events;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94 static int process_events_occurred;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95 static int tty_events_occurred;
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
96 static Widget widget_with_focus;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98 /* Mask of bits indicating the descriptors that we wait for input on */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 extern SELECT_TYPE input_wait_mask, process_only_mask, tty_only_mask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
101 static const String x_fallback_resources[] =
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
102 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
103 /* This file is automatically generated from the app-defaults file
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104 in ../etc/Emacs.ad. These resources are consulted only if no
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
105 app-defaults file is found at all.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
106 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107 #include <Emacs.ad.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
108 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
109 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111 static Lisp_Object x_keysym_to_emacs_keysym (KeySym keysym, int simple_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 void emacs_Xt_mapping_action (Widget w, XEvent *event);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
113 void debug_process_finalization (Lisp_Process *p);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114 void emacs_Xt_event_handler (Widget wid, XtPointer closure, XEvent *event,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115 Boolean *continue_to_dispatch);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 static int last_quit_check_signal_tick_count;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119 Lisp_Object Qkey_mapping;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120 Lisp_Object Qsans_modifiers;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 /* keymap handling */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
126
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
127 /* X bogusly doesn't define the interpretations of any bits besides
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
128 ModControl, ModShift, and ModLock; so the Interclient Communication
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129 Conventions Manual says that we have to bend over backwards to figure
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130 out what the other modifier bits mean. According to ICCCM:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
131
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
132 - Any keycode which is assigned ModControl is a "control" key.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
133
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
134 - Any modifier bit which is assigned to a keycode which generates Meta_L
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
135 or Meta_R is the modifier bit meaning "meta". Likewise for Super, Hyper,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
136 etc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
137
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
138 - Any keypress event which contains ModControl in its state should be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
139 interpreted as a "control" character.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
140
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
141 - Any keypress event which contains a modifier bit in its state which is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
142 generated by a keycode whose corresponding keysym is Meta_L or Meta_R
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143 should be interpreted as a "meta" character. Likewise for Super, Hyper,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144 etc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
146 - It is illegal for a keysym to be associated with more than one modifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147 bit.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149 This means that the only thing that emacs can reasonably interpret as a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150 "meta" key is a key whose keysym is Meta_L or Meta_R, and which generates
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151 one of the modifier bits Mod1-Mod5.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 Unfortunately, many keyboards don't have Meta keys in their default
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
154 configuration. So, if there are no Meta keys, but there are "Alt" keys,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
155 emacs will interpret Alt as Meta. If there are both Meta and Alt keys,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
156 then the Meta keys mean "Meta", and the Alt keys mean "Alt" (it used to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
157 mean "Symbol," but that just confused the hell out of way too many people).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
158
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159 This works with the default configurations of the 19 keyboard-types I've
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
160 checked.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
161
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
162 Emacs detects keyboard configurations which violate the above rules, and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163 prints an error message on the standard-error-output. (Perhaps it should
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164 use a pop-up-window instead.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
167 /* For every key on the keyboard that has a known character correspondence,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
168 we define the ascii-character property of the keysym, and make the
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
169 default binding for the key be self-insert-command.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
170
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
171 The following magic is basically intimate knowledge of X11/keysymdef.h.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
172 The keysym mappings defined by X11 are based on the iso8859 standards,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
173 except for Cyrillic and Greek.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
174
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
175 In a non-Mule world, a user can still have a multi-lingual editor, by doing
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
176 (set-face-font "...-iso8859-2" (current-buffer))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
177 for all their Latin-2 buffers, etc. */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
178
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
179 static Lisp_Object
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
180 x_keysym_to_character (KeySym keysym)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
181 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
182 #ifdef MULE
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
183 Lisp_Object charset = Qzero;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
184 #define USE_CHARSET(var,cs) \
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 801
diff changeset
185 ((var) = charset_by_leading_byte (LEADING_BYTE_##cs))
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
186 #else
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
187 #define USE_CHARSET(var,lb)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
188 #endif /* MULE */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
189 int code = 0;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
190
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
191 if ((keysym & 0xff) < 0xa0)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
192 return Qnil;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
193
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
194 switch (keysym >> 8)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
195 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
196 case 0: /* ASCII + Latin1 */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
197 USE_CHARSET (charset, LATIN_ISO8859_1);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
198 code = keysym & 0x7f;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
199 break;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
200 case 1: /* Latin2 */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
201 USE_CHARSET (charset, LATIN_ISO8859_2);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
202 code = keysym & 0x7f;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
203 break;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
204 case 2: /* Latin3 */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
205 USE_CHARSET (charset, LATIN_ISO8859_3);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
206 code = keysym & 0x7f;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
207 break;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
208 case 3: /* Latin4 */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
209 USE_CHARSET (charset, LATIN_ISO8859_4);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
210 code = keysym & 0x7f;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
211 break;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
212 case 4: /* Katakana */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
213 USE_CHARSET (charset, KATAKANA_JISX0201);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
214 if ((keysym & 0xff) > 0xa0)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
215 code = keysym & 0x7f;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
216 break;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
217 case 5: /* Arabic */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
218 USE_CHARSET (charset, ARABIC_ISO8859_6);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
219 code = keysym & 0x7f;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
220 break;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
221 case 6: /* Cyrillic */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
222 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
223 static unsigned char const cyrillic[] = /* 0x20 - 0x7f */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
224 {0x00, 0x72, 0x73, 0x71, 0x74, 0x75, 0x76, 0x77,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
225 0x78, 0x79, 0x7a, 0x7b, 0x7c, 0x00, 0x7e, 0x7f,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
226 0x70, 0x22, 0x23, 0x21, 0x24, 0x25, 0x26, 0x27,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
227 0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x00, 0x2e, 0x2f,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
228 0x6e, 0x50, 0x51, 0x66, 0x54, 0x55, 0x64, 0x53,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
229 0x65, 0x58, 0x59, 0x5a, 0x5b, 0x5c, 0x5d, 0x5e,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
230 0x5f, 0x6f, 0x60, 0x61, 0x62, 0x63, 0x56, 0x52,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
231 0x6c, 0x6b, 0x57, 0x68, 0x6d, 0x69, 0x67, 0x6a,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
232 0x4e, 0x30, 0x31, 0x46, 0x34, 0x35, 0x44, 0x33,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
233 0x45, 0x38, 0x39, 0x3a, 0x3b, 0x3c, 0x3d, 0x3e,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
234 0x3f, 0x4f, 0x40, 0x41, 0x42, 0x43, 0x36, 0x32,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
235 0x4c, 0x4b, 0x37, 0x48, 0x4d, 0x49, 0x47, 0x4a};
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
236 USE_CHARSET (charset, CYRILLIC_ISO8859_5);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
237 code = cyrillic[(keysym & 0x7f) - 0x20];
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
238 break;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
239 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
240 case 7: /* Greek */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
241 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
242 static unsigned char const greek[] = /* 0x20 - 0x7f */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
243 {0x00, 0x36, 0x38, 0x39, 0x3a, 0x5a, 0x00, 0x3c,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
244 0x3e, 0x5b, 0x00, 0x3f, 0x00, 0x00, 0x35, 0x2f,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
245 0x00, 0x5c, 0x5d, 0x5e, 0x5f, 0x7a, 0x40, 0x7c,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
246 0x7d, 0x7b, 0x60, 0x7e, 0x00, 0x00, 0x00, 0x00,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
247 0x00, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
248 0x48, 0x49, 0x4a, 0x4b, 0x4c, 0x4d, 0x4e, 0x4f,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
249 0x50, 0x51, 0x53, 0x00, 0x54, 0x55, 0x56, 0x57,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
250 0x58, 0x59, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
251 0x00, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
252 0x68, 0x69, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
253 0x70, 0x71, 0x73, 0x72, 0x74, 0x75, 0x76, 0x77,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
254 0x78, 0x79, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
255 USE_CHARSET (charset, GREEK_ISO8859_7);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
256 code = greek[(keysym & 0x7f) - 0x20];
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
257 break;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
258 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
259 case 8: /* Technical */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
260 break;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
261 case 9: /* Special */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
262 break;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
263 case 10: /* Publishing */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
264 break;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
265 case 11: /* APL */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
266 break;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
267 case 12: /* Hebrew */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
268 USE_CHARSET (charset, HEBREW_ISO8859_8);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
269 code = keysym & 0x7f;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
270 break;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
271 case 13: /* Thai */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
272 /* #### This needs to deal with character composition. */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
273 USE_CHARSET (charset, THAI_TIS620);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
274 code = keysym & 0x7f;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
275 break;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
276 case 14: /* Korean Hangul */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
277 break;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
278 case 19: /* Latin 9 - ISO8859-15 - unsupported charset. */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
279 break;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
280 case 32: /* Currency */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
281 break;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
282 default:
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
283 break;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
284 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
285
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
286 if (code == 0)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
287 return Qnil;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
288
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
289 #ifdef MULE
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
290 return make_char (make_ichar (charset, code, 0));
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
291 #else
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
292 return make_char (code + 0x80);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
293 #endif
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
294 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
295
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
296 /* #### The way that keysym correspondence to characters should work:
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
297 - a Lisp_Event should contain a keysym AND a character slot.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
298 - keybindings are tried with the keysym. If no binding can be found,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
299 and there is a corresponding character, call self-insert-command.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
300
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
301 #### Nuke x-iso8859-1.el.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
302 #### Nuke the Qascii_character property.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
303 #### Nuke Vcharacter_set_property.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
304 */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
305 static void
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
306 maybe_define_x_key_as_self_inserting_character (KeySym keysym, Lisp_Object symbol)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
307 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
308 Lisp_Object character = x_keysym_to_character (keysym);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
309
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
310 if (CHARP (character))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
311 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
312 extern Lisp_Object Vcurrent_global_map;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
313 extern Lisp_Object Qascii_character;
971
8401dcd2d43a [xemacs-hg @ 2002-08-22 11:34:20 by stephent]
stephent
parents: 960
diff changeset
314 if (NILP (Flookup_key (Vcurrent_global_map, symbol, Qnil)))
8401dcd2d43a [xemacs-hg @ 2002-08-22 11:34:20 by stephent]
stephent
parents: 960
diff changeset
315 {
8401dcd2d43a [xemacs-hg @ 2002-08-22 11:34:20 by stephent]
stephent
parents: 960
diff changeset
316 Fput (symbol, Qascii_character, character);
8401dcd2d43a [xemacs-hg @ 2002-08-22 11:34:20 by stephent]
stephent
parents: 960
diff changeset
317 Fdefine_key (Vcurrent_global_map, symbol, Qself_insert_command);
8401dcd2d43a [xemacs-hg @ 2002-08-22 11:34:20 by stephent]
stephent
parents: 960
diff changeset
318 }
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
319 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
320 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
321
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
322 static void
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
323 x_has_keysym (KeySym keysym, Lisp_Object hash_table, int with_modifiers)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
324 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
325 KeySym upper_lower[2];
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
326 int j;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
327
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
328 if (keysym < 0x80) /* Optimize for ASCII keysyms */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
329 return;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
330
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
331 /* If you execute:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
332 xmodmap -e 'keysym NN = scaron'
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
333 and then press (Shift scaron), X11 will return the different
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
334 keysym `Scaron', but `xmodmap -pke' might not even mention `Scaron'.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
335 So we "register" both `scaron' and `Scaron'. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
336 #ifdef HAVE_XCONVERTCASE
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
337 XConvertCase (keysym, &upper_lower[0], &upper_lower[1]);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
338 #else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
339 upper_lower[0] = upper_lower[1] = keysym;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
340 #endif
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
341
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
342 for (j = 0; j < (upper_lower[0] == upper_lower[1] ? 1 : 2); j++)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
343 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
344 char *name;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
345 keysym = upper_lower[j];
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
346
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
347 name = XKeysymToString (keysym);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
348 if (name)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
349 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
350 /* X guarantees NAME to be in the Host Portable Character Encoding */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
351 Lisp_Object sym = x_keysym_to_emacs_keysym (keysym, 0);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
352 Lisp_Object new_value = with_modifiers ? Qt : Qsans_modifiers;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
353 Lisp_Object old_value = Fgethash (sym, hash_table, Qnil);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
354
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
355 if (! EQ (old_value, new_value)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
356 && ! (EQ (old_value, Qsans_modifiers) &&
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
357 EQ (new_value, Qt)))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
358 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
359 maybe_define_x_key_as_self_inserting_character (keysym, sym);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
360 Fputhash (build_ext_string (name, Qbinary), new_value, hash_table);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
361 Fputhash (sym, new_value, hash_table);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
362 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
363 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
364 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
365 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
366
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
367 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
368 x_reset_key_mapping (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
369 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
370 Display *display = DEVICE_X_DISPLAY (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
371 struct x_device *xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
372 KeySym *keysym, *keysym_end;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
373 Lisp_Object hash_table;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
374 int key_code_count, keysyms_per_code;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
375
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376 if (xd->x_keysym_map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
377 XFree ((char *) xd->x_keysym_map);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 XDisplayKeycodes (display,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379 &xd->x_keysym_map_min_code,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
380 &xd->x_keysym_map_max_code);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
381 key_code_count = xd->x_keysym_map_max_code - xd->x_keysym_map_min_code + 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
382 xd->x_keysym_map =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
383 XGetKeyboardMapping (display, xd->x_keysym_map_min_code, key_code_count,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
384 &xd->x_keysym_map_keysyms_per_code);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386 hash_table = xd->x_keysym_map_hash_table;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387 if (HASH_TABLEP (hash_table))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
388 Fclrhash (hash_table);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
389 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
390 xd->x_keysym_map_hash_table = hash_table =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
391 make_lisp_hash_table (128, HASH_TABLE_NON_WEAK, HASH_TABLE_EQUAL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
392
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
393 for (keysym = xd->x_keysym_map,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
394 keysyms_per_code = xd->x_keysym_map_keysyms_per_code,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
395 keysym_end = keysym + (key_code_count * keysyms_per_code);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
396 keysym < keysym_end;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
397 keysym += keysyms_per_code)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
398 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
399 int j;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
400
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
401 if (keysym[0] == NoSymbol)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
402 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
403
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
404 x_has_keysym (keysym[0], hash_table, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
405
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
406 for (j = 1; j < keysyms_per_code; j++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
407 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
408 if (keysym[j] != keysym[0] &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
409 keysym[j] != NoSymbol)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
410 x_has_keysym (keysym[j], hash_table, 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
411 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
412 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
413 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
414
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
415 static const char *
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
416 index_to_name (int indice)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
417 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
418 switch (indice)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
419 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
420 case ShiftMapIndex: return "ModShift";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
421 case LockMapIndex: return "ModLock";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
422 case ControlMapIndex: return "ModControl";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
423 case Mod1MapIndex: return "Mod1";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
424 case Mod2MapIndex: return "Mod2";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
425 case Mod3MapIndex: return "Mod3";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
426 case Mod4MapIndex: return "Mod4";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
427 case Mod5MapIndex: return "Mod5";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
428 default: return "???";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
429 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
430 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
431
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
432 /* Boy, I really wish C had local functions... */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
433 struct c_doesnt_have_closures /* #### not yet used */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
434 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
435 int warned_about_overlapping_modifiers;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
436 int warned_about_predefined_modifiers;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
437 int warned_about_duplicate_modifiers;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
438 int meta_bit;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
439 int hyper_bit;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
440 int super_bit;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
441 int alt_bit;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
442 int mode_bit;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
443 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
444
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
445 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
446 x_reset_modifier_mapping (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
447 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
448 Display *display = DEVICE_X_DISPLAY (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
449 struct x_device *xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
450 int modifier_index, modifier_key, column, mkpm;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
451 int warned_about_overlapping_modifiers = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
452 int warned_about_predefined_modifiers = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
453 int warned_about_duplicate_modifiers = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
454 int meta_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
455 int hyper_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
456 int super_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
457 int alt_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
458 int mode_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
459
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
460 xd->lock_interpretation = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
461
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
462 if (xd->x_modifier_keymap)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
463 XFreeModifiermap (xd->x_modifier_keymap);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
464
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
465 x_reset_key_mapping (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
466
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
467 xd->x_modifier_keymap = XGetModifierMapping (display);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
468
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
469 /* Boy, I really wish C had local functions...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
470 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
471
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
472 /* The call to warn_when_safe must be on the same line as the string or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
473 make-msgfile won't pick it up properly (the newline doesn't confuse
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
474 it, but the backslash does). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
475
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
476 #define modwarn(name,old,other) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
477 warn_when_safe (Qkey_mapping, Qwarning, "XEmacs: %s (0x%x) generates %s, which is generated by %s.", \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
478 name, code, index_to_name (old), other), \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
479 warned_about_overlapping_modifiers = 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
480
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
481 #define modbarf(name,other) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
482 warn_when_safe (Qkey_mapping, Qwarning, "XEmacs: %s (0x%x) generates %s, which is nonsensical.", \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
483 name, code, other), \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
484 warned_about_predefined_modifiers = 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
485
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
486 #define check_modifier(name,mask) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
487 if ((1<<modifier_index) != mask) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
488 warn_when_safe (Qkey_mapping, Qwarning, "XEmacs: %s (0x%x) generates %s, which is nonsensical.", \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
489 name, code, index_to_name (modifier_index)), \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
490 warned_about_predefined_modifiers = 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
491
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
492 #define store_modifier(name,old) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
493 if (old && old != modifier_index) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
494 warn_when_safe (Qkey_mapping, Qwarning, "XEmacs: %s (0x%x) generates both %s and %s, which is nonsensical.",\
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
495 name, code, index_to_name (old), \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
496 index_to_name (modifier_index)), \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
497 warned_about_duplicate_modifiers = 1; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
498 if (modifier_index == ShiftMapIndex) modbarf (name,"ModShift"); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
499 else if (modifier_index == LockMapIndex) modbarf (name,"ModLock"); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500 else if (modifier_index == ControlMapIndex) modbarf (name,"ModControl"); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501 else if (sym == XK_Mode_switch) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
502 mode_bit = modifier_index; /* Mode_switch is special, see below... */ \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
503 else if (modifier_index == meta_bit && old != meta_bit) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
504 modwarn (name, meta_bit, "Meta"); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
505 else if (modifier_index == super_bit && old != super_bit) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
506 modwarn (name, super_bit, "Super"); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
507 else if (modifier_index == hyper_bit && old != hyper_bit) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
508 modwarn (name, hyper_bit, "Hyper"); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
509 else if (modifier_index == alt_bit && old != alt_bit) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
510 modwarn (name, alt_bit, "Alt"); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
511 else \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
512 old = modifier_index;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
513
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
514 mkpm = xd->x_modifier_keymap->max_keypermod;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
515 for (modifier_index = 0; modifier_index < 8; modifier_index++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
516 for (modifier_key = 0; modifier_key < mkpm; modifier_key++) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
517 KeySym last_sym = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
518 for (column = 0; column < 4; column += 2) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
519 KeyCode code = xd->x_modifier_keymap->modifiermap[modifier_index * mkpm
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
520 + modifier_key];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
521 KeySym sym = (code ? XKeycodeToKeysym (display, code, column) : 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
522 if (sym == last_sym) continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
523 last_sym = sym;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
524 switch (sym) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
525 case XK_Mode_switch:store_modifier ("Mode_switch", mode_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
526 case XK_Meta_L: store_modifier ("Meta_L", meta_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
527 case XK_Meta_R: store_modifier ("Meta_R", meta_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
528 case XK_Super_L: store_modifier ("Super_L", super_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
529 case XK_Super_R: store_modifier ("Super_R", super_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
530 case XK_Hyper_L: store_modifier ("Hyper_L", hyper_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
531 case XK_Hyper_R: store_modifier ("Hyper_R", hyper_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
532 case XK_Alt_L: store_modifier ("Alt_L", alt_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
533 case XK_Alt_R: store_modifier ("Alt_R", alt_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
534 case XK_Control_L: check_modifier ("Control_L", ControlMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
535 case XK_Control_R: check_modifier ("Control_R", ControlMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
536 case XK_Shift_L: check_modifier ("Shift_L", ShiftMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
537 case XK_Shift_R: check_modifier ("Shift_R", ShiftMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
538 case XK_Shift_Lock: check_modifier ("Shift_Lock", LockMask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
539 xd->lock_interpretation = XK_Shift_Lock; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
540 case XK_Caps_Lock: check_modifier ("Caps_Lock", LockMask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
541 xd->lock_interpretation = XK_Caps_Lock; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
542
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
543 /* It probably doesn't make any sense for a modifier bit to be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
544 assigned to a key that is not one of the above, but OpenWindows
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
545 assigns modifier bits to a couple of random function keys for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
546 no reason that I can discern, so printing a warning here would
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
547 be annoying. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
548 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
549 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
550 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
551 #undef store_modifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
552 #undef check_modifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
553 #undef modwarn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
554 #undef modbarf
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
555
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
556 /* If there was no Meta key, then try using the Alt key instead.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
557 If there is both a Meta key and an Alt key, then the Alt key
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
558 is not disturbed and remains an Alt key. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
559 if (! meta_bit && alt_bit)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
560 meta_bit = alt_bit, alt_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
561
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
562 /* mode_bit overrides everything, since it's processed down inside of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
563 XLookupString() instead of by us. If Meta and Mode_switch both
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
564 generate the same modifier bit (which is an error), then we don't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
565 interpret that bit as Meta, because we can't make XLookupString()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
566 not interpret it as Mode_switch; and interpreting it as both would
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
567 be totally wrong. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
568 if (mode_bit)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
569 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
570 const char *warn = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
571 if (mode_bit == meta_bit) warn = "Meta", meta_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
572 else if (mode_bit == hyper_bit) warn = "Hyper", hyper_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
573 else if (mode_bit == super_bit) warn = "Super", super_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
574 else if (mode_bit == alt_bit) warn = "Alt", alt_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
575 if (warn)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
576 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
577 warn_when_safe
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
578 (Qkey_mapping, Qwarning,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
579 "XEmacs: %s is being used for both Mode_switch and %s.",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
580 index_to_name (mode_bit), warn),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
581 warned_about_overlapping_modifiers = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
582 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
583 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
584 #undef index_to_name
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
585
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
586 xd->MetaMask = (meta_bit ? (1 << meta_bit) : 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
587 xd->HyperMask = (hyper_bit ? (1 << hyper_bit) : 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
588 xd->SuperMask = (super_bit ? (1 << super_bit) : 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
589 xd->AltMask = (alt_bit ? (1 << alt_bit) : 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
590 xd->ModeMask = (mode_bit ? (1 << mode_bit) : 0); /* unused */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
591
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
592
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
593 if (warned_about_overlapping_modifiers)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
594 warn_when_safe (Qkey_mapping, Qwarning, "\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
595 " Two distinct modifier keys (such as Meta and Hyper) cannot generate\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
596 " the same modifier bit, because Emacs won't be able to tell which\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
597 " modifier was actually held down when some other key is pressed. It\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
598 " won't be able to tell Meta-x and Hyper-x apart, for example. Change\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
599 " one of these keys to use some other modifier bit. If you intend for\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
600 " these keys to have the same behavior, then change them to have the\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
601 " same keysym as well as the same modifier bit.");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
602
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
603 if (warned_about_predefined_modifiers)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
604 warn_when_safe (Qkey_mapping, Qwarning, "\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
605 " The semantics of the modifier bits ModShift, ModLock, and ModControl\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
606 " are predefined. It does not make sense to assign ModControl to any\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
607 " keysym other than Control_L or Control_R, or to assign any modifier\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
608 " bits to the \"control\" keysyms other than ModControl. You can't\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
609 " turn a \"control\" key into a \"meta\" key (or vice versa) by simply\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
610 " assigning the key a different modifier bit. You must also make that\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
611 " key generate an appropriate keysym (Control_L, Meta_L, etc).");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
612
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
613 /* No need to say anything more for warned_about_duplicate_modifiers. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
614
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
615 if (warned_about_overlapping_modifiers || warned_about_predefined_modifiers)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
616 warn_when_safe (Qkey_mapping, Qwarning, "\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
617 " The meanings of the modifier bits Mod1 through Mod5 are determined\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
618 " by the keysyms used to control those bits. Mod1 does NOT always\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
619 " mean Meta, although some non-ICCCM-compliant programs assume that.");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
620 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
621
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
622 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
623 x_init_modifier_mapping (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
624 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
625 struct x_device *xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
626 xd->x_keysym_map_hash_table = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
627 xd->x_keysym_map = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
628 xd->x_modifier_keymap = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
629 x_reset_modifier_mapping (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
630 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
631
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
632 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
633 x_key_is_modifier_p (KeyCode keycode, struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
634 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
635 struct x_device *xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
636 KeySym *syms;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
637 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
638
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
639 if (keycode < xd->x_keysym_map_min_code ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
640 keycode > xd->x_keysym_map_max_code)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
641 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
642
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
643 syms = &xd->x_keysym_map [(keycode - xd->x_keysym_map_min_code) *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
644 xd->x_keysym_map_keysyms_per_code];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
645 for (i = 0; i < xd->x_keysym_map_keysyms_per_code; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
646 if (IsModifierKey (syms [i]) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
647 syms [i] == XK_Mode_switch) /* why doesn't IsModifierKey count this? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
648 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
649 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
650 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
651
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
652 /* key-handling code is always ugly. It just ends up working out
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
653 that way.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
654
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
655 Here are some pointers:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
656
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
657 -- DOWN_MASK indicates which modifiers should be treated as "down"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
658 when the corresponding upstroke happens. It gets reset for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
659 a particular modifier when that modifier goes up, and reset
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
660 for all modifiers when a non-modifier key is pressed. Example:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
661
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
662 I press Control-A-Shift and then release Control-A-Shift.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
663 I want the Shift key to be sticky but not the Control key.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
664
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
665 -- LAST_DOWNKEY and RELEASE_TIME are used to keep track of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
666 auto-repeat -- see below.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
667
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
668 -- If a modifier key is sticky, I can unstick it by pressing
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
669 the modifier key again. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
670
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
671 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
672 x_handle_sticky_modifiers (XEvent *ev, struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
673 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
674 struct x_device *xd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
675 KeyCode keycode;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
676 int type;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
677
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
678 if (!modifier_keys_are_sticky) /* Optimize for non-sticky modifiers */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
679 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
680
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
681 xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
682 keycode = ev->xkey.keycode;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
683 type = ev->type;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
684
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
685 if (keycode < xd->x_keysym_map_min_code ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
686 keycode > xd->x_keysym_map_max_code)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
687 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
688
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
689 if (! ((type == KeyPress || type == KeyRelease) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
690 x_key_is_modifier_p (keycode, d)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
691 { /* Not a modifier key */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
692 Bool key_event_p = (type == KeyPress || type == KeyRelease);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
693
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
694 if (type == ButtonPress
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
695 || (type == KeyPress
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
696 && ((xd->last_downkey
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
697 && ((keycode != xd->last_downkey
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
698 || ev->xkey.time != xd->release_time)))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
699 || (INTP (Vmodifier_keys_sticky_time)
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
700 && ev->xkey.time
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
701 > (xd->modifier_release_time
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
702 + XINT (Vmodifier_keys_sticky_time))))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
703 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
704 xd->need_to_add_mask = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
705 xd->last_downkey = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
706 }
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
707 else if (type == KeyPress && !xd->last_downkey)
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
708 xd->last_downkey = keycode;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
709
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
710 if (type == KeyPress)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
711 xd->release_time = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
712 if (type == KeyPress || type == ButtonPress)
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
713 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
714 xd->down_mask = 0;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
715 xd->modifier_release_time = 0;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
716 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
717
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
718 if (key_event_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
719 ev->xkey.state |= xd->need_to_add_mask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
720 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
721 ev->xbutton.state |= xd->need_to_add_mask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
722
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
723 if (type == KeyRelease && keycode == xd->last_downkey)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
724 /* If I hold press-and-release the Control key and then press
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
725 and hold down the right arrow, I want it to auto-repeat
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
726 Control-Right. On the other hand, if I do the same but
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
727 manually press the Right arrow a bunch of times, I want
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
728 to see one Control-Right and then a bunch of Rights.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
729 This means that we need to distinguish between an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
730 auto-repeated key and a key pressed and released a bunch
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
731 of times.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
732
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
733 Naturally, the designers of the X spec didn't see fit
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
734 to provide an obvious way to distinguish these cases.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
735 So we assume that if the release and the next press
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
736 occur at the same time, the key was actually auto-
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
737 repeated. Under Open-Windows, at least, this works. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
738 xd->modifier_release_time = xd->release_time
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
739 = key_event_p ? ev->xkey.time : ev->xbutton.time;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
740 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
741 else /* Modifier key pressed */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
742 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
743 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
744 KeySym *syms = &xd->x_keysym_map [(keycode - xd->x_keysym_map_min_code) *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
745 xd->x_keysym_map_keysyms_per_code];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
746
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
747 /* If a non-modifier key was pressed in the middle of a bunch
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
748 of modifiers, then it unsticks all the modifiers that were
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
749 previously pressed. We cannot unstick the modifiers until
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
750 now because we want to check for auto-repeat of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
751 non-modifier key. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
752
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
753 if (xd->last_downkey)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
754 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
755 xd->last_downkey = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
756 xd->need_to_add_mask = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
757 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
758
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
759 if (xd->modifier_release_time
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
760 && INTP (Vmodifier_keys_sticky_time)
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
761 && (ev->xkey.time
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
762 > xd->modifier_release_time + XINT (Vmodifier_keys_sticky_time)))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
763 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
764 xd->need_to_add_mask = 0;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
765 xd->down_mask = 0;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
766 }
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
767
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
768 #define FROB(mask) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
769 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
770 if (type == KeyPress) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
771 { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
772 /* If modifier key is already sticky, \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
773 then unstick it. Note that we do \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
774 not test down_mask to deal with the \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
775 unlikely but possible case that the \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
776 modifier key auto-repeats. */ \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
777 if (xd->need_to_add_mask & mask) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
778 { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
779 xd->need_to_add_mask &= ~mask; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
780 xd->down_mask &= ~mask; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
781 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
782 else \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
783 xd->down_mask |= mask; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
784 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
785 else \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
786 { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
787 if (xd->down_mask & mask) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
788 { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
789 xd->down_mask &= ~mask; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
790 xd->need_to_add_mask |= mask; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
791 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
792 } \
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
793 xd->modifier_release_time = ev->xkey.time; \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
794 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
795
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
796 for (i = 0; i < xd->x_keysym_map_keysyms_per_code; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
797 switch (syms[i])
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
798 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
799 case XK_Control_L: case XK_Control_R: FROB (ControlMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
800 case XK_Shift_L: case XK_Shift_R: FROB (ShiftMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
801 case XK_Meta_L: case XK_Meta_R: FROB (xd->MetaMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
802 case XK_Super_L: case XK_Super_R: FROB (xd->SuperMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
803 case XK_Hyper_L: case XK_Hyper_R: FROB (xd->HyperMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
804 case XK_Alt_L: case XK_Alt_R: FROB (xd->AltMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
805 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
806 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
807 #undef FROB
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
808 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
809
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
810 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
811 clear_sticky_modifiers (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
812 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
813 struct x_device *xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
814
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
815 xd->need_to_add_mask = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
816 xd->last_downkey = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
817 xd->release_time = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
818 xd->down_mask = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
819 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
820
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
821 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
822 keysym_obeys_caps_lock_p (KeySym sym, struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
823 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
824 struct x_device *xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
825 /* Eeeeevil hack. Don't apply Caps_Lock to things that aren't alphabetic
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
826 characters, where "alphabetic" means something more than simply A-Z.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
827 That is, if Caps_Lock is down, typing ESC doesn't produce Shift-ESC.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
828 But if shift-lock is down, then it does. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
829 if (xd->lock_interpretation == XK_Shift_Lock)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
830 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
831
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
832 return
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
833 ((sym >= XK_A) && (sym <= XK_Z)) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
834 ((sym >= XK_a) && (sym <= XK_z)) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
835 ((sym >= XK_Agrave) && (sym <= XK_Odiaeresis)) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
836 ((sym >= XK_agrave) && (sym <= XK_odiaeresis)) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
837 ((sym >= XK_Ooblique) && (sym <= XK_Thorn)) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
838 ((sym >= XK_oslash) && (sym <= XK_thorn));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
839 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
840
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
841 /* called from EmacsFrame.c (actually from Xt itself) when a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
842 MappingNotify event is received. In its infinite wisdom, Xt
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
843 decided that Xt event handlers never get MappingNotify events.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
844 O'Reilly Xt Programming Manual 9.1.2 says:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
845
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
846 MappingNotify is automatically handled by Xt, so it isn't passed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
847 to event handlers and you don't need to worry about it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
848
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
849 Of course, we DO worry about it, so we need a special translation. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
850 void
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
851 emacs_Xt_mapping_action (Widget w, XEvent *event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
852 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
853 struct device *d = get_device_from_display (event->xany.display);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
854
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
855 if (DEVICE_X_BEING_DELETED (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
856 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
857 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
858 /* nyet. Now this is handled by Xt. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
859 XRefreshKeyboardMapping (&event->xmapping);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
860 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
861 /* xmodmap generates about a billion MappingKeyboard events, followed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
862 by a single MappingModifier event, so it might be worthwhile to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
863 take extra MappingKeyboard events out of the queue before requesting
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
864 the current keymap from the server. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
865 switch (event->xmapping.request)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
866 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
867 case MappingKeyboard: x_reset_key_mapping (d); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
868 case MappingModifier: x_reset_modifier_mapping (d); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
869 case MappingPointer: /* Do something here? */ break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
870 default: abort();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
871 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
872 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
873
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
874
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
875 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
876 /* X to Emacs event conversion */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
877 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
878
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
879 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
880 x_keysym_to_emacs_keysym (KeySym keysym, int simple_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
881 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
882 char *name;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
883 if (keysym >= XK_exclam && keysym <= XK_asciitilde)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
884 /* We must assume that the X keysym numbers for the ASCII graphic
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
885 characters are the same as their ASCII codes. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
886 return make_char (keysym);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
887
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
888 switch (keysym)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
889 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
890 /* These would be handled correctly by the default case, but by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
891 special-casing them here we don't garbage a string or call
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
892 intern(). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
893 case XK_BackSpace: return QKbackspace;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
894 case XK_Tab: return QKtab;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
895 case XK_Linefeed: return QKlinefeed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
896 case XK_Return: return QKreturn;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
897 case XK_Escape: return QKescape;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
898 case XK_space: return QKspace;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
899 case XK_Delete: return QKdelete;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
900 case 0: return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
901 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
902 if (simple_p) return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
903 /* !!#### not Mule-ized */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
904 name = XKeysymToString (keysym);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
905 if (!name || !name[0])
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
906 /* This happens if there is a mismatch between the Xlib of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
907 XEmacs and the Xlib of the X server...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
908
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
909 Let's hard-code in some knowledge of common keysyms introduced
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
910 in recent X11 releases. Snarfed from X11/keysymdef.h
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
911
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
912 Probably we should add some stuff here for X11R6. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
913 switch (keysym)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
914 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
915 case 0xFF95: return KEYSYM ("kp-home");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
916 case 0xFF96: return KEYSYM ("kp-left");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
917 case 0xFF97: return KEYSYM ("kp-up");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
918 case 0xFF98: return KEYSYM ("kp-right");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
919 case 0xFF99: return KEYSYM ("kp-down");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
920 case 0xFF9A: return KEYSYM ("kp-prior");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
921 case 0xFF9B: return KEYSYM ("kp-next");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
922 case 0xFF9C: return KEYSYM ("kp-end");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
923 case 0xFF9D: return KEYSYM ("kp-begin");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
924 case 0xFF9E: return KEYSYM ("kp-insert");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
925 case 0xFF9F: return KEYSYM ("kp-delete");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
926
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
927 case 0x1005FF10: return KEYSYM ("SunF36"); /* labeled F11 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
928 case 0x1005FF11: return KEYSYM ("SunF37"); /* labeled F12 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
929 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
930 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
931 char buf [64];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
932 sprintf (buf, "unknown-keysym-0x%X", (int) keysym);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
933 return KEYSYM (buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
934 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
935 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
936 /* If it's got a one-character name, that's good enough. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
937 if (!name[1])
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
938 return make_char (name[0]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
939
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
940 /* If it's in the "Keyboard" character set, downcase it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
941 The case of those keysyms is too totally random for us to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
942 force anyone to remember them.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
943 The case of the other character sets is significant, however.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
944 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
945 if ((((unsigned int) keysym) & (~0x1FF)) == ((unsigned int) 0xFE00))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
946 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
947 char buf [255];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
948 char *s1, *s2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
949 for (s1 = name, s2 = buf; *s1; s1++, s2++) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
950 if (*s1 == '_') {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
951 *s2 = '-';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
952 } else {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
953 *s2 = tolower (* (unsigned char *) s1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
954 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
955 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
956 *s2 = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
957 return KEYSYM (buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
958 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
959 return KEYSYM (name);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
960 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
961 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
962
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
963 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
964 x_to_emacs_keysym (XKeyPressedEvent *event, int simple_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
965 /* simple_p means don't try too hard (ASCII only) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
966 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
967 KeySym keysym = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
968
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
969 #ifdef HAVE_XIM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
970 int len;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
971 /* Some implementations of XmbLookupString don't return
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
972 XBufferOverflow correctly, so increase the size of the xim input
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
973 buffer from 64 to the more reasonable size 513, as Emacs has done.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
974 From Kenichi Handa. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
975 char buffer[513];
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
976 char *bufptr = buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
977 int bufsiz = sizeof (buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
978 Status status;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
979 #ifdef XIM_XLIB
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
980 XIC xic = FRAME_X_XIC (x_any_window_to_frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
981 (get_device_from_display (event->display),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
982 event->window));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
983 #endif /* XIM_XLIB */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
984 #endif /* HAVE_XIM */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
985
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
986 /* We use XLookupString if we're not using XIM, or are using
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
987 XIM_XLIB but input context creation failed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
988 #if ! (defined (HAVE_XIM) && defined (XIM_MOTIF))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
989 #if defined (HAVE_XIM) && defined (XIM_XLIB)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
990 if (!xic)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
991 #endif /* XIM_XLIB */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
992 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
993 /* Apparently it's necessary to specify a dummy here (rather
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
994 than passing in 0) to avoid crashes on German IRIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
995 char dummy[256];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
996 XLookupString (event, dummy, 200, &keysym, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
997 return (IsModifierKey (keysym) || keysym == XK_Mode_switch )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
998 ? Qnil : x_keysym_to_emacs_keysym (keysym, simple_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
999 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1000 #endif /* ! XIM_MOTIF */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1001
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1002 #ifdef HAVE_XIM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1003 Lookup_String: /* Come-From XBufferOverflow */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1004 #ifdef XIM_MOTIF
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1005 len = XmImMbLookupString (XtWindowToWidget (event->display, event->window),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1006 event, bufptr, bufsiz, &keysym, &status);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1007 #else /* XIM_XLIB */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1008 if (xic)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1009 len = XmbLookupString (xic, event, bufptr, bufsiz, &keysym, &status);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1010 #endif /* HAVE_XIM */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1011
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1012 #ifdef DEBUG_XEMACS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1013 if (debug_x_events > 0)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1014 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1015 stderr_out (" status=");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1016 #define print_status_when(S) if (status == S) stderr_out (#S)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1017 print_status_when (XLookupKeySym);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1018 print_status_when (XLookupBoth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1019 print_status_when (XLookupChars);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1020 print_status_when (XLookupNone);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1021 print_status_when (XBufferOverflow);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1022
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1023 if (status == XLookupKeySym || status == XLookupBoth)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1024 stderr_out (" keysym=%s", XKeysymToString (keysym));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1025 if (status == XLookupChars || status == XLookupBoth)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1026 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1027 if (len != 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1028 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1029 int j;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1030 stderr_out (" chars=\"");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1031 for (j=0; j<len; j++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1032 stderr_out ("%c", bufptr[j]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1033 stderr_out ("\"");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1034 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1035 else if (bufptr[0] <= 32 || bufptr[0] >= 127)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1036 stderr_out (" char=0x%x", bufptr[0]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1037 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1038 stderr_out (" char=%c", bufptr[0]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1039 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1040 stderr_out ("\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1041 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1042 #endif /* DEBUG_XEMACS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1043
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1044 switch (status)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1045 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1046 case XLookupKeySym:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1047 case XLookupBoth:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1048 return (IsModifierKey (keysym) || keysym == XK_Mode_switch )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1049 ? Qnil : x_keysym_to_emacs_keysym (keysym, simple_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1050
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1051 case XLookupChars:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1052 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1053 /* Generate multiple emacs events */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1054 struct device *d = get_device_from_display (event->display);
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
1055 Ichar ch;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1056 Lisp_Object instream, fb_instream;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1057 Lstream *istr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1058 struct gcpro gcpro1, gcpro2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1059
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1060 fb_instream = make_fixed_buffer_input_stream (bufptr, len);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1061
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1062 /* #### Use get_coding_system_for_text_file (Vcomposed_input_coding_system, 0) */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1063 instream =
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1064 make_coding_input_stream
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
1065 (XLSTREAM (fb_instream), Qundecided, CODING_DECODE, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1066
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1067 istr = XLSTREAM (instream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1068
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1069 GCPRO2 (instream, fb_instream);
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
1070 while ((ch = Lstream_get_ichar (istr)) != EOF)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1071 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1072 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1073 Lisp_Event *ev = XEVENT (emacs_event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1074 ev->channel = DEVICE_CONSOLE (d);
960
5b372a329b97 [xemacs-hg @ 2002-08-12 08:00:01 by michaels]
michaels
parents: 943
diff changeset
1075 ev->timestamp = event->time;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1076 ev->event_type = key_press_event;
943
345b7d75cab4 [xemacs-hg @ 2002-08-01 08:28:18 by michaels]
michaels
parents: 934
diff changeset
1077 #ifdef USE_KKCC
960
5b372a329b97 [xemacs-hg @ 2002-08-12 08:00:01 by michaels]
michaels
parents: 943
diff changeset
1078 XSET_EVENT_TYPE (emacs_event, key_press_event);
5b372a329b97 [xemacs-hg @ 2002-08-12 08:00:01 by michaels]
michaels
parents: 943
diff changeset
1079 XSET_KEY_DATA_MODIFIERS (XEVENT_DATA (emacs_event), 0);
5b372a329b97 [xemacs-hg @ 2002-08-12 08:00:01 by michaels]
michaels
parents: 943
diff changeset
1080 XSET_KEY_DATA_KEYSYM (XEVENT_DATA (emacs_event), make_char (ch));
943
345b7d75cab4 [xemacs-hg @ 2002-08-01 08:28:18 by michaels]
michaels
parents: 934
diff changeset
1081 #else
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1082 ev->event.key.modifiers = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1083 ev->event.key.keysym = make_char (ch);
943
345b7d75cab4 [xemacs-hg @ 2002-08-01 08:28:18 by michaels]
michaels
parents: 934
diff changeset
1084 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1085 enqueue_Xt_dispatch_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1086 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1087 Lstream_close (istr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1088 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1089 Lstream_delete (istr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1090 Lstream_delete (XLSTREAM (fb_instream));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1091 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1092 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1093 case XLookupNone: return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1094 case XBufferOverflow:
851
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben]
ben
parents: 826
diff changeset
1095 bufptr = (char *) ALLOCA (len+1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1096 bufsiz = len+1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1097 goto Lookup_String;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1098 }
801
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
1099 return Qnil; /* not (usually) reached */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1100 #endif /* HAVE_XIM */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1101 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1102
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1103 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1104 set_last_server_timestamp (struct device *d, XEvent *x_event)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1105 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1106 Time t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1107 switch (x_event->type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1108 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1109 case KeyPress:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1110 case KeyRelease: t = x_event->xkey.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1111 case ButtonPress:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1112 case ButtonRelease: t = x_event->xbutton.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1113 case EnterNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1114 case LeaveNotify: t = x_event->xcrossing.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1115 case MotionNotify: t = x_event->xmotion.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1116 case PropertyNotify: t = x_event->xproperty.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1117 case SelectionClear: t = x_event->xselectionclear.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1118 case SelectionRequest: t = x_event->xselectionrequest.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1119 case SelectionNotify: t = x_event->xselection.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1120 default: return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1121 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1122 DEVICE_X_LAST_SERVER_TIMESTAMP (d) = t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1123 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1124
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1125 static int
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1126 x_event_to_emacs_event (XEvent *x_event, Lisp_Event *emacs_event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1127 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1128 Display *display = x_event->xany.display;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1129 struct device *d = get_device_from_display (display);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1130 struct x_device *xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1131
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1132 if (DEVICE_X_BEING_DELETED (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1133 /* #### Uh, is this 0 correct? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1134 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1135
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1136 set_last_server_timestamp (d, x_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1137
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1138 switch (x_event->type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1139 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1140 case KeyRelease:
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1141 {
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1142 x_handle_sticky_modifiers (x_event, d);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1143 return 0;
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1144 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1145 case KeyPress:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1146 case ButtonPress:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1147 case ButtonRelease:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1148 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1149 int modifiers = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1150 int shift_p, lock_p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1151 Bool key_event_p = (x_event->type == KeyPress);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1152 unsigned int *state =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1153 key_event_p ? &x_event->xkey.state : &x_event->xbutton.state;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1154
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1155 /* If this is a synthetic KeyPress or Button event, and the user
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1156 has expressed a disinterest in this security hole, then drop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1157 it on the floor. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1158 if ((key_event_p
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1159 ? x_event->xkey.send_event
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1160 : x_event->xbutton.send_event)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1161 #ifdef EXTERNAL_WIDGET
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1162 /* ben: events get sent to an ExternalShell using XSendEvent.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1163 This is not a perfect solution. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1164 && !FRAME_X_EXTERNAL_WINDOW_P
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1165 (x_any_window_to_frame (d, x_event->xany.window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1166 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1167 && !x_allow_sendevents)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1168 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1169
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1170 DEVICE_X_MOUSE_TIMESTAMP (d) =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1171 DEVICE_X_GLOBAL_MOUSE_TIMESTAMP (d) =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1172 key_event_p ? x_event->xkey.time : x_event->xbutton.time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1173
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1174 x_handle_sticky_modifiers (x_event, d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1175
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1176 if (*state & ControlMask) modifiers |= XEMACS_MOD_CONTROL;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1177 if (*state & xd->MetaMask) modifiers |= XEMACS_MOD_META;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1178 if (*state & xd->SuperMask) modifiers |= XEMACS_MOD_SUPER;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1179 if (*state & xd->HyperMask) modifiers |= XEMACS_MOD_HYPER;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1180 if (*state & xd->AltMask) modifiers |= XEMACS_MOD_ALT;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1181 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1182 int numero_de_botao = -1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1183
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1184 if (!key_event_p)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1185 numero_de_botao = x_event->xbutton.button;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1186
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1187 /* the button gets noted either in the button or the modifiers
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1188 field, but not both. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1189 if (numero_de_botao != 1 && (*state & Button1Mask))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1190 modifiers |= XEMACS_MOD_BUTTON1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1191 if (numero_de_botao != 2 && (*state & Button2Mask))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1192 modifiers |= XEMACS_MOD_BUTTON2;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1193 if (numero_de_botao != 3 && (*state & Button3Mask))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1194 modifiers |= XEMACS_MOD_BUTTON3;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1195 if (numero_de_botao != 4 && (*state & Button4Mask))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1196 modifiers |= XEMACS_MOD_BUTTON4;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1197 if (numero_de_botao != 5 && (*state & Button5Mask))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1198 modifiers |= XEMACS_MOD_BUTTON5;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1199 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1200
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1201 /* Ignore the Caps_Lock key if:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1202 - any other modifiers are down, so that Caps_Lock doesn't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1203 turn C-x into C-X, which would suck.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1204 - the event was a mouse event. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1205 if (modifiers || ! key_event_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1206 *state &= (~LockMask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1207
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1208 shift_p = *state & ShiftMask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1209 lock_p = *state & LockMask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1210
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1211 if (shift_p || lock_p)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1212 modifiers |= XEMACS_MOD_SHIFT;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1213
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1214 if (key_event_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1215 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1216 Lisp_Object keysym;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1217 XKeyEvent *ev = &x_event->xkey;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1218 /* This used to compute the frame from the given X window and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1219 store it here, but we really don't care about the frame. */
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1220 #ifdef USE_KKCC
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1221 SET_EVENT_CHANNEL (emacs_event, DEVICE_CONSOLE (d));
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1222 #else /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1223 emacs_event->channel = DEVICE_CONSOLE (d);
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1224 #endif /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1225 keysym = x_to_emacs_keysym (&x_event->xkey, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1226
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1227 /* If the emacs keysym is nil, then that means that the X
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1228 keysym was either a Modifier or NoSymbol, which
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1229 probably means that we're in the midst of reading a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1230 Multi_key sequence, or a "dead" key prefix, or XIM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1231 input. Ignore it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1232 if (NILP (keysym))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1233 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1234
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1235 /* More Caps_Lock garbage: Caps_Lock should *only* add the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1236 shift modifier to two-case keys (that is, A-Z and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1237 related characters). So at this point (after looking up
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1238 the keysym) if the keysym isn't a dual-case alphabetic,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1239 and if the caps lock key was down but the shift key
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1240 wasn't, then turn off the shift modifier. Gag barf */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1241 /* #### type lossage: assuming equivalence of emacs and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1242 X keysyms */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1243 /* !!#### maybe fix for Mule */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1244 if (lock_p && !shift_p &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1245 ! (CHAR_OR_CHAR_INTP (keysym)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1246 && keysym_obeys_caps_lock_p
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1247 ((KeySym) XCHAR_OR_CHAR_INT (keysym), d)))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1248 modifiers &= (~XEMACS_MOD_SHIFT);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1249
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1250 /* If this key contains two distinct keysyms, that is,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1251 "shift" generates a different keysym than the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1252 non-shifted key, then don't apply the shift modifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1253 bit: it's implicit. Otherwise, if there would be no
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1254 other way to tell the difference between the shifted
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1255 and unshifted version of this key, apply the shift bit.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1256 Non-graphics, like Backspace and F1 get the shift bit
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1257 in the modifiers slot. Neither the characters "a",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1258 "A", "2", nor "@" normally have the shift bit set.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1259 However, "F1" normally does. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1260 if (modifiers & XEMACS_MOD_SHIFT)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1261 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1262 int Mode_switch_p = *state & xd->ModeMask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1263 KeySym bot = XLookupKeysym (ev, Mode_switch_p ? 2 : 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1264 KeySym top = XLookupKeysym (ev, Mode_switch_p ? 3 : 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1265 if (top && bot && top != bot)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1266 modifiers &= ~XEMACS_MOD_SHIFT;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1267 }
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1268 #ifdef USE_KKCC
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1269 set_event_type (emacs_event, key_press_event);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1270 SET_EVENT_TIMESTAMP (emacs_event, ev->time);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1271 XSET_KEY_DATA_MODIFIERS (EVENT_DATA (emacs_event), modifiers);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1272 XSET_KEY_DATA_KEYSYM (EVENT_DATA (emacs_event), keysym);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1273 #else /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1274 emacs_event->event_type = key_press_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1275 emacs_event->timestamp = ev->time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1276 emacs_event->event.key.modifiers = modifiers;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1277 emacs_event->event.key.keysym = keysym;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1278 #endif /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1279 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1280 else /* Mouse press/release event */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1281 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1282 XButtonEvent *ev = &x_event->xbutton;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1283 struct frame *frame = x_window_to_frame (d, ev->window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1284
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1285 if (! frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1286 return 0; /* not for us */
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1287 #ifdef USE_KKCC
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1288 set_event_type (emacs_event, (x_event->type == ButtonPress) ?
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1289 button_press_event : button_release_event);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1290 SET_EVENT_CHANNEL (emacs_event, wrap_frame(frame));
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1291
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1292 XSET_BUTTON_DATA_MODIFIERS (EVENT_DATA (emacs_event), modifiers);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1293 SET_EVENT_TIMESTAMP (emacs_event, ev->time);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1294 XSET_BUTTON_DATA_BUTTON (EVENT_DATA (emacs_event), ev->button);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1295 XSET_BUTTON_DATA_X (EVENT_DATA (emacs_event), ev->x);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1296 XSET_BUTTON_DATA_Y (EVENT_DATA (emacs_event), ev->y);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1297 #else /* not USE_KKCC */
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1298 emacs_event->channel = wrap_frame (frame);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1299 emacs_event->event_type = (x_event->type == ButtonPress) ?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1300 button_press_event : button_release_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1301
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1302 emacs_event->event.button.modifiers = modifiers;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1303 emacs_event->timestamp = ev->time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1304 emacs_event->event.button.button = ev->button;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1305 emacs_event->event.button.x = ev->x;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1306 emacs_event->event.button.y = ev->y;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1307 #endif /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1308 /* because we don't seem to get a FocusIn event for button clicks
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1309 when a widget-glyph is selected we will assume that we want the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1310 focus if a button gets pressed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1311 if (x_event->type == ButtonPress)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1312 handle_focus_event_1 (frame, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1313 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1314 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1315 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1316
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1317 case MotionNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1318 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1319 XMotionEvent *ev = &x_event->xmotion;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1320 struct frame *frame = x_window_to_frame (d, ev->window);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1321 int modifiers = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1322 XMotionEvent event2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1323
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1324 if (! frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1325 return 0; /* not for us */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1326
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1327 /* We use MotionHintMask, so we will get only one motion event
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1328 until the next time we call XQueryPointer or the user
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1329 clicks the mouse. So call XQueryPointer now (meaning that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1330 the event will be in sync with the server just before
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1331 Fnext_event() returns). If the mouse is still in motion,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1332 then the server will immediately generate exactly one more
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1333 motion event, which will be on the queue waiting for us
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1334 next time around. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1335 event2 = *ev;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1336 if (XQueryPointer (event2.display, event2.window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1337 &event2.root, &event2.subwindow,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1338 &event2.x_root, &event2.y_root,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1339 &event2.x, &event2.y,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1340 &event2.state))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1341 ev = &event2; /* only one structure copy */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1342
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1343 DEVICE_X_MOUSE_TIMESTAMP (d) = ev->time;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1344 #ifdef USE_KKCC
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1345 SET_EVENT_CHANNEL (emacs_event, wrap_frame(frame));
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1346 set_event_type (emacs_event, pointer_motion_event);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1347 SET_EVENT_TIMESTAMP (emacs_event, ev->time);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1348 XSET_MOTION_DATA_X (EVENT_DATA (emacs_event), ev->x);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1349 XSET_MOTION_DATA_Y (EVENT_DATA (emacs_event), ev->y);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1350 #else /* not USE_KKCC */
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1351 emacs_event->channel = wrap_frame (frame);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1352 emacs_event->event_type = pointer_motion_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1353 emacs_event->timestamp = ev->time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1354 emacs_event->event.motion.x = ev->x;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1355 emacs_event->event.motion.y = ev->y;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1356 #endif /* not USE_KKCC */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1357 if (ev->state & ShiftMask) modifiers |= XEMACS_MOD_SHIFT;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1358 if (ev->state & ControlMask) modifiers |= XEMACS_MOD_CONTROL;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1359 if (ev->state & xd->MetaMask) modifiers |= XEMACS_MOD_META;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1360 if (ev->state & xd->SuperMask) modifiers |= XEMACS_MOD_SUPER;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1361 if (ev->state & xd->HyperMask) modifiers |= XEMACS_MOD_HYPER;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1362 if (ev->state & xd->AltMask) modifiers |= XEMACS_MOD_ALT;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1363 if (ev->state & Button1Mask) modifiers |= XEMACS_MOD_BUTTON1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1364 if (ev->state & Button2Mask) modifiers |= XEMACS_MOD_BUTTON2;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1365 if (ev->state & Button3Mask) modifiers |= XEMACS_MOD_BUTTON3;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1366 if (ev->state & Button4Mask) modifiers |= XEMACS_MOD_BUTTON4;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1367 if (ev->state & Button5Mask) modifiers |= XEMACS_MOD_BUTTON5;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1368 /* Currently ignores Shift_Lock but probably shouldn't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1369 (but it definitely should ignore Caps_Lock). */
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1370 #ifdef USE_KKCC
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1371 XSET_MOTION_DATA_MODIFIERS (EVENT_DATA (emacs_event), modifiers);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1372 #else /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1373 emacs_event->event.motion.modifiers = modifiers;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1374 #endif /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1375 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1376 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1377
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1378 case ClientMessage:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1379 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1380 /* Patch bogus TAKE_FOCUS messages from MWM; CurrentTime is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1381 passed as the timestamp of the TAKE_FOCUS, which the ICCCM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1382 explicitly prohibits. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1383 XClientMessageEvent *ev = &x_event->xclient;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1384 #ifdef HAVE_OFFIX_DND
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1385 if (DndIsDropMessage(x_event))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1386 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1387 unsigned int state;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1388 int modifiers = 0;
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 638
diff changeset
1389 int button = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1390 struct frame *frame = x_any_window_to_frame (d, ev->window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1391 Extbyte *data;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1392 unsigned long size, dtype;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1393 Lisp_Object l_type = Qnil, l_data = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1394 Lisp_Object l_dndlist = Qnil, l_item = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1395 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1396
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1397 if (! frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1398 return 0; /* not for us */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1399
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1400 GCPRO4 (l_type, l_data, l_dndlist, l_item);
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1401 #ifdef USE_KKCC
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1402 set_event_type (emacs_event, misc_user_event);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1403 SET_EVENT_CHANNEL (emacs_event, wrap_frame(frame));
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1404 SET_EVENT_TIMESTAMP (emacs_event, DEVICE_X_LAST_SERVER_TIMESTAMP (d));
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1405 #else /* not USE_KKCC */
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1406 emacs_event->channel = wrap_frame (frame);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1407 emacs_event->event_type = misc_user_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1408 emacs_event->timestamp = DEVICE_X_LAST_SERVER_TIMESTAMP (d);
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1409 #endif /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1410 state=DndDragButtons(x_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1411
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1412 if (state & ShiftMask) modifiers |= XEMACS_MOD_SHIFT;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1413 if (state & ControlMask) modifiers |= XEMACS_MOD_CONTROL;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1414 if (state & xd->MetaMask) modifiers |= XEMACS_MOD_META;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1415 if (state & xd->SuperMask) modifiers |= XEMACS_MOD_SUPER;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1416 if (state & xd->HyperMask) modifiers |= XEMACS_MOD_HYPER;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1417 if (state & xd->AltMask) modifiers |= XEMACS_MOD_ALT;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1418 if (state & Button1Mask) modifiers |= XEMACS_MOD_BUTTON1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1419 if (state & Button2Mask) modifiers |= XEMACS_MOD_BUTTON2;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1420 if (state & Button3Mask) modifiers |= XEMACS_MOD_BUTTON3;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1421 if (state & Button4Mask) modifiers |= XEMACS_MOD_BUTTON4;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1422 if (state & Button5Mask) modifiers |= XEMACS_MOD_BUTTON5;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1423
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1424 if (state & Button5Mask) button = Button5;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1425 if (state & Button4Mask) button = Button4;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1426 if (state & Button3Mask) button = Button3;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1427 if (state & Button2Mask) button = Button2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1428 if (state & Button1Mask) button = Button1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1429
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1430 #ifdef USE_KKCC
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1431 XSET_MISC_USER_DATA_MODIFIERS (EVENT_DATA (emacs_event), modifiers);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1432 XSET_MISC_USER_DATA_BUTTON (EVENT_DATA (emacs_event), button);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1433
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1434 DndDropCoordinates(FRAME_X_TEXT_WIDGET(frame), x_event,
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1435 &(XMISC_USER_DATA_X (EVENT_DATA (emacs_event))),
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1436 &(XMISC_USER_DATA_Y (EVENT_DATA (emacs_event))) );
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1437 #else /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1438 emacs_event->event.misc.modifiers = modifiers;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1439 emacs_event->event.misc.button = button;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1440
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1441 DndDropCoordinates(FRAME_X_TEXT_WIDGET(frame), x_event,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1442 &(emacs_event->event.misc.x),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1443 &(emacs_event->event.misc.y) );
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1444 #endif /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1445 DndGetData(x_event,&data,&size);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1446
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1447 dtype=DndDataType(x_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1448 switch (dtype)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1449 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1450 case DndFiles: /* null terminated strings, end null */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1451 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1452 int len;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1453 char *hurl = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1454
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1455 while (*data)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1456 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1457 len = strlen ((char*)data);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1458 hurl = dnd_url_hexify_string ((char *)data, "file:");
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
1459 l_item = make_string ((Ibyte *)hurl, strlen (hurl));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1460 l_dndlist = Fcons (l_item, l_dndlist);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1461 data += len + 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1462 xfree (hurl);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1463 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1464 l_type = Qdragdrop_URL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1465 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1466 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1467 case DndText:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1468 l_type = Qdragdrop_MIME;
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
1469 l_dndlist = list1 ( list3 ( list1 ( make_string ((Ibyte *)"text/plain", 10) ),
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
1470 make_string ((Ibyte *)"8bit", 4),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1471 make_ext_string ((Extbyte *)data,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1472 strlen((char *)data),
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1473 Qctext) ) );
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1474 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1475 case DndMIME:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1476 /* we have to parse this in some way to extract
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1477 content-type and params (in the tm way) and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1478 content encoding.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1479 OR: if data is string, let tm do the job
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1480 if data is list[2], give the first two
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1481 to tm...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1482 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1483 l_type = Qdragdrop_MIME;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1484 l_dndlist = list1 ( make_ext_string ((Extbyte *)data,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1485 strlen((char *)data),
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1486 Qbinary) );
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1487 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1488 case DndFile:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1489 case DndDir:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1490 case DndLink:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1491 case DndExe:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1492 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1493 char *hurl = dnd_url_hexify_string ((char *) data, "file:");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1494
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
1495 l_dndlist = list1 ( make_string ((Ibyte *)hurl,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1496 strlen (hurl)) );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1497 l_type = Qdragdrop_URL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1498
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1499 xfree (hurl);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1500 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1501 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1502 case DndURL:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1503 /* as it is a real URL it should already be escaped
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1504 and escaping again will break them (cause % is unsave) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1505 l_dndlist = list1 ( make_ext_string ((Extbyte *)data,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1506 strlen ((char *)data),
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1507 Qfile_name) );
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1508 l_type = Qdragdrop_URL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1509 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1510 default: /* Unknown, RawData and any other type */
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
1511 l_dndlist = list1 ( list3 ( list1 ( make_string ((Ibyte *)"application/octet-stream", 24) ),
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
1512 make_string ((Ibyte *)"8bit", 4),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1513 make_ext_string ((Extbyte *)data,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1514 size,
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1515 Qbinary) ) );
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1516 l_type = Qdragdrop_MIME;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1517 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1518 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1519
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1520 #ifdef USE_KKCC
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1521 XSET_MISC_USER_DATA_FUNCTION (EVENT_DATA (emacs_event), Qdragdrop_drop_dispatch);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1522 XSET_MISC_USER_DATA_OBJECT (EVENT_DATA (emacs_event), Fcons (l_type, l_dndlist));
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1523 #else /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1524 emacs_event->event.misc.function = Qdragdrop_drop_dispatch;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1525 emacs_event->event.misc.object = Fcons (l_type, l_dndlist);
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1526 #endif /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1527
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1528 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1529
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1530 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1531 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1532 #endif /* HAVE_OFFIX_DND */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1533 if (ev->message_type == DEVICE_XATOM_WM_PROTOCOLS (d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1534 && (Atom) (ev->data.l[0]) == DEVICE_XATOM_WM_TAKE_FOCUS (d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1535 && (Atom) (ev->data.l[1]) == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1536 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1537 ev->data.l[1] = DEVICE_X_LAST_SERVER_TIMESTAMP (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1538 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1539 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1540 /* fall through */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1541
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1542 default: /* it's a magic event */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1543 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1544 struct frame *frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1545 Window w;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1546 #ifdef USE_KKCC
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1547 XEvent *x_event_copy;
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1548 SET_EVENT_TYPE (emacs_event, magic_event);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1549 x_event_copy = &XMAGIC_DATA_X_EVENT (EVENT_DATA (emacs_event));
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1550 #else /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1551 XEvent *x_event_copy = &emacs_event->event.magic.underlying_x_event;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1552 #endif /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1553
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1554 #define FROB(event_member, window_member) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1555 x_event_copy->event_member = x_event->event_member; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1556 w = x_event->event_member.window_member
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1557
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1558 switch (x_event->type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1559 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1560 case SelectionRequest: FROB(xselectionrequest, owner); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1561 case SelectionClear: FROB(xselectionclear, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1562 case SelectionNotify: FROB(xselection, requestor); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1563 case PropertyNotify: FROB(xproperty, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1564 case ClientMessage: FROB(xclient, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1565 case ConfigureNotify: FROB(xconfigure, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1566 case Expose:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1567 case GraphicsExpose: FROB(xexpose, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1568 case MapNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1569 case UnmapNotify: FROB(xmap, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1570 case EnterNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1571 case LeaveNotify: FROB(xcrossing, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1572 case FocusIn:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1573 case FocusOut: FROB(xfocus, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1574 case VisibilityNotify: FROB(xvisibility, window); break;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1575 case CreateNotify: FROB(xcreatewindow, window); break;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1576 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1577 w = x_event->xany.window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1578 *x_event_copy = *x_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1579 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1580 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1581 #undef FROB
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1582 frame = x_any_window_to_frame (d, w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1583
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1584 if (!frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1585 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1586
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1587 #ifdef USE_KKCC
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1588 SET_EVENT_TYPE (emacs_event, magic_event);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1589 SET_EVENT_CHANNEL (emacs_event, wrap_frame(frame));
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1590 XSET_MAGIC_DATA_X_EVENT (EVENT_DATA(emacs_event), *x_event_copy);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1591 #else /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1592 emacs_event->event_type = magic_event;
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1593 emacs_event->channel = wrap_frame (frame);
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1594 #endif /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1595 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1596 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1597 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1598 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1599 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1600
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1601
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1602
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1603 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1604 /* magic-event handling */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1605 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1606
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1607 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1608 handle_focus_event_1 (struct frame *f, int in_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1609 {
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1610 handle_focus_event_2 (XtWindow (FRAME_X_TEXT_WIDGET (f)), f, in_p);
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1611 }
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1612
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1613 static void
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1614 handle_focus_event_2 (Window win, struct frame *f, int in_p)
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1615 {
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1616 /* Although this treats focus differently for all widgets (including
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1617 the frame) it seems to work ok. */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1618 Widget needs_it = XtWindowToWidget (FRAME_X_DISPLAY (f), win);
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1619
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1620 #if XtSpecificationRelease > 5
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1621 widget_with_focus = XtGetKeyboardFocusWidget (FRAME_X_TEXT_WIDGET (f));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1622 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1623 #ifdef HAVE_XIM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1624 XIM_focus_event (f, in_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1625 #endif /* HAVE_XIM */
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1626
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1627 /* On focus change, clear all memory of sticky modifiers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1628 to avoid non-intuitive behavior. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1629 clear_sticky_modifiers (XDEVICE (FRAME_DEVICE (f)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1630
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1631 /* We don't want to handle the focus change now, because we might
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1632 be in an accept-process-output, sleep-for, or sit-for. So
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1633 we enqueue it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1634
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1635 Actually, we half handle it: we handle it as far as changing the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1636 box cursor for redisplay, but we don't call any hooks or do any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1637 select-frame stuff until after the sit-for.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1638
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1639 Unfortunately native widgets break the model because they grab
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1640 the keyboard focus and nothing sets it back again. I cannot find
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1641 any reasonable way to do this elsewhere so we assert here that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1642 the keyboard focus is on the emacs text widget. Menus and dialogs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1643 do this in their selection callback, but we don't want that since
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1644 a button having focus is legitimate. An edit field having focus
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1645 is mandatory. Weirdly you get a FocusOut event when you click in
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1646 a widget-glyph but you don't get a corresponding FocusIn when you
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1647 click in the frame. Why is this? */
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1648 if (in_p
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1649 #if XtSpecificationRelease > 5
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1650 && needs_it != widget_with_focus
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1651 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1652 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1653 {
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1654 lw_set_keyboard_focus (FRAME_X_SHELL_WIDGET (f), needs_it);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1655 }
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1656
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1657 /* If we are focusing on a native widget then record and exit. */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1658 if (needs_it != FRAME_X_TEXT_WIDGET (f)) {
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1659 widget_with_focus = needs_it;
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1660 return;
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1661 }
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1662
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1663 /* We have the focus now. See comment in
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1664 emacs_Xt_handle_widget_losing_focus (). */
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1665 if (in_p)
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1666 widget_with_focus = NULL;
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1667
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1668 /* do the generic event-stream stuff. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1669 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1670 Lisp_Object frm;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1671 Lisp_Object conser;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1672 struct gcpro gcpro1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1673
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1674 frm = wrap_frame (f);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1675 conser = Fcons (frm, Fcons (FRAME_DEVICE (f), in_p ? Qt : Qnil));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1676 GCPRO1 (conser);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1677 emacs_handle_focus_change_preliminary (conser);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1678 enqueue_magic_eval_event (emacs_handle_focus_change_final,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1679 conser);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1680 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1681 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1682 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1683
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1684 /* Create a synthetic X focus event. */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1685 void
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1686 enqueue_focus_event (Widget wants_it, Lisp_Object frame, int in_p)
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1687 {
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1688 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1689 Lisp_Event *ev = XEVENT (emacs_event);
960
5b372a329b97 [xemacs-hg @ 2002-08-12 08:00:01 by michaels]
michaels
parents: 943
diff changeset
1690 XEvent *x_event;
5b372a329b97 [xemacs-hg @ 2002-08-12 08:00:01 by michaels]
michaels
parents: 943
diff changeset
1691
5b372a329b97 [xemacs-hg @ 2002-08-12 08:00:01 by michaels]
michaels
parents: 943
diff changeset
1692 ev->event_type = magic_event;
5b372a329b97 [xemacs-hg @ 2002-08-12 08:00:01 by michaels]
michaels
parents: 943
diff changeset
1693
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1694 #ifdef USE_KKCC
960
5b372a329b97 [xemacs-hg @ 2002-08-12 08:00:01 by michaels]
michaels
parents: 943
diff changeset
1695 XSET_EVENT_TYPE (emacs_event, magic_event);
5b372a329b97 [xemacs-hg @ 2002-08-12 08:00:01 by michaels]
michaels
parents: 943
diff changeset
1696 x_event = &XMAGIC_DATA_X_EVENT (EVENT_DATA (ev));
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1697 #else /* not USE_KKCC */
960
5b372a329b97 [xemacs-hg @ 2002-08-12 08:00:01 by michaels]
michaels
parents: 943
diff changeset
1698 x_event = &ev->event.magic.underlying_x_event;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1699 #endif /* not USE_KKCC */
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1700
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1701 x_event->type = in_p ? FocusIn : FocusOut;
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1702 x_event->xfocus.window = XtWindow (wants_it);
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1703
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1704 #ifdef USE_KKCC
960
5b372a329b97 [xemacs-hg @ 2002-08-12 08:00:01 by michaels]
michaels
parents: 943
diff changeset
1705 SET_EVENT_CHANNEL (ev, frame);
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1706 #else /* not USE_KKCC */
960
5b372a329b97 [xemacs-hg @ 2002-08-12 08:00:01 by michaels]
michaels
parents: 943
diff changeset
1707 ev->channel = frame;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1708 #endif /* not USE_KKCC */
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1709
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1710 enqueue_Xt_dispatch_event (emacs_event);
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1711 }
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1712
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1713 /* The idea here is that when a widget glyph gets unmapped we don't
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1714 want the focus to stay with it if it has focus - because it may
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1715 well just get deleted next and then we have lost the focus until the
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1716 user does something. So handle_focus_event_1 records the widget
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1717 with keyboard focus when FocusOut is processed, and then, when a
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1718 widget gets unmapped, it calls this function to restore focus if
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1719 appropriate. */
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1720 void emacs_Xt_handle_widget_losing_focus (struct frame *f, Widget losing_widget);
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1721 void
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1722 emacs_Xt_handle_widget_losing_focus (struct frame *f, Widget losing_widget)
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1723 {
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1724 if (losing_widget == widget_with_focus)
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1725 {
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1726 handle_focus_event_1 (f, 1);
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1727 }
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1728 }
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1729
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1730 /* This is called from the external-widget code */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1731
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1732 void emacs_Xt_handle_focus_event (XEvent *event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1733 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1734 emacs_Xt_handle_focus_event (XEvent *event)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1735 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1736 struct device *d = get_device_from_display (event->xany.display);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1737 struct frame *f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1738
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1739 if (DEVICE_X_BEING_DELETED (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1740 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1741
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1742 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1743 * It's curious that we're using x_any_window_to_frame() instead
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1744 * of x_window_to_frame(). I don't know what the impact of this is.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1745 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1746 f = x_any_window_to_frame (d, event->xfocus.window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1747 if (!f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1748 /* focus events are sometimes generated just before
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1749 a frame is destroyed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1750 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1751 handle_focus_event_1 (f, event->type == FocusIn);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1752 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1753
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1754 /* both MapNotify and VisibilityNotify can cause this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1755 JV is_visible has the same semantics as f->visible*/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1756 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1757 change_frame_visibility (struct frame *f, int is_visible)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1758 {
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1759 Lisp_Object frame = wrap_frame (f);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1760
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1761
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1762 if (!FRAME_VISIBLE_P (f) && is_visible)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1763 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1764 FRAME_VISIBLE_P (f) = is_visible;
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
1765 /* [[ This improves the double flicker when uniconifying a frame
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1766 some. A lot of it is not showing a buffer which has changed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1767 while the frame was iconified. To fix it further requires
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
1768 the good 'ol double redisplay structure. ]] -- comment is
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
1769 invalid, obviously predates 19.12, when the double redisplay
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
1770 structure (i.e. current + desired) was put back in. --ben */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1771 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1772 va_run_hook_with_args (Qmap_frame_hook, 1, frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1773 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1774 else if (FRAME_VISIBLE_P (f) && !is_visible)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1775 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1776 FRAME_VISIBLE_P (f) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1777 va_run_hook_with_args (Qunmap_frame_hook, 1, frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1778 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1779 else if (FRAME_VISIBLE_P (f) * is_visible < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1780 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1781 FRAME_VISIBLE_P(f) = - FRAME_VISIBLE_P(f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1782 if (FRAME_REPAINT_P(f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1783 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1784 va_run_hook_with_args (Qmap_frame_hook, 1, frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1785 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1786 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1787
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1788 static void
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1789 update_frame_iconify_status (struct frame *f)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1790 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1791 f->iconified = (x_frame_window_state (f) == IconicState);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1792 }
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1793
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1794 static void
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1795 handle_map_event (struct frame *f, XEvent *event)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1796 {
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1797
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1798 /* It seems that, given the multiplicity of window managers and X
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1799 implementations, plus the fact that X was designed without
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1800 window managers or icons in mind and this was then grafted on
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1801 with about the skill of a drunk freshman med student attempting
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1802 surgery with a rusty razor blade, we cannot treat any off
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1803 MapNotify/UnmapNotify/VisibilityNotify as more than vague hints
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1804 as to the actual situation.
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1805
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1806 So we should just query the actual status. Unfortunately, things
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1807 are worse because (a) there aren't obvious ways to query some
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1808 of these values (e.g. "totally visible"), and (b) there may be
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1809 race conditions (see below).
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1810
638
373ced43e288 [xemacs-hg @ 2001-07-26 21:10:44 by adrian]
adrian
parents: 593
diff changeset
1811 However, according to the ICCCM, there's a specific way to
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1812 ask the window manager whether the state is (a) visible,
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1813 (b) iconic, (c) withdrawn. It must be one of these three.
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1814 We already use this call to check for the iconified state.
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1815 I'd suggest we do the same for visible (i.e. NormalState),
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1816 and scrap most of the nasty code below.
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1817
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1818 --ben
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1819 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1820
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1821 update_frame_iconify_status (f);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1822
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1823 /* #### Ben suggests rewriting the code below using
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1824 x_frame_window_state (f). */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1825
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1826 if (event->type == MapNotify)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1827 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1828 XWindowAttributes xwa;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1829
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1830 /* Bleagh!!!!!! Apparently some window managers (e.g. MWM)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1831 send synthetic MapNotify events when a window is first
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1832 created, EVEN IF IT'S CREATED ICONIFIED OR INVISIBLE.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1833 Or something like that. We initially tried a different
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1834 solution below, but that ran into a different window-
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1835 manager bug.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1836
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1837 It seems that the only reliable way is to treat a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1838 MapNotify event as a "hint" that the window might or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1839 might not be visible, and check explicitly. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1840
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1841 XGetWindowAttributes (event->xany.display, event->xmap.window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1842 &xwa);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1843 if (xwa.map_state != IsViewable)
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1844 return;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1845
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1846 FRAME_X_TOTALLY_VISIBLE_P (f) = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1847 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1848 /* Bleagh again!!!! We initially tried the following hack
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1849 around the MWM problem, but it turns out that TWM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1850 has a race condition when you un-iconify, where it maps
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1851 the window and then tells the server that the window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1852 is un-iconified. Usually, XEmacs wakes up between
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1853 those two occurrences, and thus thinks that un-iconified
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1854 windows are still iconified.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1855
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1856 Ah, the joys of X. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1857
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1858 /* By Emacs definition, a frame that is iconified is not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1859 visible. Marking a frame as visible will automatically cause
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1860 frame-iconified-p to return nil, regardless of whether the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1861 frame is actually iconified. Therefore, we have to ignore
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1862 MapNotify events on iconified frames. (It's not obvious
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1863 to me why these are being sent, but it happens at startup
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1864 with frames that are initially iconified; perhaps they are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1865 synthetic MapNotify events coming from the window manager.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1866 Note that `frame-iconified-p' queries the server
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1867 to determine whether the frame is currently iconified,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1868 rather than consulting some internal (and likely
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1869 inaccurate) state flag. Therefore, ignoring the MapNotify
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1870 is correct. */
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1871 if (!FRAME_VISIBLE_P (f) && NILP (Fframe_iconified_p (wrap_frame (f))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1872 #endif /* 0 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1873 change_frame_visibility (f, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1874 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1875 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1876 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1877 FRAME_X_TOTALLY_VISIBLE_P (f) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1878 change_frame_visibility (f, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1879 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1880 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1881
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1882 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1883 handle_client_message (struct frame *f, XEvent *event)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1884 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1885 struct device *d = XDEVICE (FRAME_DEVICE (f));
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1886 Lisp_Object frame = wrap_frame (f);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1887
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1888 if (event->xclient.message_type == DEVICE_XATOM_WM_PROTOCOLS (d) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1889 (Atom) (event->xclient.data.l[0]) == DEVICE_XATOM_WM_DELETE_WINDOW (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1890 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1891 /* WM_DELETE_WINDOW is a misc-user event, but other ClientMessages,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1892 such as WM_TAKE_FOCUS, are eval events. That's because delete-window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1893 was probably executed with a mouse click, while the others could
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1894 have been sent as a result of mouse motion or some other implicit
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1895 action. (Call this a "heuristic"...) The reason for caring about
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1896 this is so that clicking on the close-box will make emacs prompt
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1897 using a dialog box instead of the minibuffer if there are unsaved
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1898 buffers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1899 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1900 enqueue_misc_user_event (frame, Qeval,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1901 list3 (Qdelete_frame, frame, Qt));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1902 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1903 else if (event->xclient.message_type == DEVICE_XATOM_WM_PROTOCOLS (d) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1904 (Atom) event->xclient.data.l[0] == DEVICE_XATOM_WM_TAKE_FOCUS (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1905 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1906 handle_focus_event_1 (f, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1907 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1908 /* If there is a dialog box up, focus on it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1909
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1910 #### Actually, we're raising it too, which is wrong. We should
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1911 #### just focus on it, but lwlib doesn't currently give us an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1912 #### easy way to do that. This should be fixed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1913 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1914 unsigned long take_focus_timestamp = event->xclient.data.l[1];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1915 Widget widget = lw_raise_all_pop_up_widgets ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1916 if (widget)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1917 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1918 /* kludge: raise_all returns bottommost widget, but we really
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1919 want the topmost. So just raise it for now. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1920 XMapRaised (XtDisplay (widget), XtWindow (widget));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1921 /* Grab the focus with the timestamp of the TAKE_FOCUS. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1922 XSetInputFocus (XtDisplay (widget), XtWindow (widget),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1923 RevertToParent, take_focus_timestamp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1924 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1925 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1926 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1927 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1928
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1929 /* #### I'm struggling to understand how the X event loop really works.
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1930 Here is the problem:
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1931
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1932 When widgets get mapped / changed etc the actual display updates
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1933 are done asynchronously via X events being processed - this
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1934 normally happens when XtAppProcessEvent() gets called. However, if
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1935 we are executing lisp code or even doing redisplay we won't
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1936 necessarily process X events for a very long time. This has the
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1937 effect of widgets only getting updated when XEmacs only goes into
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1938 idle, or some other event causes processing of the X event queue.
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1939
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1940 XtAppProcessEvent can get called from the following places:
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1941
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1942 emacs_Xt_next_event () - this is normal event processing, almost
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1943 any non-X event will take precedence and this means that we
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1944 cannot rely on it to do the right thing at the right time for
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1945 widget display.
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1946
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1947 drain_X_queue () - this happens when SIGIO gets tripped,
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1948 processing the event queue allows C-g to be checked for. It gets
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1949 called from emacs_Xt_event_pending_p ().
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1950
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1951 In order to solve this I have tried introducing a list primitive -
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1952 dispatch-non-command-events - which forces processing of X events
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1953 related to display. Unfortunately this has a number of problems,
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1954 one is that it is possible for event_stream_event_pending_p to
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1955 block for ever if there isn't actually an event. I guess this can
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1956 happen if we drop the synthetic event for reason. It also relies on
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1957 SIGIO processing which makes things rather fragile.
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1958
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1959 People have seen behaviour whereby XEmacs blocks until you move the
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1960 mouse. This seems to indicate that dispatch-non-command-events is
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1961 blocking. It may be that in a SIGIO world forcing SIGIO processing
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1962 does the wrong thing.
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1963 */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1964 static void
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1965 emacs_Xt_force_event_pending (struct frame *f)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1966 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1967 XEvent event;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1968
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1969 Display *dpy = DEVICE_X_DISPLAY (XDEVICE (FRAME_DEVICE (f)));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1970 event.xclient.type = ClientMessage;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1971 event.xclient.display = dpy;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1972 event.xclient.message_type = XInternAtom (dpy, "BumpQueue", False);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1973 event.xclient.format = 32;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1974 event.xclient.window = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1975
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1976 /* Send the drop message */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1977 XSendEvent(dpy, XtWindow (FRAME_X_SHELL_WIDGET (f)),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1978 True, NoEventMask, &event);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1979 /* We rely on SIGIO and friends to realise we have generated an
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1980 event. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1981 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1982
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1983 static void
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1984 emacs_Xt_format_magic_event (Lisp_Event *event, Lisp_Object pstream)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1985 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1986 Lisp_Object console = CDFW_CONSOLE (EVENT_CHANNEL (event));
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1987 if (CONSOLE_X_P (XCONSOLE (console)))
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 801
diff changeset
1988 write_c_string
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1989 #ifdef USE_KKCC
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1990 (pstream, x_event_name ((XMAGIC_DATA_X_EVENT (EVENT_DATA(event))).type));
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1991 #else /* not USE_KKCC */
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 801
diff changeset
1992 (pstream, x_event_name (event->event.magic.underlying_x_event.type));
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1993 #endif /* not USE_KKCC */
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1994 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1995
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1996 static int
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1997 emacs_Xt_compare_magic_event (Lisp_Event *e1, Lisp_Event *e2)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1998 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1999 if (CONSOLE_X_P (XCONSOLE (CDFW_CONSOLE (EVENT_CHANNEL (e1)))) &&
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2000 CONSOLE_X_P (XCONSOLE (CDFW_CONSOLE (EVENT_CHANNEL (e2)))))
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2001 #ifdef USE_KKCC
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2002 return ((XMAGIC_DATA_X_EVENT (EVENT_DATA(e1))).xany.serial ==
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2003 (XMAGIC_DATA_X_EVENT (EVENT_DATA(e2))).xany.serial);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2004 #else /* not USE_KKCC */
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2005 return (e1->event.magic.underlying_x_event.xany.serial ==
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2006 e2->event.magic.underlying_x_event.xany.serial);
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2007 #endif /* not USE_KKCC */
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2008 if (CONSOLE_X_P (XCONSOLE (CDFW_CONSOLE (EVENT_CHANNEL (e1)))) ||
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2009 CONSOLE_X_P (XCONSOLE (CDFW_CONSOLE (EVENT_CHANNEL (e2)))))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2010 return 0;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2011 return 1;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2012 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2013
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2014 static Hashcode
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2015 emacs_Xt_hash_magic_event (Lisp_Event *e)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2016 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2017 Lisp_Object console = CDFW_CONSOLE (EVENT_CHANNEL (e));
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2018 if (CONSOLE_X_P (XCONSOLE (console)))
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2019 #ifdef USE_KKCC
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2020 return (XMAGIC_DATA_X_EVENT (EVENT_DATA(e))).xany.serial;
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2021 #else /* not USE_KKCC */
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2022 return e->event.magic.underlying_x_event.xany.serial;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2023 #endif /* not USE_KKCC */
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2024 return 0;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2025 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2026
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2027 static void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2028 emacs_Xt_handle_magic_event (Lisp_Event *emacs_event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2029 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2030 /* This function can GC */
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2031 #ifdef USE_KKCC
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2032 XEvent *event = &XMAGIC_DATA_X_EVENT (EVENT_DATA(emacs_event));
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2033 #else /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2034 XEvent *event = &emacs_event->event.magic.underlying_x_event;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2035 #endif /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2036 struct frame *f = XFRAME (EVENT_CHANNEL (emacs_event));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2037
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2038 if (!FRAME_LIVE_P (f) || DEVICE_X_BEING_DELETED (XDEVICE (FRAME_DEVICE (f))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2039 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2040
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2041 switch (event->type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2042 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2043 case SelectionRequest:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2044 x_handle_selection_request (&event->xselectionrequest);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2045 break;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2046
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2047 case SelectionClear:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2048 x_handle_selection_clear (&event->xselectionclear);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2049 break;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2050
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2051 case SelectionNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2052 x_handle_selection_notify (&event->xselection);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2053 break;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2054
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2055 case PropertyNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2056 x_handle_property_notify (&event->xproperty);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2057 break;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2058
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2059 case Expose:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2060 if (!check_for_ignored_expose (f, event->xexpose.x, event->xexpose.y,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2061 event->xexpose.width, event->xexpose.height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2062 &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2063 !find_matching_subwindow (f, event->xexpose.x, event->xexpose.y,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2064 event->xexpose.width, event->xexpose.height))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2065 x_redraw_exposed_area (f, event->xexpose.x, event->xexpose.y,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2066 event->xexpose.width, event->xexpose.height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2067 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2068
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2069 case GraphicsExpose: /* This occurs when an XCopyArea's source area was
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2070 obscured or not available. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2071 x_redraw_exposed_area (f, event->xexpose.x, event->xexpose.y,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2072 event->xexpose.width, event->xexpose.height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2073 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2074
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2075 case MapNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2076 case UnmapNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2077 handle_map_event (f, event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2078 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2079
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2080 case EnterNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2081 if (event->xcrossing.detail != NotifyInferior)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2082 {
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
2083 Lisp_Object frame = wrap_frame (f);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
2084
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2085 /* FRAME_X_MOUSE_P (f) = 1; */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2086 va_run_hook_with_args (Qmouse_enter_frame_hook, 1, frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2087 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2088 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2089
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2090 case LeaveNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2091 if (event->xcrossing.detail != NotifyInferior)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2092 {
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
2093 Lisp_Object frame = wrap_frame (f);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
2094
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2095 /* FRAME_X_MOUSE_P (f) = 0; */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2096 va_run_hook_with_args (Qmouse_leave_frame_hook, 1, frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2097 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2098 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2099
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2100 case FocusIn:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2101 case FocusOut:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2102
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2103 #ifdef EXTERNAL_WIDGET
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2104 /* External widget lossage: Ben said:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2105 YUCK. The only way to make focus changes work properly is to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2106 completely ignore all FocusIn/FocusOut events and depend only
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2107 on notifications from the ExternalClient widget. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2108 if (FRAME_X_EXTERNAL_WINDOW_P (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2109 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2110 #endif
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
2111 handle_focus_event_2 (event->xfocus.window, f, event->type == FocusIn);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2112 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2113
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2114 case ClientMessage:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2115 handle_client_message (f, event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2116 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2117
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2118 case VisibilityNotify: /* window visibility has changed */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2119 if (event->xvisibility.window == XtWindow (FRAME_X_SHELL_WIDGET (f)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2120 {
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
2121 /* See comment in handle_map_event */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
2122 update_frame_iconify_status (f);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
2123
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
2124 /* #### Ben suggests rewriting the code below using
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
2125 x_frame_window_state (f). */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2126 FRAME_X_TOTALLY_VISIBLE_P (f) =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2127 (event->xvisibility.state == VisibilityUnobscured);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2128 /* Note that the fvwm pager only sends VisibilityNotify when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2129 changing pages. Is this all we need to do ? JV */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2130 /* Nope. We must at least trigger a redisplay here.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2131 Since this case seems similar to MapNotify, I've
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2132 factored out some code to change_frame_visibility().
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2133 This triggers the necessary redisplay and runs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2134 (un)map-frame-hook. - dkindred@cs.cmu.edu */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2135 /* Changed it again to support the tristate visibility flag */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2136 change_frame_visibility (f, (event->xvisibility.state
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2137 != VisibilityFullyObscured) ? 1 : -1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2138 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2139 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2140
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2141 case ConfigureNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2142 #ifdef HAVE_XIM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2143 XIM_SetGeometry (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2144 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2145 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2146
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2147 case CreateNotify:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2148 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2149
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2150 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2151 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2152 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2153 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2154
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2155
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2156 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2157 /* timeout events */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2158 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2159
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2160 static int timeout_id_tick;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2161
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2162 /* Xt interval id's might not fit into an int (they're pointers, as it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2163 happens), so we need to provide a conversion list. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2164
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2165 static struct Xt_timeout
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2166 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2167 int id;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2168 XtIntervalId interval_id;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2169 struct Xt_timeout *next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2170 } *pending_timeouts, *completed_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2171
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2172 static struct Xt_timeout_blocktype
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2173 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2174 Blocktype_declare (struct Xt_timeout);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2175 } *the_Xt_timeout_blocktype;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2176
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2177 /* called by XtAppNextEvent() */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2178 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2179 Xt_timeout_callback (XtPointer closure, XtIntervalId *id)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2180 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2181 struct Xt_timeout *timeout = (struct Xt_timeout *) closure;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2182 struct Xt_timeout *t2 = pending_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2183 /* Remove this one from the list of pending timeouts */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2184 if (t2 == timeout)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2185 pending_timeouts = pending_timeouts->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2186 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2187 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2188 while (t2->next && t2->next != timeout) t2 = t2->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2189 assert (t2->next);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2190 t2->next = t2->next->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2191 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2192 /* Add this one to the list of completed timeouts */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2193 timeout->next = completed_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2194 completed_timeouts = timeout;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2195 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2196
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2197 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2198 emacs_Xt_add_timeout (EMACS_TIME thyme)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2199 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2200 struct Xt_timeout *timeout = Blocktype_alloc (the_Xt_timeout_blocktype);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2201 EMACS_TIME current_time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2202 int milliseconds;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2203
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2204 timeout->id = timeout_id_tick++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2205 timeout->next = pending_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2206 pending_timeouts = timeout;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2207 EMACS_GET_TIME (current_time);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2208 EMACS_SUB_TIME (thyme, thyme, current_time);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2209 milliseconds = EMACS_SECS (thyme) * 1000 +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2210 EMACS_USECS (thyme) / 1000;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2211 if (milliseconds < 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2212 milliseconds = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2213 timeout->interval_id = XtAppAddTimeOut (Xt_app_con, milliseconds,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2214 Xt_timeout_callback,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2215 (XtPointer) timeout);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2216 return timeout->id;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2217 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2218
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2219 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2220 emacs_Xt_remove_timeout (int id)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2221 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2222 struct Xt_timeout *timeout, *t2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2223
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2224 timeout = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2225
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2226 /* Find the timeout on the list of pending ones, if it's still there. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2227 if (pending_timeouts)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2228 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2229 if (id == pending_timeouts->id)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2230 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2231 timeout = pending_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2232 pending_timeouts = pending_timeouts->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2233 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2234 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2235 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2236 t2 = pending_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2237 while (t2->next && t2->next->id != id) t2 = t2->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2238 if ( t2->next) /*found it */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2239 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2240 timeout = t2->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2241 t2->next = t2->next->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2242 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2243 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2244 /* if it was pending, we have removed it from the list */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2245 if (timeout)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2246 XtRemoveTimeOut (timeout->interval_id);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2247 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2248
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2249 /* It could be that the Xt call back was already called but we didn't convert
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2250 into an Emacs event yet */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2251 if (!timeout && completed_timeouts)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2252 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2253 /* Code duplication! */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2254 if (id == completed_timeouts->id)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2255 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2256 timeout = completed_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2257 completed_timeouts = completed_timeouts->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2258 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2259 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2260 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2261 t2 = completed_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2262 while (t2->next && t2->next->id != id) t2 = t2->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2263 if ( t2->next) /*found it */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2264 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2265 timeout = t2->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2266 t2->next = t2->next->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2267 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2268 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2269 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2270
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2271 /* If we found the thing on the lists of timeouts,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2272 and removed it, deallocate
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2273 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2274 if (timeout)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2275 Blocktype_free (the_Xt_timeout_blocktype, timeout);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2276 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2277
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2278 static void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2279 Xt_timeout_to_emacs_event (Lisp_Event *emacs_event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2280 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2281 struct Xt_timeout *timeout = completed_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2282 assert (timeout);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2283 completed_timeouts = completed_timeouts->next;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2284 /* timeout events have nil as channel */
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2285 #ifdef USE_KKCC
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2286 set_event_type(emacs_event, timeout_event);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2287 SET_EVENT_TIMESTAMP_ZERO (emacs_event); /* #### wrong!! */
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2288 XSET_TIMEOUT_DATA_INTERVAL_ID (EVENT_DATA (emacs_event), timeout->id);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2289 XSET_TIMEOUT_DATA_FUNCTION (EVENT_DATA (emacs_event), Qnil);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2290 XSET_TIMEOUT_DATA_OBJECT (EVENT_DATA (emacs_event), Qnil);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2291 #else /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2292 emacs_event->event_type = timeout_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2293 emacs_event->timestamp = 0; /* #### wrong!! */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2294 emacs_event->event.timeout.interval_id = timeout->id;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2295 emacs_event->event.timeout.function = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2296 emacs_event->event.timeout.object = Qnil;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2297 #endif /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2298 Blocktype_free (the_Xt_timeout_blocktype, timeout);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2299 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2300
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2301
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2302 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2303 /* process and tty events */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2304 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2305
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2306 struct what_is_ready_closure
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2307 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2308 int fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2309 Lisp_Object what;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2310 XtInputId id;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2311 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2312
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2313 static Lisp_Object *filedesc_with_input;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2314 static struct what_is_ready_closure **filedesc_to_what_closure;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2315
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2316 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2317 init_what_input_once (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2318 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2319 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2320
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2321 filedesc_with_input = xnew_array (Lisp_Object, MAXDESC);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2322 filedesc_to_what_closure =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2323 xnew_array (struct what_is_ready_closure *, MAXDESC);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2324
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2325 for (i = 0; i < MAXDESC; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2326 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2327 filedesc_to_what_closure[i] = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2328 filedesc_with_input[i] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2329 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2330
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2331 process_events_occurred = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2332 tty_events_occurred = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2333 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2334
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2335 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2336 mark_what_as_being_ready (struct what_is_ready_closure *closure)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2337 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2338 if (NILP (filedesc_with_input[closure->fd]))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2339 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2340 SELECT_TYPE temp_mask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2341 FD_ZERO (&temp_mask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2342 FD_SET (closure->fd, &temp_mask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2343 /* Check to make sure there's *really* input available.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2344 Sometimes things seem to get confused and this gets called
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2345 for the tty fd when there's really only input available
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2346 on some process's fd. (It will subsequently get called
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2347 for that process's fd, so returning without setting any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2348 flags will take care of it.) To see the problem, uncomment
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2349 the stderr_out below, turn NORMAL_QUIT_CHECK_TIMEOUT_MSECS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2350 down to 25, do sh -c 'xemacs -nw -q -f shell 2>/tmp/log'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2351 and press return repeatedly. (Seen under AIX & Linux.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2352 -dkindred@cs.cmu.edu */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2353 if (!poll_fds_for_input (temp_mask))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2354 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2355 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2356 stderr_out ("mark_what_as_being_ready: no input available (fd=%d)\n",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2357 closure->fd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2358 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2359 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2360 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2361 filedesc_with_input[closure->fd] = closure->what;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2362 if (PROCESSP (closure->what))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2363 /* Don't increment this if the current process is already marked
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2364 * as having input. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2365 process_events_occurred++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2366 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2367 tty_events_occurred++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2368 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2369 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2370
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2371 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2372 Xt_what_callback (void *closure, int *source, XtInputId *id)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2373 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2374 /* If closure is 0, then we got a fake event from a signal handler.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2375 The only purpose of this is to make XtAppProcessEvent() stop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2376 blocking. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2377 if (closure)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2378 mark_what_as_being_ready ((struct what_is_ready_closure *) closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2379 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2380 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2381 fake_event_occurred++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2382 drain_signal_event_pipe ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2383 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2384 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2385
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2386 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2387 select_filedesc (int fd, Lisp_Object what)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2388 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2389 struct what_is_ready_closure *closure;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2390
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2391 /* If somebody is trying to select something that's already selected
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2392 for, then something went wrong. The generic routines ought to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2393 detect this and error before here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2394 assert (!filedesc_to_what_closure[fd]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2395
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2396 closure = xnew (struct what_is_ready_closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2397 closure->fd = fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2398 closure->what = what;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2399 closure->id =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2400 XtAppAddInput (Xt_app_con, fd,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2401 (XtPointer) (XtInputReadMask /* | XtInputExceptMask */),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2402 Xt_what_callback, closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2403 filedesc_to_what_closure[fd] = closure;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2404 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2405
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2406 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2407 unselect_filedesc (int fd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2408 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2409 struct what_is_ready_closure *closure = filedesc_to_what_closure[fd];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2410
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2411 assert (closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2412 if (!NILP (filedesc_with_input[fd]))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2413 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2414 /* We are unselecting this process before we have drained the rest of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2415 the input from it, probably from status_notify() in the command loop.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2416 This can happen like so:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2417
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2418 - We are waiting in XtAppNextEvent()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2419 - Process generates output
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2420 - Process is marked as being ready
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2421 - Process dies, SIGCHLD gets generated before we return (!?)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2422 It could happen I guess.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2423 - sigchld_handler() marks process as dead
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2424 - Somehow we end up getting a new KeyPress event on the queue
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2425 at the same time (I'm really so sure how that happens but I'm
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2426 not sure it can't either so let's assume it can...).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2427 - Key events have priority so we return that instead of the proc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2428 - Before dispatching the lisp key event we call status_notify()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2429 - Which deselects the process that SIGCHLD marked as dead.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2430
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2431 Thus we never remove it from _with_input and turn it into a lisp
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2432 event, so we need to do it here. But this does not mean that we're
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2433 throwing away the last block of output - status_notify() has already
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2434 taken care of running the proc filter or whatever.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2435 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2436 filedesc_with_input[fd] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2437 if (PROCESSP (closure->what))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2438 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2439 assert (process_events_occurred > 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2440 process_events_occurred--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2441 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2442 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2443 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2444 assert (tty_events_occurred > 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2445 tty_events_occurred--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2446 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2447 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2448 XtRemoveInput (closure->id);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2449 xfree (closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2450 filedesc_to_what_closure[fd] = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2451 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2452
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2453 static void
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2454 emacs_Xt_select_process (Lisp_Process *process, int doin, int doerr)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2455 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2456 Lisp_Object proc;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2457 int infd, errfd;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2458
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2459 event_stream_unixoid_select_process (process, doin, doerr, &infd, &errfd);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2460
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2461 proc = wrap_process (process);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2462 if (doin)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2463 select_filedesc (infd, proc);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2464 if (doerr)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2465 select_filedesc (errfd, proc);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2466 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2467
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2468 static void
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2469 emacs_Xt_unselect_process (Lisp_Process *process, int doin, int doerr)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2470 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2471 int infd, errfd;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2472
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2473 event_stream_unixoid_unselect_process (process, doin, doerr, &infd, &errfd);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2474
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2475 if (doin)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2476 unselect_filedesc (infd);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2477 if (doerr)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2478 unselect_filedesc (errfd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2479 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2480
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2481 static void
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2482 emacs_Xt_create_io_streams (void *inhandle, void *outhandle,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2483 void *errhandle, Lisp_Object *instream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2484 Lisp_Object *outstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2485 Lisp_Object *errstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2486 USID *in_usid,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2487 USID *err_usid,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2488 int flags)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2489 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2490 event_stream_unixoid_create_io_streams
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2491 (inhandle, outhandle, errhandle, instream, outstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2492 errstream, in_usid, err_usid, flags);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2493 if (*in_usid != USID_ERROR)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2494 *in_usid = USID_DONTHASH;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2495 if (*err_usid != USID_ERROR)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2496 *err_usid = USID_DONTHASH;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2497 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2498
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2499 static void
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2500 emacs_Xt_delete_io_streams (Lisp_Object instream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2501 Lisp_Object outstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2502 Lisp_Object errstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2503 USID *in_usid,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2504 USID *err_usid)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2505 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2506 event_stream_unixoid_delete_io_streams
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2507 (instream, outstream, errstream, in_usid, err_usid);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2508 *in_usid = USID_DONTHASH;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2509 *err_usid = USID_DONTHASH;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2510 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2511
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2512 /* This is called from GC when a process object is about to be freed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2513 If we've still got pointers to it in this file, we're gonna lose hard.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2514 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2515 void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2516 debug_process_finalization (Lisp_Process *p)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2517 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2518 #if 0 /* #### */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2519 int i;
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2520 Lisp_Object instr, outstr, errstr;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2521
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2522 get_process_streams (p, &instr, &outstr, &errstr);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2523 /* if it still has fds, then it hasn't been killed yet. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2524 assert (NILP(instr));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2525 assert (NILP(outstr));
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2526 assert (NILP(errstr));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2527 /* Better not still be in the "with input" table; we know it's got no fds. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2528 for (i = 0; i < MAXDESC; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2529 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2530 Lisp_Object process = filedesc_fds_with_input [i];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2531 assert (!PROCESSP (process) || XPROCESS (process) != p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2532 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2533 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2534 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2535
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2536 static void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2537 Xt_process_to_emacs_event (Lisp_Event *emacs_event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2538 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2539 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2540
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2541 assert (process_events_occurred > 0);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2542
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2543 for (i = 0; i < MAXDESC; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2544 {
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2545 Lisp_Object process = filedesc_with_input[i];
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2546 if (PROCESSP (process))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2547 {
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2548 filedesc_with_input[i] = Qnil;
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2549 process_events_occurred--;
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2550 /* process events have nil as channel */
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2551 #ifdef USE_KKCC
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2552 set_event_type (emacs_event, process_event);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2553 SET_EVENT_TIMESTAMP_ZERO (emacs_event); /* #### */
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2554 XSET_PROCESS_DATA_PROCESS (EVENT_DATA (emacs_event), process);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2555 #else /* not USE_KKCC */
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2556 emacs_event->event_type = process_event;
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2557 emacs_event->timestamp = 0; /* #### */
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2558 emacs_event->event.process.process = process;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2559 #endif /* not USE_KKCC */
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2560 return;
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2561 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2562 }
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2563 abort ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2564 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2565
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2566 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2567 emacs_Xt_select_console (struct console *con)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2568 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2569 Lisp_Object console;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2570 int infd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2571
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2572 if (CONSOLE_X_P (con))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2573 return; /* X consoles are automatically selected for when we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2574 initialize them in Xt */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2575 infd = event_stream_unixoid_select_console (con);
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
2576 console = wrap_console (con);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2577 select_filedesc (infd, console);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2578 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2579
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2580 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2581 emacs_Xt_unselect_console (struct console *con)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2582 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2583 Lisp_Object console;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2584 int infd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2585
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2586 if (CONSOLE_X_P (con))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2587 return; /* X consoles are automatically selected for when we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2588 initialize them in Xt */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2589 infd = event_stream_unixoid_unselect_console (con);
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
2590 console = wrap_console (con);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2591 unselect_filedesc (infd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2592 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2593
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2594 /* read an event from a tty, if one is available. Returns non-zero
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2595 if an event was available. Note that when this function is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2596 called, there should always be a tty marked as ready for input.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2597 However, the input condition might actually be EOF, so there
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2598 may not really be any input available. (In this case,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2599 read_event_from_tty_or_stream_desc() will arrange for the TTY device
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2600 to be deleted.) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2601
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2602 static int
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2603 Xt_tty_to_emacs_event (Lisp_Event *emacs_event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2604 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2605 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2606
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2607 assert (tty_events_occurred > 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2608 for (i = 0; i < MAXDESC; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2609 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2610 Lisp_Object console = filedesc_with_input[i];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2611 if (CONSOLEP (console))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2612 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2613 assert (tty_events_occurred > 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2614 tty_events_occurred--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2615 filedesc_with_input[i] = Qnil;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
2616 if (read_event_from_tty_or_stream_desc (emacs_event,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
2617 XCONSOLE (console)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2618 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2619 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2620 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2621
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2622 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2623 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2624
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2625
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2626 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2627 /* debugging functions to decipher an event */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2628 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2629
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2630 #ifdef DEBUG_XEMACS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2631 #include "xintrinsicp.h" /* only describe_event() needs this */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2632 #include <X11/Xproto.h> /* only describe_event() needs this */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2633
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2634 static void
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2635 describe_event_window (Window window, Display *display, Lisp_Object pstream)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2636 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2637 struct frame *f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2638 Widget w;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2639 write_fmt_string (pstream, " window: 0x%lx", (unsigned long) window);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2640 w = XtWindowToWidget (display, window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2641 if (w)
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2642 write_fmt_string (pstream, " %s",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2643 w->core.widget_class->core_class.class_name);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2644 f = x_any_window_to_frame (get_device_from_display (display), window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2645 if (f)
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2646 write_fmt_string_lisp (pstream, " \"%s\"", 1, f->name);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2647 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2648 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2649
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2650 static const char *
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2651 XEvent_mode_to_string (int mode)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2652 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2653 switch (mode)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2654 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2655 case NotifyNormal: return "Normal";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2656 case NotifyGrab: return "Grab";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2657 case NotifyUngrab: return "Ungrab";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2658 case NotifyWhileGrabbed: return "WhileGrabbed";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2659 default: return "???";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2660 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2661 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2662
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2663 static const char *
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2664 XEvent_detail_to_string (int detail)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2665 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2666 switch (detail)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2667 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2668 case NotifyAncestor: return "Ancestor";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2669 case NotifyInferior: return "Inferior";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2670 case NotifyNonlinear: return "Nonlinear";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2671 case NotifyNonlinearVirtual: return "NonlinearVirtual";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2672 case NotifyPointer: return "Pointer";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2673 case NotifyPointerRoot: return "PointerRoot";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2674 case NotifyDetailNone: return "DetailNone";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2675 default: return "???";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2676 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2677 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2678
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2679 static const char *
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2680 XEvent_visibility_to_string (int state)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2681 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2682 switch (state)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2683 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2684 case VisibilityFullyObscured: return "FullyObscured";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2685 case VisibilityPartiallyObscured: return "PartiallyObscured";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2686 case VisibilityUnobscured: return "Unobscured";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2687 default: return "???";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2688 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2689 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2690
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2691 static void
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2692 describe_event (XEvent *event, Lisp_Object pstream)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2693 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2694 char buf[100];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2695 struct device *d = get_device_from_display (event->xany.display);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2696
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2697 sprintf (buf, "%s%s", x_event_name (event->type),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2698 event->xany.send_event ? " (send)" : "");
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2699 write_fmt_string (pstream, "%-30s", buf);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2700 switch (event->type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2701 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2702 case FocusIn:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2703 case FocusOut:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2704 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2705 XFocusChangeEvent *ev = &event->xfocus;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2706 describe_event_window (ev->window, ev->display, pstream);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2707 write_fmt_string (pstream, " mode: %s\n",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2708 XEvent_mode_to_string (ev->mode));
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2709 write_fmt_string (pstream, " detail: %s\n",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2710 XEvent_detail_to_string (ev->detail));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2711 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2712 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2713
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2714 case KeyPress:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2715 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2716 XKeyEvent *ev = &event->xkey;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2717 unsigned int state = ev->state;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2718
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2719 describe_event_window (ev->window, ev->display, pstream);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2720 write_fmt_string (pstream, " subwindow: %ld\n", ev->subwindow);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2721 write_fmt_string (pstream, " state: ");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2722 /* Complete list of modifier key masks */
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2723 if (state & ShiftMask) write_fmt_string (pstream, "Shift ");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2724 if (state & LockMask) write_fmt_string (pstream, "Lock ");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2725 if (state & ControlMask) write_fmt_string (pstream, "Control ");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2726 if (state & Mod1Mask) write_fmt_string (pstream, "Mod1 ");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2727 if (state & Mod2Mask) write_fmt_string (pstream, "Mod2 ");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2728 if (state & Mod3Mask) write_fmt_string (pstream, "Mod3 ");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2729 if (state & Mod4Mask) write_fmt_string (pstream, "Mod4 ");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2730 if (state & Mod5Mask) write_fmt_string (pstream, "Mod5 ");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2731
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2732 if (! state)
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2733 write_fmt_string (pstream, "vanilla\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2734 else
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2735 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2736 if (x_key_is_modifier_p (ev->keycode, d))
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2737 write_fmt_string (pstream, " Modifier key");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2738 write_fmt_string (pstream, " keycode: 0x%x\n", ev->keycode);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2739 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2740 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2741
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2742 case Expose:
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2743 if (debug_x_events > 1)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2744 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2745 XExposeEvent *ev = &event->xexpose;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2746 describe_event_window (ev->window, ev->display, pstream);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2747 write_fmt_string (pstream,
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2748 " region: x=%d y=%d width=%d height=%d\n",
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2749 ev->x, ev->y, ev->width, ev->height);
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2750 write_fmt_string (pstream, " count: %d\n", ev->count);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2751 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2752 else
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2753 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2754 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2755
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2756 case GraphicsExpose:
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2757 if (debug_x_events > 1)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2758 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2759 XGraphicsExposeEvent *ev = &event->xgraphicsexpose;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2760 describe_event_window (ev->drawable, ev->display, pstream);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2761 write_fmt_string (pstream, " major: %s\n",
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2762 (ev ->major_code == X_CopyArea ? "CopyArea" :
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2763 (ev->major_code == X_CopyPlane ? "CopyPlane" : "?")));
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2764 write_fmt_string (pstream,
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2765 " region: x=%d y=%d width=%d height=%d\n",
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2766 ev->x, ev->y, ev->width, ev->height);
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2767 write_fmt_string (pstream, " count: %d\n", ev->count);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2768 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2769 else
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2770 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2771 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2772
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2773 case EnterNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2774 case LeaveNotify:
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2775 if (debug_x_events > 1)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2776 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2777 XCrossingEvent *ev = &event->xcrossing;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2778 describe_event_window (ev->window, ev->display, pstream);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2779 #if 0
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2780 write_fmt_string (pstream, " subwindow: 0x%x\n", ev->subwindow);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2781 write_fmt_string (pstream, " pos: %d %d\n", ev->x, ev->y);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2782 write_fmt_string (pstream, " root pos: %d %d\n", ev->x_root,
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2783 ev->y_root);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2784 #endif
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2785 write_fmt_string (pstream, " mode: %s\n",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2786 XEvent_mode_to_string(ev->mode));
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2787 write_fmt_string (pstream, " detail: %s\n",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2788 XEvent_detail_to_string(ev->detail));
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2789 write_fmt_string (pstream, " focus: %d\n", ev->focus);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2790 #if 0
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2791 write_fmt_string (pstream, " state: 0x%x\n", ev->state);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2792 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2793 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2794 else
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2795 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2796 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2797
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2798 case ConfigureNotify:
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2799 if (debug_x_events > 1)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2800 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2801 XConfigureEvent *ev = &event->xconfigure;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2802 describe_event_window (ev->window, ev->display, pstream);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2803 write_fmt_string (pstream, " above: 0x%lx\n", ev->above);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2804 write_fmt_string (pstream, " size: %d %d %d %d\n", ev->x, ev->y,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2805 ev->width, ev->height);
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2806 write_fmt_string (pstream, " redirect: %d\n",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2807 ev->override_redirect);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2808 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2809 else
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2810 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2811 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2812
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2813 case VisibilityNotify:
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2814 if (debug_x_events > 1)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2815 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2816 XVisibilityEvent *ev = &event->xvisibility;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2817 describe_event_window (ev->window, ev->display, pstream);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2818 write_fmt_string (pstream, " state: %s\n",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2819 XEvent_visibility_to_string (ev->state));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2820 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2821 else
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2822 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2823 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2824
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2825 case ClientMessage:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2826 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2827 XClientMessageEvent *ev = &event->xclient;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2828 char *name = XGetAtomName (ev->display, ev->message_type);
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2829 write_fmt_string (pstream, "%s", name);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2830 if (!strcmp (name, "WM_PROTOCOLS"))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2831 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2832 char *protname = XGetAtomName (ev->display, ev->data.l[0]);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2833 write_fmt_string (pstream, "(%s)", protname);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2834 XFree (protname);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2835 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2836 XFree (name);
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2837 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2838 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2839 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2840
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2841 default:
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2842 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2843 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2844 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2845
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2846 fflush (stdout);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2847 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2848
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2849 #endif /* include describe_event definition */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2850
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2851
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2852 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2853 /* get the next event from Xt */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2854 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2855
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2856 static Lisp_Object dispatch_event_queue, dispatch_event_queue_tail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2857
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2858 void
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2859 enqueue_Xt_dispatch_event (Lisp_Object event)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2860 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2861 enqueue_event (event, &dispatch_event_queue, &dispatch_event_queue_tail);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2862 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2863
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2864 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2865 dequeue_Xt_dispatch_event (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2866 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2867 return dequeue_event (&dispatch_event_queue, &dispatch_event_queue_tail);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2868 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2869
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2870 /* This business exists because menu events "happen" when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2871 menubar_selection_callback() is called from somewhere deep
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2872 within XtAppProcessEvent in emacs_Xt_next_event(). The
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2873 callback needs to terminate the modal loop in that function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2874 or else it will continue waiting until another event is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2875 received.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2876
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2877 Same business applies to scrollbar events. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2878
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2879 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2880 signal_special_Xt_user_event (Lisp_Object channel, Lisp_Object function,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2881 Lisp_Object object)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2882 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2883 Lisp_Object event = Fmake_event (Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2884
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2885 #ifdef USE_KKCC
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2886 XSET_EVENT_TYPE (event, misc_user_event);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2887 XSET_EVENT_CHANNEL (event, channel);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2888 XSET_MISC_USER_DATA_FUNCTION (XEVENT_DATA (event), function);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2889 XSET_MISC_USER_DATA_OBJECT (XEVENT_DATA (event), object);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2890 #else /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2891 XEVENT (event)->event_type = misc_user_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2892 XEVENT (event)->channel = channel;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2893 XEVENT (event)->event.eval.function = function;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2894 XEVENT (event)->event.eval.object = object;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2895 #endif /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2896 enqueue_Xt_dispatch_event (event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2897 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2898
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2899 static void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2900 emacs_Xt_next_event (Lisp_Event *emacs_event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2901 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2902 we_didnt_get_an_event:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2903
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2904 while (NILP (dispatch_event_queue) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2905 !completed_timeouts &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2906 !fake_event_occurred &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2907 !process_events_occurred &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2908 !tty_events_occurred)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2909 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2910
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2911 /* Stupid logic in XtAppProcessEvent() dictates that, if process
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2912 events and X events are both available, the process event gets
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2913 taken first. This will cause an infinite loop if we're being
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2914 called from Fdiscard_input().
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2915 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2916 if (XtAppPending (Xt_app_con) & XtIMXEvent)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2917 XtAppProcessEvent (Xt_app_con, XtIMXEvent);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2918 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2919 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2920 Lisp_Object devcons, concons;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2921
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2922 /* We're about to block. Xt has a bug in it (big surprise,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2923 there) in that it blocks using select() and doesn't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2924 flush the Xlib output buffers (XNextEvent() does this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2925 automatically before blocking). So it's necessary
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2926 for us to do this ourselves. If we don't do it, then
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2927 display output may not be seen until the next time
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2928 an X event is received. (This happens esp. with
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2929 subprocess output that gets sent to a visible buffer.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2930
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2931 #### The above comment may not have any validity. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2932
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2933 DEVICE_LOOP_NO_BREAK (devcons, concons)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2934 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2935 struct device *d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2936 d = XDEVICE (XCAR (devcons));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2937
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2938 if (DEVICE_X_P (d) && DEVICE_X_DISPLAY (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2939 /* emacs may be exiting */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2940 XFlush (DEVICE_X_DISPLAY (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2941 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2942 XtAppProcessEvent (Xt_app_con, XtIMAll);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2943 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2944 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2945
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2946 if (!NILP (dispatch_event_queue))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2947 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2948 Lisp_Object event, event2;
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
2949 event2 = wrap_event (emacs_event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2950 event = dequeue_Xt_dispatch_event ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2951 Fcopy_event (event, event2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2952 Fdeallocate_event (event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2953 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2954 else if (tty_events_occurred)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2955 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2956 if (!Xt_tty_to_emacs_event (emacs_event))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2957 goto we_didnt_get_an_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2958 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2959 else if (completed_timeouts)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2960 Xt_timeout_to_emacs_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2961 else if (fake_event_occurred)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2962 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2963 /* A dummy event, so that a cycle of the command loop will occur. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2964 fake_event_occurred = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2965 /* eval events have nil as channel */
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2966 #ifdef USE_KKCC
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2967 set_event_type (emacs_event, eval_event);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2968 XSET_EVAL_DATA_FUNCTION (EVENT_DATA (emacs_event), Qidentity);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2969 XSET_EVAL_DATA_OBJECT (EVENT_DATA (emacs_event), Qnil);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2970 #else /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2971 emacs_event->event_type = eval_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2972 emacs_event->event.eval.function = Qidentity;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2973 emacs_event->event.eval.object = Qnil;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2974 #endif /* not USE_KKCC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2975 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2976 else /* if (process_events_occurred) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2977 Xt_process_to_emacs_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2978
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2979 /* No need to call XFilterEvent; Xt does it for us */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2980 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2981
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2982 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2983 emacs_Xt_event_handler (Widget wid /* unused */,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2984 XtPointer closure /* unused */,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2985 XEvent *event,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2986 Boolean *continue_to_dispatch /* unused */)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2987 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2988 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2989
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2990 #ifdef DEBUG_XEMACS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2991 if (debug_x_events > 0)
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2992 describe_event (event, Qexternal_debugging_output);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2993 #endif /* DEBUG_XEMACS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2994 if (x_event_to_emacs_event (event, XEVENT (emacs_event)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2995 enqueue_Xt_dispatch_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2996 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2997 Fdeallocate_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2998 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2999
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3000
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3001 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3002 /* input pending / C-g checking */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3003 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3004
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3005 static Bool
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3006 quit_char_predicate (Display *display, XEvent *event, XPointer data)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3007 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3008 struct device *d = get_device_from_display (display);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3009 struct x_device *xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3010 char c, quit_char;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3011 Bool *critical = (Bool *) data;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3012 Lisp_Object keysym;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3013
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3014 if (critical)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3015 *critical = False;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3016 if ((event->type != KeyPress) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3017 (! x_any_window_to_frame (d, event->xany.window)) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3018 (event->xkey.state
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3019 & (xd->MetaMask | xd->HyperMask | xd->SuperMask | xd->AltMask)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3020 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3021
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3022 /* This duplicates some code that exists elsewhere, but it's relatively
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3023 fast and doesn't cons. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3024 keysym = x_to_emacs_keysym (&event->xkey, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3025 if (NILP (keysym)) return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3026 if (CHAR_OR_CHAR_INTP (keysym))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3027 c = XCHAR_OR_CHAR_INT (keysym);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3028 /* Highly doubtful that these are the quit character, but... */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3029 else if (EQ (keysym, QKbackspace)) c = '\b';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3030 else if (EQ (keysym, QKtab)) c = '\t';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3031 else if (EQ (keysym, QKlinefeed)) c = '\n';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3032 else if (EQ (keysym, QKreturn)) c = '\r';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3033 else if (EQ (keysym, QKescape)) c = 27;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3034 else if (EQ (keysym, QKspace)) c = ' ';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3035 else if (EQ (keysym, QKdelete)) c = 127;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3036 else return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3037
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3038 if (event->xkey.state & xd->MetaMask) c |= 0x80;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3039 if ((event->xkey.state & ControlMask) && !(c >= 'A' && c <= 'Z'))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3040 c &= 0x1F; /* unshifted control characters */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3041 quit_char = CONSOLE_QUIT_CHAR (XCONSOLE (DEVICE_CONSOLE (d)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3042 if (c == quit_char)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3043 return True;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3044 /* If we've got Control-Shift-G instead of Control-G, that means
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3045 we have a critical_quit. Caps_Lock is its own modifier, so it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3046 won't cause ^G to act differently than before. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3047 if (event->xkey.state & ControlMask) c &= 0x1F;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3048 if (c == quit_char)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3049 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3050 if (critical) *critical = True;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3051 return True;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3052 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3053 return False;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3054 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3055
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3056 /* This scans the X input queue for a KeyPress event that matches the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3057 quit character, and sets Vquit_flag. This is called from the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3058 QUIT macro to determine whether we should quit.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3059
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3060 In a SIGIO world, this won't be called unless a SIGIO has happened
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3061 since the last time we checked.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3062
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3063 In a non-SIGIO world, this is called from emacs_Xt_event_pending_p
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3064 (which is called from input_pending_p).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3065 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3066 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3067 x_check_for_quit_char (Display *display)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3068 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3069 XEvent event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3070 int queued;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3071 Bool critical_quit = False;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3072 XEventsQueued (display, QueuedAfterReading);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3073 queued = XCheckIfEvent (display, &event,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3074 quit_char_predicate,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3075 (char *) &critical_quit);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3076 if (queued)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3077 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3078 Vquit_flag = (critical_quit ? Qcritical : Qt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3079 /* don't put the event back onto the queue. Those functions that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3080 wanted to read a ^G directly have arranged to do this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3081 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3082 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3083
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3084 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3085 check_for_tty_quit_char (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3086 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3087 SELECT_TYPE temp_mask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3088 int infd = DEVICE_INFD (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3089 struct console *con = XCONSOLE (DEVICE_CONSOLE (d));
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3090 Ichar quit_char = CONSOLE_QUIT_CHAR (con);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3091
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3092 FD_ZERO (&temp_mask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3093 FD_SET (infd, &temp_mask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3094
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3095 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3096 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3097 Lisp_Object event;
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3098 Ichar the_char;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3099
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3100 if (!poll_fds_for_input (temp_mask))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3101 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3102
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3103 event = Fmake_event (Qnil, Qnil);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
3104 if (!read_event_from_tty_or_stream_desc (XEVENT (event), con))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3105 /* EOF, or something ... */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3106 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3107 /* #### bogus. quit-char should be allowed to be any sort
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3108 of event. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3109 the_char = event_to_character (XEVENT (event), 1, 0, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3110 if (the_char >= 0 && the_char == quit_char)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3111 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3112 Vquit_flag = Qt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3113 /* do not queue the C-g. See above. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3114 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3115 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3116
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3117 /* queue the read event to be read for real later. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3118 enqueue_Xt_dispatch_event (event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3119 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3120 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3121
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3122 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3123 emacs_Xt_quit_p (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3124 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3125 Lisp_Object devcons, concons;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3126 CONSOLE_LOOP (concons)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3127 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3128 struct console *con = XCONSOLE (XCAR (concons));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3129 if (!con->input_enabled)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3130 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3131
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3132 CONSOLE_DEVICE_LOOP (devcons, con)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3133 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3134 struct device *d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3135 d = XDEVICE (XCAR (devcons));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3136
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3137 if (DEVICE_X_P (d) && DEVICE_X_DISPLAY (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3138 /* emacs may be exiting */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3139 x_check_for_quit_char (DEVICE_X_DISPLAY (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3140 else if (DEVICE_TTY_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3141 check_for_tty_quit_char (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3142 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3143 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3144 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3145
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3146 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3147 drain_X_queue (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3148 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3149 while (XtAppPending (Xt_app_con) & XtIMXEvent)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3150 XtAppProcessEvent (Xt_app_con, XtIMXEvent);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3151 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3152
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3153 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3154 emacs_Xt_event_pending_p (int user_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3155 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3156 Lisp_Object event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3157 int tick_count_val;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3158
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3159 /* If `user_p' is false, then this function returns whether there are any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3160 X, timeout, or fd events pending (that is, whether emacs_Xt_next_event()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3161 would return immediately without blocking).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3162
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3163 if `user_p' is true, then this function returns whether there are any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3164 *user generated* events available (that is, whether there are keyboard
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3165 or mouse-click events ready to be read). This also implies that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3166 emacs_Xt_next_event() would not block.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3167
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3168 In a non-SIGIO world, this also checks whether the user has typed ^G,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3169 since this is a convenient place to do so. We don't need to do this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3170 in a SIGIO world, since input causes an interrupt.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3171 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3172
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3173 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3174 /* I don't think there's any point to this and it will nullify
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3175 the speed gains achieved by the sigio_happened checking below.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3176 Its only advantage is that it may possibly make C-g response
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3177 a bit faster. The C-g will be noticed within 0.25 second, anyway,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3178 even without this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3179 #ifndef SIGIO
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3180 /* First check for C-g if necessary */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3181 emacs_Xt_quit_p ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3182 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3183 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3184
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3185 /* This function used to simply check whether there were any X
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3186 events (or if user_p was 1, it iterated over all the pending
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3187 X events using XCheckIfEvent(), looking for keystrokes and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3188 button events). That worked in the old cheesoid event loop,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3189 which didn't go through XtAppDispatchEvent(), but it doesn't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3190 work any more -- X events may not result in anything. For
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3191 example, a button press in a blank part of the menubar appears
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3192 as an X event but will not result in any Emacs events (a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3193 button press that activates the menubar results in an Emacs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3194 event through the stop_next_event mechanism).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3195
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3196 The only accurate way of determining whether these X events
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3197 translate into Emacs events is to go ahead and dispatch them
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3198 until there's something on the dispatch queue. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3199
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3200 /* See if there are any user events already on the queue. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3201 EVENT_CHAIN_LOOP (event, dispatch_event_queue)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3202 if (!user_p || command_event_p (event))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3203 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3204
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3205 /* See if there's any TTY input available.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3206 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3207 if (poll_fds_for_input (tty_only_mask))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3208 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3209
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3210 if (!user_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3211 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3212 /* If not user_p and there are any timer or file-desc events
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3213 pending, we know there will be an event so we're through. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3214 XtInputMask pending_value;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3215
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3216 /* Note that formerly we just checked the value of XtAppPending()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3217 to determine if there was file-desc input. This doesn't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3218 work any more with the signal_event_pipe; XtAppPending()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3219 will says "yes" in this case but there isn't really any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3220 input. Another way of fixing this problem is for the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3221 signal_event_pipe to generate actual input in the form
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3222 of an identity eval event or something. (#### maybe this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3223 actually happens?) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3224
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3225 if (poll_fds_for_input (process_only_mask))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3226 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3227
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3228 pending_value = XtAppPending (Xt_app_con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3229
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3230 if (pending_value & XtIMTimer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3231 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3232 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3233
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3234 /* XtAppPending() can be super-slow, esp. over a network connection.
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
3235 Quantify results have indicated that in some cases the call to
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
3236 detect_input_pending() completely dominates the running time of
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
3237 redisplay(). Fortunately, in a SIGIO world we can more quickly
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
3238 determine whether there are any X events: if an event has
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
3239 happened since the last time we checked, then a SIGIO will have
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
3240 happened. On a machine with broken SIGIO, we'll still be in an
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
3241 OK state -- quit_check_signal_tick_count will get ticked at least
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
3242 every 1/4 second, so we'll be no more than that much behind
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
3243 reality. (In general it's OK if we erroneously report no input
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
3244 pending when input is actually pending() -- preemption is just a
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
3245 bit less efficient, that's all. It's bad bad bad if you err the
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
3246 other way -- you've promised that `next-event' won't block but it
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
3247 actually will, and some action might get delayed until the next
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
3248 time you hit a key.)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3249 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3250
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3251 /* quit_check_signal_tick_count is volatile so try to avoid race conditions
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3252 by using a temporary variable */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3253 tick_count_val = quit_check_signal_tick_count;
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
3254 if (last_quit_check_signal_tick_count != tick_count_val
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
3255 #if !defined (SIGIO) || defined (CYGWIN)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
3256 || (XtIMXEvent & XtAppPending (Xt_app_con))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
3257 #endif
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
3258 )
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3259 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3260 last_quit_check_signal_tick_count = tick_count_val;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3261
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3262 /* We need to drain the entire queue now -- if we only
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3263 drain part of it, we may later on end up with events
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3264 actually pending but detect_input_pending() returning
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3265 false because there wasn't another SIGIO. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3266 drain_X_queue ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3267
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3268 EVENT_CHAIN_LOOP (event, dispatch_event_queue)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3269 if (!user_p || command_event_p (event))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3270 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3271 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3272
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3273 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3274 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3275
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3276 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3277 emacs_Xt_current_event_timestamp (struct console *c)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3278 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3279 /* semi-yuck. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3280 Lisp_Object devs = CONSOLE_DEVICE_LIST (c);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3281
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3282 if (NILP (devs))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3283 return 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3284 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3285 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3286 struct device *d = XDEVICE (XCAR (devs));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3287 return DEVICE_X_LAST_SERVER_TIMESTAMP (d);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3288 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3289 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3290
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3291
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3292 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3293 /* replacement for standard string-to-pixel converter */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3294 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3295
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3296 /* This was constructed by ripping off the standard string-to-pixel
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3297 converter from Converters.c in the Xt source code and modifying
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3298 appropriately. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3299
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3300 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3301
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3302 /* This is exported by the Xt library (at least by mine). If this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3303 isn't the case somewhere, rename this appropriately and remove
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3304 the '#if 0'. Note, however, that I got "unknown structure"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3305 errors when I tried this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3306 XtConvertArgRec Const colorConvertArgs[] = {
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3307 { XtWidgetBaseOffset, (XtPointer)XtOffsetOf(WidgetRec, core.screen),
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3308 sizeof (Screen *) },
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3309 { XtWidgetBaseOffset, (XtPointer)XtOffsetOf(WidgetRec, core.colormap),
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3310 sizeof (Colormap) }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3311 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3312
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3313 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3314
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3315 #define done(type, value) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3316 if (toVal->addr != NULL) { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3317 if (toVal->size < sizeof(type)) { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3318 toVal->size = sizeof(type); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3319 return False; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3320 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3321 *(type*)(toVal->addr) = (value); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3322 } else { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3323 static type static_val; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3324 static_val = (value); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3325 toVal->addr = (XPointer)&static_val; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3326 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3327 toVal->size = sizeof(type); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3328 return True /* Caller supplies `;' */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3329
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3330 /* JH: We use this because I think there's a possibility this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3331 is called before the device is properly set up, in which case
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3332 I don't want to abort. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3333 extern struct device *get_device_from_display_1 (Display *dpy);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3334
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3335 static
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3336 Boolean EmacsXtCvtStringToPixel (
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3337 Display *dpy,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3338 XrmValuePtr args,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3339 Cardinal *num_args,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3340 XrmValuePtr fromVal,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3341 XrmValuePtr toVal,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3342 XtPointer *closure_ret)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3343 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3344 String str = (String)fromVal->addr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3345 XColor screenColor;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3346 XColor exactColor;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3347 Screen *screen;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3348 Colormap colormap;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3349 Visual *visual;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3350 struct device *d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3351 Status status;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3352 String params[1];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3353 Cardinal num_params = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3354 XtAppContext the_app_con = XtDisplayToApplicationContext (dpy);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3355
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3356 if (*num_args != 2) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3357 XtAppWarningMsg(the_app_con, "wrongParameters", "cvtStringToPixel",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3358 "XtToolkitError",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3359 "String to pixel conversion needs screen and colormap arguments",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3360 (String *)NULL, (Cardinal *)NULL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3361 return False;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3362 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3363
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3364 screen = *((Screen **) args[0].addr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3365 colormap = *((Colormap *) args[1].addr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3366
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3367 /* The original uses the private function CompareISOLatin1().
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3368 Use XmuCompareISOLatin1() if you want, but I don't think it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3369 makes any difference here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3370 if (strcmp(str, XtDefaultBackground) == 0) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3371 *closure_ret = False;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3372 /* This refers to the display's "*reverseVideo" resource.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3373 These display resources aren't documented anywhere that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3374 I can find, so I'm going to ignore this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3375 /* if (pd->rv) done(Pixel, BlackPixelOfScreen(screen)) else */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3376 done(Pixel, WhitePixelOfScreen(screen));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3377 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3378 if (strcmp(str, XtDefaultForeground) == 0) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3379 *closure_ret = False;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3380 /* if (pd->rv) done(Pixel, WhitePixelOfScreen(screen)) else */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3381 done(Pixel, BlackPixelOfScreen(screen));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3382 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3383
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3384 /* Originally called XAllocNamedColor() here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3385 if ((d = get_device_from_display_1(dpy))) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3386 visual = DEVICE_X_VISUAL(d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3387 if (colormap != DEVICE_X_COLORMAP(d)) {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3388 XtAppWarningMsg(the_app_con, "weirdColormap", "cvtStringToPixel",
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3389 "XtToolkitWarning",
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3390 "The colormap passed to cvtStringToPixel doesn't match the one registered to the device.\n",
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3391 NULL, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3392 status = XAllocNamedColor(dpy, colormap, (char*)str, &screenColor, &exactColor);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3393 } else {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3394 status = XParseColor (dpy, colormap, (char*)str, &screenColor);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3395 if (status) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3396 status = allocate_nearest_color (dpy, colormap, visual, &screenColor);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3397 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3398 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3399 } else {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3400 /* We haven't set up this device totally yet, so just punt */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3401 status = XAllocNamedColor(dpy, colormap, (char*)str, &screenColor, &exactColor);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3402 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3403 if (status == 0) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3404 params[0] = str;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3405 /* Server returns a specific error code but Xlib discards it. Ugh */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3406 if (XLookupColor(DisplayOfScreen(screen), colormap, (char*) str,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3407 &exactColor, &screenColor)) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3408 XtAppWarningMsg(the_app_con, "noColormap", "cvtStringToPixel",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3409 "XtToolkitError",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3410 "Cannot allocate colormap entry for \"%s\"",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3411 params, &num_params);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3412
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3413 } else {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3414 XtAppWarningMsg(the_app_con, "badValue", "cvtStringToPixel",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3415 "XtToolkitError",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3416 "Color name \"%s\" is not defined", params, &num_params);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3417 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3418
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3419 *closure_ret = False;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3420 return False;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3421 } else {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3422 *closure_ret = (char*)True;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3423 done(Pixel, screenColor.pixel);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3424 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3425 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3426
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3427 /* ARGSUSED */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3428 static void EmacsFreePixel (
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3429 XtAppContext app,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3430 XrmValuePtr toVal,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3431 XtPointer closure,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3432 XrmValuePtr args,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3433 Cardinal *num_args)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3434 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3435 if (*num_args != 2) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3436 XtAppWarningMsg(app, "wrongParameters","freePixel","XtToolkitError",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3437 "Freeing a pixel requires screen and colormap arguments",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3438 (String *)NULL, (Cardinal *)NULL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3439 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3440 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3441
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3442 if (closure) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3443 Screen *screen = *((Screen **) args[0].addr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3444 Colormap colormap = *((Colormap *) args[1].addr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3445 XFreeColors(DisplayOfScreen(screen), colormap,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3446 (unsigned long*)toVal->addr, 1, (unsigned long)0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3447 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3448 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3449
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3450
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3451 /************************************************************************/
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3452 /* handle focus changes for native widgets */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3453 /************************************************************************/
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3454 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3455 emacs_Xt_event_widget_focus_in (Widget w,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3456 XEvent *event,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3457 String *params,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3458 Cardinal *num_params)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3459 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
3460 struct frame *f =
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3461 x_any_widget_or_parent_to_frame (get_device_from_display (event->xany.display), w);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3462
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3463 XtSetKeyboardFocus (FRAME_X_SHELL_WIDGET (f), w);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3464 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3465
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3466 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3467 emacs_Xt_event_widget_focus_out (Widget w,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3468 XEvent *event,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3469 String *params,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3470 Cardinal *num_params)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3471 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3472 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3473
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3474 static XtActionsRec widgetActionsList[] =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3475 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3476 {"widget-focus-in", emacs_Xt_event_widget_focus_in },
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3477 {"widget-focus-out", emacs_Xt_event_widget_focus_out },
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3478 };
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3479
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3480 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3481 emacs_Xt_event_add_widget_actions (XtAppContext ctx)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3482 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3483 XtAppAddActions (ctx, widgetActionsList, 2);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3484 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3485
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3486
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3487 /************************************************************************/
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3488 /* initialization */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3489 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3490
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3491 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3492 syms_of_event_Xt (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3493 {
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 502
diff changeset
3494 DEFSYMBOL (Qkey_mapping);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 502
diff changeset
3495 DEFSYMBOL (Qsans_modifiers);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 502
diff changeset
3496 DEFSYMBOL (Qself_insert_command);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3497 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3498
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3499 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3500 reinit_vars_of_event_Xt (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3501 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3502 Xt_event_stream = xnew (struct event_stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3503 Xt_event_stream->event_pending_p = emacs_Xt_event_pending_p;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3504 Xt_event_stream->force_event_pending = emacs_Xt_force_event_pending;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3505 Xt_event_stream->next_event_cb = emacs_Xt_next_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3506 Xt_event_stream->handle_magic_event_cb = emacs_Xt_handle_magic_event;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
3507 Xt_event_stream->format_magic_event_cb = emacs_Xt_format_magic_event;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
3508 Xt_event_stream->compare_magic_event_cb= emacs_Xt_compare_magic_event;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
3509 Xt_event_stream->hash_magic_event_cb = emacs_Xt_hash_magic_event;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3510 Xt_event_stream->add_timeout_cb = emacs_Xt_add_timeout;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3511 Xt_event_stream->remove_timeout_cb = emacs_Xt_remove_timeout;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3512 Xt_event_stream->select_console_cb = emacs_Xt_select_console;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3513 Xt_event_stream->unselect_console_cb = emacs_Xt_unselect_console;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3514 Xt_event_stream->select_process_cb = emacs_Xt_select_process;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3515 Xt_event_stream->unselect_process_cb = emacs_Xt_unselect_process;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3516 Xt_event_stream->quit_p_cb = emacs_Xt_quit_p;
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
3517 Xt_event_stream->create_io_streams_cb = emacs_Xt_create_io_streams;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
3518 Xt_event_stream->delete_io_streams_cb = emacs_Xt_delete_io_streams;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3519 Xt_event_stream->current_event_timestamp_cb =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3520 emacs_Xt_current_event_timestamp;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3521
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3522 the_Xt_timeout_blocktype = Blocktype_new (struct Xt_timeout_blocktype);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3523
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3524 last_quit_check_signal_tick_count = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3525
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3526 /* this function only makes safe calls */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3527 init_what_input_once ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3528 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3529
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3530 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3531 vars_of_event_Xt (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3532 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3533 reinit_vars_of_event_Xt ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3534
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3535 dispatch_event_queue = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3536 staticpro (&dispatch_event_queue);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3537 dispatch_event_queue_tail = Qnil;
452
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
3538 dump_add_root_object (&dispatch_event_queue_tail);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3539
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3540 DEFVAR_BOOL ("x-allow-sendevents", &x_allow_sendevents /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3541 *Non-nil means to allow synthetic events. Nil means they are ignored.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3542 Beware: allowing emacs to process SendEvents opens a big security hole.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3543 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3544 x_allow_sendevents = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3545
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3546 #ifdef DEBUG_XEMACS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3547 DEFVAR_INT ("debug-x-events", &debug_x_events /*
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3548 If non-zero, display debug information about X events that XEmacs sees.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3549 Information is displayed on stderr. Currently defined values are:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3550
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3551 1 == non-verbose output
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3552 2 == verbose output
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3553 */ );
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3554 debug_x_events = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3555 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3556 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3557
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3558 /* This mess is a hack that patches the shell widget to treat visual inheritance
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3559 the same as colormap and depth inheritance */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3560
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3561 static XtInitProc orig_shell_init_proc;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3562
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3563 static void ShellVisualPatch(Widget wanted, Widget new,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3564 ArgList args, Cardinal *num_args)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3565 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3566 Widget p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3567 ShellWidget w = (ShellWidget) new;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3568
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3569 /* first, call the original setup */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3570 (*orig_shell_init_proc)(wanted, new, args, num_args);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3571
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3572 /* if the visual isn't explicitly set, grab it from the nearest shell ancestor */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3573 if (w->shell.visual == CopyFromParent) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3574 p = XtParent(w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3575 while (p && !XtIsShell(p)) p = XtParent(p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3576 if (p) w->shell.visual = ((ShellWidget)p)->shell.visual;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3577 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3578 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3579
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3580 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3581 init_event_Xt_late (void) /* called when already initialized */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3582 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3583 timeout_id_tick = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3584 pending_timeouts = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3585 completed_timeouts = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3586
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3587 event_stream = Xt_event_stream;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3588
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3589 XtToolkitInitialize ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3590 Xt_app_con = XtCreateApplicationContext ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3591 XtAppSetFallbackResources (Xt_app_con, (String *) x_fallback_resources);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3592
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3593 /* In select-x.c */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3594 x_selection_timeout = (XtAppGetSelectionTimeout (Xt_app_con) / 1000);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3595 XSetErrorHandler (x_error_handler);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3596 XSetIOErrorHandler (x_IO_error_handler);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3597
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3598 #ifndef WIN32_NATIVE
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3599 XtAppAddInput (Xt_app_con, signal_event_pipe[0],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3600 (XtPointer) (XtInputReadMask /* | XtInputExceptMask */),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3601 Xt_what_callback, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3602 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3603
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3604 XtAppSetTypeConverter (Xt_app_con, XtRString, XtRPixel,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3605 EmacsXtCvtStringToPixel,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3606 (XtConvertArgList) colorConvertArgs,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3607 2, XtCacheByDisplay, EmacsFreePixel);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3608
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3609 #ifdef XIM_XLIB
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3610 XtAppSetTypeConverter (Xt_app_con, XtRString, XtRXimStyles,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3611 EmacsXtCvtStringToXIMStyles,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3612 NULL, 0,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3613 XtCacheByDisplay, EmacsFreeXIMStyles);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3614 #endif /* XIM_XLIB */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3615 /* Add extra actions to native widgets to handle focus and friends. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3616 emacs_Xt_event_add_widget_actions (Xt_app_con);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3617
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3618 /* insert the visual inheritance patch/hack described above */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3619 orig_shell_init_proc = shellClassRec.core_class.initialize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3620 shellClassRec.core_class.initialize = ShellVisualPatch;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3621
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3622 }