/* Copyright (C) 2003-2015 LiveCode 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 "mcio.h"

#include "util.h"

#include "stack.h"

#include "tooltip.h"

#include "card.h"

#include "cdata.h"

#include "objptr.h"

#include "sellst.h"

#include "stacklst.h"

#include "undolst.h"

#include "group.h"

#include "button.h"

#include "graphic.h"

#include "scrolbar.h"

#include "player.h"

#include "image.h"

#include "field.h"

#include "vclip.h"

#include "hndlrlst.h"

#include "handler.h"

#include "mcerror.h"

#include "debug.h"

#include "dispatch.h"

#include "field.h"

#include "scrolbar.h"

#include "graphic.h"

#include "player.h"

#include "eps.h"

#include "magnify.h"

#include "aclip.h"

#include "cpalette.h"

#include "vclip.h"

#include "redraw.h"

#include "widget.h"

#include "graphics_util.h"

#include "globals.h"

#include "mctheme.h"

#include "context.h"

#include "exec.h"

#include "stackfileformat.h"

MCRectangle MCCard::selrect;

int2 MCCard::startx;

int2 MCCard::starty;

MCObjptr *MCCard::removedcontrol;

#ifdef _MAC_DESKTOP

extern bool MCosxmenupoppedup;

#endif

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

MCPropertyInfo MCCard::kProperties[] =

{

DEFINE_RW_OBJ_CUSTOM_PROPERTY(P_LAYER, InterfaceLayer, MCCard, Layer)

DEFINE_RW_OBJ_CUSTOM_PROPERTY(P_NUMBER, InterfaceLayer, MCCard, Layer)

DEFINE_RW_OBJ_PROPERTY(P_CANT_DELETE, Bool, MCCard, CantDelete)

DEFINE_RW_OBJ_PROPERTY(P_DONT_SEARCH, Bool, MCCard, DontSearch)

DEFINE_RW_OBJ_PROPERTY(P_MARKED, Bool, MCCard, Marked)

DEFINE_RW_OBJ_PROPERTY(P_SHOW_PICT, Bool, MCCard, ShowPict)

DEFINE_RO_OBJ_PROPERTY(P_FORMATTED_LEFT, Int16, MCCard, FormattedLeft)

DEFINE_RO_OBJ_PROPERTY(P_FORMATTED_TOP, Int16, MCCard, FormattedTop)

DEFINE_RO_OBJ_PROPERTY(P_FORMATTED_HEIGHT, Int16, MCCard, FormattedHeight)

DEFINE_RO_OBJ_PROPERTY(P_FORMATTED_WIDTH, Int16, MCCard, FormattedWidth)

DEFINE_RO_OBJ_PROPERTY(P_FORMATTED_RECT, Rectangle, MCCard, FormattedRect)

DEFINE_RO_OBJ_PROPERTY(P_BACKGROUND_NAMES, String, MCCard, BackgroundNames)

DEFINE_RO_OBJ_PROPERTY(P_BACKGROUND_IDS, String, MCCard, BackgroundIds)

DEFINE_RO_OBJ_PROPERTY(P_SHARED_GROUP_NAMES, String, MCCard, SharedGroupNames)

DEFINE_RO_OBJ_PROPERTY(P_SHARED_GROUP_IDS, String, MCCard, SharedGroupIds)

DEFINE_RO_OBJ_PROPERTY(P_GROUP_IDS, String, MCCard, GroupIds)

DEFINE_RO_OBJ_PROPERTY(P_GROUP_NAMES, String, MCCard, GroupNames)

// MERG-2015-05-01: [[ ChildControlProps ]] Add ability to list both

// immediate and all descendent controls of a card.

DEFINE_RO_OBJ_PART_PROPERTY(P_CONTROL_IDS, String, MCCard, ControlIds)

DEFINE_RO_OBJ_PART_PROPERTY(P_CONTROL_NAMES, String, MCCard, ControlNames)

DEFINE_RO_OBJ_PROPERTY(P_CHILD_CONTROL_IDS, String, MCCard, ChildControlIds)

DEFINE_RO_OBJ_PROPERTY(P_CHILD_CONTROL_NAMES, String, MCCard, ChildControlNames)

DEFINE_RO_OBJ_PROPERTY(P_DEFAULT_BUTTON, OptionalString, MCCard, DefaultButton)

DEFINE_UNAVAILABLE_OBJ_PROPERTY(P_VISIBLE)

DEFINE_UNAVAILABLE_OBJ_PROPERTY(P_INVISIBLE)

DEFINE_UNAVAILABLE_OBJ_PROPERTY(P_ENABLED)

DEFINE_UNAVAILABLE_OBJ_PROPERTY(P_DISABLED)

DEFINE_UNAVAILABLE_OBJ_PROPERTY(P_TRAVERSAL_ON)

DEFINE_UNAVAILABLE_OBJ_PROPERTY(P_SHADOW)

DEFINE_UNAVAILABLE_OBJ_PROPERTY(P_LOCK_LOCATION)

DEFINE_UNAVAILABLE_OBJ_PROPERTY(P_TOOL_TIP)

// MW-2012-03-13: [[ UnicodeToolTip ]] Cards don't have tooltips.

DEFINE_UNAVAILABLE_OBJ_PROPERTY(P_UNICODE_TOOL_TIP)

DEFINE_RO_OBJ_NON_EFFECTIVE_PROPERTY(P_RECTANGLE, Rectangle, MCObject, Rectangle)

DEFINE_RO_OBJ_EFFECTIVE_PROPERTY(P_RECTANGLE, Rectangle, MCObject, Rectangle)

DEFINE_RO_OBJ_NON_EFFECTIVE_PROPERTY(P_WIDTH, UInt16, MCObject, Width)

DEFINE_RO_OBJ_EFFECTIVE_PROPERTY(P_WIDTH, UInt16, MCObject, Width)

DEFINE_RO_OBJ_NON_EFFECTIVE_PROPERTY(P_HEIGHT, UInt16, MCObject, Height)

DEFINE_RO_OBJ_EFFECTIVE_PROPERTY(P_HEIGHT, UInt16, MCObject, Height)

DEFINE_RO_OBJ_NON_EFFECTIVE_PROPERTY(P_LEFT, Int16, MCObject, Left)

DEFINE_RO_OBJ_NON_EFFECTIVE_PROPERTY(P_RIGHT, Int16, MCObject, Right)

DEFINE_RO_OBJ_NON_EFFECTIVE_PROPERTY(P_BOTTOM, Int16, MCObject, Bottom)

DEFINE_RO_OBJ_NON_EFFECTIVE_PROPERTY(P_TOP, Int16, MCObject, Top)

DEFINE_RO_OBJ_NON_EFFECTIVE_PROPERTY(P_TOP_LEFT, Point, MCObject, TopLeft)

DEFINE_RO_OBJ_NON_EFFECTIVE_PROPERTY(P_TOP_RIGHT, Point, MCObject, TopRight)

DEFINE_RO_OBJ_NON_EFFECTIVE_PROPERTY(P_BOTTOM_LEFT, Point, MCObject, BottomLeft)

DEFINE_RO_OBJ_NON_EFFECTIVE_PROPERTY(P_BOTTOM_RIGHT, Point, MCObject, BottomRight)

DEFINE_RO_OBJ_EFFECTIVE_PROPERTY(P_LEFT, Int16, MCObject, Left)

DEFINE_RO_OBJ_EFFECTIVE_PROPERTY(P_RIGHT, Int16, MCObject, Right)

DEFINE_RO_OBJ_EFFECTIVE_PROPERTY(P_BOTTOM, Int16, MCObject, Bottom)

DEFINE_RO_OBJ_EFFECTIVE_PROPERTY(P_TOP, Int16, MCObject, Top)

DEFINE_RO_OBJ_EFFECTIVE_PROPERTY(P_TOP_LEFT, Point, MCObject, TopLeft)

DEFINE_RO_OBJ_EFFECTIVE_PROPERTY(P_TOP_RIGHT, Point, MCObject, TopRight)

DEFINE_RO_OBJ_EFFECTIVE_PROPERTY(P_BOTTOM_LEFT, Point, MCObject, BottomLeft)

DEFINE_RO_OBJ_EFFECTIVE_PROPERTY(P_BOTTOM_RIGHT, Point, MCObject, BottomRight)

};

MCObjectPropertyTable MCCard::kPropertyTable =

{

&MCObject::kPropertyTable,

sizeof(kProperties) / sizeof(kProperties[0]),

&kProperties[0],

};

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

MCCard::MCCard()

{

objptrs = NULL;

flags &= ~F_SHOW_BORDER;

savedata = NULL;

mfocused = kfocused = oldkfocused = NULL;

defbutton = odefbutton = NULL;

// MW-2011-09-23: [[ TileCache ]] Make sure the card layer ids are zero.

m_bg_layer_id = 0;

m_fg_layer_id = 0;

// MM-2012-11-05: [[ Object selection started/ended message ]]

m_selecting_objects = false;

}

MCCard::MCCard(const MCCard &cref) : MCObject(cref)

{

objptrs = NULL;

if (cref.objptrs != NULL)

{

MCObjptr *tptr = cref.objptrs;

do

{

MCObjptr *newoptr = new (nothrow) MCObjptr;

newoptr->setparent(this);

newoptr->setid(tptr->getid());

newoptr->appendto(objptrs);

tptr = (MCObjptr *)tptr->next();

}

while (tptr != cref.objptrs);

}

savedata = NULL;

mfocused = kfocused = oldkfocused = NULL;

defbutton = odefbutton = NULL;

// MW-2011-09-23: [[ TileCache ]] Make sure the card layer ids are zero.

m_bg_layer_id = 0;

m_fg_layer_id = 0;

// MM-2012-11-05: [[ Object selection started/ended message ]]

m_selecting_objects = false;

}

MCCard::~MCCard()

{

while (opened)

close();

while (objptrs != NULL)

{

MCObjptr *optr = objptrs->remove(objptrs);

delete optr;

}

while (savedata != NULL)

{

MCDLlist *optr = savedata->remove(savedata);

delete optr;

}

}

Chunk_term MCCard::gettype() const

{

return CT_CARD;

}

const char *MCCard::gettypestring()

{

return MCcardstring;

}

bool MCCard::visit(MCObjectVisitorOptions p_options, uint32_t p_part, MCObjectVisitor *p_visitor)

{

// If the card doesn't match the part number, we do nothing.

if (p_part != 0 && getid() != p_part)

return true;

return MCObject::visit(p_options, p_part, p_visitor);

}

bool MCCard::visit_self(MCObjectVisitor *p_visitor)

{

return p_visitor -> OnCard(this);

}

bool MCCard::visit_children(MCObjectVisitorOptions p_options, uint32_t p_part, MCObjectVisitor *p_visitor)

{

bool t_continue;

t_continue = true;

if (t_continue && objptrs != NULL)

{

MCObjptr *t_objptr;

t_objptr = objptrs;

do

{

t_continue = t_objptr -> visit(p_options, p_part, p_visitor);

t_objptr = t_objptr -> next();

}

while(t_continue && t_objptr != objptrs);

}

return t_continue;

}

void MCCard::open()

{

clean();

MCObject::open();

if (objptrs != NULL)

{

MCObjptr *tptr = objptrs;

do

{

MCControl *control = tptr->getref();

control->setparent(this);

control->open();

// MW-2013-03-21: [[ Bug ]] If we are opening a shared group for

// the second time it means we are switching between cards sharing

// it. Therefore, we make sure we recompute fonts and recompute it

// (This ensures correct inherited fonts and such are used).

if (control -> gettype() == CT_GROUP &&

static_cast<MCGroup *>(control) -> isshared() &&

control -> getopened() > 1)

if (control -> recomputefonts(m_font))

control -> recompute();

tptr = tptr->next();

}

while (tptr != objptrs);

}

odefbutton = defbutton;

mgrabbed = False;

mfocused = kfocused = oldkfocused = NULL;

}

void MCCard::close()

{

if (!opened)

return;

if (getstack()->getmode() <= WM_SHEET)

kunfocus();

MCObject::close();

if (objptrs != NULL)

{

MCObjptr *tptr = objptrs;

do

{

tptr->getref()->close();

tptr = tptr->next();

}

while (tptr != objptrs);

clear();

}

defbutton = odefbutton = NULL;

MCtooltip->clearmatch(this);

}

void MCCard::kfocus()

{

if (oldkfocused != NULL && kfocused == NULL)

{

kfocused = oldkfocused;

// MW-2014-08-12: [[ Bug 13167 ]] Sync the view focus before the engine state

// (otherwise the engine state can change due to script).

MCscreen -> controlgainedfocus(getstack(), kfocused -> getid());

// Mark card as focused

setstate(true, CS_KFOCUSED);

kfocused->getref()->kfocus();

}

if (kfocused == NULL)

kfocusnext(True);

}

Boolean MCCard::kfocusnext(Boolean top)

{

if (!opened)

return False;

if (objptrs == NULL)

{

kfocused = oldkfocused = NULL;

return False;

}

MCObjptr *startptr;

if (kfocused == NULL || top)

startptr = objptrs;

else

startptr = kfocused;

Boolean done = False;

defbutton = NULL;

MCObjptr *tptr = startptr;

do

{

if (tptr->getref()->kfocusnext(top))

{

if (kfocused != tptr)

{

oldkfocused = kfocused;

kfocused = NULL;

if (oldkfocused != NULL)

{

if (oldkfocused->getref() == MCactivefield

&& !MCactivefield->getflag(F_LIST_BEHAVIOR))

MCactivefield->unselect(False, True);

// MW-2014-08-12: [[ Bug 13167 ]] Sync the view focus before the engine state

// (otherwise the engine state can change due to script).

MCscreen -> controllostfocus(getstack(), oldkfocused -> getid());

// Mark card as unfocused

setstate(false, CS_KFOCUSED);

oldkfocused->getref()->kunfocus();

if (oldkfocused == NULL)

return False;

}

if (kfocused == NULL)

kfocused = tptr;

}

// MW-2014-07-29: [[ Bug 13001 ]] Sync the view focus before the engine state

// (otherwise the engine state can change due to script).

MCscreen -> controlgainedfocus(getstack(), kfocused -> getid());

// Mark card as focused

setstate(true, CS_KFOCUSED);

kfocused->getref()->kfocus();

done = True;

break;

}

tptr = tptr->next();

}

while (tptr != startptr);

if (!done && kfocused != NULL)

done = kfocused->getref()->kfocusnext(True);

if (done && odefbutton != NULL && defbutton != odefbutton)

odefbutton->setdefault(defbutton == NULL);

if (!done)

message(MCM_focus_in);

return True;

}

Boolean MCCard::kfocusprev(Boolean bottom)

{

if (!opened)

return False;

if (objptrs == NULL)

{

kfocused = oldkfocused = NULL;

return False;

}

MCObjptr *startptr;

if (kfocused == NULL || bottom)

startptr = objptrs->prev();

else

startptr = kfocused;

Boolean done = False;

defbutton = NULL;

MCObjptr *tptr = startptr;

do

{

if (tptr->getref()->kfocusprev(bottom))

{

if (kfocused != tptr)

{

oldkfocused = kfocused;

kfocused = NULL;

if (oldkfocused != NULL)

{

if (oldkfocused->getref() == MCactivefield

&& !MCactivefield->getflag(F_LIST_BEHAVIOR))

MCactivefield->unselect(False, True);

// MW-2014-08-12: [[ Bug 13167 ]] Sync the view focus before the engine state

// (otherwise the engine state can change due to script).

MCscreen -> controllostfocus(getstack(), oldkfocused -> getid());

// Mark card as unfocused

setstate(false, CS_KFOCUSED);

oldkfocused->getref()->kunfocus();

if (oldkfocused == NULL)

return False;

}

if (kfocused == NULL)

kfocused = tptr;

}

// MW-2014-07-29: [[ Bug 13001 ]] Sync the view focus before the engine state

// (otherwise the engine state can change due to script).

MCscreen -> controlgainedfocus(getstack(), kfocused -> getid());

// Mark card as focused

setstate(true, CS_KFOCUSED);

kfocused->getref()->kfocus();

done = True;

break;

}

tptr = tptr->prev();

}

while (tptr != startptr);

if (!done && kfocused != NULL)

done = kfocused->getref()->kfocusprev(True);

if (done && odefbutton != NULL && defbutton != odefbutton)

odefbutton->setdefault(defbutton == NULL);

return True;

}

void MCCard::kunfocus()

{

if (kfocused != NULL)

{

oldkfocused = kfocused;

kfocused = NULL;

// MW-2014-08-12: [[ Bug 13167 ]] Sync the view focus before the engine state

// (otherwise the engine state can change due to script).

MCscreen -> controllostfocus(getstack(), oldkfocused -> getid());

// Mark card as unfocused

setstate(false, CS_KFOCUSED);

oldkfocused->getref()->kunfocus();

}

else

{

message(MCM_focus_out);

oldkfocused = NULL;

}

}

Boolean MCCard::kdown(MCStringRef p_string, KeySym key)

{

MCtooltip->closetip();

if (kfocused != NULL && getstack()->gettool(this) == T_BROWSE)

return kfocused->getref()->kdown(p_string, key);

if (MCObject::kdown(p_string, key))

return True;

return False;

}

Boolean MCCard::kup(MCStringRef p_string, KeySym key)

{

if (kfocused != NULL && getstack()->gettool(this) == T_BROWSE)

return kfocused->getref()->kup(p_string, key);

return MCObject::kup(p_string, key);

}

void MCCard::mdrag(void)

{

if (!mgrabbed)

return;

if (getstack() -> gettool(this) != T_BROWSE)

return;

if (mfocused != NULL)

{

mfocused -> getref() -> mdrag();

//MCdragtargetptr = mfocused -> getref();

}

else

{

message(MCM_drag_start);

MCdragtargetptr = this;

}

}

bool MCCard::mfocus_control(int2 x, int2 y, bool p_check_selected)

{

if (objptrs == nil)

return false;

MCObjptr *tptr = objptrs->prev();

bool t_freed;

do

{

MCControl *t_tptr_object;

t_tptr_object = tptr -> getref();

t_freed = false;

// Check if any group's child is selected and focused

if (p_check_selected && tptr -> getrefasgroup() != nil)

{

if (tptr -> getrefasgroup() -> mfocus_control(x, y, true))

{

mfocused = tptr;

return true;

}

}

bool t_focused;

if (p_check_selected)

{

// On the first pass (checking selected objects), just check

// if the object is selected and the mouse is inside a resize handle.

t_focused = t_tptr_object -> getstate(CS_SELECTED)

&& t_tptr_object -> sizehandles(x, y) != 0;

// Make sure we still call mfocus as it updates the control's stored

// mouse coordinates

if (t_focused)

t_tptr_object -> mfocus(x, y);

}

else

{

t_focused = t_tptr_object->mfocus(x, y);

}

if (t_focused)

{

// MW-2010-10-28: If mfocus calls relayer, then the objptrs can get changed.

// Reloop to find the correct one.

tptr = objptrs -> prev();

while(tptr -> getref() != t_tptr_object)

tptr = tptr -> prev();

Boolean newfocused = tptr != mfocused;

if (newfocused && mfocused != NULL)

{

MCControl *oldfocused = mfocused->getref();

mfocused = tptr;

oldfocused->munfocus();

}

else

mfocused = tptr;

// The widget event manager handles enter/leave itself

if (newfocused && mfocused != NULL &&

mfocused -> getref() -> gettype() != CT_GROUP &&

#ifdef WIDGETS_HANDLE_DND

mfocused -> getref() -> gettype() != CT_WIDGET)

#else

(MCdispatcher -> isdragtarget() ||

mfocused -> getref() -> gettype() != CT_WIDGET))

#endif

{

mfocused->getref()->enter();

// MW-2007-10-31: mouseMove sent before mouseEnter - make sure we send an mouseMove

// It is possible for mfocused to become NULL if its deleted in mouseEnter so

// we check first.

if (mfocused != NULL)

mfocused->getref()->mfocus(x, y);

}

return true;

}

// Unset previously focused object

if (!p_check_selected && tptr == mfocused)

{

// MW-2012-02-22: [[ Bug 10018 ]] Previously, if a group was hidden and it had

// mouse focus, then it wouldn't unmfocus as there was an explicit check to

// stop this (for groups) here.

// MW-2012-03-13: [[ Bug 10074 ]] Invoke the control's munfocus() method for groups

// if the group has an mfocused control.

if (mfocused -> getref() -> gettype() != CT_GROUP

|| mfocused -> getrefasgroup() -> getmfocused() != nil)

{

MCControl *oldfocused = mfocused->getref();

mfocused = NULL;

oldfocused->munfocus();

}

else

{

mfocused -> getrefasgroup() -> clearmfocus();

mfocused = nil;

}

// If munfocus calls relayer, then the objptrs can get changed

// so we need to loop back to the start of the objptrs again

t_freed = true;

tptr = objptrs->prev();

}

else

{

tptr = tptr->prev();

}

}

while (t_freed || tptr != objptrs->prev());

return false;

}

Boolean MCCard::mfocus(int2 x, int2 y)

{

if (state & CS_MENU_ATTACHED)

return MCObject::mfocus(x, y);

if (!mgrabbed)

MCtooltip->mousemove(x, y, this);

if (mgrabbed || MCU_point_in_rect(rect, x, y))

state |= CS_INSIDE;

else

state &= ~CS_INSIDE;

if (objptrs == NULL)

{

// MW-2007-10-29: [[ Bug 3726 ]] dragMove is not sent to a card during

// a drag-drop operation.

if (MCdispatcher -> isdragtarget())

message_with_args(MCM_drag_move, x, y);

else

message_with_args(MCM_mouse_move, x, y);

mfocused = NULL;

return False;

}

if (mfocused == NULL || !(mgrabbed && mfocused->getref()->mfocus(x, y)))

{

if (mfocused == NULL && mgrabbed)

{

if (state & CS_SIZE)

{

MCRedrawLockScreen();

MCRectangle oldrect = selrect;

selrect = MCU_compute_rect(startx, starty, x, y);

MCRectangle drect = MCU_union_rect(oldrect, selrect);

if (objptrs != NULL)

{

MCObjptr *optr = objptrs;

do

{

MCControl *cptr = optr->getref();

updateselection(cptr, oldrect, selrect, drect);

optr = optr->next();

}

while (optr != objptrs);

}

MCRedrawUnlockScreen();

/* The set of selected controls has changed so dirty the old

* rect, and the new. */

