annotate src/event-msw.c @ 853:2b6fa2618f76

[xemacs-hg @ 2002-05-28 08:44:22 by ben] merge my stderr-proc ws make-docfile.c: Fix places where we forget to check for EOF. code-init.el: Don't use CRLF conversion by default on process output. CMD.EXE and friends work both ways but Cygwin programs don't like the CRs. code-process.el, multicast.el, process.el: Removed. Improvements to call-process-internal: -- allows a buffer to be specified for input and stderr output -- use it on all systems -- implement C-g as documented -- clean up and comment call-process-region uses new call-process facilities; no temp file. remove duplicate funs in process.el. comment exactly how coding systems work and fix various problems. open-multicast-group now does similar coding-system frobbing to open-network-stream. dumped-lisp.el, faces.el, msw-faces.el: Fix some hidden errors due to code not being defined at the right time. xemacs.mak: Add -DSTRICT. ================================================================ ALLOW SEPARATION OF STDOUT AND STDERR IN PROCESSES ================================================================ Standard output and standard error can be processed separately in a process. Each can have its own buffer, its own mark in that buffer, and its filter function. You can specify a separate buffer for stderr in `start-process' to get things started, or use the new primitives: set-process-stderr-buffer process-stderr-buffer process-stderr-mark set-process-stderr-filter process-stderr-filter Also, process-send-region takes a 4th optional arg, a buffer. Currently always uses a pipe() under Unix to read the error output. (#### Would a PTY be better?) sysdep.h, sysproc.h, unexfreebsd.c, unexsunos4.c, nt.c, emacs.c, callproc.c, symsinit.h, sysdep.c, Makefile.in.in, process-unix.c: Delete callproc.c. Move child_setup() to process-unix.c. wait_for_termination() now only needed on a few really old systems. console-msw.h, event-Xt.c, event-msw.c, event-stream.c, event-tty.c, event-unixoid.c, events.h, process-nt.c, process-unix.c, process.c, process.h, procimpl.h: Rewrite the process methods to handle a separate channel for error input. Create Lstreams for reading in the error channel. Many process methods need change. In general the changes are fairly clear as they involve duplicating what's used for reading the normal stdout and changing for stderr -- although tedious, as such changes are required throughout the entire process code. Rewrote the code that reads process output to do two loops, one for stdout and one for stderr. gpmevent.c, tooltalk.c: set_process_filter takes an argument for stderr. ================================================================ NEW ERROR-TRAPPING MECHANISM ================================================================ Totally rewrite error trapping code to be unified and support more features. Basic function is call_trapping_problems(), which lets you specify, by means of flags, what sorts of problems you want trapped. these can include -- quit -- errors -- throws past the function -- creation of "display objects" (e.g. buffers) -- deletion of already-existing "display objects" (e.g. buffers) -- modification of already-existing buffers -- entering the debugger -- gc -- errors->warnings (ala suspended errors) etc. All other error funs rewritten in terms of this one. Various older mechanisms removed or rewritten. window.c, insdel.c, console.c, buffer.c, device.c, frame.c: When creating a display object, added call to note_object_created(), for use with trapping_problems mechanism. When deleting, call check_allowed_operation() and note_object deleted(). The trapping-problems code records the objects created since the call-trapping-problems began. Those objects can be deleted, but none others (i.e. previously existing ones). bytecode.c, cmdloop.c: internal_catch takes another arg. eval.c: Add long comments describing the "five lists" used to maintain state (backtrace, gcpro, specbind, etc.) in the Lisp engine. backtrace.h, eval.c: Implement trapping-problems mechanism, eliminate old mechanisms or redo in terms of new one. frame.c, gutter.c: Flush out the concept of "critical display section", defined by the in_display() var. Use an internal_bind() to get it reset, rather than just doing it at end, because there may be a non-local exit. event-msw.c, event-stream.c, console-msw.h, device.c, dialog-msw.c, frame.c, frame.h, intl.c, toolbar.c, menubar-msw.c, redisplay.c, alloc.c, menubar-x.c: Make use of new trapping-errors stuff and rewrite code based on old mechanisms. glyphs-widget.c, redisplay.h: Protect calling Lisp in redisplay. insdel.c: Protect hooks against deleting existing buffers. frame-msw.c: Use EQ, not EQUAL in hash tables whose keys are just numbers. Otherwise we run into stickiness in redisplay because internal_equal() can QUIT. ================================================================ SIGNAL, C-G CHANGES ================================================================ Here we change the way that C-g interacts with event reading. The idea is that a C-g occurring while we're reading a user event should be read as C-g, but elsewhere should be a QUIT. The former code did all sorts of bizarreness -- requiring that no QUIT occurs anywhere in event-reading code (impossible to enforce given the stuff called or Lisp code invoked), and having some weird system involving enqueue/dequeue of a C-g and interaction with Vquit_flag -- and it didn't work. Now, we simply enclose all code where we want C-g read as an event with {begin/end}_dont_check_for_quit(). This completely turns off the mechanism that checks (and may remove or alter) C-g in the read-ahead queues, so we just get the C-g normal. Signal.c documents this very carefully. cmdloop.c: Correct use of dont_check_for_quit to new scheme, remove old out-of-date comments. event-stream.c: Fix C-g handling to actually work. device-x.c: Disable quit checking when err out. signal.c: Cleanup. Add large descriptive comment. process-unix.c, process-nt.c, sysdep.c: Use QUIT instead of REALLY_QUIT. It's not necessary to use REALLY_QUIT and just confuses the issue. lisp.h: Comment quit handlers. ================================================================ CONS CHANGES ================================================================ free_cons() now takes a Lisp_Object not the result of XCONS(). car and cdr have been renamed so that they don't get used directly; go through XCAR(), XCDR() instead. alloc.c, dired.c, editfns.c, emodules.c, fns.c, glyphs-msw.c, glyphs-x.c, glyphs.c, keymap.c, minibuf.c, search.c, eval.c, lread.c, lisp.h: Correct free_cons calling convention: now takes Lisp_Object, not Lisp_Cons chartab.c: Eliminate direct use of ->car, ->cdr, should be black box. callint.c: Rewrote using EXTERNAL_LIST_LOOP to avoid use of Lisp_Cons. ================================================================ USE INTERNAL-BIND-* ================================================================ eval.c: Cleanups of these funs. alloc.c, fileio.c, undo.c, specifier.c, text.c, profile.c, lread.c, redisplay.c, menubar-x.c, macros.c: Rewrote to use internal_bind_int() and internal_bind_lisp_object() in place of whatever varied and cumbersome mechanisms were formerly there. ================================================================ SPECBIND SANITY ================================================================ backtrace.h: - Improved comments backtrace.h, bytecode.c, eval.c: Add new mechanism check_specbind_stack_sanity() for sanity checking code each time the catchlist or specbind stack change. Removed older prototype of same mechanism. ================================================================ MISC ================================================================ lisp.h, insdel.c, window.c, device.c, console.c, buffer.c: Fleshed out authorship. device-msw.c: Correct bad Unicode-ization. print.c: Be more careful when not initialized or in fatal error handling. search.c: Eliminate running_asynch_code, an FSF holdover. alloc.c: Added comments about gc-cons-threshold. dialog-x.c: Use begin_gc_forbidden() around code to build up a widget value tree, like in menubar-x.c. gui.c: Use Qunbound not Qnil as the default for gethash. lisp-disunion.h, lisp-union.h: Added warnings on use of VOID_TO_LISP(). lisp.h: Use ERROR_CHECK_STRUCTURES to turn on ERROR_CHECK_TRAPPING_PROBLEMS and ERROR_CHECK_TYPECHECK lisp.h: Add assert_with_message. lisp.h: Add macros for gcproing entire arrays. (You could do this before but it required manual twiddling the gcpro structure.) lisp.h: Add prototypes for new functions defined elsewhere.
author ben
date Tue, 28 May 2002 08:45:36 +0000
parents e7ee5f8bde58
children b27b70c1252a
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1 /* The mswindows event_stream interface.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2 Copyright (C) 1991, 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3 Copyright (C) 1995 Sun Microsystems, Inc.
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
4 Copyright (C) 1996, 2000, 2001, 2002 Ben Wing.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5 Copyright (C) 1997 Jonathan Harris.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7 This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 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
11 Free Software Foundation; either version 2, or (at your option) any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12 later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 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
15 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17 for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 along with XEmacs; see the file COPYING. If not, write to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22 Boston, MA 02111-1307, USA. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24 /* Synched up with: Not in FSF. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
26 /* This file essentially Mule-ized (except perhaps some Unicode splitting).
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
27 5-2000. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
28
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
29 /* Authorship:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
31 Ultimately based on FSF.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32 Rewritten by Ben Wing.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33 Rewritten for mswindows by Jonathan Harris, November 1997 for 21.0.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
34 Subprocess and modal loop support by Kirill M. Katsnelson.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
36
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
37 #define NEED_MSWINDOWS_SHLOBJ /* for IShellLink */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
38
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 #include <config.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40 #include "lisp.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
42 #if defined (CYGWIN) && !defined (HAVE_MSG_SELECT)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
43 #error We do not support non-select() versions (i.e. very old) of Cygwin.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
44 #endif
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
45
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
46 /* Acceptable are:
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
47
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
48 WIN32_NATIVE and HAVE_WIN32_PROCESSES and nothing else
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
49
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
50 CYGWIN and HAVE_MSG_SELECT and HAVE_UNIX_PROCESSES and nothing else
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
51 */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
52 #ifdef WIN32_NATIVE
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
53 # if !(defined (HAVE_WIN32_PROCESSES && !defined (HAVE_UNIX_PROCESSES) && !defined (HAVE_MSG_SELECT) && !defined (CYGWIN)))
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
54 # error Something is wrong with your process definitions for Windows native.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
55 # endif
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
56 #elif defined (CYGWIN)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
57 # if !(defined (HAVE_UNIX_PROCESSES) && defined (HAVE_MSG_SELECT) && !defined (HAVE_WIN32_PROCESSES) && !defined (WIN32_NATIVE))
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
58 # error Something is wrong with your process definitions for Cygwin.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
59 # endif
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
60 #else
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
61 # error Something is wrong -- you are neither Windows native (possibly MinGW) nor Cygwin.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
62 #endif
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
63
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
64 #include "buffer.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
65 #include "device.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
66 #include "events.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
67 #include "faces.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
68 #include "frame.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
69 #include "glyphs.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
70 #include "lstream.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
71 #include "process.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
72 #include "redisplay.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
73 #include "sysdep.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
74 #include "window.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
75
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 #include "console-msw.h"
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
77 #include "objects-msw.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 # include "scrollbar-msw.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83 #ifdef HAVE_MENUBARS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
84 # include "menubar.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85 # include "menubar-msw.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88 #ifdef HAVE_DRAGNDROP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89 # include "dragdrop.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91
558
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
92 #include "sysfile.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93 #include "sysproc.h"
558
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
94 #include "systime.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95 #include "syswait.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
96
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
97 #ifdef CYGWIN
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98 #include "console-tty.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101 #ifdef HAVE_MENUBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
102 #define ADJR_MENUFLAG TRUE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
103 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104 #define ADJR_MENUFLAG FALSE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
105 #endif
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 /* Fake key modifier which is attached to a quit char event.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
108 Removed upon dequeueing an event */
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
109 #define FAKE_MOD_QUIT (1 << 20)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
110 #define FAKE_MOD_QUIT_CRITICAL (1 << 21)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 /* Timer ID used for button2 emulation */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113 #define BUTTON_2_TIMER_ID 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115 static Lisp_Object mswindows_find_console (HWND hwnd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116 static Lisp_Object mswindows_key_to_emacs_keysym (int mswindows_key, int mods,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 int extendedp);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
118 static int mswindows_modifier_state (BYTE *keymap, DWORD fwKeys,
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
119 int has_AltGr);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120 static void mswindows_set_chord_timer (HWND hwnd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121 static int mswindows_button2_near_enough (POINTS p1, POINTS p2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122 static int mswindows_current_layout_has_AltGr (void);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
123 static int mswindows_handle_sticky_modifiers (WPARAM wParam, LPARAM lParam,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
124 int downp, int keyp);
428
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 static struct event_stream *mswindows_event_stream;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
127
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
128 #ifdef CYGWIN
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
129
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130 extern SELECT_TYPE input_wait_mask, non_fake_input_wait_mask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
131 extern SELECT_TYPE process_only_mask, tty_only_mask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
132 SELECT_TYPE zero_mask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
133 extern int signal_event_pipe_initialized;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
134 int windows_fd;
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
135
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
136 #else
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
137
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
138 /* List of mswindows waitable handles. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
139 static HANDLE mswindows_waitable_handles[MAX_WAITABLE];
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
140
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
141 /* Number of wait handles */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
142 static int mswindows_waitable_count = 0;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
143
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144 #endif
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 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147 * Two separate queues, for efficiency, one (_u_) for user events, and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148 * another (_s_) for non-user ones. We always return events out of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149 * first one until it is empty and only then proceed with the second
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150 * one.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152 static Lisp_Object mswindows_u_dispatch_event_queue, mswindows_u_dispatch_event_queue_tail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 static Lisp_Object mswindows_s_dispatch_event_queue, mswindows_s_dispatch_event_queue_tail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
154
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
155 /* The number of things we can wait on */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
156 #define MAX_WAITABLE (MAXIMUM_WAIT_OBJECTS - 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
157
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
158 /* Brush for painting widgets */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159 static HBRUSH widget_brush = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
160 static LONG last_widget_brushed = 0;
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 /* Count of quit chars currently in the queue */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163 /* Incremented in WM_[SYS]KEYDOWN handler in the mswindows_wnd_proc()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164 Decremented in mswindows_dequeue_dispatch_event() */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165 int mswindows_quit_chars_count = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
167 /* These are Lisp integers; see DEFVARS in this file for description. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
168 int mswindows_dynamic_frame_resize;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
169 int mswindows_alt_by_itself_activates_menu;
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 452
diff changeset
170 Fixnum mswindows_num_mouse_buttons;
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 452
diff changeset
171 Fixnum mswindows_mouse_button_max_skew_x;
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 452
diff changeset
172 Fixnum mswindows_mouse_button_max_skew_y;
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 452
diff changeset
173 Fixnum mswindows_mouse_button_tolerance;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
175 #ifdef DEBUG_XEMACS
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 452
diff changeset
176 Fixnum debug_mswindows_events;
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
177
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
178 static void debug_output_mswin_message (HWND hwnd, UINT message_,
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
179 WPARAM wParam, LPARAM lParam);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
180 #endif
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
181
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182 /* This is the event signaled by the event pump.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
183 See mswindows_pump_outstanding_events for comments */
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
184 static int mswindows_error_caught_in_modal_loop;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185 static int mswindows_in_modal_loop;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 /* Count of wound timers */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 static int mswindows_pending_timers_count;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
189
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
190 static DWORD mswindows_last_mouse_button_state;
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
191
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
193 #ifndef CYGWIN /* Skips past slurp, shove, or winsock streams */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
194
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
196 /* Pipe instream - reads process output */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
197 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
198
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
199 #define PIPE_READ_DELAY 20
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
200
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
201 #define HANDLE_TO_USID(h) ((USID)(h))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
202
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
203 #define NTPIPE_SLURP_STREAM_DATA(stream) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
204 LSTREAM_TYPE_DATA (stream, ntpipe_slurp)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
205
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
206 /* This structure is allocated by the main thread, and is deallocated
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
207 in the thread upon exit. There are situations when a thread
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
208 remains blocked for a long time, much longer than the lstream
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
209 exists. For example, "start notepad" command is issued from the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
210 shell, then the shell is closed by C-c C-d. Although the shell
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
211 process exits, its output pipe will not get closed until the
656
4035041996d8 [xemacs-hg @ 2001-09-08 09:12:08 by adrian]
adrian
parents: 647
diff changeset
212 notepad process exits also, because it inherits the pipe from the
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
213 shell. In this case, we abandon the thread, and let it live until
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
214 all such processes exit. While struct ntpipe_slurp_stream is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215 deallocated in this case, ntpipe_slurp_stream_shared_data are not. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
216
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
217 struct ntpipe_slurp_stream_shared_data
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
218 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
219 HANDLE hev_thread; /* Our thread blocks on this, signaled by caller */
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
220 /* This is a manual-reset object. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
221 HANDLE hev_caller; /* Caller blocks on this, and we signal it */
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
222 /* This is a manual-reset object. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
223 HANDLE hev_unsleep; /* Pipe read delay is canceled if this is set */
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
224 /* This is a manual-reset object. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
225 HANDLE hpipe; /* Pipe read end handle. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
226 LONG die_p; /* Thread must exit ASAP if non-zero */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
227 BOOL eof_p : 1; /* Set when thread saw EOF */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
228 BOOL error_p : 1; /* Read error other than EOF/broken pipe */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
229 BOOL inuse_p : 1; /* this structure is in use */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
230 LONG lock_count; /* Client count of this struct, 0=safe to free */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
231 BYTE onebyte; /* One byte buffer read by thread */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
232 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
233
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
234 #define MAX_SLURP_STREAMS 32
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235 struct ntpipe_slurp_stream_shared_data
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
236 shared_data_block[MAX_SLURP_STREAMS]={{0}};
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
237
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
238 struct ntpipe_slurp_stream
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
239 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
240 LPARAM user_data; /* Any user data stored in the stream object */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
241 struct ntpipe_slurp_stream_shared_data *thread_data;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
242 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
243
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
244 DEFINE_LSTREAM_IMPLEMENTATION ("ntpipe-input", ntpipe_slurp);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
245
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
246 /* This function is thread-safe, and is called from either thread
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247 context. It serializes freeing shared data structure */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248 static void
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
249 slurper_free_shared_data_maybe (struct ntpipe_slurp_stream_shared_data *s)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
250 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
251 if (InterlockedDecrement (&s->lock_count) == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 /* Destroy events */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254 CloseHandle (s->hev_thread);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
255 CloseHandle (s->hev_caller);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
256 CloseHandle (s->hev_unsleep);
673
685b588e92d8 [xemacs-hg @ 2001-10-30 05:13:26 by andyp]
andyp
parents: 665
diff changeset
257 CloseHandle (s->hpipe);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
258 s->inuse_p = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
259 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
260 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
261
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
262 static struct ntpipe_slurp_stream_shared_data *
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
263 slurper_allocate_shared_data (void)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
264 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
265 int i=0;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
266 for (i = 0; i < MAX_SLURP_STREAMS; i++)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
267 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
268 if (!shared_data_block[i].inuse_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
269 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
270 shared_data_block[i].inuse_p = 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
271 return &shared_data_block[i];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
272 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
273 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
274 return (struct ntpipe_slurp_stream_shared_data *)0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
275 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
276
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
277 static DWORD WINAPI
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
278 slurp_thread (LPVOID vparam)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
279 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
280 struct ntpipe_slurp_stream_shared_data *s =
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
281 (struct ntpipe_slurp_stream_shared_data *)vparam;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
282
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
283 for (;;)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
284 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
285 /* Read one byte from the pipe */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
286 DWORD actually_read;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
287 if (!ReadFile (s->hpipe, &s->onebyte, 1, &actually_read, NULL))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
288 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
289 DWORD err = GetLastError ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
290 if (err == ERROR_BROKEN_PIPE || err == ERROR_NO_DATA)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
291 s->eof_p = TRUE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
292 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
293 s->error_p = TRUE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
294 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
295 else if (actually_read == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
296 s->eof_p = TRUE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
297
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
298 /* We must terminate on an error or eof */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
299 if (s->eof_p || s->error_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
300 InterlockedIncrement (&s->die_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
301
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
302 /* Before we notify caller, we unsignal our event. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
303 ResetEvent (s->hev_thread);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
304
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
305 /* Now we got something to notify caller, either a byte or an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
306 error/eof indication. Before we do, allow internal pipe
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
307 buffer to accumulate little bit more data.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
308 Reader function pulses this event before waiting for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
309 a character, to avoid pipe delay, and to get the byte
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
310 immediately. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
311 if (!s->die_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
312 WaitForSingleObject (s->hev_unsleep, PIPE_READ_DELAY);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
313
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
314 /* Either make event loop generate a process event, or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
315 inblock reader */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
316 SetEvent (s->hev_caller);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
317
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
318 /* Cleanup and exit if we're shot off */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
319 if (s->die_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
320 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
321
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
322 /* Block until the client finishes with retrieving the rest of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
323 pipe data */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
324 WaitForSingleObject (s->hev_thread, INFINITE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
325 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
326
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
327 slurper_free_shared_data_maybe (s);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
328
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
329 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
330 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
331
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
332 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
333 make_ntpipe_input_stream (HANDLE hpipe, LPARAM param)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
334 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
335 Lstream *lstr = Lstream_new (lstream_ntpipe_slurp, "r");
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
336 struct ntpipe_slurp_stream *s = NTPIPE_SLURP_STREAM_DATA (lstr);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
337 DWORD thread_id_unused;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
338 HANDLE hthread;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
339
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
340 /* We deal only with pipes, for we're using PeekNamedPipe api */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
341 assert (GetFileType (hpipe) == FILE_TYPE_PIPE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
342
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
343 s->thread_data = slurper_allocate_shared_data();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
344
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
345 /* Create reader thread. This could fail, so do not create events
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
346 until thread is created */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
347 hthread = CreateThread (NULL, 0, slurp_thread, (LPVOID)s->thread_data,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
348 CREATE_SUSPENDED, &thread_id_unused);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
349 if (hthread == NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
350 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
351 Lstream_delete (lstr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
352 s->thread_data->inuse_p=0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
353 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
354 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
355
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
356 /* Shared data are initially owned by both main and slurper
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
357 threads. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
358 s->thread_data->lock_count = 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
359 s->thread_data->die_p = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
360 s->thread_data->eof_p = FALSE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
361 s->thread_data->error_p = FALSE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
362 s->thread_data->hpipe = hpipe;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
363 s->user_data = param;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
364
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
365 /* hev_thread is a manual-reset event, initially signaled */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
366 s->thread_data->hev_thread = qxeCreateEvent (NULL, TRUE, TRUE, NULL);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
367 /* hev_caller is a manual-reset event, initially nonsignaled */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
368 s->thread_data->hev_caller = qxeCreateEvent (NULL, TRUE, FALSE, NULL);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
369 /* hev_unsleep is a manual-reset event, initially nonsignaled */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
370 s->thread_data->hev_unsleep = qxeCreateEvent (NULL, TRUE, FALSE, NULL);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
371
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
372 /* Now let it go */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
373 ResumeThread (hthread);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
374 CloseHandle (hthread);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
375
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376 lstr->flags |= LSTREAM_FL_CLOSE_AT_DISKSAVE;
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 791
diff changeset
377 return wrap_lstream (lstr);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
380 static LPARAM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
381 get_ntpipe_input_stream_param (Lstream *stream)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
382 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
383 struct ntpipe_slurp_stream *s = NTPIPE_SLURP_STREAM_DATA(stream);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
384 return s->user_data;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387 static HANDLE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
388 get_ntpipe_input_stream_waitable (Lstream *stream)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
389 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
390 struct ntpipe_slurp_stream *s = NTPIPE_SLURP_STREAM_DATA(stream);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
391 return s->thread_data->hev_caller;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
392 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
393
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 657
diff changeset
394 static Bytecount
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
395 ntpipe_slurp_reader (Lstream *stream, unsigned char *data,
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 657
diff changeset
396 Bytecount size)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
397 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
398 /* This function must be called from the main thread only */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
399 struct ntpipe_slurp_stream_shared_data *s =
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
400 NTPIPE_SLURP_STREAM_DATA(stream)->thread_data;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
401
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
402 if (!s->die_p)
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 DWORD wait_result;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
405 /* Disallow pipe read delay for the thread: we need a character
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
406 ASAP */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
407 SetEvent (s->hev_unsleep);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
408
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
409 /* Check if we have a character ready. Give it a short delay,
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
410 for the thread to awake from pipe delay, just ion case */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
411 wait_result = WaitForSingleObject (s->hev_caller, 2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
412
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
413 /* Revert to the normal sleep behavior. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
414 ResetEvent (s->hev_unsleep);
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 /* If there's no byte buffered yet, give up */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
417 if (wait_result == WAIT_TIMEOUT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
418 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
419 errno = EAGAIN;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
420 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
421 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
422 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
423
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
424 /* Reset caller unlock event now, as we've handled the pending
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
425 process output event */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
426 ResetEvent (s->hev_caller);
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 /* It is now safe to do anything with contents of S, except for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
429 changing s->die_p, which still should be interlocked */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
430
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
431 if (s->eof_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
432 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
433 if (s->error_p || s->die_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
434 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
435
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
436 /* Ok, there were no error neither eof - we've got a byte from the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
437 pipe */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
438 *(data++) = s->onebyte;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
439 --size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
440
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 DWORD bytes_read = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
443 if (size > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
444 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
445 DWORD bytes_available;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
446
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
447 /* If the api call fails, return at least one byte already
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
448 read. ReadFile in thread will return error */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
449 if (PeekNamedPipe (s->hpipe, NULL, 0, NULL, &bytes_available, NULL))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
450 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
451
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
452 /* Fetch available bytes. The same consideration applies,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
453 so do not check for errors. ReadFile in the thread will
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
454 fail if the next call fails. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
455 if (bytes_available)
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 611
diff changeset
456 ReadFile (s->hpipe, data, min (bytes_available, (DWORD) size),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
457 &bytes_read, NULL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
458 }
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 /* Now we can unblock thread, so it attempts to read more */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
461 SetEvent (s->hev_thread);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
462 return bytes_read + 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
463 }
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 return 0;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
468 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
469 ntpipe_slurp_closer (Lstream *stream)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
470 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
471 /* This function must be called from the main thread only */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
472 struct ntpipe_slurp_stream_shared_data *s =
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
473 NTPIPE_SLURP_STREAM_DATA(stream)->thread_data;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
474
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
475 /* Force thread to stop */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
476 InterlockedIncrement (&s->die_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
477
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
478 /* Set events which could possibly block slurper. Let it finish soon
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
479 or later. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
480 SetEvent (s->hev_unsleep);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
481 SetEvent (s->hev_thread);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
482
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
483 /* Unlock and maybe free shared data */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
484 slurper_free_shared_data_maybe (s);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
485
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
486 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
487 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
488
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
489 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
490 init_slurp_stream (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
491 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
492 LSTREAM_HAS_METHOD (ntpipe_slurp, reader);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
493 LSTREAM_HAS_METHOD (ntpipe_slurp, closer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
494 }
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
495
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
496
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
497 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
498 /* Pipe outstream - writes process input */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
499 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501 #define NTPIPE_SHOVE_STREAM_DATA(stream) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
502 LSTREAM_TYPE_DATA (stream, ntpipe_shove)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
503
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
504 #define MAX_SHOVE_BUFFER_SIZE 512
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
505
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
506 struct ntpipe_shove_stream
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
507 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
508 LPARAM user_data; /* Any user data stored in the stream object */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
509 HANDLE hev_thread; /* Our thread blocks on this, signaled by caller */
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
510 /* This is an auto-reset object. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
511 HANDLE hpipe; /* Pipe write end handle. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
512 HANDLE hthread; /* Reader thread handle. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
513 char buffer[MAX_SHOVE_BUFFER_SIZE]; /* Buffer being written */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
514 DWORD size; /* Number of bytes to write */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
515 LONG die_p; /* Thread must exit ASAP if non-zero */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
516 LONG idle_p; /* Non-zero if thread is waiting for job */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
517 BOOL error_p : 1; /* Read error other than EOF/broken pipe */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
518 BOOL blocking_p : 1;/* Last write attempt would cause blocking */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
519 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
520
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
521 DEFINE_LSTREAM_IMPLEMENTATION ("ntpipe-output", ntpipe_shove);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
522
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
523 static DWORD WINAPI
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
524 shove_thread (LPVOID vparam)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
525 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
526 struct ntpipe_shove_stream *s = (struct ntpipe_shove_stream *) vparam;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
527
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
528 for (;;)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
529 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
530 DWORD bytes_written;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
531
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
532 /* Block on event and wait for a job */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
533 InterlockedIncrement (&s->idle_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
534 WaitForSingleObject (s->hev_thread, INFINITE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
535
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
536 if (s->die_p)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
537 break;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
538
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
539 /* Write passed buffer if any */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
540 if (s->size > 0)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
541 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
542 if (!WriteFile (s->hpipe, s->buffer, s->size, &bytes_written, NULL)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
543 || bytes_written != s->size)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
544 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
545 s->error_p = TRUE;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
546 InterlockedIncrement (&s->die_p);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
547 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
548 /* Set size to zero so we won't write it again if the closer sets
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
549 die_p and kicks us */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
550 s->size = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
551 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
552
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
553 if (s->die_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
554 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
555 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
556
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
557 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
558 }
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 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
561 make_ntpipe_output_stream (HANDLE hpipe, LPARAM param)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
562 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
563 Lstream *lstr = Lstream_new (lstream_ntpipe_shove, "w");
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
564 struct ntpipe_shove_stream *s = NTPIPE_SHOVE_STREAM_DATA (lstr);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
565 DWORD thread_id_unused;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
566
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
567 s->die_p = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
568 s->error_p = FALSE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
569 s->hpipe = hpipe;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
570 s->user_data = param;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
571
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
572 /* Create reader thread. This could fail, so do not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
573 create the event until thread is created */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
574 s->hthread = CreateThread (NULL, 0, shove_thread, (LPVOID)s,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
575 CREATE_SUSPENDED, &thread_id_unused);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
576 if (s->hthread == NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
577 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
578 Lstream_delete (lstr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
579 return Qnil;
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
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
582 /* Set the priority of the thread higher so we don't end up waiting
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
583 on it to send things. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
584 if (!SetThreadPriority (s->hthread, THREAD_PRIORITY_HIGHEST))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
585 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
586 CloseHandle (s->hthread);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
587 Lstream_delete (lstr);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
588 return Qnil;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
589 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
590
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
591 /* hev_thread is an auto-reset event, initially nonsignaled */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
592 s->hev_thread = qxeCreateEvent (NULL, FALSE, FALSE, NULL);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
593
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
594 /* Now let it go */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
595 ResumeThread (s->hthread);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
596
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
597 lstr->flags |= LSTREAM_FL_CLOSE_AT_DISKSAVE;
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 791
diff changeset
598 return wrap_lstream (lstr);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
599 }
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 static LPARAM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
602 get_ntpipe_output_stream_param (Lstream *stream)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
603 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
604 struct ntpipe_shove_stream *s = NTPIPE_SHOVE_STREAM_DATA(stream);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
605 return s->user_data;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
606 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
607
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 657
diff changeset
608 static Bytecount
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
609 ntpipe_shove_writer (Lstream *stream, const unsigned char *data,
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 657
diff changeset
610 Bytecount size)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
611 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
612 struct ntpipe_shove_stream *s = NTPIPE_SHOVE_STREAM_DATA(stream);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
613
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
614 if (s->error_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
615 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
616
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
617 s->blocking_p = !s->idle_p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
618 if (s->blocking_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
619 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
620
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
621 if (size>MAX_SHOVE_BUFFER_SIZE)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
622 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
623
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
624 memcpy (s->buffer, data, size);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
625 s->size = size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
626
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
627 /* Start output */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
628 InterlockedDecrement (&s->idle_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
629 SetEvent (s->hev_thread);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
630 /* Give it a chance to run -- this dramatically improves performance
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
631 of things like crypt. */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
632 if (xSwitchToThread) /* not in Win9x */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
633 (void) xSwitchToThread ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
634 return size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
635 }
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 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
638 ntpipe_shove_was_blocked_p (Lstream *stream)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
639 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
640 struct ntpipe_shove_stream *s = NTPIPE_SHOVE_STREAM_DATA(stream);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
641 return s->blocking_p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
642 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
643
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
644 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
645 ntpipe_shove_closer (Lstream *stream)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
646 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
647 struct ntpipe_shove_stream *s = NTPIPE_SHOVE_STREAM_DATA(stream);
428
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 /* Force thread stop */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
650 InterlockedIncrement (&s->die_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
651
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
652 /* Close pipe handle, possibly breaking it */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
653 CloseHandle (s->hpipe);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
654
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
655 /* Thread will end upon unblocking. If it's already unblocked this will
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
656 do nothing, but the thread won't look at die_p until it's written any
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
657 pending output. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
658 SetEvent (s->hev_thread);
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 /* Wait while thread terminates */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
661 WaitForSingleObject (s->hthread, INFINITE);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
662
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
663 /* Close the thread handle */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
664 CloseHandle (s->hthread);
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 /* Destroy the event */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
667 CloseHandle (s->hev_thread);
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 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
670 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
671
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
672 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
673 init_shove_stream (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
674 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
675 LSTREAM_HAS_METHOD (ntpipe_shove, writer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
676 LSTREAM_HAS_METHOD (ntpipe_shove, was_blocked_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
677 LSTREAM_HAS_METHOD (ntpipe_shove, closer);
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
680 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
681 /* Winsock I/O stream */
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
684 #define WINSOCK_READ_BUFFER_SIZE 1024
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
685
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
686 struct winsock_stream
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
687 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
688 LPARAM user_data; /* Any user data stored in the stream object */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
689 SOCKET s; /* Socket handle (which is a Win32 handle) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
690 OVERLAPPED ov; /* Overlapped I/O structure */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 611
diff changeset
691 void *buffer; /* Buffer. */
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 611
diff changeset
692 DWORD bufsize; /* Number of bytes last read */
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 657
diff changeset
693 DWORD charbpos; /* Position in buffer for next fetch */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
694 unsigned int error_p :1; /* I/O Error seen */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
695 unsigned int eof_p :1; /* EOF Error seen */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
696 unsigned int pending_p :1; /* There is a pending I/O operation */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
697 unsigned int blocking_p :1; /* Last write attempt would block */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
698 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
699
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
700 #define WINSOCK_STREAM_DATA(stream) LSTREAM_TYPE_DATA (stream, winsock)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
701
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
702 DEFINE_LSTREAM_IMPLEMENTATION ("winsock", winsock);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
703
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
704 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
705 winsock_initiate_read (struct winsock_stream *str)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
706 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
707 ResetEvent (str->ov.hEvent);
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 657
diff changeset
708 str->charbpos = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
709
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
710 if (!ReadFile ((HANDLE)str->s, str->buffer, WINSOCK_READ_BUFFER_SIZE,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
711 &str->bufsize, &str->ov))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
712 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
713 if (GetLastError () == ERROR_IO_PENDING)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
714 str->pending_p = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
715 else if (GetLastError () == ERROR_HANDLE_EOF)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
716 str->eof_p = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
717 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
718 str->error_p = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
719 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
720 else if (str->bufsize == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
721 str->eof_p = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
722 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
723
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 657
diff changeset
724 static Bytecount
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 657
diff changeset
725 winsock_reader (Lstream *stream, unsigned char *data, Bytecount size)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
726 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
727 struct winsock_stream *str = WINSOCK_STREAM_DATA (stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
728
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
729 /* If the current operation is not yet complete, there's nothing to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
730 give back */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
731 if (str->pending_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
732 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
733 if (WaitForSingleObject (str->ov.hEvent, 0) == WAIT_TIMEOUT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
734 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
735 errno = EAGAIN;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
736 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
737 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
738 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
739 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
740 if (!GetOverlappedResult ((HANDLE)str->s, &str->ov, &str->bufsize, TRUE))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
741 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
742 if (GetLastError() == ERROR_HANDLE_EOF)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
743 str->bufsize = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
744 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
745 str->error_p = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
746 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
747 if (str->bufsize == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
748 str->eof_p = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
749 str->pending_p = 0;
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
752
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
753 if (str->eof_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
754 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
755 if (str->error_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
756 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
757
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
758 /* Return as much of buffer as we have */
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 657
diff changeset
759 size = min (size, (Bytecount) (str->bufsize - str->charbpos));
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
760 memcpy (data, (void *) ((BYTE *) str->buffer + str->charbpos), size);
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 657
diff changeset
761 str->charbpos += size;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
762
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
763 /* Read more if buffer is exhausted */
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 657
diff changeset
764 if (str->bufsize == str->charbpos)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
765 winsock_initiate_read (str);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
766
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
767 return size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
768 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
769
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 657
diff changeset
770 static Bytecount
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
771 winsock_writer (Lstream *stream, const unsigned char *data,
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 657
diff changeset
772 Bytecount size)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
773 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
774 struct winsock_stream *str = WINSOCK_STREAM_DATA (stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
775
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
776 if (str->pending_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
777 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
778 if (WaitForSingleObject (str->ov.hEvent, 0) == WAIT_TIMEOUT)
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 str->blocking_p = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
781 return -1;
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 DWORD dw_unused;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
786 if (!GetOverlappedResult ((HANDLE)str->s, &str->ov, &dw_unused, TRUE))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
787 str->error_p = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
788 str->pending_p = 0;
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
791
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
792 str->blocking_p = 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 if (str->error_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
795 return -1;
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 if (size == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
798 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
799
558
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
800 ResetEvent (str->ov.hEvent);
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
801
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
802 /* According to WriteFile docs, we must hold onto the data we pass to it
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
803 and not make any changes until it finishes -- which may not be until
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
804 the next time we get here, since we use asynchronous I/O. We have
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
805 in fact seen data loss as a result of not doing this. */
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
806 str->buffer = xrealloc (str->buffer, size);
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
807 memcpy (str->buffer, data, size);
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
808
560
b202fbfc7dea [xemacs-hg @ 2001-05-23 11:29:58 by ben]
ben
parents: 558
diff changeset
809 /* According to MSDN WriteFile docs, the fourth parameter cannot be NULL
b202fbfc7dea [xemacs-hg @ 2001-05-23 11:29:58 by ben]
ben
parents: 558
diff changeset
810 on Win95 even when doing an overlapped operation, as we are, where
b202fbfc7dea [xemacs-hg @ 2001-05-23 11:29:58 by ben]
ben
parents: 558
diff changeset
811 the return value through that parameter is not meaningful. */
b202fbfc7dea [xemacs-hg @ 2001-05-23 11:29:58 by ben]
ben
parents: 558
diff changeset
812 if (WriteFile ((HANDLE)str->s, str->buffer, size, &str->bufsize,
558
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
813 &str->ov)
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
814 || GetLastError() == ERROR_IO_PENDING)
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
815 str->pending_p = 1;
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
816 else
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
817 str->error_p = 1;
428
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 return str->error_p ? -1 : size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
820 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
821
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
822 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
823 winsock_closer (Lstream *lstr)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
824 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
825 struct winsock_stream *str = WINSOCK_STREAM_DATA (lstr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
826
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
827 if (lstr->flags & LSTREAM_FL_READ)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
828 shutdown (str->s, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
829 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
830 shutdown (str->s, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
831
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
832 CloseHandle ((HANDLE)str->s);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
833 if (str->pending_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
834 WaitForSingleObject (str->ov.hEvent, INFINITE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
835
558
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
836 if (str->buffer)
560
b202fbfc7dea [xemacs-hg @ 2001-05-23 11:29:58 by ben]
ben
parents: 558
diff changeset
837 {
b202fbfc7dea [xemacs-hg @ 2001-05-23 11:29:58 by ben]
ben
parents: 558
diff changeset
838 xfree (str->buffer);
b202fbfc7dea [xemacs-hg @ 2001-05-23 11:29:58 by ben]
ben
parents: 558
diff changeset
839 str->buffer = 0;
b202fbfc7dea [xemacs-hg @ 2001-05-23 11:29:58 by ben]
ben
parents: 558
diff changeset
840 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
841
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
842 CloseHandle (str->ov.hEvent);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
843 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
844 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
845
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
846 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
847 winsock_was_blocked_p (Lstream *stream)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
848 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
849 struct winsock_stream *str = WINSOCK_STREAM_DATA (stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
850 return str->blocking_p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
851 }
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 static Lisp_Object
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
854 make_winsock_stream_1 (SOCKET s, LPARAM param, const char *mode)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
855 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
856 Lstream *lstr = Lstream_new (lstream_winsock, mode);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
857 struct winsock_stream *str = WINSOCK_STREAM_DATA (lstr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
858
558
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
859 xzero (*str);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
860 str->s = s;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
861 str->user_data = param;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
862
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
863 str->ov.hEvent = qxeCreateEvent (NULL, TRUE, FALSE, NULL);
428
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 if (lstr->flags & LSTREAM_FL_READ)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
866 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
867 str->buffer = xmalloc (WINSOCK_READ_BUFFER_SIZE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
868 winsock_initiate_read (str);
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 lstr->flags |= LSTREAM_FL_CLOSE_AT_DISKSAVE;
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 791
diff changeset
872 return wrap_lstream (lstr);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
873 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
874
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
875 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
876 make_winsock_input_stream (SOCKET s, LPARAM param)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
877 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
878 return make_winsock_stream_1 (s, param, "r");
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
881 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
882 make_winsock_output_stream (SOCKET s, LPARAM param)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
883 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
884 return make_winsock_stream_1 (s, param, "w");
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
887 static HANDLE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
888 get_winsock_stream_waitable (Lstream *lstr)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
889 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
890 struct winsock_stream *str = WINSOCK_STREAM_DATA (lstr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
891 return str->ov.hEvent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
892 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
893
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
894 static LPARAM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
895 get_winsock_stream_param (Lstream *lstr)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
896 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
897 struct winsock_stream *str = WINSOCK_STREAM_DATA (lstr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
898 return str->user_data;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
899 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
900
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
901 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
902 init_winsock_stream (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
903 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
904 LSTREAM_HAS_METHOD (winsock, reader);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
905 LSTREAM_HAS_METHOD (winsock, writer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
906 LSTREAM_HAS_METHOD (winsock, closer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
907 LSTREAM_HAS_METHOD (winsock, was_blocked_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
908 }
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
909 #endif /* ! CYGWIN */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
910
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
911 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
912 /* Dispatch queue management */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
913 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
914
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
915 static int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
916 mswindows_user_event_p (Lisp_Event *sevt)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
917 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
918 return (sevt->event_type == key_press_event
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
919 || sevt->event_type == button_press_event
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
920 || sevt->event_type == button_release_event
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
921 || sevt->event_type == misc_user_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
922 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
923
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 * Add an emacs event to the proper dispatch queue
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
926 */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
927 void
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
928 mswindows_enqueue_dispatch_event (Lisp_Object event)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
929 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
930 int user_p = mswindows_user_event_p (XEVENT(event));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
931 enqueue_event (event,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
932 user_p ? &mswindows_u_dispatch_event_queue :
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
933 &mswindows_s_dispatch_event_queue,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
934 user_p ? &mswindows_u_dispatch_event_queue_tail :
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
935 &mswindows_s_dispatch_event_queue_tail);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
936
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
937 /* Avoid blocking on WaitMessage */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
938 qxePostMessage (NULL, XM_BUMPQUEUE, 0, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
939 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
940
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
941 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
942 * Add a misc-user event to the dispatch queue.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
943 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
944 * Stuff it into our own dispatch queue, so we have something
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
945 * to return from next_event callback.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
946 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
947 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
948 mswindows_enqueue_misc_user_event (Lisp_Object channel, Lisp_Object function,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
949 Lisp_Object object)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
950 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
951 Lisp_Object event = Fmake_event (Qnil, Qnil);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
952 Lisp_Event *e = XEVENT (event);
428
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 e->event_type = misc_user_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
955 e->channel = channel;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
956 e->timestamp = GetTickCount ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
957 e->event.misc.function = function;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
958 e->event.misc.object = object;
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 mswindows_enqueue_dispatch_event (event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
961 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
962
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
963 void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
964 mswindows_enqueue_magic_event (HWND hwnd, UINT msg)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
965 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
966 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
967 Lisp_Event *event = XEVENT (emacs_event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
968
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
969 event->channel = hwnd ? mswindows_find_frame (hwnd) : Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
970 event->timestamp = GetMessageTime();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
971 event->event_type = magic_event;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
972 EVENT_MSWINDOWS_MAGIC_TYPE (event) = msg;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
973
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
974 mswindows_enqueue_dispatch_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
975 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
976
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
977 static void
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
978 mswindows_enqueue_process_event (Lisp_Process *p)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
979 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
980 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
981 Lisp_Event *event = XEVENT (emacs_event);
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 791
diff changeset
982 Lisp_Object process = wrap_process (p);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 791
diff changeset
983
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
984
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
985 event->event_type = process_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
986 event->timestamp = GetTickCount ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
987 event->event.process.process = process;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
988
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
989 mswindows_enqueue_dispatch_event (emacs_event);
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
992 static void
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
993 mswindows_enqueue_mouse_button_event (HWND hwnd, UINT msg, POINTS where,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
994 int mods, DWORD when)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
995 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
996 int downp = (msg == WM_LBUTTONDOWN || msg == WM_MBUTTONDOWN ||
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
997 msg == WM_RBUTTONDOWN);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
998
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
999 /* We always use last message time, because mouse button
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1000 events may get delayed, and XEmacs double click
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1001 recognition will fail */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1002
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1003 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1004 Lisp_Event *event = XEVENT (emacs_event);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1005
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1006 mswindows_handle_sticky_modifiers (0, 0, downp, 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1007 event->channel = mswindows_find_frame (hwnd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1008 event->timestamp = when;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1009 event->event.button.button =
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1010 (msg==WM_LBUTTONDOWN || msg==WM_LBUTTONUP) ? 1 :
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1011 ((msg==WM_RBUTTONDOWN || msg==WM_RBUTTONUP) ? 3 : 2);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1012 event->event.button.x = where.x;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1013 event->event.button.y = where.y;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1014 event->event.button.modifiers = mswindows_modifier_state (NULL, mods, 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1015
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1016 if (downp)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1017 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1018 event->event_type = button_press_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1019 SetCapture (hwnd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1020 /* we need this to make sure the main window regains the focus
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1021 from control subwindows */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1022 if (GetFocus() != hwnd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1023 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1024 SetFocus (hwnd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1025 mswindows_enqueue_magic_event (hwnd, WM_SETFOCUS);
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1028 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1029 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1030 event->event_type = button_release_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1031 ReleaseCapture ();
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1034 mswindows_enqueue_dispatch_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1035 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1036
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1037 static Lisp_Object
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1038 mswindows_enqueue_keypress_event (HWND hwnd, Lisp_Object keysym, int mods)
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 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1041 Lisp_Event *event = XEVENT(emacs_event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1042
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1043 event->channel = mswindows_find_console(hwnd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1044 event->timestamp = GetMessageTime();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1045 event->event_type = key_press_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1046 event->event.key.keysym = keysym;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1047 event->event.key.modifiers = mods;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1048 mswindows_enqueue_dispatch_event (emacs_event);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1049 return emacs_event;
428
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1052 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1053 * Remove and return the first emacs event on the dispatch queue.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1054 * Give a preference to user events over non-user ones.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1055 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1056 static Lisp_Object
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1057 mswindows_dequeue_dispatch_event (void)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1058 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1059 Lisp_Object event;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1060 Lisp_Event *sevt;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1061
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1062 assert (!NILP(mswindows_u_dispatch_event_queue) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1063 !NILP(mswindows_s_dispatch_event_queue));
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 event = dequeue_event (
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1066 NILP(mswindows_u_dispatch_event_queue) ?
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1067 &mswindows_s_dispatch_event_queue :
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1068 &mswindows_u_dispatch_event_queue,
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1069 NILP(mswindows_u_dispatch_event_queue) ?
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1070 &mswindows_s_dispatch_event_queue_tail :
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1071 &mswindows_u_dispatch_event_queue_tail);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1072
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
1073 sevt = XEVENT (event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1074 if (sevt->event_type == key_press_event
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1075 && (sevt->event.key.modifiers & FAKE_MOD_QUIT))
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
1076 sevt->event.key.modifiers &=
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
1077 ~(FAKE_MOD_QUIT | FAKE_MOD_QUIT_CRITICAL);
428
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 return event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1080 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1081
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1082 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1083 * Remove and return the first emacs event on the dispatch queue that matches
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1084 * the supplied event.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1085 * Timeout event matches if interval_id is equal to that of the given event.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1086 * Keypress event matches if logical AND between modifiers bitmask of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1087 * event in the queue and that of the given event is non-zero.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1088 * For all other event types, this function aborts.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1089 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1090
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1091 Lisp_Object
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1092 mswindows_cancel_dispatch_event (Lisp_Event *match)
428
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 Lisp_Object event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1095 Lisp_Object previous_event = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1096 int user_p = mswindows_user_event_p (match);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1097 Lisp_Object *head = user_p ? &mswindows_u_dispatch_event_queue :
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1098 &mswindows_s_dispatch_event_queue;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1099 Lisp_Object *tail = user_p ? &mswindows_u_dispatch_event_queue_tail :
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1100 &mswindows_s_dispatch_event_queue_tail;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1101
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1102 assert (match->event_type == timeout_event
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1103 || match->event_type == key_press_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1104
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1105 EVENT_CHAIN_LOOP (event, *head)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1106 {
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1107 Lisp_Event *e = XEVENT (event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1108 if ((e->event_type == match->event_type) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1109 ((e->event_type == timeout_event) ?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1110 (e->event.timeout.interval_id == match->event.timeout.interval_id) :
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1111 /* Must be key_press_event */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1112 ((e->event.key.modifiers & match->event.key.modifiers) != 0)))
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 if (NILP (previous_event))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1115 dequeue_event (head, tail);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1116 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1117 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1118 XSET_EVENT_NEXT (previous_event, XEVENT_NEXT (event));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1119 if (EQ (*tail, event))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1120 *tail = previous_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1121 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1122
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1123 return event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1124 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1125 previous_event = event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1126 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1127 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1128 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1129
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1130 #ifndef CYGWIN
428
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 /* Waitable handles manipulation */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1133 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1134 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1135 find_waitable_handle (HANDLE h)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1136 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1137 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1138 for (i = 0; i < mswindows_waitable_count; ++i)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1139 if (mswindows_waitable_handles[i] == h)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1140 return i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1141
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1142 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1143 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1144
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1145 static BOOL
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1146 add_waitable_handle (HANDLE h)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1147 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1148 assert (find_waitable_handle (h) < 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1149 if (mswindows_waitable_count == MAX_WAITABLE)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1150 return FALSE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1151
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1152 mswindows_waitable_handles [mswindows_waitable_count++] = h;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1153 return TRUE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1154 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1155
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1156 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1157 remove_waitable_handle (HANDLE h)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1158 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1159 int ix = find_waitable_handle (h);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1160 if (ix < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1161 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1162
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1163 mswindows_waitable_handles [ix] =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1164 mswindows_waitable_handles [--mswindows_waitable_count];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1165 }
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1166
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1167 #endif /* CYGWIN */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1168
791
7b1f30330a19 [xemacs-hg @ 2002-03-21 18:55:01 by adrian]
adrian
parents: 788
diff changeset
1169 /*
7b1f30330a19 [xemacs-hg @ 2002-03-21 18:55:01 by adrian]
adrian
parents: 788
diff changeset
1170 * Given a lisp process pointer remove the corresponding process handle
7b1f30330a19 [xemacs-hg @ 2002-03-21 18:55:01 by adrian]
adrian
parents: 788
diff changeset
1171 * from mswindows_waitable_handles if it is in it. Normally the handle is
7b1f30330a19 [xemacs-hg @ 2002-03-21 18:55:01 by adrian]
adrian
parents: 788
diff changeset
1172 * removed when the process terminates, but if the lisp process structure
7b1f30330a19 [xemacs-hg @ 2002-03-21 18:55:01 by adrian]
adrian
parents: 788
diff changeset
1173 * is deleted before the process terminates we must delete the process
7b1f30330a19 [xemacs-hg @ 2002-03-21 18:55:01 by adrian]
adrian
parents: 788
diff changeset
1174 * handle since it will be invalid and will cause the wait to fail
7b1f30330a19 [xemacs-hg @ 2002-03-21 18:55:01 by adrian]
adrian
parents: 788
diff changeset
1175 */
7b1f30330a19 [xemacs-hg @ 2002-03-21 18:55:01 by adrian]
adrian
parents: 788
diff changeset
1176 void
7b1f30330a19 [xemacs-hg @ 2002-03-21 18:55:01 by adrian]
adrian
parents: 788
diff changeset
1177 mswindows_unwait_process (Lisp_Process *p)
7b1f30330a19 [xemacs-hg @ 2002-03-21 18:55:01 by adrian]
adrian
parents: 788
diff changeset
1178 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1179 #ifndef CYGWIN
791
7b1f30330a19 [xemacs-hg @ 2002-03-21 18:55:01 by adrian]
adrian
parents: 788
diff changeset
1180 remove_waitable_handle (get_nt_process_handle (p));
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1181 #endif /* CYGWIN */
791
7b1f30330a19 [xemacs-hg @ 2002-03-21 18:55:01 by adrian]
adrian
parents: 788
diff changeset
1182 }
7b1f30330a19 [xemacs-hg @ 2002-03-21 18:55:01 by adrian]
adrian
parents: 788
diff changeset
1183
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1184
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1185 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1186 /* Event pump */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1187 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1188
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1189 int
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1190 mswindows_window_is_xemacs (HWND hwnd)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1191 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1192 /* GetClassName will truncate a longer class name. By adding one
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1193 extra character, we are forcing textual comparison to fail
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1194 if the name is longer than XEMACS_CLASS */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1195 Extbyte class_name_buf[sizeof (XEMACS_CLASS) + 2];
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1196
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1197 /* Use GetClassNameA because XEMACS_CLASS is not in Unicode format. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1198 if (!GetClassNameA (hwnd, class_name_buf, sizeof (class_name_buf) - 1))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1199 return 0;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1200
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1201 return !ascii_strcasecmp (class_name_buf, XEMACS_CLASS);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1202 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1203
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1204 struct mswindows_protect_modal_loop
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1205 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1206 Lisp_Object (*bfun) (Lisp_Object barg);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1207 Lisp_Object barg;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1208 };
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1209
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1210 static Lisp_Object
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1211 mswindows_protect_modal_loop_1 (void *gack)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1212 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1213 struct mswindows_protect_modal_loop *gata =
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1214 (struct mswindows_protect_modal_loop *) gack;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1215
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1216 return (gata->bfun) (gata->barg);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1217 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1218
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1219 Lisp_Object
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1220 mswindows_protect_modal_loop (const char *error_string,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1221 Lisp_Object (*bfun) (Lisp_Object barg),
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1222 Lisp_Object barg, int flags)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1223 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1224 Lisp_Object tmp;
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1225 struct mswindows_protect_modal_loop bluh;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1226
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1227 bluh.bfun = bfun;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1228 bluh.barg = barg;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1229
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1230 ++mswindows_in_modal_loop;
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1231 tmp = call_trapping_problems (Qevent, error_string,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1232 flags, 0,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1233 mswindows_protect_modal_loop_1, &bluh);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1234 if (UNBOUNDP (tmp))
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1235 mswindows_error_caught_in_modal_loop = 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1236 --mswindows_in_modal_loop;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1237
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1238 return tmp;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1239 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1240
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1241 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1242 mswindows_unmodalize_signal_maybe (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1243 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1244 mswindows_error_caught_in_modal_loop = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1245 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1246
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1247 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1248 * This is an unsafe part of event pump, guarded by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1249 * condition_case. See mswindows_pump_outstanding_events
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1250 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1251 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1252 mswindows_unsafe_pump_events (Lisp_Object u_n_u_s_e_d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1253 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1254 /* This function can call lisp */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1255 Lisp_Object event = Fmake_event (Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1256 struct gcpro gcpro1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1257 int do_redisplay = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1258 GCPRO1 (event);
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 while (detect_input_pending ())
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 Fnext_event (event, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1263 Fdispatch_event (event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1264 do_redisplay = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1265 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1266
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1267 if (do_redisplay)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1268 redisplay ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1269
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1270 Fdeallocate_event (event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1271 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1272
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1273 /* Qt becomes return value of mswindows_pump_outstanding_events
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1274 once we get here */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1275 return Qt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1276 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1277
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1278 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1279 * This function pumps emacs events, while available, by using
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1280 * next_message/dispatch_message loop. Errors are trapped around
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1281 * the loop so the function always returns.
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 * Windows message queue is not looked into during the call,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1284 * neither are waitable handles checked. The function pumps
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1285 * thus only dispatch events already queued, as well as those
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1286 * resulted in dispatching thereof. This is done by setting
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1287 * module local variable mswindows_in_modal_loop to nonzero.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1288 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1289 * Return value is Qt if no errors was trapped, or Qunbound if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1290 * there was an error.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1291 *
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1292 * In case of error, a warning is issued and the module local variable
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1293 * mswindows_error_caught_in_modal_loop is set to non-zero. Thus,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1294 * Windows internal modal loops are protected against throws, which
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1295 * are proven to corrupt internal Windows structures.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1296 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1297 * In case of success, mswindows_error_caught_in_modal_loop is
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1298 * assigned 0.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1299 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1300 * If the value of mswindows_error_caught_in_modal_loop is not
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1301 * zero already upon entry, the function just returns non-nil.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1302 * This situation means that a new event has been queued while
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1303 * in cancel mode. The event will be dequeued on the next regular
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1304 * call of next-event; the pump is off since error is caught.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1305 * The caller must *unconditionally* cancel modal loop if the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1306 * value returned by this function is nil. Otherwise, everything
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1307 * will become frozen until the modal loop exits under normal
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1308 * condition (scrollbar drag is released, menu closed etc.) */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1309 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1310 mswindows_pump_outstanding_events (void)
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 /* This function can call lisp */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1313
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1314 Lisp_Object result = Qt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1315 struct gcpro gcpro1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1316 GCPRO1 (result);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1317
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1318 if (!mswindows_error_caught_in_modal_loop)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1319 result = mswindows_protect_modal_loop
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1320 ("Error during event handling", mswindows_unsafe_pump_events, Qnil, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1321 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1322 return result;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1323 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1324
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1325 /*
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1326 * KEYBOARD_ONLY_P is set to non-zero when we are called from
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1327 * QUITP, and are interesting in keyboard messages only.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1328 */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1329 static void
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1330 mswindows_drain_windows_queue (void)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1331 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1332 MSG msg;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1333
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1334 /* should call mswindows_need_event_in_modal_loop() if in modal loop */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1335 assert (!mswindows_in_modal_loop);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1336
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1337 while (qxePeekMessage (&msg, NULL, 0, 0, PM_REMOVE))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1338 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1339 #ifdef HAVE_DIALOGS
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1340 /* Don't translate messages destined for a dialog box, this
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1341 makes keyboard traversal work. I think?? */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1342 if (mswindows_is_dialog_msg (&msg))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1343 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1344 mswindows_unmodalize_signal_maybe ();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1345 continue;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1346 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1347 #endif /* HAVE_DIALOGS */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1348
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1349 /* We have to translate messages that are not sent to an XEmacs
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1350 frame. This is so that key presses work ok in things like
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1351 edit fields. However, we *musn't* translate message for XEmacs
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1352 frames as this is handled in the wnd proc.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1353 We also have to avoid generating paint magic events for windows
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1354 that aren't XEmacs frames */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1355
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1356 if (!mswindows_window_is_xemacs (msg.hwnd))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1357 TranslateMessage (&msg);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1358 else if (msg.message == WM_PAINT)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1359 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1360 struct mswindows_frame *msframe;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1361
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1362 /* hdc will be NULL unless this is a subwindow - in which case we
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1363 shouldn't have received a paint message for it here. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1364 assert (msg.wParam == 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1365
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1366 /* Queue a magic event for handling when safe */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1367 msframe =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1368 FRAME_MSWINDOWS_DATA (XFRAME (mswindows_find_frame (msg.hwnd)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1369 if (!msframe->paint_pending)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1370 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1371 msframe->paint_pending = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1372 mswindows_enqueue_magic_event (msg.hwnd, WM_PAINT);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1373 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1374 /* Don't dispatch. WM_PAINT is always the last message in the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1375 queue so it's OK to just return. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1376 return;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1377 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1378 qxeDispatchMessage (&msg);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1379 mswindows_unmodalize_signal_maybe ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1380 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1381 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1382
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 * This is a special flavor of the mswindows_need_event function,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1385 * used while in event pump. Actually, there is only kind of events
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1386 * allowed while in event pump: a timer. An attempt to fetch any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1387 * other event leads to a deadlock, as there's no source of user input
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1388 * ('cause event pump mirrors windows modal loop, which is a sole
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1389 * owner of thread message queue).
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 * To detect this, we use a counter of active timers, and allow
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1392 * fetching WM_TIMER messages. Instead of trying to fetch a WM_TIMER
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1393 * which will never come when there are no pending timers, which leads
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1394 * to deadlock, we simply signal an error.
487
54fa1a5c2d12 [xemacs-hg @ 2001-04-28 07:48:36 by ben]
ben
parents: 464
diff changeset
1395 *
54fa1a5c2d12 [xemacs-hg @ 2001-04-28 07:48:36 by ben]
ben
parents: 464
diff changeset
1396 * It might be possible to combine this with mswindows_drain_windows_queue
54fa1a5c2d12 [xemacs-hg @ 2001-04-28 07:48:36 by ben]
ben
parents: 464
diff changeset
1397 * which fetches events when not in a modal loop. It's not clear
54fa1a5c2d12 [xemacs-hg @ 2001-04-28 07:48:36 by ben]
ben
parents: 464
diff changeset
1398 * whether the result would be more complex than is justified.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1399 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1400 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1401 mswindows_need_event_in_modal_loop (int badly_p)
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 MSG msg;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1404
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1405 /* Check if already have one */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1406 if (!NILP (mswindows_u_dispatch_event_queue)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1407 || !NILP (mswindows_s_dispatch_event_queue))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1408 return;
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 /* No event is ok */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1411 if (!badly_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1412 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1413
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1414 /* We do not check the _u_ queue, because timers go to _s_ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1415 while (NILP (mswindows_s_dispatch_event_queue))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1416 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1417 /* We'll deadlock if go waiting */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1418 if (mswindows_pending_timers_count == 0)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 560
diff changeset
1419 invalid_operation ("Deadlock due to an attempt to call next-event in a wrong context", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1420
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1421 /* Fetch and dispatch any pending timers */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1422 if (qxeGetMessage (&msg, NULL, WM_TIMER, WM_TIMER) > 0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1423 qxeDispatchMessage (&msg);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1424 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1425 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1426
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1427 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1428 * This drains the event queue and fills up two internal queues until
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1429 * an event of a type specified by USER_P is retrieved.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1430 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1431 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1432 * Used by emacs_mswindows_event_pending_p and emacs_mswindows_next_event
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1433 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1434 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1435 mswindows_need_event (int badly_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1436 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1437 while (NILP (mswindows_u_dispatch_event_queue)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1438 && NILP (mswindows_s_dispatch_event_queue))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1439 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1440 #ifdef CYGWIN
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1441 int i;
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 611
diff changeset
1442 int active;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1443 SELECT_TYPE temp_mask = input_wait_mask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1444 EMACS_TIME sometime;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1445 EMACS_SELECT_TIME select_time_to_block, *pointer_to_this;
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 if (badly_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1448 pointer_to_this = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1449 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1450 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1451 EMACS_SET_SECS_USECS (sometime, 0, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1452 EMACS_TIME_TO_SELECT_TIME (sometime, select_time_to_block);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1453 pointer_to_this = &select_time_to_block;
534
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1454 if (mswindows_in_modal_loop)
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1455 /* In modal loop with badly_p false, don't care about
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1456 Windows events. */
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1457 FD_CLR (windows_fd, &temp_mask);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1458 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1459
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1460 active = select (MAXDESC, &temp_mask, 0, 0, pointer_to_this);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1461
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1462 if (active == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1463 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1464 assert (!badly_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1465 return; /* timeout */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1466 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1467 else if (active > 0)
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 if (FD_ISSET (windows_fd, &temp_mask))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1470 {
534
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1471 if (mswindows_in_modal_loop)
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1472 mswindows_need_event_in_modal_loop (badly_p);
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1473 else
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1474 mswindows_drain_windows_queue ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1475 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1476 else
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1477 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1478 #ifdef HAVE_TTY
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1479 /* Look for a TTY event */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1480 for (i = 0; i < MAXDESC-1; i++)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1481 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1482 /* To avoid race conditions (among other things, an infinite
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1483 loop when called from Fdiscard_input()), we must return
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1484 user events ahead of process events. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1485 if (FD_ISSET (i, &temp_mask) && FD_ISSET (i, &tty_only_mask))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1486 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1487 struct console *c = tty_find_console_from_fd (i);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1488 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1489 Lisp_Event *event = XEVENT (emacs_event);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1490
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1491 assert (c);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1492 if (read_event_from_tty_or_stream_desc (event, c))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1493 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1494 mswindows_enqueue_dispatch_event (emacs_event);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1495 return;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1496 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1497 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1498 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1499 #endif
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1500 /* Look for a process event */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1501 for (i = 0; i < MAXDESC-1; i++)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1502 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1503 if (FD_ISSET (i, &temp_mask))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1504 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1505 if (FD_ISSET (i, &process_only_mask))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1506 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1507 Lisp_Process *p =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1508 get_process_from_usid (FD_TO_USID(i));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1509
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1510 mswindows_enqueue_process_event (p);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1511 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1512 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1513 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1514 /* We might get here when a fake event came
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1515 through a signal. Return a dummy event, so
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1516 that a cycle of the command loop will
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1517 occur. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1518 drain_signal_event_pipe ();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1519 mswindows_enqueue_magic_event (NULL, XM_BUMPQUEUE);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1520 }
428
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1523 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1524 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1525 else if (active == -1)
428
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 if (errno != EINTR)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1528 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1529 /* something bad happened */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1530 assert(0);
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 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1534 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1535 assert(0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1536 }
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1537 #else /* not CYGWIN */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1538 /* Now try getting a message or process event */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 611
diff changeset
1539 DWORD active;
487
54fa1a5c2d12 [xemacs-hg @ 2001-04-28 07:48:36 by ben]
ben
parents: 464
diff changeset
1540 DWORD what_events;
54fa1a5c2d12 [xemacs-hg @ 2001-04-28 07:48:36 by ben]
ben
parents: 464
diff changeset
1541 if (mswindows_in_modal_loop)
534
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1542 /* In a modal loop, only look for timer events, and only if
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1543 we really need one. */
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1544 {
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1545 if (badly_p)
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1546 what_events = QS_TIMER;
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1547 else
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1548 what_events = 0;
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1549 }
487
54fa1a5c2d12 [xemacs-hg @ 2001-04-28 07:48:36 by ben]
ben
parents: 464
diff changeset
1550 else
534
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1551 /* Look for any event */
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1552 what_events = QS_ALLINPUT;
487
54fa1a5c2d12 [xemacs-hg @ 2001-04-28 07:48:36 by ben]
ben
parents: 464
diff changeset
1553
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1554 /*
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1555 #### YUCK YUCK YUCK!!!!
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1556
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1557 When running under a debugger, every time I hit F12 (which for me
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1558 is mapped to right-brace) I hit a breakpoint inside of Windows!
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1559
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1560 NTDLL! DbgBreakPoint@0 address 0x77f9eea9
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1561 KERNEL32! BaseAttachComplete@4 + 41 bytes
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1562 KERNEL32! BaseAttachCompleteThunk@0 + 19 bytes
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1563 USER32! MsgWaitForMultipleObjectsEx@20 + 224 bytes
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1564 USER32! MsgWaitForMultipleObjects@20 + 30 bytes
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1565
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1566 Microsoft says:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1567
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1568 (Knowledge Base Q130667, PRB: F12 Causes Hard-Coded Breakpoint
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1569 Exception When Debugging)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1570
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1571 CAUSE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1572
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1573 When the F12 key is pressed and the application in focus is being
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1574 debugged, Windows NT calls a function similar to DebugBreak(),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1575 which executes a hard coded breakpoint instruction. The integrated
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1576 debugger then traps the exception generated by this instruction.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1577
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1578 This behavior is intentional and occurs with other debuggers such
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1579 as WinDbg from the Windows 32-bit SDK.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1580
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1581 RESOLUTION
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1582
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1583 While there is no way to disable this functionality, it doesn't
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1584 affect the application that's being debugged other than to pause
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1585 debugging and change focus. You can continue debugging by pressing
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1586 the F5 key.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1587
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1588 This can be annoying if you have an application that heavily uses
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1589 the F12 key, so you may want to temporarily assign another key to
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1590 handle the F12 key functionality in your program when debugging.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1591
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1592 STATUS
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1593
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1594 This behavior is by design.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1595
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1596
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1597 However, elsewhere I found this:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1598
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1599 UserDebuggerHotKey
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1600 HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AeDebug
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1601
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1602 Data type Range Default value
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1603 REG_DWORD 0x0 - 0xFF 0x0
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1604
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1605 Description
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1606
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1607 Specifies the key that, when pressed, establishes a breakpoint in
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1608 code being debugged.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1609
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1610 The debugger interrupts code processing at the breakpoint so the
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1611 programmer can examine a suspected problem.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1612
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1613 The key specified in this value only sets a breakpoint. It does
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1614 not invoke the debugger (the debugger must be running before the
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1615 key is pressed) and it does not switch the debugger to single-step
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1616 mode.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1617
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1618 The value of this entry is a keyboard scan code. The default
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1619 value, 0x0, represents the F12 key on a 101-key keyboard or the -
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1620 (hyphen, VK_SUBTRACT) key on an 82-key keyboard.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1621 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1622
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1623 __try
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1624 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1625 active = MsgWaitForMultipleObjects (mswindows_waitable_count,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1626 mswindows_waitable_handles,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1627 FALSE, badly_p ? INFINITE : 0,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1628 what_events);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1629 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1630 __except (GetExceptionCode () == EXCEPTION_BREAKPOINT ?
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1631 EXCEPTION_CONTINUE_EXECUTION :
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1632 EXCEPTION_CONTINUE_SEARCH)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1633 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1634 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1635
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1636 /* This will assert if handle being waited for becomes abandoned.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1637 Not the case currently tho */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1638 assert ((!badly_p && active == WAIT_TIMEOUT) ||
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1639 (active >= WAIT_OBJECT_0 &&
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1640 active <= WAIT_OBJECT_0 + mswindows_waitable_count));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1641
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1642 if (active == WAIT_TIMEOUT)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1643 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1644 /* No luck trying - just return what we've already got */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1645 return;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1646 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1647 else if (active == WAIT_OBJECT_0 + mswindows_waitable_count)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1648 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1649 /* Got your message, thanks */
534
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1650 if (mswindows_in_modal_loop)
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1651 mswindows_need_event_in_modal_loop (badly_p);
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1652 else
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1653 mswindows_drain_windows_queue ();
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1654 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1655 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1656 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1657 int ix = active - WAIT_OBJECT_0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1658 /* First, try to find which process' output has signaled */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1659 Lisp_Process *p =
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1660 get_process_from_usid (HANDLE_TO_USID
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1661 (mswindows_waitable_handles[ix]));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1662 if (p != NULL)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1663 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1664 /* Found a signaled process input handle */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1665 mswindows_enqueue_process_event (p);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1666 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1667 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1668 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1669 /* None. This means that the process handle itself has signaled.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1670 Remove the handle from the wait vector, and make status_notify
534
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1671 note the exited process. First find the process object if
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1672 possible. */
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1673 LIST_LOOP_3 (vaffanculo, Vprocess_list, vproctail)
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1674 if (get_nt_process_handle (XPROCESS (vaffanculo)) ==
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1675 mswindows_waitable_handles [ix])
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1676 break;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1677 mswindows_waitable_handles [ix] =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1678 mswindows_waitable_handles [--mswindows_waitable_count];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1679 kick_status_notify ();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1680 /* We need to return a process event here so that
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1681 (1) accept-process-output will return when called on this
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1682 process, and (2) status notifications will happen in
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1683 accept-process-output, sleep-for, and sit-for. */
534
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1684 if (!NILP (vproctail))
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1685 mswindows_enqueue_process_event (XPROCESS (vaffanculo));
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1686 else
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1687 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1688 /* abort (); */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1689 /* #### FUCKME! When can this happen? I hit this abort()
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1690 when I tried enabling it. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1691 /* Have to return something: there may be no accompanying
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1692 process event */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1693 mswindows_enqueue_magic_event (NULL, XM_BUMPQUEUE);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1694 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1695 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1696 }
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1697 #endif /* not CYGWIN */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1698 } /* while */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1699 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1700
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1701 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1702 /* Event generators */
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 * Callback procedure for synchronous timer messages
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1707 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1708 static void CALLBACK
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1709 mswindows_wm_timer_callback (HWND hwnd, UINT umsg, UINT id_timer, DWORD dwtime)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1710 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1711 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1712 Lisp_Event *event = XEVENT (emacs_event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1713
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1714 if (KillTimer (NULL, id_timer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1715 --mswindows_pending_timers_count;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1716
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1717 event->channel = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1718 event->timestamp = dwtime;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1719 event->event_type = timeout_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1720 event->event.timeout.interval_id = id_timer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1721 event->event.timeout.function = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1722 event->event.timeout.object = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1723
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1724 mswindows_enqueue_dispatch_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1725 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1726
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1727 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1728 * Callback procedure for dde messages
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1729 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1730 * We execute a dde Open("file") by simulating a file drop, so dde support
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1731 * depends on dnd support.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1732 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1733 #ifdef HAVE_DRAGNDROP
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 656
diff changeset
1734 extern int mswindows_dde_enable;
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 656
diff changeset
1735
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1736 HDDEDATA CALLBACK
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1737 mswindows_dde_callback (UINT uType, UINT uFmt, HCONV hconv,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1738 HSZ hszTopic, HSZ hszItem, HDDEDATA hdata,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1739 DWORD dwData1, DWORD dwData2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1740 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1741 switch (uType)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1742 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1743 case XTYP_CONNECT:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1744 if (!DdeCmpStringHandles (hszTopic, mswindows_dde_topic_system))
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1745 return (HDDEDATA) TRUE;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1746 return (HDDEDATA) FALSE;
428
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 case XTYP_WILDCONNECT:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1749 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1750 /* We only support one {service,topic} pair */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1751 HSZPAIR pairs[2] =
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1752 {
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1753 { mswindows_dde_service, mswindows_dde_topic_system }, { 0, 0 } };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1754
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1755 if (!(hszItem
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1756 || DdeCmpStringHandles (hszItem, mswindows_dde_service)) &&
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1757 !(hszTopic
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1758 || DdeCmpStringHandles (hszTopic, mswindows_dde_topic_system)))
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1759 return (DdeCreateDataHandle (mswindows_dde_mlid, (LPBYTE) pairs,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1760 sizeof (pairs), 0L, 0, uFmt, 0));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1761 }
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1762 return (HDDEDATA) NULL;
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 case XTYP_EXECUTE:
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 656
diff changeset
1765 if (!mswindows_dde_enable)
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 656
diff changeset
1766 return (HDDEDATA) DDE_FBUSY;
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 656
diff changeset
1767
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1768 if (!DdeCmpStringHandles (hszTopic, mswindows_dde_topic_system))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1769 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1770 DWORD len = DdeGetData (hdata, NULL, 0, 0);
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1771 LPBYTE extcmd = (LPBYTE) ALLOCA (len + 1);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1772 Intbyte *cmd;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1773 Intbyte *end;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1774 struct gcpro gcpro1, gcpro2;
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 656
diff changeset
1775 Lisp_Object l_dndlist = Qnil;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1776 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1777 Lisp_Object frmcons, devcons, concons;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1778 Lisp_Event *event = XEVENT (emacs_event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1779
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1780 DdeGetData (hdata, extcmd, len, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1781 DdeFreeDataHandle (hdata);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1782
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1783 TO_INTERNAL_FORMAT (DATA, (extcmd, len),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1784 C_STRING_ALLOCA, cmd,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1785 Qmswindows_tstr);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1786
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1787 /* Check syntax & that it's an [Open("foo")] command, which we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1788 * treat like a file drop */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1789 /* #### Ought to be generalised and accept some other commands */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1790 if (*cmd == '[')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1791 cmd++;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1792 if (qxestrncasecmp_c (cmd, MSWINDOWS_DDE_ITEM_OPEN,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1793 strlen (MSWINDOWS_DDE_ITEM_OPEN)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1794 return DDE_FNOTPROCESSED;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1795 cmd += strlen (MSWINDOWS_DDE_ITEM_OPEN);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1796 while (*cmd == ' ')
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1797 cmd++;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1798 if (*cmd != '(' || *(cmd + 1) != '\"')
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1799 return DDE_FNOTPROCESSED;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1800 end = (cmd += 2);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1801 while (*end && *end != '\"')
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1802 end++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1803 if (!*end)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1804 return DDE_FNOTPROCESSED;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1805 *end = '\0';
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1806 if (*++end != ')')
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1807 return DDE_FNOTPROCESSED;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1808 if (*++end == ']')
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1809 end++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1810 if (*end)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1811 return DDE_FNOTPROCESSED;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1812
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1813 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1814 /* The drag-n-drop code in dragdrop.el expects pseudo-URL's,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1815 consisting of just file: followed by the filename. This
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1816 should maybe work, but both Netscape and IE complain
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1817 whenever they're not given the full file spec, like
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1818
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1819 file:///C|/foo/bar/ or equivalently
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1820 file:///C:/foo/bar/ (less portably)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1821
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1822 they don't allow relative paths at all! this is way bogus. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1823 cmd = urlify_filename (cmd);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1824 l_dndlist = build_intstring (cmd);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1825 xfree (cmd);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
1826 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1827 GCPRO2 (emacs_event, l_dndlist);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1828
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1829 /* Find a mswindows frame */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1830 event->channel = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1831 FRAME_LOOP_NO_BREAK (frmcons, devcons, concons)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1832 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1833 Lisp_Object frame = XCAR (frmcons);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1834 if (FRAME_TYPE_P (XFRAME (frame), mswindows))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1835 event->channel = frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1836 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1837 assert (!NILP (event->channel));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1838
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1839 event->timestamp = GetTickCount();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1840 event->event_type = misc_user_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1841 event->event.misc.button = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1842 event->event.misc.modifiers = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1843 event->event.misc.x = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1844 event->event.misc.y = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1845 event->event.misc.function = Qdragdrop_drop_dispatch;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1846 event->event.misc.object = Fcons (Qdragdrop_URL,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1847 Fcons (l_dndlist, Qnil));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1848 mswindows_enqueue_dispatch_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1849 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1850 return (HDDEDATA) DDE_FACK;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1851 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1852 DdeFreeDataHandle (hdata);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1853 return (HDDEDATA) DDE_FNOTPROCESSED;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1854
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1855 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1856 return (HDDEDATA) NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1857 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1858 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1859 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1860
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1861 /*
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1862 * Helper to do repainting - repaints can happen both from the windows
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1863 * procedure and from magic events
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1864 */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1865 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1866 mswindows_handle_paint (struct frame *frame)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1867 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1868 HWND hwnd = FRAME_MSWINDOWS_HANDLE (frame);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1869
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1870 /* According to the docs we need to check GetUpdateRect() before
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1871 actually doing a WM_PAINT */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1872 if (GetUpdateRect (hwnd, NULL, FALSE))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1873 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1874 PAINTSTRUCT paintStruct;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1875 int x, y, width, height;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1876
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1877 BeginPaint (hwnd, &paintStruct);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1878 x = paintStruct.rcPaint.left;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1879 y = paintStruct.rcPaint.top;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1880 width = paintStruct.rcPaint.right - paintStruct.rcPaint.left;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1881 height = paintStruct.rcPaint.bottom - paintStruct.rcPaint.top;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1882 /* Normally we want to ignore expose events when child
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1883 windows are unmapped, however once we are in the guts of
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1884 WM_PAINT we need to make sure that we don't register
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1885 unmaps then because they will not actually occur. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1886 /* #### commenting out the next line seems to fix some problems
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1887 but not all. only andy currently understands this stuff and
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1888 he needs to review it more carefully. --ben */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1889 if (!check_for_ignored_expose (frame, x, y, width, height))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1890 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1891 hold_ignored_expose_registration = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1892 mswindows_redraw_exposed_area (frame, x, y, width, height);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1893 hold_ignored_expose_registration = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1894 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1895 EndPaint (hwnd, &paintStruct);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1896 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1897 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1898
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 * Returns 1 if a key is a real modifier or special key, which
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1901 * is better handled by DefWindowProc
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1902 */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1903 static int
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1904 key_needs_default_processing_p (UINT vkey)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1905 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1906 if (mswindows_alt_by_itself_activates_menu && vkey == VK_MENU
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1907 /* if we let ALT activate the menu like this, then sticky ALT-modified
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1908 keystrokes become impossible. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1909 && !modifier_keys_are_sticky)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1910 return 1;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1911
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1912 return 0;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1913 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1914
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1915 /* key-handling code is always ugly. It just ends up working out
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1916 that way.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1917
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1918 #### Most of the sticky-modifier code below is copied from similar
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1919 code in event-Xt.c. They should somehow or other be merged.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1920
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1921 Here are some pointers:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1922
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1923 -- DOWN_MASK indicates which modifiers should be treated as "down"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1924 when the corresponding upstroke happens. It gets reset for
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1925 a particular modifier when that modifier goes up, and reset
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1926 for all modifiers when a non-modifier key is pressed. Example:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1927
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1928 I press Control-A-Shift and then release Control-A-Shift.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1929 I want the Shift key to be sticky but not the Control key.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1930
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1931 -- If a modifier key is sticky, I can unstick it by pressing
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1932 the modifier key again. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1933
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1934 static WPARAM last_downkey;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1935 static int need_to_add_mask, down_mask;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1936
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1937 #define XEMSW_LCONTROL (1<<0)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1938 #define XEMSW_RCONTROL (1<<1)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1939 #define XEMSW_LSHIFT (1<<2)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1940 #define XEMSW_RSHIFT (1<<3)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1941 #define XEMSW_LMENU (1<<4)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1942 #define XEMSW_RMENU (1<<5)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1943
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1944 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1945 mswindows_handle_sticky_modifiers (WPARAM wParam, LPARAM lParam,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1946 int downp, int keyp)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1947 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1948 int mods = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1949
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1950 if (!modifier_keys_are_sticky) /* Optimize for non-sticky modifiers */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1951 return 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1952
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1953 if (! (keyp &&
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1954 (wParam == VK_CONTROL || wParam == VK_LCONTROL ||
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1955 wParam == VK_RCONTROL ||
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1956 wParam == VK_MENU || wParam == VK_LMENU ||
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1957 wParam == VK_RMENU ||
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1958 wParam == VK_SHIFT || wParam == VK_LSHIFT ||
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1959 wParam == VK_RSHIFT)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1960 { /* Not a modifier key */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1961 if (downp && keyp && !last_downkey)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1962 last_downkey = wParam;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1963 /* If I hold press-and-release the Control key and then press
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1964 and hold down the right arrow, I want it to auto-repeat
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1965 Control-Right. On the other hand, if I do the same but
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1966 manually press the Right arrow a bunch of times, I want
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1967 to see one Control-Right and then a bunch of Rights.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1968 This means that we need to distinguish between an
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1969 auto-repeated key and a key pressed and released a bunch
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1970 of times. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1971 else if ((downp && !keyp) ||
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1972 (downp && keyp && last_downkey &&
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1973 (wParam != last_downkey ||
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1974 /* the "previous key state" bit indicates autorepeat */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1975 ! (lParam & (1 << 30)))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1976 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1977 need_to_add_mask = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1978 last_downkey = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1979 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1980 if (downp)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1981 down_mask = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1982
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1983 mods = need_to_add_mask;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1984 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1985 else /* Modifier key pressed */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1986 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1987 /* If a non-modifier key was pressed in the middle of a bunch
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1988 of modifiers, then it unsticks all the modifiers that were
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1989 previously pressed. We cannot unstick the modifiers until
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1990 now because we want to check for auto-repeat of the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1991 non-modifier key. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1992
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1993 if (last_downkey)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1994 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1995 last_downkey = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1996 need_to_add_mask = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1997 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1998
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1999 #define FROB(mask) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2000 do { \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2001 if (downp && keyp) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2002 { \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2003 /* If modifier key is already sticky, \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2004 then unstick it. Note that we do \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2005 not test down_mask to deal with the \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2006 unlikely but possible case that the \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2007 modifier key auto-repeats. */ \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2008 if (need_to_add_mask & mask) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2009 { \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2010 need_to_add_mask &= ~mask; \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2011 down_mask &= ~mask; \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2012 } \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2013 else \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2014 down_mask |= mask; \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2015 } \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2016 else \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2017 { \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2018 if (down_mask & mask) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2019 { \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2020 down_mask &= ~mask; \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2021 need_to_add_mask |= mask; \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2022 } \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2023 } \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2024 } while (0)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2025
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2026 if ((wParam == VK_CONTROL && (lParam & 0x1000000))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2027 || wParam == VK_RCONTROL)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2028 FROB (XEMSW_RCONTROL);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2029 if ((wParam == VK_CONTROL && !(lParam & 0x1000000))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2030 || wParam == VK_LCONTROL)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2031 FROB (XEMSW_LCONTROL);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2032
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2033 if ((wParam == VK_SHIFT && (lParam & 0x1000000))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2034 || wParam == VK_RSHIFT)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2035 FROB (XEMSW_RSHIFT);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2036 if ((wParam == VK_SHIFT && !(lParam & 0x1000000))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2037 || wParam == VK_LSHIFT)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2038 FROB (XEMSW_LSHIFT);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2039
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2040 if ((wParam == VK_MENU && (lParam & 0x1000000))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2041 || wParam == VK_RMENU)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2042 FROB (XEMSW_RMENU);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2043 if ((wParam == VK_MENU && !(lParam & 0x1000000))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2044 || wParam == VK_LMENU)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2045 FROB (XEMSW_LMENU);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2046 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2047 #undef FROB
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2048
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2049 if (mods && downp)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2050 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2051 BYTE keymap[256];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2052
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2053 GetKeyboardState (keymap);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2054
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2055 if (mods & XEMSW_LCONTROL)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2056 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2057 keymap [VK_CONTROL] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2058 keymap [VK_LCONTROL] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2059 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2060 if (mods & XEMSW_RCONTROL)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2061 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2062 keymap [VK_CONTROL] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2063 keymap [VK_RCONTROL] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2064 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2065
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2066 if (mods & XEMSW_LSHIFT)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2067 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2068 keymap [VK_SHIFT] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2069 keymap [VK_LSHIFT] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2070 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2071 if (mods & XEMSW_RSHIFT)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2072 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2073 keymap [VK_SHIFT] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2074 keymap [VK_RSHIFT] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2075 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2076
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2077 if (mods & XEMSW_LMENU)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2078 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2079 keymap [VK_MENU] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2080 keymap [VK_LMENU] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2081 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2082 if (mods & XEMSW_RMENU)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2083 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2084 keymap [VK_MENU] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2085 keymap [VK_RMENU] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2086 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2087
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2088 SetKeyboardState (keymap);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2089 return 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2090 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2091
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2092 return 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2093 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2094
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2095 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2096 clear_sticky_modifiers (void)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2097 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2098 need_to_add_mask = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2099 last_downkey = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2100 down_mask = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2101 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2102
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2103 #ifdef DEBUG_XEMACS
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2104
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2105 #if 0
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2106
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2107 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2108 output_modifier_keyboard_state (void)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2109 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2110 BYTE keymap[256];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2111
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2112 GetKeyboardState (keymap);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2113
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2114 stderr_out ("GetKeyboardState VK_MENU %d %d VK_LMENU %d %d VK_RMENU %d %d\n",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2115 keymap[VK_MENU] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2116 keymap[VK_MENU] & 0x1 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2117 keymap[VK_LMENU] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2118 keymap[VK_LMENU] & 0x1 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2119 keymap[VK_RMENU] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2120 keymap[VK_RMENU] & 0x1 ? 1 : 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2121 stderr_out ("GetKeyboardState VK_CONTROL %d %d VK_LCONTROL %d %d VK_RCONTROL %d %d\n",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2122 keymap[VK_CONTROL] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2123 keymap[VK_CONTROL] & 0x1 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2124 keymap[VK_LCONTROL] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2125 keymap[VK_LCONTROL] & 0x1 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2126 keymap[VK_RCONTROL] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2127 keymap[VK_RCONTROL] & 0x1 ? 1 : 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2128 stderr_out ("GetKeyboardState VK_SHIFT %d %d VK_LSHIFT %d %d VK_RSHIFT %d %d\n",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2129 keymap[VK_SHIFT] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2130 keymap[VK_SHIFT] & 0x1 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2131 keymap[VK_LSHIFT] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2132 keymap[VK_LSHIFT] & 0x1 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2133 keymap[VK_RSHIFT] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2134 keymap[VK_RSHIFT] & 0x1 ? 1 : 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2135 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2136
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2137 #endif
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2138
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2139 /* try to debug the stuck-alt-key problem.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2140
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2141 #### this happens only inconsistently, and may only happen when using
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2142 StickyKeys in the Win2000 accessibility section of the control panel,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2143 which is extremely broken for other reasons. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2144
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2145 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2146 output_alt_keyboard_state (void)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2147 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2148 BYTE keymap[256];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2149 SHORT keystate[3];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2150 // SHORT asyncstate[3];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2151
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2152 GetKeyboardState (keymap);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2153 keystate[0] = GetKeyState (VK_MENU);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2154 keystate[1] = GetKeyState (VK_LMENU);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2155 keystate[2] = GetKeyState (VK_RMENU);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2156 /* Doing this interferes with key processing. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2157 /* asyncstate[0] = GetAsyncKeyState (VK_MENU); */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2158 /* asyncstate[1] = GetAsyncKeyState (VK_LMENU); */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2159 /* asyncstate[2] = GetAsyncKeyState (VK_RMENU); */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2160
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2161 stderr_out ("GetKeyboardState VK_MENU %d %d VK_LMENU %d %d VK_RMENU %d %d\n",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2162 keymap[VK_MENU] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2163 keymap[VK_MENU] & 0x1 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2164 keymap[VK_LMENU] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2165 keymap[VK_LMENU] & 0x1 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2166 keymap[VK_RMENU] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2167 keymap[VK_RMENU] & 0x1 ? 1 : 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2168 stderr_out ("GetKeyState VK_MENU %d %d VK_LMENU %d %d VK_RMENU %d %d\n",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2169 keystate[0] & 0x8000 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2170 keystate[0] & 0x1 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2171 keystate[1] & 0x8000 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2172 keystate[1] & 0x1 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2173 keystate[2] & 0x8000 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2174 keystate[2] & 0x1 ? 1 : 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2175 /* stderr_out ("GetAsyncKeyState VK_MENU %d %d VK_LMENU %d %d VK_RMENU %d %d\n", */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2176 /* asyncstate[0] & 0x8000 ? 1 : 0, */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2177 /* asyncstate[0] & 0x1 ? 1 : 0, */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2178 /* asyncstate[1] & 0x8000 ? 1 : 0, */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2179 /* asyncstate[1] & 0x1 ? 1 : 0, */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2180 /* asyncstate[2] & 0x8000 ? 1 : 0, */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2181 /* asyncstate[2] & 0x1 ? 1 : 0); */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2182 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2183
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2184 #endif /* DEBUG_XEMACS */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2185
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2186
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2187 /*
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2188 * The windows procedure for the window class XEMACS_CLASS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2189 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2190 LRESULT WINAPI
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2191 mswindows_wnd_proc (HWND hwnd, UINT message_, WPARAM wParam, LPARAM lParam)
428
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 /* Note: Remember to initialize emacs_event and event before use.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2194 This code calls code that can GC. You must GCPRO before calling such code. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2195 Lisp_Object emacs_event = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2196 Lisp_Object fobj = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2197
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2198 Lisp_Event *event;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2199 struct frame *frame;
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 611
diff changeset
2200 struct mswindows_frame *msframe;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2201
611
38db05db9cb5 [xemacs-hg @ 2001-06-08 12:21:09 by ben]
ben
parents: 604
diff changeset
2202 /* If you hit this, rewrite the offending API call to occur after GC,
38db05db9cb5 [xemacs-hg @ 2001-06-08 12:21:09 by ben]
ben
parents: 604
diff changeset
2203 using register_post_gc_action(). */
38db05db9cb5 [xemacs-hg @ 2001-06-08 12:21:09 by ben]
ben
parents: 604
diff changeset
2204 assert (!gc_in_progress);
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2205
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2206 #ifdef DEBUG_XEMACS
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2207 if (debug_mswindows_events)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2208 debug_output_mswin_message (hwnd, message_, wParam, lParam);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2209 #endif /* DEBUG_XEMACS */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2210
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2211 assert (!qxeGetWindowLong (hwnd, GWL_USERDATA));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2212 switch (message_)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2213 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2214 case WM_DESTROYCLIPBOARD:
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2215 mswindows_handle_destroyclipboard ();
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2216 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2217
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2218 case WM_ERASEBKGND:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2219 /* Erase background only during non-dynamic sizing */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2220 msframe = FRAME_MSWINDOWS_DATA (XFRAME (mswindows_find_frame (hwnd)));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2221 if (msframe->sizing && !mswindows_dynamic_frame_resize)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2222 goto defproc;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2223 return 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2224
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2225 case WM_CLOSE:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2226 fobj = mswindows_find_frame (hwnd);
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2227 mswindows_enqueue_misc_user_event (fobj, Qeval, list3 (Qdelete_frame, fobj,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2228 Qt));
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2229 break;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2230
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2231 case WM_KEYUP:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2232 case WM_SYSKEYUP:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2233
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2234 /* See Win95 comment under WM_KEYDOWN */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2235 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2236 BYTE keymap[256];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2237 int should_set_keymap = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2238
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2239 #ifdef DEBUG_XEMACS
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2240 if (debug_mswindows_events > 2)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2241 output_alt_keyboard_state ();
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2242 #endif /* DEBUG_XEMACS */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2243
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2244 mswindows_handle_sticky_modifiers (wParam, lParam, 0, 1);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2245 if (wParam == VK_CONTROL)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2246 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2247 GetKeyboardState (keymap);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2248 keymap [(lParam & 0x1000000) ? VK_RCONTROL : VK_LCONTROL] &= ~0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2249 should_set_keymap = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2250 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2251 else if (wParam == VK_MENU)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2252 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2253 GetKeyboardState (keymap);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2254 keymap [(lParam & 0x1000000) ? VK_RMENU : VK_LMENU] &= ~0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2255 should_set_keymap = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2256 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2257
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2258 if (should_set_keymap)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2259 // && (message_ != WM_SYSKEYUP
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2260 // || NILP (Vmenu_accelerator_enabled)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2261 SetKeyboardState (keymap);
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 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2264
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2265 if (key_needs_default_processing_p (wParam))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2266 goto defproc;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2267 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2268 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2269
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2270 case WM_KEYDOWN:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2271 case WM_SYSKEYDOWN:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2272
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2273 /* In some locales the right-hand Alt key is labelled AltGr. This key
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2274 * should produce alternative characters when combined with another key.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2275 * eg on a German keyboard pressing AltGr+q should produce '@'.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2276 * AltGr generates exactly the same keystrokes as LCtrl+RAlt. But if
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2277 * TranslateMessage() is called with *any* combination of Ctrl+Alt down,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2278 * it translates as if AltGr were down.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2279 * We get round this by removing all modifiers from the keymap before
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2280 * calling TranslateMessage() unless AltGr is *really* down. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2281 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2282 BYTE keymap_trans[256];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2283 BYTE keymap_orig[256];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2284 BYTE keymap_sticky[256];
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2285 /* WARNING: XEmacs code paths are far more subtle than you
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2286 think. In particular, QUIT checking will query and remove
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2287 events, including keyboard events, from the queue. (QUIT is
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2288 definitely invoked from TO_INTERNAL_FORMAT().) If we do
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2289 this recursively anywhere in the following code, it will
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2290 mess certain things up -- in particular, the OS-provided
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2291 sticky modifier code available as part of the accessibility
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2292 package.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2293
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2294 (Academic question: If QUIT checking is supposed to be
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2295 triggered only every 1/4 second, why is it getting
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2296 consistently triggered here? I saw the problem
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2297 consistently. Answer: It appears that, currently,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2298 sometimes the code to pump messages is wrapped with
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2299 begin_dont_check_for_quit() and sometimes it isn't. (####
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2300 FIX THIS SHIT!) cmdloop.c, for example, has it, but not
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2301 everywhere. The current games with avoiding QUIT mean that
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2302 the 1/4-second timer consistently fires while
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2303 dont_check_for_quit is set [which causes the quit check to
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2304 get deferred but the flag is still on], and so the next
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2305 time it's unset and we call QUIT is *right here*.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2306
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2307 In my stderr-proc ws I majorly cleaned up the whole shit by
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2308 just wrapping all the entry points in dont_check_for_quit.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2309 This fixed the remaining bugs with C-g getting interpreted
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2310 wrong.)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2311
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2312 #### We should probably wrap this whole function in
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2313 begin_dont_check_for_quit(); but then we should set this
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2314 back to 0 when handling a menu callback, which gets invoked
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2315 from within this function, specifically from
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2316 DefWindowProc(). (We already do the latter in my new
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2317 stderr-proc ws, because in that ws next_event_internal()
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2318 calls begin_dont_check_for_quit(). */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2319
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2320 int count = begin_dont_check_for_quit ();
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2321 int has_AltGr = mswindows_current_layout_has_AltGr ();
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
2322 int mods = 0, mods_with_shift = 0;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2323 int extendedp = lParam & 0x1000000;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2324 Lisp_Object keysym;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2325 int sticky_changed;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2326
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2327 #ifdef DEBUG_XEMACS
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2328 if (debug_mswindows_events > 2)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2329 output_alt_keyboard_state ();
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2330 #endif /* DEBUG_XEMACS */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2331
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2332 GetKeyboardState (keymap_orig);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2333 frame = XFRAME (mswindows_find_frame (hwnd));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2334 if ((sticky_changed =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2335 mswindows_handle_sticky_modifiers (wParam, lParam, 1, 1)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2336 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2337 GetKeyboardState (keymap_sticky);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2338 if (keymap_sticky[VK_MENU] & 0x80)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2339 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2340 message_ = WM_SYSKEYDOWN;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2341 /* We have to set the "context bit" so that the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2342 TranslateMessage() call below that generates the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2343 SYSCHAR message does its thing; see the documentation
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2344 on WM_SYSKEYDOWN */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2345 lParam |= 1 << 29;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2346 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2347 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2348 else
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2349 memcpy (keymap_sticky, keymap_orig, 256);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2350
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2351 mods = mswindows_modifier_state (keymap_sticky, (DWORD) -1, has_AltGr);
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
2352 mods_with_shift = mods;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2353
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2354 /* Handle non-printables */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2355 if (!NILP (keysym = mswindows_key_to_emacs_keysym (wParam, mods,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2356 extendedp)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2357 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2358 mswindows_enqueue_keypress_event (hwnd, keysym, mods);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2359 if (sticky_changed)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2360 SetKeyboardState (keymap_orig);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2361 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2362 else /* Normal keys & modifiers */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2363 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2364 Emchar quit_ch =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2365 CONSOLE_QUIT_CHAR (XCONSOLE (mswindows_find_console (hwnd)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2366 POINT pnt = { LOWORD (GetMessagePos()), HIWORD (GetMessagePos()) };
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2367 MSG msg, tranmsg;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2368 int potential_accelerator = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2369 int got_accelerator = 0;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2370 /* No need to gcpro because the event is already on a
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2371 queue when we retrieve it. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2372 Lisp_Object lastev = Qnil;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2373
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2374 msg.hwnd = hwnd;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2375 msg.message = message_;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2376 msg.wParam = wParam;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2377 msg.lParam = lParam;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2378 msg.time = GetMessageTime();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2379 msg.pt = pnt;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2380
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2381 /* GetKeyboardState() does not work as documented on Win95. We have
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2382 * to loosely track Left and Right modifiers on behalf of the OS,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2383 * without screwing up Windows NT which tracks them properly. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2384 if (wParam == VK_CONTROL)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2385 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2386 keymap_orig[extendedp ? VK_RCONTROL : VK_LCONTROL] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2387 keymap_sticky[extendedp ? VK_RCONTROL : VK_LCONTROL] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2388 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2389 else if (wParam == VK_MENU)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2390 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2391 keymap_orig[extendedp ? VK_RMENU : VK_LMENU] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2392 keymap_sticky[extendedp ? VK_RMENU : VK_LMENU] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2393 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2394
827
28426972f654 [xemacs-hg @ 2002-05-06 14:14:33 by jhar]
jhar
parents: 826
diff changeset
2395 #ifdef HAVE_MENUBARS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2396 if (!NILP (Vmenu_accelerator_enabled) &&
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2397 !(mods & XEMACS_MOD_SHIFT) && message_ == WM_SYSKEYDOWN)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2398 potential_accelerator = 1;
827
28426972f654 [xemacs-hg @ 2002-05-06 14:14:33 by jhar]
jhar
parents: 826
diff changeset
2399 #endif
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2400
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2401 /* Remove shift modifier from an ascii character */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2402 mods &= ~XEMACS_MOD_SHIFT;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2403
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2404 memcpy (keymap_trans, keymap_sticky, 256);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2405
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2406 /* Clear control and alt modifiers unless AltGr is pressed */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2407 keymap_trans[VK_RCONTROL] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2408 keymap_trans[VK_LMENU] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2409 if (!has_AltGr || !(keymap_trans[VK_LCONTROL] & 0x80)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2410 || !(keymap_trans[VK_RMENU] & 0x80))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2411 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2412 keymap_trans[VK_LCONTROL] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2413 keymap_trans[VK_CONTROL] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2414 keymap_trans[VK_RMENU] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2415 keymap_trans[VK_MENU] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2416 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2417 SetKeyboardState (keymap_trans);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2418
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2419 /* Maybe generate some WM_[SYS]CHARs in the queue */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2420 TranslateMessage (&msg);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2421
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2422 while (qxePeekMessage (&tranmsg, hwnd, WM_CHAR, WM_CHAR, PM_REMOVE)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2423 || qxePeekMessage (&tranmsg, hwnd, WM_SYSCHAR, WM_SYSCHAR,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2424 PM_REMOVE))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2425 {
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
2426 int mods_with_quit = mods;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2427 int length;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2428 Extbyte extchar[4];
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2429 Intbyte *intchar;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2430 Emchar ch;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2431
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2432 if (XEUNICODE_P)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2433 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2434 length = unicode_char_to_text (tranmsg.wParam, extchar);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2435 TO_INTERNAL_FORMAT (DATA, (extchar, length),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2436 C_STRING_ALLOCA, (intchar),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2437 Qmswindows_unicode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2438 ch = charptr_emchar (intchar);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2439 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2440 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2441 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2442 length = ansi_char_to_text (tranmsg.wParam, extchar);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2443 intchar = (convert_multibyte_to_internal_malloc
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2444 (extchar, length,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2445 mswindows_locale_to_code_page
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2446 /* See intl-win32.c for an explanation of
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2447 the following */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2448 ((LCID) GetKeyboardLayout (0) & 0xFFFF),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2449 NULL));
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2450 ch = charptr_emchar (intchar);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2451 xfree (intchar);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2452 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2453
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2454 #ifdef DEBUG_XEMACS
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2455 if (debug_mswindows_events)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2456 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2457 stderr_out ("-> ");
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2458 debug_output_mswin_message (tranmsg.hwnd, tranmsg.message,
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2459 tranmsg.wParam,
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2460 tranmsg.lParam);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2461 }
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2462 #endif /* DEBUG_XEMACS */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2463
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2464 /* If a quit char with no modifiers other than control and
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2465 shift, then mark it with a fake modifier, which is removed
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2466 upon dequeueing the event */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2467 if (((quit_ch < ' ' && (mods & XEMACS_MOD_CONTROL)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2468 && DOWNCASE (0, quit_ch + 'a' - 1) ==
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2469 DOWNCASE (0, ch))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2470 || (quit_ch >= ' ' && !(mods & XEMACS_MOD_CONTROL)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2471 && DOWNCASE (0, quit_ch) ==
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2472 DOWNCASE (0, ch)))
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
2473 && ((mods_with_shift &
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
2474 ~(XEMACS_MOD_CONTROL | XEMACS_MOD_SHIFT))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2475 == 0))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2476 {
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
2477 mods_with_quit |= FAKE_MOD_QUIT;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
2478 if (mods_with_shift & XEMACS_MOD_SHIFT)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
2479 mods_with_quit |= FAKE_MOD_QUIT_CRITICAL;
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2480 mswindows_quit_chars_count++;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2481 }
827
28426972f654 [xemacs-hg @ 2002-05-06 14:14:33 by jhar]
jhar
parents: 826
diff changeset
2482 #ifdef HAVE_MENUBARS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2483 else if (potential_accelerator && !got_accelerator &&
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2484 mswindows_char_is_accelerator (frame, ch))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2485 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2486 got_accelerator = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2487 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2488 }
827
28426972f654 [xemacs-hg @ 2002-05-06 14:14:33 by jhar]
jhar
parents: 826
diff changeset
2489 #endif /* HAVE_MENUBARS */
28426972f654 [xemacs-hg @ 2002-05-06 14:14:33 by jhar]
jhar
parents: 826
diff changeset
2490
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2491 lastev = mswindows_enqueue_keypress_event (hwnd,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2492 make_char (ch),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2493 mods_with_quit);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2494 } /* while */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2495
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2496 #ifdef MULE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2497 /* Also figure out what the character would be in other
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2498 possible keyboard layouts, in this order:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2499
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2500 -- current language environment
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2501 -- user default language environment
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2502 -- system default language environment
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2503 -- same three, but checking the underlying virtual key,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2504 and only paying attention if it's alphabetic
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2505 -- US ASCII
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2506
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2507 See events.h, struct key_data, for why we do this.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2508 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2509
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2510 if (!NILP (lastev))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2511 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2512 int i;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2513 int scan = (lParam >> 16) && 0xFF;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2514
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2515 for (i = 0; i < KEYCHAR_LAST; i++)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2516 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2517 int vk_only = 0;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2518 LCID lcid;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2519 int virtual_key;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2520
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2521 switch (i)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2522 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2523 case KEYCHAR_UNDERLYING_VIRTUAL_KEY_CURRENT_LANGENV:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2524 vk_only = 1;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2525 case KEYCHAR_CURRENT_LANGENV:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2526 lcid = mswindows_current_locale ();
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2527 break;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2528
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2529 case KEYCHAR_UNDERLYING_VIRTUAL_KEY_DEFAULT_USER:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2530 vk_only = 1;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2531 case KEYCHAR_DEFAULT_USER:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2532 lcid = GetUserDefaultLCID ();
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2533 break;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2534
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2535 case KEYCHAR_UNDERLYING_VIRTUAL_KEY_DEFAULT_SYSTEM:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2536 vk_only = 1;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2537 case KEYCHAR_DEFAULT_SYSTEM:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2538 lcid = GetSystemDefaultLCID ();
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2539 break;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2540
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2541 case KEYCHAR_QWERTY:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2542 lcid = MAKELANGID (LANG_ENGLISH, SUBLANG_ENGLISH_US);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2543 break;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2544
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2545 default: abort (); lcid = 0;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2546 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2547
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2548 /* VERY CONFUSING! See intl-win32.c. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2549 lcid = lcid & 0xFFFF;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2550
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
2551 virtual_key = qxeMapVirtualKeyEx (scan, 1, (HKL) lcid);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2552 if (!vk_only)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2553 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2554 if (XEUNICODE_P)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2555 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2556 Extbyte received_keys[32];
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2557 int tounret =
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2558 ToUnicodeEx
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2559 (virtual_key, scan, keymap_trans,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2560 (LPWSTR) received_keys,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2561 sizeof (received_keys) / XETCHAR_SIZE,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2562 0, /* #### what about this flag? "if
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2563 bit 0 is set, a menu is
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2564 active???" */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2565 (HKL) lcid);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2566 if (tounret > 0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2567 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2568 Intbyte *intchar;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2569
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2570 TO_INTERNAL_FORMAT
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2571 (DATA,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2572 (received_keys + (tounret - 1) * 2, 2),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2573 C_STRING_ALLOCA, intchar,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2574 Qmswindows_unicode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2575 XEVENT (lastev)->event.key.alt_keychars[i] =
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2576 charptr_emchar (intchar);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2577 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2578 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2579 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2580 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2581 WORD received_keys[32];
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2582 int tounret =
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2583 ToAsciiEx (virtual_key, scan, keymap_trans,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2584 received_keys,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2585 0, /* #### what about this
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2586 flag? "if bit 0 is set, a
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2587 menu is active???" */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2588 (HKL) lcid);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2589 if (tounret > 0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2590 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2591 /* #### I cannot find proper
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2592 documentation on what format the
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2593 return value is in. I'm assuming
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2594 it's like WM_IME_CHAR: DBCS chars
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2595 have the lead byte in bits 8-15 of
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2596 the short. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2597 Intbyte *intchar;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2598 Extbyte mbstuff[2];
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2599 Bytecount mblength = 0;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2600 WORD thechar = received_keys[tounret - 1];
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2601
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2602 mbstuff[mblength++] =
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2603 (Extbyte) (thechar & 0xFF);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2604 if (thechar > 0xFF)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2605 mbstuff[mblength++] =
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2606 (Extbyte) ((thechar >> 8) & 0xFF);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2607
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2608 intchar = convert_multibyte_to_internal_malloc
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2609 (mbstuff, mblength,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2610 mswindows_locale_to_code_page (lcid),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2611 NULL);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2612
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2613 XEVENT (lastev)->event.key.alt_keychars[i] =
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2614 charptr_emchar (intchar);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2615 xfree (intchar);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2616 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2617 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2618 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2619 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2620 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2621 Emchar altch;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2622
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2623 if (virtual_key >= 'A' && virtual_key <= 'Z')
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2624 altch =
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2625 virtual_key + (mods_with_shift & XEMACS_MOD_SHIFT ?
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2626 'a' - 'A' : 0);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2627 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2628 altch = 0;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2629
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2630 XEVENT (lastev)->event.key.alt_keychars[i] = altch;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2631 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2632 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2633 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2634 #endif /* MULE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2635
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2636 /* This generates WM_SYSCHAR messages, which are interpreted
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2637 by DefWindowProc as the menu selections. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2638 if (got_accelerator)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2639 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2640 SetKeyboardState (keymap_sticky);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2641 TranslateMessage (&msg);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2642 SetKeyboardState (keymap_orig);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2643 unbind_to (count);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2644 goto defproc;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2645 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2646
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2647 SetKeyboardState (keymap_orig);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2648 } /* else */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2649
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2650 if (key_needs_default_processing_p (wParam))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2651 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2652 unbind_to (count);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2653 goto defproc;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2654 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2655 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2656 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2657 unbind_to (count);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2658 break;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2659 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2660 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2661
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2662 case WM_MBUTTONDOWN:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2663 case WM_MBUTTONUP:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2664 /* Real middle mouse button has nothing to do with emulated one:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2665 if one wants to exercise fingers playing chords on the mouse,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2666 he is allowed to do that! */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2667 mswindows_enqueue_mouse_button_event (hwnd, message_,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2668 MAKEPOINTS (lParam),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2669 wParam &~ MK_MBUTTON,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2670 GetMessageTime());
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2671 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2672
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2673 case WM_LBUTTONUP:
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2674 msframe = FRAME_MSWINDOWS_DATA (XFRAME (mswindows_find_frame (hwnd)));
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2675 msframe->last_click_time = GetMessageTime();
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2676
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2677 KillTimer (hwnd, BUTTON_2_TIMER_ID);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2678 msframe->button2_need_lbutton = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2679 if (msframe->ignore_next_lbutton_up)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2680 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2681 msframe->ignore_next_lbutton_up = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2682 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2683 else if (msframe->button2_is_down)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2684 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2685 msframe->button2_is_down = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2686 msframe->ignore_next_rbutton_up = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2687 mswindows_enqueue_mouse_button_event (hwnd, WM_MBUTTONUP,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2688 MAKEPOINTS (lParam),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2689 wParam
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2690 &~ (MK_LBUTTON | MK_MBUTTON
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2691 | MK_RBUTTON),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2692 GetMessageTime());
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2693 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2694 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2695 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2696 if (msframe->button2_need_rbutton)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2697 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2698 msframe->button2_need_rbutton = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2699 mswindows_enqueue_mouse_button_event (hwnd, WM_LBUTTONDOWN,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2700 MAKEPOINTS (lParam),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2701 wParam &~ MK_LBUTTON,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2702 GetMessageTime());
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2703 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2704 mswindows_enqueue_mouse_button_event (hwnd, WM_LBUTTONUP,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2705 MAKEPOINTS (lParam),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2706 wParam &~ MK_LBUTTON,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2707 GetMessageTime());
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2708 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2709 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2710
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2711 case WM_RBUTTONUP:
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2712 msframe = FRAME_MSWINDOWS_DATA (XFRAME (mswindows_find_frame (hwnd)));
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2713 msframe->last_click_time = GetMessageTime();
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2714
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2715 KillTimer (hwnd, BUTTON_2_TIMER_ID);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2716 msframe->button2_need_rbutton = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2717 if (msframe->ignore_next_rbutton_up)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2718 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2719 msframe->ignore_next_rbutton_up = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2720 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2721 else if (msframe->button2_is_down)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2722 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2723 msframe->button2_is_down = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2724 msframe->ignore_next_lbutton_up = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2725 mswindows_enqueue_mouse_button_event (hwnd, WM_MBUTTONUP,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2726 MAKEPOINTS (lParam),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2727 wParam
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2728 &~ (MK_LBUTTON | MK_MBUTTON
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2729 | MK_RBUTTON),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2730 GetMessageTime());
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2731 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2732 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2733 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2734 if (msframe->button2_need_lbutton)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2735 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2736 msframe->button2_need_lbutton = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2737 mswindows_enqueue_mouse_button_event (hwnd, WM_RBUTTONDOWN,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2738 MAKEPOINTS (lParam),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2739 wParam &~ MK_RBUTTON,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2740 GetMessageTime());
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2741 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2742 mswindows_enqueue_mouse_button_event (hwnd, WM_RBUTTONUP,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2743 MAKEPOINTS (lParam),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2744 wParam &~ MK_RBUTTON,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2745 GetMessageTime());
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2746 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2747 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2748
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2749 case WM_LBUTTONDOWN:
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2750 msframe = FRAME_MSWINDOWS_DATA (XFRAME (mswindows_find_frame (hwnd)));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2751
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2752 if (msframe->button2_need_lbutton)
428
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 KillTimer (hwnd, BUTTON_2_TIMER_ID);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2755 msframe->button2_need_lbutton = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2756 msframe->button2_need_rbutton = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2757 if (mswindows_button2_near_enough (msframe->last_click_point,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2758 MAKEPOINTS (lParam)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2759 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2760 mswindows_enqueue_mouse_button_event (hwnd, WM_MBUTTONDOWN,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2761 MAKEPOINTS (lParam),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2762 wParam
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2763 &~ (MK_LBUTTON | MK_MBUTTON
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2764 | MK_RBUTTON),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2765 GetMessageTime());
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2766 msframe->button2_is_down = 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2767 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2768 else
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2769 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2770 mswindows_enqueue_mouse_button_event (hwnd, WM_RBUTTONDOWN,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2771 msframe->last_click_point,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2772 msframe->last_click_mods
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2773 &~ MK_RBUTTON,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2774 msframe->last_click_time);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2775 mswindows_enqueue_mouse_button_event (hwnd, WM_LBUTTONDOWN,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2776 MAKEPOINTS (lParam),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2777 wParam &~ MK_LBUTTON,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2778 GetMessageTime());
428
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2781 else
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2782 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2783 mswindows_set_chord_timer (hwnd);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2784 msframe->button2_need_rbutton = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2785 msframe->last_click_point = MAKEPOINTS (lParam);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2786 msframe->last_click_mods = wParam;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2787 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2788 msframe->last_click_time = GetMessageTime();
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2789 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2790
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2791 case WM_RBUTTONDOWN:
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2792 msframe = FRAME_MSWINDOWS_DATA (XFRAME (mswindows_find_frame (hwnd)));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2793
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2794 if (msframe->button2_need_rbutton)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2795 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2796 KillTimer (hwnd, BUTTON_2_TIMER_ID);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2797 msframe->button2_need_lbutton = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2798 msframe->button2_need_rbutton = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2799 if (mswindows_button2_near_enough (msframe->last_click_point,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2800 MAKEPOINTS (lParam)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2801 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2802 mswindows_enqueue_mouse_button_event (hwnd, WM_MBUTTONDOWN,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2803 MAKEPOINTS (lParam),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2804 wParam
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2805 &~ (MK_LBUTTON | MK_MBUTTON
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2806 | MK_RBUTTON),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2807 GetMessageTime());
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2808 msframe->button2_is_down = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2809 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2810 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2811 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2812 mswindows_enqueue_mouse_button_event (hwnd, WM_LBUTTONDOWN,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2813 msframe->last_click_point,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2814 msframe->last_click_mods
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2815 &~ MK_LBUTTON,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2816 msframe->last_click_time);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2817 mswindows_enqueue_mouse_button_event (hwnd, WM_RBUTTONDOWN,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2818 MAKEPOINTS (lParam),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2819 wParam &~ MK_RBUTTON,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2820 GetMessageTime());
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2821 }
428
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 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2824 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2825 mswindows_set_chord_timer (hwnd);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2826 msframe->button2_need_lbutton = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2827 msframe->last_click_point = MAKEPOINTS (lParam);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2828 msframe->last_click_mods = wParam;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2829 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2830 msframe->last_click_time = GetMessageTime();
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2831 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2832
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2833 case WM_TIMER:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2834 if (wParam == BUTTON_2_TIMER_ID)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2835 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2836 msframe =
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2837 FRAME_MSWINDOWS_DATA (XFRAME (mswindows_find_frame (hwnd)));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2838 KillTimer (hwnd, BUTTON_2_TIMER_ID);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2839
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2840 if (msframe->button2_need_lbutton)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2841 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2842 msframe->button2_need_lbutton = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2843 mswindows_enqueue_mouse_button_event (hwnd, WM_RBUTTONDOWN,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2844 msframe->last_click_point,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2845 msframe->last_click_mods
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2846 &~ MK_RBUTTON,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2847 msframe->last_click_time);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2848 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2849 else if (msframe->button2_need_rbutton)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2850 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2851 msframe->button2_need_rbutton = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2852 mswindows_enqueue_mouse_button_event (hwnd, WM_LBUTTONDOWN,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2853 msframe->last_click_point,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2854 msframe->last_click_mods
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2855 &~ MK_LBUTTON,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2856 msframe->last_click_time);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2857 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2858 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2859 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2860 assert ("Spurious timer fired" == 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2861 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2862
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2863 case WM_MOUSEMOVE:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2864 /* Optimization: don't report mouse movement while size is changing */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2865 msframe = FRAME_MSWINDOWS_DATA (XFRAME (mswindows_find_frame (hwnd)));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2866 if (!msframe->sizing)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2867 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2868 /* When waiting for the second mouse button to finish
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2869 button2 emulation, and have moved too far, just pretend
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2870 as if timer has expired. This improves drag-select feedback */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2871 if ((msframe->button2_need_lbutton || msframe->button2_need_rbutton)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2872 && !mswindows_button2_near_enough (msframe->last_click_point,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2873 MAKEPOINTS (lParam)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2874 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2875 KillTimer (hwnd, BUTTON_2_TIMER_ID);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2876 qxeSendMessage (hwnd, WM_TIMER, BUTTON_2_TIMER_ID, 0);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2877 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2878
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2879 emacs_event = Fmake_event (Qnil, Qnil);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2880 event = XEVENT(emacs_event);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2881
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2882 event->channel = mswindows_find_frame (hwnd);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2883 event->timestamp = GetMessageTime ();
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2884 event->event_type = pointer_motion_event;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2885 event->event.motion.x = MAKEPOINTS (lParam).x;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2886 event->event.motion.y = MAKEPOINTS (lParam).y;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2887 event->event.motion.modifiers =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2888 mswindows_modifier_state (NULL, wParam, 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2889
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2890 mswindows_enqueue_dispatch_event (emacs_event);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2891 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2892 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2893
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2894 case WM_CANCELMODE:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2895 ReleaseCapture ();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2896 /* Queue a `cancel-mode-internal' misc user event, so mouse
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2897 selection would be canceled if any */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2898 mswindows_enqueue_misc_user_event (mswindows_find_frame (hwnd),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2899 Qcancel_mode_internal, Qnil);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2900 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2901
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2902 case WM_NOTIFY:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2903 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 611
diff changeset
2904 LPNMHDR nmhdr = (LPNMHDR) lParam;
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 611
diff changeset
2905
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 611
diff changeset
2906 if ((int) nmhdr->code == TTN_NEEDTEXT)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2907 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2908 #ifdef HAVE_TOOLBARS
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2909 LPTOOLTIPTEXTW tttextw = (LPTOOLTIPTEXTW) lParam;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2910 Lisp_Object btext;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2911 Extbyte *btextext = 0;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2912
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2913 /* find out which toolbar */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2914 frame = XFRAME (mswindows_find_frame (hwnd));
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 611
diff changeset
2915 btext = mswindows_get_toolbar_button_text (frame, nmhdr->idFrom);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2916
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2917 tttextw->hinst = NULL;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2918
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2919 if (!NILP (btext))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2920 LISP_STRING_TO_TSTR (btext, btextext);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2921
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2922 if (btextext)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2923 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2924 /* WARNING: We can't just write a '\0' into the 79th
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2925 "character" because tttextw->szText is in WCHAR's but we
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2926 may be copying an ANSI string into it. Easiest to just
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2927 zero the whole thing. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2928 xzero (*tttextw->szText);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2929 xetcsncpy ((Extbyte *) tttextw->szText, btextext, 79);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2930 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2931 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2932 tttextw->lpszText = NULL;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2933 #endif
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2934 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2935 /* handle tree view callbacks */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 611
diff changeset
2936 else if ((int) nmhdr->code == TVN_SELCHANGED)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2937 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 611
diff changeset
2938 NM_TREEVIEW *ptree = (NM_TREEVIEW *) lParam;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2939 frame = XFRAME (mswindows_find_frame (hwnd));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2940 mswindows_handle_gui_wm_command (frame, 0, ptree->itemNew.lParam);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2941 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2942 /* handle tab control callbacks */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 611
diff changeset
2943 else if ((int) nmhdr->code == TCN_SELCHANGE)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2944 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2945 TC_ITEM item;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2946 int idx = qxeSendMessage (nmhdr->hwndFrom, TCM_GETCURSEL, 0, 0);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2947 frame = XFRAME (mswindows_find_frame (hwnd));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2948
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2949 item.mask = TCIF_PARAM;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2950 qxeSendMessage (nmhdr->hwndFrom, TCM_GETITEM, (WPARAM) idx,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2951 (LPARAM) &item);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2952
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2953 mswindows_handle_gui_wm_command (frame, 0, item.lParam);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2954 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2955 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2956 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2957
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2958 case WM_PAINT:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2959 /* hdc will be NULL unless this is a subwindow - in which case we
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2960 shouldn't have received a paint message for it here. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2961 assert (wParam == 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2962
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2963 /* Can't queue a magic event because windows goes modal and sends paint
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2964 messages directly to the windows procedure when doing solid drags
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2965 and the message queue doesn't get processed. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2966 mswindows_handle_paint (XFRAME (mswindows_find_frame (hwnd)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2967 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2968
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2969 case WM_WINDOWPOSCHANGED:
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2970 /* This is sent before WM_SIZE; in fact, the processing of this
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2971 by DefWindowProc() sends WM_SIZE. But WM_SIZE is not sent when
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2972 a window is hidden (make-frame-invisible), so we need to process
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2973 this and update the state flags. */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2974 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2975 fobj = mswindows_find_frame (hwnd);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2976 frame = XFRAME (fobj);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2977 if (IsIconic (hwnd))
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2978 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2979 FRAME_VISIBLE_P (frame) = 0;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2980 FRAME_ICONIFIED_P (frame) = 1;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2981 }
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2982 else if (IsWindowVisible (hwnd))
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2983 {
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 673
diff changeset
2984 /* APA: It's too early here to set the frame visible.
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 673
diff changeset
2985 * Let's do this later, in WM_SIZE processing, after the
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 673
diff changeset
2986 * magic XM_MAPFRAME event has been sent (just like 21.1
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 673
diff changeset
2987 * did). */
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 673
diff changeset
2988 /* FRAME_VISIBLE_P (frame) = 1; */
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2989 FRAME_ICONIFIED_P (frame) = 0;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2990 }
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2991 else
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2992 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2993 FRAME_VISIBLE_P (frame) = 0;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2994 FRAME_ICONIFIED_P (frame) = 0;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2995 }
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2996
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
2997 goto defproc;
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2998 }
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2999
731
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3000 case WM_SHOWWINDOW:
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3001 /*
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3002 The WM_SHOWWINDOW message is sent to a window when the window
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3003 is about to be hidden or shown.
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3004 APA: This message is also sent when switching to a virtual
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3005 desktop under the virtuawin virtual window manager.
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3006
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3007 */
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3008 {
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3009 fobj = mswindows_find_frame (hwnd);
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3010 frame = XFRAME (fobj);
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3011 if (wParam == TRUE)
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3012 {
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3013 mswindows_enqueue_magic_event (hwnd, XM_MAPFRAME);
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3014 FRAME_VISIBLE_P (frame) = 1;
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3015 }
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3016 else
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3017 {
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3018 mswindows_enqueue_magic_event (hwnd, XM_UNMAPFRAME);
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3019 FRAME_VISIBLE_P (frame) = 0;
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3020 }
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3021 }
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3022 break;
46d76bae9921 [xemacs-hg @ 2002-01-18 18:01:02 by adrian]
adrian
parents: 707
diff changeset
3023
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3024 case WM_SIZE:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3025 /* We only care about this message if our size has really changed */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3026 if (wParam == SIZE_RESTORED || wParam == SIZE_MAXIMIZED ||
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3027 wParam == SIZE_MINIMIZED)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3028 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3029 RECT rect;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3030 int columns, rows;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3031
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3032 fobj = mswindows_find_frame (hwnd);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3033 frame = XFRAME (fobj);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3034 msframe = FRAME_MSWINDOWS_DATA (frame);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3035
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3036 /* We cannot handle frame map and unmap hooks right in
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3037 this routine, because these may throw. We queue
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3038 magic events to run these hooks instead - kkm */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3039
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3040 if (wParam == SIZE_MINIMIZED)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3041 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3042 /* Iconified */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3043 mswindows_enqueue_magic_event (hwnd, XM_UNMAPFRAME);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3044 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3045 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3046 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3047 GetClientRect(hwnd, &rect);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3048 FRAME_PIXWIDTH(frame) = rect.right;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3049 FRAME_PIXHEIGHT(frame) = rect.bottom;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3050
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3051 pixel_to_real_char_size (frame, rect.right, rect.bottom,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3052 &FRAME_MSWINDOWS_CHARWIDTH (frame),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3053 &FRAME_MSWINDOWS_CHARHEIGHT (frame));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3054
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3055 pixel_to_char_size (frame, rect.right, rect.bottom, &columns,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3056 &rows);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3057 change_frame_size (frame, rows, columns, 1);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3058
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3059 /* If we are inside frame creation, we have to apply geometric
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3060 properties now. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3061 if (FRAME_MSWINDOWS_TARGET_RECT (frame))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3062 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3063 /* Yes, we have to size again */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3064 mswindows_size_frame_internal (frame,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3065 FRAME_MSWINDOWS_TARGET_RECT
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3066 (frame));
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3067 /* Reset so we do not get here again. The SetWindowPos
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3068 * call in mswindows_size_frame_internal can cause
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3069 * recursion here. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3070 if (FRAME_MSWINDOWS_TARGET_RECT (frame))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3071 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3072 xfree (FRAME_MSWINDOWS_TARGET_RECT (frame));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3073 FRAME_MSWINDOWS_TARGET_RECT (frame) = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3074 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3075 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3076 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3077 {
819
6504113e7c2d [xemacs-hg @ 2002-04-25 18:03:23 by andyp]
andyp
parents: 814
diff changeset
3078 if (!msframe->sizing && !FRAME_VISIBLE_P (frame)) {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3079 mswindows_enqueue_magic_event (hwnd, XM_MAPFRAME);
819
6504113e7c2d [xemacs-hg @ 2002-04-25 18:03:23 by andyp]
andyp
parents: 814
diff changeset
3080 /* APA: Now that the magic XM_MAPFRAME event has
6504113e7c2d [xemacs-hg @ 2002-04-25 18:03:23 by andyp]
andyp
parents: 814
diff changeset
3081 * been sent we can mark the frame as visible (just
6504113e7c2d [xemacs-hg @ 2002-04-25 18:03:23 by andyp]
andyp
parents: 814
diff changeset
3082 * like 21.1 did). */
6504113e7c2d [xemacs-hg @ 2002-04-25 18:03:23 by andyp]
andyp
parents: 814
diff changeset
3083 FRAME_VISIBLE_P (frame) = 1;
6504113e7c2d [xemacs-hg @ 2002-04-25 18:03:23 by andyp]
andyp
parents: 814
diff changeset
3084 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3085
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3086 if (!msframe->sizing || mswindows_dynamic_frame_resize)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3087 redisplay ();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3088 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3089 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3090 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3091 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3092
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3093 case WM_DISPLAYCHANGE:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3094 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3095 struct device *d;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3096 DWORD message_tick = GetMessageTime ();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3097
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3098 fobj = mswindows_find_frame (hwnd);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3099 frame = XFRAME (fobj);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3100 d = XDEVICE (FRAME_DEVICE (frame));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3101
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3102 /* Do this only once per message. XEmacs can receive this message
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3103 through as many frames as it currently has open. Message time
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3104 will be the same for all these messages. Despite extreme
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3105 efficiency, the code below has about one in 4 billion
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3106 probability that the HDC is not recreated, provided that
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3107 XEmacs is running sufficiently longer than 52 days. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3108 if (DEVICE_MSWINDOWS_UPDATE_TICK(d) != message_tick)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3109 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3110 DEVICE_MSWINDOWS_UPDATE_TICK(d) = message_tick;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3111 DeleteDC (DEVICE_MSWINDOWS_HCDC(d));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3112 DEVICE_MSWINDOWS_HCDC(d) = CreateCompatibleDC (NULL);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3113 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3114 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3115 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3116
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3117 /* Misc magic events which only require that the frame be identified */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3118 case WM_SETFOCUS:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3119 case WM_KILLFOCUS:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3120 mswindows_enqueue_magic_event (hwnd, message_);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3121 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3122
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3123 case WM_WINDOWPOSCHANGING:
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3124 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3125 WINDOWPOS *wp = (LPWINDOWPOS) lParam;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3126 WINDOWPLACEMENT wpl = { sizeof(WINDOWPLACEMENT) };
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3127 GetWindowPlacement(hwnd, &wpl);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3128
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3129 /* Only interested if size is changing and we're not being iconified */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3130 if (wpl.showCmd != SW_SHOWMINIMIZED
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3131 && wpl.showCmd != SW_SHOWMAXIMIZED
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3132 && !(wp->flags & SWP_NOSIZE))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3133 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3134 RECT ncsize = { 0, 0, 0, 0 };
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3135 int pixwidth, pixheight;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3136 AdjustWindowRectEx (&ncsize, qxeGetWindowLong (hwnd, GWL_STYLE),
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3137 GetMenu(hwnd) != NULL,
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3138 qxeGetWindowLong (hwnd, GWL_EXSTYLE));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3139
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3140 round_size_to_real_char (XFRAME (mswindows_find_frame (hwnd)),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3141 wp->cx - (ncsize.right - ncsize.left),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3142 wp->cy - (ncsize.bottom - ncsize.top),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3143 &pixwidth, &pixheight);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3144
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3145 /* Convert client sizes to window sizes */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3146 pixwidth += (ncsize.right - ncsize.left);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3147 pixheight += (ncsize.bottom - ncsize.top);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3148
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3149 if (wpl.showCmd != SW_SHOWMAXIMIZED)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3150 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3151 /* Adjust so that the bottom or right doesn't move if it's
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3152 * the top or left that's being changed */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3153 RECT rect;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3154 GetWindowRect (hwnd, &rect);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3155
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3156 if (rect.left != wp->x)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3157 wp->x += wp->cx - pixwidth;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3158 if (rect.top != wp->y)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3159 wp->y += wp->cy - pixheight;
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
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3162 wp->cx = pixwidth;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3163 wp->cy = pixheight;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3164 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3165 /* DefWindowProc sends useful WM_GETMINMAXINFO message, and adjusts
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3166 window position if the user tries to track window too small */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3167 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3168 goto defproc;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3169
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3170 case WM_ENTERSIZEMOVE:
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3171 msframe = FRAME_MSWINDOWS_DATA (XFRAME (mswindows_find_frame (hwnd)));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3172 msframe->sizing = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3173 return 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3174
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3175 case WM_EXITSIZEMOVE:
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3176 msframe = FRAME_MSWINDOWS_DATA (XFRAME (mswindows_find_frame (hwnd)));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3177 msframe->sizing = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3178 /* Queue noop event */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3179 mswindows_enqueue_magic_event (NULL, XM_BUMPQUEUE);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3180 return 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3181
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3182 #ifdef HAVE_SCROLLBARS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3183 case WM_VSCROLL:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3184 case WM_HSCROLL:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3185 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3186 /* Direction of scroll is determined by scrollbar instance. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3187 int code = (int) LOWORD(wParam);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3188 int pos = (short int) HIWORD(wParam);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3189 HWND hwndScrollBar = (HWND) lParam;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3190 struct gcpro gcpro1, gcpro2;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3191
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3192 mswindows_handle_scrollbar_event (hwndScrollBar, code, pos);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3193 GCPRO2 (emacs_event, fobj);
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
3194 if (UNBOUNDP (mswindows_pump_outstanding_events ())) /* Can GC */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3195 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3196 /* Error during event pumping - cancel scroll */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3197 qxeSendMessage (hwndScrollBar, WM_CANCELMODE, 0, 0);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3198 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3199 UNGCPRO;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3200 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3201 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3202
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3203 case WM_MOUSEWHEEL:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3204 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3205 int keys = LOWORD (wParam); /* Modifier key flags */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3206 int delta = (short) HIWORD (wParam); /* Wheel rotation amount */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3207
464
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents: 462
diff changeset
3208 if (mswindows_handle_mousewheel_event (mswindows_find_frame (hwnd),
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents: 462
diff changeset
3209 keys, delta,
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents: 462
diff changeset
3210 MAKEPOINTS (lParam)))
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 673
diff changeset
3211 /* We are not in a modal loop so no pumping is necessary. */
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 673
diff changeset
3212 break;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3213 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3214 goto defproc;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3215 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3216 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3217
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3218 #ifdef HAVE_MENUBARS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3219 case WM_INITMENU:
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3220 if (UNBOUNDP (mswindows_handle_wm_initmenu
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3221 ((HMENU) wParam,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3222 XFRAME (mswindows_find_frame (hwnd)))))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3223 qxeSendMessage (hwnd, WM_CANCELMODE, 0, 0);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3224 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3225
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3226 case WM_INITMENUPOPUP:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3227 if (!HIWORD(lParam))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3228 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3229 if (UNBOUNDP (mswindows_handle_wm_initmenupopup
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3230 ((HMENU) wParam,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3231 XFRAME (mswindows_find_frame (hwnd)))))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3232 qxeSendMessage (hwnd, WM_CANCELMODE, 0, 0);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3233 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3234 break;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3235
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3236 #endif /* HAVE_MENUBARS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3237
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3238 case WM_COMMAND:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3239 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3240 WORD id = LOWORD (wParam);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3241 WORD nid = HIWORD (wParam);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3242 HWND cid = (HWND)lParam;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3243 frame = XFRAME (mswindows_find_frame (hwnd));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3244
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3245 #ifdef HAVE_TOOLBARS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3246 if (!NILP (mswindows_handle_toolbar_wm_command (frame, cid, id)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3247 break;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3248 #endif
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3249 /* widgets in a buffer only eval a callback for suitable events. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3250 switch (nid)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3251 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3252 case BN_CLICKED:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3253 case EN_CHANGE:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3254 case CBN_EDITCHANGE:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3255 case CBN_SELCHANGE:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3256 if (!NILP (mswindows_handle_gui_wm_command (frame, cid, id)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3257 return 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3258 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3259 /* menubars always must come last since the hashtables do not
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3260 always exist */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3261 #ifdef HAVE_MENUBARS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3262 if (!NILP (mswindows_handle_wm_command (frame, id)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3263 break;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3264 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3265
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3266 goto defproc;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3267 /* Bite me - a spurious command. This used to not be able to
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3268 happen but with the introduction of widgets it's now
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3269 possible. #### Andy, fix the god-damn widget code! It has
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3270 more bugs than a termite's nest! */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3271 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3272 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3273
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3274 case WM_CTLCOLORBTN:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3275 case WM_CTLCOLORLISTBOX:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3276 case WM_CTLCOLOREDIT:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3277 case WM_CTLCOLORSTATIC:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3278 case WM_CTLCOLORSCROLLBAR:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3279 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3280 /* if we get an opportunity to paint a widget then do so if
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3281 there is an appropriate face */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3282 HWND crtlwnd = (HWND) lParam;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3283 LONG ii = qxeGetWindowLong (crtlwnd, GWL_USERDATA);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3284 if (ii)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3285 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3286 Lisp_Object image_instance;
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 819
diff changeset
3287 image_instance = VOID_TO_LISP ((void *) ii);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3288 if (IMAGE_INSTANCEP (image_instance)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3289 &&
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3290 IMAGE_INSTANCE_TYPE_P (image_instance, IMAGE_WIDGET))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3291 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3292 /* set colors for the buttons */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3293 HDC hdc = (HDC) wParam;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3294 if (last_widget_brushed != ii)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3295 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3296 if (widget_brush)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3297 DeleteObject (widget_brush);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3298 widget_brush = CreateSolidBrush
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3299 (COLOR_INSTANCE_MSWINDOWS_COLOR
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3300 (XCOLOR_INSTANCE
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3301 (FACE_BACKGROUND
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3302 (XIMAGE_INSTANCE_WIDGET_FACE (image_instance),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3303 XIMAGE_INSTANCE_FRAME (image_instance)))));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3304 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3305 last_widget_brushed = ii;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3306 SetTextColor
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3307 (hdc,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3308 COLOR_INSTANCE_MSWINDOWS_COLOR
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3309 (XCOLOR_INSTANCE
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3310 (FACE_FOREGROUND
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3311 (XIMAGE_INSTANCE_WIDGET_FACE (image_instance),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3312 XIMAGE_INSTANCE_FRAME (image_instance)))));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3313 SetBkMode (hdc, OPAQUE);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3314 SetBkColor
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3315 (hdc,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3316 COLOR_INSTANCE_MSWINDOWS_COLOR
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3317 (XCOLOR_INSTANCE
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3318 (FACE_BACKGROUND
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3319 (XIMAGE_INSTANCE_WIDGET_FACE (image_instance),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3320 XIMAGE_INSTANCE_FRAME (image_instance)))));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3321 return (LRESULT)widget_brush;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3322 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3323 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3324 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3325 goto defproc;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3326
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3327 #ifdef HAVE_DRAGNDROP
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
3328 case WM_DROPFILES: /* implementation ripped-off from event-Xt.c */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3329 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3330 UINT filecount, i;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3331 POINT point;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3332
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3333 Lisp_Object l_dndlist = Qnil, l_item = Qnil;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3334 struct gcpro gcpro1, gcpro2, gcpro3;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3335
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3336 emacs_event = Fmake_event (Qnil, Qnil);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3337 event = XEVENT (emacs_event);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3338
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3339 GCPRO3 (emacs_event, l_dndlist, l_item);
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 if (!DragQueryPoint ((HDROP) wParam, &point))
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
3342 point.x = point.y = -1; /* outside client area */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3343
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3344 event->event_type = misc_user_event;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3345 event->channel = mswindows_find_frame (hwnd);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3346 event->timestamp = GetMessageTime();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3347 event->event.misc.button = 1; /* #### Should try harder */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3348 event->event.misc.modifiers = mswindows_modifier_state (NULL,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3349 (DWORD) -1, 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3350 event->event.misc.x = point.x;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3351 event->event.misc.y = point.y;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3352 event->event.misc.function = Qdragdrop_drop_dispatch;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3353
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3354 filecount = qxeDragQueryFile ((HDROP) wParam, 0xffffffff, NULL, 0);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3355 for (i = 0; i < filecount; i++)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3356 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3357 Intbyte *fname;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3358 Extbyte *fname_ext;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3359 Bytecount fnamelen;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3360 Charcount len = qxeDragQueryFile ((HDROP) wParam, i, NULL, 0);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3361 /* The URLs that we make here aren't correct according to section
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3362 * 3.10 of rfc1738 because they're missing the //<host>/ part and
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3363 * because they may contain reserved characters. But that's OK -
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3364 * they just need to be good enough to keep dragdrop.el happy. */
851
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben]
ben
parents: 827
diff changeset
3365 fname_ext = (Extbyte *) ALLOCA ((len + 1) * XETCHAR_SIZE);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3366 qxeDragQueryFile ((HDROP) wParam, i, fname_ext, len + 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3367
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3368 TO_INTERNAL_FORMAT (DATA, (fname_ext, len * XETCHAR_SIZE),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3369 ALLOCA, (fname, fnamelen),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3370 Qmswindows_tstr);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3371
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3372 /* May be a shell link aka "shortcut" - replace fname if so */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3373 #if !defined (NO_CYGWIN_COM_SUPPORT)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3374 if (!qxestrcasecmp_c (fname + fnamelen - 4, ".LNK"))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3375 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3376 /* ####
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3377
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3378 Note the following in the docs:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3379
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3380 Note: The IShellLink interface has an ANSI version
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3381 (IShellLinkA) and a Unicode version (IShellLinkW). The
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3382 version that will be used depends on whether you compile
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3383 for ANSI or Unicode. However, Microsoft® Windows 95 and
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3384 Microsoft® Windows 98 only support IShellLinkA.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3385
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3386 We haven't yet implemented COM support in the
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3387 Unicode-splitting library. I don't quite understand how
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3388 COM works yet, but it looks like what's happening is
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3389 that the ShellLink class implements both the IShellLinkA
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3390 and IShellLinkW interfaces. To make this work at
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3391 run-time, we have to do something like this:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3392
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3393 -- define a new interface qxeIShellLink that uses
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3394 Extbyte * instead of LPSTR or LPWSTR. (not totally
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3395 necessary since Extbyte * == LPSTR).
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3396
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3397 -- define a new class qxeShellLink that implements
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3398 qxeIShellLink. the methods on this class need to create
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3399 a shadow ShellLink object to do all the real work, and
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3400 call the corresponding function from either the
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3401 IShellLinkA or IShellLinkW interfaces on this object,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3402 depending on whether XEUNICODE_P is defined.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3403
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3404 -- with appropriate preprocessor magic, of course, we
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3405 could make things appear transparent; but we've decided
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3406 not to do preprocessor magic for the moment.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3407 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3408
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3409 /* #### Not Unicode-split for the moment; we have to do it
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3410 ourselves. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3411 if (XEUNICODE_P)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3412 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3413 IShellLinkW *psl;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3414
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3415 if (CoCreateInstance (
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3416 XECOMID (CLSID_ShellLink),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3417 NULL,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3418 CLSCTX_INPROC_SERVER,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3419 XECOMID (IID_IShellLinkW),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3420 (void **) &psl) == S_OK)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3421 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3422 IPersistFile *ppf;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3423
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3424 if (XECOMCALL2 (psl, QueryInterface,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3425 XECOMID (IID_IPersistFile),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3426 (void **) &ppf) ==
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3427 S_OK)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3428 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3429 Extbyte *fname_unicode;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3430 WIN32_FIND_DATAW wfd;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3431 LPWSTR resolved =
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3432 alloca_array (WCHAR, PATH_MAX + 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3433
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3434 TO_EXTERNAL_FORMAT (DATA, (fname, fnamelen),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3435 C_STRING_ALLOCA,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3436 fname_unicode,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3437 Qmswindows_unicode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3438
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3439 if (XECOMCALL2 (ppf, Load,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3440 (LPWSTR) fname_unicode,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3441 STGM_READ) == S_OK &&
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3442 /* #### YUCK! Docs read
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3443
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3444 cchMaxPath
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3445
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3446 Maximum number of bytes to copy to the buffer pointed to by the
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3447 pszFile parameter.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3448
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3449 But "cch" means "count of characters", not bytes. I'll assume the doc
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3450 writers messed up and the programmer was correct. Also, this approach
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3451 is safe even if it's actually the other way around. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3452 #ifdef CYGWIN_HEADERS /* Another Cygwin prototype error */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3453 XECOMCALL4 (psl, GetPath, (LPSTR) resolved,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3454 PATH_MAX, &wfd, 0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3455 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3456 XECOMCALL4 (psl, GetPath, resolved,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3457 PATH_MAX, &wfd, 0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3458 #endif
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3459 == S_OK)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3460 TO_INTERNAL_FORMAT (C_STRING, resolved,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3461 ALLOCA, (fname, fnamelen),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3462 Qmswindows_tstr);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3463
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3464 XECOMCALL0 (ppf, Release);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3465 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3466
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3467 XECOMCALL0 (psl, Release);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3468 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3469 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3470 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3471 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3472 IShellLinkA *psl;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3473
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3474 if (CoCreateInstance (
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3475 XECOMID (CLSID_ShellLink),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3476 NULL,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3477 CLSCTX_INPROC_SERVER,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3478 XECOMID (IID_IShellLinkA),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3479 (void **) &psl) == S_OK)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3480 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3481 IPersistFile *ppf;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3482
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3483 if (XECOMCALL2 (psl, QueryInterface,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3484 XECOMID (IID_IPersistFile),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3485 (void **) &ppf) ==
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3486 S_OK)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3487 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3488 Extbyte *fname_unicode;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3489 WIN32_FIND_DATAA wfd;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3490 LPSTR resolved =
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3491 alloca_array (CHAR, PATH_MAX + 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3492
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3493 /* Always Unicode. Not obvious from the
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3494 IPersistFile documentation, but look under
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3495 "Shell Link" for example code. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3496 TO_EXTERNAL_FORMAT (DATA, (fname, fnamelen),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3497 C_STRING_ALLOCA,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3498 fname_unicode,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3499 Qmswindows_unicode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3500
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3501 if (XECOMCALL2 (ppf, Load,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3502 (LPWSTR) fname_unicode,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3503 STGM_READ) == S_OK
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3504 && XECOMCALL4 (psl, GetPath, resolved,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3505 PATH_MAX, &wfd, 0) == S_OK)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3506 TO_INTERNAL_FORMAT (C_STRING, resolved,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3507 ALLOCA, (fname, fnamelen),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3508 Qmswindows_tstr);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3509
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3510 XECOMCALL0 (ppf, Release);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3511 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3512
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3513 XECOMCALL0 (psl, Release);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3514 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3515 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3516 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3517 #endif /* !defined (NO_CYGWIN_COM_SUPPORT) */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3518 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3519 fname = urlify_filename (fname);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3520 l_item = build_intstring (fname);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3521 xfree (fname);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3522 l_dndlist = Fcons (l_item, l_dndlist);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3523 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3524 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3525
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3526 DragFinish ((HDROP) wParam);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3527
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3528 event->event.misc.object = Fcons (Qdragdrop_URL, l_dndlist);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3529 mswindows_enqueue_dispatch_event (emacs_event);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3530 UNGCPRO;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3531 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3532 break;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3533 #endif /* HAVE_DRAGNDROP */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3534
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3535 #ifdef MULE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3536 case WM_IME_CHAR:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3537
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3538 case WM_IME_STARTCOMPOSITION:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3539 mswindows_start_ime_composition (XFRAME (mswindows_find_frame (hwnd)));
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3540 goto defproc;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3541
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3542 case WM_IME_COMPOSITION:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3543 if (lParam & GCS_RESULTSTR)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3544 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3545 HIMC imc = ImmGetContext (hwnd);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3546 Extbyte *result;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3547 Bytecount len;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3548 Intbyte *resultint, *endptr;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3549 Bytecount lenint;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3550 int speccount;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3551
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3552 if (!imc)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3553 break;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3554
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3555 /* See WM_KEYDOWN above. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3556 speccount = begin_dont_check_for_quit ();
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3557
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3558 /* Sizes always in bytes, even for unicode.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3559 ImmGetCompositionStringW is supported even on Windows 9x, and
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3560 allows us to handle multiple languages. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3561 len = ImmGetCompositionStringW (imc, GCS_RESULTSTR, NULL, 0);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3562 result = alloca_array (Extbyte, len);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3563 ImmGetCompositionStringW (imc, GCS_RESULTSTR, (WCHAR *) result, len);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3564 ImmReleaseContext (hwnd, imc);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3565
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3566 TO_INTERNAL_FORMAT (DATA, (result, len),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3567 ALLOCA, (resultint, lenint),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3568 Qmswindows_tstr);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3569
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3570 endptr = resultint + lenint;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3571
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3572 while (resultint < endptr)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3573 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3574 Emchar ch = charptr_emchar (resultint);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3575 if (ch == ' ')
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3576 mswindows_enqueue_keypress_event (hwnd, QKspace, 0);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3577 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3578 mswindows_enqueue_keypress_event (hwnd, make_char (ch), 0);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3579 INC_CHARPTR (resultint);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3580 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3581
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3582 unbind_to (speccount);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3583 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3584 goto defproc;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3585 #endif /* MULE */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3586
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3587 defproc:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3588 default:
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3589 return qxeDefWindowProc (hwnd, message_, wParam, lParam);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3590 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3591 return (0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3592 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3593
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3594
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3595 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3596 /* keyboard, mouse & other helpers for the windows procedure */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3597 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3598 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3599 mswindows_set_chord_timer (HWND hwnd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3600 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3601 int interval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3602
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3603 /* We get one third half system double click threshold */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3604 if (mswindows_mouse_button_tolerance <= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3605 interval = GetDoubleClickTime () / 3;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3606 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3607 interval = mswindows_mouse_button_tolerance;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3608
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3609 SetTimer (hwnd, BUTTON_2_TIMER_ID, interval, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3610 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3611
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3612 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3613 mswindows_button2_near_enough (POINTS p1, POINTS p2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3614 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3615 int dx, dy;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3616 if (mswindows_mouse_button_max_skew_x <= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3617 dx = GetSystemMetrics (SM_CXDOUBLECLK) / 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3618 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3619 dx = mswindows_mouse_button_max_skew_x;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3620
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3621 if (mswindows_mouse_button_max_skew_y <= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3622 dy = GetSystemMetrics (SM_CYDOUBLECLK) / 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3623 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3624 dy = mswindows_mouse_button_max_skew_y;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3625
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3626 return abs (p1.x - p2.x) < dx && abs (p1.y- p2.y)< dy;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3627 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3628
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3629 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3630 mswindows_current_layout_has_AltGr (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3631 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3632 /* This simple caching mechanism saves 10% of CPU
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3633 time when a key typed at autorepeat rate of 30 cps! */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3634 static HKL last_hkl = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3635 static int last_hkl_has_AltGr;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3636 HKL current_hkl = GetKeyboardLayout (0);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3637
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3638 if (current_hkl != last_hkl)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3639 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 611
diff changeset
3640 int c;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3641 last_hkl_has_AltGr = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3642 /* In this loop, we query whether a character requires
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3643 AltGr to be down to generate it. If at least such one
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3644 found, this means that the layout does regard AltGr */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 611
diff changeset
3645 for (c = ' '; c <= 255 && !last_hkl_has_AltGr; ++c)
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 611
diff changeset
3646 /* #### This is not really such a good check. What about under
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 611
diff changeset
3647 CJK locales? It may not matter there, though. We always
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 611
diff changeset
3648 call VkKeyScanA so that we check the locale-specific characters
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 611
diff changeset
3649 in non-Latin-1 locales, instead of just the Latin-1 characters. */
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 611
diff changeset
3650 if (HIBYTE (VkKeyScanA ((char) c)) == 6)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3651 last_hkl_has_AltGr = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3652 last_hkl = current_hkl;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3653 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3654 return last_hkl_has_AltGr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3655 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3656
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3657
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3658 /* Returns the state of the modifier keys in the format expected by the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3659 * Lisp_Event key_data, button_data and motion_data modifiers member */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3660 static int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3661 mswindows_modifier_state (BYTE *keymap, DWORD fwKeys, int has_AltGr)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3662 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3663 int mods = 0;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3664 int keys_is_real = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3665 BYTE keymap2[256];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3666
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3667 if (fwKeys == (DWORD) -1)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3668 fwKeys = mswindows_last_mouse_button_state;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3669 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3670 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3671 keys_is_real = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3672 mswindows_last_mouse_button_state = fwKeys;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3673 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3674
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3675 if (keymap == NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3676 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3677 keymap = keymap2;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3678 GetKeyboardState (keymap);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3679 has_AltGr = mswindows_current_layout_has_AltGr ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3680 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3681
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3682 /* #### should look at fwKeys for MK_CONTROL. I don't understand how
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3683 AltGr works. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3684 if (has_AltGr && (keymap [VK_LCONTROL] & 0x80) && (keymap [VK_RMENU] & 0x80))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3685 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3686 mods |= (keymap [VK_LMENU] & 0x80) ? XEMACS_MOD_META : 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3687 mods |= (keymap [VK_RCONTROL] & 0x80) ? XEMACS_MOD_CONTROL : 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3688 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3689 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3690 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3691 mods |= (keymap [VK_MENU] & 0x80) ? XEMACS_MOD_META : 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3692 mods |= (keymap [VK_CONTROL] & 0x80) ? XEMACS_MOD_CONTROL : 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3693 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3694
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3695 mods |= (keys_is_real ? fwKeys & MK_SHIFT : (keymap [VK_SHIFT] & 0x80))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3696 ? XEMACS_MOD_SHIFT : 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3697 mods |= fwKeys & MK_LBUTTON ? XEMACS_MOD_BUTTON1 : 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3698 mods |= fwKeys & MK_MBUTTON ? XEMACS_MOD_BUTTON2 : 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3699 mods |= fwKeys & MK_RBUTTON ? XEMACS_MOD_BUTTON3 : 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3700
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3701 return mods;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3702 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3703
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3704 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3705 * Translate a mswindows virtual key to a keysym.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3706 * Only returns non-Qnil for keys that don't generate WM_CHAR messages
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3707 * or whose ASCII codes (like space) xemacs doesn't like.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3708 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3709 Lisp_Object mswindows_key_to_emacs_keysym (int mswindows_key, int mods,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3710 int extendedp)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3711 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3712 if (extendedp) /* Keys not present on a 82 key keyboard */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3713 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3714 switch (mswindows_key)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3715 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3716 case VK_CANCEL: return KEYSYM ("pause");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3717 case VK_RETURN: return KEYSYM ("kp-enter");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3718 case VK_PRIOR: return KEYSYM ("prior");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3719 case VK_NEXT: return KEYSYM ("next");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3720 case VK_END: return KEYSYM ("end");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3721 case VK_HOME: return KEYSYM ("home");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3722 case VK_LEFT: return KEYSYM ("left");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3723 case VK_UP: return KEYSYM ("up");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3724 case VK_RIGHT: return KEYSYM ("right");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3725 case VK_DOWN: return KEYSYM ("down");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3726 case VK_INSERT: return KEYSYM ("insert");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3727 case VK_DELETE: return QKdelete;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3728 #if 0 /* FSF Emacs allows these to return configurable syms/mods */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3729 case VK_LWIN return KEYSYM ("");
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3730 case VK_RWIN return KEYSYM ("");
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3731 #endif
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3732 case VK_APPS: return KEYSYM ("menu");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3733 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3734 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3735 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3736 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3737 switch (mswindows_key)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3738 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3739
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3740 #if 0
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3741 VK_LBUTTON:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3742 VK_RBUTTON:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3743 VK_CANCEL:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3744 VK_MBUTTON:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3745 VK_XBUTTON1:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3746 VK_XBUTTON2:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3747 #endif /* 0 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3748
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3749 case VK_BACK: return QKbackspace;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3750 case VK_TAB: return QKtab;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3751 /* #### Officially 0A (and 0B too) are "reserved". */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3752 case '\n': return QKlinefeed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3753 case VK_CLEAR: return KEYSYM ("clear");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3754 case VK_RETURN: return QKreturn;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3755
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3756 #if 0
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3757 VK_SHIFT: "shift"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3758 VK_CONTROL: "control"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3759 VK_MENU: "alt"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3760 #endif /* 0 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3761
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3762 case VK_PAUSE: return KEYSYM ("pause");
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3763
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3764 #if 0
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3765 VK_CAPITAL: "caps-lock"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3766 VK_KANA: IME Kana mode
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3767 VK_HANGUEL: IME Hanguel mode (maintained for compatibility; use VK_HANGUL)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3768 VK_HANGUL: IME Hangul mode
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3769 VK_JUNJA: IME Junja mode
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3770 VK_FINAL: IME final mode
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3771 VK_HANJA: IME Hanja mode
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3772 VK_KANJI: IME Kanji mode
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3773 #endif /* 0 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3774
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3775 case VK_ESCAPE: return QKescape;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3776
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3777 #if 0
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3778 VK_CONVERT: IME convert
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3779 VK_NONCONVERT: IME nonconvert
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3780 VK_ACCEPT: IME accept
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3781 VK_MODECHANGE: IME mode change request
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3782 #endif /* 0 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3783
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3784 case VK_SPACE: return QKspace;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3785 case VK_PRIOR: return KEYSYM ("kp-prior");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3786 case VK_NEXT: return KEYSYM ("kp-next");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3787 case VK_END: return KEYSYM ("kp-end");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3788 case VK_HOME: return KEYSYM ("kp-home");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3789 case VK_LEFT: return KEYSYM ("kp-left");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3790 case VK_UP: return KEYSYM ("kp-up");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3791 case VK_RIGHT: return KEYSYM ("kp-right");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3792 case VK_DOWN: return KEYSYM ("kp-down");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3793 case VK_SELECT: return KEYSYM ("select");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3794 case VK_PRINT: return KEYSYM ("print");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3795 case VK_EXECUTE: return KEYSYM ("execute");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3796 case VK_SNAPSHOT: return KEYSYM ("print");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3797 case VK_INSERT: return KEYSYM ("kp-insert");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3798 case VK_DELETE: return KEYSYM ("kp-delete");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3799 case VK_HELP: return KEYSYM ("help");
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3800 #if 0
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3801 '0' through '9': numeric keys
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3802 'A' through 'Z': alphabetic keys
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3803 VK_LWIN: "lwin"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3804 VK_RWIN: "rwin"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3805 VK_APPS: "apps"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3806 VK_SLEEP: "sleep"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3807 #endif /* 0 */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3808 case VK_NUMPAD0: return KEYSYM ("kp-0");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3809 case VK_NUMPAD1: return KEYSYM ("kp-1");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3810 case VK_NUMPAD2: return KEYSYM ("kp-2");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3811 case VK_NUMPAD3: return KEYSYM ("kp-3");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3812 case VK_NUMPAD4: return KEYSYM ("kp-4");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3813 case VK_NUMPAD5: return KEYSYM ("kp-5");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3814 case VK_NUMPAD6: return KEYSYM ("kp-6");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3815 case VK_NUMPAD7: return KEYSYM ("kp-7");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3816 case VK_NUMPAD8: return KEYSYM ("kp-8");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3817 case VK_NUMPAD9: return KEYSYM ("kp-9");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3818 case VK_MULTIPLY: return KEYSYM ("kp-multiply");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3819 case VK_ADD: return KEYSYM ("kp-add");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3820 case VK_SEPARATOR: return KEYSYM ("kp-separator");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3821 case VK_SUBTRACT: return KEYSYM ("kp-subtract");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3822 case VK_DECIMAL: return KEYSYM ("kp-decimal");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3823 case VK_DIVIDE: return KEYSYM ("kp-divide");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3824 case VK_F1: return KEYSYM ("f1");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3825 case VK_F2: return KEYSYM ("f2");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3826 case VK_F3: return KEYSYM ("f3");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3827 case VK_F4: return KEYSYM ("f4");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3828 case VK_F5: return KEYSYM ("f5");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3829 case VK_F6: return KEYSYM ("f6");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3830 case VK_F7: return KEYSYM ("f7");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3831 case VK_F8: return KEYSYM ("f8");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3832 case VK_F9: return KEYSYM ("f9");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3833 case VK_F10: return KEYSYM ("f10");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3834 case VK_F11: return KEYSYM ("f11");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3835 case VK_F12: return KEYSYM ("f12");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3836 case VK_F13: return KEYSYM ("f13");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3837 case VK_F14: return KEYSYM ("f14");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3838 case VK_F15: return KEYSYM ("f15");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3839 case VK_F16: return KEYSYM ("f16");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3840 case VK_F17: return KEYSYM ("f17");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3841 case VK_F18: return KEYSYM ("f18");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3842 case VK_F19: return KEYSYM ("f19");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3843 case VK_F20: return KEYSYM ("f20");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3844 case VK_F21: return KEYSYM ("f21");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3845 case VK_F22: return KEYSYM ("f22");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3846 case VK_F23: return KEYSYM ("f23");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3847 case VK_F24: return KEYSYM ("f24");
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3848
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3849 #if 0
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3850 VK_NUMLOCK: 90 NUM LOCK key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3851 VK_SCROLL: 91 SCROLL LOCK key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3852 92~96 OEM specific;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3853 VK_LSHIFT:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3854 VK_RSHIFT:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3855 VK_LCONTROL:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3856 VK_RCONTROL:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3857 VK_LMENU:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3858 VK_RMENU:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3859
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3860 #ifdef VK_BROWSER_BACK /* Windows 2000 only */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3861 VK_BROWSER_BACK: Browser Back key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3862 VK_BROWSER_FORWARD: Browser Forward key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3863 VK_BROWSER_REFRESH: Browser Refresh key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3864 VK_BROWSER_STOP: Browser Stop key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3865 VK_BROWSER_SEARCH: Browser Search key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3866 VK_BROWSER_FAVORITES: Browser Favorites key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3867 VK_BROWSER_HOME: Browser Start and Home key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3868 VK_VOLUME_MUTE: Volume Mute key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3869 VK_VOLUME_DOWN: Volume Down key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3870 VK_VOLUME_UP: Volume Up key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3871 VK_MEDIA_NEXT_TRACK: Next Track key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3872 VK_MEDIA_PREV_TRACK: Previous Track key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3873 VK_MEDIA_STOP: Stop Media key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3874 VK_MEDIA_PLAY_PAUSE: Play/Pause Media key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3875 VK_LAUNCH_MAIL: Start Mail key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3876 VK_LAUNCH_MEDIA_SELECT: Select Media key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3877 VK_LAUNCH_APP1: Start Application 1 key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3878 VK_LAUNCH_APP2: Start Application 2 key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3879 B8-B9 Reserved;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3880 VK_OEM_1: For the US standard keyboard, the ';:' key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3881 VK_OEM_PLUS: For any country/region, the '+' key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3882 VK_OEM_COMMA: For any country/region, the ',' key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3883 VK_OEM_MINUS: For any country/region, the '-' key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3884 VK_OEM_PERIOD: For any country/region, the '.' key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3885 VK_OEM_2: For the US standard keyboard, the '/?' key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3886 VK_OEM_3: For the US standard keyboard, the '`~' key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3887 C1~D7 Reserved;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3888 D8~DA Unassigned;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3889 VK_OEM_4: For the US standard keyboard, the '[{' key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3890 VK_OEM_5: For the US standard keyboard, the '\|' key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3891 VK_OEM_6: For the US standard keyboard, the ']}' key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3892 VK_OEM_7: For the US standard keyboard, the 'single-quote/double-quote' key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3893 VK_OEM_8:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3894 E0 Reserved;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3895 E1 OEM specific;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3896 VK_OEM_102: Either the angle bracket key or the backslash key on the RT 102-key keyboard
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3897 E3~E4 OEM specific;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3898 #endif /* VK_BROWSER_BACK */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3899 VK_PROCESSKEY: E5 Windows 95/98, Windows NT 4.0, Windows 2000: IME PROCESS key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3900 E6 OEM specific;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3901 VK_PACKET: Used to pass Unicode characters as if they were keystrokes. The VK_PACKET key is the low word of a 32-bit Virtual Key value used for non-keyboard input methods. For more information, see Remark in KEYBDINPUT, SendInput, WM_KEYDOWN, and WM_KEYUP
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3902 E8 Unassigned;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3903 E9~F5 OEM specific;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3904 VK_ATTN: Attn key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3905 VK_CRSEL: CrSel key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3906 VK_EXSEL: ExSel key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3907 VK_EREOF: Erase EOF key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3908 VK_PLAY: Play key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3909 VK_ZOOM: Zoom key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3910 VK_NONAME: Reserved for future use
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3911 VK_PA1: PA1 key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3912 VK_OEM_CLEAR: Clear key
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3913 #endif /* 0 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3914
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3915 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3916 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3917 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3918 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3919
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3920 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3921 * Find the console that matches the supplied mswindows window handle
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3922 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3923 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3924 mswindows_find_console (HWND hwnd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3925 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3926 /* We only support one console */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3927 return XCAR (Vconsole_list);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3928 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3929
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3930 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3931 * Find the frame that matches the supplied mswindows window handle
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3932 */
546
666d73d6ac56 [xemacs-hg @ 2001-05-20 01:17:07 by ben]
ben
parents: 535
diff changeset
3933 Lisp_Object
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3934 mswindows_find_frame (HWND hwnd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3935 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
3936 LONG l = qxeGetWindowLong (hwnd, XWL_FRAMEOBJ);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3937 Lisp_Object f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3938 if (l == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3939 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3940 /* We are in progress of frame creation. Return the frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3941 being created, as it still not remembered in the window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3942 extra storage. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3943 assert (!NILP (Vmswindows_frame_being_created));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3944 return Vmswindows_frame_being_created;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3945 }
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 819
diff changeset
3946 f = VOID_TO_LISP ((void *) l);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3947 return f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3948 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3949
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3950
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3951 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3952 /* methods */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3953 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3954
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3955 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3956 emacs_mswindows_add_timeout (EMACS_TIME thyme)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3957 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3958 int milliseconds;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3959 EMACS_TIME current_time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3960 EMACS_GET_TIME (current_time);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3961 EMACS_SUB_TIME (thyme, thyme, current_time);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3962 milliseconds = EMACS_SECS (thyme) * 1000 +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3963 (EMACS_USECS (thyme) + 500) / 1000;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3964 if (milliseconds < 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3965 milliseconds = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3966 ++mswindows_pending_timers_count;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3967 return SetTimer (NULL, 0, milliseconds,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3968 (TIMERPROC) mswindows_wm_timer_callback);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3969 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3970
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3971 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3972 emacs_mswindows_remove_timeout (int id)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3973 {
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3974 Lisp_Event match_against;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3975 Lisp_Object emacs_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3976
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3977 if (KillTimer (NULL, id))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3978 --mswindows_pending_timers_count;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3979
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3980 /* If there is a dispatch event generated by this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3981 timeout in the queue, we have to remove it too. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3982 match_against.event_type = timeout_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3983 match_against.event.timeout.interval_id = id;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3984 emacs_event = mswindows_cancel_dispatch_event (&match_against);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3985 if (!NILP (emacs_event))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3986 Fdeallocate_event(emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3987 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3988
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3989 /* If `user_p' is false, then return whether there are any win32, timeout,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3990 * or subprocess events pending (that is, whether
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3991 * emacs_mswindows_next_event() would return immediately without blocking).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3992 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3993 * if `user_p' is true, then return whether there are any *user generated*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3994 * events available (that is, whether there are keyboard or mouse-click
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3995 * events ready to be read). This also implies that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3996 * emacs_mswindows_next_event() would not block.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3997 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3998 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3999 emacs_mswindows_event_pending_p (int user_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4000 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4001 mswindows_need_event (0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4002 return (!NILP (mswindows_u_dispatch_event_queue)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4003 || (!user_p && !NILP (mswindows_s_dispatch_event_queue)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4004 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4005
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4006 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4007 * Return the next event
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4008 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4009 static void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4010 emacs_mswindows_next_event (Lisp_Event *emacs_event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4011 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4012 Lisp_Object event, event2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4013
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4014 mswindows_need_event (1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4015
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4016 event = mswindows_dequeue_dispatch_event ();
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 791
diff changeset
4017 event2 = wrap_event (emacs_event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4018 Fcopy_event (event, event2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4019 Fdeallocate_event (event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4020 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4021
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4022 static void
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4023 emacs_mswindows_format_magic_event (Lisp_Event *emacs_event,
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4024 Lisp_Object pstream)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4025 {
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 819
diff changeset
4026 #define FROB(msg) case msg: write_c_string (pstream, "type=" #msg); break
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4027
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4028 switch (EVENT_MSWINDOWS_MAGIC_TYPE (emacs_event))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4029 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4030 FROB (XM_BUMPQUEUE);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4031 FROB (WM_PAINT);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4032 FROB (WM_SETFOCUS);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4033 FROB (WM_KILLFOCUS);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4034 FROB (XM_MAPFRAME);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4035 FROB (XM_UNMAPFRAME);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4036
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4037 default: abort ();
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4038 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4039 #undef FROB
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4040
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4041 if (!NILP (EVENT_CHANNEL (emacs_event)))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4042 {
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 819
diff changeset
4043 write_c_string (pstream, " ");
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4044 print_internal (EVENT_CHANNEL (emacs_event), pstream, 1);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4045 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4046 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4047
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4048 static int
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4049 emacs_mswindows_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
4050 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4051 return (e1->event.magic.underlying_mswindows_event ==
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4052 e2->event.magic.underlying_mswindows_event);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4053 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4054
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4055 static Hashcode
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4056 emacs_mswindows_hash_magic_event (Lisp_Event *e)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4057 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4058 return e->event.magic.underlying_mswindows_event;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4059 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4060
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4061 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4062 * Handle a magic event off the dispatch queue.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4063 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4064 static void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4065 emacs_mswindows_handle_magic_event (Lisp_Event *emacs_event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4066 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
4067 switch (EVENT_MSWINDOWS_MAGIC_TYPE (emacs_event))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4068 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4069 case XM_BUMPQUEUE:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4070 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4071
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4072 case WM_PAINT:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4073 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4074 struct frame *f = XFRAME (EVENT_CHANNEL (emacs_event));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4075 mswindows_handle_paint (f);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4076 (FRAME_MSWINDOWS_DATA (f))->paint_pending = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4077 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4078 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4079
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4080 case WM_SETFOCUS:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4081 case WM_KILLFOCUS:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4082 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4083 Lisp_Object frame = EVENT_CHANNEL (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4084 struct frame *f = XFRAME (frame);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
4085 int in_p = (EVENT_MSWINDOWS_MAGIC_TYPE (emacs_event) == WM_SETFOCUS);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4086 Lisp_Object conser;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4087 struct gcpro gcpro1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4088
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4089 /* On focus change, clear all memory of sticky modifiers
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4090 to avoid non-intuitive behavior. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4091 clear_sticky_modifiers ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4092
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4093 conser = Fcons (frame, Fcons (FRAME_DEVICE (f), in_p ? Qt : Qnil));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4094 GCPRO1 (conser);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4095 emacs_handle_focus_change_preliminary (conser);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4096 /* Under X the stuff up to here is done in the X event handler.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4097 I Don't know why */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4098 emacs_handle_focus_change_final (conser);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4099 UNGCPRO;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4100
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4101 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4102 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4103
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4104 case XM_MAPFRAME:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4105 case XM_UNMAPFRAME:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4106 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4107 Lisp_Object frame = EVENT_CHANNEL (emacs_event);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
4108 va_run_hook_with_args (EVENT_MSWINDOWS_MAGIC_TYPE (emacs_event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4109 == XM_MAPFRAME ?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4110 Qmap_frame_hook : Qunmap_frame_hook,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4111 1, frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4112 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4113 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4114
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4115 /* #### What about Enter & Leave */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4116 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4117 va_run_hook_with_args (in_p ? Qmouse_enter_frame_hook :
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4118 Qmouse_leave_frame_hook, 1, frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4119 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4120
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4121 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4122 assert(0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4123 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4124 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4125
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4126 #ifndef CYGWIN
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4127
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4128 static HANDLE
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4129 get_process_input_waitable (Lisp_Process *process)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4130 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4131 Lisp_Object instr, outstr, errstr, p;
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 791
diff changeset
4132 p = wrap_process (process);
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4133 get_process_streams (process, &instr, &outstr, &errstr);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4134 assert (!NILP (instr));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4135 return (network_connection_p (p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4136 ? get_winsock_stream_waitable (XLSTREAM (instr))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4137 : get_ntpipe_input_stream_waitable (XLSTREAM (instr)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4138 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4139
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4140 static HANDLE
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4141 get_process_stderr_waitable (Lisp_Process *process)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4142 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4143 Lisp_Object instr, outstr, errstr;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4144 get_process_streams (process, &instr, &outstr, &errstr);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4145 if (NILP (errstr))
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4146 return INVALID_HANDLE_VALUE;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4147 return get_ntpipe_input_stream_waitable (XLSTREAM (errstr));
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4148 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4149
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4150 #endif /* not CYGWIN */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4151
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4152 static void
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4153 emacs_mswindows_select_process (Lisp_Process *process, int doin, int doerr)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4154 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4155 #ifdef CYGWIN
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4156 int infd, errfd;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4157
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4158 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
4159 #else
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4160 HANDLE hev = INVALID_HANDLE_VALUE;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4161 HANDLE herr = INVALID_HANDLE_VALUE;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4162
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4163 if (doin)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4164 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4165 hev = get_process_input_waitable (process);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4166 if (!add_waitable_handle (hev))
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4167 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4168 hev = INVALID_HANDLE_VALUE;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4169 goto err;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4170 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4171 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4172
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4173 if (doerr)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4174 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4175 herr = get_process_stderr_waitable (process);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4176 if (herr != INVALID_HANDLE_VALUE && !add_waitable_handle (herr))
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4177 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4178 herr = INVALID_HANDLE_VALUE;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4179 goto err;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4180 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4181 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4182
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4183 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4184 /* Also select on the process handle itself, so we can receive
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4185 exit notifications. Only do this once, not each time this
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4186 function is called (which can happen many times, e.g. if
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4187 (set-process-filter proc t) is called and then a process filter
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4188 is set again). It will be unselected in mswindows_need_event(). */
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 791
diff changeset
4189 Lisp_Object p = wrap_process (process);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 791
diff changeset
4190
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4191 if (!network_connection_p (p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4192 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4193 HANDLE hprocess = get_nt_process_handle_only_first_time (process);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4194 if (hprocess != INVALID_HANDLE_VALUE
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4195 && !add_waitable_handle (hprocess))
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4196 goto err;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4197 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4198 }
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4199
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4200 return;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4201
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4202 err:
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4203 if (hev != INVALID_HANDLE_VALUE)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4204 remove_waitable_handle (hev);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4205 if (herr != INVALID_HANDLE_VALUE)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4206 remove_waitable_handle (herr);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4207 invalid_operation ("Too many active processes", wrap_process (process));
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4208 #endif /* CYGWIN */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4209 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4210
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4211 static void
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4212 emacs_mswindows_unselect_process (Lisp_Process *process, int doin, int doerr)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4213 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4214 #ifdef CYGWIN
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4215 int infd, errfd;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4216
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4217 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
4218 #else
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4219 if (doin)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4220 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4221 /* Process handle is removed in the event loop as soon
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4222 as it is signaled, so don't bother here about it */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4223 HANDLE hev = get_process_input_waitable (process);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4224 remove_waitable_handle (hev);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4225 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4226 if (doerr)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4227 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4228 /* Process handle is removed in the event loop as soon
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4229 as it is signaled, so don't bother here about it */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4230 HANDLE herr = get_process_stderr_waitable (process);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4231 if (herr != INVALID_HANDLE_VALUE)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4232 remove_waitable_handle (herr);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4233 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4234 #endif /* CYGWIN */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4235 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4236
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4237 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4238 emacs_mswindows_select_console (struct console *con)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4239 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4240 #ifdef CYGWIN
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4241 if (CONSOLE_MSWINDOWS_P (con))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4242 return; /* mswindows consoles are automatically selected */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4243
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4244 event_stream_unixoid_select_console (con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4245 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4246 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4247
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4248 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4249 emacs_mswindows_unselect_console (struct console *con)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4250 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4251 #ifdef CYGWIN
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4252 if (CONSOLE_MSWINDOWS_P (con))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4253 return; /* mswindows consoles are automatically selected */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4254
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4255 event_stream_unixoid_unselect_console (con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4256 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4257 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4258
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4259 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4260 emacs_mswindows_quit_p (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4261 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4262 /* Quit cannot happen in modal loop: all program
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4263 input is dedicated to Windows. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4264 if (mswindows_in_modal_loop)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4265 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4266
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4267 mswindows_quit_chars_count = 0;
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
4268 /* Drain windows queue. This sets up number of quit characters in
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
4269 the queue. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4270 mswindows_drain_windows_queue ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4271
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4272 if (mswindows_quit_chars_count > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4273 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4274 /* Yes there's a hidden one... Throw it away */
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4275 Lisp_Event match_against;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4276 Lisp_Object emacs_event;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4277 int critical_p = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4278
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4279 match_against.event_type = key_press_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4280 match_against.event.key.modifiers = FAKE_MOD_QUIT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4281
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4282 while (mswindows_quit_chars_count > 0)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4283 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4284 emacs_event = mswindows_cancel_dispatch_event (&match_against);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4285 assert (!NILP (emacs_event));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4286
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
4287 if (XEVENT (emacs_event)->event.key.modifiers &
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
4288 FAKE_MOD_QUIT_CRITICAL)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4289 critical_p = 1;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4290
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
4291 Fdeallocate_event (emacs_event);
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4292 mswindows_quit_chars_count--;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4293 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4294
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4295 Vquit_flag = critical_p ? Qcritical : Qt;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4296 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4297 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4298
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4299 static void
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4300 emacs_mswindows_create_io_streams (void *inhandle, void *outhandle,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4301 void *errhandle, Lisp_Object *instream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4302 Lisp_Object *outstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4303 Lisp_Object *errstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4304 USID *in_usid,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4305 USID *err_usid,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4306 int flags)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4307 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4308 #ifdef CYGWIN
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4309 event_stream_unixoid_create_io_streams (inhandle, outhandle,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4310 errhandle, instream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4311 outstream, errstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4312 in_usid, err_usid, flags);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4313 #else
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4314 /* Handles for streams */
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4315 HANDLE hin, hout, herr;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4316 /* fds. These just stored along with the streams, and are closed in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4317 delete stream pair method, because we need to handle fake unices
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4318 here. */
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4319 int fdi, fdo, fde;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4320
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4321 /* Decode inhandle, outhandle, errhandle. Their meaning depends on
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4322 the process implementation being used. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4323 hin = (HANDLE) inhandle;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4324 hout = (HANDLE) outhandle;
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4325 if (errhandle == (void *) -1)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4326 herr = INVALID_HANDLE_VALUE;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4327 else
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4328 herr = (HANDLE) errhandle;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4329 fdi = fdo = fde = -1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4330
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4331 *instream = (hin == INVALID_HANDLE_VALUE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4332 ? Qnil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4333 : flags & STREAM_NETWORK_CONNECTION
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4334 ? make_winsock_input_stream ((SOCKET) hin, fdi)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4335 : make_ntpipe_input_stream (hin, fdi));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4336
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4337 *errstream = (herr == INVALID_HANDLE_VALUE
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4338 ? Qnil
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4339 : make_ntpipe_input_stream (herr, fde));
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4340
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4341 *outstream = (hout == INVALID_HANDLE_VALUE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4342 ? Qnil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4343 : flags & STREAM_NETWORK_CONNECTION
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4344 ? make_winsock_output_stream ((SOCKET)hout, fdo)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4345 : make_ntpipe_output_stream (hout, fdo));
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4346
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4347 *in_usid =
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4348 (NILP (*instream)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4349 ? USID_ERROR
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4350 : flags & STREAM_NETWORK_CONNECTION
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4351 ? HANDLE_TO_USID (get_winsock_stream_waitable (XLSTREAM (*instream)))
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4352 : HANDLE_TO_USID (get_ntpipe_input_stream_waitable (XLSTREAM
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4353 (*instream))));
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4354
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4355 *err_usid =
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4356 (NILP (*errstream)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4357 ? USID_DONTHASH
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4358 : HANDLE_TO_USID (get_ntpipe_input_stream_waitable (XLSTREAM
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4359 (*errstream))));
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4360 #endif /* CYGWIN */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4361 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4362
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4363 static void
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4364 emacs_mswindows_delete_io_streams (Lisp_Object instream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4365 Lisp_Object outstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4366 Lisp_Object errstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4367 USID *in_usid,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4368 USID *err_usid)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4369 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4370 #ifdef CYGWIN
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4371 event_stream_unixoid_delete_io_streams (instream, outstream, errstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4372 in_usid, err_usid);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4373 #else
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4374 *in_usid =
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4375 (NILP (instream)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4376 ? USID_DONTHASH
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4377 : LSTREAM_TYPE_P (XLSTREAM (instream), winsock)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4378 ? HANDLE_TO_USID (get_winsock_stream_waitable (XLSTREAM (instream)))
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4379 : HANDLE_TO_USID (get_ntpipe_input_stream_waitable (XLSTREAM
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4380 (instream))));
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4381
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4382 *err_usid =
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4383 (NILP (errstream)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4384 ? USID_DONTHASH
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4385 : HANDLE_TO_USID (get_ntpipe_input_stream_waitable (XLSTREAM
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4386 (errstream))));
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4387 #endif /* CYGWIN */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4388 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4389
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4390 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4391 emacs_mswindows_current_event_timestamp (struct console *c)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4392 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4393 return GetTickCount ();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4394 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4395
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4396 #ifndef HAVE_X_WINDOWS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4397 /* 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
4398 If we've still got pointers to it in this file, we're gonna lose hard.
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4399 */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4400 void debug_process_finalization (Lisp_Process *p);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4401 void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4402 debug_process_finalization (Lisp_Process *p)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4403 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4404 #if 0 /* #### */
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4405 Lisp_Object instr, outstr, errstr;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4406
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4407 get_process_streams (p, &instr, &outstr, &errstr);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4408 /* if it still has fds, then it hasn't been killed yet. */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
4409 assert (NILP (instr));
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
4410 assert (NILP (outstr));
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4411 assert (NILP (errstr));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4412
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4413 /* #### More checks here */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4414 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4415 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4416 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4417
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4418 #ifdef DEBUG_XEMACS
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4419
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4420 struct mswin_message_debug
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4421 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4422 int mess;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4423 char *string;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4424 };
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4425
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4426 #define FROB(val) { val, #val, },
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4427
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4428 struct mswin_message_debug debug_mswin_messages[] =
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4429 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4430 FROB (WM_NULL)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4431 FROB (WM_CREATE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4432 FROB (WM_DESTROY)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4433 FROB (WM_MOVE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4434 FROB (WM_SIZE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4435
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4436 FROB (WM_ACTIVATE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4437
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4438 FROB (WM_SETFOCUS)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4439 FROB (WM_KILLFOCUS)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4440 FROB (WM_ENABLE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4441 FROB (WM_SETREDRAW)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4442 FROB (WM_SETTEXT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4443 FROB (WM_GETTEXT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4444 FROB (WM_GETTEXTLENGTH)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4445 FROB (WM_PAINT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4446 FROB (WM_CLOSE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4447 FROB (WM_QUERYENDSESSION)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4448 FROB (WM_QUIT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4449 FROB (WM_QUERYOPEN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4450 FROB (WM_ERASEBKGND)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4451 FROB (WM_SYSCOLORCHANGE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4452 FROB (WM_ENDSESSION)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4453 FROB (WM_SHOWWINDOW)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4454 FROB (WM_WININICHANGE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4455 #if(WINVER >= 0x0400)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4456 FROB (WM_SETTINGCHANGE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4457 #endif /* WINVER >= 0x0400 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4458
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4459 FROB (WM_DEVMODECHANGE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4460 FROB (WM_ACTIVATEAPP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4461 FROB (WM_FONTCHANGE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4462 FROB (WM_TIMECHANGE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4463 FROB (WM_CANCELMODE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4464 FROB (WM_SETCURSOR)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4465 FROB (WM_MOUSEACTIVATE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4466 FROB (WM_CHILDACTIVATE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4467 FROB (WM_QUEUESYNC)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4468
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4469 FROB (WM_GETMINMAXINFO)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4470
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4471 FROB (WM_PAINTICON)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4472 FROB (WM_ICONERASEBKGND)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4473 FROB (WM_NEXTDLGCTL)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4474 FROB (WM_SPOOLERSTATUS)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4475 FROB (WM_DRAWITEM)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4476 FROB (WM_MEASUREITEM)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4477 FROB (WM_DELETEITEM)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4478 FROB (WM_VKEYTOITEM)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4479 FROB (WM_CHARTOITEM)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4480 FROB (WM_SETFONT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4481 FROB (WM_GETFONT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4482 FROB (WM_SETHOTKEY)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4483 FROB (WM_GETHOTKEY)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4484 FROB (WM_QUERYDRAGICON)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4485 FROB (WM_COMPAREITEM)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4486 #if(WINVER >= 0x0500)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4487 FROB (WM_GETOBJECT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4488 #endif /* WINVER >= 0x0500 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4489 FROB (WM_COMPACTING)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4490 FROB (WM_COMMNOTIFY)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4491 FROB (WM_WINDOWPOSCHANGING)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4492 FROB (WM_WINDOWPOSCHANGED)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4493
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4494 FROB (WM_POWER)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4495
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4496 FROB (WM_COPYDATA)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4497 FROB (WM_CANCELJOURNAL)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4498
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4499 #if(WINVER >= 0x0400)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4500 FROB (WM_NOTIFY)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4501 FROB (WM_INPUTLANGCHANGEREQUEST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4502 FROB (WM_INPUTLANGCHANGE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4503 FROB (WM_TCARD)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4504 FROB (WM_HELP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4505 FROB (WM_USERCHANGED)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4506 FROB (WM_NOTIFYFORMAT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4507
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4508 FROB (WM_CONTEXTMENU)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4509 FROB (WM_STYLECHANGING)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4510 FROB (WM_STYLECHANGED)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4511 FROB (WM_DISPLAYCHANGE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4512 FROB (WM_GETICON)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4513 FROB (WM_SETICON)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4514 #endif /* WINVER >= 0x0400 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4515
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4516 FROB (WM_NCCREATE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4517 FROB (WM_NCDESTROY)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4518 FROB (WM_NCCALCSIZE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4519 FROB (WM_NCHITTEST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4520 FROB (WM_NCPAINT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4521 FROB (WM_NCACTIVATE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4522 FROB (WM_GETDLGCODE)
604
fa3b8eb89cb2 [xemacs-hg @ 2001-06-02 05:40:49 by ben]
ben
parents: 593
diff changeset
4523 #ifdef WM_SYNCPAINT /* not in VC 5 */
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4524 FROB (WM_SYNCPAINT)
604
fa3b8eb89cb2 [xemacs-hg @ 2001-06-02 05:40:49 by ben]
ben
parents: 593
diff changeset
4525 #endif /* WM_SYNCPAINT */
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4526 FROB (WM_NCMOUSEMOVE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4527 FROB (WM_NCLBUTTONDOWN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4528 FROB (WM_NCLBUTTONUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4529 FROB (WM_NCLBUTTONDBLCLK)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4530 FROB (WM_NCRBUTTONDOWN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4531 FROB (WM_NCRBUTTONUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4532 FROB (WM_NCRBUTTONDBLCLK)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4533 FROB (WM_NCMBUTTONDOWN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4534 FROB (WM_NCMBUTTONUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4535 FROB (WM_NCMBUTTONDBLCLK)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4536
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4537 /* FROB (WM_KEYFIRST) */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4538 FROB (WM_KEYDOWN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4539 FROB (WM_KEYUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4540 FROB (WM_CHAR)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4541 FROB (WM_DEADCHAR)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4542 FROB (WM_SYSKEYDOWN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4543 FROB (WM_SYSKEYUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4544 FROB (WM_SYSCHAR)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4545 FROB (WM_SYSDEADCHAR)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4546 FROB (WM_KEYLAST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4547
604
fa3b8eb89cb2 [xemacs-hg @ 2001-06-02 05:40:49 by ben]
ben
parents: 593
diff changeset
4548 #if(WINVER >= 0x0400) && defined (WM_IME_STARTCOMPOSITION)
fa3b8eb89cb2 [xemacs-hg @ 2001-06-02 05:40:49 by ben]
ben
parents: 593
diff changeset
4549 /* not in Cygwin? */
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4550 FROB (WM_IME_STARTCOMPOSITION)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4551 FROB (WM_IME_ENDCOMPOSITION)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4552 FROB (WM_IME_COMPOSITION)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4553 FROB (WM_IME_KEYLAST)
604
fa3b8eb89cb2 [xemacs-hg @ 2001-06-02 05:40:49 by ben]
ben
parents: 593
diff changeset
4554 #endif /* WINVER >= 0x0400 && defined (WM_IME_STARTCOMPOSITION) */
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4555
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4556 FROB (WM_INITDIALOG)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4557 FROB (WM_COMMAND)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4558 FROB (WM_SYSCOMMAND)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4559 FROB (WM_TIMER)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4560 FROB (WM_HSCROLL)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4561 FROB (WM_VSCROLL)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4562 FROB (WM_INITMENU)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4563 FROB (WM_INITMENUPOPUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4564 FROB (WM_MENUSELECT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4565 FROB (WM_MENUCHAR)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4566 FROB (WM_ENTERIDLE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4567 #if(WINVER >= 0x0500)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4568 FROB (WM_MENURBUTTONUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4569 FROB (WM_MENUDRAG)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4570 FROB (WM_MENUGETOBJECT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4571 FROB (WM_UNINITMENUPOPUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4572 FROB (WM_MENUCOMMAND)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4573 #endif /* WINVER >= 0x0500 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4574
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4575
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4576 FROB (WM_CTLCOLORMSGBOX)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4577 FROB (WM_CTLCOLOREDIT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4578 FROB (WM_CTLCOLORLISTBOX)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4579 FROB (WM_CTLCOLORBTN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4580 FROB (WM_CTLCOLORDLG)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4581 FROB (WM_CTLCOLORSCROLLBAR)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4582 FROB (WM_CTLCOLORSTATIC)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4583
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4584
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4585 /* FROB (WM_MOUSEFIRST) */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4586 FROB (WM_MOUSEMOVE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4587 FROB (WM_LBUTTONDOWN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4588 FROB (WM_LBUTTONUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4589 FROB (WM_LBUTTONDBLCLK)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4590 FROB (WM_RBUTTONDOWN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4591 FROB (WM_RBUTTONUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4592 FROB (WM_RBUTTONDBLCLK)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4593 FROB (WM_MBUTTONDOWN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4594 FROB (WM_MBUTTONUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4595 FROB (WM_MBUTTONDBLCLK)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4596
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4597 #if (_WIN32_WINNT >= 0x0400) || (_WIN32_WINDOWS > 0x0400)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4598 FROB (WM_MOUSEWHEEL)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4599 FROB (WM_MOUSELAST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4600 #else
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4601 FROB (WM_MOUSELAST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4602 #endif /* if (_WIN32_WINNT < 0x0400) */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4603
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4604 FROB (WM_PARENTNOTIFY)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4605 FROB (WM_ENTERMENULOOP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4606 FROB (WM_EXITMENULOOP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4607
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4608 #if(WINVER >= 0x0400)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4609 FROB (WM_NEXTMENU)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4610
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4611 FROB (WM_SIZING)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4612 FROB (WM_CAPTURECHANGED)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4613 FROB (WM_MOVING)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4614 FROB (WM_POWERBROADCAST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4615
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4616 FROB (WM_DEVICECHANGE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4617
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4618 #endif /* WINVER >= 0x0400 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4619
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4620 FROB (WM_MDICREATE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4621 FROB (WM_MDIDESTROY)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4622 FROB (WM_MDIACTIVATE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4623 FROB (WM_MDIRESTORE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4624 FROB (WM_MDINEXT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4625 FROB (WM_MDIMAXIMIZE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4626 FROB (WM_MDITILE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4627 FROB (WM_MDICASCADE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4628 FROB (WM_MDIICONARRANGE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4629 FROB (WM_MDIGETACTIVE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4630
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4631
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4632 FROB (WM_MDISETMENU)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4633 FROB (WM_ENTERSIZEMOVE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4634 FROB (WM_EXITSIZEMOVE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4635 FROB (WM_DROPFILES)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4636 FROB (WM_MDIREFRESHMENU)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4637
604
fa3b8eb89cb2 [xemacs-hg @ 2001-06-02 05:40:49 by ben]
ben
parents: 593
diff changeset
4638 #ifdef WM_IME_SETCONTEXT /* not in Cygwin? */
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4639
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4640 #if(WINVER >= 0x0400)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4641 FROB (WM_IME_SETCONTEXT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4642 FROB (WM_IME_NOTIFY)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4643 FROB (WM_IME_CONTROL)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4644 FROB (WM_IME_COMPOSITIONFULL)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4645 FROB (WM_IME_SELECT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4646 FROB (WM_IME_CHAR)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4647 #endif /* WINVER >= 0x0400 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4648 #if(WINVER >= 0x0500)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4649 FROB (WM_IME_REQUEST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4650 #endif /* WINVER >= 0x0500 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4651 #if(WINVER >= 0x0400)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4652 FROB (WM_IME_KEYDOWN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4653 FROB (WM_IME_KEYUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4654 #endif /* WINVER >= 0x0400 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4655
604
fa3b8eb89cb2 [xemacs-hg @ 2001-06-02 05:40:49 by ben]
ben
parents: 593
diff changeset
4656 #endif /* WM_IME_SETCONTEXT */
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4657
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4658 #if(_WIN32_WINNT >= 0x0400)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4659 FROB (WM_MOUSEHOVER)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4660 FROB (WM_MOUSELEAVE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4661 #endif /* _WIN32_WINNT >= 0x0400 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4662
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4663 FROB (WM_CUT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4664 FROB (WM_COPY)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4665 FROB (WM_PASTE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4666 FROB (WM_CLEAR)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4667 FROB (WM_UNDO)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4668 FROB (WM_RENDERFORMAT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4669 FROB (WM_RENDERALLFORMATS)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4670 FROB (WM_DESTROYCLIPBOARD)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4671 FROB (WM_DRAWCLIPBOARD)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4672 FROB (WM_PAINTCLIPBOARD)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4673 FROB (WM_VSCROLLCLIPBOARD)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4674 FROB (WM_SIZECLIPBOARD)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4675 FROB (WM_ASKCBFORMATNAME)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4676 FROB (WM_CHANGECBCHAIN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4677 FROB (WM_HSCROLLCLIPBOARD)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4678 FROB (WM_QUERYNEWPALETTE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4679 FROB (WM_PALETTEISCHANGING)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4680 FROB (WM_PALETTECHANGED)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4681 FROB (WM_HOTKEY)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4682
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4683 #if(WINVER >= 0x0400)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4684 FROB (WM_PRINT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4685 FROB (WM_PRINTCLIENT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4686
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4687 FROB (WM_HANDHELDFIRST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4688 FROB (WM_HANDHELDLAST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4689
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4690 FROB (WM_AFXFIRST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4691 FROB (WM_AFXLAST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4692 #endif /* WINVER >= 0x0400 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4693
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4694 FROB (WM_PENWINFIRST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4695 FROB (WM_PENWINLAST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4696 };
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4697
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4698 #undef FROB
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4699
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4700 static void
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4701 debug_output_mswin_message (HWND hwnd, UINT message_, WPARAM wParam,
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4702 LPARAM lParam)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4703 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4704 Lisp_Object frame = mswindows_find_frame (hwnd);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4705 int i;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4706 char *str = 0;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4707 /* struct mswin_message_debug *i_hate_cranking_out_code_like_this; */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4708
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4709 for (i = 0; i < countof (debug_mswin_messages); i++)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4710 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 611
diff changeset
4711 if (debug_mswin_messages[i].mess == (int) message_)
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4712 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4713 str = debug_mswin_messages[i].string;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4714 break;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4715 }
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4716 }
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4717
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4718 if (str)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4719 stderr_out ("%s", str);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4720 else
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4721 stderr_out ("%x", message_);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4722
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4723 if (debug_mswindows_events > 1)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4724 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4725 stderr_out (" wparam=%d lparam=%d hwnd=%x frame: ",
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4726 wParam, (int) lParam, (unsigned int) hwnd);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4727 debug_print (frame);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4728 }
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4729 else
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4730 stderr_out ("\n");
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4731 }
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4732
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4733 #endif /* DEBUG_XEMACS */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4734
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4735 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4736 /* initialization */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4737 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4738
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4739 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4740 reinit_vars_of_event_mswindows (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4741 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4742 mswindows_in_modal_loop = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4743 mswindows_pending_timers_count = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4744
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4745 mswindows_event_stream = xnew (struct event_stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4746
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4747 mswindows_event_stream->event_pending_p = emacs_mswindows_event_pending_p;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4748 mswindows_event_stream->force_event_pending = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4749 mswindows_event_stream->next_event_cb = emacs_mswindows_next_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4750 mswindows_event_stream->handle_magic_event_cb = emacs_mswindows_handle_magic_event;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4751 mswindows_event_stream->format_magic_event_cb = emacs_mswindows_format_magic_event;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4752 mswindows_event_stream->compare_magic_event_cb= emacs_mswindows_compare_magic_event;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
4753 mswindows_event_stream->hash_magic_event_cb = emacs_mswindows_hash_magic_event;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4754 mswindows_event_stream->add_timeout_cb = emacs_mswindows_add_timeout;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4755 mswindows_event_stream->remove_timeout_cb = emacs_mswindows_remove_timeout;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4756 mswindows_event_stream->quit_p_cb = emacs_mswindows_quit_p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4757 mswindows_event_stream->select_console_cb = emacs_mswindows_select_console;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4758 mswindows_event_stream->unselect_console_cb = emacs_mswindows_unselect_console;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4759 mswindows_event_stream->select_process_cb = emacs_mswindows_select_process;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4760 mswindows_event_stream->unselect_process_cb = emacs_mswindows_unselect_process;
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4761 mswindows_event_stream->create_io_streams_cb = emacs_mswindows_create_io_streams;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4762 mswindows_event_stream->delete_io_streams_cb = emacs_mswindows_delete_io_streams;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4763 mswindows_event_stream->current_event_timestamp_cb =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4764 emacs_mswindows_current_event_timestamp;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4765 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4766
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4767 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4768 vars_of_event_mswindows (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4769 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4770 reinit_vars_of_event_mswindows ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4771
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4772 mswindows_u_dispatch_event_queue = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4773 staticpro (&mswindows_u_dispatch_event_queue);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4774 mswindows_u_dispatch_event_queue_tail = Qnil;
452
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 446
diff changeset
4775 dump_add_root_object (&mswindows_u_dispatch_event_queue_tail);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4776
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4777 mswindows_s_dispatch_event_queue = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4778 staticpro (&mswindows_s_dispatch_event_queue);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4779 mswindows_s_dispatch_event_queue_tail = Qnil;
452
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 446
diff changeset
4780 dump_add_root_object (&mswindows_s_dispatch_event_queue_tail);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4781
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4782 mswindows_error_caught_in_modal_loop = 0;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4783
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4784 #ifdef DEBUG_XEMACS
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4785 DEFVAR_INT ("debug-mswindows-events", &debug_mswindows_events /*
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4786 If non-zero, display debug information about Windows messages that XEmacs sees.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4787 Information is displayed in a console window. Currently defined values are:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4788
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4789 1 == non-verbose output (just the message name)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4790 2 == verbose output (all parameters)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4791 3 == even more verbose output (extra debugging info)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4792 */ );
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4793 debug_mswindows_events = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4794 #endif
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4795
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4796 DEFVAR_BOOL ("mswindows-alt-by-itself-activates-menu",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4797 &mswindows_alt_by_itself_activates_menu /*
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4798 *Controls whether pressing and releasing the Alt key activates the menubar.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4799 This applies only if no intervening key was pressed. See also
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4800 `menu-accelerator-enabled', which is probably the behavior you actually want.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4801 Default is t.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4802 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4803
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4804 DEFVAR_BOOL ("mswindows-dynamic-frame-resize",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4805 &mswindows_dynamic_frame_resize /*
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4806 *Controls redrawing frame contents during mouse-drag or keyboard resize
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4807 operation. When non-nil, the frame is redrawn while being resized. When
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4808 nil, frame is not redrawn, and exposed areas are filled with default
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4809 MDI application background color. Note that this option only has effect
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4810 if "Show window contents while dragging" is on in system Display/Plus!
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4811 settings.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4812 Default is t on fast machines, nil on slow.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4813 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4814
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4815 DEFVAR_INT ("mswindows-mouse-button-tolerance",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4816 &mswindows_mouse_button_tolerance /*
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4817 *Analogue of double click interval for faking middle mouse events.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4818 The value is the minimum time in milliseconds that must elapse between
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4819 left/right button down events before they are considered distinct events.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4820 If both mouse buttons are depressed within this interval, a middle mouse
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4821 button down event is generated instead.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4822 If negative or zero, currently set system default is used instead.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4823 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4824
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4825 DEFVAR_INT ("mswindows-num-mouse-buttons", &mswindows_num_mouse_buttons /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4826 Number of physical mouse buttons.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4827 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4828
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4829 DEFVAR_INT ("mswindows-mouse-button-max-skew-x",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4830 &mswindows_mouse_button_max_skew_x /*
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4831 *Maximum horizontal distance in pixels between points in which left and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4832 right button clicks occurred for them to be translated into single
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4833 middle button event. Clicks must occur in time not longer than defined
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4834 by the variable `mswindows-mouse-button-tolerance'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4835 If negative or zero, currently set system default is used instead.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4836 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4837
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4838 DEFVAR_INT ("mswindows-mouse-button-max-skew-y",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4839 &mswindows_mouse_button_max_skew_y /*
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4840 *Maximum vertical distance in pixels between points in which left and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4841 right button clicks occurred for them to be translated into single
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4842 middle button event. Clicks must occur in time not longer than defined
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4843 by the variable `mswindows-mouse-button-tolerance'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4844 If negative or zero, currently set system default is used instead.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4845 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4846
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4847 mswindows_mouse_button_max_skew_x = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4848 mswindows_mouse_button_max_skew_y = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4849 mswindows_mouse_button_tolerance = 0;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4850 mswindows_alt_by_itself_activates_menu = 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4851 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4852
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4853 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4854 syms_of_event_mswindows (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4855 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4856 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4857
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4858 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4859 lstream_type_create_mswindows_selectable (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4860 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4861 #ifndef CYGWIN
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4862 init_slurp_stream ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4863 init_shove_stream ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4864 init_winsock_stream ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4865 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4866 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4867
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4868 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4869 init_event_mswindows_late (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4870 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
4871 #ifdef CYGWIN
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 731
diff changeset
4872 windows_fd = retry_open ("/dev/windows", O_RDONLY | O_NONBLOCK, 0);
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
4873 assert (windows_fd >= 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4874 FD_SET (windows_fd, &input_wait_mask);
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
4875 FD_ZERO (&zero_mask);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4876 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4877
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4878 event_stream = mswindows_event_stream;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4879
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4880 mswindows_dynamic_frame_resize = !GetSystemMetrics (SM_SLOWMACHINE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4881 mswindows_num_mouse_buttons = GetSystemMetrics (SM_CMOUSEBUTTONS);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4882 }