/* Copyright (C) 2003-2013 Runtime Revolution Ltd.

This file is part of LiveCode.

LiveCode is free software; you can redistribute it and/or modify it under

the terms of the GNU General Public License v3 as published by the Free

Software Foundation.

LiveCode 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 General Public License

for more details.

You should have received a copy of the GNU General Public License

along with LiveCode. If not see <http://www.gnu.org/licenses/>. */

#include "prefix.h"

#include "globdefs.h"

#include "filedefs.h"

#include "objdefs.h"

#include "parsedef.h"

#include "globals.h"

#include "stack.h"

#include "card.h"

#include "field.h"

#include "unicode.h"

#include "core.h"

#include "mode.h"

#include "dispatch.h"

#include "eventqueue.h"

#include "graphics_util.h"

////////////////////////////////////////////////////////////////////////////////

extern Boolean tripleclick;

#ifdef _MOBILE

static void handle_touch(MCStack *p_stack, MCEventTouchPhase p_phase, uint32_t p_id, uint32_t p_taps, int32_t x, int32_t y);

#endif

////////////////////////////////////////////////////////////////////////////////

enum MCEventType

{

kMCEventTypeNotify,

kMCEventTypeWindowReshape,

kMCEventTypeMouseFocus,

kMCEventTypeMousePress,

kMCEventTypeMouseWheel,

kMCEventTypeMousePosition,

kMCEventTypeKeyFocus,

kMCEventTypeKeyPress,

kMCEventTypeImeCompose,

kMCEventTypeTouch,

kMCEventTypeMotion,

kMCEventTypeAcceleration,

kMCEventTypeOrientation,

kMCEventTypeLocation,

kMCEventTypeHeading,

kMCEventTypeCustom,

};

struct MCEvent

{

MCEvent *next;

MCEventType type;

union

{

struct

{

MCEventQueueNotifyCallback callback;

void *state;

} notify;

struct

{

MCStack *stack;

} window;

struct

{

uint32_t time;

MCStack *stack;

union

{

struct

{

bool inside;

} focus;

struct

{

uint32_t modifiers;

MCMousePressState state;

int32_t button;

} press;

struct

{

uint32_t modifiers;

int32_t dh, dv;

} wheel;

struct

{

uint32_t modifiers;

int32_t x, y;

} position;

};

} mouse;

struct

{

MCStack *stack;

union

{

struct

{

bool owner;

} focus;

struct

{

uint32_t modifiers;

uint32_t key_code;

uint32_t char_code;

} press;

};

} key;

struct

{

MCStack *stack;

union

{

struct

{

bool enabled;

uint32_t offset;

uint32_t char_count;

uint16_t *chars;

} compose;

};

} ime;

struct

{

MCStack *stack;

MCEventTouchPhase phase;

uint32_t id;

uint32_t taps;

int32_t x;

int32_t y;

} touch;

struct

{

MCStack *stack;

MCEventMotionType type;

} motion;

struct

{

double x, y, z, t;

} acceleration;

struct

{

const char *error;

} location;

struct

{

MCCustomEvent *event;

} custom;

};

};

typedef bool (*MCEventQueueFilterCallback)(void *context, MCEvent *event);

static MCEvent *s_first_event = nil;

static MCEvent *s_last_event = nil;

static uint32_t s_click_time = 0;

static uint32_t s_click_count = 0;

////////////////////////////////////////////////////////////////////////////////

bool MCEventQueueInitialize(void)

{

s_first_event = nil;

s_last_event = nil;

return true;

}

void MCEventQueueFinalize(void)

{

while(s_first_event != nil)

{

MCEvent *t_event;

t_event = s_first_event;

s_first_event = s_first_event -> next;

switch(t_event -> type)

{

case kMCEventTypeNotify:

t_event -> notify . callback(t_event -> notify . state, false);

break;

}

if (t_event -> type == kMCEventTypeImeCompose)

MCMemoryDeleteArray(t_event -> ime . compose . chars);

MCMemoryDelete(t_event);

}

s_first_event = nil;

s_last_event = nil;

}

