/* Clutter. * An OpenGL based 'interactive canvas' library. * Authored By Matthew Allum * Copyright (C) 2006-2007 OpenedHand * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the * Free Software Foundation, Inc., 59 Temple Place - Suite 330, * Boston, MA 02111-1307, USA. */ #ifdef HAVE_CONFIG_H #include "config.h" #endif #include "clutter-stage-win32.h" #include "clutter-backend-win32.h" #include "clutter-win32.h" #include "../clutter-backend.h" #include "../clutter-event.h" #include "../clutter-private.h" #include "../clutter-debug.h" #include "../clutter-main.h" #include "../clutter-keysyms.h" #include #include #include #include typedef struct _ClutterEventSource ClutterEventSource; struct _ClutterEventSource { GSource source; ClutterBackend *backend; GPollFD event_poll_fd; }; static gboolean clutter_event_prepare (GSource *source, gint *timeout); static gboolean clutter_event_check (GSource *source); static gboolean clutter_event_dispatch (GSource *source, GSourceFunc callback, gpointer user_data); static GSourceFuncs event_funcs = { clutter_event_prepare, clutter_event_check, clutter_event_dispatch, NULL }; /* Special mapping for some keys that don't have a direct Unicode value. Must be sorted by the numeric value of the Windows key virtual key code */ static const struct { gushort win_sym, clutter_sym; } clutter_win32_key_map[] = { { VK_CANCEL, CLUTTER_Cancel }, { VK_BACK, CLUTTER_BackSpace }, { VK_TAB, CLUTTER_Tab }, { VK_CLEAR, CLUTTER_Clear }, { VK_RETURN, CLUTTER_Return }, { VK_MENU, CLUTTER_Menu }, { VK_PAUSE, CLUTTER_Pause }, { VK_HANGUL, CLUTTER_Hangul }, { VK_KANJI, CLUTTER_Kanji }, { VK_ESCAPE, CLUTTER_Escape }, { VK_SPACE, CLUTTER_space }, { VK_PRIOR, CLUTTER_Prior }, { VK_NEXT, CLUTTER_Next }, { VK_END, CLUTTER_End }, { VK_HOME, CLUTTER_Home }, { VK_LEFT, CLUTTER_Left }, { VK_UP, CLUTTER_Up }, { VK_RIGHT, CLUTTER_Right }, { VK_DOWN, CLUTTER_Down }, { VK_SELECT, CLUTTER_Select }, { VK_PRINT, CLUTTER_Print }, { VK_EXECUTE, CLUTTER_Execute }, { VK_INSERT, CLUTTER_Insert }, { VK_DELETE, CLUTTER_Delete }, { VK_HELP, CLUTTER_Help }, { VK_MULTIPLY, CLUTTER_multiply }, { VK_F1, CLUTTER_F1 }, { VK_F2, CLUTTER_F2 }, { VK_F3, CLUTTER_F3 }, { VK_F4, CLUTTER_F4 }, { VK_F5, CLUTTER_F5 }, { VK_F6, CLUTTER_F6 }, { VK_F7, CLUTTER_F7 }, { VK_F8, CLUTTER_F8 }, { VK_F9, CLUTTER_F9 }, { VK_F10, CLUTTER_F10 }, { VK_F11, CLUTTER_F11 }, { VK_F12, CLUTTER_F12 }, { VK_F13, CLUTTER_F13 }, { VK_F14, CLUTTER_F14 }, { VK_F15, CLUTTER_F15 }, { VK_F16, CLUTTER_F16 }, { VK_F17, CLUTTER_F17 }, { VK_F18, CLUTTER_F18 }, { VK_F19, CLUTTER_F19 }, { VK_F20, CLUTTER_F20 }, { VK_F21, CLUTTER_F21 }, { VK_F22, CLUTTER_F22 }, { VK_F23, CLUTTER_F23 }, { VK_F24, CLUTTER_F24 }, { VK_LSHIFT, CLUTTER_Shift_L }, { VK_RSHIFT, CLUTTER_Shift_R }, { VK_LCONTROL, CLUTTER_Control_L }, { VK_RCONTROL, CLUTTER_Control_R } }; #define CLUTTER_WIN32_KEY_MAP_SIZE (sizeof (clutter_win32_key_map) \ / sizeof (clutter_win32_key_map[0])) static GSource * clutter_event_source_new (ClutterBackend *backend) { GSource *source = g_source_new (&event_funcs, sizeof (ClutterEventSource)); ClutterEventSource *event_source = (ClutterEventSource *) source; event_source->backend = backend; return source; } void _clutter_backend_win32_events_init (ClutterBackend *backend) { ClutterBackendWin32 *backend_win32 = CLUTTER_BACKEND_WIN32 (backend); GSource *source; ClutterEventSource *event_source; source = backend_win32->event_source = clutter_event_source_new (backend); event_source = (ClutterEventSource *) source; g_source_set_priority (source, CLUTTER_PRIORITY_EVENTS); event_source->event_poll_fd.fd = G_WIN32_MSG_HANDLE; event_source->event_poll_fd.events = G_IO_IN; g_source_add_poll (source, &event_source->event_poll_fd); g_source_set_can_recurse (source, TRUE); g_source_attach (source, NULL); } void _clutter_backend_win32_events_uninit (ClutterBackend *backend) { ClutterBackendWin32 *backend_win32 = CLUTTER_BACKEND_WIN32 (backend); if (backend_win32->event_source) { CLUTTER_NOTE (EVENT, "Destroying the event source"); g_source_destroy (backend_win32->event_source); g_source_unref (backend_win32->event_source); backend_win32->event_source = NULL; } } static gboolean check_msg_pending () { MSG msg; return PeekMessageW (&msg, NULL, 0, 0, PM_NOREMOVE) ? TRUE : FALSE; } static ClutterModifierType get_modifier_state (WPARAM wparam) { ClutterModifierType ret = 0; if ((wparam & MK_SHIFT)) ret |= CLUTTER_SHIFT_MASK; if ((wparam & MK_CONTROL)) ret |= CLUTTER_CONTROL_MASK; if ((wparam & MK_LBUTTON)) ret |= CLUTTER_BUTTON1_MASK; if ((wparam & MK_MBUTTON)) ret |= CLUTTER_BUTTON2_MASK; if ((wparam & MK_RBUTTON)) ret |= CLUTTER_BUTTON3_MASK; return ret; } static inline void make_button_event (const MSG *msg, ClutterEvent *event, int button, int click_count, gboolean release, ClutterInputDevice *device) { event->type = release ? CLUTTER_BUTTON_RELEASE : CLUTTER_BUTTON_PRESS; event->button.time = msg->time; event->button.x = GET_X_LPARAM (msg->lParam); event->button.y = GET_Y_LPARAM (msg->lParam); event->button.modifier_state = get_modifier_state (msg->wParam); event->button.button = button; event->button.click_count = click_count; event->button.device = device; } /** * clutter_win32_disable_event_retrieval * * Disables retrieval of Windows messages in the main loop. Use to * create event-less canvas. * * This function can only be called before calling clutter_init(). * * Since: 0.8 */ void clutter_win32_disable_event_retrieval (void) { ClutterBackendWin32 *backend; backend = CLUTTER_BACKEND_WIN32 (clutter_get_default_backend ()); backend->no_event_retrieval = TRUE; } static gboolean clutter_event_prepare (GSource *source, gint *timeout) { gboolean retval; clutter_threads_enter (); *timeout = -1; retval = (clutter_events_pending () || check_msg_pending ()); clutter_threads_leave (); return retval; } static gboolean clutter_event_check (GSource *source) { ClutterEventSource *event_source = (ClutterEventSource *) source; gboolean retval; clutter_threads_enter (); if ((event_source->event_poll_fd.revents & G_IO_IN)) retval = (clutter_events_pending () || check_msg_pending ()); else retval = FALSE; clutter_threads_leave (); return retval; } static gboolean clutter_event_dispatch (GSource *source, GSourceFunc callback, gpointer user_data) { ClutterEvent *event; MSG msg; clutter_threads_enter (); /* Process Windows messages until we've got one that translates into the clutter event queue */ while (!clutter_events_pending () && PeekMessageW (&msg, NULL, 0, 0, PM_REMOVE)) DispatchMessageW (&msg); /* Pop an event off the queue if any */ if ((event = clutter_event_get ())) { /* forward the event into clutter for emission etc. */ clutter_do_event (event); clutter_event_free (event); } clutter_threads_leave (); return TRUE; } static ClutterModifierType get_key_modifier_state (const BYTE *key_states) { ClutterModifierType ret = 0; if ((key_states[VK_SHIFT] & 0x80) || (key_states[VK_LSHIFT] & 0x80) || (key_states[VK_RSHIFT] & 0x80)) ret |= CLUTTER_SHIFT_MASK; if ((key_states[VK_CONTROL] & 0x80) || (key_states[VK_LCONTROL] & 0x80) || (key_states[VK_RCONTROL] & 0x80)) ret |= CLUTTER_CONTROL_MASK; if ((key_states[VK_MENU] & 0x80) || (key_states[VK_LMENU] & 0x80) || (key_states[VK_RMENU] & 0x80)) ret |= CLUTTER_MOD1_MASK; if (key_states[VK_CAPITAL]) ret |= CLUTTER_LOCK_MASK; return ret; } static gboolean message_translate (ClutterBackend *backend, ClutterEvent *event, const MSG *msg, gboolean *call_def_window_proc) { ClutterBackendWin32 *backend_win32; ClutterStageWin32 *stage_win32; ClutterDeviceManager *manager; ClutterInputDevice *core_pointer, *core_keyboard; ClutterStage *stage; ClutterStageWindow *impl; gboolean res; backend_win32 = CLUTTER_BACKEND_WIN32 (backend); /* Do further processing only on events for the stage window */ stage = clutter_win32_get_stage_from_window (msg->hwnd); if (stage == NULL) return FALSE; impl = _clutter_stage_get_window (stage); stage_win32 = CLUTTER_STAGE_WIN32 (impl); event->any.stage = stage; manager = clutter_device_manager_get_default (); core_pointer = clutter_device_manager_get_core_device (manager, CLUTTER_POINTER_DEVICE); core_keyboard = clutter_device_manager_get_core_device (manager, CLUTTER_KEYBOARD_DEVICE); res = TRUE; switch (msg->message) { case WM_SIZE: if (!stage_win32->is_foreign_win /* Ignore size changes resulting from the stage being minimized - otherwise the window size will be set to 0,0 */ && msg->wParam != SIZE_MINIMIZED) { WORD new_width = LOWORD (msg->lParam); WORD new_height = HIWORD (msg->lParam); gfloat old_width, old_height; clutter_actor_get_size (CLUTTER_ACTOR (stage), &old_width, &old_height); if (new_width != old_width || new_height != old_height) clutter_actor_set_size (CLUTTER_ACTOR (stage), new_width, new_height); } res = FALSE; break; case WM_SHOWWINDOW: if (msg->wParam) clutter_stage_win32_map (stage_win32); else clutter_stage_win32_unmap (stage_win32); res = FALSE; break; case WM_ACTIVATE: if (msg->wParam == WA_INACTIVE) { if (stage_win32->state & CLUTTER_STAGE_STATE_ACTIVATED) { stage_win32->state &= ~CLUTTER_STAGE_STATE_ACTIVATED; event->type = CLUTTER_STAGE_STATE; event->stage_state.changed_mask = CLUTTER_STAGE_STATE_ACTIVATED; event->stage_state.new_state = stage_win32->state; } else res = FALSE; break; } else { if (!(stage_win32->state & CLUTTER_STAGE_STATE_ACTIVATED)) { stage_win32->state |= CLUTTER_STAGE_STATE_ACTIVATED; event->type = CLUTTER_STAGE_STATE; event->stage_state.changed_mask = CLUTTER_STAGE_STATE_ACTIVATED; event->stage_state.new_state = stage_win32->state; } else res = FALSE; } break; case WM_PAINT: CLUTTER_NOTE (MULTISTAGE, "expose for stage:%p, redrawing", stage); clutter_redraw (stage); res = FALSE; break; case WM_DESTROY: CLUTTER_NOTE (EVENT, "WM_DESTROY"); event->type = CLUTTER_DESTROY_NOTIFY; break; case WM_CLOSE: CLUTTER_NOTE (EVENT, "WM_CLOSE"); event->type = CLUTTER_DELETE; /* The default window proc will destroy the window so we want to prevent this to allow applications to optionally destroy the window themselves */ if (call_def_window_proc) *call_def_window_proc = FALSE; break; case WM_LBUTTONDOWN: make_button_event (msg, event, 1, 1, FALSE, core_pointer); break; case WM_MBUTTONDOWN: make_button_event (msg, event, 2, 1, FALSE, core_pointer); break; case WM_RBUTTONDOWN: make_button_event (msg, event, 3, 1, FALSE, core_pointer); break; case WM_LBUTTONUP: make_button_event (msg, event, 1, 1, TRUE, core_pointer); break; case WM_MBUTTONUP: make_button_event (msg, event, 2, 1, TRUE, core_pointer); break; case WM_RBUTTONUP: make_button_event (msg, event, 3, 1, TRUE, core_pointer); break; case WM_LBUTTONDBLCLK: make_button_event (msg, event, 1, 2, FALSE, core_pointer); break; case WM_MBUTTONDBLCLK: make_button_event (msg, event, 2, 2, FALSE, core_pointer); break; case WM_RBUTTONDBLCLK: make_button_event (msg, event, 3, 2, FALSE, core_pointer); break; case WM_MOUSEWHEEL: stage_win32->scroll_pos += (SHORT) HIWORD (msg->wParam); event->type = CLUTTER_SCROLL; event->scroll.time = msg->time; event->scroll.modifier_state = get_modifier_state (LOWORD (msg->wParam)); event->scroll.device = core_pointer; /* conversion to window coordinates is required */ { POINT pt = { GET_X_LPARAM (msg->lParam), GET_Y_LPARAM (msg->lParam) }; ScreenToClient (msg->hwnd, &pt); event->scroll.x = pt.x; event->scroll.y = pt.y; } if (stage_win32->scroll_pos >= WHEEL_DELTA) { event->scroll.direction = CLUTTER_SCROLL_UP; stage_win32->scroll_pos -= WHEEL_DELTA; } else if (stage_win32->scroll_pos <= -WHEEL_DELTA) { event->scroll.direction = CLUTTER_SCROLL_DOWN; stage_win32->scroll_pos += WHEEL_DELTA; } else res = FALSE; break; case WM_MOUSEMOVE: event->type = CLUTTER_MOTION; event->motion.time = msg->time; event->motion.x = GET_X_LPARAM (msg->lParam); event->motion.y = GET_Y_LPARAM (msg->lParam); event->motion.modifier_state = get_modifier_state (msg->wParam); event->motion.device = core_pointer; /* We need to start tracking when the mouse enters the stage if we're not already */ if (!stage_win32->tracking_mouse) { TRACKMOUSEEVENT tmevent; tmevent.cbSize = sizeof (tmevent); tmevent.dwFlags = TME_LEAVE; tmevent.hwndTrack = stage_win32->hwnd; TrackMouseEvent (&tmevent); /* we entered the stage */ _clutter_input_device_set_stage (event->motion.device, stage); stage_win32->tracking_mouse = TRUE; } break; case WM_MOUSELEAVE: event->crossing.type = CLUTTER_LEAVE; event->crossing.time = msg->time; event->crossing.x = msg->pt.x; event->crossing.y = msg->pt.y; event->crossing.device = core_pointer; /* we left the stage */ _clutter_input_device_set_stage (event->crossing.device, NULL); /* When we get a leave message the mouse tracking is automatically cancelled so we'll need to start it again when the mouse next enters the window */ stage_win32->tracking_mouse = FALSE; break; case WM_KEYDOWN: case WM_KEYUP: case WM_SYSKEYDOWN: case WM_SYSKEYUP: { int scan_code = (msg->lParam >> 16) & 0xff; int min = 0, max = CLUTTER_WIN32_KEY_MAP_SIZE, mid; BYTE key_states[256]; /* Get the keyboard modifier states. GetKeyboardState conveniently gets the key state that was current when the last keyboard message read was generated */ GetKeyboardState(key_states); /* Binary chop to check if we have a direct mapping for this key code */ while (min < max) { mid = (min + max) / 2; if (clutter_win32_key_map[mid].win_sym == msg->wParam) { event->key.keyval = clutter_win32_key_map[mid].clutter_sym; event->key.unicode_value = 0; break; } else if (clutter_win32_key_map[mid].win_sym < msg->wParam) min = mid + 1; else max = mid; } /* If we don't have a direct mapping then try getting the unicode value of the key sym */ if (min >= max) { WCHAR ch; BYTE shift_state[256]; /* Translate to a Unicode value, but only take into account the shift key. That way Ctrl+Shift+C will generate a capital C virtual key code with a zero unicode value for example */ memset (shift_state, 0, 256); shift_state[VK_SHIFT] = key_states[VK_SHIFT]; shift_state[VK_LSHIFT] = key_states[VK_LSHIFT]; shift_state[VK_RSHIFT] = key_states[VK_RSHIFT]; shift_state[VK_CAPITAL] = key_states[VK_CAPITAL]; if (ToUnicode (msg->wParam, scan_code, shift_state, &ch, 1, 0) == 1 /* The codes in this range directly match the Latin 1 codes so we can just use the Unicode value as the key sym */ && ch >= 0x20 && ch <= 0xff) event->key.keyval = ch; else /* Otherwise we don't know what the key means but the application might be able to do something with the scan code so we might as well still generate the event */ event->key.keyval = CLUTTER_VoidSymbol; /* Get the unicode value of the keypress again using the full modifier state */ if (ToUnicode (msg->wParam, scan_code, key_states, &ch, 1, 0) == 1) event->key.unicode_value = ch; else event->key.unicode_value = 0; } event->key.type = msg->message == WM_KEYDOWN || msg->message == WM_SYSKEYDOWN ? CLUTTER_KEY_PRESS : CLUTTER_KEY_RELEASE; event->key.time = msg->time; event->key.modifier_state = get_key_modifier_state (key_states); event->key.hardware_keycode = scan_code; event->key.device = core_keyboard; } break; case WM_GETMINMAXINFO: { MINMAXINFO *min_max_info = (MINMAXINFO *) msg->lParam; _clutter_stage_win32_get_min_max_info (stage_win32, min_max_info); if (call_def_window_proc) *call_def_window_proc = FALSE; } break; case WM_SETCURSOR: /* If the cursor is in the window's client area and the stage's cursor should be invisible then we'll set a blank cursor instead */ if (LOWORD (msg->lParam) == HTCLIENT && !stage_win32->is_cursor_visible) { if (call_def_window_proc) *call_def_window_proc = FALSE; _clutter_stage_win32_update_cursor (stage_win32); } res = FALSE; break; default: /* ignore every other message */ res = FALSE; break; } return res; } LRESULT CALLBACK _clutter_stage_win32_window_proc (HWND hwnd, UINT umsg, WPARAM wparam, LPARAM lparam) { ClutterStageWin32 *stage_win32 = (ClutterStageWin32 *) GetWindowLongPtrW (hwnd, 0); gboolean call_def_window_proc = TRUE; /* Ignore any messages before SetWindowLongPtr has been called to set the stage */ if (stage_win32 != NULL) { ClutterBackendWin32 *backend_win32 = stage_win32->backend; MSG msg; ClutterEvent *event; ClutterMainContext *clutter_context; DWORD message_pos = GetMessagePos (); clutter_context = _clutter_context_get_default (); msg.hwnd = hwnd; msg.message = umsg; msg.wParam = wparam; msg.lParam = lparam; msg.time = GetMessageTime (); /* Neither MAKE_POINTS nor GET_[XY]_LPARAM is defined in MinGW headers so we need to convert to a signed type explicitly */ msg.pt.x = (SHORT) LOWORD (message_pos); msg.pt.y = (SHORT) HIWORD (message_pos); event = clutter_event_new (CLUTTER_NOTHING); if (message_translate (CLUTTER_BACKEND (backend_win32), event, &msg, &call_def_window_proc)) /* push directly here to avoid copy of queue_put */ g_queue_push_head (clutter_context->events_queue, event); else clutter_event_free (event); } if (call_def_window_proc) return DefWindowProcW (hwnd, umsg, wparam, lparam); else return 0; }