dirtyselection(oldrect);

dirtyselection(selrect);

}

message_with_args(MCM_mouse_move, x, y);

return true;

}

if (mgrabbed)

mfocused->getref()->mfocus(x, y);

mgrabbed = False;

if (mfocus_control(x, y, true))

return true;

if (mfocus_control(x, y, false))

return true;

MCtooltip->cleartip();

// MW-2007-07-09: [[ Bug 3726 ]] dragMove is not sent to a card during

// a drag-drop operation.

if (MCdispatcher -> isdragtarget())

message_with_args(MCM_drag_move, x, y);

else

message_with_args(MCM_mouse_move, x, y);

return False;

}

else

return True;

}

void MCCard::mfocustake(MCControl *target)

{

MCObjptr *newmfocused = objptrs;

do

{

if (newmfocused->getref() == target)

{

if (newmfocused != mfocused)

{

munfocus();

mfocused = newmfocused;

}

mfocused->getref()->mfocus(MCmousex, MCmousey);

return;

}

newmfocused = newmfocused->next();

}

while (newmfocused != objptrs);

munfocus();

}

void MCCard::munfocus()

{

MCtooltip->cleartip();

state &= ~CS_INSIDE;

if (mfocused != NULL && !mgrabbed)

{

MCControl *oldfocused = mfocused->getref();

mfocused = NULL;

oldfocused->munfocus();

}

else

{

if (MCdispatcher -> isdragtarget())

message(MCM_drag_leave);

else

message(MCM_mouse_leave);

}

}