////////////////////////////////////////////////////////////////////////////////

static void MCEventQueueDispatchEvent(MCEvent *p_event)

{

MCEvent *t_event;

t_event = p_event;

MCObject *t_menu;

t_menu = MCdispatcher -> getmenu();

switch(t_event -> type)

{

case kMCEventTypeNotify:

t_event -> notify . callback(t_event -> notify . state, true);

break;

case kMCEventTypeWindowReshape:

t_event -> window . stack -> view_configure(true);

break;

case kMCEventTypeMouseFocus:

if (t_event -> mouse . focus . inside)

{

if (MCmousestackptr != t_event -> mouse . stack)

{

MCmousestackptr = t_event -> mouse . stack;

MCmousestackptr -> enter();

}

if (t_menu == nil)

MCmousestackptr -> mfocus(MCmousex, MCmousey);

else

t_menu -> mfocus(MCmousex, MCmousey);

}

else if (MCmousestackptr == t_event -> mouse . stack)

{

MCmousestackptr -> munfocus();

MCmousestackptr = nil;

}

break;

case kMCEventTypeMousePress:

if (MCmousestackptr == t_event -> mouse . stack || t_menu != nil)

{

if (t_event -> mouse . press . state == kMCMousePressStateDown)

MCbuttonstate |= (1 << t_event -> mouse . press . button);

else

MCbuttonstate &= ~(1 << t_event -> mouse . press . button);

if (t_event -> mouse . press . state == kMCMousePressStateDown)

{

if (t_event -> mouse . time - s_click_time < MCdoubletime &&

MCU_abs(MCclicklocx - MCmousex) < MCdoubledelta &&

MCU_abs(MCclicklocy - MCmousey) < MCdoubledelta)

s_click_count += 1;

else

s_click_count = 0;

}

else

s_click_time = t_event -> mouse . time;

MCeventtime = t_event -> mouse . time;

MCmodifierstate = t_event -> mouse . press . modifiers;

MCclicklocx = MCmousex;

MCclicklocy = MCmousey;

MCclickstackptr = MCmousestackptr;

MCObject *t_target;

t_target = t_menu != nil ? t_menu : MCclickstackptr;

if (t_event -> mouse . press . state == kMCMousePressStateDown)

{

tripleclick = s_click_count == 2;

if (s_click_count != 1)

t_target -> mdown(t_event -> mouse . press . button + 1);

else

t_target -> doubledown(t_event -> mouse . press . button + 1);

}

else if (t_event -> mouse . press . state == kMCMousePressStateUp)

{

if (s_click_count != 1)

t_target -> mup(t_event -> mouse . press . button + 1);

else

t_target -> doubleup(t_event -> mouse . press . button + 1);

}

else

{

s_click_count = 0;

tripleclick = False;

// If the press was 'released' i.e. cancelled then we stop messages, mup then

// dispatch a mouseRelease message ourselves.

// FG-2013-10-09 [[ Bugfix 11208 ]]

// CS_NO_MESSAGES only applies to the target and not the controls it contains

// so the mouse up message (on mouseUp) sets sent when it isn't desired

// Hopefully nobody depends on the old behaviour...

//t_target -> setstate(True, CS_NO_MESSAGES);

//t_target -> mup(t_event -> mouse . press . button + 1);

//t_target -> setstate(False, CS_NO_MESSAGES);

bool old_lock = MClockmessages;

MClockmessages = true;

t_target -> mup(t_event -> mouse . press . button + 1);

MClockmessages = old_lock;

t_target -> message_with_args(MCM_mouse_release, t_event -> mouse . press . button + 1);

}

}

break;

case kMCEventTypeMouseWheel:

// Notice that we recompute mfocused twice - this is because calling the key handler

// could invalidate mfocused in between.

if (MCmousestackptr == t_event -> mouse . stack)

{

MCObject *mfocused;

mfocused = MCmousestackptr->getcard()->getmfocused();

if (mfocused == NULL)

mfocused = MCmousestackptr -> getcard();

if (mfocused == NULL)

mfocused = MCmousestackptr;

MCeventtime = t_event -> mouse . time;

MCmodifierstate = t_event -> mouse . wheel . modifiers;

if (t_event -> mouse . wheel . dv != 0)

mfocused -> kdown("", t_event -> mouse . wheel . dv < 0 ? XK_WheelUp : XK_WheelDown);

mfocused = MCmousestackptr->getcard()->getmfocused();

if (mfocused == NULL)

mfocused = MCmousestackptr -> getcard();

if (mfocused == NULL)

mfocused = MCmousestackptr;

if (t_event -> mouse . wheel . dh != 0)

mfocused -> kdown("", t_event -> mouse . wheel . dh < 0 ? XK_WheelLeft : XK_WheelRight);

}

break;

case kMCEventTypeMousePosition:

if (MCmousestackptr == t_event -> mouse . stack || t_menu != nil)

{

MCeventtime = t_event -> mouse . time;

MCmodifierstate = t_event -> mouse . position . modifiers;

MCObject *t_target;

t_target = t_menu != nil ? t_menu : MCmousestackptr;

// IM-2013-09-30: [[ FullscreenMode ]] Translate mouse location to stack coords

MCPoint t_mouseloc;

t_mouseloc = MCPointMake(t_event->mouse.position.x, t_event->mouse.position.y);

// IM-2013-10-03: [[ FullscreenMode ]] Transform mouseloc based on the mousestack

t_mouseloc = MCmousestackptr->view_viewtostackloc(t_mouseloc);

MCmousex = t_mouseloc.x;

MCmousey = t_mouseloc.y;

t_target -> mfocus(t_mouseloc . x, t_mouseloc . y);

}

break;

case kMCEventTypeKeyFocus:

if (t_event -> key . focus . owner)

t_event -> key . stack -> kfocus();

else

t_event -> key . stack -> kunfocus();

break;

case kMCEventTypeKeyPress:

{

MCObject *t_target;

t_target = t_menu != nil ? t_menu : t_event -> key . stack;

MCmodifierstate = t_event -> key . press . modifiers;

// If 'char_code' is 0, then this key press has not generated a

// character.

if (t_event -> key . press . char_code == 0)

{

t_target -> kdown(MCnullstring, t_event -> key . press . key_code);

t_target -> kup(MCnullstring, t_event -> key . press . key_code);

break;

}

// Otherwise 'char_code' is the unicode codepoint, so first map to

// UTF-16 (not done properly yet...)

uint2 t_unichar;

t_unichar = (uint2)t_event -> key . press . char_code;

// If we successfully map to native, then we can dispatch as a normal kdown

uint1 t_char;

if (MCUnicodeMapToNative(&t_unichar, 1, t_char))

{

char t_buffer[2];

t_buffer[0] = t_char;

t_buffer[1] = '\0';

t_target -> kdown(t_buffer, t_event -> key . press . key_code);

t_target -> kup(t_buffer, t_event -> key . press . key_code);

break;

}

// Otherwise we dispatch in a unicode way...

if (!t_target -> kdown(MCnullstring, t_event -> key . press . key_code))

if (MCactivefield != nil)

{

MCString t_unibuffer;

t_unibuffer . set((char *)&t_unichar, 2);

// MW-2012-02-13: [[ Block Unicode ]] Use the new 'finsert' method in

// unicode mode.

MCactivefield -> finsertnew(FT_IMEINSERT, t_unibuffer, LCH_UNICODE, true);

}

t_target -> kup(MCnullstring, t_event -> key . press . key_code);

}

break;

case kMCEventTypeImeCompose:

{

if (!MCactivefield)

break;

if (t_event -> ime . compose . enabled)

MCactivefield -> startcomposition();

else

MCactivefield -> stopcomposition(True, False);

MCactivefield -> setcompositioncursoroffset(t_event -> ime . compose . offset * 2);

MCString t_unichars;

t_unichars . set((const char *)t_event -> ime . compose . chars, t_event -> ime . compose . char_count * sizeof(uint16_t));

// MW-2012-02-13: [[ Block Unicode ]] Use the new 'finsert' method in

// unicode mode.

MCactivefield -> finsertnew(FT_IMEINSERT, t_unichars, LCH_UNICODE, true);

if (t_event -> ime . compose . enabled)

{

MCRectangle r;

MCactivefield -> getcompositionrect(r, -1);

MCModeConfigureIme(MCactivefield -> getstack(), true, r . x, r . y + r . height);

}

}

break;

#ifdef _MOBILE

case kMCEventTypeTouch:

handle_touch(t_event -> touch . stack, t_event -> touch . phase, t_event -> touch . id, t_event -> touch . taps, t_event -> touch . x, t_event -> touch . y);

break;

case kMCEventTypeMotion:

{

MCNameRef t_message;

const char *t_motion;

switch(t_event -> motion . type)

{

case kMCEventMotionShakeBegan:

t_motion = "shake";

t_message = MCM_motion_start;

break;

case kMCEventMotionShakeEnded:

t_motion = "shake";

t_message = MCM_motion_end;

break;

case kMCEventMotionShakeCancelled:

t_motion = "shake";

t_message = MCM_motion_release;

break;

}

MCdefaultstackptr -> getcurcard() -> message_with_args(t_message, t_motion);

}

break;

case kMCEventTypeAcceleration:

{

char t_value[64 * 4 + 4];

sprintf(t_value, "%.6f,%.6f,%.6f,%f", t_event -> acceleration . x, t_event -> acceleration . y, t_event -> acceleration . z, t_event -> acceleration . t);

MCdefaultstackptr -> getcurcard() -> message_with_args(MCM_acceleration_changed, t_value);

}

break;

case kMCEventTypeOrientation:

MCdefaultstackptr -> getcurcard() -> message(MCM_orientation_changed);

break;

case kMCEventTypeLocation:

MCdefaultstackptr -> getcurcard() -> message(t_event -> location . error == nil ? MCM_location_changed : MCM_location_error);

break;

case kMCEventTypeHeading:

MCdefaultstackptr -> getcurcard() -> message(t_event -> location . error == nil ? MCM_heading_changed : MCM_heading_error);

break;

case kMCEventTypeCustom:

t_event -> custom . event -> Dispatch();

break;

#endif

}

}

