annotate src/event-Xt.c @ 872:79c6ff3eef26

[xemacs-hg @ 2002-06-20 21:18:01 by ben] font changes etc.; some 21.4 changes mule/mule-msw-init-late.el: Specify charset->windows-registry conversion. mule/mule-x-init.el: Delete extra mule font additions here. Put them in faces.c. cl-macs.el: Document better. font-lock.el: Move Lisp function regexp to lisp-mode.el. lisp-mode.el: Various indentation fixes: Handle flet functions better. Handle argument lists in defuns and flets. Handle quoted lists, e.g. property lists -- don't indent like function calls. Distinguish between lambdas and other lists. lisp-mode.el: Handle this form. faces.el, font-menu.el, font.el, gtk-faces.el, msw-faces.el, msw-font-menu.el, x-faces.el, x-init.el: Major overhaul of face-handling code: -- Fix lots of bogus code in msw-faces.el, msw-font-menu.el, font-menu.el that was "truenaming" font specs -- i.e. in the process of frobbing a particular field in a general user-specified font spec with wildcarded fields, sticking in particular values for all the remaining wildcarded fields. This bug was rampant everywhere except in x-faces.el (the oldest and only correctly written code). This also means that we need to work with font names at all times and not font instances, because a font instance is essentially a truenamed font. -- Total rewrite of extremely junky code in msw-faces.el. Work with names as well as font instances, and return names; stop truenaming when canonicalizing and frobbing; fix handling of the combined style field, i.e. weight/slant (also fixed in font.el). -- Totally rewrite the frobbing functions in faces.el. This time, we frob all the instantiators rather than just computing a single instance value and working backwards. That way, e.g., `bold' will work for all charsets that have bold available, rather than only for whatever charset was part of the computed font instance (another example of the truename virus). Also fix up code to look at the fallbacks (all of them) when no global value present, so we don't need to put something in the global value. Intelligently handle a request to frob a buffer locale, rather than signalling an error. When frobbing instantiators, try hard to figure out what device type is associated with them, and frob each according to its own proper device type. Correctly handle inheritance vectors given as instantiators. Preserve existing tags when putting back frobbed instantiators. Extract out general specifier-frobbing code into specifier.el. Document everything cleanly. Do lots of other things better, etc. -- Don't duplicatively set a global specification for the default font -- it's already in the fallback and we no longer need a default global specification present. Delete various code in x-faces.el and msw-faces.el that duplicated the lists of fonts in faces.c. -- init-global-faces was not being called at all under MS Windows! Major bogosity. That caused device-specific values to get stuck into all the fonts, making it very hard to change them -- setting global specs caused nothing to happen. -- Correct weight names in font.el. -- Lots more font fixups in objects*.c. Printer.el: Warning fix. specifier.el: Add more args to map-specifier. Add various "heuristic" specifier functions to aid in creation of specifier-munging code such as in faces.el. subr.el: New functions. lwlib.c: Fix warning. config.inc.samp: Clean up, add args to control fastcall (not yet supported! the changes needed are in another ws of mine), profile support, vc6 support, union-type. xemacs.dsp, xemacs.mak: Semi-major overhaul. Fix bug where dump-id was always getting recomputed, forcing a redump even when nothing changed. Add support for fastcall. Support edit-and-continue (on by default) with vc6. Use incremental linking when doing a debug compilation. Add support for profiling. Consolidate the various debug flags. Partial support for "batch-compiling" -- compiling many files on a single invocation of the compiler. Doesn't seem to help that much for me, so it's not finished or enabled by default. Remove HAVE_MSW_C_DIRED, we always do. Correct some sloppy use of directories. s/cygwin32.h: Allow pdump to work under Cygwin (mmap is broken, so need to undefine HAVE_MMAP). s/win32-common.h, s/windowsnt.h: Support for fastcall. Add WIN32_ANY for identifying all Win32 variants (Cygwin, native, MinGW). Both of these are properly used in another ws. alloc.c, balloon-x.c, buffer.c, bytecode.c, callint.c, cm.c, cmdloop.c, cmds.c, console-gtk.c, console-gtk.h, console-msw.c, console-msw.h, console-stream.c, console-stream.h, console-tty.c, console-tty.h, console-x.c, console-x.h, console.c, console.h, device-gtk.c, device-msw.c, device-tty.c, device-x.c, device.c, device.h, devslots.h, dialog-gtk.c, dialog-msw.c, dialog-x.c, dialog.c, dired-msw.c, editfns.c, emacs.c, event-Xt.c, event-gtk.c, event-msw.c, event-stream.c, event-tty.c, event-unixoid.c, events.c, extents.c, extents.h, faces.c, fileio.c, fns.c, frame-gtk.c, frame-msw.c, frame-tty.c, frame-x.c, frame.c, frame.h, glyphs-eimage.c, glyphs-gtk.c, glyphs-msw.c, glyphs-widget.c, glyphs-x.c, glyphs.c, glyphs.h, gui-gtk.c, gui-msw.c, gui-x.c, gui.c, gutter.c, input-method-xlib.c, intl-encap-win32.c, intl-win32.c, keymap.c, lisp.h, macros.c, menubar-gtk.c, menubar-msw.c, menubar-x.c, menubar.c, menubar.h, minibuf.c, mule-charset.c, nt.c, objects-gtk.c, objects-gtk.h, objects-msw.c, objects-msw.h, objects-tty.c, objects-tty.h, objects-x.c, objects-x.h, objects.c, objects.h, postgresql.c, print.c, process.h, redisplay-gtk.c, redisplay-msw.c, redisplay-output.c, redisplay-tty.c, redisplay-x.c, redisplay.c, redisplay.h, scrollbar-gtk.c, scrollbar-msw.c, scrollbar-x.c, scrollbar.c, select-gtk.c, select-msw.c, select-x.c, select.c, signal.c, sound.c, specifier.c, symbols.c, syntax.c, sysdep.c, syssignal.h, syswindows.h, toolbar-common.c, toolbar-gtk.c, toolbar-msw.c, toolbar-x.c, toolbar.c, unicode.c, window.c, window.h: The following are the major changes made: (1) Separation of various header files into an external and an internal version, similar to the existing separation of process.h and procimpl.h. Eventually this should be done for all Lisp objects. The external version has the same name as currently; the internal adds -impl. The external file has XFOO() macros for objects, but the structure is opaque and defined only in the internal file. It's now reasonable to move all prototypes in lisp.h into the appropriate external file, and this should be done. Currently, separation has been done on extents.h, objects*.h, console.h, device.h, frame.h, and window.h. For c/d/f/w, the most basic properties are available in the external header file, with the macros resolving to functions. In the internal header file, the macros are redefined to directly access the structure. Also, the global MARK_FOO_CHANGED macros have been made into functions so that they can be accessed without needing to include lots of -impl headers -- they are used in almost exclusively in non-time-critical functions, and take up enough time that the function overhead will be negligible. Similarly, the function overhead from making the basic properties mentioned above into functions is negligible, and code that does heavy accessing of c/d/f/w structures inevitably ends up needing the internal header files, anyway. (2) More face changes. -- Major rewrite of objects-msw.c. Now handles wildcard specs properly, rather than "truenaming" (or even worse, signalling an error, which previously happened with some of the fallbacks if you tried to use them in make-font-instance!). -- Split charset matching of fonts into two stages -- one to find a font specifically designed for a particular charset (by examining its registry), the second to find a Unicode font that can support the charset. This needs to proceed as two complete, separate instantiations in order to work properly (otherwise many of the fonts in the HELLO page look wrong). This should also make it easy to support iso10646 (Unicode) fonts under X. -- All default values for fonts are now completely specified in the fallbacks. Stuff from mule-x-init.el has all been moved here, merged with the existing specs, and totally rethought so you get sensible results. (HELLO now looks much better!). -- Generalize the "default X/GTK device" stuff into a per-device-type "default device". -- Add mswindows-{set-}charset-registry. In time, charset<->code-page conversion functions will be removed. -- Wrap protective code around calls to compute device specifier tags, and do this computation before calling the face initialization code because the latter may need these tags to be correctly updated. (3) Other changes. EmacsFrame.c, glyphs-msw.c, eval.c, gui-x.c, intl-encap-win32.c, search.c, signal.c, toolbar-msw.c, unicode.c: Warning fixes. config.h.in: #undefs meant to be frobbed by configure *MUST* go inside of #ifndef WIN32_NO_CONFIGURE, and everything else *MUST* go outside! eval.c: Let detailed backtraces be detailed. specifier.c: Don't override user's print-string-length/print-length settings. glyphs.c: New function image-instance-instantiator. config.h.in, sysdep.c: Changes for fastcall. sysdep.c, nt.c: Fix up a previous botched patch that tried to add support for both EEXIST and EACCES. IF THE BOTCHED PATCH WENT INTO 21.4, THIS FIXUP NEEDS TO GO IN, TOO. search.c: Fix *evil* crash due to incorrect synching of syntax-cache code with 21.1. THIS SHOULD GO INTO 21.4.
author ben
date Thu, 20 Jun 2002 21:19:10 +0000
parents 804517e16990
children c925bacdda60
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;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
314 Fput (symbol, Qascii_character, character);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
315 if (NILP (Flookup_key (Vcurrent_global_map, symbol, Qnil)))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
316 Fdefine_key (Vcurrent_global_map, symbol, Qself_insert_command);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
317 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
318 }
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 static void
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
321 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
322 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
323 KeySym upper_lower[2];
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
324 int j;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
325
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
326 if (keysym < 0x80) /* Optimize for ASCII keysyms */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
327 return;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
328
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
329 /* If you execute:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
330 xmodmap -e 'keysym NN = scaron'
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
331 and then press (Shift scaron), X11 will return the different
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
332 keysym `Scaron', but `xmodmap -pke' might not even mention `Scaron'.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
333 So we "register" both `scaron' and `Scaron'. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
334 #ifdef HAVE_XCONVERTCASE
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
335 XConvertCase (keysym, &upper_lower[0], &upper_lower[1]);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
336 #else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
337 upper_lower[0] = upper_lower[1] = keysym;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
338 #endif
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
339
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
340 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
341 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
342 char *name;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
343 keysym = upper_lower[j];
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
344
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
345 name = XKeysymToString (keysym);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
346 if (name)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
347 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
348 /* X guarantees NAME to be in the Host Portable Character Encoding */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
349 Lisp_Object sym = x_keysym_to_emacs_keysym (keysym, 0);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
350 Lisp_Object new_value = with_modifiers ? Qt : Qsans_modifiers;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
351 Lisp_Object old_value = Fgethash (sym, hash_table, Qnil);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
352
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
353 if (! EQ (old_value, new_value)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
354 && ! (EQ (old_value, Qsans_modifiers) &&
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
355 EQ (new_value, Qt)))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
356 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
357 maybe_define_x_key_as_self_inserting_character (keysym, sym);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
358 Fputhash (build_ext_string (name, Qbinary), new_value, hash_table);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
359 Fputhash (sym, new_value, hash_table);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
360 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
361 }
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
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
365 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
366 x_reset_key_mapping (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
367 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
368 Display *display = DEVICE_X_DISPLAY (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
369 struct x_device *xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
370 KeySym *keysym, *keysym_end;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
371 Lisp_Object hash_table;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
372 int key_code_count, keysyms_per_code;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
373
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
374 if (xd->x_keysym_map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
375 XFree ((char *) xd->x_keysym_map);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376 XDisplayKeycodes (display,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
377 &xd->x_keysym_map_min_code,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 &xd->x_keysym_map_max_code);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379 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
380 xd->x_keysym_map =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
381 XGetKeyboardMapping (display, xd->x_keysym_map_min_code, key_code_count,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
382 &xd->x_keysym_map_keysyms_per_code);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
383
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
384 hash_table = xd->x_keysym_map_hash_table;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385 if (HASH_TABLEP (hash_table))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386 Fclrhash (hash_table);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
388 xd->x_keysym_map_hash_table = hash_table =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
389 make_lisp_hash_table (128, HASH_TABLE_NON_WEAK, HASH_TABLE_EQUAL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
390
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
391 for (keysym = xd->x_keysym_map,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
392 keysyms_per_code = xd->x_keysym_map_keysyms_per_code,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
393 keysym_end = keysym + (key_code_count * keysyms_per_code);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
394 keysym < keysym_end;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
395 keysym += keysyms_per_code)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
396 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
397 int j;
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 if (keysym[0] == NoSymbol)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
400 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
401
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
402 x_has_keysym (keysym[0], hash_table, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
403
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
404 for (j = 1; j < keysyms_per_code; j++)
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 if (keysym[j] != keysym[0] &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
407 keysym[j] != NoSymbol)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
408 x_has_keysym (keysym[j], hash_table, 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
409 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
410 }
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
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
413 static const char *
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
414 index_to_name (int indice)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
415 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
416 switch (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 case ShiftMapIndex: return "ModShift";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
419 case LockMapIndex: return "ModLock";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
420 case ControlMapIndex: return "ModControl";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
421 case Mod1MapIndex: return "Mod1";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
422 case Mod2MapIndex: return "Mod2";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
423 case Mod3MapIndex: return "Mod3";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
424 case Mod4MapIndex: return "Mod4";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
425 case Mod5MapIndex: return "Mod5";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
426 default: return "???";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
427 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
428 }
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 /* Boy, I really wish C had local functions... */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
431 struct c_doesnt_have_closures /* #### not yet used */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
432 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
433 int warned_about_overlapping_modifiers;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
434 int warned_about_predefined_modifiers;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
435 int warned_about_duplicate_modifiers;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
436 int meta_bit;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
437 int hyper_bit;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
438 int super_bit;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
439 int alt_bit;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
440 int mode_bit;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
441 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
442
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
443 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
444 x_reset_modifier_mapping (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
445 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
446 Display *display = DEVICE_X_DISPLAY (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
447 struct x_device *xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
448 int modifier_index, modifier_key, column, mkpm;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
449 int warned_about_overlapping_modifiers = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
450 int warned_about_predefined_modifiers = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
451 int warned_about_duplicate_modifiers = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
452 int meta_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
453 int hyper_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
454 int super_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
455 int alt_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
456 int mode_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
457
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
458 xd->lock_interpretation = 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 if (xd->x_modifier_keymap)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
461 XFreeModifiermap (xd->x_modifier_keymap);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
462
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
463 x_reset_key_mapping (d);
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 xd->x_modifier_keymap = XGetModifierMapping (display);
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 /* Boy, I really wish C had local functions...
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
470 /* 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
471 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
472 it, but the backslash does). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
473
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
474 #define modwarn(name,old,other) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
475 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
476 name, code, index_to_name (old), other), \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
477 warned_about_overlapping_modifiers = 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
478
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
479 #define modbarf(name,other) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
480 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
481 name, code, other), \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
482 warned_about_predefined_modifiers = 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
483
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
484 #define check_modifier(name,mask) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
485 if ((1<<modifier_index) != mask) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
486 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
487 name, code, index_to_name (modifier_index)), \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
488 warned_about_predefined_modifiers = 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
489
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
490 #define store_modifier(name,old) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
491 if (old && old != modifier_index) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
492 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
493 name, code, index_to_name (old), \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
494 index_to_name (modifier_index)), \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
495 warned_about_duplicate_modifiers = 1; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
496 if (modifier_index == ShiftMapIndex) modbarf (name,"ModShift"); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
497 else if (modifier_index == LockMapIndex) modbarf (name,"ModLock"); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
498 else if (modifier_index == ControlMapIndex) modbarf (name,"ModControl"); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
499 else if (sym == XK_Mode_switch) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500 mode_bit = modifier_index; /* Mode_switch is special, see below... */ \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501 else if (modifier_index == meta_bit && old != meta_bit) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
502 modwarn (name, meta_bit, "Meta"); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
503 else if (modifier_index == super_bit && old != super_bit) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
504 modwarn (name, super_bit, "Super"); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
505 else if (modifier_index == hyper_bit && old != hyper_bit) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
506 modwarn (name, hyper_bit, "Hyper"); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
507 else if (modifier_index == alt_bit && old != alt_bit) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
508 modwarn (name, alt_bit, "Alt"); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
509 else \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
510 old = modifier_index;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
511
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
512 mkpm = xd->x_modifier_keymap->max_keypermod;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
513 for (modifier_index = 0; modifier_index < 8; modifier_index++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
514 for (modifier_key = 0; modifier_key < mkpm; modifier_key++) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
515 KeySym last_sym = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
516 for (column = 0; column < 4; column += 2) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
517 KeyCode code = xd->x_modifier_keymap->modifiermap[modifier_index * mkpm
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
518 + modifier_key];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
519 KeySym sym = (code ? XKeycodeToKeysym (display, code, column) : 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
520 if (sym == last_sym) continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
521 last_sym = sym;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
522 switch (sym) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
523 case XK_Mode_switch:store_modifier ("Mode_switch", mode_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
524 case XK_Meta_L: store_modifier ("Meta_L", meta_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
525 case XK_Meta_R: store_modifier ("Meta_R", meta_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
526 case XK_Super_L: store_modifier ("Super_L", super_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
527 case XK_Super_R: store_modifier ("Super_R", super_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
528 case XK_Hyper_L: store_modifier ("Hyper_L", hyper_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
529 case XK_Hyper_R: store_modifier ("Hyper_R", hyper_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
530 case XK_Alt_L: store_modifier ("Alt_L", alt_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
531 case XK_Alt_R: store_modifier ("Alt_R", alt_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
532 case XK_Control_L: check_modifier ("Control_L", ControlMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
533 case XK_Control_R: check_modifier ("Control_R", ControlMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
534 case XK_Shift_L: check_modifier ("Shift_L", ShiftMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
535 case XK_Shift_R: check_modifier ("Shift_R", ShiftMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
536 case XK_Shift_Lock: check_modifier ("Shift_Lock", LockMask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
537 xd->lock_interpretation = XK_Shift_Lock; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
538 case XK_Caps_Lock: check_modifier ("Caps_Lock", LockMask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
539 xd->lock_interpretation = XK_Caps_Lock; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
540
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
541 /* 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
542 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
543 assigns modifier bits to a couple of random function keys for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
544 no reason that I can discern, so printing a warning here would
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
545 be annoying. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
546 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
547 }
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 #undef store_modifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
550 #undef check_modifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
551 #undef modwarn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
552 #undef modbarf
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
553
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
554 /* 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
555 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
556 is not disturbed and remains an Alt key. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
557 if (! meta_bit && alt_bit)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
558 meta_bit = alt_bit, alt_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
559
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
560 /* mode_bit overrides everything, since it's processed down inside of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
561 XLookupString() instead of by us. If Meta and Mode_switch both
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
562 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
563 interpret that bit as Meta, because we can't make XLookupString()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
564 not interpret it as Mode_switch; and interpreting it as both would
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
565 be totally wrong. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
566 if (mode_bit)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
567 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
568 const char *warn = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
569 if (mode_bit == meta_bit) warn = "Meta", meta_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
570 else if (mode_bit == hyper_bit) warn = "Hyper", hyper_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
571 else if (mode_bit == super_bit) warn = "Super", super_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
572 else if (mode_bit == alt_bit) warn = "Alt", alt_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
573 if (warn)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
574 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
575 warn_when_safe
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
576 (Qkey_mapping, Qwarning,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
577 "XEmacs: %s is being used for both Mode_switch and %s.",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
578 index_to_name (mode_bit), warn),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
579 warned_about_overlapping_modifiers = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
580 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
581 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
582 #undef index_to_name
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 xd->MetaMask = (meta_bit ? (1 << meta_bit) : 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
585 xd->HyperMask = (hyper_bit ? (1 << hyper_bit) : 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
586 xd->SuperMask = (super_bit ? (1 << super_bit) : 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
587 xd->AltMask = (alt_bit ? (1 << alt_bit) : 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
588 xd->ModeMask = (mode_bit ? (1 << mode_bit) : 0); /* unused */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
589
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
590
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
591 if (warned_about_overlapping_modifiers)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
592 warn_when_safe (Qkey_mapping, Qwarning, "\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
593 " Two distinct modifier keys (such as Meta and Hyper) cannot generate\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
594 " 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
595 " 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
596 " 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
597 " 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
598 " 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
599 " same keysym as well as the same modifier bit.");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
600
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
601 if (warned_about_predefined_modifiers)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
602 warn_when_safe (Qkey_mapping, Qwarning, "\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
603 " The semantics of the modifier bits ModShift, ModLock, and ModControl\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
604 " 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
605 " 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
606 " bits to the \"control\" keysyms other than ModControl. You can't\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
607 " 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
608 " 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
609 " key generate an appropriate keysym (Control_L, Meta_L, etc).");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
610
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
611 /* No need to say anything more for warned_about_duplicate_modifiers. */
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 if (warned_about_overlapping_modifiers || warned_about_predefined_modifiers)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
614 warn_when_safe (Qkey_mapping, Qwarning, "\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
615 " The meanings of the modifier bits Mod1 through Mod5 are determined\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
616 " 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
617 " mean Meta, although some non-ICCCM-compliant programs assume that.");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
618 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
619
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
620 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
621 x_init_modifier_mapping (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
622 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
623 struct x_device *xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
624 xd->x_keysym_map_hash_table = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
625 xd->x_keysym_map = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
626 xd->x_modifier_keymap = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
627 x_reset_modifier_mapping (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
628 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
629
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
630 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
631 x_key_is_modifier_p (KeyCode keycode, struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
632 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
633 struct x_device *xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
634 KeySym *syms;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
635 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
636
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
637 if (keycode < xd->x_keysym_map_min_code ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
638 keycode > xd->x_keysym_map_max_code)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
639 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
640
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
641 syms = &xd->x_keysym_map [(keycode - xd->x_keysym_map_min_code) *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
642 xd->x_keysym_map_keysyms_per_code];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
643 for (i = 0; i < xd->x_keysym_map_keysyms_per_code; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
644 if (IsModifierKey (syms [i]) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
645 syms [i] == XK_Mode_switch) /* why doesn't IsModifierKey count this? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
646 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
647 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
648 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
649
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
650 /* key-handling code is always ugly. It just ends up working out
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
651 that way.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
652
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
653 Here are some pointers:
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 -- DOWN_MASK indicates which modifiers should be treated as "down"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
656 when the corresponding upstroke happens. It gets reset for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
657 a particular modifier when that modifier goes up, and reset
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
658 for all modifiers when a non-modifier key is pressed. Example:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
659
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
660 I press Control-A-Shift and then release Control-A-Shift.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
661 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
662
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
663 -- LAST_DOWNKEY and RELEASE_TIME are used to keep track of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
664 auto-repeat -- see below.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
665
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
666 -- If a modifier key is sticky, I can unstick it by pressing
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
667 the modifier key again. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
668
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
669 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
670 x_handle_sticky_modifiers (XEvent *ev, struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
671 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
672 struct x_device *xd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
673 KeyCode keycode;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
674 int type;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
675
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
676 if (!modifier_keys_are_sticky) /* Optimize for non-sticky modifiers */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
677 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
678
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
679 xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
680 keycode = ev->xkey.keycode;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
681 type = ev->type;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
682
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
683 if (keycode < xd->x_keysym_map_min_code ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
684 keycode > xd->x_keysym_map_max_code)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
685 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
686
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
687 if (! ((type == KeyPress || type == KeyRelease) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
688 x_key_is_modifier_p (keycode, d)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
689 { /* Not a modifier key */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
690 Bool key_event_p = (type == KeyPress || type == KeyRelease);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
691
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
692 if (type == ButtonPress
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
693 || (type == KeyPress
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
694 && ((xd->last_downkey
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
695 && ((keycode != xd->last_downkey
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
696 || ev->xkey.time != xd->release_time)))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
697 || (INTP (Vmodifier_keys_sticky_time)
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
698 && ev->xkey.time
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
699 > (xd->modifier_release_time
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
700 + XINT (Vmodifier_keys_sticky_time))))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
701 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
702 xd->need_to_add_mask = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
703 xd->last_downkey = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
704 }
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
705 else if (type == KeyPress && !xd->last_downkey)
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
706 xd->last_downkey = keycode;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
707
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
708 if (type == KeyPress)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
709 xd->release_time = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
710 if (type == KeyPress || type == ButtonPress)
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
711 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
712 xd->down_mask = 0;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
713 xd->modifier_release_time = 0;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
714 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
715
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
716 if (key_event_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
717 ev->xkey.state |= xd->need_to_add_mask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
718 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
719 ev->xbutton.state |= xd->need_to_add_mask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
720
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
721 if (type == KeyRelease && keycode == xd->last_downkey)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
722 /* If I hold press-and-release the Control key and then press
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
723 and hold down the right arrow, I want it to auto-repeat
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
724 Control-Right. On the other hand, if I do the same but
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
725 manually press the Right arrow a bunch of times, I want
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
726 to see one Control-Right and then a bunch of Rights.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
727 This means that we need to distinguish between an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
728 auto-repeated key and a key pressed and released a bunch
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
729 of times.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
730
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
731 Naturally, the designers of the X spec didn't see fit
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
732 to provide an obvious way to distinguish these cases.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
733 So we assume that if the release and the next press
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
734 occur at the same time, the key was actually auto-
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
735 repeated. Under Open-Windows, at least, this works. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
736 xd->modifier_release_time = xd->release_time
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
737 = key_event_p ? ev->xkey.time : ev->xbutton.time;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
738 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
739 else /* Modifier key pressed */
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 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
742 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
743 xd->x_keysym_map_keysyms_per_code];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
744
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
745 /* 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
746 of modifiers, then it unsticks all the modifiers that were
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
747 previously pressed. We cannot unstick the modifiers until
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
748 now because we want to check for auto-repeat of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
749 non-modifier key. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
750
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
751 if (xd->last_downkey)
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 xd->last_downkey = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
754 xd->need_to_add_mask = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
755 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
756
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
757 if (xd->modifier_release_time
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
758 && INTP (Vmodifier_keys_sticky_time)
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
759 && (ev->xkey.time
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
760 > xd->modifier_release_time + XINT (Vmodifier_keys_sticky_time)))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
761 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
762 xd->need_to_add_mask = 0;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
763 xd->down_mask = 0;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
764 }
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
765
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
766 #define FROB(mask) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
767 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
768 if (type == KeyPress) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
769 { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
770 /* If modifier key is already sticky, \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
771 then unstick it. Note that we do \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
772 not test down_mask to deal with the \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
773 unlikely but possible case that the \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
774 modifier key auto-repeats. */ \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
775 if (xd->need_to_add_mask & mask) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
776 { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
777 xd->need_to_add_mask &= ~mask; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
778 xd->down_mask &= ~mask; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
779 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
780 else \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
781 xd->down_mask |= mask; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
782 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
783 else \
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 if (xd->down_mask & mask) \
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 xd->down_mask &= ~mask; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
788 xd->need_to_add_mask |= mask; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
789 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
790 } \
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
791 xd->modifier_release_time = ev->xkey.time; \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
792 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
793
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
794 for (i = 0; i < xd->x_keysym_map_keysyms_per_code; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
795 switch (syms[i])
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
796 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
797 case XK_Control_L: case XK_Control_R: FROB (ControlMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
798 case XK_Shift_L: case XK_Shift_R: FROB (ShiftMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
799 case XK_Meta_L: case XK_Meta_R: FROB (xd->MetaMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
800 case XK_Super_L: case XK_Super_R: FROB (xd->SuperMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
801 case XK_Hyper_L: case XK_Hyper_R: FROB (xd->HyperMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
802 case XK_Alt_L: case XK_Alt_R: FROB (xd->AltMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
803 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
804 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
805 #undef FROB
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
808 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
809 clear_sticky_modifiers (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
810 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
811 struct x_device *xd = DEVICE_X_DATA (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 xd->need_to_add_mask = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
814 xd->last_downkey = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
815 xd->release_time = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
816 xd->down_mask = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
817 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
818
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
819 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
820 keysym_obeys_caps_lock_p (KeySym sym, struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
821 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
822 struct x_device *xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
823 /* 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
824 characters, where "alphabetic" means something more than simply A-Z.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
825 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
826 But if shift-lock is down, then it does. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
827 if (xd->lock_interpretation == XK_Shift_Lock)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
828 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
829
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
830 return
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
831 ((sym >= XK_A) && (sym <= XK_Z)) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
832 ((sym >= XK_a) && (sym <= XK_z)) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
833 ((sym >= XK_Agrave) && (sym <= XK_Odiaeresis)) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
834 ((sym >= XK_agrave) && (sym <= XK_odiaeresis)) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
835 ((sym >= XK_Ooblique) && (sym <= XK_Thorn)) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
836 ((sym >= XK_oslash) && (sym <= XK_thorn));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
837 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
838
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
839 /* called from EmacsFrame.c (actually from Xt itself) when a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
840 MappingNotify event is received. In its infinite wisdom, Xt
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
841 decided that Xt event handlers never get MappingNotify events.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
842 O'Reilly Xt Programming Manual 9.1.2 says:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
843
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
844 MappingNotify is automatically handled by Xt, so it isn't passed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
845 to event handlers and you don't need to worry about it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
846
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
847 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
848 void
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
849 emacs_Xt_mapping_action (Widget w, XEvent *event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
850 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
851 struct device *d = get_device_from_display (event->xany.display);
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 if (DEVICE_X_BEING_DELETED (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
854 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
855 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
856 /* nyet. Now this is handled by Xt. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
857 XRefreshKeyboardMapping (&event->xmapping);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
858 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
859 /* xmodmap generates about a billion MappingKeyboard events, followed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
860 by a single MappingModifier event, so it might be worthwhile to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
861 take extra MappingKeyboard events out of the queue before requesting
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
862 the current keymap from the server. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
863 switch (event->xmapping.request)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
864 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
865 case MappingKeyboard: x_reset_key_mapping (d); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
866 case MappingModifier: x_reset_modifier_mapping (d); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
867 case MappingPointer: /* Do something here? */ break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
868 default: abort();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
869 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
870 }
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 /* X to Emacs event conversion */
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
877 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
878 x_keysym_to_emacs_keysym (KeySym keysym, int simple_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
879 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
880 char *name;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
881 if (keysym >= XK_exclam && keysym <= XK_asciitilde)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
882 /* We must assume that the X keysym numbers for the ASCII graphic
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
883 characters are the same as their ASCII codes. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
884 return make_char (keysym);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
885
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
886 switch (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 /* These would be handled correctly by the default case, but by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
889 special-casing them here we don't garbage a string or call
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
890 intern(). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
891 case XK_BackSpace: return QKbackspace;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
892 case XK_Tab: return QKtab;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
893 case XK_Linefeed: return QKlinefeed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
894 case XK_Return: return QKreturn;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
895 case XK_Escape: return QKescape;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
896 case XK_space: return QKspace;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
897 case XK_Delete: return QKdelete;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
898 case 0: return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
899 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
900 if (simple_p) return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
901 /* !!#### not Mule-ized */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
902 name = XKeysymToString (keysym);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
903 if (!name || !name[0])
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
904 /* This happens if there is a mismatch between the Xlib of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
905 XEmacs and the Xlib of the X server...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
906
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
907 Let's hard-code in some knowledge of common keysyms introduced
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
908 in recent X11 releases. Snarfed from X11/keysymdef.h
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
909
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
910 Probably we should add some stuff here for X11R6. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
911 switch (keysym)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
912 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
913 case 0xFF95: return KEYSYM ("kp-home");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
914 case 0xFF96: return KEYSYM ("kp-left");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
915 case 0xFF97: return KEYSYM ("kp-up");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
916 case 0xFF98: return KEYSYM ("kp-right");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
917 case 0xFF99: return KEYSYM ("kp-down");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
918 case 0xFF9A: return KEYSYM ("kp-prior");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
919 case 0xFF9B: return KEYSYM ("kp-next");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
920 case 0xFF9C: return KEYSYM ("kp-end");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
921 case 0xFF9D: return KEYSYM ("kp-begin");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
922 case 0xFF9E: return KEYSYM ("kp-insert");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
923 case 0xFF9F: return KEYSYM ("kp-delete");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
924
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
925 case 0x1005FF10: return KEYSYM ("SunF36"); /* labeled F11 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
926 case 0x1005FF11: return KEYSYM ("SunF37"); /* labeled F12 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
927 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
928 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
929 char buf [64];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
930 sprintf (buf, "unknown-keysym-0x%X", (int) keysym);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
931 return KEYSYM (buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
932 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
933 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
934 /* If it's got a one-character name, that's good enough. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
935 if (!name[1])
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
936 return make_char (name[0]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
937
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
938 /* If it's in the "Keyboard" character set, downcase it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
939 The case of those keysyms is too totally random for us to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
940 force anyone to remember them.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
941 The case of the other character sets is significant, however.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
942 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
943 if ((((unsigned int) keysym) & (~0x1FF)) == ((unsigned int) 0xFE00))
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 char buf [255];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
946 char *s1, *s2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
947 for (s1 = name, s2 = buf; *s1; s1++, s2++) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
948 if (*s1 == '_') {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
949 *s2 = '-';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
950 } else {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
951 *s2 = tolower (* (unsigned char *) s1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
952 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
953 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
954 *s2 = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
955 return KEYSYM (buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
956 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
957 return KEYSYM (name);
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 }
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 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
962 x_to_emacs_keysym (XKeyPressedEvent *event, int simple_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
963 /* simple_p means don't try too hard (ASCII only) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
964 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
965 KeySym keysym = 0;
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 #ifdef HAVE_XIM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
968 int len;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
969 /* Some implementations of XmbLookupString don't return
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
970 XBufferOverflow correctly, so increase the size of the xim input
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
971 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
972 From Kenichi Handa. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
973 char buffer[513];
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
974 char *bufptr = buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
975 int bufsiz = sizeof (buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
976 Status status;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
977 #ifdef XIM_XLIB
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
978 XIC xic = FRAME_X_XIC (x_any_window_to_frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
979 (get_device_from_display (event->display),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
980 event->window));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
981 #endif /* XIM_XLIB */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
982 #endif /* HAVE_XIM */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
983
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
984 /* We use XLookupString if we're not using XIM, or are using
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
985 XIM_XLIB but input context creation failed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
986 #if ! (defined (HAVE_XIM) && defined (XIM_MOTIF))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
987 #if defined (HAVE_XIM) && defined (XIM_XLIB)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
988 if (!xic)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
989 #endif /* XIM_XLIB */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
990 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
991 /* Apparently it's necessary to specify a dummy here (rather
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
992 than passing in 0) to avoid crashes on German IRIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
993 char dummy[256];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
994 XLookupString (event, dummy, 200, &keysym, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
995 return (IsModifierKey (keysym) || keysym == XK_Mode_switch )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
996 ? Qnil : x_keysym_to_emacs_keysym (keysym, simple_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
997 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
998 #endif /* ! XIM_MOTIF */
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 #ifdef HAVE_XIM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1001 Lookup_String: /* Come-From XBufferOverflow */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1002 #ifdef XIM_MOTIF
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1003 len = XmImMbLookupString (XtWindowToWidget (event->display, event->window),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1004 event, bufptr, bufsiz, &keysym, &status);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1005 #else /* XIM_XLIB */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1006 if (xic)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1007 len = XmbLookupString (xic, event, bufptr, bufsiz, &keysym, &status);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1008 #endif /* HAVE_XIM */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1009
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1010 #ifdef DEBUG_XEMACS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1011 if (debug_x_events > 0)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1012 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1013 stderr_out (" status=");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1014 #define print_status_when(S) if (status == S) stderr_out (#S)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1015 print_status_when (XLookupKeySym);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1016 print_status_when (XLookupBoth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1017 print_status_when (XLookupChars);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1018 print_status_when (XLookupNone);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1019 print_status_when (XBufferOverflow);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1020
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1021 if (status == XLookupKeySym || status == XLookupBoth)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1022 stderr_out (" keysym=%s", XKeysymToString (keysym));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1023 if (status == XLookupChars || status == XLookupBoth)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1024 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1025 if (len != 1)
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 int j;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1028 stderr_out (" chars=\"");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1029 for (j=0; j<len; j++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1030 stderr_out ("%c", bufptr[j]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1031 stderr_out ("\"");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1032 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1033 else if (bufptr[0] <= 32 || bufptr[0] >= 127)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1034 stderr_out (" char=0x%x", bufptr[0]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1035 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1036 stderr_out (" char=%c", bufptr[0]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1037 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1038 stderr_out ("\n");
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 #endif /* DEBUG_XEMACS */
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 switch (status)
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 case XLookupKeySym:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1045 case XLookupBoth:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1046 return (IsModifierKey (keysym) || keysym == XK_Mode_switch )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1047 ? Qnil : x_keysym_to_emacs_keysym (keysym, simple_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1048
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1049 case XLookupChars:
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 /* Generate multiple emacs events */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1052 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
1053 Ichar ch;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1054 Lisp_Object instream, fb_instream;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1055 Lstream *istr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1056 struct gcpro gcpro1, gcpro2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1057
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1058 fb_instream = make_fixed_buffer_input_stream (bufptr, len);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1059
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1060 /* #### 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
1061 instream =
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1062 make_coding_input_stream
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
1063 (XLSTREAM (fb_instream), Qundecided, CODING_DECODE, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1064
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1065 istr = XLSTREAM (instream);
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 GCPRO2 (instream, fb_instream);
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
1068 while ((ch = Lstream_get_ichar (istr)) != EOF)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1069 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1070 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1071 Lisp_Event *ev = XEVENT (emacs_event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1072 ev->channel = DEVICE_CONSOLE (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1073 ev->event_type = key_press_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1074 ev->timestamp = event->time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1075 ev->event.key.modifiers = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1076 ev->event.key.keysym = make_char (ch);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1077 enqueue_Xt_dispatch_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1078 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1079 Lstream_close (istr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1080 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1081 Lstream_delete (istr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1082 Lstream_delete (XLSTREAM (fb_instream));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1083 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1084 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1085 case XLookupNone: return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1086 case XBufferOverflow:
851
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben]
ben
parents: 826
diff changeset
1087 bufptr = (char *) ALLOCA (len+1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1088 bufsiz = len+1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1089 goto Lookup_String;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1090 }
801
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
1091 return Qnil; /* not (usually) reached */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1092 #endif /* HAVE_XIM */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1093 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1094
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1095 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1096 set_last_server_timestamp (struct device *d, XEvent *x_event)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1097 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1098 Time t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1099 switch (x_event->type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1100 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1101 case KeyPress:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1102 case KeyRelease: t = x_event->xkey.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1103 case ButtonPress:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1104 case ButtonRelease: t = x_event->xbutton.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1105 case EnterNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1106 case LeaveNotify: t = x_event->xcrossing.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1107 case MotionNotify: t = x_event->xmotion.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1108 case PropertyNotify: t = x_event->xproperty.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1109 case SelectionClear: t = x_event->xselectionclear.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1110 case SelectionRequest: t = x_event->xselectionrequest.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1111 case SelectionNotify: t = x_event->xselection.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1112 default: return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1113 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1114 DEVICE_X_LAST_SERVER_TIMESTAMP (d) = t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1115 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1116
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1117 static int
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1118 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
1119 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1120 Display *display = x_event->xany.display;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1121 struct device *d = get_device_from_display (display);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1122 struct x_device *xd = DEVICE_X_DATA (d);
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 if (DEVICE_X_BEING_DELETED (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1125 /* #### Uh, is this 0 correct? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1126 return 0;
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 set_last_server_timestamp (d, x_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1129
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1130 switch (x_event->type)
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 case KeyRelease:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1133 x_handle_sticky_modifiers (x_event, d);
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 case KeyPress:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1137 case ButtonPress:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1138 case ButtonRelease:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1139 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1140 int modifiers = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1141 int shift_p, lock_p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1142 Bool key_event_p = (x_event->type == KeyPress);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1143 unsigned int *state =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1144 key_event_p ? &x_event->xkey.state : &x_event->xbutton.state;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1145
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1146 /* If this is a synthetic KeyPress or Button event, and the user
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1147 has expressed a disinterest in this security hole, then drop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1148 it on the floor. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1149 if ((key_event_p
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1150 ? x_event->xkey.send_event
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1151 : x_event->xbutton.send_event)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1152 #ifdef EXTERNAL_WIDGET
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1153 /* ben: events get sent to an ExternalShell using XSendEvent.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1154 This is not a perfect solution. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1155 && !FRAME_X_EXTERNAL_WINDOW_P
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1156 (x_any_window_to_frame (d, x_event->xany.window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1157 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1158 && !x_allow_sendevents)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1159 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1160
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1161 DEVICE_X_MOUSE_TIMESTAMP (d) =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1162 DEVICE_X_GLOBAL_MOUSE_TIMESTAMP (d) =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1163 key_event_p ? x_event->xkey.time : x_event->xbutton.time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1164
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1165 x_handle_sticky_modifiers (x_event, d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1166
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1167 if (*state & ControlMask) modifiers |= XEMACS_MOD_CONTROL;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1168 if (*state & xd->MetaMask) modifiers |= XEMACS_MOD_META;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1169 if (*state & xd->SuperMask) modifiers |= XEMACS_MOD_SUPER;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1170 if (*state & xd->HyperMask) modifiers |= XEMACS_MOD_HYPER;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1171 if (*state & xd->AltMask) modifiers |= XEMACS_MOD_ALT;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1172 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1173 int numero_de_botao = -1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1174
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1175 if (!key_event_p)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1176 numero_de_botao = x_event->xbutton.button;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1177
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1178 /* the button gets noted either in the button or the modifiers
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1179 field, but not both. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1180 if (numero_de_botao != 1 && (*state & Button1Mask))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1181 modifiers |= XEMACS_MOD_BUTTON1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1182 if (numero_de_botao != 2 && (*state & Button2Mask))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1183 modifiers |= XEMACS_MOD_BUTTON2;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1184 if (numero_de_botao != 3 && (*state & Button3Mask))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1185 modifiers |= XEMACS_MOD_BUTTON3;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1186 if (numero_de_botao != 4 && (*state & Button4Mask))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1187 modifiers |= XEMACS_MOD_BUTTON4;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1188 if (numero_de_botao != 5 && (*state & Button5Mask))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1189 modifiers |= XEMACS_MOD_BUTTON5;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1190 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1191
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1192 /* Ignore the Caps_Lock key if:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1193 - any other modifiers are down, so that Caps_Lock doesn't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1194 turn C-x into C-X, which would suck.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1195 - the event was a mouse event. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1196 if (modifiers || ! key_event_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1197 *state &= (~LockMask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1198
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1199 shift_p = *state & ShiftMask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1200 lock_p = *state & LockMask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1201
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1202 if (shift_p || lock_p)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1203 modifiers |= XEMACS_MOD_SHIFT;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1204
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1205 if (key_event_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1206 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1207 Lisp_Object keysym;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1208 XKeyEvent *ev = &x_event->xkey;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1209 /* This used to compute the frame from the given X window and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1210 store it here, but we really don't care about the frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1211 emacs_event->channel = DEVICE_CONSOLE (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1212 keysym = x_to_emacs_keysym (&x_event->xkey, 0);
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 the emacs keysym is nil, then that means that the X
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1215 keysym was either a Modifier or NoSymbol, which
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1216 probably means that we're in the midst of reading a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1217 Multi_key sequence, or a "dead" key prefix, or XIM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1218 input. Ignore it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1219 if (NILP (keysym))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1220 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1221
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1222 /* More Caps_Lock garbage: Caps_Lock should *only* add the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1223 shift modifier to two-case keys (that is, A-Z and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1224 related characters). So at this point (after looking up
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1225 the keysym) if the keysym isn't a dual-case alphabetic,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1226 and if the caps lock key was down but the shift key
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1227 wasn't, then turn off the shift modifier. Gag barf */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1228 /* #### type lossage: assuming equivalence of emacs and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1229 X keysyms */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1230 /* !!#### maybe fix for Mule */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1231 if (lock_p && !shift_p &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1232 ! (CHAR_OR_CHAR_INTP (keysym)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1233 && keysym_obeys_caps_lock_p
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1234 ((KeySym) XCHAR_OR_CHAR_INT (keysym), d)))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1235 modifiers &= (~XEMACS_MOD_SHIFT);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1236
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1237 /* If this key contains two distinct keysyms, that is,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1238 "shift" generates a different keysym than the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1239 non-shifted key, then don't apply the shift modifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1240 bit: it's implicit. Otherwise, if there would be no
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1241 other way to tell the difference between the shifted
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1242 and unshifted version of this key, apply the shift bit.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1243 Non-graphics, like Backspace and F1 get the shift bit
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1244 in the modifiers slot. Neither the characters "a",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1245 "A", "2", nor "@" normally have the shift bit set.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1246 However, "F1" normally does. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1247 if (modifiers & XEMACS_MOD_SHIFT)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1248 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1249 int Mode_switch_p = *state & xd->ModeMask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1250 KeySym bot = XLookupKeysym (ev, Mode_switch_p ? 2 : 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1251 KeySym top = XLookupKeysym (ev, Mode_switch_p ? 3 : 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1252 if (top && bot && top != bot)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1253 modifiers &= ~XEMACS_MOD_SHIFT;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1254 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1255 emacs_event->event_type = key_press_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1256 emacs_event->timestamp = ev->time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1257 emacs_event->event.key.modifiers = modifiers;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1258 emacs_event->event.key.keysym = keysym;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1259 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1260 else /* Mouse press/release event */
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 XButtonEvent *ev = &x_event->xbutton;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1263 struct frame *frame = x_window_to_frame (d, ev->window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1264
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1265 if (! frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1266 return 0; /* not for us */
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1267 emacs_event->channel = wrap_frame (frame);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1268
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1269 emacs_event->event_type = (x_event->type == ButtonPress) ?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1270 button_press_event : button_release_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1271
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1272 emacs_event->event.button.modifiers = modifiers;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1273 emacs_event->timestamp = ev->time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1274 emacs_event->event.button.button = ev->button;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1275 emacs_event->event.button.x = ev->x;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1276 emacs_event->event.button.y = ev->y;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1277 /* 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
1278 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
1279 focus if a button gets pressed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1280 if (x_event->type == ButtonPress)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1281 handle_focus_event_1 (frame, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1282 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1283 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1284 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1285
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1286 case MotionNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1287 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1288 XMotionEvent *ev = &x_event->xmotion;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1289 struct frame *frame = x_window_to_frame (d, ev->window);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1290 int modifiers = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1291 XMotionEvent event2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1292
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1293 if (! frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1294 return 0; /* not for us */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1295
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1296 /* We use MotionHintMask, so we will get only one motion event
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1297 until the next time we call XQueryPointer or the user
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1298 clicks the mouse. So call XQueryPointer now (meaning that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1299 the event will be in sync with the server just before
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1300 Fnext_event() returns). If the mouse is still in motion,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1301 then the server will immediately generate exactly one more
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1302 motion event, which will be on the queue waiting for us
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1303 next time around. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1304 event2 = *ev;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1305 if (XQueryPointer (event2.display, event2.window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1306 &event2.root, &event2.subwindow,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1307 &event2.x_root, &event2.y_root,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1308 &event2.x, &event2.y,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1309 &event2.state))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1310 ev = &event2; /* only one structure copy */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1311
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1312 DEVICE_X_MOUSE_TIMESTAMP (d) = ev->time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1313
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1314 emacs_event->channel = wrap_frame (frame);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1315 emacs_event->event_type = pointer_motion_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1316 emacs_event->timestamp = ev->time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1317 emacs_event->event.motion.x = ev->x;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1318 emacs_event->event.motion.y = ev->y;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1319 if (ev->state & ShiftMask) modifiers |= XEMACS_MOD_SHIFT;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1320 if (ev->state & ControlMask) modifiers |= XEMACS_MOD_CONTROL;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1321 if (ev->state & xd->MetaMask) modifiers |= XEMACS_MOD_META;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1322 if (ev->state & xd->SuperMask) modifiers |= XEMACS_MOD_SUPER;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1323 if (ev->state & xd->HyperMask) modifiers |= XEMACS_MOD_HYPER;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1324 if (ev->state & xd->AltMask) modifiers |= XEMACS_MOD_ALT;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1325 if (ev->state & Button1Mask) modifiers |= XEMACS_MOD_BUTTON1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1326 if (ev->state & Button2Mask) modifiers |= XEMACS_MOD_BUTTON2;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1327 if (ev->state & Button3Mask) modifiers |= XEMACS_MOD_BUTTON3;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1328 if (ev->state & Button4Mask) modifiers |= XEMACS_MOD_BUTTON4;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1329 if (ev->state & Button5Mask) modifiers |= XEMACS_MOD_BUTTON5;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1330 /* Currently ignores Shift_Lock but probably shouldn't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1331 (but it definitely should ignore Caps_Lock). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1332 emacs_event->event.motion.modifiers = modifiers;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1333 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1334 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1335
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1336 case ClientMessage:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1337 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1338 /* Patch bogus TAKE_FOCUS messages from MWM; CurrentTime is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1339 passed as the timestamp of the TAKE_FOCUS, which the ICCCM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1340 explicitly prohibits. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1341 XClientMessageEvent *ev = &x_event->xclient;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1342 #ifdef HAVE_OFFIX_DND
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1343 if (DndIsDropMessage(x_event))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1344 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1345 unsigned int state;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1346 int modifiers = 0;
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 638
diff changeset
1347 int button = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1348 struct frame *frame = x_any_window_to_frame (d, ev->window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1349 Extbyte *data;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1350 unsigned long size, dtype;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1351 Lisp_Object l_type = Qnil, l_data = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1352 Lisp_Object l_dndlist = Qnil, l_item = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1353 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1354
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1355 if (! frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1356 return 0; /* not for us */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1357
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
1358 GCPRO4 (l_type, l_data, l_dndlist, l_item);
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1359 emacs_event->channel = wrap_frame (frame);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1360
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1361 emacs_event->event_type = misc_user_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1362 emacs_event->timestamp = DEVICE_X_LAST_SERVER_TIMESTAMP (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1363
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1364 state=DndDragButtons(x_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1365
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1366 if (state & ShiftMask) modifiers |= XEMACS_MOD_SHIFT;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1367 if (state & ControlMask) modifiers |= XEMACS_MOD_CONTROL;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1368 if (state & xd->MetaMask) modifiers |= XEMACS_MOD_META;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1369 if (state & xd->SuperMask) modifiers |= XEMACS_MOD_SUPER;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1370 if (state & xd->HyperMask) modifiers |= XEMACS_MOD_HYPER;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1371 if (state & xd->AltMask) modifiers |= XEMACS_MOD_ALT;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1372 if (state & Button1Mask) modifiers |= XEMACS_MOD_BUTTON1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1373 if (state & Button2Mask) modifiers |= XEMACS_MOD_BUTTON2;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1374 if (state & Button3Mask) modifiers |= XEMACS_MOD_BUTTON3;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1375 if (state & Button4Mask) modifiers |= XEMACS_MOD_BUTTON4;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1376 if (state & Button5Mask) modifiers |= XEMACS_MOD_BUTTON5;
428
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 if (state & Button5Mask) button = Button5;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1379 if (state & Button4Mask) button = Button4;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1380 if (state & Button3Mask) button = Button3;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1381 if (state & Button2Mask) button = Button2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1382 if (state & Button1Mask) button = Button1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1383
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1384 emacs_event->event.misc.modifiers = modifiers;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1385 emacs_event->event.misc.button = button;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1386
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1387 DndDropCoordinates(FRAME_X_TEXT_WIDGET(frame), x_event,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1388 &(emacs_event->event.misc.x),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1389 &(emacs_event->event.misc.y) );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1390
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1391 DndGetData(x_event,&data,&size);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1392
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1393 dtype=DndDataType(x_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1394 switch (dtype)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1395 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1396 case DndFiles: /* null terminated strings, end null */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1397 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1398 int len;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1399 char *hurl = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1400
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1401 while (*data)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1402 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1403 len = strlen ((char*)data);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1404 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
1405 l_item = make_string ((Ibyte *)hurl, strlen (hurl));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1406 l_dndlist = Fcons (l_item, l_dndlist);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1407 data += len + 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1408 xfree (hurl);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1409 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1410 l_type = Qdragdrop_URL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1411 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1412 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1413 case DndText:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1414 l_type = Qdragdrop_MIME;
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
1415 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
1416 make_string ((Ibyte *)"8bit", 4),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1417 make_ext_string ((Extbyte *)data,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1418 strlen((char *)data),
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1419 Qctext) ) );
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1420 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1421 case DndMIME:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1422 /* we have to parse this in some way to extract
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1423 content-type and params (in the tm way) and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1424 content encoding.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1425 OR: if data is string, let tm do the job
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1426 if data is list[2], give the first two
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1427 to tm...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1428 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1429 l_type = Qdragdrop_MIME;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1430 l_dndlist = list1 ( make_ext_string ((Extbyte *)data,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1431 strlen((char *)data),
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1432 Qbinary) );
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1433 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1434 case DndFile:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1435 case DndDir:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1436 case DndLink:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1437 case DndExe:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1438 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1439 char *hurl = dnd_url_hexify_string ((char *) data, "file:");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1440
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
1441 l_dndlist = list1 ( make_string ((Ibyte *)hurl,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1442 strlen (hurl)) );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1443 l_type = Qdragdrop_URL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1444
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1445 xfree (hurl);
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 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1448 case DndURL:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1449 /* as it is a real URL it should already be escaped
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1450 and escaping again will break them (cause % is unsave) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1451 l_dndlist = list1 ( make_ext_string ((Extbyte *)data,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1452 strlen ((char *)data),
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1453 Qfile_name) );
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1454 l_type = Qdragdrop_URL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1455 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1456 default: /* Unknown, RawData and any other type */
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
1457 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
1458 make_string ((Ibyte *)"8bit", 4),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1459 make_ext_string ((Extbyte *)data,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1460 size,
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1461 Qbinary) ) );
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1462 l_type = Qdragdrop_MIME;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1463 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1464 }
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 emacs_event->event.misc.function = Qdragdrop_drop_dispatch;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1467 emacs_event->event.misc.object = Fcons (l_type, l_dndlist);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1468
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1469 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1470
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1471 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1472 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1473 #endif /* HAVE_OFFIX_DND */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1474 if (ev->message_type == DEVICE_XATOM_WM_PROTOCOLS (d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1475 && (Atom) (ev->data.l[0]) == DEVICE_XATOM_WM_TAKE_FOCUS (d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1476 && (Atom) (ev->data.l[1]) == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1477 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1478 ev->data.l[1] = DEVICE_X_LAST_SERVER_TIMESTAMP (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1479 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1480 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1481 /* fall through */
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 default: /* it's a magic event */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1484 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1485 struct frame *frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1486 Window w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1487 XEvent *x_event_copy = &emacs_event->event.magic.underlying_x_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1488
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1489 #define FROB(event_member, window_member) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1490 x_event_copy->event_member = x_event->event_member; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1491 w = x_event->event_member.window_member
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 switch (x_event->type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1494 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1495 case SelectionRequest: FROB(xselectionrequest, owner); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1496 case SelectionClear: FROB(xselectionclear, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1497 case SelectionNotify: FROB(xselection, requestor); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1498 case PropertyNotify: FROB(xproperty, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1499 case ClientMessage: FROB(xclient, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1500 case ConfigureNotify: FROB(xconfigure, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1501 case Expose:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1502 case GraphicsExpose: FROB(xexpose, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1503 case MapNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1504 case UnmapNotify: FROB(xmap, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1505 case EnterNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1506 case LeaveNotify: FROB(xcrossing, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1507 case FocusIn:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1508 case FocusOut: FROB(xfocus, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1509 case VisibilityNotify: FROB(xvisibility, window); break;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1510 case CreateNotify: FROB(xcreatewindow, window); break;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1511 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1512 w = x_event->xany.window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1513 *x_event_copy = *x_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1514 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1515 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1516 #undef FROB
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1517 frame = x_any_window_to_frame (d, w);
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 if (!frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1520 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1521
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1522 emacs_event->event_type = magic_event;
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1523 emacs_event->channel = wrap_frame (frame);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1524
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1525 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1526 }
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 return 1;
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
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1533 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1534 /* magic-event handling */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1535 /************************************************************************/
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 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1538 handle_focus_event_1 (struct frame *f, int in_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1539 {
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1540 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
1541 }
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1542
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1543 static void
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1544 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
1545 {
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1546 /* 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
1547 the frame) it seems to work ok. */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1548 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
1549
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1550 #if XtSpecificationRelease > 5
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1551 widget_with_focus = XtGetKeyboardFocusWidget (FRAME_X_TEXT_WIDGET (f));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1552 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1553 #ifdef HAVE_XIM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1554 XIM_focus_event (f, in_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1555 #endif /* HAVE_XIM */
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1556
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1557 /* On focus change, clear all memory of sticky modifiers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1558 to avoid non-intuitive behavior. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1559 clear_sticky_modifiers (XDEVICE (FRAME_DEVICE (f)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1560
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1561 /* 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
1562 be in an accept-process-output, sleep-for, or sit-for. So
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1563 we enqueue it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1564
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1565 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
1566 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
1567 select-frame stuff until after the sit-for.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1568
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1569 Unfortunately native widgets break the model because they grab
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1570 the keyboard focus and nothing sets it back again. I cannot find
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1571 any reasonable way to do this elsewhere so we assert here that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1572 the keyboard focus is on the emacs text widget. Menus and dialogs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1573 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
1574 a button having focus is legitimate. An edit field having focus
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1575 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
1576 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
1577 click in the frame. Why is this? */
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1578 if (in_p
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1579 #if XtSpecificationRelease > 5
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1580 && needs_it != widget_with_focus
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1581 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1582 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1583 {
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1584 lw_set_keyboard_focus (FRAME_X_SHELL_WIDGET (f), needs_it);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1585 }
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1586
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1587 /* 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
1588 if (needs_it != FRAME_X_TEXT_WIDGET (f)) {
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1589 widget_with_focus = needs_it;
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1590 return;
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1591 }
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1592
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1593 /* We have the focus now. See comment in
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1594 emacs_Xt_handle_widget_losing_focus (). */
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1595 if (in_p)
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1596 widget_with_focus = NULL;
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1597
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1598 /* do the generic event-stream stuff. */
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 Lisp_Object frm;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1601 Lisp_Object conser;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1602 struct gcpro gcpro1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1603
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1604 frm = wrap_frame (f);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1605 conser = Fcons (frm, Fcons (FRAME_DEVICE (f), in_p ? Qt : Qnil));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1606 GCPRO1 (conser);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1607 emacs_handle_focus_change_preliminary (conser);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1608 enqueue_magic_eval_event (emacs_handle_focus_change_final,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1609 conser);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1610 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1611 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1612 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1613
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1614 /* Create a synthetic X focus event. */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1615 void
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1616 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
1617 {
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1618 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1619 Lisp_Event *ev = XEVENT (emacs_event);
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1620 XEvent *x_event = &ev->event.magic.underlying_x_event;
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1621
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1622 x_event->type = in_p ? FocusIn : FocusOut;
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1623 x_event->xfocus.window = XtWindow (wants_it);
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1624
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1625 ev->channel = frame;
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1626 ev->event_type = magic_event;
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1627
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1628 enqueue_Xt_dispatch_event (emacs_event);
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1629 }
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1630
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1631 /* 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
1632 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
1633 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
1634 user does something. So handle_focus_event_1 records the widget
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1635 with keyboard focus when FocusOut is processed, and then, when a
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1636 widget gets unmapped, it calls this function to restore focus if
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1637 appropriate. */
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1638 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
1639 void
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1640 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
1641 {
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1642 if (losing_widget == widget_with_focus)
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1643 {
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1644 handle_focus_event_1 (f, 1);
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1645 }
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1646 }
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1647
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1648 /* This is called from the external-widget code */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1649
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1650 void emacs_Xt_handle_focus_event (XEvent *event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1651 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1652 emacs_Xt_handle_focus_event (XEvent *event)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1653 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1654 struct device *d = get_device_from_display (event->xany.display);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1655 struct frame *f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1656
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1657 if (DEVICE_X_BEING_DELETED (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1658 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1659
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1660 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1661 * 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
1662 * 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
1663 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1664 f = x_any_window_to_frame (d, event->xfocus.window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1665 if (!f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1666 /* focus events are sometimes generated just before
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1667 a frame is destroyed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1668 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1669 handle_focus_event_1 (f, event->type == FocusIn);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1670 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1671
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1672 /* both MapNotify and VisibilityNotify can cause this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1673 JV is_visible has the same semantics as f->visible*/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1674 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1675 change_frame_visibility (struct frame *f, int is_visible)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1676 {
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1677 Lisp_Object frame = wrap_frame (f);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1678
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1679
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1680 if (!FRAME_VISIBLE_P (f) && is_visible)
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 FRAME_VISIBLE_P (f) = is_visible;
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
1683 /* [[ This improves the double flicker when uniconifying a frame
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1684 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
1685 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
1686 the good 'ol double redisplay structure. ]] -- comment is
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
1687 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
1688 structure (i.e. current + desired) was put back in. --ben */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1689 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1690 va_run_hook_with_args (Qmap_frame_hook, 1, frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1691 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1692 else if (FRAME_VISIBLE_P (f) && !is_visible)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1693 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1694 FRAME_VISIBLE_P (f) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1695 va_run_hook_with_args (Qunmap_frame_hook, 1, frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1696 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1697 else if (FRAME_VISIBLE_P (f) * is_visible < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1698 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1699 FRAME_VISIBLE_P(f) = - FRAME_VISIBLE_P(f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1700 if (FRAME_REPAINT_P(f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1701 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1702 va_run_hook_with_args (Qmap_frame_hook, 1, frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1703 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1704 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1705
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1706 static void
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1707 update_frame_iconify_status (struct frame *f)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1708 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1709 f->iconified = (x_frame_window_state (f) == IconicState);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1710 }
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1711
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1712 static void
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1713 handle_map_event (struct frame *f, XEvent *event)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1714 {
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1715
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1716 /* 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
1717 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
1718 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
1719 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
1720 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
1721 MapNotify/UnmapNotify/VisibilityNotify as more than vague hints
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1722 as to the actual situation.
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1723
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1724 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
1725 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
1726 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
1727 race conditions (see below).
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1728
638
373ced43e288 [xemacs-hg @ 2001-07-26 21:10:44 by adrian]
adrian
parents: 593
diff changeset
1729 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
1730 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
1731 (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
1732 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
1733 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
1734 and scrap most of the nasty code below.
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1735
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1736 --ben
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1737 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1738
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1739 update_frame_iconify_status (f);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1740
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1741 /* #### Ben suggests rewriting the code below using
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1742 x_frame_window_state (f). */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1743
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1744 if (event->type == MapNotify)
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 XWindowAttributes xwa;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1747
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1748 /* Bleagh!!!!!! Apparently some window managers (e.g. MWM)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1749 send synthetic MapNotify events when a window is first
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1750 created, EVEN IF IT'S CREATED ICONIFIED OR INVISIBLE.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1751 Or something like that. We initially tried a different
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1752 solution below, but that ran into a different window-
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1753 manager bug.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1754
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1755 It seems that the only reliable way is to treat a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1756 MapNotify event as a "hint" that the window might or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1757 might not be visible, and check explicitly. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1758
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1759 XGetWindowAttributes (event->xany.display, event->xmap.window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1760 &xwa);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1761 if (xwa.map_state != IsViewable)
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1762 return;
428
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_X_TOTALLY_VISIBLE_P (f) = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1765 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1766 /* Bleagh again!!!! We initially tried the following hack
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1767 around the MWM problem, but it turns out that TWM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1768 has a race condition when you un-iconify, where it maps
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1769 the window and then tells the server that the window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1770 is un-iconified. Usually, XEmacs wakes up between
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1771 those two occurrences, and thus thinks that un-iconified
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1772 windows are still iconified.
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 Ah, the joys of X. */
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 /* By Emacs definition, a frame that is iconified is not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1777 visible. Marking a frame as visible will automatically cause
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1778 frame-iconified-p to return nil, regardless of whether the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1779 frame is actually iconified. Therefore, we have to ignore
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1780 MapNotify events on iconified frames. (It's not obvious
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1781 to me why these are being sent, but it happens at startup
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1782 with frames that are initially iconified; perhaps they are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1783 synthetic MapNotify events coming from the window manager.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1784 Note that `frame-iconified-p' queries the server
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1785 to determine whether the frame is currently iconified,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1786 rather than consulting some internal (and likely
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1787 inaccurate) state flag. Therefore, ignoring the MapNotify
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1788 is correct. */
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1789 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
1790 #endif /* 0 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1791 change_frame_visibility (f, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1792 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1793 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1794 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1795 FRAME_X_TOTALLY_VISIBLE_P (f) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1796 change_frame_visibility (f, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1797 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1798 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1799
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1800 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1801 handle_client_message (struct frame *f, XEvent *event)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1802 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1803 struct device *d = XDEVICE (FRAME_DEVICE (f));
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1804 Lisp_Object frame = wrap_frame (f);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1805
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1806 if (event->xclient.message_type == DEVICE_XATOM_WM_PROTOCOLS (d) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1807 (Atom) (event->xclient.data.l[0]) == DEVICE_XATOM_WM_DELETE_WINDOW (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1808 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1809 /* WM_DELETE_WINDOW is a misc-user event, but other ClientMessages,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1810 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
1811 was probably executed with a mouse click, while the others could
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1812 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
1813 action. (Call this a "heuristic"...) The reason for caring about
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1814 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
1815 using a dialog box instead of the minibuffer if there are unsaved
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1816 buffers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1817 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1818 enqueue_misc_user_event (frame, Qeval,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1819 list3 (Qdelete_frame, frame, Qt));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1820 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1821 else if (event->xclient.message_type == DEVICE_XATOM_WM_PROTOCOLS (d) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1822 (Atom) event->xclient.data.l[0] == DEVICE_XATOM_WM_TAKE_FOCUS (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1823 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1824 handle_focus_event_1 (f, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1825 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1826 /* If there is a dialog box up, focus on it.
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 #### Actually, we're raising it too, which is wrong. We should
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1829 #### just focus on it, but lwlib doesn't currently give us an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1830 #### easy way to do that. This should be fixed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1831 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1832 unsigned long take_focus_timestamp = event->xclient.data.l[1];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1833 Widget widget = lw_raise_all_pop_up_widgets ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1834 if (widget)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1835 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1836 /* kludge: raise_all returns bottommost widget, but we really
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1837 want the topmost. So just raise it for now. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1838 XMapRaised (XtDisplay (widget), XtWindow (widget));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1839 /* Grab the focus with the timestamp of the TAKE_FOCUS. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1840 XSetInputFocus (XtDisplay (widget), XtWindow (widget),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1841 RevertToParent, take_focus_timestamp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1842 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1843 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1844 }
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
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1847 /* #### 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
1848 Here is the problem:
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1849
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1850 When widgets get mapped / changed etc the actual display updates
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1851 are done asynchronously via X events being processed - this
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1852 normally happens when XtAppProcessEvent() gets called. However, if
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1853 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
1854 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
1855 effect of widgets only getting updated when XEmacs only goes into
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1856 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
1857
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1858 XtAppProcessEvent can get called from the following places:
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1859
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1860 emacs_Xt_next_event () - this is normal event processing, almost
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1861 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
1862 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
1863 widget display.
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1864
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1865 drain_X_queue () - this happens when SIGIO gets tripped,
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1866 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
1867 called from emacs_Xt_event_pending_p ().
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1868
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1869 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
1870 dispatch-non-command-events - which forces processing of X events
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1871 related to display. Unfortunately this has a number of problems,
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1872 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
1873 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
1874 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
1875 SIGIO processing which makes things rather fragile.
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1876
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1877 People have seen behaviour whereby XEmacs blocks until you move the
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1878 mouse. This seems to indicate that dispatch-non-command-events is
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1879 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
1880 does the wrong thing.
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1881 */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1882 static void
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1883 emacs_Xt_force_event_pending (struct frame *f)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1884 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1885 XEvent event;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1886
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1887 Display *dpy = DEVICE_X_DISPLAY (XDEVICE (FRAME_DEVICE (f)));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1888 event.xclient.type = ClientMessage;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1889 event.xclient.display = dpy;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1890 event.xclient.message_type = XInternAtom (dpy, "BumpQueue", False);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1891 event.xclient.format = 32;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1892 event.xclient.window = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1893
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1894 /* Send the drop message */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1895 XSendEvent(dpy, XtWindow (FRAME_X_SHELL_WIDGET (f)),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1896 True, NoEventMask, &event);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1897 /* 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
1898 event. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1899 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1900
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1901 static void
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1902 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
1903 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1904 Lisp_Object console = CDFW_CONSOLE (EVENT_CHANNEL (event));
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1905 if (CONSOLE_X_P (XCONSOLE (console)))
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 801
diff changeset
1906 write_c_string
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 801
diff changeset
1907 (pstream, x_event_name (event->event.magic.underlying_x_event.type));
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1908 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1909
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1910 static int
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1911 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
1912 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1913 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
1914 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
1915 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
1916 e2->event.magic.underlying_x_event.xany.serial);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1917 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
1918 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
1919 return 0;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1920 return 1;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1921 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1922
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1923 static Hashcode
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1924 emacs_Xt_hash_magic_event (Lisp_Event *e)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1925 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1926 Lisp_Object console = CDFW_CONSOLE (EVENT_CHANNEL (e));
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1927 if (CONSOLE_X_P (XCONSOLE (console)))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1928 return e->event.magic.underlying_x_event.xany.serial;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1929 return 0;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1930 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1931
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1932 static void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1933 emacs_Xt_handle_magic_event (Lisp_Event *emacs_event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1934 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1935 /* This function can GC */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1936 XEvent *event = &emacs_event->event.magic.underlying_x_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1937 struct frame *f = XFRAME (EVENT_CHANNEL (emacs_event));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1938
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1939 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
1940 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1941
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1942 switch (event->type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1943 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1944 case SelectionRequest:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1945 x_handle_selection_request (&event->xselectionrequest);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1946 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1947
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1948 case SelectionClear:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1949 x_handle_selection_clear (&event->xselectionclear);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1950 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1951
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1952 case SelectionNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1953 x_handle_selection_notify (&event->xselection);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1954 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1955
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1956 case PropertyNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1957 x_handle_property_notify (&event->xproperty);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1958 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1959
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1960 case Expose:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1961 if (!check_for_ignored_expose (f, event->xexpose.x, event->xexpose.y,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1962 event->xexpose.width, event->xexpose.height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1963 &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1964 !find_matching_subwindow (f, event->xexpose.x, event->xexpose.y,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1965 event->xexpose.width, event->xexpose.height))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1966 x_redraw_exposed_area (f, event->xexpose.x, event->xexpose.y,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1967 event->xexpose.width, event->xexpose.height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1968 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1969
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1970 case GraphicsExpose: /* This occurs when an XCopyArea's source area was
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1971 obscured or not available. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1972 x_redraw_exposed_area (f, event->xexpose.x, event->xexpose.y,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1973 event->xexpose.width, event->xexpose.height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1974 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1975
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1976 case MapNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1977 case UnmapNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1978 handle_map_event (f, event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1979 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1980
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1981 case EnterNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1982 if (event->xcrossing.detail != NotifyInferior)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1983 {
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1984 Lisp_Object frame = wrap_frame (f);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1985
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1986 /* FRAME_X_MOUSE_P (f) = 1; */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1987 va_run_hook_with_args (Qmouse_enter_frame_hook, 1, frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1988 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1989 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1990
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1991 case LeaveNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1992 if (event->xcrossing.detail != NotifyInferior)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1993 {
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1994 Lisp_Object frame = wrap_frame (f);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1995
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1996 /* FRAME_X_MOUSE_P (f) = 0; */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1997 va_run_hook_with_args (Qmouse_leave_frame_hook, 1, frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1998 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1999 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2000
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2001 case FocusIn:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2002 case FocusOut:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2003
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2004 #ifdef EXTERNAL_WIDGET
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2005 /* External widget lossage: Ben said:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2006 YUCK. The only way to make focus changes work properly is to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2007 completely ignore all FocusIn/FocusOut events and depend only
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2008 on notifications from the ExternalClient widget. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2009 if (FRAME_X_EXTERNAL_WINDOW_P (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2010 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2011 #endif
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
2012 handle_focus_event_2 (event->xfocus.window, f, event->type == FocusIn);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2013 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2014
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2015 case ClientMessage:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2016 handle_client_message (f, event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2017 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2018
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2019 case VisibilityNotify: /* window visibility has changed */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2020 if (event->xvisibility.window == XtWindow (FRAME_X_SHELL_WIDGET (f)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2021 {
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
2022 /* See comment in handle_map_event */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
2023 update_frame_iconify_status (f);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
2024
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
2025 /* #### Ben suggests rewriting the code below using
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
2026 x_frame_window_state (f). */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2027 FRAME_X_TOTALLY_VISIBLE_P (f) =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2028 (event->xvisibility.state == VisibilityUnobscured);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2029 /* Note that the fvwm pager only sends VisibilityNotify when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2030 changing pages. Is this all we need to do ? JV */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2031 /* Nope. We must at least trigger a redisplay here.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2032 Since this case seems similar to MapNotify, I've
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2033 factored out some code to change_frame_visibility().
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2034 This triggers the necessary redisplay and runs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2035 (un)map-frame-hook. - dkindred@cs.cmu.edu */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2036 /* Changed it again to support the tristate visibility flag */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2037 change_frame_visibility (f, (event->xvisibility.state
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2038 != VisibilityFullyObscured) ? 1 : -1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2039 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2040 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2041
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2042 case ConfigureNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2043 #ifdef HAVE_XIM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2044 XIM_SetGeometry (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2045 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2046 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2047
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2048 case CreateNotify:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2049 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2050
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2051 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2052 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2053 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2054 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2055
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2056
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2057 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2058 /* timeout events */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2059 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2060
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2061 static int timeout_id_tick;
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 /* 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
2064 happens), so we need to provide a conversion list. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2065
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2066 static struct Xt_timeout
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2067 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2068 int id;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2069 XtIntervalId interval_id;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2070 struct Xt_timeout *next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2071 } *pending_timeouts, *completed_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2072
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2073 static struct Xt_timeout_blocktype
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 Blocktype_declare (struct Xt_timeout);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2076 } *the_Xt_timeout_blocktype;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2077
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2078 /* called by XtAppNextEvent() */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2079 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2080 Xt_timeout_callback (XtPointer closure, XtIntervalId *id)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2081 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2082 struct Xt_timeout *timeout = (struct Xt_timeout *) closure;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2083 struct Xt_timeout *t2 = pending_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2084 /* Remove this one from the list of pending timeouts */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2085 if (t2 == timeout)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2086 pending_timeouts = pending_timeouts->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2087 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2088 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2089 while (t2->next && t2->next != timeout) t2 = t2->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2090 assert (t2->next);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2091 t2->next = t2->next->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2092 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2093 /* Add this one to the list of completed timeouts */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2094 timeout->next = completed_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2095 completed_timeouts = timeout;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2096 }
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 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2099 emacs_Xt_add_timeout (EMACS_TIME thyme)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2100 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2101 struct Xt_timeout *timeout = Blocktype_alloc (the_Xt_timeout_blocktype);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2102 EMACS_TIME current_time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2103 int milliseconds;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2104
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2105 timeout->id = timeout_id_tick++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2106 timeout->next = pending_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2107 pending_timeouts = timeout;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2108 EMACS_GET_TIME (current_time);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2109 EMACS_SUB_TIME (thyme, thyme, current_time);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2110 milliseconds = EMACS_SECS (thyme) * 1000 +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2111 EMACS_USECS (thyme) / 1000;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2112 if (milliseconds < 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2113 milliseconds = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2114 timeout->interval_id = XtAppAddTimeOut (Xt_app_con, milliseconds,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2115 Xt_timeout_callback,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2116 (XtPointer) timeout);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2117 return timeout->id;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2118 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2119
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2120 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2121 emacs_Xt_remove_timeout (int id)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2122 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2123 struct Xt_timeout *timeout, *t2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2124
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2125 timeout = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2126
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2127 /* 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
2128 if (pending_timeouts)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2129 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2130 if (id == pending_timeouts->id)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2131 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2132 timeout = pending_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2133 pending_timeouts = pending_timeouts->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2134 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2135 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2136 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2137 t2 = pending_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2138 while (t2->next && t2->next->id != id) t2 = t2->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2139 if ( t2->next) /*found it */
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 timeout = t2->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2142 t2->next = t2->next->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2143 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2144 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2145 /* if it was pending, we have removed it from the list */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2146 if (timeout)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2147 XtRemoveTimeOut (timeout->interval_id);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2148 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2149
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2150 /* 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
2151 into an Emacs event yet */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2152 if (!timeout && completed_timeouts)
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 /* Code duplication! */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2155 if (id == completed_timeouts->id)
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 = completed_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2158 completed_timeouts = completed_timeouts->next;
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 else
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 t2 = completed_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2163 while (t2->next && t2->next->id != id) t2 = t2->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2164 if ( t2->next) /*found it */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2165 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2166 timeout = t2->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2167 t2->next = t2->next->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2168 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2169 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2170 }
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 /* If we found the thing on the lists of timeouts,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2173 and removed it, deallocate
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2174 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2175 if (timeout)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2176 Blocktype_free (the_Xt_timeout_blocktype, timeout);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2177 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2178
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2179 static void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2180 Xt_timeout_to_emacs_event (Lisp_Event *emacs_event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2181 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2182 struct Xt_timeout *timeout = completed_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2183 assert (timeout);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2184 completed_timeouts = completed_timeouts->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2185 emacs_event->event_type = timeout_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2186 /* timeout events have nil as channel */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2187 emacs_event->timestamp = 0; /* #### wrong!! */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2188 emacs_event->event.timeout.interval_id = timeout->id;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2189 emacs_event->event.timeout.function = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2190 emacs_event->event.timeout.object = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2191 Blocktype_free (the_Xt_timeout_blocktype, timeout);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2192 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2193
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2194
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 /* process and tty events */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2197 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2198
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2199 struct what_is_ready_closure
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2200 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2201 int fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2202 Lisp_Object what;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2203 XtInputId id;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2204 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2205
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2206 static Lisp_Object *filedesc_with_input;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2207 static struct what_is_ready_closure **filedesc_to_what_closure;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2208
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2209 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2210 init_what_input_once (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2211 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2212 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2213
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2214 filedesc_with_input = xnew_array (Lisp_Object, MAXDESC);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2215 filedesc_to_what_closure =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2216 xnew_array (struct what_is_ready_closure *, MAXDESC);
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 for (i = 0; i < MAXDESC; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2219 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2220 filedesc_to_what_closure[i] = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2221 filedesc_with_input[i] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2222 }
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 process_events_occurred = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2225 tty_events_occurred = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2226 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2227
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2228 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2229 mark_what_as_being_ready (struct what_is_ready_closure *closure)
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 if (NILP (filedesc_with_input[closure->fd]))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2232 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2233 SELECT_TYPE temp_mask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2234 FD_ZERO (&temp_mask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2235 FD_SET (closure->fd, &temp_mask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2236 /* Check to make sure there's *really* input available.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2237 Sometimes things seem to get confused and this gets called
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2238 for the tty fd when there's really only input available
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2239 on some process's fd. (It will subsequently get called
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2240 for that process's fd, so returning without setting any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2241 flags will take care of it.) To see the problem, uncomment
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2242 the stderr_out below, turn NORMAL_QUIT_CHECK_TIMEOUT_MSECS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2243 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
2244 and press return repeatedly. (Seen under AIX & Linux.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2245 -dkindred@cs.cmu.edu */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2246 if (!poll_fds_for_input (temp_mask))
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 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2249 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
2250 closure->fd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2251 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2252 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2253 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2254 filedesc_with_input[closure->fd] = closure->what;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2255 if (PROCESSP (closure->what))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2256 /* Don't increment this if the current process is already marked
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2257 * as having input. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2258 process_events_occurred++;
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 tty_events_occurred++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2261 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2262 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2263
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2264 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2265 Xt_what_callback (void *closure, int *source, XtInputId *id)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2266 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2267 /* 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
2268 The only purpose of this is to make XtAppProcessEvent() stop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2269 blocking. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2270 if (closure)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2271 mark_what_as_being_ready ((struct what_is_ready_closure *) closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2272 else
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 fake_event_occurred++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2275 drain_signal_event_pipe ();
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2279 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2280 select_filedesc (int fd, Lisp_Object what)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2281 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2282 struct what_is_ready_closure *closure;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2283
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2284 /* If somebody is trying to select something that's already selected
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2285 for, then something went wrong. The generic routines ought to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2286 detect this and error before here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2287 assert (!filedesc_to_what_closure[fd]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2288
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2289 closure = xnew (struct what_is_ready_closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2290 closure->fd = fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2291 closure->what = what;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2292 closure->id =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2293 XtAppAddInput (Xt_app_con, fd,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2294 (XtPointer) (XtInputReadMask /* | XtInputExceptMask */),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2295 Xt_what_callback, closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2296 filedesc_to_what_closure[fd] = closure;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2297 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2298
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2299 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2300 unselect_filedesc (int fd)
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 struct what_is_ready_closure *closure = filedesc_to_what_closure[fd];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2303
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2304 assert (closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2305 if (!NILP (filedesc_with_input[fd]))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2306 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2307 /* We are unselecting this process before we have drained the rest of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2308 the input from it, probably from status_notify() in the command loop.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2309 This can happen like so:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2310
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2311 - We are waiting in XtAppNextEvent()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2312 - Process generates output
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2313 - Process is marked as being ready
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2314 - Process dies, SIGCHLD gets generated before we return (!?)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2315 It could happen I guess.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2316 - sigchld_handler() marks process as dead
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2317 - Somehow we end up getting a new KeyPress event on the queue
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2318 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
2319 not sure it can't either so let's assume it can...).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2320 - Key events have priority so we return that instead of the proc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2321 - Before dispatching the lisp key event we call status_notify()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2322 - Which deselects the process that SIGCHLD marked as dead.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2323
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2324 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
2325 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
2326 throwing away the last block of output - status_notify() has already
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2327 taken care of running the proc filter or whatever.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2328 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2329 filedesc_with_input[fd] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2330 if (PROCESSP (closure->what))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2331 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2332 assert (process_events_occurred > 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2333 process_events_occurred--;
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 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2336 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2337 assert (tty_events_occurred > 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2338 tty_events_occurred--;
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2341 XtRemoveInput (closure->id);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2342 xfree (closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2343 filedesc_to_what_closure[fd] = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2344 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2345
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2346 static void
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2347 emacs_Xt_select_process (Lisp_Process *process, int doin, int doerr)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2348 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2349 Lisp_Object proc;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2350 int infd, errfd;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2351
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2352 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
2353
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2354 proc = wrap_process (process);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2355 if (doin)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2356 select_filedesc (infd, proc);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2357 if (doerr)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2358 select_filedesc (errfd, proc);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2359 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2360
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2361 static void
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2362 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
2363 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2364 int infd, errfd;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2365
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2366 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
2367
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2368 if (doin)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2369 unselect_filedesc (infd);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2370 if (doerr)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2371 unselect_filedesc (errfd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2372 }
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 static void
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2375 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
2376 void *errhandle, Lisp_Object *instream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2377 Lisp_Object *outstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2378 Lisp_Object *errstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2379 USID *in_usid,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2380 USID *err_usid,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2381 int flags)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2382 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2383 event_stream_unixoid_create_io_streams
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2384 (inhandle, outhandle, errhandle, instream, outstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2385 errstream, in_usid, err_usid, flags);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2386 if (*in_usid != USID_ERROR)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2387 *in_usid = USID_DONTHASH;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2388 if (*err_usid != USID_ERROR)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2389 *err_usid = USID_DONTHASH;
428
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
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2392 static void
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2393 emacs_Xt_delete_io_streams (Lisp_Object instream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2394 Lisp_Object outstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2395 Lisp_Object errstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2396 USID *in_usid,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2397 USID *err_usid)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2398 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2399 event_stream_unixoid_delete_io_streams
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2400 (instream, outstream, errstream, in_usid, err_usid);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2401 *in_usid = USID_DONTHASH;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2402 *err_usid = USID_DONTHASH;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2403 }
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 /* 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
2406 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
2407 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2408 void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2409 debug_process_finalization (Lisp_Process *p)
428
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 #if 0 /* #### */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2412 int i;
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2413 Lisp_Object instr, outstr, errstr;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2414
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2415 get_process_streams (p, &instr, &outstr, &errstr);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2416 /* if it still has fds, then it hasn't been killed yet. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2417 assert (NILP(instr));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2418 assert (NILP(outstr));
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2419 assert (NILP(errstr));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2420 /* 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
2421 for (i = 0; i < MAXDESC; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2422 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2423 Lisp_Object process = filedesc_fds_with_input [i];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2424 assert (!PROCESSP (process) || XPROCESS (process) != p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2425 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2426 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2427 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2429 static void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2430 Xt_process_to_emacs_event (Lisp_Event *emacs_event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2431 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2432 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2433
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2434 assert (process_events_occurred > 0);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2435
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2436 for (i = 0; i < MAXDESC; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2437 {
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2438 Lisp_Object process = filedesc_with_input[i];
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2439 if (PROCESSP (process))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2440 {
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2441 filedesc_with_input[i] = Qnil;
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2442 process_events_occurred--;
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2443 /* process events have nil as channel */
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2444 emacs_event->event_type = process_event;
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2445 emacs_event->timestamp = 0; /* #### */
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2446 emacs_event->event.process.process = process;
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2447 return;
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2448 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2449 }
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2450 abort ();
428
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2454 emacs_Xt_select_console (struct console *con)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2455 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2456 Lisp_Object console;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2457 int infd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2458
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2459 if (CONSOLE_X_P (con))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2460 return; /* X consoles are automatically selected for when we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2461 initialize them in Xt */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2462 infd = event_stream_unixoid_select_console (con);
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
2463 console = wrap_console (con);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2464 select_filedesc (infd, console);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2465 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2466
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2467 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2468 emacs_Xt_unselect_console (struct console *con)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2469 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2470 Lisp_Object console;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2471 int infd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2472
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2473 if (CONSOLE_X_P (con))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2474 return; /* X consoles are automatically selected for when we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2475 initialize them in Xt */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2476 infd = event_stream_unixoid_unselect_console (con);
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
2477 console = wrap_console (con);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2478 unselect_filedesc (infd);
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 /* 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
2482 if an event was available. Note that when this function is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2483 called, there should always be a tty marked as ready for input.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2484 However, the input condition might actually be EOF, so there
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2485 may not really be any input available. (In this case,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2486 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
2487 to be deleted.) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2488
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2489 static int
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2490 Xt_tty_to_emacs_event (Lisp_Event *emacs_event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2491 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2492 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2493
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2494 assert (tty_events_occurred > 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2495 for (i = 0; i < MAXDESC; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2496 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2497 Lisp_Object console = filedesc_with_input[i];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2498 if (CONSOLEP (console))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2499 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2500 assert (tty_events_occurred > 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2501 tty_events_occurred--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2502 filedesc_with_input[i] = Qnil;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
2503 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
2504 XCONSOLE (console)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2505 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2506 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2507 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2508
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2509 return 0;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2513 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2514 /* debugging functions to decipher an event */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2515 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2516
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2517 #ifdef DEBUG_XEMACS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2518 #include "xintrinsicp.h" /* only describe_event() needs this */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2519 #include <X11/Xproto.h> /* only describe_event() needs this */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2520
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2521 static void
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2522 describe_event_window (Window window, Display *display, Lisp_Object pstream)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2523 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2524 struct frame *f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2525 Widget w;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2526 write_fmt_string (pstream, " window: 0x%lx", (unsigned long) window);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2527 w = XtWindowToWidget (display, window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2528 if (w)
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2529 write_fmt_string (pstream, " %s",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2530 w->core.widget_class->core_class.class_name);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2531 f = x_any_window_to_frame (get_device_from_display (display), window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2532 if (f)
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2533 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
2534 write_fmt_string (pstream, "\n");
428
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
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2537 static const char *
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2538 XEvent_mode_to_string (int mode)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2539 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2540 switch (mode)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2541 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2542 case NotifyNormal: return "Normal";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2543 case NotifyGrab: return "Grab";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2544 case NotifyUngrab: return "Ungrab";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2545 case NotifyWhileGrabbed: return "WhileGrabbed";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2546 default: return "???";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2547 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2548 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2549
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2550 static const char *
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2551 XEvent_detail_to_string (int detail)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2552 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2553 switch (detail)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2554 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2555 case NotifyAncestor: return "Ancestor";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2556 case NotifyInferior: return "Inferior";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2557 case NotifyNonlinear: return "Nonlinear";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2558 case NotifyNonlinearVirtual: return "NonlinearVirtual";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2559 case NotifyPointer: return "Pointer";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2560 case NotifyPointerRoot: return "PointerRoot";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2561 case NotifyDetailNone: return "DetailNone";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2562 default: return "???";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2563 }
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
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2566 static const char *
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2567 XEvent_visibility_to_string (int state)
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 switch (state)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2570 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2571 case VisibilityFullyObscured: return "FullyObscured";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2572 case VisibilityPartiallyObscured: return "PartiallyObscured";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2573 case VisibilityUnobscured: return "Unobscured";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2574 default: return "???";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2575 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2576 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2577
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2578 static void
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2579 describe_event (XEvent *event, Lisp_Object pstream)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2580 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2581 char buf[100];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2582 struct device *d = get_device_from_display (event->xany.display);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2583
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2584 sprintf (buf, "%s%s", x_event_name (event->type),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2585 event->xany.send_event ? " (send)" : "");
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2586 write_fmt_string (pstream, "%-30s", buf);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2587 switch (event->type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2588 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2589 case FocusIn:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2590 case FocusOut:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2591 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2592 XFocusChangeEvent *ev = &event->xfocus;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2593 describe_event_window (ev->window, ev->display, pstream);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2594 write_fmt_string (pstream, " mode: %s\n",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2595 XEvent_mode_to_string (ev->mode));
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2596 write_fmt_string (pstream, " detail: %s\n",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2597 XEvent_detail_to_string (ev->detail));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2598 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2599 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2600
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2601 case KeyPress:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2602 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2603 XKeyEvent *ev = &event->xkey;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2604 unsigned int state = ev->state;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2605
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2606 describe_event_window (ev->window, ev->display, pstream);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2607 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
2608 write_fmt_string (pstream, " state: ");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2609 /* Complete list of modifier key masks */
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2610 if (state & ShiftMask) write_fmt_string (pstream, "Shift ");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2611 if (state & LockMask) write_fmt_string (pstream, "Lock ");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2612 if (state & ControlMask) write_fmt_string (pstream, "Control ");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2613 if (state & Mod1Mask) write_fmt_string (pstream, "Mod1 ");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2614 if (state & Mod2Mask) write_fmt_string (pstream, "Mod2 ");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2615 if (state & Mod3Mask) write_fmt_string (pstream, "Mod3 ");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2616 if (state & Mod4Mask) write_fmt_string (pstream, "Mod4 ");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2617 if (state & Mod5Mask) write_fmt_string (pstream, "Mod5 ");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2618
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2619 if (! state)
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2620 write_fmt_string (pstream, "vanilla\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2621 else
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2622 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2623 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
2624 write_fmt_string (pstream, " Modifier key");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2625 write_fmt_string (pstream, " keycode: 0x%x\n", ev->keycode);
428
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 break;
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 case Expose:
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2630 if (debug_x_events > 1)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2631 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2632 XExposeEvent *ev = &event->xexpose;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2633 describe_event_window (ev->window, ev->display, pstream);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2634 write_fmt_string (pstream,
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2635 " region: x=%d y=%d width=%d height=%d\n",
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2636 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
2637 write_fmt_string (pstream, " count: %d\n", ev->count);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2638 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2639 else
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2640 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2641 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2642
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2643 case GraphicsExpose:
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2644 if (debug_x_events > 1)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2645 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2646 XGraphicsExposeEvent *ev = &event->xgraphicsexpose;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2647 describe_event_window (ev->drawable, ev->display, pstream);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2648 write_fmt_string (pstream, " major: %s\n",
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2649 (ev ->major_code == X_CopyArea ? "CopyArea" :
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2650 (ev->major_code == X_CopyPlane ? "CopyPlane" : "?")));
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2651 write_fmt_string (pstream,
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2652 " region: x=%d y=%d width=%d height=%d\n",
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2653 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
2654 write_fmt_string (pstream, " count: %d\n", ev->count);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2655 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2656 else
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2657 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2658 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2659
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2660 case EnterNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2661 case LeaveNotify:
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2662 if (debug_x_events > 1)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2663 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2664 XCrossingEvent *ev = &event->xcrossing;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2665 describe_event_window (ev->window, ev->display, pstream);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2666 #if 0
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2667 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
2668 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
2669 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
2670 ev->y_root);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2671 #endif
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2672 write_fmt_string (pstream, " mode: %s\n",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2673 XEvent_mode_to_string(ev->mode));
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2674 write_fmt_string (pstream, " detail: %s\n",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2675 XEvent_detail_to_string(ev->detail));
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2676 write_fmt_string (pstream, " focus: %d\n", ev->focus);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2677 #if 0
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2678 write_fmt_string (pstream, " state: 0x%x\n", ev->state);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2679 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2680 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2681 else
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2682 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2683 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2684
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2685 case ConfigureNotify:
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2686 if (debug_x_events > 1)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2687 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2688 XConfigureEvent *ev = &event->xconfigure;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2689 describe_event_window (ev->window, ev->display, pstream);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2690 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
2691 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
2692 ev->width, ev->height);
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2693 write_fmt_string (pstream, " redirect: %d\n",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2694 ev->override_redirect);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2695 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2696 else
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2697 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2698 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2699
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2700 case VisibilityNotify:
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2701 if (debug_x_events > 1)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2702 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2703 XVisibilityEvent *ev = &event->xvisibility;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2704 describe_event_window (ev->window, ev->display, pstream);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2705 write_fmt_string (pstream, " state: %s\n",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2706 XEvent_visibility_to_string (ev->state));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2707 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2708 else
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2709 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2710 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2711
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2712 case ClientMessage:
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 XClientMessageEvent *ev = &event->xclient;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2715 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
2716 write_fmt_string (pstream, "%s", name);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2717 if (!strcmp (name, "WM_PROTOCOLS"))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2718 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2719 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
2720 write_fmt_string (pstream, "(%s)", protname);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2721 XFree (protname);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2722 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2723 XFree (name);
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2724 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2725 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2726 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2727
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2728 default:
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2729 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2730 break;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2733 fflush (stdout);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2734 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2735
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2736 #endif /* include describe_event definition */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2737
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2738
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 /* get the next event from Xt */
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2743 static Lisp_Object dispatch_event_queue, dispatch_event_queue_tail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2744
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2745 void
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2746 enqueue_Xt_dispatch_event (Lisp_Object event)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2747 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2748 enqueue_event (event, &dispatch_event_queue, &dispatch_event_queue_tail);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2749 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2750
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2751 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2752 dequeue_Xt_dispatch_event (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2753 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2754 return dequeue_event (&dispatch_event_queue, &dispatch_event_queue_tail);
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2757 /* This business exists because menu events "happen" when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2758 menubar_selection_callback() is called from somewhere deep
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2759 within XtAppProcessEvent in emacs_Xt_next_event(). The
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2760 callback needs to terminate the modal loop in that function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2761 or else it will continue waiting until another event is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2762 received.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2763
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2764 Same business applies to scrollbar events. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2765
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2766 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2767 signal_special_Xt_user_event (Lisp_Object channel, Lisp_Object function,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2768 Lisp_Object object)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2769 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2770 Lisp_Object event = Fmake_event (Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2771
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2772 XEVENT (event)->event_type = misc_user_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2773 XEVENT (event)->channel = channel;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2774 XEVENT (event)->event.eval.function = function;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2775 XEVENT (event)->event.eval.object = object;
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 enqueue_Xt_dispatch_event (event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2778 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2779
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2780 static void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2781 emacs_Xt_next_event (Lisp_Event *emacs_event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2782 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2783 we_didnt_get_an_event:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2784
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2785 while (NILP (dispatch_event_queue) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2786 !completed_timeouts &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2787 !fake_event_occurred &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2788 !process_events_occurred &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2789 !tty_events_occurred)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2790 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2791
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2792 /* Stupid logic in XtAppProcessEvent() dictates that, if process
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2793 events and X events are both available, the process event gets
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2794 taken first. This will cause an infinite loop if we're being
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2795 called from Fdiscard_input().
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2796 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2797 if (XtAppPending (Xt_app_con) & XtIMXEvent)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2798 XtAppProcessEvent (Xt_app_con, XtIMXEvent);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2799 else
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 Lisp_Object devcons, concons;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2802
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2803 /* 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
2804 there) in that it blocks using select() and doesn't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2805 flush the Xlib output buffers (XNextEvent() does this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2806 automatically before blocking). So it's necessary
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2807 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
2808 display output may not be seen until the next time
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2809 an X event is received. (This happens esp. with
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2810 subprocess output that gets sent to a visible buffer.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2811
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2812 #### The above comment may not have any validity. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2813
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2814 DEVICE_LOOP_NO_BREAK (devcons, concons)
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 struct device *d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2817 d = XDEVICE (XCAR (devcons));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2818
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2819 if (DEVICE_X_P (d) && DEVICE_X_DISPLAY (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2820 /* emacs may be exiting */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2821 XFlush (DEVICE_X_DISPLAY (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2822 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2823 XtAppProcessEvent (Xt_app_con, XtIMAll);
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 }
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 if (!NILP (dispatch_event_queue))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2828 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2829 Lisp_Object event, event2;
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
2830 event2 = wrap_event (emacs_event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2831 event = dequeue_Xt_dispatch_event ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2832 Fcopy_event (event, event2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2833 Fdeallocate_event (event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2834 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2835 else if (tty_events_occurred)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2836 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2837 if (!Xt_tty_to_emacs_event (emacs_event))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2838 goto we_didnt_get_an_event;
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 else if (completed_timeouts)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2841 Xt_timeout_to_emacs_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2842 else if (fake_event_occurred)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2843 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2844 /* 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
2845 fake_event_occurred = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2846 /* eval events have nil as channel */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2847 emacs_event->event_type = eval_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2848 emacs_event->event.eval.function = Qidentity;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2849 emacs_event->event.eval.object = Qnil;
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 else /* if (process_events_occurred) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2852 Xt_process_to_emacs_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2853
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2854 /* No need to call XFilterEvent; Xt does it for us */
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2857 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2858 emacs_Xt_event_handler (Widget wid /* unused */,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2859 XtPointer closure /* unused */,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2860 XEvent *event,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2861 Boolean *continue_to_dispatch /* unused */)
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 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2864
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2865 #ifdef DEBUG_XEMACS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2866 if (debug_x_events > 0)
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2867 describe_event (event, Qexternal_debugging_output);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2868 #endif /* DEBUG_XEMACS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2869 if (x_event_to_emacs_event (event, XEVENT (emacs_event)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2870 enqueue_Xt_dispatch_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2871 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2872 Fdeallocate_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2873 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2874
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2875
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 /* input pending / C-g checking */
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2880 static Bool
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2881 quit_char_predicate (Display *display, XEvent *event, XPointer data)
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 struct device *d = get_device_from_display (display);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2884 struct x_device *xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2885 char c, quit_char;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2886 Bool *critical = (Bool *) data;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2887 Lisp_Object keysym;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2888
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2889 if (critical)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2890 *critical = False;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2891 if ((event->type != KeyPress) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2892 (! x_any_window_to_frame (d, event->xany.window)) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2893 (event->xkey.state
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2894 & (xd->MetaMask | xd->HyperMask | xd->SuperMask | xd->AltMask)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2895 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2896
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2897 /* This duplicates some code that exists elsewhere, but it's relatively
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2898 fast and doesn't cons. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2899 keysym = x_to_emacs_keysym (&event->xkey, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2900 if (NILP (keysym)) return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2901 if (CHAR_OR_CHAR_INTP (keysym))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2902 c = XCHAR_OR_CHAR_INT (keysym);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2903 /* Highly doubtful that these are the quit character, but... */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2904 else if (EQ (keysym, QKbackspace)) c = '\b';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2905 else if (EQ (keysym, QKtab)) c = '\t';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2906 else if (EQ (keysym, QKlinefeed)) c = '\n';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2907 else if (EQ (keysym, QKreturn)) c = '\r';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2908 else if (EQ (keysym, QKescape)) c = 27;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2909 else if (EQ (keysym, QKspace)) c = ' ';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2910 else if (EQ (keysym, QKdelete)) c = 127;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2911 else return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2912
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2913 if (event->xkey.state & xd->MetaMask) c |= 0x80;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2914 if ((event->xkey.state & ControlMask) && !(c >= 'A' && c <= 'Z'))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2915 c &= 0x1F; /* unshifted control characters */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2916 quit_char = CONSOLE_QUIT_CHAR (XCONSOLE (DEVICE_CONSOLE (d)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2917 if (c == quit_char)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2918 return True;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2919 /* 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
2920 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
2921 won't cause ^G to act differently than before. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2922 if (event->xkey.state & ControlMask) c &= 0x1F;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2923 if (c == quit_char)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2924 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2925 if (critical) *critical = True;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2926 return True;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2927 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2928 return False;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2929 }
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 /* 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
2932 quit character, and sets Vquit_flag. This is called from the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2933 QUIT macro to determine whether we should quit.
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 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
2936 since the last time we checked.
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 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
2939 (which is called from input_pending_p).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2940 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2941 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2942 x_check_for_quit_char (Display *display)
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 XEvent event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2945 int queued;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2946 Bool critical_quit = False;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2947 XEventsQueued (display, QueuedAfterReading);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2948 queued = XCheckIfEvent (display, &event,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2949 quit_char_predicate,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2950 (char *) &critical_quit);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2951 if (queued)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2952 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2953 Vquit_flag = (critical_quit ? Qcritical : Qt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2954 /* don't put the event back onto the queue. Those functions that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2955 wanted to read a ^G directly have arranged to do this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2956 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2957 }
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 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2960 check_for_tty_quit_char (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2961 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2962 SELECT_TYPE temp_mask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2963 int infd = DEVICE_INFD (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2964 struct console *con = XCONSOLE (DEVICE_CONSOLE (d));
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
2965 Ichar quit_char = CONSOLE_QUIT_CHAR (con);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2966
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2967 FD_ZERO (&temp_mask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2968 FD_SET (infd, &temp_mask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2969
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2970 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2971 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2972 Lisp_Object event;
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
2973 Ichar the_char;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2974
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2975 if (!poll_fds_for_input (temp_mask))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2976 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2977
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2978 event = Fmake_event (Qnil, Qnil);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
2979 if (!read_event_from_tty_or_stream_desc (XEVENT (event), con))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2980 /* EOF, or something ... */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2981 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2982 /* #### bogus. quit-char should be allowed to be any sort
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2983 of event. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2984 the_char = event_to_character (XEVENT (event), 1, 0, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2985 if (the_char >= 0 && the_char == quit_char)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2986 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2987 Vquit_flag = Qt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2988 /* do not queue the C-g. See above. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2989 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2990 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2991
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2992 /* queue the read event to be read for real later. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2993 enqueue_Xt_dispatch_event (event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2994 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2995 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2996
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2997 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2998 emacs_Xt_quit_p (void)
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 Lisp_Object devcons, concons;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3001 CONSOLE_LOOP (concons)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3002 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3003 struct console *con = XCONSOLE (XCAR (concons));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3004 if (!con->input_enabled)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3005 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3006
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3007 CONSOLE_DEVICE_LOOP (devcons, con)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3008 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3009 struct device *d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3010 d = XDEVICE (XCAR (devcons));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3011
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3012 if (DEVICE_X_P (d) && DEVICE_X_DISPLAY (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3013 /* emacs may be exiting */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3014 x_check_for_quit_char (DEVICE_X_DISPLAY (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3015 else if (DEVICE_TTY_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3016 check_for_tty_quit_char (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3017 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3018 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3019 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3020
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3021 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3022 drain_X_queue (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3023 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3024 while (XtAppPending (Xt_app_con) & XtIMXEvent)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3025 XtAppProcessEvent (Xt_app_con, XtIMXEvent);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3026 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3027
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3028 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3029 emacs_Xt_event_pending_p (int user_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3030 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3031 Lisp_Object event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3032 int tick_count_val;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3033
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3034 /* 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
3035 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
3036 would return immediately without blocking).
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 `user_p' is true, then this function returns whether there are any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3039 *user generated* events available (that is, whether there are keyboard
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3040 or mouse-click events ready to be read). This also implies that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3041 emacs_Xt_next_event() would not block.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3042
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3043 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
3044 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
3045 in a SIGIO world, since input causes an interrupt.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3046 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3047
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3048 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3049 /* 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
3050 the speed gains achieved by the sigio_happened checking below.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3051 Its only advantage is that it may possibly make C-g response
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3052 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
3053 even without this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3054 #ifndef SIGIO
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3055 /* First check for C-g if necessary */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3056 emacs_Xt_quit_p ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3057 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3058 #endif
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 /* This function used to simply check whether there were any X
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3061 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
3062 X events using XCheckIfEvent(), looking for keystrokes and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3063 button events). That worked in the old cheesoid event loop,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3064 which didn't go through XtAppDispatchEvent(), but it doesn't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3065 work any more -- X events may not result in anything. For
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3066 example, a button press in a blank part of the menubar appears
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3067 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
3068 button press that activates the menubar results in an Emacs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3069 event through the stop_next_event mechanism).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3070
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3071 The only accurate way of determining whether these X events
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3072 translate into Emacs events is to go ahead and dispatch them
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3073 until there's something on the dispatch queue. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3074
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3075 /* See if there are any user events already on the queue. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3076 EVENT_CHAIN_LOOP (event, dispatch_event_queue)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3077 if (!user_p || command_event_p (event))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3078 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3079
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3080 /* See if there's any TTY input available.
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 if (poll_fds_for_input (tty_only_mask))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3083 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3084
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3085 if (!user_p)
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 /* 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
3088 pending, we know there will be an event so we're through. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3089 XtInputMask pending_value;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3090
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3091 /* Note that formerly we just checked the value of XtAppPending()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3092 to determine if there was file-desc input. This doesn't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3093 work any more with the signal_event_pipe; XtAppPending()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3094 will says "yes" in this case but there isn't really any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3095 input. Another way of fixing this problem is for the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3096 signal_event_pipe to generate actual input in the form
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3097 of an identity eval event or something. (#### maybe this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3098 actually happens?) */
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 (process_only_mask))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3101 return 1;
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 pending_value = XtAppPending (Xt_app_con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3104
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3105 if (pending_value & XtIMTimer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3106 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3107 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3108
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3109 /* 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
3110 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
3111 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
3112 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
3113 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
3114 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
3115 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
3116 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
3117 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
3118 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
3119 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
3120 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
3121 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
3122 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
3123 time you hit a key.)
428
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3126 /* 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
3127 by using a temporary variable */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3128 tick_count_val = quit_check_signal_tick_count;
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
3129 if (last_quit_check_signal_tick_count != tick_count_val
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
3130 #if !defined (SIGIO) || defined (CYGWIN)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
3131 || (XtIMXEvent & XtAppPending (Xt_app_con))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
3132 #endif
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
3133 )
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3134 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3135 last_quit_check_signal_tick_count = tick_count_val;
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 /* We need to drain the entire queue now -- if we only
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3138 drain part of it, we may later on end up with events
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3139 actually pending but detect_input_pending() returning
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3140 false because there wasn't another SIGIO. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3141 drain_X_queue ();
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 EVENT_CHAIN_LOOP (event, dispatch_event_queue)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3144 if (!user_p || command_event_p (event))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3145 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3146 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3147
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3148 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3149 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3150
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3151 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3152 emacs_Xt_current_event_timestamp (struct console *c)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3153 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3154 /* semi-yuck. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3155 Lisp_Object devs = CONSOLE_DEVICE_LIST (c);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3156
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3157 if (NILP (devs))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3158 return 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3159 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3160 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3161 struct device *d = XDEVICE (XCAR (devs));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3162 return DEVICE_X_LAST_SERVER_TIMESTAMP (d);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3163 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3164 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3165
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3166
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 /* replacement for standard string-to-pixel converter */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3169 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3170
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3171 /* This was constructed by ripping off the standard string-to-pixel
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3172 converter from Converters.c in the Xt source code and modifying
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3173 appropriately. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3174
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3175 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3176
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3177 /* 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
3178 isn't the case somewhere, rename this appropriately and remove
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3179 the '#if 0'. Note, however, that I got "unknown structure"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3180 errors when I tried this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3181 XtConvertArgRec Const colorConvertArgs[] = {
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3182 { XtWidgetBaseOffset, (XtPointer)XtOffsetOf(WidgetRec, core.screen),
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3183 sizeof (Screen *) },
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3184 { XtWidgetBaseOffset, (XtPointer)XtOffsetOf(WidgetRec, core.colormap),
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3185 sizeof (Colormap) }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3186 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3187
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3188 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3189
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3190 #define done(type, value) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3191 if (toVal->addr != NULL) { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3192 if (toVal->size < sizeof(type)) { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3193 toVal->size = sizeof(type); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3194 return False; \
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 *(type*)(toVal->addr) = (value); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3197 } else { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3198 static type static_val; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3199 static_val = (value); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3200 toVal->addr = (XPointer)&static_val; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3201 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3202 toVal->size = sizeof(type); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3203 return True /* Caller supplies `;' */
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 /* JH: We use this because I think there's a possibility this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3206 is called before the device is properly set up, in which case
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3207 I don't want to abort. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3208 extern struct device *get_device_from_display_1 (Display *dpy);
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 static
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3211 Boolean EmacsXtCvtStringToPixel (
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3212 Display *dpy,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3213 XrmValuePtr args,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3214 Cardinal *num_args,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3215 XrmValuePtr fromVal,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3216 XrmValuePtr toVal,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3217 XtPointer *closure_ret)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3218 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3219 String str = (String)fromVal->addr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3220 XColor screenColor;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3221 XColor exactColor;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3222 Screen *screen;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3223 Colormap colormap;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3224 Visual *visual;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3225 struct device *d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3226 Status status;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3227 String params[1];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3228 Cardinal num_params = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3229 XtAppContext the_app_con = XtDisplayToApplicationContext (dpy);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3230
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3231 if (*num_args != 2) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3232 XtAppWarningMsg(the_app_con, "wrongParameters", "cvtStringToPixel",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3233 "XtToolkitError",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3234 "String to pixel conversion needs screen and colormap arguments",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3235 (String *)NULL, (Cardinal *)NULL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3236 return False;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3237 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3238
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3239 screen = *((Screen **) args[0].addr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3240 colormap = *((Colormap *) args[1].addr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3241
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3242 /* The original uses the private function CompareISOLatin1().
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3243 Use XmuCompareISOLatin1() if you want, but I don't think it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3244 makes any difference here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3245 if (strcmp(str, XtDefaultBackground) == 0) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3246 *closure_ret = False;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3247 /* This refers to the display's "*reverseVideo" resource.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3248 These display resources aren't documented anywhere that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3249 I can find, so I'm going to ignore this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3250 /* if (pd->rv) done(Pixel, BlackPixelOfScreen(screen)) else */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3251 done(Pixel, WhitePixelOfScreen(screen));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3252 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3253 if (strcmp(str, XtDefaultForeground) == 0) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3254 *closure_ret = False;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3255 /* if (pd->rv) done(Pixel, WhitePixelOfScreen(screen)) else */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3256 done(Pixel, BlackPixelOfScreen(screen));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3257 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3258
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3259 /* Originally called XAllocNamedColor() here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3260 if ((d = get_device_from_display_1(dpy))) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3261 visual = DEVICE_X_VISUAL(d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3262 if (colormap != DEVICE_X_COLORMAP(d)) {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3263 XtAppWarningMsg(the_app_con, "weirdColormap", "cvtStringToPixel",
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3264 "XtToolkitWarning",
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3265 "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
3266 NULL, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3267 status = XAllocNamedColor(dpy, colormap, (char*)str, &screenColor, &exactColor);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3268 } else {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3269 status = XParseColor (dpy, colormap, (char*)str, &screenColor);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3270 if (status) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3271 status = allocate_nearest_color (dpy, colormap, visual, &screenColor);
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3274 } else {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3275 /* We haven't set up this device totally yet, so just punt */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3276 status = XAllocNamedColor(dpy, colormap, (char*)str, &screenColor, &exactColor);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3277 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3278 if (status == 0) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3279 params[0] = str;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3280 /* Server returns a specific error code but Xlib discards it. Ugh */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3281 if (XLookupColor(DisplayOfScreen(screen), colormap, (char*) str,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3282 &exactColor, &screenColor)) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3283 XtAppWarningMsg(the_app_con, "noColormap", "cvtStringToPixel",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3284 "XtToolkitError",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3285 "Cannot allocate colormap entry for \"%s\"",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3286 params, &num_params);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3287
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3288 } else {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3289 XtAppWarningMsg(the_app_con, "badValue", "cvtStringToPixel",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3290 "XtToolkitError",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3291 "Color name \"%s\" is not defined", params, &num_params);
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3294 *closure_ret = False;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3295 return False;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3296 } else {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3297 *closure_ret = (char*)True;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3298 done(Pixel, screenColor.pixel);
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 }
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 /* ARGSUSED */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3303 static void EmacsFreePixel (
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3304 XtAppContext app,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3305 XrmValuePtr toVal,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3306 XtPointer closure,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3307 XrmValuePtr args,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3308 Cardinal *num_args)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3309 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3310 if (*num_args != 2) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3311 XtAppWarningMsg(app, "wrongParameters","freePixel","XtToolkitError",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3312 "Freeing a pixel requires screen and colormap arguments",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3313 (String *)NULL, (Cardinal *)NULL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3314 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3315 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3316
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3317 if (closure) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3318 Screen *screen = *((Screen **) args[0].addr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3319 Colormap colormap = *((Colormap *) args[1].addr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3320 XFreeColors(DisplayOfScreen(screen), colormap,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3321 (unsigned long*)toVal->addr, 1, (unsigned long)0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3322 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3323 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3324
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3325
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3326 /************************************************************************/
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3327 /* handle focus changes for native widgets */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3328 /************************************************************************/
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3329 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3330 emacs_Xt_event_widget_focus_in (Widget w,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3331 XEvent *event,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3332 String *params,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3333 Cardinal *num_params)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3334 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
3335 struct frame *f =
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3336 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
3337
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3338 XtSetKeyboardFocus (FRAME_X_SHELL_WIDGET (f), w);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3339 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3340
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3341 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3342 emacs_Xt_event_widget_focus_out (Widget w,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3343 XEvent *event,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3344 String *params,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3345 Cardinal *num_params)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3346 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3347 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3348
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3349 static XtActionsRec widgetActionsList[] =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3350 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3351 {"widget-focus-in", emacs_Xt_event_widget_focus_in },
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3352 {"widget-focus-out", emacs_Xt_event_widget_focus_out },
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3353 };
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3354
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3355 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3356 emacs_Xt_event_add_widget_actions (XtAppContext ctx)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3357 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3358 XtAppAddActions (ctx, widgetActionsList, 2);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3359 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3360
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3361
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3362 /************************************************************************/
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3363 /* initialization */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3364 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3365
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3366 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3367 syms_of_event_Xt (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3368 {
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 502
diff changeset
3369 DEFSYMBOL (Qkey_mapping);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 502
diff changeset
3370 DEFSYMBOL (Qsans_modifiers);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 502
diff changeset
3371 DEFSYMBOL (Qself_insert_command);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3372 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3373
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3374 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3375 reinit_vars_of_event_Xt (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3376 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3377 Xt_event_stream = xnew (struct event_stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3378 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
3379 Xt_event_stream->force_event_pending = emacs_Xt_force_event_pending;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3380 Xt_event_stream->next_event_cb = emacs_Xt_next_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3381 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
3382 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
3383 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
3384 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
3385 Xt_event_stream->add_timeout_cb = emacs_Xt_add_timeout;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3386 Xt_event_stream->remove_timeout_cb = emacs_Xt_remove_timeout;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3387 Xt_event_stream->select_console_cb = emacs_Xt_select_console;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3388 Xt_event_stream->unselect_console_cb = emacs_Xt_unselect_console;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3389 Xt_event_stream->select_process_cb = emacs_Xt_select_process;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3390 Xt_event_stream->unselect_process_cb = emacs_Xt_unselect_process;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3391 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
3392 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
3393 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
3394 Xt_event_stream->current_event_timestamp_cb =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3395 emacs_Xt_current_event_timestamp;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3396
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3397 the_Xt_timeout_blocktype = Blocktype_new (struct Xt_timeout_blocktype);
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 last_quit_check_signal_tick_count = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3400
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3401 /* this function only makes safe calls */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3402 init_what_input_once ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3403 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3404
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3405 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3406 vars_of_event_Xt (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3407 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3408 reinit_vars_of_event_Xt ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3409
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3410 dispatch_event_queue = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3411 staticpro (&dispatch_event_queue);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3412 dispatch_event_queue_tail = Qnil;
452
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
3413 dump_add_root_object (&dispatch_event_queue_tail);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3414
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3415 DEFVAR_BOOL ("x-allow-sendevents", &x_allow_sendevents /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3416 *Non-nil means to allow synthetic events. Nil means they are ignored.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3417 Beware: allowing emacs to process SendEvents opens a big security hole.
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 x_allow_sendevents = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3420
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3421 #ifdef DEBUG_XEMACS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3422 DEFVAR_INT ("debug-x-events", &debug_x_events /*
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3423 If non-zero, display debug information about X events that XEmacs sees.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3424 Information is displayed on stderr. Currently defined values are:
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 1 == non-verbose output
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3427 2 == verbose output
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3428 */ );
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3429 debug_x_events = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3430 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3431 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3432
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3433 /* 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
3434 the same as colormap and depth inheritance */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3435
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3436 static XtInitProc orig_shell_init_proc;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3437
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3438 static void ShellVisualPatch(Widget wanted, Widget new,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3439 ArgList args, Cardinal *num_args)
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 Widget p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3442 ShellWidget w = (ShellWidget) new;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3443
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3444 /* first, call the original setup */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3445 (*orig_shell_init_proc)(wanted, new, args, num_args);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3446
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3447 /* 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
3448 if (w->shell.visual == CopyFromParent) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3449 p = XtParent(w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3450 while (p && !XtIsShell(p)) p = XtParent(p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3451 if (p) w->shell.visual = ((ShellWidget)p)->shell.visual;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3452 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3453 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3454
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3455 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3456 init_event_Xt_late (void) /* called when already initialized */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3457 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3458 timeout_id_tick = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3459 pending_timeouts = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3460 completed_timeouts = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3461
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3462 event_stream = Xt_event_stream;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3463
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3464 XtToolkitInitialize ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3465 Xt_app_con = XtCreateApplicationContext ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3466 XtAppSetFallbackResources (Xt_app_con, (String *) x_fallback_resources);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3467
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3468 /* In select-x.c */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3469 x_selection_timeout = (XtAppGetSelectionTimeout (Xt_app_con) / 1000);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3470 XSetErrorHandler (x_error_handler);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3471 XSetIOErrorHandler (x_IO_error_handler);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3472
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3473 #ifndef WIN32_NATIVE
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3474 XtAppAddInput (Xt_app_con, signal_event_pipe[0],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3475 (XtPointer) (XtInputReadMask /* | XtInputExceptMask */),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3476 Xt_what_callback, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3477 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3478
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3479 XtAppSetTypeConverter (Xt_app_con, XtRString, XtRPixel,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3480 EmacsXtCvtStringToPixel,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3481 (XtConvertArgList) colorConvertArgs,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3482 2, XtCacheByDisplay, EmacsFreePixel);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3483
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3484 #ifdef XIM_XLIB
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3485 XtAppSetTypeConverter (Xt_app_con, XtRString, XtRXimStyles,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3486 EmacsXtCvtStringToXIMStyles,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3487 NULL, 0,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3488 XtCacheByDisplay, EmacsFreeXIMStyles);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3489 #endif /* XIM_XLIB */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3490 /* Add extra actions to native widgets to handle focus and friends. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3491 emacs_Xt_event_add_widget_actions (Xt_app_con);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3492
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3493 /* insert the visual inheritance patch/hack described above */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3494 orig_shell_init_proc = shellClassRec.core_class.initialize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3495 shellClassRec.core_class.initialize = ShellVisualPatch;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3496
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3497 }