Boolean MCCard::mdown(uint2 which)

{

if (state & CS_MENU_ATTACHED)

return MCObject::mdown(which);

MCtooltip->closetip();

MCControl *cptr = NULL;

MCclickfield = nil;

mgrabbed = True;

if (mfocused != NULL)

{

MCControl *oldfocused = mfocused->getref();

// AL-2013-01-14: [[ Bug 11343 ]] Add timer if the object handles mouseStillDown in the behavior chain.

// MW-2014-07-29: [[ Bug 13010 ]] Make sure we use the deepest mfocused child.

MCControl *t_child_oldfocused = getmfocused();

if (t_child_oldfocused != NULL &&

t_child_oldfocused -> handlesmessage(MCM_mouse_still_down))

MCscreen->addtimer(t_child_oldfocused, MCM_idle, MCidleRate);

if (!mfocused->getref()->mdown(which)

&& getstack()->gettool(this) == T_BROWSE)

{

message_with_valueref_args(MCM_mouse_down, MCSTR("1"));

}

if (!(MCbuttonstate & (0x1L << (which - 1))))

{

Boolean oldstate = MClockmessages;

MClockmessages = True;

if (!mup(which, false))

oldfocused->mup(which, false);

MClockmessages = oldstate;

}

return True;

}

else

{

// AL-2013-01-14: [[ Bug 11343 ]] Add timer to the card if it handles mouseStillDown in the behavior chain.

if (handlesmessage(MCM_mouse_still_down))

MCscreen->addtimer(this, MCM_idle, MCidleRate);

switch (which)

{

case Button1:

switch (getstack()->gettool(this))

{

case T_BROWSE:

// The following we do to ensure that a click on the card unfocuses any browsers

// on OS X - what should really happen here is that the *card* should be focused

// but things aren't currently engineered this way

MCstacks -> ensureinputfocus(getstack() -> getwindow());

kunfocus();

#ifdef _MOBILE

// Make sure the IME has gone away on mobile if due to an explicit card

// click.

MCscreen -> closeIME();

#endif

message_with_valueref_args(MCM_mouse_down, MCSTR("1"));

if (!(MCbuttonstate & (0x1L << (which - 1))))

{

Boolean oldstate = MClockmessages;

MClockmessages = True;

mup(which, false);

MClockmessages = oldstate;

}

break;

case T_POINTER:

// MW-2010-10-15: [[ Bug 9055 ]] Make sure the card script gets a chance to cancel selection handling

if (message_with_valueref_args(MCM_mouse_down, MCSTR("1")) == ES_NORMAL && !MCexitall)

return True;

// MW-2010-11-24: [[ Bug 9194 ]] Make sure we reset exitall, otherwise the selectedObjectChanged message

// won't be sent.

MCexitall = False;

if (!(MCmodifierstate & MS_SHIFT))

MCselected->clear(True);

state |= CS_SIZE;

startx = MCmousex;

starty = MCmousey;

MCU_set_rect(selrect, startx, starty, 1, 1);

break;

case T_HELP:

break;

case T_BUTTON:

cptr = new (nothrow) MCButton(*MCtemplatebutton);

break;

case T_SCROLLBAR:

cptr = new (nothrow) MCScrollbar(*MCtemplatescrollbar);

break;

case T_PLAYER:

cptr = new (nothrow) MCPlayer(*MCtemplateplayer);

break;

case T_GRAPHIC:

cptr = new (nothrow) MCGraphic(*MCtemplategraphic);

break;

case T_FIELD:

cptr = new (nothrow) MCField(*MCtemplatefield);

break;

case T_IMAGE:

cptr = new (nothrow) MCImage(*MCtemplateimage);

break;

case T_DROPPER:

// IM-2013-09-23: [[ FullscreenMode ]] Get mouse loc in view coordinates

MCStack *t_mousestack;

MCPoint t_mouseloc;

MCscreen->getmouseloc(t_mousestack, t_mouseloc);

MCscreen->dropper(getw(), t_mouseloc.x, t_mouseloc.y, NULL);

message(MCM_color_changed);

break;

case T_BRUSH:

case T_BUCKET:

case T_CURVE:

case T_LINE:

case T_OVAL:

case T_PENCIL:

case T_POLYGON:

case T_RECTANGLE:

case T_REGULAR_POLYGON:

case T_ROUND_RECT:

case T_SPRAY:

case T_TEXT:

{

if (objptrs != NULL)

{

MCObjptr *optr = objptrs;

do

{

if (optr->getref()->gettype() == CT_IMAGE)

return False;

optr = optr->next();

}

while (optr != objptrs);

}

MCImage *iptr = createimage();

iptr->mfocus(MCmousex, MCmousey);

iptr->mdown(which);

}

break;

default:

return False;

}

break;

case Button2:

case Button3:

message_with_args(MCM_mouse_down, which);

return False;

}

}

if (cptr != NULL)

{

// When a control is created with its constructor, it will copy

// the id of the given control. In the case of template objects

// (as above) the id will be zero. Therefore, we must make sure

// the object has a valid id here, otherwise it gets attached to

// the card via an objptr with id 0 - which is not good.

cptr -> setid(getstack() -> newid());

getstack()->appendcontrol(cptr);

mfocused = newcontrol(cptr, False);

cptr->create(MCmousex, MCmousey);

}

return True;

}