static void MCEventQueueRemoveEvent(MCEvent *p_event)

{

if (s_first_event == p_event)

{

s_first_event = p_event -> next;

if (s_first_event == nil)

s_last_event = nil;

}

else

{

MCEvent *t_previous;

for(t_previous = s_first_event; t_previous -> next != p_event; t_previous = t_previous -> next)

;

t_previous -> next = p_event -> next;

if (s_last_event == p_event)

s_last_event = t_previous;

}

}

static void MCEventQueueDestroyEvent(MCEvent *p_event)

{

if (p_event -> type == kMCEventTypeImeCompose)

MCMemoryDeleteArray(p_event -> ime . compose . chars);

#ifdef _MOBILE

if (p_event -> type == kMCEventTypeCustom)

p_event -> custom . event -> Destroy();

#endif

MCMemoryDelete(p_event);

}

static MCStack *MCEventQueueGetEventStack(MCEvent *p_event)

{

switch(p_event -> type)

{

case kMCEventTypeWindowReshape:

return p_event -> window . stack;

case kMCEventTypeMouseFocus:

case kMCEventTypeMousePress:

case kMCEventTypeMouseWheel:

case kMCEventTypeMousePosition:

return p_event -> mouse . stack;

case kMCEventTypeKeyFocus:

case kMCEventTypeKeyPress:

return p_event -> key . stack;

case kMCEventTypeImeCompose:

return p_event -> ime . stack;

default:

break;

}

return nil;

}

