Ultimately based on FSF.
Rewritten by Ben Wing.
Rewritten for mswindows by Jonathan Harris, November 1997 for 21.0.
+ Subprocess and modal loop support by Kirill M. Katsnelson.
*/
#include <config.h>
#include "device.h"
#include "events.h"
#include "frame.h"
+#include "buffer.h"
+#include "faces.h"
#include "lstream.h"
#include "process.h"
#include "redisplay.h"
#include "syswait.h"
#include "systime.h"
#include "sysdep.h"
+#include "objects-msw.h"
#include "events-mod.h"
#ifdef HAVE_MSG_SELECT
mswindows_get_toolbar_button_text (struct frame* f, int command_id);
extern Lisp_Object
mswindows_handle_toolbar_wm_command (struct frame* f, HWND ctrl, WORD id);
+extern Lisp_Object
+mswindows_handle_gui_wm_command (struct frame* f, HWND ctrl, WORD id);
static Lisp_Object mswindows_find_frame (HWND hwnd);
static Lisp_Object mswindows_find_console (HWND hwnd);
/* List of mswindows waitable handles. */
static HANDLE mswindows_waitable_handles[MAX_WAITABLE];
+#ifndef HAVE_MSG_SELECT
/* Number of wait handles */
static int mswindows_waitable_count=0;
+#endif /* HAVE_MSG_SELECT */
+/* Brush for painting widgets */
+static HBRUSH widget_brush = 0;
+static LONG last_widget_brushed = 0;
/* Count of quit chars currently in the queue */
/* Incremented in WM_[SYS]KEYDOWN handler in the mswindows_wnd_proc()
/* This structure is allocated by the main thread, and is deallocated
in the thread upon exit. There are situations when a thread
remains blocked for a long time, much longer than the lstream
- exists. For exmaple, "start notepad" command is issued from the
+ exists. For example, "start notepad" command is issued from the
shell, then the shell is closed by C-c C-d. Although the shell
process exits, its output pipe will not get closed until the
notepad process exits also, because it inherits the pipe form the
sizeof (struct ntpipe_slurp_stream));
/* This function is thread-safe, and is called from either thread
- context. It serializes freeing shared dtata structure */
+ context. It serializes freeing shared data structure */
static void
slurper_free_shared_data_maybe (struct ntpipe_slurp_stream_shared_data* s)
{
if (s->die_p)
break;
- /* Block until the client finishes with retireving the rest of
+ /* Block until the client finishes with retrieving the rest of
pipe data */
WaitForSingleObject (s->hev_thread, INFINITE);
}
DEFINE_LSTREAM_IMPLEMENTATION ("ntpipe-output", lstream_ntpipe_shove,
sizeof (struct ntpipe_shove_stream));
+#ifndef HAVE_MSG_SELECT
static DWORD WINAPI
shove_thread (LPVOID vparam)
{
struct ntpipe_shove_stream* s = NTPIPE_SHOVE_STREAM_DATA(stream);
return s->user_data;
}
+#endif
static int
ntpipe_shove_writer (Lstream *stream, const unsigned char *data, size_t size)
OVERLAPPED ov; /* Overlapped I/O structure */
void* buffer; /* Buffer. Allocated for input stream only */
unsigned int bufsize; /* Number of bytes last read */
- unsigned int bufpos; /* Psition in buffer for next fetch */
+ unsigned int bufpos; /* Position in buffer for next fetch */
unsigned int error_p :1; /* I/O Error seen */
unsigned int eof_p :1; /* EOF Error seen */
unsigned int pending_p :1; /* There is a pending I/O operation */
{
event->event_type = button_press_event;
SetCapture (hwnd);
+ /* we need this to make sure the main window regains the focus
+ from control subwindows */
+ if (GetFocus() != hwnd)
+ {
+ SetFocus (hwnd);
+ mswindows_enqueue_magic_event (hwnd, WM_SETFOCUS);
+ }
}
else
{
/*
* Remove and return the first emacs event on the dispatch queue that matches
- * the supplied event
- * Timeout event matches if interval_id equals to that of the given event.
+ * the supplied event.
+ * Timeout event matches if interval_id is equal to that of the given event.
* Keypress event matches if logical AND between modifiers bitmask of the
- * event in the queue and that of the given event is non-zero
- * For all other event types, this function asserts.
+ * event in the queue and that of the given event is non-zero.
+ * For all other event types, this function aborts.
*/
Lisp_Object
-mswindows_cancel_dispatch_event (struct Lisp_Event* match)
+mswindows_cancel_dispatch_event (struct Lisp_Event *match)
{
Lisp_Object event;
- Lisp_Object previous_event=Qnil;
+ Lisp_Object previous_event = Qnil;
int user_p = mswindows_user_event_p (match);
Lisp_Object* head = user_p ? &mswindows_u_dispatch_event_queue :
&mswindows_s_dispatch_event_queue;
EVENT_CHAIN_LOOP (event, *head)
{
- int found = 1;
- if (XEVENT_TYPE (event) != match->event_type)
- found = 0;
- if (found && match->event_type == timeout_event
- && (XEVENT(event)->event.timeout.interval_id !=
- match->event.timeout.interval_id))
- found = 0;
- if (found && match->event_type == key_press_event
- && ((XEVENT(event)->event.key.modifiers &
- match->event.key.modifiers) == 0))
- found = 0;
-
- if (found)
+ struct Lisp_Event *e = XEVENT (event);
+ if ((e->event_type == match->event_type) &&
+ ((e->event_type == timeout_event) ?
+ (e->event.timeout.interval_id == match->event.timeout.interval_id) :
+ /* Must be key_press_event */
+ ((e->event.key.modifiers & match->event.key.modifiers) != 0)))
{
if (NILP (previous_event))
dequeue_event (head, tail);
return Qnil;
}
\f
+#ifndef HAVE_MSG_SELECT
/************************************************************************/
/* Waitable handles manipulation */
/************************************************************************/
mswindows_waitable_handles [ix] =
mswindows_waitable_handles [--mswindows_waitable_count];
}
+#endif /* HAVE_MSG_SELECT */
\f
/************************************************************************/
* neither are waitable handles checked. The function pumps
* thus only dispatch events already queued, as well as those
* resulted in dispatching thereof. This is done by setting
- * module local variable mswidows_in_modal_loop to nonzero.
+ * module local variable mswindows_in_modal_loop to nonzero.
*
* Return value is Qt if no errors was trapped, or Qunbound if
* there was an error.
* If the value of mswindows_error_caught_in_modal_loop is not
* nil already upon entry, the function just returns non-nil.
* This situation means that a new event has been queued while
- * cancleng mode. The event will be dequeued on the next regular
+ * in cancel mode. The event will be dequeued on the next regular
* call of next-event; the pump is off since error is caught.
* The caller must *unconditionally* cancel modal loop if the
* value returned by this function is nil. Otherwise, everything
MSG msg;
while (PeekMessage (&msg, NULL, 0, 0, PM_REMOVE))
{
+ /* we have to translate messages that are not sent to the main
+ window. this is so that key presses work ok in things like
+ edit fields. however, we *musn't* translate message for the
+ main window as this is handled in the wnd proc. */
+ if ( GetWindowLong (msg.hwnd, GWL_STYLE) & WS_CHILD )
+ {
+ TranslateMessage (&msg);
+ }
DispatchMessage (&msg);
mswindows_unmodalize_signal_maybe ();
}
}
/*
- * This is a special flavour of the mswindows_need_event function,
+ * This is a special flavor of the mswindows_need_event function,
* used while in event pump. Actually, there is only kind of events
* allowed while in event pump: a timer. An attempt to fetch any
- * other event leads to a dealock, as there's no source of user input
+ * other event leads to a deadlock, as there's no source of user input
* ('cause event pump mirrors windows modal loop, which is a sole
* owner of thread message queue).
*
{
if (errno != EINTR)
{
- /* something bad happended */
+ /* something bad happened */
assert(0);
}
}
else
{
int ix = active - WAIT_OBJECT_0;
- /* First, try to find which process' ouptut has signaled */
+ /* First, try to find which process' output has signaled */
struct Lisp_Process *p =
get_process_from_usid (HANDLE_TO_USID (mswindows_waitable_handles[ix]));
if (p != NULL)
else
{
/* None. This means that the process handle itself has signaled.
- Remove the handle from the wait vector, and make status_ntoify
+ Remove the handle from the wait vector, and make status_notify
note the exited process */
mswindows_waitable_handles [ix] =
mswindows_waitable_handles [--mswindows_waitable_count];
event->timestamp = dwtime;
event->event_type = timeout_event;
event->event.timeout.interval_id = id_timer;
+ event->event.timeout.function = Qnil;
+ event->event.timeout.object = Qnil;
mswindows_enqueue_dispatch_event (emacs_event);
}
LRESULT WINAPI
mswindows_wnd_proc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
- /* Note: Remember to initialise emacs_event and event before use.
+ /* Note: Remember to initialize emacs_event and event before use.
This code calls code that can GC. You must GCPRO before calling such code. */
Lisp_Object emacs_event = Qnil;
Lisp_Object fobj = Qnil;
{
int quit_ch = CONSOLE_QUIT_CHAR (XCONSOLE (mswindows_find_console (hwnd)));
BYTE keymap_orig[256];
- MSG msg = { hwnd, message, wParam, lParam, GetMessageTime(), (GetMessagePos()) };
+ POINT pnt = { LOWORD (GetMessagePos()), HIWORD (GetMessagePos()) };
+ MSG msg;
+
+ msg.hwnd = hwnd;
+ msg.message = message;
+ msg.wParam = wParam;
+ msg.lParam = lParam;
+ msg.time = GetMessageTime();
+ msg.pt = pnt;
/* GetKeyboardState() does not work as documented on Win95. We have
* to loosely track Left and Right modifiers on behalf of the OS,
break;
case WM_MOUSEMOVE:
- /* Optimization: don't report mouse movement while size is changind */
+ /* Optimization: don't report mouse movement while size is changing */
msframe = FRAME_MSWINDOWS_DATA (XFRAME (mswindows_find_frame (hwnd)));
if (!msframe->sizing)
{
/* When waiting for the second mouse button to finish
button2 emulation, and have moved too far, just pretend
- as if timer has expired. This impoves drag-select feedback */
+ as if timer has expired. This improves drag-select feedback */
if ((msframe->button2_need_lbutton || msframe->button2_need_rbutton)
&& !mswindows_button2_near_enough (msframe->last_click_point,
MAKEPOINTS (lParam)))
{
/* I think this is safe since the text will only go away
when the toolbar does...*/
- tttext->lpszText=XSTRING_DATA (btext);
+ GET_C_STRING_EXT_DATA_ALLOCA (btext, FORMAT_OS,
+ tttext->lpszText);
}
#if 0
tttext->uFlags |= TTF_DI_SETITEM;
case WM_COMMAND:
{
WORD id = LOWORD (wParam);
+ WORD nid = HIWORD (wParam);
HWND cid = (HWND)lParam;
frame = XFRAME (mswindows_find_frame (hwnd));
if (!NILP (mswindows_handle_toolbar_wm_command (frame, cid, id)))
break;
#endif
-
+ /* widgets in a buffer only eval a callback for suitable events.*/
+ switch (nid)
+ {
+ case BN_CLICKED:
+ case EN_CHANGE:
+ case CBN_EDITCHANGE:
+ case CBN_SELCHANGE:
+ if (!NILP (mswindows_handle_gui_wm_command (frame, cid, id)))
+ return 0;
+ }
+ /* menubars always must come last since the hashtables do not
+ always exist*/
#ifdef HAVE_MENUBARS
if (!NILP (mswindows_handle_wm_command (frame, id)))
break;
#endif
- /* Bite me - a spurious command. This cannot happen. */
- error ("XEMACS BUG: Cannot decode command message");
+ return DefWindowProc (hwnd, message, wParam, lParam);
+ /* Bite me - a spurious command. This used to not be able to
+ happen but with the introduction of widgets its now
+ possible. */
}
break;
+ case WM_CTLCOLORBTN:
+ case WM_CTLCOLORLISTBOX:
+ case WM_CTLCOLOREDIT:
+ case WM_CTLCOLORSTATIC:
+ case WM_CTLCOLORSCROLLBAR:
+ {
+ /* if we get an opportunity to paint a widget then do so if
+ there is an appropriate face */
+ HWND crtlwnd = (HWND)lParam;
+ LONG ii = GetWindowLong (crtlwnd, GWL_USERDATA);
+ if (ii)
+ {
+ Lisp_Object image_instance;
+ VOID_TO_LISP (image_instance, ii);
+ if (IMAGE_INSTANCEP (image_instance)
+ &&
+ IMAGE_INSTANCE_TYPE_P (image_instance, IMAGE_WIDGET)
+ &&
+ !NILP (XIMAGE_INSTANCE_WIDGET_FACE (image_instance)))
+ {
+ /* set colors for the buttons */
+ HDC hdc = (HDC)wParam;
+ if (last_widget_brushed != ii)
+ {
+ if (widget_brush)
+ DeleteObject (widget_brush);
+ widget_brush = CreateSolidBrush
+ (COLOR_INSTANCE_MSWINDOWS_COLOR
+ (XCOLOR_INSTANCE
+ (FACE_BACKGROUND
+ (XIMAGE_INSTANCE_WIDGET_FACE (image_instance),
+ XIMAGE_INSTANCE_SUBWINDOW_FRAME (image_instance)))));
+ }
+ last_widget_brushed = ii;
+ SetTextColor
+ (hdc,
+ COLOR_INSTANCE_MSWINDOWS_COLOR
+ (XCOLOR_INSTANCE
+ (FACE_FOREGROUND
+ (XIMAGE_INSTANCE_WIDGET_FACE (image_instance),
+ XIMAGE_INSTANCE_SUBWINDOW_FRAME (image_instance)))));
+ SetBkMode (hdc, OPAQUE);
+ SetBkColor
+ (hdc,
+ COLOR_INSTANCE_MSWINDOWS_COLOR
+ (XCOLOR_INSTANCE
+ (FACE_BACKGROUND
+ (XIMAGE_INSTANCE_WIDGET_FACE (image_instance),
+ XIMAGE_INSTANCE_SUBWINDOW_FRAME (image_instance)))));
+ return (LRESULT)widget_brush;
+ }
+ }
+ }
+ goto defproc;
+
#ifdef HAVE_DRAGNDROP
case WM_DROPFILES: /* implementation ripped-off from event-Xt.c */
{
}
}
+#ifndef HAVE_MSG_SELECT
static HANDLE
get_process_input_waitable (struct Lisp_Process *process)
{
HANDLE hev = get_process_input_waitable (process);
remove_waitable_handle (hev);
}
+#endif /* HAVE_MSG_SELECT */
static void
emacs_mswindows_select_console (struct console *con)
static void
emacs_mswindows_quit_p (void)
{
+ MSG msg;
+
/* Quit cannot happen in modal loop: all program
input is dedicated to Windows. */
if (mswindows_in_modal_loop)
return;
- /* Drain windows queue. This sets up number of quit
- characters in in the queue */
- mswindows_drain_windows_queue ();
+ /* Drain windows queue. This sets up number of quit characters in the queue
+ * (and also processes wm focus change, move, resize, etc messages).
+ * We don't want to process WM_PAINT messages because this function can be
+ * called from almost anywhere and the windows' states may be changing. */
+ while (PeekMessage (&msg, NULL, 0, WM_PAINT-1, PM_REMOVE) ||
+ PeekMessage (&msg, NULL, WM_PAINT+1, WM_USER-1, PM_REMOVE))
+ DispatchMessage (&msg);
if (mswindows_quit_chars_count > 0)
{
DEFVAR_INT ("mswindows-mouse-button-max-skew-x", &mswindows_mouse_button_max_skew_x /*
*Maximum horizontal distance in pixels between points in which left and
-right button clicks occured for them to be translated into single
+right button clicks occurred for them to be translated into single
middle button event. Clicks must occur in time not longer than defined
by the variable `mswindows-mouse-button-tolerance'.
If negative or zero, currently set system default is used instead.
DEFVAR_INT ("mswindows-mouse-button-max-skew-y", &mswindows_mouse_button_max_skew_y /*
*Maximum vertical distance in pixels between points in which left and
-right button clicks occured for them to be translated into single
+right button clicks occurred for them to be translated into single
middle button event. Clicks must occur in time not longer than defined
by the variable `mswindows-mouse-button-tolerance'.
If negative or zero, currently set system default is used instead.
projects / chise / xemacs-chise.git.1 / blobdiff