bool MCModeHandleMessageBoxChanged(MCExecPoint& ep)
{
// IM-2013-04-16: [[ BZ 10836 ]] update revMessageBoxLastObject
// if the source of the change is not within the message box
MCObject *t_msg_box = nil;
if (MCmessageboxredirect != nil)
t_msg_box = MCmessageboxredirect;
else
{
if (MCmbstackptr == nil)
MCmbstackptr = MCdispatcher->findstackname(MCmessagenamestring);
t_msg_box = MCmbstackptr;
}
MCObject *t_src_object = nil;
if (ep.getobj() != nil)
t_src_object = ep.getobj();
bool t_in_msg_box = false;
MCObject *t_obj_ptr = t_src_object;
while (t_obj_ptr != nil)
{
if (t_obj_ptr == t_msg_box)
{
t_in_msg_box = true;
break;
}
t_obj_ptr = t_obj_ptr->getparent();
}
if (!t_in_msg_box)
{
if (MCmessageboxlastobject != nil)
MCmessageboxlastobject->Release();
MCmessageboxlastobject = t_src_object->gethandle();
MCNameDelete(MCmessageboxlasthandler);
MCmessageboxlasthandler = nil;
MCNameClone(ep.gethandler()->getname(), MCmessageboxlasthandler);
MCmessageboxlastline = ep.getline();
}
if (MCmessageboxredirect != NULL)
{
if (MCmessageboxredirect -> gettype() == CT_FIELD)
{
MCStack *t_msg_stack;
t_msg_stack = MCmessageboxredirect -> getstack();
Window_mode newmode = t_msg_stack -> userlevel() == 0 ? WM_MODELESS
: (Window_mode)(t_msg_stack -> userlevel() + WM_TOP_LEVEL_LOCKED);
// MW-2011-07-05: [[ Bug 9608 ]] The 'ep' that is passed through to us does
// not necessarily have an attached object any more. Given that the 'rel'
// parameter of the open stack call is unused, computing it from that
// context is redundent.
if (t_msg_stack -> getmode() != newmode)
t_msg_stack -> openrect(t_msg_stack -> getrect(), newmode, NULL, WP_DEFAULT, OP_NONE);
else
t_msg_stack -> raise();
((MCField *)MCmessageboxredirect) -> settext(0, ep . getsvalue(), False);
}
else
{
MCAutoNameRef t_msg_changed;
/* UNCHECKED */ t_msg_changed . CreateWithCString("msgchanged");
bool t_added;
if (MCnexecutioncontexts < MAX_CONTEXTS && ep . getobj() != nil)
{
MCexecutioncontexts[MCnexecutioncontexts++] = &ep;
t_added = true;
}
MCmessageboxredirect -> message(t_msg_changed);
if (t_added)
MCnexecutioncontexts--;
}
return true;
}
return false;
}