bool MCEventQueueDispatch(void)

{

if (s_first_event == nil)

return false;

MCEvent *t_event;

t_event = s_first_event;

if (t_event -> next == nil)

s_first_event = s_last_event = nil;

else

s_first_event = s_first_event -> next;

MCEventQueueDispatchEvent(t_event);

MCEventQueueDestroyEvent(t_event);

return true;

}

void MCEventQueueFlush(MCStack *p_stack)

{

bool t_changed;

do

{

t_changed = false;

for(MCEvent *t_event = s_first_event; t_event != nil; t_event = t_event -> next)

if (MCEventQueueGetEventStack(t_event) == p_stack)

{

MCEventQueueRemoveEvent(t_event);

MCEventQueueDestroyEvent(t_event);

t_changed = true;

break;

}

}

while(t_changed);

}

void MCEventQueueFilter(MCEventQueueFilterCallback p_callback, void *p_context)

{

MCEvent *t_new_first_event, *t_new_last_event;

t_new_first_event = nil;

t_new_last_event = nil;

MCEvent *t_event;

t_event = s_first_event;

while(t_event != nil)

{

MCEvent *t_next_event;

t_next_event = t_event -> next;

if (p_callback(p_context, t_event))

{

if (t_new_last_event == nil)

t_new_first_event = t_event;

else

t_new_last_event -> next = t_event;

t_new_last_event = t_event;

}

else

MCEventQueueDestroyEvent(t_event);

t_event = t_next_event;

}

s_first_event = t_new_first_event;

s_last_event = t_new_last_event;

if (s_last_event != nil)

s_last_event -> next = nil;

}

