annotate src/event-msw.c @ 617:af57a77cbc92

[xemacs-hg @ 2001-06-18 07:09:50 by ben] --------------------------------------------------------------- DOCUMENTATION FIXES: --------------------------------------------------------------- eval.c: Correct documentation. elhash.c: Doc correction. --------------------------------------------------------------- LISP OBJECT CLEANUP: --------------------------------------------------------------- bytecode.h, buffer.h, casetab.h, chartab.h, console-msw.h, console.h, database.c, device.h, eldap.h, elhash.h, events.h, extents.h, faces.h, file-coding.h, frame.h, glyphs.h, gui-x.h, gui.h, keymap.h, lisp-disunion.h, lisp-union.h, lisp.h, lrecord.h, lstream.h, mule-charset.h, objects.h, opaque.h, postgresql.h, process.h, rangetab.h, specifier.h, toolbar.h, tooltalk.h, ui-gtk.h: Add wrap_* to all objects (it was already there for a few of them) -- an expression to encapsulate a pointer into a Lisp object, rather than the inconvenient XSET*. "wrap" was chosen because "make" as in make_int(), make_char() is not appropriate. (It implies allocation. The issue does not exist for ints and chars because they are not allocated.) Full error checking has been added to these expressions. When used without error checking, non-union build, use of these expressions will incur no loss of efficiency. (In fact, XSET* is now defined in terms of wrap_* in a non-union build.) In a union build, you will also get no loss of efficiency provided that you have a decent optimizing compiler, and a compiler that either understands inlines or automatically inlines those particular functions. (And since people don't normally do their production builds on union, it doesn't matter.) Update the sample Lisp object definition in lrecord.h accordingly. dumper.c: Fix places in dumper that referenced wrap_object to reference its new name, wrap_pointer_1. buffer.c, bufslots.h, conslots.h, console.c, console.h, devslots.h, device.c, device.h, frame.c, frame.h, frameslots.h, window.c, window.h, winslots.h: -- Extract out the Lisp objects of `struct device' into devslots.h, just like for the other structures. -- Extract out the remaining (not copied into the window config) Lisp objects in `struct window' into winslots.h; use different macros (WINDOW_SLOT vs. WINDOW_SAVED_SLOT) to differentiate them. -- Eliminate the `dead' flag of `struct frame', since it duplicates information already available in `framemeths', and fix FRAME_LIVE_P accordingly. (Devices and consoles already work this way.) -- In *slots.h, switch to system where MARKED_SLOT is automatically undef'd at the end of the file. (Follows what winslots.h already does.) -- Update the comments at the beginning of *slots.h to be accurate. -- When making any of the above objects dead, zero it out entirely and reset all Lisp object slots to Qnil. (We were already doing this somewhat, but not consistently.) This (1) Eliminates the possibility of extra objects hanging around that ought to be GC'd, (2) Causes an immediate crash if anyone tries to access a structure in one of these objects, (3) Ensures consistent behavior wrt dead objects. dialog-msw.c: Use internal_object_printer, since this object should not escape. --------------------------------------------------------------- FIXING A CRASH THAT I HIT ONCE (AND A RELATED BAD BEHAVIOR): --------------------------------------------------------------- eval.c: Fix up some comments about the FSF implementation. Fix two nasty bugs: (1) condition_case_unwind frees the conses sitting in the catch->tag slot too quickly, resulting in a crash that I hit. (2) catches need to be unwound one at a time when calling unwind-protect code, rather than all at once at the end; otherwise, incorrect behavior can result. (A comment shows exactly how.) backtrace.h: Improve comment about FSF differences in the handler stack. --------------------------------------------------------------- FIXING A CRASH THAT I REPEATEDLY HIT WHEN USING THE MOUSE WHEEL UNDER MSWINDOWS: --------------------------------------------------------------- Basic idea: My crash is due either to a dead, non-marked, GC-collected frame inside of a window mirror, or a prematurely freed window mirror. We need to mark the Lisp objects inside of window mirrors. Tracking the lifespan of window mirrors and scrollbar instances is extremely hard, and there may well be lurking bugs where such objects are freed too soon. The only safe way to fix these problems (and it fixes both problems at once) is to make both of these structures Lisp objects. lrecord.h, emacs.c, inline.c, scrollbar-gtk.c, scrollbar-msw.c, scrollbar-x.c, scrollbar.c, scrollbar.h, symsinit.h: Make scrollbar instances actual Lisp objects. Mark the window mirrors in them. inline.c needs to know about scrollbar.h now. Record the new type in lrecord.h. Fix up scrollbar-*.c appropriately. Create a hash table in scrollbar-msw.c so that the scrollbar instances stored in scrollbar HWND's are properly GC-protected. Create complex_vars_of_scrollbar_mswindows() to create the hash table at startup, and call it from emacs.c. Don't store the scrollbar instance as a property of the GTK scrollbar, as it's not used and if we did this, we'd have to separately GC-protect it in a hash table, like in MS Windows. lrecord.h, frame.h, frame.c, frameslots.h, redisplay.c, window.c, window.h: Move mark_window_mirror from redisplay.c to window.c. Make window mirrors actual Lisp objects. Tell lrecord.h about them. Change the window mirror member of struct frame from a pointer to a Lisp object, and add XWINDOW_MIRROR in appropriate places. Mark the scrollbar instances in the window mirror. redisplay.c, redisplay.h, alloc.c: Delete mark_redisplay. Don't call mark_redisplay. We now mark frame-specific structures in mark_frame. NOTE: I also deleted an extremely questionable call to update_frame_window_mirrors(). It was extremely questionable before, and now totally impossible, since it will create Lisp objects during redisplay. frame.c: Mark the scrollbar instances, which are now Lisp objects. Call mark_gutter() here, not in mark_redisplay(). gutter.c: Update comments about correct marking. --------------------------------------------------------------- ISSUES BROUGHT UP BY MARTIN: --------------------------------------------------------------- buffer.h: Put back these macros the way Steve T and I think they ought to be. I already explained in a previous changelog entry why I think these macros should be the way I'd defined them. Once again: We fix these macros so they don't care about the type of their lvalues. The non-C-string equivalents of these already function in the same way, and it's correct because it should be OK to pass in a CBufbyte *, a BufByte *, a Char_Binary *, an UChar_Binary *, etc. The whole reason for these different types is to work around errors caused by signed-vs-unsigned non-matching types. Any possible error that might be caught in a DFC macro would also be caught wherever the argument is used elsewhere. So creating multiple macro versions would add no useful error-checking and just further complicate an already complicated area. As for Martin's "ANSI aliasing" bug, XEmacs is not ANSI-aliasing clean and probably never will be. Unless the board agrees to change XEmacs in this way (and we really don't want to go down that road), this is not a bug. sound.h: Undo Martin's type change. signal.c: Fix problem identified by Martin with Linux and g++ due to non-standard declaration of setitimer(). systime.h: Update the docs for "qxe_" to point out why making the encapsulation explicit is always the right way to go. (setitimer() itself serves as an example.) For 21.4: update-elc-2.el: Correct misplaced parentheses, making lisp/mule not get recompiled.
author ben
date Mon, 18 Jun 2001 07:10:32 +0000
parents 38db05db9cb5
children b39c14581166
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.
558
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
4 Copyright (C) 1996, 2000, 2001 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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26 /* Authorship:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
28 Ultimately based on FSF.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
29 Rewritten by Ben Wing.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30 Rewritten for mswindows by Jonathan Harris, November 1997 for 21.0.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
31 Subprocess and modal loop support by Kirill M. Katsnelson.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
34 #include <config.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35 #include "lisp.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
36
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 #include "console-msw.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40 # include "scrollbar-msw.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43 #ifdef HAVE_MENUBARS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
44 # include "menubar.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45 # include "menubar-msw.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48 #ifdef HAVE_DRAGNDROP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49 # include "dragdrop.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51
558
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
52 #include "buffer.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53 #include "device.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54 #include "events.h"
558
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
55 #include "faces.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56 #include "frame.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57 #include "lstream.h"
558
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
58 #include "objects-msw.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59 #include "process.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 #include "redisplay.h"
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
61 #include "select.h"
558
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
62 #include "sysdep.h"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
63 #include "window.h"
558
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
64
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
65 #include "sysfile.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 #include "sysproc.h"
558
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
67 #include "systime.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68 #include "syswait.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 #ifdef HAVE_MSG_SELECT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 #include "console-tty.h"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
72 #elif defined(CYGWIN)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 typedef unsigned int SOCKET;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
76 #if !(defined(CYGWIN) || defined(MINGW))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
77 # include <shlobj.h> /* For IShellLink */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 #ifdef HAVE_MENUBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 #define ADJR_MENUFLAG TRUE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83 #define ADJR_MENUFLAG FALSE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86 /* Fake key modifier which is attached to a quit char event.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 Removed upon dequeueing an event */
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
88 #define FAKE_MOD_QUIT (1 << 20)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
89 #define FAKE_MOD_QUIT_CRITICAL (1 << 21)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91 /* Timer ID used for button2 emulation */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92 #define BUTTON_2_TIMER_ID 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94 static Lisp_Object mswindows_find_console (HWND hwnd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95 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
96 int extendedp);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
97 static int mswindows_modifier_state (BYTE* keymap, DWORD fwKeys,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
98 int has_AltGr);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 static void mswindows_set_chord_timer (HWND hwnd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100 static int mswindows_button2_near_enough (POINTS p1, POINTS p2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101 static int mswindows_current_layout_has_AltGr (void);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
102 static int mswindows_handle_sticky_modifiers (WPARAM wParam, LPARAM lParam,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
103 int downp, int keyp);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
105 static struct event_stream *mswindows_event_stream;
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 #ifdef HAVE_MSG_SELECT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
108 extern SELECT_TYPE input_wait_mask, non_fake_input_wait_mask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
109 extern SELECT_TYPE process_only_mask, tty_only_mask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110 SELECT_TYPE zero_mask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111 extern int signal_event_pipe_initialized;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 int windows_fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113 #endif
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 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116 * Two separate queues, for efficiency, one (_u_) for user events, and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 * 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
118 * 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
119 * one.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121 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
122 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
123
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 /* The number of things we can wait on */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125 #define MAX_WAITABLE (MAXIMUM_WAIT_OBJECTS - 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
126
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
127 #ifndef HAVE_MSG_SELECT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
128 /* List of mswindows waitable handles. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129 static HANDLE mswindows_waitable_handles[MAX_WAITABLE];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
131 /* Number of wait handles */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
132 static int mswindows_waitable_count=0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
133 #endif /* HAVE_MSG_SELECT */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
134
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
135 /* Brush for painting widgets */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
136 static HBRUSH widget_brush = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
137 static LONG last_widget_brushed = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
138
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
139 /* Count of quit chars currently in the queue */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
140 /* Incremented in WM_[SYS]KEYDOWN handler in the mswindows_wnd_proc()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
141 Decremented in mswindows_dequeue_dispatch_event() */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
142 int mswindows_quit_chars_count = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144 /* These are Lisp integers; see DEFVARS in this file for description. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145 int mswindows_dynamic_frame_resize;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
146 int mswindows_alt_by_itself_activates_menu;
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 452
diff changeset
147 Fixnum mswindows_num_mouse_buttons;
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 452
diff changeset
148 Fixnum mswindows_mouse_button_max_skew_x;
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 452
diff changeset
149 Fixnum mswindows_mouse_button_max_skew_y;
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 452
diff changeset
150 Fixnum mswindows_mouse_button_tolerance;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
152 #ifdef DEBUG_XEMACS
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 452
diff changeset
153 Fixnum debug_mswindows_events;
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
154
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
155 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
156 WPARAM wParam, LPARAM lParam);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
157 #endif
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
158
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159 /* This is the event signaled by the event pump.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
160 See mswindows_pump_outstanding_events for comments */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
161 static Lisp_Object mswindows_error_caught_in_modal_loop;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
162 static int mswindows_in_modal_loop;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164 /* Count of wound timers */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165 static int mswindows_pending_timers_count;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
166
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
167 static DWORD mswindows_last_mouse_button_state;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
168
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
169 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
170 /* Pipe instream - reads process output */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
171 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
172
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173 #define PIPE_READ_DELAY 20
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
175 #define HANDLE_TO_USID(h) ((USID)(h))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
177 #define NTPIPE_SLURP_STREAM_DATA(stream) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178 LSTREAM_TYPE_DATA (stream, ntpipe_slurp)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
179
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
180 /* This structure is allocated by the main thread, and is deallocated
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181 in the thread upon exit. There are situations when a thread
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182 remains blocked for a long time, much longer than the lstream
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
183 exists. For example, "start notepad" command is issued from the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184 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
185 process exits, its output pipe will not get closed until the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186 notepad process exits also, because it inherits the pipe form the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 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
188 all such processes exit. While struct ntpipe_slurp_stream is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189 deallocated in this case, ntpipe_slurp_stream_shared_data are not. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
190
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191 struct ntpipe_slurp_stream_shared_data
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193 HANDLE hev_thread; /* Our thread blocks on this, signaled by caller */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
194 /* This is a manual-reset object. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195 HANDLE hev_caller; /* Caller blocks on this, and we signal it */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
196 /* This is a manual-reset object. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
197 HANDLE hev_unsleep; /* Pipe read delay is canceled if this is set */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
198 /* This is a manual-reset object. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
199 HANDLE hpipe; /* Pipe read end handle. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
200 LONG die_p; /* Thread must exit ASAP if non-zero */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
201 BOOL eof_p : 1; /* Set when thread saw EOF */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
202 BOOL error_p : 1; /* Read error other than EOF/broken pipe */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
203 BOOL inuse_p : 1; /* this structure is in use */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
204 LONG lock_count; /* Client count of this struct, 0=safe to free */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
205 BYTE onebyte; /* One byte buffer read by thread */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
206 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
207
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
208 #define MAX_SLURP_STREAMS 32
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
209 struct ntpipe_slurp_stream_shared_data
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
210 shared_data_block[MAX_SLURP_STREAMS]={{0}};
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
211
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
212 struct ntpipe_slurp_stream
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
213 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
214 LPARAM user_data; /* Any user data stored in the stream object */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215 struct ntpipe_slurp_stream_shared_data* thread_data;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
218 DEFINE_LSTREAM_IMPLEMENTATION ("ntpipe-input", lstream_ntpipe_slurp,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
219 sizeof (struct ntpipe_slurp_stream));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
220
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
221 /* This function is thread-safe, and is called from either thread
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
222 context. It serializes freeing shared data structure */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
223 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
224 slurper_free_shared_data_maybe (struct ntpipe_slurp_stream_shared_data* s)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
225 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
226 if (InterlockedDecrement (&s->lock_count) == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
227 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
228 /* Destroy events */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
229 CloseHandle (s->hev_thread);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
230 CloseHandle (s->hev_caller);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
231 CloseHandle (s->hev_unsleep);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
232 s->inuse_p = 0;
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
236 static struct ntpipe_slurp_stream_shared_data*
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
237 slurper_allocate_shared_data (void)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
238 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
239 int i=0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
240 for (i=0; i<MAX_SLURP_STREAMS; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
241 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
242 if (!shared_data_block[i].inuse_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
243 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
244 shared_data_block[i].inuse_p=1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
245 return &shared_data_block[i];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
246 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248 return (struct ntpipe_slurp_stream_shared_data*)0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249 }
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 static DWORD WINAPI
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252 slurp_thread (LPVOID vparam)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254 struct ntpipe_slurp_stream_shared_data *s =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
255 (struct ntpipe_slurp_stream_shared_data*)vparam;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
256
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
257 for (;;)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
258 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
259 /* Read one byte from the pipe */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
260 DWORD actually_read;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
261 if (!ReadFile (s->hpipe, &s->onebyte, 1, &actually_read, NULL))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
262 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
263 DWORD err = GetLastError ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
264 if (err == ERROR_BROKEN_PIPE || err == ERROR_NO_DATA)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
265 s->eof_p = TRUE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
266 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
267 s->error_p = TRUE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
268 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
269 else if (actually_read == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
270 s->eof_p = TRUE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
271
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
272 /* We must terminate on an error or eof */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
273 if (s->eof_p || s->error_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
274 InterlockedIncrement (&s->die_p);
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 /* Before we notify caller, we unsignal our event. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
277 ResetEvent (s->hev_thread);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
278
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
279 /* Now we got something to notify caller, either a byte or an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
280 error/eof indication. Before we do, allow internal pipe
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
281 buffer to accumulate little bit more data.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
282 Reader function pulses this event before waiting for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
283 a character, to avoid pipe delay, and to get the byte
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
284 immediately. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
285 if (!s->die_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
286 WaitForSingleObject (s->hev_unsleep, PIPE_READ_DELAY);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
287
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
288 /* Either make event loop generate a process event, or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
289 inblock reader */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
290 SetEvent (s->hev_caller);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
291
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
292 /* Cleanup and exit if we're shot off */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
293 if (s->die_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
294 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
295
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
296 /* Block until the client finishes with retrieving the rest of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
297 pipe data */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
298 WaitForSingleObject (s->hev_thread, INFINITE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
299 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
300
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
301 slurper_free_shared_data_maybe (s);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
302
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
303 return 0;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
306 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
307 make_ntpipe_input_stream (HANDLE hpipe, LPARAM param)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
308 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
309 Lisp_Object obj;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
310 Lstream *lstr = Lstream_new (lstream_ntpipe_slurp, "r");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
311 struct ntpipe_slurp_stream* s = NTPIPE_SLURP_STREAM_DATA (lstr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
312 DWORD thread_id_unused;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
313 HANDLE hthread;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
314
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
315 /* We deal only with pipes, for we're using PeekNamedPipe api */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
316 assert (GetFileType (hpipe) == FILE_TYPE_PIPE);
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 s->thread_data = slurper_allocate_shared_data();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
319
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
320 /* Create reader thread. This could fail, so do not create events
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
321 until thread is created */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
322 hthread = CreateThread (NULL, 0, slurp_thread, (LPVOID)s->thread_data,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
323 CREATE_SUSPENDED, &thread_id_unused);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
324 if (hthread == NULL)
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 Lstream_delete (lstr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
327 s->thread_data->inuse_p=0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
328 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
329 }
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 /* Shared data are initially owned by both main and slurper
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
332 threads. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
333 s->thread_data->lock_count = 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
334 s->thread_data->die_p = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
335 s->thread_data->eof_p = FALSE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
336 s->thread_data->error_p = FALSE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
337 s->thread_data->hpipe = hpipe;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
338 s->user_data = param;
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 /* hev_thread is a manual-reset event, initially signaled */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
341 s->thread_data->hev_thread = CreateEvent (NULL, TRUE, TRUE, NULL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
342 /* hev_caller is a manual-reset event, initially nonsignaled */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
343 s->thread_data->hev_caller = CreateEvent (NULL, TRUE, FALSE, NULL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
344 /* hev_unsleep is a manual-reset event, initially nonsignaled */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
345 s->thread_data->hev_unsleep = CreateEvent (NULL, TRUE, FALSE, NULL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
346
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
347 /* Now let it go */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
348 ResumeThread (hthread);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
349 CloseHandle (hthread);
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 lstr->flags |= LSTREAM_FL_CLOSE_AT_DISKSAVE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
352 XSETLSTREAM (obj, lstr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
353 return obj;
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 static LPARAM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
357 get_ntpipe_input_stream_param (Lstream *stream)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
358 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
359 struct ntpipe_slurp_stream* s = NTPIPE_SLURP_STREAM_DATA(stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
360 return s->user_data;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
361 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
362
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
363 static HANDLE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
364 get_ntpipe_input_stream_waitable (Lstream *stream)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
365 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
366 struct ntpipe_slurp_stream* s = NTPIPE_SLURP_STREAM_DATA(stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
367 return s->thread_data->hev_caller;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
368 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
369
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
370 static Lstream_data_count
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
371 ntpipe_slurp_reader (Lstream *stream, unsigned char *data,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
372 Lstream_data_count size)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
373 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
374 /* This function must be called from the main thread only */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
375 struct ntpipe_slurp_stream_shared_data* s =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376 NTPIPE_SLURP_STREAM_DATA(stream)->thread_data;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
377
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 if (!s->die_p)
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 DWORD wait_result;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
381 /* Disallow pipe read delay for the thread: we need a character
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
382 ASAP */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
383 SetEvent (s->hev_unsleep);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
384
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385 /* Check if we have a character ready. Give it a short delay,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386 for the thread to awake from pipe delay, just ion case*/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387 wait_result = WaitForSingleObject (s->hev_caller, 2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
388
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
389 /* Revert to the normal sleep behavior. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
390 ResetEvent (s->hev_unsleep);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
391
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
392 /* If there's no byte buffered yet, give up */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
393 if (wait_result == WAIT_TIMEOUT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
394 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
395 errno = EAGAIN;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
396 return -1;
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
399
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
400 /* Reset caller unlock event now, as we've handled the pending
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
401 process output event */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
402 ResetEvent (s->hev_caller);
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 /* 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
405 changing s->die_p, which still should be interlocked */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
406
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
407 if (s->eof_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
408 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
409 if (s->error_p || s->die_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
410 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
411
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
412 /* 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
413 pipe */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
414 *(data++) = s->onebyte;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
415 --size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
416
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
417 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
418 DWORD bytes_read = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
419 if (size > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
420 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
421 DWORD bytes_available;
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 /* If the api call fails, return at least one byte already
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
424 read. ReadFile in thread will return error */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
425 if (PeekNamedPipe (s->hpipe, NULL, 0, NULL, &bytes_available, NULL))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
426 {
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 /* Fetch available bytes. The same consideration applies,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
429 so do not check for errors. ReadFile in the thread will
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
430 fail if the next call fails. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
431 if (bytes_available)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
432 ReadFile (s->hpipe, data, min (bytes_available, size),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
433 &bytes_read, NULL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
434 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
435
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
436 /* Now we can unblock thread, so it attempts to read more */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
437 SetEvent (s->hev_thread);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
438 return bytes_read + 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
439 }
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 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
442 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
443
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
444 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
445 ntpipe_slurp_closer (Lstream *stream)
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 /* This function must be called from the main thread only */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
448 struct ntpipe_slurp_stream_shared_data* s =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
449 NTPIPE_SLURP_STREAM_DATA(stream)->thread_data;
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 /* Force thread to stop */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
452 InterlockedIncrement (&s->die_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
453
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
454 /* Set events which could possibly block slurper. Let it finish soon
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
455 or later. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
456 SetEvent (s->hev_unsleep);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
457 SetEvent (s->hev_thread);
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 /* Unlock and maybe free shared data */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
460 slurper_free_shared_data_maybe (s);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
461
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
462 return 0;
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 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
466 init_slurp_stream (void)
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 LSTREAM_HAS_METHOD (ntpipe_slurp, reader);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
469 LSTREAM_HAS_METHOD (ntpipe_slurp, closer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
470 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
471
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
472 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
473 /* Pipe outstream - writes process input */
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
476 #define NTPIPE_SHOVE_STREAM_DATA(stream) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
477 LSTREAM_TYPE_DATA (stream, ntpipe_shove)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
478
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
479 #define MAX_SHOVE_BUFFER_SIZE 512
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
480
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
481 struct ntpipe_shove_stream
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 LPARAM user_data; /* Any user data stored in the stream object */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
484 HANDLE hev_thread; /* Our thread blocks on this, signaled by caller */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
485 /* This is an auto-reset object. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
486 HANDLE hpipe; /* Pipe write end handle. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
487 HANDLE hthread; /* Reader thread handle. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
488 char buffer[MAX_SHOVE_BUFFER_SIZE]; /* Buffer being written */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
489 DWORD size; /* Number of bytes to write */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
490 LONG die_p; /* Thread must exit ASAP if non-zero */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
491 LONG idle_p; /* Non-zero if thread is waiting for job */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
492 BOOL error_p : 1; /* Read error other than EOF/broken pipe */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
493 BOOL blocking_p : 1;/* Last write attempt would cause blocking */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
494 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
495
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
496 DEFINE_LSTREAM_IMPLEMENTATION ("ntpipe-output", lstream_ntpipe_shove,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
497 sizeof (struct ntpipe_shove_stream));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
498
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
499 #ifndef HAVE_MSG_SELECT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500 static DWORD WINAPI
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501 shove_thread (LPVOID vparam)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
502 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
503 struct ntpipe_shove_stream *s = (struct ntpipe_shove_stream*) vparam;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
504
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
505 for (;;)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
506 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
507 DWORD bytes_written;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
508
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
509 /* Block on event and wait for a job */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
510 InterlockedIncrement (&s->idle_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
511 WaitForSingleObject (s->hev_thread, INFINITE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
512
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
513 /* Write passed buffer if any */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
514 if (s->size > 0)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
515 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
516 if (!WriteFile (s->hpipe, s->buffer, s->size, &bytes_written, NULL)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
517 || bytes_written != s->size)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
518 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
519 s->error_p = TRUE;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
520 InterlockedIncrement (&s->die_p);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
521 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
522 /* 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
523 die_p and kicks us */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
524 s->size = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
525 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
526
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
527 if (s->die_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
528 break;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
531 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
532 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
533
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
534 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
535 make_ntpipe_output_stream (HANDLE hpipe, LPARAM param)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
536 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
537 Lisp_Object obj;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
538 Lstream *lstr = Lstream_new (lstream_ntpipe_shove, "w");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
539 struct ntpipe_shove_stream* s = NTPIPE_SHOVE_STREAM_DATA (lstr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
540 DWORD thread_id_unused;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
541
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
542 s->die_p = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
543 s->error_p = FALSE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
544 s->hpipe = hpipe;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
545 s->user_data = param;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
546
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
547 /* Create reader thread. This could fail, so do not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
548 create the event until thread is created */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
549 s->hthread = CreateThread (NULL, 0, shove_thread, (LPVOID)s,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
550 CREATE_SUSPENDED, &thread_id_unused);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
551 if (s->hthread == NULL)
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 Lstream_delete (lstr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
554 return Qnil;
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
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
557 /* 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
558 on it to send things. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
559 if (!SetThreadPriority (s->hthread, THREAD_PRIORITY_HIGHEST))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
560 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
561 CloseHandle (s->hthread);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
562 Lstream_delete (lstr);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
563 return Qnil;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
564 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
565
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
566 /* hev_thread is an auto-reset event, initially nonsignaled */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
567 s->hev_thread = CreateEvent (NULL, FALSE, FALSE, NULL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
568
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
569 /* Now let it go */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
570 ResumeThread (s->hthread);
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 lstr->flags |= LSTREAM_FL_CLOSE_AT_DISKSAVE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
573 XSETLSTREAM (obj, lstr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
574 return obj;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
575 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
576
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
577 static LPARAM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
578 get_ntpipe_output_stream_param (Lstream *stream)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
579 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
580 struct ntpipe_shove_stream* s = NTPIPE_SHOVE_STREAM_DATA(stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
581 return s->user_data;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
582 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
583 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
584
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
585 static Lstream_data_count
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
586 ntpipe_shove_writer (Lstream *stream, const unsigned char *data,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
587 Lstream_data_count size)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
588 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
589 struct ntpipe_shove_stream* s = NTPIPE_SHOVE_STREAM_DATA(stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
590
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
591 if (s->error_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
592 return -1;
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 s->blocking_p = !s->idle_p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
595 if (s->blocking_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
596 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
597
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
598 if (size>MAX_SHOVE_BUFFER_SIZE)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
599 return 0;
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 memcpy (s->buffer, data, size);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
602 s->size = size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
603
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
604 /* Start output */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
605 InterlockedDecrement (&s->idle_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
606 SetEvent (s->hev_thread);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
607 /* Give it a chance to run -- this dramatically improves performance
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
608 of things like crypt. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
609 if (xSwitchToThread) /* not in Win9x or NT 3.51 */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
610 (void) xSwitchToThread ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
611 return size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
612 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
613
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
614 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
615 ntpipe_shove_was_blocked_p (Lstream *stream)
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 struct ntpipe_shove_stream* s = NTPIPE_SHOVE_STREAM_DATA(stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
618 return s->blocking_p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
619 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
620
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
621 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
622 ntpipe_shove_closer (Lstream *stream)
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 struct ntpipe_shove_stream* s = NTPIPE_SHOVE_STREAM_DATA(stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
625
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
626 /* Force thread stop */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
627 InterlockedIncrement (&s->die_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
628
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
629 /* 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
630 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
631 pending output. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
632 SetEvent (s->hev_thread);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
633
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
634 /* Wait while thread terminates */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
635 WaitForSingleObject (s->hthread, INFINITE);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
636
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
637 /* Close pipe handle, possibly breaking it */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
638 CloseHandle (s->hpipe);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
639
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
640 /* Close the thread handle */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
641 CloseHandle (s->hthread);
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 /* Destroy the event */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
644 CloseHandle (s->hev_thread);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
645
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
646 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
647 }
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 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
650 init_shove_stream (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
651 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
652 LSTREAM_HAS_METHOD (ntpipe_shove, writer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
653 LSTREAM_HAS_METHOD (ntpipe_shove, was_blocked_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
654 LSTREAM_HAS_METHOD (ntpipe_shove, closer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
655 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
656
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
657 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
658 /* Winsock I/O stream */
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 #if defined (HAVE_SOCKETS) && !defined(HAVE_MSG_SELECT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
661
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
662 #define WINSOCK_READ_BUFFER_SIZE 1024
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
663
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
664 struct winsock_stream
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 LPARAM user_data; /* Any user data stored in the stream object */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
667 SOCKET s; /* Socket handle (which is a Win32 handle) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
668 OVERLAPPED ov; /* Overlapped I/O structure */
558
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
669 void* buffer; /* Buffer. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
670 unsigned long bufsize; /* Number of bytes last read */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
671 unsigned long bufpos; /* Position in buffer for next fetch */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
672 unsigned int error_p :1; /* I/O Error seen */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
673 unsigned int eof_p :1; /* EOF Error seen */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
674 unsigned int pending_p :1; /* There is a pending I/O operation */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
675 unsigned int blocking_p :1; /* Last write attempt would block */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
676 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
677
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
678 #define WINSOCK_STREAM_DATA(stream) LSTREAM_TYPE_DATA (stream, winsock)
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 DEFINE_LSTREAM_IMPLEMENTATION ("winsock", lstream_winsock,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
681 sizeof (struct winsock_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 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
684 winsock_initiate_read (struct winsock_stream *str)
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 ResetEvent (str->ov.hEvent);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
687 str->bufpos = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
688
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
689 if (!ReadFile ((HANDLE)str->s, str->buffer, WINSOCK_READ_BUFFER_SIZE,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
690 &str->bufsize, &str->ov))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
691 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
692 if (GetLastError () == ERROR_IO_PENDING)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
693 str->pending_p = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
694 else if (GetLastError () == ERROR_HANDLE_EOF)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
695 str->eof_p = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
696 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
697 str->error_p = 1;
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 else if (str->bufsize == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
700 str->eof_p = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
701 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
702
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
703 static Lstream_data_count
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
704 winsock_reader (Lstream *stream, unsigned char *data, Lstream_data_count size)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
705 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
706 struct winsock_stream *str = WINSOCK_STREAM_DATA (stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
707
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
708 /* If the current operation is not yet complete, there's nothing to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
709 give back */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
710 if (str->pending_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
711 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
712 if (WaitForSingleObject (str->ov.hEvent, 0) == WAIT_TIMEOUT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
713 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
714 errno = EAGAIN;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
715 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
716 }
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 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
719 if (!GetOverlappedResult ((HANDLE)str->s, &str->ov, &str->bufsize, TRUE))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
720 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
721 if (GetLastError() == ERROR_HANDLE_EOF)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
722 str->bufsize = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
723 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
724 str->error_p = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
725 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
726 if (str->bufsize == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
727 str->eof_p = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
728 str->pending_p = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
729 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
730 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
731
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
732 if (str->eof_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
733 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
734 if (str->error_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
735 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
736
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
737 /* Return as much of buffer as we have */
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
738 size = min (size, (Lstream_data_count) (str->bufsize - str->bufpos));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
739 memcpy (data, (void*)((BYTE*)str->buffer + str->bufpos), size);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
740 str->bufpos += size;
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 /* Read more if buffer is exhausted */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
743 if (str->bufsize == str->bufpos)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
744 winsock_initiate_read (str);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
745
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
746 return size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
747 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
748
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
749 static Lstream_data_count
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
750 winsock_writer (Lstream *stream, const unsigned char *data,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
751 Lstream_data_count size)
428
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 struct winsock_stream *str = WINSOCK_STREAM_DATA (stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
754
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
755 if (str->pending_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
756 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
757 if (WaitForSingleObject (str->ov.hEvent, 0) == WAIT_TIMEOUT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
758 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
759 str->blocking_p = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
760 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
761 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
762 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
763 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
764 DWORD dw_unused;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
765 if (!GetOverlappedResult ((HANDLE)str->s, &str->ov, &dw_unused, TRUE))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
766 str->error_p = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
767 str->pending_p = 0;
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
770
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
771 str->blocking_p = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
772
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
773 if (str->error_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
774 return -1;
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 (size == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
777 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
778
558
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
779 ResetEvent (str->ov.hEvent);
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
780
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
781 /* 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
782 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
783 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
784 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
785 str->buffer = xrealloc (str->buffer, size);
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
786 memcpy (str->buffer, data, size);
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
787
560
b202fbfc7dea [xemacs-hg @ 2001-05-23 11:29:58 by ben]
ben
parents: 558
diff changeset
788 /* 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
789 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
790 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
791 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
792 &str->ov)
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
793 || GetLastError() == ERROR_IO_PENDING)
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
794 str->pending_p = 1;
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
795 else
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
796 str->error_p = 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
797
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
798 return str->error_p ? -1 : size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
799 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
800
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
801 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
802 winsock_closer (Lstream *lstr)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
803 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
804 struct winsock_stream *str = WINSOCK_STREAM_DATA (lstr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
805
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
806 if (lstr->flags & LSTREAM_FL_READ)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
807 shutdown (str->s, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
808 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
809 shutdown (str->s, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
810
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
811 CloseHandle ((HANDLE)str->s);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
812 if (str->pending_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
813 WaitForSingleObject (str->ov.hEvent, INFINITE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
814
558
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
815 if (str->buffer)
560
b202fbfc7dea [xemacs-hg @ 2001-05-23 11:29:58 by ben]
ben
parents: 558
diff changeset
816 {
b202fbfc7dea [xemacs-hg @ 2001-05-23 11:29:58 by ben]
ben
parents: 558
diff changeset
817 xfree (str->buffer);
b202fbfc7dea [xemacs-hg @ 2001-05-23 11:29:58 by ben]
ben
parents: 558
diff changeset
818 str->buffer = 0;
b202fbfc7dea [xemacs-hg @ 2001-05-23 11:29:58 by ben]
ben
parents: 558
diff changeset
819 }
428
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 CloseHandle (str->ov.hEvent);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
822 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
823 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
824
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
825 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
826 winsock_was_blocked_p (Lstream *stream)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
827 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
828 struct winsock_stream *str = WINSOCK_STREAM_DATA (stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
829 return str->blocking_p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
830 }
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 static Lisp_Object
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
833 make_winsock_stream_1 (SOCKET s, LPARAM param, const char *mode)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
834 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
835 Lisp_Object obj;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
836 Lstream *lstr = Lstream_new (lstream_winsock, mode);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
837 struct winsock_stream *str = WINSOCK_STREAM_DATA (lstr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
838
558
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
839 xzero (*str);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
840 str->s = s;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
841 str->user_data = param;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
842
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
843 str->ov.hEvent = CreateEvent (NULL, TRUE, FALSE, NULL);
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 if (lstr->flags & LSTREAM_FL_READ)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
846 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
847 str->buffer = xmalloc (WINSOCK_READ_BUFFER_SIZE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
848 winsock_initiate_read (str);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
849 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
850
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
851 lstr->flags |= LSTREAM_FL_CLOSE_AT_DISKSAVE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
852 XSETLSTREAM (obj, lstr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
853 return obj;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
854 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
855
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
856 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
857 make_winsock_input_stream (SOCKET s, LPARAM param)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
858 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
859 return make_winsock_stream_1 (s, param, "r");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
860 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
861
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
862 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
863 make_winsock_output_stream (SOCKET s, LPARAM param)
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 return make_winsock_stream_1 (s, param, "w");
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
868 static HANDLE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
869 get_winsock_stream_waitable (Lstream *lstr)
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 struct winsock_stream *str = WINSOCK_STREAM_DATA (lstr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
872 return str->ov.hEvent;
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 LPARAM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
876 get_winsock_stream_param (Lstream *lstr)
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 struct winsock_stream *str = WINSOCK_STREAM_DATA (lstr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
879 return str->user_data;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
882 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
883 init_winsock_stream (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
884 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
885 LSTREAM_HAS_METHOD (winsock, reader);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
886 LSTREAM_HAS_METHOD (winsock, writer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
887 LSTREAM_HAS_METHOD (winsock, closer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
888 LSTREAM_HAS_METHOD (winsock, was_blocked_p);
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 #endif /* defined (HAVE_SOCKETS) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
891
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 /* Dispatch queue management */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
894 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
895
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
896 static int
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
897 mswindows_user_event_p (Lisp_Event* sevt)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
898 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
899 return (sevt->event_type == key_press_event
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
900 || sevt->event_type == button_press_event
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
901 || sevt->event_type == button_release_event
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
902 || sevt->event_type == misc_user_event);
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
905 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
906 * Add an emacs event to the proper dispatch queue
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
907 */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
908 void
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
909 mswindows_enqueue_dispatch_event (Lisp_Object event)
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 int user_p = mswindows_user_event_p (XEVENT(event));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
912 enqueue_event (event,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
913 user_p ? &mswindows_u_dispatch_event_queue :
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
914 &mswindows_s_dispatch_event_queue,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
915 user_p ? &mswindows_u_dispatch_event_queue_tail :
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
916 &mswindows_s_dispatch_event_queue_tail);
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 /* Avoid blocking on WaitMessage */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
919 PostMessage (NULL, XM_BUMPQUEUE, 0, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
920 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
921
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 * Add a misc-user event to the dispatch queue.
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 * Stuff it into our own dispatch queue, so we have something
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
926 * to return from next_event callback.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
927 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
928 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
929 mswindows_enqueue_misc_user_event (Lisp_Object channel, Lisp_Object function,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
930 Lisp_Object object)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
931 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
932 Lisp_Object event = Fmake_event (Qnil, Qnil);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
933 Lisp_Event* e = XEVENT (event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
934
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
935 e->event_type = misc_user_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
936 e->channel = channel;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
937 e->timestamp = GetTickCount ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
938 e->event.misc.function = function;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
939 e->event.misc.object = object;
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 mswindows_enqueue_dispatch_event (event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
942 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
943
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
944 void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
945 mswindows_enqueue_magic_event (HWND hwnd, UINT msg)
428
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 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
948 Lisp_Event* event = XEVENT (emacs_event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
949
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
950 event->channel = hwnd ? mswindows_find_frame (hwnd) : Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
951 event->timestamp = GetMessageTime();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
952 event->event_type = magic_event;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
953 EVENT_MSWINDOWS_MAGIC_TYPE (event) = msg;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
954
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
955 mswindows_enqueue_dispatch_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
956 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
957
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
958 static void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
959 mswindows_enqueue_process_event (Lisp_Process* p)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
960 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
961 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
962 Lisp_Event* event = XEVENT (emacs_event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
963 Lisp_Object process;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
964 XSETPROCESS (process, p);
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 event->event_type = process_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
967 event->timestamp = GetTickCount ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
968 event->event.process.process = process;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
969
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
970 mswindows_enqueue_dispatch_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
971 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
972
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
973 static void
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
974 mswindows_enqueue_mouse_button_event (HWND hwnd, UINT msg, POINTS where,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
975 int mods, DWORD when)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
976 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
977 int downp = (msg == WM_LBUTTONDOWN || msg == WM_MBUTTONDOWN ||
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
978 msg == WM_RBUTTONDOWN);
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 /* We always use last message time, because mouse button
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
981 events may get delayed, and XEmacs double click
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
982 recognition will fail */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
983
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
984 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
985 Lisp_Event* event = XEVENT (emacs_event);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
986
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
987 mswindows_handle_sticky_modifiers (0, 0, downp, 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
988 event->channel = mswindows_find_frame (hwnd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
989 event->timestamp = when;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
990 event->event.button.button =
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
991 (msg==WM_LBUTTONDOWN || msg==WM_LBUTTONUP) ? 1 :
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
992 ((msg==WM_RBUTTONDOWN || msg==WM_RBUTTONUP) ? 3 : 2);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
993 event->event.button.x = where.x;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
994 event->event.button.y = where.y;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
995 event->event.button.modifiers = mswindows_modifier_state (NULL, mods, 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
996
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
997 if (downp)
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 event->event_type = button_press_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1000 SetCapture (hwnd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1001 /* we need this to make sure the main window regains the focus
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1002 from control subwindows */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1003 if (GetFocus() != hwnd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1004 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1005 SetFocus (hwnd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1006 mswindows_enqueue_magic_event (hwnd, WM_SETFOCUS);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1007 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1008 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1009 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1010 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1011 event->event_type = button_release_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1012 ReleaseCapture ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1013 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1014
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1015 mswindows_enqueue_dispatch_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1016 }
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 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1019 mswindows_enqueue_keypress_event (HWND hwnd, Lisp_Object keysym, int mods)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1020 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1021 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1022 Lisp_Event* event = XEVENT(emacs_event);
428
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 event->channel = mswindows_find_console(hwnd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1025 event->timestamp = GetMessageTime();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1026 event->event_type = key_press_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1027 event->event.key.keysym = keysym;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1028 event->event.key.modifiers = mods;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1029 mswindows_enqueue_dispatch_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1030 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1031
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 * Remove and return the first emacs event on the dispatch queue.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1034 * Give a preference to user events over non-user ones.
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 static Lisp_Object
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1037 mswindows_dequeue_dispatch_event (void)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1038 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1039 Lisp_Object event;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1040 Lisp_Event* sevt;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1041
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1042 assert (!NILP(mswindows_u_dispatch_event_queue) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1043 !NILP(mswindows_s_dispatch_event_queue));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1044
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1045 event = dequeue_event (
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1046 NILP(mswindows_u_dispatch_event_queue) ?
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1047 &mswindows_s_dispatch_event_queue :
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1048 &mswindows_u_dispatch_event_queue,
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1049 NILP(mswindows_u_dispatch_event_queue) ?
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1050 &mswindows_s_dispatch_event_queue_tail :
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1051 &mswindows_u_dispatch_event_queue_tail);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1052
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
1053 sevt = XEVENT (event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1054 if (sevt->event_type == key_press_event
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1055 && (sevt->event.key.modifiers & FAKE_MOD_QUIT))
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
1056 sevt->event.key.modifiers &=
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
1057 ~(FAKE_MOD_QUIT | FAKE_MOD_QUIT_CRITICAL);
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 return event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1060 }
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 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1063 * 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
1064 * the supplied event.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1065 * 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
1066 * Keypress event matches if logical AND between modifiers bitmask of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1067 * 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
1068 * For all other event types, this function aborts.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1069 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1070
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1071 Lisp_Object
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1072 mswindows_cancel_dispatch_event (Lisp_Event *match)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1073 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1074 Lisp_Object event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1075 Lisp_Object previous_event = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1076 int user_p = mswindows_user_event_p (match);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1077 Lisp_Object* head = user_p ? &mswindows_u_dispatch_event_queue :
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1078 &mswindows_s_dispatch_event_queue;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1079 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
1080 &mswindows_s_dispatch_event_queue_tail;
428
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 assert (match->event_type == timeout_event
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1083 || match->event_type == key_press_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1084
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1085 EVENT_CHAIN_LOOP (event, *head)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1086 {
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1087 Lisp_Event *e = XEVENT (event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1088 if ((e->event_type == match->event_type) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1089 ((e->event_type == timeout_event) ?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1090 (e->event.timeout.interval_id == match->event.timeout.interval_id) :
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1091 /* Must be key_press_event */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1092 ((e->event.key.modifiers & match->event.key.modifiers) != 0)))
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 if (NILP (previous_event))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1095 dequeue_event (head, tail);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1096 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1097 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1098 XSET_EVENT_NEXT (previous_event, XEVENT_NEXT (event));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1099 if (EQ (*tail, event))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1100 *tail = previous_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1101 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1102
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1103 return 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 previous_event = event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1106 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1107 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1108 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1109
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1110 #ifndef HAVE_MSG_SELECT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1111 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1112 /* Waitable handles manipulation */
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 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1115 find_waitable_handle (HANDLE h)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1116 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1117 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1118 for (i = 0; i < mswindows_waitable_count; ++i)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1119 if (mswindows_waitable_handles[i] == h)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1120 return i;
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 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1123 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1124
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1125 static BOOL
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1126 add_waitable_handle (HANDLE h)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1127 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1128 assert (find_waitable_handle (h) < 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1129 if (mswindows_waitable_count == MAX_WAITABLE)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1130 return FALSE;
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 mswindows_waitable_handles [mswindows_waitable_count++] = h;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1133 return TRUE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1134 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1135
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1136 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1137 remove_waitable_handle (HANDLE h)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1138 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1139 int ix = find_waitable_handle (h);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1140 if (ix < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1141 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1142
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1143 mswindows_waitable_handles [ix] =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1144 mswindows_waitable_handles [--mswindows_waitable_count];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1145 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1146 #endif /* HAVE_MSG_SELECT */
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1149 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1150 /* Event pump */
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1153 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1154 mswindows_modal_loop_error_handler (Lisp_Object cons_sig_data,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1155 Lisp_Object u_n_u_s_e_d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1156 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1157 mswindows_error_caught_in_modal_loop = cons_sig_data;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1158 return Qunbound;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1159 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1160
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1161 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1162 mswindows_protect_modal_loop (Lisp_Object (*bfun) (Lisp_Object barg),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1163 Lisp_Object barg)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1164 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1165 Lisp_Object tmp;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1166
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1167 ++mswindows_in_modal_loop;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1168 tmp = condition_case_1 (Qt,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1169 bfun, barg,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1170 mswindows_modal_loop_error_handler, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1171 --mswindows_in_modal_loop;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1172
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1173 return tmp;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1174 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1175
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1176 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1177 mswindows_unmodalize_signal_maybe (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1178 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1179 if (!NILP (mswindows_error_caught_in_modal_loop))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1180 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1181 /* Got an error while messages were pumped while
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1182 in window procedure - have to resignal */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1183 Lisp_Object sym = XCAR (mswindows_error_caught_in_modal_loop);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1184 Lisp_Object data = XCDR (mswindows_error_caught_in_modal_loop);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1185 mswindows_error_caught_in_modal_loop = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1186 Fsignal (sym, data);
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1189
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1190 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1191 * This is an unsafe part of event pump, guarded by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1192 * condition_case. See mswindows_pump_outstanding_events
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1193 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1194 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1195 mswindows_unsafe_pump_events (Lisp_Object u_n_u_s_e_d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1196 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1197 /* This function can call lisp */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1198 Lisp_Object event = Fmake_event (Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1199 struct gcpro gcpro1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1200 int do_redisplay = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1201 GCPRO1 (event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1202
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1203 while (detect_input_pending ())
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1204 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1205 Fnext_event (event, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1206 Fdispatch_event (event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1207 do_redisplay = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1208 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1209
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1210 if (do_redisplay)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1211 redisplay ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1212
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1213 Fdeallocate_event (event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1214 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1215
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1216 /* Qt becomes return value of mswindows_pump_outstanding_events
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1217 once we get here */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1218 return Qt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1219 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1220
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1221 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1222 * This function pumps emacs events, while available, by using
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1223 * next_message/dispatch_message loop. Errors are trapped around
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1224 * the loop so the function always returns.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1225 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1226 * Windows message queue is not looked into during the call,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1227 * neither are waitable handles checked. The function pumps
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1228 * thus only dispatch events already queued, as well as those
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1229 * resulted in dispatching thereof. This is done by setting
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1230 * module local variable mswindows_in_modal_loop to nonzero.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1231 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1232 * Return value is Qt if no errors was trapped, or Qunbound if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1233 * there was an error.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1234 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1235 * In case of error, a cons representing the error, in the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1236 * form (SIGNAL . DATA), is stored in the module local variable
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1237 * mswindows_error_caught_in_modal_loop. This error is signaled
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1238 * again when DispatchMessage returns. Thus, Windows internal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1239 * modal loops are protected against throws, which are proven
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1240 * to corrupt internal Windows structures.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1241 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1242 * In case of success, mswindows_error_caught_in_modal_loop is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1243 * assigned Qnil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1244 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1245 * If the value of mswindows_error_caught_in_modal_loop is not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1246 * nil already upon entry, the function just returns non-nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1247 * This situation means that a new event has been queued while
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1248 * in cancel mode. The event will be dequeued on the next regular
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1249 * call of next-event; the pump is off since error is caught.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1250 * The caller must *unconditionally* cancel modal loop if the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1251 * value returned by this function is nil. Otherwise, everything
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1252 * will become frozen until the modal loop exits under normal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1253 * condition (scrollbar drag is released, menu closed etc.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1254 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1255 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1256 mswindows_pump_outstanding_events (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1257 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1258 /* This function can call lisp */
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 Lisp_Object result = Qt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1261 struct gcpro gcpro1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1262 GCPRO1 (result);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1263
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1264 if (NILP(mswindows_error_caught_in_modal_loop))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1265 result = mswindows_protect_modal_loop (mswindows_unsafe_pump_events, Qnil);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1266 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1267 return result;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1268 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1269
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1270 /*
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1271 * 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
1272 * QUITP, and are interesting in keyboard messages only.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1273 */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1274 static void
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1275 mswindows_drain_windows_queue (void)
428
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 MSG msg;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1278
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1279 /* 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
1280 assert (!mswindows_in_modal_loop);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1281
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1282 while (PeekMessage (&msg, NULL, 0, 0, PM_REMOVE))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1283 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1284 char class_name_buf [sizeof (XEMACS_CLASS) + 2] = "";
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1285
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1286 /* Don't translate messages destined for a dialog box, this
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1287 makes keyboard traversal work. I think?? */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1288 if (mswindows_is_dialog_msg (&msg))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1289 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1290 mswindows_unmodalize_signal_maybe ();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1291 continue;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1292 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1293
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1294 /* 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
1295 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
1296 edit fields. However, we *musn't* translate message for XEmacs
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1297 frames as this is handled in the wnd proc.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1298 We also have to avoid generating paint magic events for windows
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1299 that aren't XEmacs frames */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1300 /* GetClassName will truncate a longer class name. By adding one
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1301 extra character, we are forcing textual comparison to fail
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1302 if the name is longer than XEMACS_CLASS */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1303
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1304 GetClassName (msg.hwnd, class_name_buf, sizeof (class_name_buf) - 1);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1305 if (stricmp (class_name_buf, XEMACS_CLASS) != 0)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1306 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1307 /* Not an XEmacs frame */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1308 TranslateMessage (&msg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1309 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1310 else if (msg.message == WM_PAINT)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1311 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1312 struct mswindows_frame* msframe;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1313
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1314 /* 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
1315 shouldn't have received a paint message for it here. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1316 assert (msg.wParam == 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1317
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1318 /* Queue a magic event for handling when safe */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1319 msframe =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1320 FRAME_MSWINDOWS_DATA (XFRAME (mswindows_find_frame (msg.hwnd)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1321 if (!msframe->paint_pending)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1322 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1323 msframe->paint_pending = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1324 mswindows_enqueue_magic_event (msg.hwnd, WM_PAINT);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1325 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1326 /* 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
1327 queue so it's OK to just return. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1328 return;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1329 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1330 DispatchMessage (&msg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1331 mswindows_unmodalize_signal_maybe ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1332 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1333 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1334
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1335 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1336 * This is a special flavor of the mswindows_need_event function,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1337 * used while in event pump. Actually, there is only kind of events
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1338 * allowed while in event pump: a timer. An attempt to fetch any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1339 * 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
1340 * ('cause event pump mirrors windows modal loop, which is a sole
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1341 * owner of thread message queue).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1342 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1343 * To detect this, we use a counter of active timers, and allow
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1344 * fetching WM_TIMER messages. Instead of trying to fetch a WM_TIMER
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1345 * which will never come when there are no pending timers, which leads
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1346 * to deadlock, we simply signal an error.
487
54fa1a5c2d12 [xemacs-hg @ 2001-04-28 07:48:36 by ben]
ben
parents: 464
diff changeset
1347 *
54fa1a5c2d12 [xemacs-hg @ 2001-04-28 07:48:36 by ben]
ben
parents: 464
diff changeset
1348 * 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
1349 * 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
1350 * whether the result would be more complex than is justified.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1351 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1352 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1353 mswindows_need_event_in_modal_loop (int badly_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1354 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1355 MSG msg;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1356
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1357 /* Check if already have one */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1358 if (!NILP (mswindows_u_dispatch_event_queue)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1359 || !NILP (mswindows_s_dispatch_event_queue))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1360 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1361
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1362 /* No event is ok */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1363 if (!badly_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1364 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1365
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1366 /* We do not check the _u_ queue, because timers go to _s_ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1367 while (NILP (mswindows_s_dispatch_event_queue))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1368 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1369 /* We'll deadlock if go waiting */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1370 if (mswindows_pending_timers_count == 0)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 560
diff changeset
1371 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
1372
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1373 /* Fetch and dispatch any pending timers */
487
54fa1a5c2d12 [xemacs-hg @ 2001-04-28 07:48:36 by ben]
ben
parents: 464
diff changeset
1374 if (GetMessage (&msg, NULL, WM_TIMER, WM_TIMER) > 0)
534
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1375 DispatchMessage (&msg);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1376 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1377 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1378
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1379 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1380 * This drains the event queue and fills up two internal queues until
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1381 * an event of a type specified by USER_P is retrieved.
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 * Used by emacs_mswindows_event_pending_p and emacs_mswindows_next_event
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1385 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1386 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1387 mswindows_need_event (int badly_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1388 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1389 int active;
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 while (NILP (mswindows_u_dispatch_event_queue)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1392 && NILP (mswindows_s_dispatch_event_queue))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1393 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1394 #ifdef HAVE_MSG_SELECT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1395 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1396 SELECT_TYPE temp_mask = input_wait_mask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1397 EMACS_TIME sometime;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1398 EMACS_SELECT_TIME select_time_to_block, *pointer_to_this;
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 if (badly_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1401 pointer_to_this = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1402 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1403 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1404 EMACS_SET_SECS_USECS (sometime, 0, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1405 EMACS_TIME_TO_SELECT_TIME (sometime, select_time_to_block);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1406 pointer_to_this = &select_time_to_block;
534
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1407 if (mswindows_in_modal_loop)
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1408 /* 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
1409 Windows events. */
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1410 FD_CLR (windows_fd, &temp_mask);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1411 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1412
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1413 active = select (MAXDESC, &temp_mask, 0, 0, pointer_to_this);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1414
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1415 if (active == 0)
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 assert (!badly_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1418 return; /* timeout */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1419 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1420 else if (active > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1421 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1422 if (FD_ISSET (windows_fd, &temp_mask))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1423 {
534
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1424 if (mswindows_in_modal_loop)
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1425 mswindows_need_event_in_modal_loop (badly_p);
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1426 else
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1427 mswindows_drain_windows_queue ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1428 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1429 else
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1430 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1431 #ifdef HAVE_TTY
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1432 /* Look for a TTY event */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1433 for (i = 0; i < MAXDESC-1; i++)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1434 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1435 /* To avoid race conditions (among other things, an infinite
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1436 loop when called from Fdiscard_input()), we must return
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1437 user events ahead of process events. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1438 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
1439 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1440 struct console *c = tty_find_console_from_fd (i);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1441 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1442 Lisp_Event* event = XEVENT (emacs_event);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1443
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1444 assert (c);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1445 if (read_event_from_tty_or_stream_desc (event, c, i))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1446 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1447 mswindows_enqueue_dispatch_event (emacs_event);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1448 return;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1449 }
428
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1452 #endif
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1453 /* Look for a process event */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1454 for (i = 0; i < MAXDESC-1; i++)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1455 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1456 if (FD_ISSET (i, &temp_mask))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1457 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1458 if (FD_ISSET (i, &process_only_mask))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1459 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1460 Lisp_Process *p =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1461 get_process_from_usid (FD_TO_USID(i));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1462
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1463 mswindows_enqueue_process_event (p);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1464 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1465 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1466 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1467 /* We might get here when a fake event came
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1468 through a signal. Return a dummy event, so
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1469 that a cycle of the command loop will
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1470 occur. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1471 drain_signal_event_pipe ();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1472 mswindows_enqueue_magic_event (NULL, XM_BUMPQUEUE);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1473 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1474 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1475 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1476 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1477 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1478 else if (active==-1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1479 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1480 if (errno != EINTR)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1481 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1482 /* something bad happened */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1483 assert(0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1484 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1485 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1486 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1487 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1488 assert(0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1489 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1490 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1491 /* Now try getting a message or process event */
487
54fa1a5c2d12 [xemacs-hg @ 2001-04-28 07:48:36 by ben]
ben
parents: 464
diff changeset
1492 DWORD what_events;
54fa1a5c2d12 [xemacs-hg @ 2001-04-28 07:48:36 by ben]
ben
parents: 464
diff changeset
1493 if (mswindows_in_modal_loop)
534
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1494 /* 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
1495 we really need one. */
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1496 {
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1497 if (badly_p)
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1498 what_events = QS_TIMER;
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1499 else
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1500 what_events = 0;
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1501 }
487
54fa1a5c2d12 [xemacs-hg @ 2001-04-28 07:48:36 by ben]
ben
parents: 464
diff changeset
1502 else
534
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1503 /* Look for any event */
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1504 what_events = QS_ALLINPUT;
487
54fa1a5c2d12 [xemacs-hg @ 2001-04-28 07:48:36 by ben]
ben
parents: 464
diff changeset
1505
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1506 active = MsgWaitForMultipleObjects (mswindows_waitable_count,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1507 mswindows_waitable_handles,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1508 FALSE, badly_p ? INFINITE : 0,
534
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1509 what_events);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1510
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1511 /* This will assert if handle being waited for becomes abandoned.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1512 Not the case currently tho */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1513 assert ((!badly_p && active == WAIT_TIMEOUT) ||
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1514 (active >= WAIT_OBJECT_0 &&
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1515 active <= WAIT_OBJECT_0 + mswindows_waitable_count));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1516
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1517 if (active == WAIT_TIMEOUT)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1518 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1519 /* No luck trying - just return what we've already got */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1520 return;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1521 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1522 else if (active == WAIT_OBJECT_0 + mswindows_waitable_count)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1523 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1524 /* Got your message, thanks */
534
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1525 if (mswindows_in_modal_loop)
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1526 mswindows_need_event_in_modal_loop (badly_p);
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1527 else
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1528 mswindows_drain_windows_queue ();
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1529 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1530 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1531 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1532 int ix = active - WAIT_OBJECT_0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1533 /* First, try to find which process' output has signaled */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1534 Lisp_Process *p =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1535 get_process_from_usid (HANDLE_TO_USID (mswindows_waitable_handles[ix]));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1536 if (p != NULL)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1537 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1538 /* Found a signaled process input handle */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1539 mswindows_enqueue_process_event (p);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1540 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1541 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1542 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1543 /* None. This means that the process handle itself has signaled.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1544 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
1545 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
1546 possible. */
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1547 LIST_LOOP_3 (vaffanculo, Vprocess_list, vproctail)
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1548 if (get_nt_process_handle (XPROCESS (vaffanculo)) ==
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1549 mswindows_waitable_handles [ix])
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1550 break;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1551 mswindows_waitable_handles [ix] =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1552 mswindows_waitable_handles [--mswindows_waitable_count];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1553 kick_status_notify ();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1554 /* We need to return a process event here so that
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1555 (1) accept-process-output will return when called on this
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1556 process, and (2) status notifications will happen in
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1557 accept-process-output, sleep-for, and sit-for. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1558 /* #### horrible kludge till my real process fixes go in.
534
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1559 #### Replaced with a slightly less horrible kluge that
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1560 at least finds the right process instead of axing the
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1561 first one on the list.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1562 */
534
a0266879cecf [xemacs-hg @ 2001-05-14 04:16:17 by mta]
mta
parents: 531
diff changeset
1563 if (!NILP (vproctail))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1564 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1565 mswindows_enqueue_process_event (XPROCESS (vaffanculo));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1566 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1567 else /* trash me soon. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1568 /* Have to return something: there may be no accompanying
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1569 process event */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1570 mswindows_enqueue_magic_event (NULL, XM_BUMPQUEUE);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1571 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1572 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1573 #endif
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1574 } /* while */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1575 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1576
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1577 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1578 /* Event generators */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1579 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1580
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1581 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1582 * Callback procedure for synchronous timer messages
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1583 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1584 static void CALLBACK
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1585 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
1586 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1587 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1588 Lisp_Event *event = XEVENT (emacs_event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1589
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1590 if (KillTimer (NULL, id_timer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1591 --mswindows_pending_timers_count;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1592
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1593 event->channel = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1594 event->timestamp = dwtime;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1595 event->event_type = timeout_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1596 event->event.timeout.interval_id = id_timer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1597 event->event.timeout.function = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1598 event->event.timeout.object = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1599
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1600 mswindows_enqueue_dispatch_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1601 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1602
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1603 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1604 * Callback procedure for dde messages
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1605 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1606 * 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
1607 * depends on dnd support.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1608 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1609 #ifdef HAVE_DRAGNDROP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1610 HDDEDATA CALLBACK
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1611 mswindows_dde_callback (UINT uType, UINT uFmt, HCONV hconv,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1612 HSZ hszTopic, HSZ hszItem, HDDEDATA hdata,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1613 DWORD dwData1, DWORD dwData2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1614 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1615 switch (uType)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1616 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1617 case XTYP_CONNECT:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1618 if (!DdeCmpStringHandles (hszTopic, mswindows_dde_topic_system))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1619 return (HDDEDATA)TRUE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1620 return (HDDEDATA)FALSE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1621
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1622 case XTYP_WILDCONNECT:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1623 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1624 /* We only support one {service,topic} pair */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1625 HSZPAIR pairs[2] = {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1626 { mswindows_dde_service, mswindows_dde_topic_system }, { 0, 0 } };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1627
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1628 if (!(hszItem || DdeCmpStringHandles (hszItem, mswindows_dde_service)) &&
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1629 !(hszTopic || DdeCmpStringHandles (hszTopic, mswindows_dde_topic_system)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1630 return (DdeCreateDataHandle (mswindows_dde_mlid, (LPBYTE)pairs,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1631 sizeof (pairs), 0L, 0, uFmt, 0));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1632 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1633 return (HDDEDATA)NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1634
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1635 case XTYP_EXECUTE:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1636 if (!DdeCmpStringHandles (hszTopic, mswindows_dde_topic_system))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1637 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1638 DWORD len = DdeGetData (hdata, NULL, 0, 0);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1639 LPBYTE cmd = (LPBYTE) alloca (len+1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1640 char *end;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1641 char *filename;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1642 struct gcpro gcpro1, gcpro2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1643 Lisp_Object l_dndlist = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1644 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1645 Lisp_Object frmcons, devcons, concons;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1646 Lisp_Event *event = XEVENT (emacs_event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1647
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1648 DdeGetData (hdata, cmd, len, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1649 cmd[len] = '\0';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1650 DdeFreeDataHandle (hdata);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1651
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1652 /* Check syntax & that it's an [Open("foo")] command, which we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1653 * treat like a file drop */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1654 /* #### Ought to be generalised and accept some other commands */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1655 if (*cmd == '[')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1656 cmd++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1657 if (strnicmp (cmd, MSWINDOWS_DDE_ITEM_OPEN,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1658 strlen (MSWINDOWS_DDE_ITEM_OPEN)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1659 return DDE_FNOTPROCESSED;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1660 cmd += strlen (MSWINDOWS_DDE_ITEM_OPEN);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1661 while (*cmd==' ')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1662 cmd++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1663 if (*cmd!='(' || *(cmd+1)!='\"')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1664 return DDE_FNOTPROCESSED;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1665 end = (cmd+=2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1666 while (*end && *end!='\"')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1667 end++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1668 if (!*end)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1669 return DDE_FNOTPROCESSED;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1670 *end = '\0';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1671 if (*(++end)!=')')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1672 return DDE_FNOTPROCESSED;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1673 if (*(++end)==']')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1674 end++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1675 if (*end)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1676 return DDE_FNOTPROCESSED;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1677
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1678 #ifdef CYGWIN
531
0493e9f3c27f [xemacs-hg @ 2001-05-12 11:16:12 by ben]
ben
parents: 502
diff changeset
1679 filename = alloca (cygwin_win32_to_posix_path_list_buf_size (cmd) + 5);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1680 strcpy (filename, "file:");
531
0493e9f3c27f [xemacs-hg @ 2001-05-12 11:16:12 by ben]
ben
parents: 502
diff changeset
1681 cygwin_win32_to_posix_path_list (cmd, filename+5);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1682 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1683 dostounix_filename (cmd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1684 filename = alloca (strlen (cmd)+6);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1685 strcpy (filename, "file:");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1686 strcat (filename, cmd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1687 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1688 GCPRO2 (emacs_event, l_dndlist);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1689 l_dndlist = make_string (filename, strlen (filename));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1690
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1691 /* Find a mswindows frame */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1692 event->channel = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1693 FRAME_LOOP_NO_BREAK (frmcons, devcons, concons)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1694 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1695 Lisp_Object frame = XCAR (frmcons);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1696 if (FRAME_TYPE_P (XFRAME (frame), mswindows))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1697 event->channel = frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1698 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1699 assert (!NILP (event->channel));
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 event->timestamp = GetTickCount();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1702 event->event_type = misc_user_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1703 event->event.misc.button = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1704 event->event.misc.modifiers = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1705 event->event.misc.x = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1706 event->event.misc.y = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1707 event->event.misc.function = Qdragdrop_drop_dispatch;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1708 event->event.misc.object = Fcons (Qdragdrop_URL,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1709 Fcons (l_dndlist, Qnil));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1710 mswindows_enqueue_dispatch_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1711 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1712 return (HDDEDATA) DDE_FACK;
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 DdeFreeDataHandle (hdata);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1715 return (HDDEDATA) DDE_FNOTPROCESSED;
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 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1718 return (HDDEDATA) NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1719 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1720 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1721 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1722
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1723 /*
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1724 * Helper to do repainting - repaints can happen both from the windows
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1725 * procedure and from magic events
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1726 */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1727 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1728 mswindows_handle_paint (struct frame *frame)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1729 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1730 HWND hwnd = FRAME_MSWINDOWS_HANDLE (frame);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1731
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1732 /* According to the docs we need to check GetUpdateRect() before
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1733 actually doing a WM_PAINT */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1734 if (GetUpdateRect (hwnd, NULL, FALSE))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1735 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1736 PAINTSTRUCT paintStruct;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1737 int x, y, width, height;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1738
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1739 BeginPaint (hwnd, &paintStruct);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1740 x = paintStruct.rcPaint.left;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1741 y = paintStruct.rcPaint.top;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1742 width = paintStruct.rcPaint.right - paintStruct.rcPaint.left;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1743 height = paintStruct.rcPaint.bottom - paintStruct.rcPaint.top;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1744 /* Normally we want to ignore expose events when child
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1745 windows are unmapped, however once we are in the guts of
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1746 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
1747 unmaps then because they will not actually occur. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1748 /* #### commenting out the next line seems to fix some problems
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1749 but not all. only andy currently understands this stuff and
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1750 he needs to review it more carefully. --ben */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1751 if (!check_for_ignored_expose (frame, x, y, width, height))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1752 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1753 hold_ignored_expose_registration = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1754 mswindows_redraw_exposed_area (frame, x, y, width, height);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1755 hold_ignored_expose_registration = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1756 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1757 EndPaint (hwnd, &paintStruct);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1758 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1759 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1760
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1761 /*
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1762 * 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
1763 * is better handled by DefWindowProc
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1764 */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1765 static int
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1766 key_needs_default_processing_p (UINT vkey)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1767 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1768 if (mswindows_alt_by_itself_activates_menu && vkey == VK_MENU
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1769 /* 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
1770 keystrokes become impossible. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1771 && !modifier_keys_are_sticky)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1772 return 1;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1773
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1774 return 0;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1775 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1776
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1777 /* 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
1778 that way.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1779
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1780 #### Most of the sticky-modifier code below is copied from similar
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1781 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
1782
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1783 Here are some pointers:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1784
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1785 -- DOWN_MASK indicates which modifiers should be treated as "down"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1786 when the corresponding upstroke happens. It gets reset for
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1787 a particular modifier when that modifier goes up, and reset
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1788 for all modifiers when a non-modifier key is pressed. Example:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1789
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1790 I press Control-A-Shift and then release Control-A-Shift.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1791 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
1792
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1793 -- 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
1794 the modifier key again. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1795
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1796 static WPARAM last_downkey;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1797 static int need_to_add_mask, down_mask;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1798
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1799 #define XEMSW_LCONTROL (1<<0)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1800 #define XEMSW_RCONTROL (1<<1)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1801 #define XEMSW_LSHIFT (1<<2)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1802 #define XEMSW_RSHIFT (1<<3)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1803 #define XEMSW_LMENU (1<<4)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1804 #define XEMSW_RMENU (1<<5)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1805
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1806 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1807 mswindows_handle_sticky_modifiers (WPARAM wParam, LPARAM lParam,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1808 int downp, int keyp)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1809 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1810 int mods = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1811
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1812 if (!modifier_keys_are_sticky) /* Optimize for non-sticky modifiers */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1813 return 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1814
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1815 if (! (keyp &&
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1816 (wParam == VK_CONTROL || wParam == VK_LCONTROL ||
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1817 wParam == VK_RCONTROL ||
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1818 wParam == VK_MENU || wParam == VK_LMENU ||
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1819 wParam == VK_RMENU ||
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1820 wParam == VK_SHIFT || wParam == VK_LSHIFT ||
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1821 wParam == VK_RSHIFT)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1822 { /* Not a modifier key */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1823 if (downp && keyp && !last_downkey)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1824 last_downkey = wParam;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1825 /* 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
1826 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
1827 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
1828 manually press the Right arrow a bunch of times, I want
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1829 to see one Control-Right and then a bunch of Rights.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1830 This means that we need to distinguish between an
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1831 auto-repeated key and a key pressed and released a bunch
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1832 of times. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1833 else if ((downp && !keyp) ||
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1834 (downp && keyp && last_downkey &&
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1835 (wParam != last_downkey ||
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1836 /* the "previous key state" bit indicates autorepeat */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1837 ! (lParam & (1 << 30)))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1838 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1839 need_to_add_mask = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1840 last_downkey = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1841 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1842 if (downp)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1843 down_mask = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1844
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1845 mods = need_to_add_mask;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1846 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1847 else /* Modifier key pressed */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1848 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1849 /* 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
1850 of modifiers, then it unsticks all the modifiers that were
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1851 previously pressed. We cannot unstick the modifiers until
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1852 now because we want to check for auto-repeat of the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1853 non-modifier key. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1854
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1855 if (last_downkey)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1856 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1857 last_downkey = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1858 need_to_add_mask = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1859 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1860
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1861 #define FROB(mask) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1862 do { \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1863 if (downp && keyp) \
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 /* If modifier key is already sticky, \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1866 then unstick it. Note that we do \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1867 not test down_mask to deal with the \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1868 unlikely but possible case that the \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1869 modifier key auto-repeats. */ \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1870 if (need_to_add_mask & mask) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1871 { \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1872 need_to_add_mask &= ~mask; \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1873 down_mask &= ~mask; \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1874 } \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1875 else \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1876 down_mask |= mask; \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1877 } \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1878 else \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1879 { \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1880 if (down_mask & mask) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1881 { \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1882 down_mask &= ~mask; \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1883 need_to_add_mask |= mask; \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1884 } \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1885 } \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1886 } while (0)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1887
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1888 if ((wParam == VK_CONTROL && (lParam & 0x1000000))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1889 || wParam == VK_RCONTROL)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1890 FROB (XEMSW_RCONTROL);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1891 if ((wParam == VK_CONTROL && !(lParam & 0x1000000))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1892 || wParam == VK_LCONTROL)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1893 FROB (XEMSW_LCONTROL);
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 if ((wParam == VK_SHIFT && (lParam & 0x1000000))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1896 || wParam == VK_RSHIFT)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1897 FROB (XEMSW_RSHIFT);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1898 if ((wParam == VK_SHIFT && !(lParam & 0x1000000))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1899 || wParam == VK_LSHIFT)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1900 FROB (XEMSW_LSHIFT);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1901
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1902 if ((wParam == VK_MENU && (lParam & 0x1000000))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1903 || wParam == VK_RMENU)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1904 FROB (XEMSW_RMENU);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1905 if ((wParam == VK_MENU && !(lParam & 0x1000000))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1906 || wParam == VK_LMENU)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1907 FROB (XEMSW_LMENU);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1908 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1909 #undef FROB
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1910
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1911 if (mods && downp)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1912 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1913 BYTE keymap[256];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1914
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1915 GetKeyboardState (keymap);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1916
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1917 if (mods & XEMSW_LCONTROL)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1918 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1919 keymap [VK_CONTROL] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1920 keymap [VK_LCONTROL] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1921 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1922 if (mods & XEMSW_RCONTROL)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1923 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1924 keymap [VK_CONTROL] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1925 keymap [VK_RCONTROL] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1926 }
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 if (mods & XEMSW_LSHIFT)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1929 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1930 keymap [VK_SHIFT] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1931 keymap [VK_LSHIFT] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1932 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1933 if (mods & XEMSW_RSHIFT)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1934 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1935 keymap [VK_SHIFT] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1936 keymap [VK_RSHIFT] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1937 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1938
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1939 if (mods & XEMSW_LMENU)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1940 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1941 keymap [VK_MENU] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1942 keymap [VK_LMENU] |= 0x80;
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 if (mods & XEMSW_RMENU)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1945 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1946 keymap [VK_MENU] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1947 keymap [VK_RMENU] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1948 }
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 SetKeyboardState (keymap);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1951 return 1;
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
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1954 return 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1955 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1956
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1957 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1958 clear_sticky_modifiers (void)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1959 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1960 need_to_add_mask = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1961 last_downkey = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1962 down_mask = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1963 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1964
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1965 #ifdef DEBUG_XEMACS
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1966
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1967 #if 0
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1968
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1969 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1970 output_modifier_keyboard_state (void)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1971 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1972 BYTE keymap[256];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1973
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1974 GetKeyboardState (keymap);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1975
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1976 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
1977 keymap[VK_MENU] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1978 keymap[VK_MENU] & 0x1 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1979 keymap[VK_LMENU] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1980 keymap[VK_LMENU] & 0x1 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1981 keymap[VK_RMENU] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1982 keymap[VK_RMENU] & 0x1 ? 1 : 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1983 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
1984 keymap[VK_CONTROL] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1985 keymap[VK_CONTROL] & 0x1 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1986 keymap[VK_LCONTROL] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1987 keymap[VK_LCONTROL] & 0x1 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1988 keymap[VK_RCONTROL] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1989 keymap[VK_RCONTROL] & 0x1 ? 1 : 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1990 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
1991 keymap[VK_SHIFT] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1992 keymap[VK_SHIFT] & 0x1 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1993 keymap[VK_LSHIFT] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1994 keymap[VK_LSHIFT] & 0x1 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1995 keymap[VK_RSHIFT] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1996 keymap[VK_RSHIFT] & 0x1 ? 1 : 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 #endif
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2000
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2001 /* try to debug the stuck-alt-key problem.
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 #### this happens only inconsistently, and may only happen when using
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2004 StickyKeys in the Win2000 accessibility section of the control panel,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2005 which is extremely broken for other reasons. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2006
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2007 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2008 output_alt_keyboard_state (void)
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 BYTE keymap[256];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2011 SHORT keystate[3];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2012 // SHORT asyncstate[3];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2013
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2014 GetKeyboardState (keymap);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2015 keystate[0] = GetKeyState (VK_MENU);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2016 keystate[1] = GetKeyState (VK_LMENU);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2017 keystate[2] = GetKeyState (VK_RMENU);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2018 /* Doing this interferes with key processing. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2019 /* asyncstate[0] = GetAsyncKeyState (VK_MENU); */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2020 /* asyncstate[1] = GetAsyncKeyState (VK_LMENU); */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2021 /* asyncstate[2] = GetAsyncKeyState (VK_RMENU); */
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 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
2024 keymap[VK_MENU] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2025 keymap[VK_MENU] & 0x1 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2026 keymap[VK_LMENU] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2027 keymap[VK_LMENU] & 0x1 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2028 keymap[VK_RMENU] & 0x80 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2029 keymap[VK_RMENU] & 0x1 ? 1 : 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2030 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
2031 keystate[0] & 0x8000 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2032 keystate[0] & 0x1 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2033 keystate[1] & 0x8000 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2034 keystate[1] & 0x1 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2035 keystate[2] & 0x8000 ? 1 : 0,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2036 keystate[2] & 0x1 ? 1 : 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2037 /* 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
2038 /* asyncstate[0] & 0x8000 ? 1 : 0, */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2039 /* asyncstate[0] & 0x1 ? 1 : 0, */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2040 /* asyncstate[1] & 0x8000 ? 1 : 0, */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2041 /* asyncstate[1] & 0x1 ? 1 : 0, */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2042 /* asyncstate[2] & 0x8000 ? 1 : 0, */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2043 /* asyncstate[2] & 0x1 ? 1 : 0); */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2044 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2045
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2046 #endif /* DEBUG_XEMACS */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2047
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2048
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2049 /*
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2050 * The windows procedure for the window class XEMACS_CLASS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2051 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2052 LRESULT WINAPI
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2053 mswindows_wnd_proc (HWND hwnd, UINT message_, WPARAM wParam, LPARAM lParam)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2054 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2055 /* Note: Remember to initialize emacs_event and event before use.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2056 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
2057 Lisp_Object emacs_event = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2058 Lisp_Object fobj = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2059
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2060 Lisp_Event *event;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2061 struct frame *frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2062 struct mswindows_frame* msframe;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2063
611
38db05db9cb5 [xemacs-hg @ 2001-06-08 12:21:09 by ben]
ben
parents: 604
diff changeset
2064 /* 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
2065 using register_post_gc_action(). */
38db05db9cb5 [xemacs-hg @ 2001-06-08 12:21:09 by ben]
ben
parents: 604
diff changeset
2066 assert (!gc_in_progress);
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2067
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2068 #ifdef DEBUG_XEMACS
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2069 if (debug_mswindows_events)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2070 debug_output_mswin_message (hwnd, message_, wParam, lParam);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2071 #endif /* DEBUG_XEMACS */
442
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 assert (!GetWindowLong (hwnd, GWL_USERDATA));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2074 switch (message_)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2075 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2076 case WM_DESTROYCLIPBOARD:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2077 /* We own the clipboard and someone else wants it. Delete our
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2078 cached copy of the clipboard contents so we'll ask for it from
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2079 Windows again when someone does a paste, and destroy any memory
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2080 objects we hold on the clipboard that are not in the list of types
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2081 that Windows will delete itself. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2082 mswindows_destroy_selection (QCLIPBOARD);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2083 handle_selection_clear (QCLIPBOARD);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2084 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2085
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2086 case WM_ERASEBKGND:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2087 /* Erase background only during non-dynamic sizing */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2088 msframe = FRAME_MSWINDOWS_DATA (XFRAME (mswindows_find_frame (hwnd)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2089 if (msframe->sizing && !mswindows_dynamic_frame_resize)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2090 goto defproc;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2091 return 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2092
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2093 case WM_CLOSE:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2094 fobj = mswindows_find_frame (hwnd);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2095 mswindows_enqueue_misc_user_event (fobj, Qeval, list3 (Qdelete_frame, fobj, Qt));
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2096 break;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2097
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2098 case WM_KEYUP:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2099 case WM_SYSKEYUP:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2100
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2101 /* See Win95 comment under WM_KEYDOWN */
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 BYTE keymap[256];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2104 int should_set_keymap = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2105
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2106 #ifdef DEBUG_XEMACS
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2107 if (debug_mswindows_events > 2)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2108 output_alt_keyboard_state ();
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2109 #endif /* DEBUG_XEMACS */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2110
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2111 mswindows_handle_sticky_modifiers (wParam, lParam, 0, 1);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2112 if (wParam == VK_CONTROL)
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 GetKeyboardState (keymap);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2115 keymap [(lParam & 0x1000000) ? VK_RCONTROL : VK_LCONTROL] &= ~0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2116 should_set_keymap = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2117 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2118 else if (wParam == VK_MENU)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2119 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2120 GetKeyboardState (keymap);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2121 keymap [(lParam & 0x1000000) ? VK_RMENU : VK_LMENU] &= ~0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2122 should_set_keymap = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2123 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2124
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2125 if (should_set_keymap)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2126 // && (message_ != WM_SYSKEYUP
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2127 // || NILP (Vmenu_accelerator_enabled)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2128 SetKeyboardState (keymap);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2129
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2130 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2131
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2132 if (key_needs_default_processing_p (wParam))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2133 goto defproc;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2134 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2135 break;
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 case WM_KEYDOWN:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2138 case WM_SYSKEYDOWN:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2139
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2140 /* 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
2141 * should produce alternative characters when combined with another key.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2142 * eg on a German keyboard pressing AltGr+q should produce '@'.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2143 * AltGr generates exactly the same keystrokes as LCtrl+RAlt. But if
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2144 * TranslateMessage() is called with *any* combination of Ctrl+Alt down,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2145 * it translates as if AltGr were down.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2146 * 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
2147 * calling TranslateMessage() unless AltGr is *really* down. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2148 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2149 BYTE keymap_trans[256];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2150 BYTE keymap_orig[256];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2151 BYTE keymap_sticky[256];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2152 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
2153 int mods = 0, mods_with_shift = 0;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2154 int extendedp = lParam & 0x1000000;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2155 Lisp_Object keysym;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2156 int sticky_changed;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2157
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2158 #ifdef DEBUG_XEMACS
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2159 if (debug_mswindows_events > 2)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2160 output_alt_keyboard_state ();
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2161 #endif /* DEBUG_XEMACS */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2162
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2163 GetKeyboardState (keymap_orig);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2164 frame = XFRAME (mswindows_find_frame (hwnd));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2165 if ((sticky_changed =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2166 mswindows_handle_sticky_modifiers (wParam, lParam, 1, 1)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2167 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2168 GetKeyboardState (keymap_sticky);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2169 if (keymap_sticky[VK_MENU] & 0x80)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2170 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2171 message_ = WM_SYSKEYDOWN;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2172 /* We have to set the "context bit" so that the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2173 TranslateMessage() call below that generates the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2174 SYSCHAR message does its thing; see the documentation
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2175 on WM_SYSKEYDOWN */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2176 lParam |= 1 << 29;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2177 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2178 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2179 else
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2180 memcpy (keymap_sticky, keymap_orig, 256);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2181
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2182 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
2183 mods_with_shift = mods;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2184
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2185 /* Handle non-printables */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2186 if (!NILP (keysym = mswindows_key_to_emacs_keysym (wParam, mods,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2187 extendedp)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2188 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2189 mswindows_enqueue_keypress_event (hwnd, keysym, mods);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2190 if (sticky_changed)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2191 SetKeyboardState (keymap_orig);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2192 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2193 else /* Normal keys & modifiers */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2194 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2195 Emchar quit_ch =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2196 CONSOLE_QUIT_CHAR (XCONSOLE (mswindows_find_console (hwnd)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2197 POINT pnt = { LOWORD (GetMessagePos()), HIWORD (GetMessagePos()) };
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2198 MSG msg, tranmsg;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2199 int potential_accelerator = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2200 int got_accelerator = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2201
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2202 msg.hwnd = hwnd;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2203 msg.message = message_;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2204 msg.wParam = wParam;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2205 msg.lParam = lParam;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2206 msg.time = GetMessageTime();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2207 msg.pt = pnt;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2208
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2209 /* GetKeyboardState() does not work as documented on Win95. We have
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2210 * 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
2211 * without screwing up Windows NT which tracks them properly. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2212 if (wParam == VK_CONTROL)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2213 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2214 keymap_orig[extendedp ? VK_RCONTROL : VK_LCONTROL] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2215 keymap_sticky[extendedp ? VK_RCONTROL : VK_LCONTROL] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2216 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2217 else if (wParam == VK_MENU)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2218 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2219 keymap_orig[extendedp ? VK_RMENU : VK_LMENU] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2220 keymap_sticky[extendedp ? VK_RMENU : VK_LMENU] |= 0x80;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2221 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2222
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2223 if (!NILP (Vmenu_accelerator_enabled) &&
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2224 !(mods & XEMACS_MOD_SHIFT) && message_ == WM_SYSKEYDOWN)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2225 potential_accelerator = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2226
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2227 /* Remove shift modifier from an ascii character */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2228 mods &= ~XEMACS_MOD_SHIFT;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2229
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2230 memcpy (keymap_trans, keymap_sticky, 256);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2231
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2232 /* Clear control and alt modifiers unless AltGr is pressed */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2233 keymap_trans[VK_RCONTROL] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2234 keymap_trans[VK_LMENU] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2235 if (!has_AltGr || !(keymap_trans[VK_LCONTROL] & 0x80)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2236 || !(keymap_trans[VK_RMENU] & 0x80))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2237 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2238 keymap_trans[VK_LCONTROL] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2239 keymap_trans[VK_CONTROL] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2240 keymap_trans[VK_RMENU] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2241 keymap_trans[VK_MENU] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2242 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2243 SetKeyboardState (keymap_trans);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2244
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2245 /* Maybe generate some WM_[SYS]CHARs in the queue */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2246 TranslateMessage (&msg);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2247
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2248 while (PeekMessage (&tranmsg, hwnd, WM_CHAR, WM_CHAR, PM_REMOVE)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2249 || PeekMessage (&tranmsg, hwnd, WM_SYSCHAR, WM_SYSCHAR,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2250 PM_REMOVE))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2251 {
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
2252 int mods_with_quit = mods;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2253 WPARAM ch = tranmsg.wParam;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2254
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2255 #ifdef DEBUG_XEMACS
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2256 if (debug_mswindows_events)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2257 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2258 stderr_out ("-> ");
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2259 debug_output_mswin_message (tranmsg.hwnd, tranmsg.message,
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2260 tranmsg.wParam,
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2261 tranmsg.lParam);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2262 }
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2263 #endif /* DEBUG_XEMACS */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2264
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2265 /* If a quit char with no modifiers other than control and
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2266 shift, then mark it with a fake modifier, which is removed
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2267 upon dequeueing the event */
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
2268 /* !!#### Fix this in my mule ws -- replace current_buffer
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
2269 with 0 */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2270 if (((quit_ch < ' ' && (mods & XEMACS_MOD_CONTROL)
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
2271 && DOWNCASE (current_buffer, quit_ch + 'a' - 1) ==
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
2272 DOWNCASE (current_buffer, ch))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2273 || (quit_ch >= ' ' && !(mods & XEMACS_MOD_CONTROL)
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
2274 && DOWNCASE (current_buffer, quit_ch) ==
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
2275 DOWNCASE (current_buffer, ch)))
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
2276 && ((mods_with_shift &
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
2277 ~(XEMACS_MOD_CONTROL | XEMACS_MOD_SHIFT))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2278 == 0))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2279 {
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
2280 mods_with_quit |= FAKE_MOD_QUIT;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
2281 if (mods_with_shift & XEMACS_MOD_SHIFT)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
2282 mods_with_quit |= FAKE_MOD_QUIT_CRITICAL;
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2283 mswindows_quit_chars_count++;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2284 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2285 else if (potential_accelerator && !got_accelerator &&
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2286 mswindows_char_is_accelerator (frame, ch))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2287 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2288 got_accelerator = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2289 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2290 }
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
2291 mswindows_enqueue_keypress_event (hwnd, make_char (ch),
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
2292 mods_with_quit);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2293 } /* while */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2294
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2295 /* This generates WM_SYSCHAR messages, which are interpreted
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2296 by DefWindowProc as the menu selections. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2297 if (got_accelerator)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2298 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2299 SetKeyboardState (keymap_sticky);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2300 TranslateMessage (&msg);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2301 SetKeyboardState (keymap_orig);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2302 goto defproc;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2303 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2304
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2305 SetKeyboardState (keymap_orig);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2306 } /* else */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2307 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2308
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2309 if (key_needs_default_processing_p (wParam))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2310 goto defproc;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2311 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2312 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2313
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2314 case WM_MBUTTONDOWN:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2315 case WM_MBUTTONUP:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2316 /* Real middle mouse button has nothing to do with emulated one:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2317 if one wants to exercise fingers playing chords on the mouse,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2318 he is allowed to do that! */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2319 mswindows_enqueue_mouse_button_event (hwnd, message_,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2320 MAKEPOINTS (lParam),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2321 wParam &~ MK_MBUTTON,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2322 GetMessageTime());
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2323 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2324
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2325 case WM_LBUTTONUP:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2326 msframe = FRAME_MSWINDOWS_DATA (XFRAME (mswindows_find_frame (hwnd)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2327 msframe->last_click_time = GetMessageTime();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2328
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2329 KillTimer (hwnd, BUTTON_2_TIMER_ID);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2330 msframe->button2_need_lbutton = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2331 if (msframe->ignore_next_lbutton_up)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2332 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2333 msframe->ignore_next_lbutton_up = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2334 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2335 else if (msframe->button2_is_down)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2336 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2337 msframe->button2_is_down = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2338 msframe->ignore_next_rbutton_up = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2339 mswindows_enqueue_mouse_button_event (hwnd, WM_MBUTTONUP,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2340 MAKEPOINTS (lParam),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2341 wParam
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2342 &~ (MK_LBUTTON | MK_MBUTTON
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2343 | MK_RBUTTON),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2344 GetMessageTime());
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2345 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2346 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2347 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2348 if (msframe->button2_need_rbutton)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2349 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2350 msframe->button2_need_rbutton = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2351 mswindows_enqueue_mouse_button_event (hwnd, WM_LBUTTONDOWN,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2352 MAKEPOINTS (lParam),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2353 wParam &~ MK_LBUTTON,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2354 GetMessageTime());
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2355 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2356 mswindows_enqueue_mouse_button_event (hwnd, WM_LBUTTONUP,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2357 MAKEPOINTS (lParam),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2358 wParam &~ MK_LBUTTON,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2359 GetMessageTime());
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2360 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2361 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2362
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2363 case WM_RBUTTONUP:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2364 msframe = FRAME_MSWINDOWS_DATA (XFRAME (mswindows_find_frame (hwnd)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2365 msframe->last_click_time = GetMessageTime();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2366
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2367 KillTimer (hwnd, BUTTON_2_TIMER_ID);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2368 msframe->button2_need_rbutton = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2369 if (msframe->ignore_next_rbutton_up)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2370 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2371 msframe->ignore_next_rbutton_up = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2372 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2373 else if (msframe->button2_is_down)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2374 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2375 msframe->button2_is_down = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2376 msframe->ignore_next_lbutton_up = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2377 mswindows_enqueue_mouse_button_event (hwnd, WM_MBUTTONUP,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2378 MAKEPOINTS (lParam),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2379 wParam
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2380 &~ (MK_LBUTTON | MK_MBUTTON
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2381 | MK_RBUTTON),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2382 GetMessageTime());
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2383 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2384 else
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 if (msframe->button2_need_lbutton)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2387 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2388 msframe->button2_need_lbutton = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2389 mswindows_enqueue_mouse_button_event (hwnd, WM_RBUTTONDOWN,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2390 MAKEPOINTS (lParam),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2391 wParam &~ MK_RBUTTON,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2392 GetMessageTime());
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 mswindows_enqueue_mouse_button_event (hwnd, WM_RBUTTONUP,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2395 MAKEPOINTS (lParam),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2396 wParam &~ MK_RBUTTON,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2397 GetMessageTime());
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2398 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2399 break;
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 case WM_LBUTTONDOWN:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2402 msframe = FRAME_MSWINDOWS_DATA (XFRAME (mswindows_find_frame (hwnd)));
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 if (msframe->button2_need_lbutton)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2405 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2406 KillTimer (hwnd, BUTTON_2_TIMER_ID);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2407 msframe->button2_need_lbutton = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2408 msframe->button2_need_rbutton = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2409 if (mswindows_button2_near_enough (msframe->last_click_point,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2410 MAKEPOINTS (lParam)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2411 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2412 mswindows_enqueue_mouse_button_event (hwnd, WM_MBUTTONDOWN,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2413 MAKEPOINTS (lParam),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2414 wParam
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2415 &~ (MK_LBUTTON | MK_MBUTTON
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2416 | MK_RBUTTON),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2417 GetMessageTime());
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2418 msframe->button2_is_down = 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2419 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2420 else
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2421 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2422 mswindows_enqueue_mouse_button_event (hwnd, WM_RBUTTONDOWN,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2423 msframe->last_click_point,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2424 msframe->last_click_mods
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2425 &~ MK_RBUTTON,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2426 msframe->last_click_time);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2427 mswindows_enqueue_mouse_button_event (hwnd, WM_LBUTTONDOWN,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2428 MAKEPOINTS (lParam),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2429 wParam &~ MK_LBUTTON,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2430 GetMessageTime());
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2431 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2432 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2433 else
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2434 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2435 mswindows_set_chord_timer (hwnd);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2436 msframe->button2_need_rbutton = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2437 msframe->last_click_point = MAKEPOINTS (lParam);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2438 msframe->last_click_mods = wParam;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2439 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2440 msframe->last_click_time = GetMessageTime();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2441 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2443 case WM_RBUTTONDOWN:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2444 msframe = FRAME_MSWINDOWS_DATA (XFRAME (mswindows_find_frame (hwnd)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2445
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2446 if (msframe->button2_need_rbutton)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2447 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2448 KillTimer (hwnd, BUTTON_2_TIMER_ID);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2449 msframe->button2_need_lbutton = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2450 msframe->button2_need_rbutton = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2451 if (mswindows_button2_near_enough (msframe->last_click_point,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2452 MAKEPOINTS (lParam)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2453 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2454 mswindows_enqueue_mouse_button_event (hwnd, WM_MBUTTONDOWN,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2455 MAKEPOINTS (lParam),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2456 wParam
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2457 &~ (MK_LBUTTON | MK_MBUTTON
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2458 | MK_RBUTTON),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2459 GetMessageTime());
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2460 msframe->button2_is_down = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2461 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2462 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2463 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2464 mswindows_enqueue_mouse_button_event (hwnd, WM_LBUTTONDOWN,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2465 msframe->last_click_point,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2466 msframe->last_click_mods
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2467 &~ MK_LBUTTON,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2468 msframe->last_click_time);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2469 mswindows_enqueue_mouse_button_event (hwnd, WM_RBUTTONDOWN,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2470 MAKEPOINTS (lParam),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2471 wParam &~ MK_RBUTTON,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2472 GetMessageTime());
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2473 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2474 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2475 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2476 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2477 mswindows_set_chord_timer (hwnd);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2478 msframe->button2_need_lbutton = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2479 msframe->last_click_point = MAKEPOINTS (lParam);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2480 msframe->last_click_mods = wParam;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2481 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2482 msframe->last_click_time = GetMessageTime();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2483 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2484
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2485 case WM_TIMER:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2486 if (wParam == BUTTON_2_TIMER_ID)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2487 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2488 msframe = FRAME_MSWINDOWS_DATA (XFRAME (mswindows_find_frame (hwnd)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2489 KillTimer (hwnd, BUTTON_2_TIMER_ID);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2490
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2491 if (msframe->button2_need_lbutton)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2492 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2493 msframe->button2_need_lbutton = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2494 mswindows_enqueue_mouse_button_event (hwnd, WM_RBUTTONDOWN,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2495 msframe->last_click_point,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2496 msframe->last_click_mods
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2497 &~ MK_RBUTTON,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2498 msframe->last_click_time);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2499 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2500 else if (msframe->button2_need_rbutton)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2501 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2502 msframe->button2_need_rbutton = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2503 mswindows_enqueue_mouse_button_event (hwnd, WM_LBUTTONDOWN,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2504 msframe->last_click_point,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2505 msframe->last_click_mods
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2506 &~ MK_LBUTTON,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2507 msframe->last_click_time);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2508 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2509 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2510 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2511 assert ("Spurious timer fired" == 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2512 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2513
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2514 case WM_MOUSEMOVE:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2515 /* Optimization: don't report mouse movement while size is changing */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2516 msframe = FRAME_MSWINDOWS_DATA (XFRAME (mswindows_find_frame (hwnd)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2517 if (!msframe->sizing)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2518 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2519 /* When waiting for the second mouse button to finish
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2520 button2 emulation, and have moved too far, just pretend
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2521 as if timer has expired. This improves drag-select feedback */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2522 if ((msframe->button2_need_lbutton || msframe->button2_need_rbutton)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2523 && !mswindows_button2_near_enough (msframe->last_click_point,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2524 MAKEPOINTS (lParam)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2525 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2526 KillTimer (hwnd, BUTTON_2_TIMER_ID);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2527 SendMessage (hwnd, WM_TIMER, BUTTON_2_TIMER_ID, 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2528 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2529
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2530 emacs_event = Fmake_event (Qnil, Qnil);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2531 event = XEVENT(emacs_event);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2532
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2533 event->channel = mswindows_find_frame(hwnd);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2534 event->timestamp = GetMessageTime();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2535 event->event_type = pointer_motion_event;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2536 event->event.motion.x = MAKEPOINTS(lParam).x;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2537 event->event.motion.y = MAKEPOINTS(lParam).y;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2538 event->event.motion.modifiers =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2539 mswindows_modifier_state (NULL, wParam, 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2540
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2541 mswindows_enqueue_dispatch_event (emacs_event);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2542 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2543 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2544
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2545 case WM_CANCELMODE:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2546 ReleaseCapture ();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2547 /* Queue a `cancel-mode-internal' misc user event, so mouse
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2548 selection would be canceled if any */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2549 mswindows_enqueue_misc_user_event (mswindows_find_frame (hwnd),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2550 Qcancel_mode_internal, Qnil);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2551 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2552
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2553 case WM_NOTIFY:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2554 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2555 LPNMHDR nmhdr = (LPNMHDR)lParam;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2556
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2557 if (nmhdr->code == TTN_NEEDTEXT)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2558 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2559 #ifdef HAVE_TOOLBARS
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2560 LPTOOLTIPTEXT tttext = (LPTOOLTIPTEXT)lParam;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2561 Lisp_Object btext;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2562
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2563 /* find out which toolbar */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2564 frame = XFRAME (mswindows_find_frame (hwnd));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2565 btext = mswindows_get_toolbar_button_text ( frame,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2566 nmhdr->idFrom );
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2567
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2568 tttext->lpszText = NULL;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2569 tttext->hinst = NULL;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2570
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2571 if (!NILP(btext))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2572 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2573 /* I think this is safe since the text will only go away
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2574 when the toolbar does...*/
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2575 LISP_STRING_TO_EXTERNAL (btext, tttext->lpszText, Qnative);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2576 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2577 #endif
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2578 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2579 /* handle tree view callbacks */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2580 else if (nmhdr->code == TVN_SELCHANGED)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2581 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2582 NM_TREEVIEW* ptree = (NM_TREEVIEW*)lParam;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2583 frame = XFRAME (mswindows_find_frame (hwnd));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2584 mswindows_handle_gui_wm_command (frame, 0, ptree->itemNew.lParam);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2585 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2586 /* handle tab control callbacks */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2587 else if (nmhdr->code == TCN_SELCHANGE)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2588 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2589 TC_ITEM item;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2590 int idx = SendMessage (nmhdr->hwndFrom, TCM_GETCURSEL, 0, 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2591 frame = XFRAME (mswindows_find_frame (hwnd));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2592
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2593 item.mask = TCIF_PARAM;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2594 SendMessage (nmhdr->hwndFrom, TCM_GETITEM, (WPARAM)idx,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2595 (LPARAM)&item);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2596
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2597 mswindows_handle_gui_wm_command (frame, 0, item.lParam);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2598 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2599 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2600 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2601
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2602 case WM_PAINT:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2603 /* 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
2604 shouldn't have received a paint message for it here. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2605 assert (wParam == 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2606
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2607 /* 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
2608 messages directly to the windows procedure when doing solid drags
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2609 and the message queue doesn't get processed. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2610 mswindows_handle_paint (XFRAME (mswindows_find_frame (hwnd)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2611 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2612
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2613 case WM_WINDOWPOSCHANGED:
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2614 /* 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
2615 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
2616 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
2617 this and update the state flags. */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2618 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2619 fobj = mswindows_find_frame (hwnd);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2620 frame = XFRAME (fobj);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2621 if (IsIconic (hwnd))
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2622 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2623 FRAME_VISIBLE_P (frame) = 0;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2624 FRAME_ICONIFIED_P (frame) = 1;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2625 }
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2626 else if (IsWindowVisible (hwnd))
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2627 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2628 FRAME_VISIBLE_P (frame) = 1;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2629 FRAME_ICONIFIED_P (frame) = 0;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2630 }
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2631 else
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2632 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2633 FRAME_VISIBLE_P (frame) = 0;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2634 FRAME_ICONIFIED_P (frame) = 0;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2635 }
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2636
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2637 return DefWindowProc (hwnd, message_, wParam, lParam);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2638 }
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
2639
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2640 case WM_SIZE:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2641 /* We only care about this message if our size has really changed */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2642 if (wParam==SIZE_RESTORED || wParam==SIZE_MAXIMIZED || wParam==SIZE_MINIMIZED)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2643 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2644 RECT rect;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2645 int columns, rows;
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 fobj = mswindows_find_frame (hwnd);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2648 frame = XFRAME (fobj);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2649 msframe = FRAME_MSWINDOWS_DATA (frame);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2650
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2651 /* We cannot handle frame map and unmap hooks right in
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2652 this routine, because these may throw. We queue
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2653 magic events to run these hooks instead - kkm */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2654
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2655 if (wParam==SIZE_MINIMIZED)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2656 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2657 /* Iconified */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2658 mswindows_enqueue_magic_event (hwnd, XM_UNMAPFRAME);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2659 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2660 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2661 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2662 GetClientRect(hwnd, &rect);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2663 FRAME_PIXWIDTH(frame) = rect.right;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2664 FRAME_PIXHEIGHT(frame) = rect.bottom;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2665
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2666 pixel_to_real_char_size (frame, rect.right, rect.bottom,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2667 &FRAME_MSWINDOWS_CHARWIDTH (frame),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2668 &FRAME_MSWINDOWS_CHARHEIGHT (frame));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2669
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2670 pixel_to_char_size (frame, rect.right, rect.bottom, &columns, &rows);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2671 change_frame_size (frame, rows, columns, 1);
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 /* If we are inside frame creation, we have to apply geometric
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2674 properties now. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2675 if (FRAME_MSWINDOWS_TARGET_RECT (frame))
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 /* Yes, we have to size again */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2678 mswindows_size_frame_internal ( frame,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2679 FRAME_MSWINDOWS_TARGET_RECT
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2680 (frame));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2681 /* Reset so we do not get here again. The SetWindowPos call in
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2682 * mswindows_size_frame_internal can cause recursion here. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2683 if (FRAME_MSWINDOWS_TARGET_RECT (frame))
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 xfree (FRAME_MSWINDOWS_TARGET_RECT (frame));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2686 FRAME_MSWINDOWS_TARGET_RECT (frame) = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2687 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2688 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2689 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2690 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2691 if (!msframe->sizing && !FRAME_VISIBLE_P (frame))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2692 mswindows_enqueue_magic_event (hwnd, XM_MAPFRAME);
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 if (!msframe->sizing || mswindows_dynamic_frame_resize)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2695 redisplay ();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2696 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2697 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2698 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2699 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2700
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2701 case WM_DISPLAYCHANGE:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2702 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2703 struct device *d;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2704 DWORD message_tick = GetMessageTime ();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2705
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2706 fobj = mswindows_find_frame (hwnd);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2707 frame = XFRAME (fobj);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2708 d = XDEVICE (FRAME_DEVICE (frame));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2709
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2710 /* Do this only once per message. XEmacs can receive this message
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2711 through as many frames as it currently has open. Message time
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2712 will be the same for all these messages. Despite extreme
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2713 efficiency, the code below has about one in 4 billion
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2714 probability that the HDC is not recreated, provided that
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2715 XEmacs is running sufficiently longer than 52 days. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2716 if (DEVICE_MSWINDOWS_UPDATE_TICK(d) != message_tick)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2717 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2718 DEVICE_MSWINDOWS_UPDATE_TICK(d) = message_tick;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2719 DeleteDC (DEVICE_MSWINDOWS_HCDC(d));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2720 DEVICE_MSWINDOWS_HCDC(d) = CreateCompatibleDC (NULL);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2721 }
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 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2724
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2725 /* Misc magic events which only require that the frame be identified */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2726 case WM_SETFOCUS:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2727 case WM_KILLFOCUS:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2728 mswindows_enqueue_magic_event (hwnd, message_);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2729 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2730
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2731 case WM_WINDOWPOSCHANGING:
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2732 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2733 WINDOWPOS *wp = (LPWINDOWPOS) lParam;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2734 WINDOWPLACEMENT wpl = { sizeof(WINDOWPLACEMENT) };
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2735 GetWindowPlacement(hwnd, &wpl);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2736
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2737 /* 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
2738 if (wpl.showCmd != SW_SHOWMINIMIZED
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2739 && wpl.showCmd != SW_SHOWMAXIMIZED
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2740 && !(wp->flags & SWP_NOSIZE))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2741 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2742 RECT ncsize = { 0, 0, 0, 0 };
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2743 int pixwidth, pixheight;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2744 AdjustWindowRectEx (&ncsize, GetWindowLong (hwnd, GWL_STYLE),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2745 GetMenu(hwnd) != NULL,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2746 GetWindowLong (hwnd, GWL_EXSTYLE));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2747
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2748 round_size_to_real_char (XFRAME (mswindows_find_frame (hwnd)),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2749 wp->cx - (ncsize.right - ncsize.left),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2750 wp->cy - (ncsize.bottom - ncsize.top),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2751 &pixwidth, &pixheight);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2752
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2753 /* Convert client sizes to window sizes */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2754 pixwidth += (ncsize.right - ncsize.left);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2755 pixheight += (ncsize.bottom - ncsize.top);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2756
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2757 if (wpl.showCmd != SW_SHOWMAXIMIZED)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2758 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2759 /* 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
2760 * the top or left that's being changed */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2761 RECT rect;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2762 GetWindowRect (hwnd, &rect);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2763
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2764 if (rect.left != wp->x)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2765 wp->x += wp->cx - pixwidth;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2766 if (rect.top != wp->y)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2767 wp->y += wp->cy - pixheight;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2768 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2769
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2770 wp->cx = pixwidth;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2771 wp->cy = pixheight;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2772 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2773 /* DefWindowProc sends useful WM_GETMINMAXINFO message, and adjusts
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2774 window position if the user tries to track window too small */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2775 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2776 goto defproc;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2777
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2778 case WM_ENTERSIZEMOVE:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2779 msframe = FRAME_MSWINDOWS_DATA (XFRAME (mswindows_find_frame (hwnd)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2780 msframe->sizing = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2781 return 0;
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 case WM_EXITSIZEMOVE:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2784 msframe = FRAME_MSWINDOWS_DATA (XFRAME (mswindows_find_frame (hwnd)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2785 msframe->sizing = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2786 /* Queue noop event */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2787 mswindows_enqueue_magic_event (NULL, XM_BUMPQUEUE);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2788 return 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2789
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2790 #ifdef HAVE_SCROLLBARS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2791 case WM_VSCROLL:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2792 case WM_HSCROLL:
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 /* Direction of scroll is determined by scrollbar instance. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2795 int code = (int) LOWORD(wParam);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2796 int pos = (short int) HIWORD(wParam);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2797 HWND hwndScrollBar = (HWND) lParam;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2798 struct gcpro gcpro1, gcpro2;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2799
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2800 mswindows_handle_scrollbar_event (hwndScrollBar, code, pos);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2801 GCPRO2 (emacs_event, fobj);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2802 if (UNBOUNDP(mswindows_pump_outstanding_events())) /* Can GC */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2803 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2804 /* Error during event pumping - cancel scroll */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2805 SendMessage (hwndScrollBar, WM_CANCELMODE, 0, 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2806 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2807 UNGCPRO;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2808 break;
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
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2811 case WM_MOUSEWHEEL:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2812 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2813 int keys = LOWORD (wParam); /* Modifier key flags */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2814 int delta = (short) HIWORD (wParam); /* Wheel rotation amount */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2815 struct gcpro gcpro1, gcpro2;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2816
464
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents: 462
diff changeset
2817 if (mswindows_handle_mousewheel_event (mswindows_find_frame (hwnd),
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents: 462
diff changeset
2818 keys, delta,
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents: 462
diff changeset
2819 MAKEPOINTS (lParam)))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2820 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2821 GCPRO2 (emacs_event, fobj);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2822 mswindows_pump_outstanding_events (); /* Can GC */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2823 UNGCPRO;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2824 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2825 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2826 goto defproc;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2827 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2828 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2829 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2830
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2831 #ifdef HAVE_MENUBARS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2832 case WM_INITMENU:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2833 if (UNBOUNDP (mswindows_handle_wm_initmenu (
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2834 (HMENU) wParam,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2835 XFRAME (mswindows_find_frame (hwnd)))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2836 SendMessage (hwnd, WM_CANCELMODE, 0, 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2837 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2838
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2839 case WM_INITMENUPOPUP:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2840 if (!HIWORD(lParam))
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 if (UNBOUNDP (mswindows_handle_wm_initmenupopup (
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2843 (HMENU) wParam,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2844 XFRAME (mswindows_find_frame (hwnd)))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2845 SendMessage (hwnd, WM_CANCELMODE, 0, 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2846 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2847 break;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2848
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2849 #endif /* HAVE_MENUBARS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2850
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2851 case WM_COMMAND:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2852 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2853 WORD id = LOWORD (wParam);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2854 WORD nid = HIWORD (wParam);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2855 HWND cid = (HWND)lParam;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2856 frame = XFRAME (mswindows_find_frame (hwnd));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2857
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2858 #ifdef HAVE_TOOLBARS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2859 if (!NILP (mswindows_handle_toolbar_wm_command (frame, cid, id)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2860 break;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2861 #endif
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2862 /* widgets in a buffer only eval a callback for suitable events.*/
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2863 switch (nid)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2864 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2865 case BN_CLICKED:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2866 case EN_CHANGE:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2867 case CBN_EDITCHANGE:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2868 case CBN_SELCHANGE:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2869 if (!NILP (mswindows_handle_gui_wm_command (frame, cid, id)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2870 return 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2871 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2872 /* menubars always must come last since the hashtables do not
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2873 always exist*/
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2874 #ifdef HAVE_MENUBARS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2875 if (!NILP (mswindows_handle_wm_command (frame, id)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2876 break;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2877 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2878
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2879 return DefWindowProc (hwnd, message_, wParam, lParam);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2880 /* Bite me - a spurious command. This used to not be able to
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2881 happen but with the introduction of widgets its now
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2882 possible. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2883 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2884 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2885
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2886 case WM_CTLCOLORBTN:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2887 case WM_CTLCOLORLISTBOX:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2888 case WM_CTLCOLOREDIT:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2889 case WM_CTLCOLORSTATIC:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2890 case WM_CTLCOLORSCROLLBAR:
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 /* 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
2893 there is an appropriate face */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2894 HWND crtlwnd = (HWND)lParam;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2895 LONG ii = GetWindowLong (crtlwnd, GWL_USERDATA);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2896 if (ii)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2897 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2898 Lisp_Object image_instance;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2899 VOID_TO_LISP (image_instance, ii);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2900 if (IMAGE_INSTANCEP (image_instance)
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 IMAGE_INSTANCE_TYPE_P (image_instance, IMAGE_WIDGET))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2903 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2904 /* set colors for the buttons */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2905 HDC hdc = (HDC)wParam;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2906 if (last_widget_brushed != ii)
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 if (widget_brush)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2909 DeleteObject (widget_brush);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2910 widget_brush = CreateSolidBrush
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2911 (COLOR_INSTANCE_MSWINDOWS_COLOR
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2912 (XCOLOR_INSTANCE
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2913 (FACE_BACKGROUND
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2914 (XIMAGE_INSTANCE_WIDGET_FACE (image_instance),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2915 XIMAGE_INSTANCE_FRAME (image_instance)))));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2916 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2917 last_widget_brushed = ii;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2918 SetTextColor
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2919 (hdc,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2920 COLOR_INSTANCE_MSWINDOWS_COLOR
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2921 (XCOLOR_INSTANCE
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2922 (FACE_FOREGROUND
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2923 (XIMAGE_INSTANCE_WIDGET_FACE (image_instance),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2924 XIMAGE_INSTANCE_FRAME (image_instance)))));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2925 SetBkMode (hdc, OPAQUE);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2926 SetBkColor
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2927 (hdc,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2928 COLOR_INSTANCE_MSWINDOWS_COLOR
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2929 (XCOLOR_INSTANCE
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2930 (FACE_BACKGROUND
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2931 (XIMAGE_INSTANCE_WIDGET_FACE (image_instance),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2932 XIMAGE_INSTANCE_FRAME (image_instance)))));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2933 return (LRESULT)widget_brush;
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 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2936 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2937 goto defproc;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2938
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2939 #ifdef HAVE_DRAGNDROP
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2940 case WM_DROPFILES: /* implementation ripped-off from event-Xt.c */
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 UINT filecount, i, len;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2943 POINT point;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2944 char* filename;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2945 char* fname;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2946
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2947 Lisp_Object l_dndlist = Qnil, l_item = Qnil;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2948 struct gcpro gcpro1, gcpro2, gcpro3;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2949
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2950 emacs_event = Fmake_event (Qnil, Qnil);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2951 event = XEVENT(emacs_event);
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 GCPRO3 (emacs_event, l_dndlist, l_item);
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 if (!DragQueryPoint ((HDROP) wParam, &point))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2956 point.x = point.y = -1; /* outside client area */
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 event->event_type = misc_user_event;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2959 event->channel = mswindows_find_frame(hwnd);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2960 event->timestamp = GetMessageTime();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2961 event->event.misc.button = 1; /* #### Should try harder */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2962 event->event.misc.modifiers = mswindows_modifier_state (NULL,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2963 (DWORD) -1, 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2964 event->event.misc.x = point.x;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2965 event->event.misc.y = point.y;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2966 event->event.misc.function = Qdragdrop_drop_dispatch;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2967
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2968 filecount = DragQueryFile ((HDROP) wParam, 0xffffffff, NULL, 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2969 for (i=0; i<filecount; i++)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2970 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2971 len = DragQueryFile ((HDROP) wParam, i, NULL, 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2972 /* 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
2973 * 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
2974 * because they may contain reserved characters. But that's OK -
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2975 * they just need to be good enough to keep dragdrop.el happy. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2976 fname = (char *)xmalloc (len+1);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2977 DragQueryFile ((HANDLE) wParam, i, fname, len+1);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2978
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2979 /* May be a shell link aka "shortcut" - replace fname if so */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2980 #if !(defined(CYGWIN) || defined(MINGW))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2981 /* cygwin doesn't define this COM stuff */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2982 if (!stricmp (fname + strlen (fname) - 4, ".LNK"))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2983 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2984 IShellLink* psl;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2985
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2986 if (CoCreateInstance (&CLSID_ShellLink, NULL,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2987 CLSCTX_INPROC_SERVER, &IID_IShellLink, &psl) == S_OK)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2988 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2989 IPersistFile* ppf;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2990
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2991 if (psl->lpVtbl->QueryInterface (psl, &IID_IPersistFile,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2992 &ppf) == S_OK)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2993 {
588
ed8e2ee8d29d [xemacs-hg @ 2001-05-31 00:30:39 by kkm]
kkm
parents: 563
diff changeset
2994 OLECHAR wsz[PATH_MAX];
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2995 WIN32_FIND_DATA wfd;
558
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
2996 LPSTR resolved = (char *) xmalloc (PATH_MAX+1);
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
2997
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
2998 MultiByteToWideChar (CP_ACP,0, fname, -1, wsz, PATH_MAX);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2999
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3000 if ((ppf->lpVtbl->Load (ppf, wsz, STGM_READ) == S_OK) &&
558
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
3001 (psl->lpVtbl->GetPath (psl, resolved, PATH_MAX,
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3002 &wfd, 0)==S_OK))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3003 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3004 xfree (fname);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3005 fname = resolved;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3006 len = strlen (fname);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3007 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3008
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3009 ppf->lpVtbl->Release (ppf);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3010 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3011
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3012 psl->lpVtbl->Release (psl);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3013 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3014 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3015 #endif
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3016
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3017 #ifdef CYGWIN
531
0493e9f3c27f [xemacs-hg @ 2001-05-12 11:16:12 by ben]
ben
parents: 502
diff changeset
3018 filename = xmalloc (cygwin_win32_to_posix_path_list_buf_size (fname) + 5);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3019 strcpy (filename, "file:");
531
0493e9f3c27f [xemacs-hg @ 2001-05-12 11:16:12 by ben]
ben
parents: 502
diff changeset
3020 cygwin_win32_to_posix_path_list (fname, filename+5);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3021 #else
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3022 filename = (char *)xmalloc (len+6);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3023 strcat (strcpy (filename, "file:"), fname);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3024 dostounix_filename (filename+5);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3025 #endif
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3026 xfree (fname);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3027 l_item = make_string (filename, strlen (filename));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3028 l_dndlist = Fcons (l_item, l_dndlist);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3029 xfree (filename);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3030 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3031 DragFinish ((HDROP) wParam);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3032
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3033 event->event.misc.object = Fcons (Qdragdrop_URL, l_dndlist);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3034 mswindows_enqueue_dispatch_event (emacs_event);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3035 UNGCPRO;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3036 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3037 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3038 #endif
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3039
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3040 defproc:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3041 default:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3042 return DefWindowProc (hwnd, message_, wParam, lParam);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3043 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3044 return (0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3045 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3046
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3047
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3048 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3049 /* keyboard, mouse & other helpers for the windows procedure */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3050 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3051 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3052 mswindows_set_chord_timer (HWND hwnd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3053 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3054 int interval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3055
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3056 /* We get one third half system double click threshold */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3057 if (mswindows_mouse_button_tolerance <= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3058 interval = GetDoubleClickTime () / 3;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3059 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3060 interval = mswindows_mouse_button_tolerance;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3061
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3062 SetTimer (hwnd, BUTTON_2_TIMER_ID, interval, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3063 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3064
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3065 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3066 mswindows_button2_near_enough (POINTS p1, POINTS p2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3067 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3068 int dx, dy;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3069 if (mswindows_mouse_button_max_skew_x <= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3070 dx = GetSystemMetrics (SM_CXDOUBLECLK) / 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3071 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3072 dx = mswindows_mouse_button_max_skew_x;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3073
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3074 if (mswindows_mouse_button_max_skew_y <= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3075 dy = GetSystemMetrics (SM_CYDOUBLECLK) / 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3076 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3077 dy = mswindows_mouse_button_max_skew_y;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3078
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3079 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
3080 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3081
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3082 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3083 mswindows_current_layout_has_AltGr (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3084 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3085 /* This simple caching mechanism saves 10% of CPU
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3086 time when a key typed at autorepeat rate of 30 cps! */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3087 static HKL last_hkl = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3088 static int last_hkl_has_AltGr;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3089 HKL current_hkl = (HKL) -1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3090
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3091 if (xGetKeyboardLayout) /* not in NT 3.5 */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3092 current_hkl = xGetKeyboardLayout (0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3093 if (current_hkl != last_hkl)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3094 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3095 TCHAR c;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3096 last_hkl_has_AltGr = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3097 /* In this loop, we query whether a character requires
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3098 AltGr to be down to generate it. If at least such one
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3099 found, this means that the layout does regard AltGr */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3100 for (c = ' '; c <= 0xFFU && c != 0 && !last_hkl_has_AltGr; ++c)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3101 if (HIBYTE (VkKeyScan (c)) == 6)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3102 last_hkl_has_AltGr = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3103 last_hkl = current_hkl;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3104 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3105 return last_hkl_has_AltGr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3106 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3107
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3108
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3109 /* 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
3110 * 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
3111 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3112 mswindows_modifier_state (BYTE* keymap, DWORD fwKeys, int has_AltGr)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3113 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3114 int mods = 0;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3115 int keys_is_real = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3116 BYTE keymap2[256];
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3117
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3118 if (fwKeys == (DWORD) -1)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3119 fwKeys = mswindows_last_mouse_button_state;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3120 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3121 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3122 keys_is_real = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3123 mswindows_last_mouse_button_state = fwKeys;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3124 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3125
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3126 if (keymap == NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3127 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3128 keymap = keymap2;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3129 GetKeyboardState (keymap);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3130 has_AltGr = mswindows_current_layout_has_AltGr ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3131 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3132
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3133 /* #### 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
3134 AltGr works. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3135 if (has_AltGr && (keymap [VK_LCONTROL] & 0x80) && (keymap [VK_RMENU] & 0x80))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3136 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3137 mods |= (keymap [VK_LMENU] & 0x80) ? XEMACS_MOD_META : 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3138 mods |= (keymap [VK_RCONTROL] & 0x80) ? XEMACS_MOD_CONTROL : 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3139 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3140 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3141 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3142 mods |= (keymap [VK_MENU] & 0x80) ? XEMACS_MOD_META : 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3143 mods |= (keymap [VK_CONTROL] & 0x80) ? XEMACS_MOD_CONTROL : 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3144 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3145
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3146 mods |= (keys_is_real ? fwKeys & MK_SHIFT : (keymap [VK_SHIFT] & 0x80))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3147 ? XEMACS_MOD_SHIFT : 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3148 mods |= fwKeys & MK_LBUTTON ? XEMACS_MOD_BUTTON1 : 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3149 mods |= fwKeys & MK_MBUTTON ? XEMACS_MOD_BUTTON2 : 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3150 mods |= fwKeys & MK_RBUTTON ? XEMACS_MOD_BUTTON3 : 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3151
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3152 return mods;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3153 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3154
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3155 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3156 * Translate a mswindows virtual key to a keysym.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3157 * 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
3158 * or whose ASCII codes (like space) xemacs doesn't like.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3159 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3160 Lisp_Object mswindows_key_to_emacs_keysym (int mswindows_key, int mods,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3161 int extendedp)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3162 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3163 if (extendedp) /* Keys not present on a 82 key keyboard */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3164 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3165 switch (mswindows_key)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3166 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3167 case VK_CANCEL: return KEYSYM ("pause");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3168 case VK_RETURN: return KEYSYM ("kp-enter");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3169 case VK_PRIOR: return KEYSYM ("prior");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3170 case VK_NEXT: return KEYSYM ("next");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3171 case VK_END: return KEYSYM ("end");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3172 case VK_HOME: return KEYSYM ("home");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3173 case VK_LEFT: return KEYSYM ("left");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3174 case VK_UP: return KEYSYM ("up");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3175 case VK_RIGHT: return KEYSYM ("right");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3176 case VK_DOWN: return KEYSYM ("down");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3177 case VK_INSERT: return KEYSYM ("insert");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3178 case VK_DELETE: return QKdelete;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3179 #if 0 /* FSF Emacs allows these to return configurable syms/mods */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3180 case VK_LWIN return KEYSYM ("");
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3181 case VK_RWIN return KEYSYM ("");
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3182 #endif
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3183 case VK_APPS: return KEYSYM ("menu");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3184 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3185 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3186 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3187 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3188 switch (mswindows_key)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3189 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3190 case VK_BACK: return QKbackspace;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3191 case VK_TAB: return QKtab;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3192 case '\n': return QKlinefeed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3193 case VK_CLEAR: return KEYSYM ("clear");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3194 case VK_RETURN: return QKreturn;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3195 case VK_PAUSE: return KEYSYM ("pause");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3196 case VK_ESCAPE: return QKescape;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3197 case VK_SPACE: return QKspace;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3198 case VK_PRIOR: return KEYSYM ("kp-prior");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3199 case VK_NEXT: return KEYSYM ("kp-next");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3200 case VK_END: return KEYSYM ("kp-end");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3201 case VK_HOME: return KEYSYM ("kp-home");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3202 case VK_LEFT: return KEYSYM ("kp-left");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3203 case VK_UP: return KEYSYM ("kp-up");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3204 case VK_RIGHT: return KEYSYM ("kp-right");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3205 case VK_DOWN: return KEYSYM ("kp-down");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3206 case VK_SELECT: return KEYSYM ("select");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3207 case VK_PRINT: return KEYSYM ("print");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3208 case VK_EXECUTE: return KEYSYM ("execute");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3209 case VK_SNAPSHOT: return KEYSYM ("print");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3210 case VK_INSERT: return KEYSYM ("kp-insert");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3211 case VK_DELETE: return KEYSYM ("kp-delete");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3212 case VK_HELP: return KEYSYM ("help");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3213 case VK_NUMPAD0: return KEYSYM ("kp-0");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3214 case VK_NUMPAD1: return KEYSYM ("kp-1");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3215 case VK_NUMPAD2: return KEYSYM ("kp-2");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3216 case VK_NUMPAD3: return KEYSYM ("kp-3");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3217 case VK_NUMPAD4: return KEYSYM ("kp-4");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3218 case VK_NUMPAD5: return KEYSYM ("kp-5");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3219 case VK_NUMPAD6: return KEYSYM ("kp-6");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3220 case VK_NUMPAD7: return KEYSYM ("kp-7");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3221 case VK_NUMPAD8: return KEYSYM ("kp-8");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3222 case VK_NUMPAD9: return KEYSYM ("kp-9");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3223 case VK_MULTIPLY: return KEYSYM ("kp-multiply");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3224 case VK_ADD: return KEYSYM ("kp-add");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3225 case VK_SEPARATOR: return KEYSYM ("kp-separator");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3226 case VK_SUBTRACT: return KEYSYM ("kp-subtract");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3227 case VK_DECIMAL: return KEYSYM ("kp-decimal");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3228 case VK_DIVIDE: return KEYSYM ("kp-divide");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3229 case VK_F1: return KEYSYM ("f1");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3230 case VK_F2: return KEYSYM ("f2");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3231 case VK_F3: return KEYSYM ("f3");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3232 case VK_F4: return KEYSYM ("f4");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3233 case VK_F5: return KEYSYM ("f5");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3234 case VK_F6: return KEYSYM ("f6");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3235 case VK_F7: return KEYSYM ("f7");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3236 case VK_F8: return KEYSYM ("f8");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3237 case VK_F9: return KEYSYM ("f9");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3238 case VK_F10: return KEYSYM ("f10");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3239 case VK_F11: return KEYSYM ("f11");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3240 case VK_F12: return KEYSYM ("f12");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3241 case VK_F13: return KEYSYM ("f13");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3242 case VK_F14: return KEYSYM ("f14");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3243 case VK_F15: return KEYSYM ("f15");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3244 case VK_F16: return KEYSYM ("f16");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3245 case VK_F17: return KEYSYM ("f17");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3246 case VK_F18: return KEYSYM ("f18");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3247 case VK_F19: return KEYSYM ("f19");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3248 case VK_F20: return KEYSYM ("f20");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3249 case VK_F21: return KEYSYM ("f21");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3250 case VK_F22: return KEYSYM ("f22");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3251 case VK_F23: return KEYSYM ("f23");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3252 case VK_F24: return KEYSYM ("f24");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3253 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3254 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3255 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3256 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3257
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3258 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3259 * Find the console that matches the supplied mswindows window handle
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3260 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3261 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3262 mswindows_find_console (HWND hwnd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3263 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3264 /* We only support one console */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3265 return XCAR (Vconsole_list);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3266 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3267
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3268 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3269 * Find the frame that matches the supplied mswindows window handle
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3270 */
546
666d73d6ac56 [xemacs-hg @ 2001-05-20 01:17:07 by ben]
ben
parents: 535
diff changeset
3271 Lisp_Object
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3272 mswindows_find_frame (HWND hwnd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3273 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3274 LONG l = GetWindowLong (hwnd, XWL_FRAMEOBJ);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3275 Lisp_Object f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3276 if (l == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3277 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3278 /* We are in progress of frame creation. Return the frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3279 being created, as it still not remembered in the window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3280 extra storage. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3281 assert (!NILP (Vmswindows_frame_being_created));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3282 return Vmswindows_frame_being_created;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3283 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3284 VOID_TO_LISP (f, l);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3285 return f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3286 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3287
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3288
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3289 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3290 /* methods */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3291 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3292
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3293 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3294 emacs_mswindows_add_timeout (EMACS_TIME thyme)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3295 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3296 int milliseconds;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3297 EMACS_TIME current_time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3298 EMACS_GET_TIME (current_time);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3299 EMACS_SUB_TIME (thyme, thyme, current_time);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3300 milliseconds = EMACS_SECS (thyme) * 1000 +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3301 (EMACS_USECS (thyme) + 500) / 1000;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3302 if (milliseconds < 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3303 milliseconds = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3304 ++mswindows_pending_timers_count;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3305 return SetTimer (NULL, 0, milliseconds,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3306 (TIMERPROC) mswindows_wm_timer_callback);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3307 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3308
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3309 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3310 emacs_mswindows_remove_timeout (int id)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3311 {
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3312 Lisp_Event match_against;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3313 Lisp_Object emacs_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3314
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3315 if (KillTimer (NULL, id))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3316 --mswindows_pending_timers_count;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3317
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3318 /* If there is a dispatch event generated by this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3319 timeout in the queue, we have to remove it too. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3320 match_against.event_type = timeout_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3321 match_against.event.timeout.interval_id = id;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3322 emacs_event = mswindows_cancel_dispatch_event (&match_against);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3323 if (!NILP (emacs_event))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3324 Fdeallocate_event(emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3325 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3326
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3327 /* 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
3328 * or subprocess events pending (that is, whether
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3329 * emacs_mswindows_next_event() would return immediately without blocking).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3330 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3331 * 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
3332 * events available (that is, whether there are keyboard or mouse-click
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3333 * events ready to be read). This also implies that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3334 * emacs_mswindows_next_event() would not block.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3335 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3336 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3337 emacs_mswindows_event_pending_p (int user_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3338 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3339 mswindows_need_event (0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3340 return (!NILP (mswindows_u_dispatch_event_queue)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3341 || (!user_p && !NILP (mswindows_s_dispatch_event_queue)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3342 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3343
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3344 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3345 * Return the next event
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3346 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3347 static void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3348 emacs_mswindows_next_event (Lisp_Event *emacs_event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3349 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3350 Lisp_Object event, event2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3351
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3352 mswindows_need_event (1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3353
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3354 event = mswindows_dequeue_dispatch_event ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3355 XSETEVENT (event2, emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3356 Fcopy_event (event, event2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3357 Fdeallocate_event (event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3358 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3359
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3360 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3361 * Handle a magic event off the dispatch queue.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3362 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3363 static void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3364 emacs_mswindows_handle_magic_event (Lisp_Event *emacs_event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3365 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3366 switch (EVENT_MSWINDOWS_MAGIC_TYPE(emacs_event))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3367 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3368 case XM_BUMPQUEUE:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3369 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3370
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3371 case WM_PAINT:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3372 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3373 struct frame *f = XFRAME (EVENT_CHANNEL (emacs_event));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3374 mswindows_handle_paint (f);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3375 (FRAME_MSWINDOWS_DATA (f))->paint_pending = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3376 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3377 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3378
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3379 case WM_SETFOCUS:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3380 case WM_KILLFOCUS:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3381 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3382 Lisp_Object frame = EVENT_CHANNEL (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3383 struct frame *f = XFRAME (frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3384 int in_p = (EVENT_MSWINDOWS_MAGIC_TYPE(emacs_event) == WM_SETFOCUS);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3385 Lisp_Object conser;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3386 struct gcpro gcpro1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3387
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3388 /* On focus change, clear all memory of sticky modifiers
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3389 to avoid non-intuitive behavior. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3390 clear_sticky_modifiers ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3391
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3392 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
3393 GCPRO1 (conser);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3394 emacs_handle_focus_change_preliminary (conser);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3395 /* 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
3396 I Don't know why */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3397 emacs_handle_focus_change_final (conser);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3398 UNGCPRO;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3399
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3400 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3401 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3402
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3403 case XM_MAPFRAME:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3404 case XM_UNMAPFRAME:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3405 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3406 Lisp_Object frame = EVENT_CHANNEL (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3407 va_run_hook_with_args (EVENT_MSWINDOWS_MAGIC_TYPE(emacs_event)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3408 == XM_MAPFRAME ?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3409 Qmap_frame_hook : Qunmap_frame_hook,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3410 1, frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3411 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3412 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3413
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3414 /* #### What about Enter & Leave */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3415 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3416 va_run_hook_with_args (in_p ? Qmouse_enter_frame_hook :
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3417 Qmouse_leave_frame_hook, 1, frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3418 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3419
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3420 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3421 assert(0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3422 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3423 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3424
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3425 #ifndef HAVE_MSG_SELECT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3426 static HANDLE
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3427 get_process_input_waitable (Lisp_Process *process)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3428 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3429 Lisp_Object instr, outstr, p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3430 XSETPROCESS (p, process);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3431 get_process_streams (process, &instr, &outstr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3432 assert (!NILP (instr));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3433 #if defined (HAVE_SOCKETS) && !defined(HAVE_MSG_SELECT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3434 return (network_connection_p (p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3435 ? get_winsock_stream_waitable (XLSTREAM (instr))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3436 : get_ntpipe_input_stream_waitable (XLSTREAM (instr)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3437 #else
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3438 return get_ntpipe_input_stream_waitable (XLSTREAM (instr));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3439 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3440 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3441
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3442 static void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3443 emacs_mswindows_select_process (Lisp_Process *process)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3444 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3445 HANDLE hev = get_process_input_waitable (process);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3446
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3447 if (!add_waitable_handle (hev))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 560
diff changeset
3448 invalid_operation ("Too many active processes", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3449
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3450 #ifdef HAVE_WIN32_PROCESSES
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3451 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3452 Lisp_Object p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3453 XSETPROCESS (p, process);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3454 if (!network_connection_p (p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3455 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3456 HANDLE hprocess = get_nt_process_handle (process);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3457 if (!add_waitable_handle (hprocess))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3458 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3459 remove_waitable_handle (hev);
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 560
diff changeset
3460 invalid_operation ("Too many active processes", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3461 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3462 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3463 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3464 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3465 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3466
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3467 static void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3468 emacs_mswindows_unselect_process (Lisp_Process *process)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3469 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3470 /* Process handle is removed in the event loop as soon
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3471 as it is signaled, so don't bother here about it */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3472 HANDLE hev = get_process_input_waitable (process);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3473 remove_waitable_handle (hev);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3474 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3475 #endif /* HAVE_MSG_SELECT */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3476
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3477 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3478 emacs_mswindows_select_console (struct console *con)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3479 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3480 #ifdef HAVE_MSG_SELECT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3481 if (CONSOLE_MSWINDOWS_P (con))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3482 return; /* mswindows consoles are automatically selected */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3483
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3484 event_stream_unixoid_select_console (con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3485 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3486 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3487
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3488 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3489 emacs_mswindows_unselect_console (struct console *con)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3490 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3491 #ifdef HAVE_MSG_SELECT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3492 if (CONSOLE_MSWINDOWS_P (con))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3493 return; /* mswindows consoles are automatically selected */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3494
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3495 event_stream_unixoid_unselect_console (con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3496 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3497 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3498
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3499 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3500 emacs_mswindows_quit_p (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3501 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3502 /* Quit cannot happen in modal loop: all program
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3503 input is dedicated to Windows. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3504 if (mswindows_in_modal_loop)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3505 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3506
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3507 mswindows_quit_chars_count = 0;
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
3508 /* 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
3509 the queue. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3510 mswindows_drain_windows_queue ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3511
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3512 if (mswindows_quit_chars_count > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3513 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3514 /* Yes there's a hidden one... Throw it away */
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3515 Lisp_Event match_against;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3516 Lisp_Object emacs_event;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3517 int critical_p = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3518
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3519 match_against.event_type = key_press_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3520 match_against.event.key.modifiers = FAKE_MOD_QUIT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3521
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3522 while (mswindows_quit_chars_count > 0)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3523 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3524 emacs_event = mswindows_cancel_dispatch_event (&match_against);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3525 assert (!NILP (emacs_event));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3526
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
3527 if (XEVENT (emacs_event)->event.key.modifiers &
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
3528 FAKE_MOD_QUIT_CRITICAL)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3529 critical_p = 1;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3530
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
3531 Fdeallocate_event (emacs_event);
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3532 mswindows_quit_chars_count--;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3533 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3534
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3535 Vquit_flag = critical_p ? Qcritical : Qt;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3536 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3537 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3538
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3539 USID
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3540 emacs_mswindows_create_stream_pair (void* inhandle, void* outhandle,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3541 Lisp_Object* instream,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3542 Lisp_Object* outstream,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3543 int flags)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3544 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3545 /* Handles for streams */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3546 HANDLE hin, hout;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3547 /* fds. These just stored along with the streams, and are closed in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3548 delete stream pair method, because we need to handle fake unices
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3549 here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3550 int fdi, fdo;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3551
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3552 /* Decode inhandle and outhandle. Their meaning depends on
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3553 the process implementation being used. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3554 #if defined (HAVE_WIN32_PROCESSES)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3555 /* We're passed in Windows handles. That's what we like most... */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3556 hin = (HANDLE) inhandle;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3557 hout = (HANDLE) outhandle;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3558 fdi = fdo = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3559 #elif defined (HAVE_UNIX_PROCESSES)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3560 /* We are passed UNIX fds. This must be Cygwin.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3561 Fetch os handles */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3562 hin = inhandle >= 0 ? (HANDLE)get_osfhandle ((int)inhandle) : INVALID_HANDLE_VALUE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3563 hout = outhandle >= 0 ? (HANDLE)get_osfhandle ((int)outhandle) : INVALID_HANDLE_VALUE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3564 fdi=(int)inhandle;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3565 fdo=(int)outhandle;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3566 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3567 #error "So, WHICH kind of processes do you want?"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3568 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3569
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3570 *instream = (hin == INVALID_HANDLE_VALUE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3571 ? Qnil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3572 #if defined (HAVE_SOCKETS) && !defined (HAVE_MSG_SELECT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3573 : flags & STREAM_NETWORK_CONNECTION
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3574 ? make_winsock_input_stream ((SOCKET)hin, fdi)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3575 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3576 : make_ntpipe_input_stream (hin, fdi));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3577
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3578 #ifdef HAVE_WIN32_PROCESSES
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3579 *outstream = (hout == INVALID_HANDLE_VALUE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3580 ? Qnil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3581 #if defined (HAVE_SOCKETS) && !defined (HAVE_MSG_SELECT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3582 : flags & STREAM_NETWORK_CONNECTION
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3583 ? make_winsock_output_stream ((SOCKET)hout, fdo)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3584 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3585 : make_ntpipe_output_stream (hout, fdo));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3586 #elif defined (HAVE_UNIX_PROCESSES)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3587 *outstream = (fdo >= 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3588 ? make_filedesc_output_stream (fdo, 0, -1, LSTR_BLOCKED_OK)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3589 : Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3590
535
c69610198c35 [xemacs-hg @ 2001-05-14 04:52:02 by martinb]
martinb
parents: 534
diff changeset
3591 #if defined(HAVE_UNIX_PROCESSES)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3592 /* FLAGS is process->pty_flag for UNIX_PROCESSES */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3593 if ((flags & STREAM_PTY_FLUSHING) && fdo >= 0)
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 Bufbyte eof_char = get_eof_char (fdo);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3596 int pty_max_bytes = get_pty_max_bytes (fdo);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3597 filedesc_stream_set_pty_flushing (XLSTREAM(*outstream), pty_max_bytes, eof_char);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3598 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3599 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3600 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3601
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3602 return (NILP (*instream)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3603 ? USID_ERROR
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3604 #if defined(HAVE_SOCKETS) && !defined(HAVE_MSG_SELECT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3605 : flags & STREAM_NETWORK_CONNECTION
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3606 ? HANDLE_TO_USID (get_winsock_stream_waitable (XLSTREAM (*instream)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3607 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3608 : HANDLE_TO_USID (get_ntpipe_input_stream_waitable (XLSTREAM (*instream))));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3609 }
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 USID
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3612 emacs_mswindows_delete_stream_pair (Lisp_Object instream,
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3613 Lisp_Object outstream)
428
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 /* Oh nothing special here for Win32 at all */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3616 #if defined (HAVE_UNIX_PROCESSES)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3617 int in = (NILP(instream)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3618 ? -1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3619 #if defined(HAVE_SOCKETS) && !defined(HAVE_MSG_SELECT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3620 : LSTREAM_TYPE_P (XLSTREAM (instream), winsock)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3621 ? get_winsock_stream_param (XLSTREAM (instream))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3622 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3623 : get_ntpipe_input_stream_param (XLSTREAM (instream)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3624 int out = (NILP(outstream) ? -1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3625 : filedesc_stream_fd (XLSTREAM (outstream)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3626
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3627 if (in >= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3628 close (in);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3629 if (out != in && out >= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3630 close (out);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3631 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3632
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3633 return (NILP (instream)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3634 ? USID_DONTHASH
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3635 #if defined(HAVE_SOCKETS) && !defined(HAVE_MSG_SELECT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3636 : LSTREAM_TYPE_P (XLSTREAM (instream), winsock)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3637 ? HANDLE_TO_USID (get_winsock_stream_waitable (XLSTREAM (instream)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3638 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3639 : HANDLE_TO_USID (get_ntpipe_input_stream_waitable (XLSTREAM (instream))));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3640 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3641
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3642 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3643 emacs_mswindows_current_event_timestamp (struct console *c)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3644 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3645 return GetTickCount ();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3646 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3647
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3648 #ifndef HAVE_X_WINDOWS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3649 /* 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
3650 If we've still got pointers to it in this file, we're gonna lose hard.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3651 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3652 void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3653 debug_process_finalization (Lisp_Process *p)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3654 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3655 #if 0 /* #### */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3656 Lisp_Object instr, outstr;
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 get_process_streams (p, &instr, &outstr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3659 /* if it still has fds, then it hasn't been killed yet. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3660 assert (NILP(instr));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3661 assert (NILP(outstr));
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 /* #### More checks here */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3664 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3665 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3666 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3667
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3668 #ifdef DEBUG_XEMACS
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3669
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3670 struct mswin_message_debug
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3671 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3672 int mess;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3673 char *string;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3674 };
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3675
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3676 #define FROB(val) { val, #val, },
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3677
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3678 struct mswin_message_debug debug_mswin_messages[] =
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3679 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3680 FROB (WM_NULL)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3681 FROB (WM_CREATE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3682 FROB (WM_DESTROY)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3683 FROB (WM_MOVE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3684 FROB (WM_SIZE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3685
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3686 FROB (WM_ACTIVATE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3687
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3688 FROB (WM_SETFOCUS)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3689 FROB (WM_KILLFOCUS)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3690 FROB (WM_ENABLE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3691 FROB (WM_SETREDRAW)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3692 FROB (WM_SETTEXT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3693 FROB (WM_GETTEXT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3694 FROB (WM_GETTEXTLENGTH)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3695 FROB (WM_PAINT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3696 FROB (WM_CLOSE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3697 FROB (WM_QUERYENDSESSION)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3698 FROB (WM_QUIT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3699 FROB (WM_QUERYOPEN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3700 FROB (WM_ERASEBKGND)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3701 FROB (WM_SYSCOLORCHANGE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3702 FROB (WM_ENDSESSION)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3703 FROB (WM_SHOWWINDOW)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3704 FROB (WM_WININICHANGE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3705 #if(WINVER >= 0x0400)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3706 FROB (WM_SETTINGCHANGE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3707 #endif /* WINVER >= 0x0400 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3708
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3709 FROB (WM_DEVMODECHANGE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3710 FROB (WM_ACTIVATEAPP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3711 FROB (WM_FONTCHANGE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3712 FROB (WM_TIMECHANGE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3713 FROB (WM_CANCELMODE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3714 FROB (WM_SETCURSOR)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3715 FROB (WM_MOUSEACTIVATE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3716 FROB (WM_CHILDACTIVATE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3717 FROB (WM_QUEUESYNC)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3718
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3719 FROB (WM_GETMINMAXINFO)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3720
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3721 FROB (WM_PAINTICON)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3722 FROB (WM_ICONERASEBKGND)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3723 FROB (WM_NEXTDLGCTL)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3724 FROB (WM_SPOOLERSTATUS)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3725 FROB (WM_DRAWITEM)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3726 FROB (WM_MEASUREITEM)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3727 FROB (WM_DELETEITEM)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3728 FROB (WM_VKEYTOITEM)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3729 FROB (WM_CHARTOITEM)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3730 FROB (WM_SETFONT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3731 FROB (WM_GETFONT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3732 FROB (WM_SETHOTKEY)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3733 FROB (WM_GETHOTKEY)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3734 FROB (WM_QUERYDRAGICON)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3735 FROB (WM_COMPAREITEM)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3736 #if(WINVER >= 0x0500)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3737 FROB (WM_GETOBJECT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3738 #endif /* WINVER >= 0x0500 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3739 FROB (WM_COMPACTING)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3740 FROB (WM_COMMNOTIFY)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3741 FROB (WM_WINDOWPOSCHANGING)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3742 FROB (WM_WINDOWPOSCHANGED)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3743
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3744 FROB (WM_POWER)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3745
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3746 FROB (WM_COPYDATA)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3747 FROB (WM_CANCELJOURNAL)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3748
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3749 #if(WINVER >= 0x0400)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3750 FROB (WM_NOTIFY)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3751 FROB (WM_INPUTLANGCHANGEREQUEST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3752 FROB (WM_INPUTLANGCHANGE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3753 FROB (WM_TCARD)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3754 FROB (WM_HELP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3755 FROB (WM_USERCHANGED)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3756 FROB (WM_NOTIFYFORMAT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3757
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3758 FROB (WM_CONTEXTMENU)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3759 FROB (WM_STYLECHANGING)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3760 FROB (WM_STYLECHANGED)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3761 FROB (WM_DISPLAYCHANGE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3762 FROB (WM_GETICON)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3763 FROB (WM_SETICON)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3764 #endif /* WINVER >= 0x0400 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3765
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3766 FROB (WM_NCCREATE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3767 FROB (WM_NCDESTROY)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3768 FROB (WM_NCCALCSIZE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3769 FROB (WM_NCHITTEST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3770 FROB (WM_NCPAINT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3771 FROB (WM_NCACTIVATE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3772 FROB (WM_GETDLGCODE)
604
fa3b8eb89cb2 [xemacs-hg @ 2001-06-02 05:40:49 by ben]
ben
parents: 593
diff changeset
3773 #ifdef WM_SYNCPAINT /* not in VC 5 */
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3774 FROB (WM_SYNCPAINT)
604
fa3b8eb89cb2 [xemacs-hg @ 2001-06-02 05:40:49 by ben]
ben
parents: 593
diff changeset
3775 #endif /* WM_SYNCPAINT */
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3776 FROB (WM_NCMOUSEMOVE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3777 FROB (WM_NCLBUTTONDOWN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3778 FROB (WM_NCLBUTTONUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3779 FROB (WM_NCLBUTTONDBLCLK)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3780 FROB (WM_NCRBUTTONDOWN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3781 FROB (WM_NCRBUTTONUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3782 FROB (WM_NCRBUTTONDBLCLK)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3783 FROB (WM_NCMBUTTONDOWN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3784 FROB (WM_NCMBUTTONUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3785 FROB (WM_NCMBUTTONDBLCLK)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3786
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3787 /* FROB (WM_KEYFIRST) */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3788 FROB (WM_KEYDOWN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3789 FROB (WM_KEYUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3790 FROB (WM_CHAR)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3791 FROB (WM_DEADCHAR)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3792 FROB (WM_SYSKEYDOWN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3793 FROB (WM_SYSKEYUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3794 FROB (WM_SYSCHAR)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3795 FROB (WM_SYSDEADCHAR)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3796 FROB (WM_KEYLAST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3797
604
fa3b8eb89cb2 [xemacs-hg @ 2001-06-02 05:40:49 by ben]
ben
parents: 593
diff changeset
3798 #if(WINVER >= 0x0400) && defined (WM_IME_STARTCOMPOSITION)
fa3b8eb89cb2 [xemacs-hg @ 2001-06-02 05:40:49 by ben]
ben
parents: 593
diff changeset
3799 /* not in Cygwin? */
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3800 FROB (WM_IME_STARTCOMPOSITION)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3801 FROB (WM_IME_ENDCOMPOSITION)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3802 FROB (WM_IME_COMPOSITION)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3803 FROB (WM_IME_KEYLAST)
604
fa3b8eb89cb2 [xemacs-hg @ 2001-06-02 05:40:49 by ben]
ben
parents: 593
diff changeset
3804 #endif /* WINVER >= 0x0400 && defined (WM_IME_STARTCOMPOSITION) */
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3805
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3806 FROB (WM_INITDIALOG)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3807 FROB (WM_COMMAND)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3808 FROB (WM_SYSCOMMAND)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3809 FROB (WM_TIMER)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3810 FROB (WM_HSCROLL)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3811 FROB (WM_VSCROLL)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3812 FROB (WM_INITMENU)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3813 FROB (WM_INITMENUPOPUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3814 FROB (WM_MENUSELECT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3815 FROB (WM_MENUCHAR)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3816 FROB (WM_ENTERIDLE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3817 #if(WINVER >= 0x0500)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3818 FROB (WM_MENURBUTTONUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3819 FROB (WM_MENUDRAG)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3820 FROB (WM_MENUGETOBJECT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3821 FROB (WM_UNINITMENUPOPUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3822 FROB (WM_MENUCOMMAND)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3823 #endif /* WINVER >= 0x0500 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3824
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3825
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3826 FROB (WM_CTLCOLORMSGBOX)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3827 FROB (WM_CTLCOLOREDIT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3828 FROB (WM_CTLCOLORLISTBOX)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3829 FROB (WM_CTLCOLORBTN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3830 FROB (WM_CTLCOLORDLG)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3831 FROB (WM_CTLCOLORSCROLLBAR)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3832 FROB (WM_CTLCOLORSTATIC)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3833
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3834
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3835 /* FROB (WM_MOUSEFIRST) */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3836 FROB (WM_MOUSEMOVE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3837 FROB (WM_LBUTTONDOWN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3838 FROB (WM_LBUTTONUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3839 FROB (WM_LBUTTONDBLCLK)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3840 FROB (WM_RBUTTONDOWN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3841 FROB (WM_RBUTTONUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3842 FROB (WM_RBUTTONDBLCLK)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3843 FROB (WM_MBUTTONDOWN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3844 FROB (WM_MBUTTONUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3845 FROB (WM_MBUTTONDBLCLK)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3846
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3847 #if (_WIN32_WINNT >= 0x0400) || (_WIN32_WINDOWS > 0x0400)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3848 FROB (WM_MOUSEWHEEL)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3849 FROB (WM_MOUSELAST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3850 #else
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3851 FROB (WM_MOUSELAST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3852 #endif /* if (_WIN32_WINNT < 0x0400) */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3853
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3854 FROB (WM_PARENTNOTIFY)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3855 FROB (WM_ENTERMENULOOP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3856 FROB (WM_EXITMENULOOP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3857
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3858 #if(WINVER >= 0x0400)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3859 FROB (WM_NEXTMENU)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3860
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3861 FROB (WM_SIZING)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3862 FROB (WM_CAPTURECHANGED)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3863 FROB (WM_MOVING)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3864 FROB (WM_POWERBROADCAST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3865
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3866 FROB (WM_DEVICECHANGE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3867
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3868 #endif /* WINVER >= 0x0400 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3869
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3870 FROB (WM_MDICREATE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3871 FROB (WM_MDIDESTROY)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3872 FROB (WM_MDIACTIVATE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3873 FROB (WM_MDIRESTORE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3874 FROB (WM_MDINEXT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3875 FROB (WM_MDIMAXIMIZE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3876 FROB (WM_MDITILE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3877 FROB (WM_MDICASCADE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3878 FROB (WM_MDIICONARRANGE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3879 FROB (WM_MDIGETACTIVE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3880
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3881
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3882 FROB (WM_MDISETMENU)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3883 FROB (WM_ENTERSIZEMOVE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3884 FROB (WM_EXITSIZEMOVE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3885 FROB (WM_DROPFILES)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3886 FROB (WM_MDIREFRESHMENU)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3887
604
fa3b8eb89cb2 [xemacs-hg @ 2001-06-02 05:40:49 by ben]
ben
parents: 593
diff changeset
3888 #ifdef WM_IME_SETCONTEXT /* not in Cygwin? */
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3889
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3890 #if(WINVER >= 0x0400)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3891 FROB (WM_IME_SETCONTEXT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3892 FROB (WM_IME_NOTIFY)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3893 FROB (WM_IME_CONTROL)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3894 FROB (WM_IME_COMPOSITIONFULL)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3895 FROB (WM_IME_SELECT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3896 FROB (WM_IME_CHAR)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3897 #endif /* WINVER >= 0x0400 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3898 #if(WINVER >= 0x0500)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3899 FROB (WM_IME_REQUEST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3900 #endif /* WINVER >= 0x0500 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3901 #if(WINVER >= 0x0400)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3902 FROB (WM_IME_KEYDOWN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3903 FROB (WM_IME_KEYUP)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3904 #endif /* WINVER >= 0x0400 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3905
604
fa3b8eb89cb2 [xemacs-hg @ 2001-06-02 05:40:49 by ben]
ben
parents: 593
diff changeset
3906 #endif /* WM_IME_SETCONTEXT */
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3907
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3908 #if(_WIN32_WINNT >= 0x0400)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3909 FROB (WM_MOUSEHOVER)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3910 FROB (WM_MOUSELEAVE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3911 #endif /* _WIN32_WINNT >= 0x0400 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3912
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3913 FROB (WM_CUT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3914 FROB (WM_COPY)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3915 FROB (WM_PASTE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3916 FROB (WM_CLEAR)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3917 FROB (WM_UNDO)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3918 FROB (WM_RENDERFORMAT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3919 FROB (WM_RENDERALLFORMATS)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3920 FROB (WM_DESTROYCLIPBOARD)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3921 FROB (WM_DRAWCLIPBOARD)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3922 FROB (WM_PAINTCLIPBOARD)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3923 FROB (WM_VSCROLLCLIPBOARD)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3924 FROB (WM_SIZECLIPBOARD)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3925 FROB (WM_ASKCBFORMATNAME)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3926 FROB (WM_CHANGECBCHAIN)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3927 FROB (WM_HSCROLLCLIPBOARD)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3928 FROB (WM_QUERYNEWPALETTE)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3929 FROB (WM_PALETTEISCHANGING)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3930 FROB (WM_PALETTECHANGED)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3931 FROB (WM_HOTKEY)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3932
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3933 #if(WINVER >= 0x0400)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3934 FROB (WM_PRINT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3935 FROB (WM_PRINTCLIENT)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3936
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3937 FROB (WM_HANDHELDFIRST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3938 FROB (WM_HANDHELDLAST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3939
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3940 FROB (WM_AFXFIRST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3941 FROB (WM_AFXLAST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3942 #endif /* WINVER >= 0x0400 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3943
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3944 FROB (WM_PENWINFIRST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3945 FROB (WM_PENWINLAST)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3946 };
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3947
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3948 #undef FROB
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3949
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3950 static void
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3951 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
3952 LPARAM lParam)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3953 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3954 Lisp_Object frame = mswindows_find_frame (hwnd);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3955 int i;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3956 char *str = 0;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3957 /* 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
3958
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3959 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
3960 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3961 if (debug_mswin_messages[i].mess == message_)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3962 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3963 str = debug_mswin_messages[i].string;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3964 break;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3965 }
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3966 }
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3967
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3968 if (str)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3969 stderr_out ("%s", str);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3970 else
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3971 stderr_out ("%x", message_);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3972
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3973 if (debug_mswindows_events > 1)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3974 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3975 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
3976 wParam, (int) lParam, (unsigned int) hwnd);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3977 debug_print (frame);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3978 }
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3979 else
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3980 stderr_out ("\n");
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3981 }
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3982
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3983 #endif /* DEBUG_XEMACS */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
3984
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3985 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3986 /* initialization */
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 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3990 reinit_vars_of_event_mswindows (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3991 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3992 mswindows_in_modal_loop = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3993 mswindows_pending_timers_count = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3994
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3995 mswindows_event_stream = xnew (struct event_stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3996
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3997 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
3998 mswindows_event_stream->force_event_pending = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3999 mswindows_event_stream->next_event_cb = emacs_mswindows_next_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4000 mswindows_event_stream->handle_magic_event_cb = emacs_mswindows_handle_magic_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4001 mswindows_event_stream->add_timeout_cb = emacs_mswindows_add_timeout;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4002 mswindows_event_stream->remove_timeout_cb = emacs_mswindows_remove_timeout;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4003 mswindows_event_stream->quit_p_cb = emacs_mswindows_quit_p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4004 mswindows_event_stream->select_console_cb = emacs_mswindows_select_console;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4005 mswindows_event_stream->unselect_console_cb = emacs_mswindows_unselect_console;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4006 #ifdef HAVE_MSG_SELECT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4007 mswindows_event_stream->select_process_cb =
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4008 (void (*)(Lisp_Process*))event_stream_unixoid_select_process;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4009 mswindows_event_stream->unselect_process_cb =
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4010 (void (*)(Lisp_Process*))event_stream_unixoid_unselect_process;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4011 mswindows_event_stream->create_stream_pair_cb = event_stream_unixoid_create_stream_pair;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4012 mswindows_event_stream->delete_stream_pair_cb = event_stream_unixoid_delete_stream_pair;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4013 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4014 mswindows_event_stream->select_process_cb = emacs_mswindows_select_process;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4015 mswindows_event_stream->unselect_process_cb = emacs_mswindows_unselect_process;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4016 mswindows_event_stream->create_stream_pair_cb = emacs_mswindows_create_stream_pair;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4017 mswindows_event_stream->delete_stream_pair_cb = emacs_mswindows_delete_stream_pair;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4018 #endif
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4019 mswindows_event_stream->current_event_timestamp_cb =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4020 emacs_mswindows_current_event_timestamp;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4021 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4022
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4023 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4024 vars_of_event_mswindows (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4025 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4026 reinit_vars_of_event_mswindows ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4027
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4028 mswindows_u_dispatch_event_queue = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4029 staticpro (&mswindows_u_dispatch_event_queue);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4030 mswindows_u_dispatch_event_queue_tail = Qnil;
452
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 446
diff changeset
4031 dump_add_root_object (&mswindows_u_dispatch_event_queue_tail);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4032
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4033 mswindows_s_dispatch_event_queue = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4034 staticpro (&mswindows_s_dispatch_event_queue);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4035 mswindows_s_dispatch_event_queue_tail = Qnil;
452
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 446
diff changeset
4036 dump_add_root_object (&mswindows_s_dispatch_event_queue_tail);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4037
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4038 mswindows_error_caught_in_modal_loop = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4039 staticpro (&mswindows_error_caught_in_modal_loop);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4040
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4041
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4042 #ifdef DEBUG_XEMACS
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4043 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
4044 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
4045 Information is displayed in a console window. Currently defined values are:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4046
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4047 1 == non-verbose output (just the message name)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4048 2 == verbose output (all parameters)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 588
diff changeset
4049 3 == even more verbose output (extra debugging info)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4050 */ );
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4051 debug_mswindows_events = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4052 #endif
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4053
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4054 DEFVAR_BOOL ("mswindows-alt-by-itself-activates-menu",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4055 &mswindows_alt_by_itself_activates_menu /*
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4056 *Controls whether pressing and releasing the Alt key activates the menubar.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4057 This applies only if no intervening key was pressed. See also
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4058 `menu-accelerator-enabled', which is probably the behavior you actually want.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4059 Default is t.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4060 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4061
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4062 DEFVAR_BOOL ("mswindows-dynamic-frame-resize",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4063 &mswindows_dynamic_frame_resize /*
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4064 *Controls redrawing frame contents during mouse-drag or keyboard resize
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4065 operation. When non-nil, the frame is redrawn while being resized. When
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4066 nil, frame is not redrawn, and exposed areas are filled with default
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4067 MDI application background color. Note that this option only has effect
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4068 if "Show window contents while dragging" is on in system Display/Plus!
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4069 settings.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4070 Default is t on fast machines, nil on slow.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4071 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4072
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4073 DEFVAR_INT ("mswindows-mouse-button-tolerance",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4074 &mswindows_mouse_button_tolerance /*
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4075 *Analogue of double click interval for faking middle mouse events.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4076 The value is the minimum time in milliseconds that must elapse between
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4077 left/right button down events before they are considered distinct events.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4078 If both mouse buttons are depressed within this interval, a middle mouse
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4079 button down event is generated instead.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4080 If negative or zero, currently set system default is used instead.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4081 */ );
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 DEFVAR_INT ("mswindows-num-mouse-buttons", &mswindows_num_mouse_buttons /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4084 Number of physical mouse buttons.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4085 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4086
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4087 DEFVAR_INT ("mswindows-mouse-button-max-skew-x",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4088 &mswindows_mouse_button_max_skew_x /*
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4089 *Maximum horizontal distance in pixels between points in which left and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4090 right button clicks occurred for them to be translated into single
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4091 middle button event. Clicks must occur in time not longer than defined
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4092 by the variable `mswindows-mouse-button-tolerance'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4093 If negative or zero, currently set system default is used instead.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4094 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4095
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4096 DEFVAR_INT ("mswindows-mouse-button-max-skew-y",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4097 &mswindows_mouse_button_max_skew_y /*
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4098 *Maximum vertical distance in pixels between points in which left and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4099 right button clicks occurred for them to be translated into single
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4100 middle button event. Clicks must occur in time not longer than defined
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4101 by the variable `mswindows-mouse-button-tolerance'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4102 If negative or zero, currently set system default is used instead.
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4105 mswindows_mouse_button_max_skew_x = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4106 mswindows_mouse_button_max_skew_y = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4107 mswindows_mouse_button_tolerance = 0;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4108 mswindows_alt_by_itself_activates_menu = 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4109 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4110
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4111 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4112 syms_of_event_mswindows (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4113 {
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4116 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4117 lstream_type_create_mswindows_selectable (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4118 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4119 init_slurp_stream ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4120 init_shove_stream ();
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
4121 #if defined (HAVE_SOCKETS) && !defined (HAVE_MSG_SELECT)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4122 init_winsock_stream ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4123 #endif
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4126 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4127 init_event_mswindows_late (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4128 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4129 #ifdef HAVE_MSG_SELECT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4130 windows_fd = open("/dev/windows", O_RDONLY | O_NONBLOCK, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4131 assert (windows_fd>=0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4132 FD_SET (windows_fd, &input_wait_mask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4133 FD_ZERO(&zero_mask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4134 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4135
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4136 event_stream = mswindows_event_stream;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4137
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4138 mswindows_dynamic_frame_resize = !GetSystemMetrics (SM_SLOWMACHINE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4139 mswindows_num_mouse_buttons = GetSystemMetrics (SM_CMOUSEBUTTONS);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4140 }