Boolean MCCard::mup(uint2 which, bool p_release)

{

if (state & CS_MENU_ATTACHED)

return MCObject::mup(which, p_release);

if (mfocused != NULL)

{

mgrabbed = False;

return mfocused->getref()->mup(which, p_release);

}

else

{

if (state & (CS_INSIDE | CS_SIZE))

{

switch (which)

{

case Button1:

if (state & CS_SIZE)

{

state &= ~CS_SIZE;

/* The selection marquee has finished, so update the selection

* layer. */

dirtyselection(selrect);

// MM-2012-11-05: [[ Object selection started/ended message ]]

if (m_selecting_objects)

{

m_selecting_objects = false;

message(MCM_object_selection_ended);

}

}

switch (getstack()->gettool(this))

{

case T_POINTER:

case T_BROWSE:

// MW-2010-10-15: [[ Bug 9055 ]] Mouse message consistency improvement

if (p_release)

message_with_valueref_args(MCM_mouse_release, MCSTR("1"));

else

message_with_valueref_args(MCM_mouse_up, MCSTR("1"));

break;

case T_HELP:

help();

break;

default:

break;

}

break;

case Button2:

case Button3:

// MW-2014-07-24: [[ Bug 12882 ]] Make sure we pass through correct button number.

if (p_release)

message_with_valueref_args(MCM_mouse_release, which == Button2 ? MCSTR("2") : MCSTR("3"));

else

message_with_valueref_args(MCM_mouse_up, which == Button2 ? MCSTR("2") : MCSTR("3"));

break;

}

mgrabbed = False;

return True;

}

mgrabbed = False;

}

return False;

}

Boolean MCCard::doubledown(uint2 which)

{

if (mfocused != NULL)

{

mgrabbed = True;

MCControl *oldfocused = mfocused->getref();

if (!mfocused->getref()->doubledown(which)

&& getstack()->gettool(this) == T_BROWSE)

message_with_valueref_args(MCM_mouse_double_down, MCSTR("1"));

if (!(MCbuttonstate & (0x1L << (which - 1))))

{

Boolean oldstate = MClockmessages;

MClockmessages = True;

if (!doubleup(which))

oldfocused->doubleup(which);

MClockmessages = oldstate;

}

}

else