// Search through the eventqueue for a mouse click (mousedown followed by mouseup)

// and remove it from the queue. This will also remove all but the last mousemove.

bool MCEventQueueGetMouseClick(uint32_t p_button)

{

// Look for the first mouse down event in the queue

MCEvent *t_mouse_down, *t_mouse_move;

t_mouse_down = nil;

for(MCEvent *t_event = s_first_event; t_event != nil; t_event = t_event -> next)

{

if (t_event -> type == kMCEventTypeMousePosition)

t_mouse_move = t_event;

if (t_event -> type == kMCEventTypeMousePress &&

t_event -> mouse . press . state == kMCMousePressStateDown &&

(p_button == 0 || t_event -> mouse . press . button == p_button))

{

t_mouse_down = t_event;

break;

}

}

if (t_mouse_down == nil)

return false;

// Look for a subsequent mouse up event in the queue

MCEvent *t_mouse_up;

t_mouse_up = nil;

for(MCEvent *t_event = t_mouse_down -> next; t_event != nil; t_event = t_event -> next)

if (t_event -> type == kMCEventTypeMousePress &&

!t_event -> mouse . press . state == kMCMousePressStateUp &&

(p_button == 0 || t_event -> mouse . press . button == p_button))

{

t_mouse_up = t_event;

break;

}

if (t_mouse_up == nil)

return false;

MCmodifierstate = t_mouse_up -> mouse . press . modifiers;

MCclickstackptr = MCmousestackptr;

MCclicklocx = t_mouse_move -> mouse . position . x;

MCclicklocy = t_mouse_move -> mouse . position . y;

// Now remove *all* mouse events from the queue up to and including the

// mouse up.

MCEvent *t_event;

t_event = s_first_event;

for(;;)

{

MCEvent *t_next;

t_next = t_event -> next;

if (t_event -> type == kMCEventTypeMouseFocus ||

t_event -> type == kMCEventTypeMousePosition ||

t_event -> type == kMCEventTypeMousePress ||

t_event -> type == kMCEventTypeMouseWheel)

{

MCEventQueueRemoveEvent(t_event);

MCEventQueueDestroyEvent(t_event);

}

if (t_event == t_mouse_up)

break;

t_event = t_next;

}

return true;

}

static bool MCEventQueueEventIsMouse(MCEvent *p_event)

{

return p_event -> type == kMCEventTypeMouseFocus ||

p_event -> type == kMCEventTypeMousePosition ||

p_event -> type == kMCEventTypeMousePress ||

p_event -> type == kMCEventTypeMouseWheel;

}

////////////////////////////////////////////////////////////////////////////////

static bool MCEventQueuePost(MCEventType p_type, MCEvent*& r_event)

{

MCEvent *t_event;

if (!MCMemoryNew(t_event))

return false;

if (s_last_event == nil)

s_first_event = s_last_event = t_event;

else

{

s_last_event -> next = t_event;

s_last_event = t_event;

}

t_event -> type = p_type;

// MW-2011-08-16: [[ Wait ]] Ping any running wait loop to make sure it

// picks up the new event if it wants to.

MCscreen -> pingwait();

r_event = t_event;

return true;

}

static bool MCEventQueuePostAtFront(MCEventType p_type, MCEvent*& r_event)

{

MCEvent *t_event;

if (!MCMemoryNew(t_event))

return false;

if (s_first_event == nil)

s_first_event = s_last_event = t_event;

else

{

t_event -> next = s_first_event;

s_first_event = t_event;

}

t_event -> type = p_type;

// MW-2011-08-16: [[ Wait ]] Ping any running wait loop to make sure it

// picks up the new event if it wants to.

MCscreen -> pingwait();

r_event = t_event;

return true;

}

//////////

bool MCEventQueuePostNotify(MCEventQueueNotifyCallback p_callback, void *p_state)

{

MCEvent *t_event;

if (!MCEventQueuePost(kMCEventTypeNotify, t_event))

return false;

t_event -> notify . callback = p_callback;

t_event -> notify . state = p_state;

return true;

}

//////////

bool MCEventQueuePostWindowReshape(MCStack *p_stack)

{

// We look through the current event queue, looking for the last window

// reshape event for this stack and coalesce the event.

MCEvent *t_event;

t_event = nil;

for(MCEvent *t_new_event = s_first_event; t_new_event != nil; t_new_event = t_new_event -> next)

if (t_new_event -> type == kMCEventTypeWindowReshape &&

t_new_event -> window . stack == p_stack)

t_event = t_new_event;

// If we found an event, remove it since we are about to replace it

// with a more recent mouse position event.

if (t_event != nil)

{

MCEventQueueRemoveEvent(t_event);

MCEventQueueDestroyEvent(t_event);

}

if (!MCEventQueuePost(kMCEventTypeWindowReshape, t_event))

return false;

t_event -> window . stack = p_stack;

return true;

}

//////////

static bool MCEventQueuePostMouse(MCEventType p_type, MCStack *p_stack, uint32_t p_time, MCEvent*& r_event)

{

if (!MCEventQueuePost(p_type, r_event))

return false;

r_event -> mouse . stack = p_stack;

r_event -> mouse . time = p_time;

return true;

}

bool MCEventQueuePostMouseFocus(MCStack *p_stack, uint32_t p_time, bool p_inside)

{

MCEvent *t_event;

if (!MCEventQueuePostMouse(kMCEventTypeMouseFocus, p_stack, p_time, t_event))

return false;

t_event -> mouse . focus . inside = p_inside;

return true;

}

bool MCEventQueuePostMousePress(MCStack *p_stack, uint32_t p_time, uint32_t p_modifiers, MCMousePressState p_state, int32_t p_button)

{

MCEvent *t_event;

if (!MCEventQueuePostMouse(kMCEventTypeMousePress, p_stack, p_time, t_event))

return false;

t_event -> mouse . press . modifiers = p_modifiers;

t_event -> mouse . press . state = p_state;

t_event -> mouse . press . button = p_button;

return true;

}

bool MCEventQueuePostMouseWheel(MCStack *p_stack, uint32_t p_time, uint32_t p_modifiers, int32_t p_dh, int32_t p_dv)

{

MCEvent *t_event;

if (!MCEventQueuePostMouse(kMCEventTypeMouseWheel, p_stack, p_time, t_event))

return false;

t_event -> mouse . wheel . modifiers = p_modifiers;

t_event -> mouse . wheel . dh = p_dh;

t_event -> mouse . wheel . dv = p_dv;

return true;

}

bool MCEventQueuePostMousePosition(MCStack *p_stack, uint32_t p_time, uint32_t p_modifiers, int32_t p_x, int32_t p_y)

{

// We look through the current event queue, looking for the last mouse

// position event for this stack. If we encounter a press, wheel or focus

// event, we reset our search.

MCEvent *t_event;

t_event = nil;

for(MCEvent *t_new_event = s_first_event; t_new_event != nil; t_new_event = t_new_event -> next)

if (MCEventQueueEventIsMouse(t_new_event) &&

t_new_event -> mouse . stack == p_stack)

{

if (t_new_event -> type == kMCEventTypeMousePosition)

t_event = t_new_event;

else

t_event = nil;

}

// If we found an event, remove it since we are about to replace it

// with a more recent mouse position event.

if (t_event != nil)

{

MCEventQueueRemoveEvent(t_event);

MCEventQueueDestroyEvent(t_event);

}

if (!MCEventQueuePostMouse(kMCEventTypeMousePosition, p_stack, p_time, t_event))

return false;

t_event -> mouse . position . modifiers = p_modifiers;

t_event -> mouse . position . x = p_x;

t_event -> mouse . position . y = p_y;

return true;

}

bool MCEventQueuePostKeyFocus(MCStack *p_stack, bool p_owner)

{

MCEvent *t_event;

if (!MCEventQueuePost(kMCEventTypeKeyFocus, t_event))

return false;

t_event -> key . stack = p_stack;

t_event -> key . focus . owner = p_owner;

return true;

}

bool MCEventQueuePostKeyPress(MCStack *p_stack, uint32_t p_modifiers, uint32_t p_char_code, uint32_t p_key_code)

{

MCEvent *t_event;

if (!MCEventQueuePost(kMCEventTypeKeyPress, t_event))

return false;

t_event -> key . stack = p_stack;

t_event -> key . press . modifiers = p_modifiers;

t_event -> key . press . char_code = p_char_code;

t_event -> key . press . key_code = p_key_code;

return true;

}

bool MCEventQueuePostImeCompose(MCStack *p_stack, bool p_enabled, uint32_t p_offset, const uint16_t *p_chars, uint32_t p_char_count)

{

uint16_t *t_new_chars;

if (!MCMemoryNewArray(p_char_count, t_new_chars))

return false;

MCEvent *t_event;

if (!MCEventQueuePost(kMCEventTypeImeCompose, t_event))

{

MCMemoryDeleteArray(t_new_chars);

return false;

}

t_event -> ime . stack = p_stack;

t_event -> ime . compose . enabled = p_enabled;

t_event -> ime . compose . offset = p_offset;

t_event -> ime . compose . chars = t_new_chars;

t_event -> ime . compose . char_count = p_char_count;

MCMemoryCopy(t_new_chars, p_chars, sizeof(uint16_t) * p_char_count);

return true;

}

////////////////////////////////////////////////////////////////////////////////

#ifdef _MOBILE

struct MCTouch

{

MCTouch *next;

uint32_t id;

int32_t x, y;

MCObjectHandle *target;

};

static MCTouch *s_touches = nil;

static void handle_touch(MCStack *p_stack, MCEventTouchPhase p_phase, uint32_t p_id, uint32_t p_taps, int32_t x, int32_t y)

{

MCTouch *t_previous_touch;

t_previous_touch = nil;

MCTouch *t_touch;

t_touch = nil;

MCObject *t_target;

t_target = nil;

// IM-2013-09-30: [[ FullscreenMode ]] Translate touch location to stack coords

MCPoint t_touch_loc;

t_touch_loc = p_stack->view_viewtostackloc(MCPointMake(x, y));

if (p_phase != kMCEventTouchPhaseBegan)

{

for(t_touch = s_touches; t_touch != nil; t_previous_touch = t_touch, t_touch = t_touch -> next)

if (t_touch -> id == p_id)

break;

if (t_touch != nil)