/* 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 "platform.h"

#include "globdefs.h"
#include "filedefs.h"
#include "osspec.h"
#include "typedefs.h"
#include "parsedef.h"
#include "objdefs.h"


#include "exec.h"
#include "scriptpt.h"
#include "mcerror.h"
#include "globals.h"
#include "util.h"
#include "stack.h"
#include "card.h"
#include "debug.h"
#include "scrolbar.h"
#include "button.h"
#include "resolution.h"
#include "redraw.h"
#include "notify.h"
#include "dispatch.h"
#include "image.h"
#include "field.h"
#include "styledtext.h"
#include "graphicscontext.h"
#include "region.h"
#include "scriptenvironment.h"
#include "stacklst.h"
#include "eventqueue.h"
#include "mode.h"

#include "desktop-dc.h"

#include "platform.h"

#include <Carbon/Carbon.h>

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

Boolean tripleclick = False;

static CFAbsoluteTime s_animation_start_time = 0;
static CFAbsoluteTime s_animation_current_time = 0;

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

MCScreenDC::MCScreenDC(void)
{
}

MCScreenDC::~MCScreenDC(void)
{
}

bool MCScreenDC::hasfeature(MCPlatformFeature p_feature)
{
	switch(p_feature)
	{
		case PLATFORM_FEATURE_WINDOW_TRANSPARENCY:
		case PLATFORM_FEATURE_OS_COLOR_DIALOGS:
		case PLATFORM_FEATURE_OS_FILE_DIALOGS:
		case PLATFORM_FEATURE_OS_PRINT_DIALOGS:
			return true;
			break;
			
		case PLATFORM_FEATURE_TRANSIENT_SELECTION:
			return false;
			break;
			
		default:
			assert(false);
			break;
	}
	
	return false;
}

Boolean MCScreenDC::open()
{
	black_pixel.red = black_pixel.green = black_pixel.blue = 0; //black pixel
	white_pixel.red = white_pixel.green = white_pixel.blue = 0xFFFF; //white pixel
	
	MCzerocolor = MCbrushcolor = white_pixel;
	MCselectioncolor = MCpencolor = black_pixel;
	gray_pixel.red = gray_pixel.green = gray_pixel.blue = 0x8888;
	background_pixel.red = background_pixel.green = background_pixel.blue = 0xffff;

	MCPlatformGetSystemProperty(kMCPlatformSystemPropertyHiliteColor, kMCPlatformPropertyTypeColor, &MChilitecolor);
	MCPlatformGetSystemProperty(kMCPlatformSystemPropertyAccentColor, kMCPlatformPropertyTypeColor, &MCaccentcolor);
	
	MCPlatformGetSystemProperty(kMCPlatformSystemPropertyDoubleClickInterval, kMCPlatformPropertyTypeUInt16, &MCdoubletime);
	
	MCtemplatescrollbar->alloccolors();
	MCtemplatebutton->allocicons();
	
	MCcursors[PI_NONE] = nil;
	
	MCPlatformGetSystemProperty(kMCPlatformSystemPropertyCaretBlinkInterval, kMCPlatformPropertyTypeDouble, &MCblinkrate);
			
	MCDisplay const *t_displays;
	getdisplays(t_displays, false);
	MCwbr = t_displays[0] . workarea;
	
	backdrop_enabled = false;
	backdrop_pattern = nil;
	MCPlatformCreateWindow(backdrop_window);
	
	MCPlatformCreateMenu(icon_menu);
	MCPlatformSetIconMenu(icon_menu);

	s_animation_start_time = CFAbsoluteTimeGetCurrent();
	
	return True;
}

Boolean MCScreenDC::close(Boolean force)
{
	MCPlatformReleaseMenu(icon_menu);
    
    MCPlatformReleaseWindow(backdrop_window);
	
	// COCOA-TODO: Is this still needed?
	if (ncolors != 0)
	{
		int2 i;
		for (i = 0 ; i < ncolors ; i++)
		{
			if (colornames[i] != NULL)
				MCValueRelease(colornames[i]);
		}
		delete colors;
		delete colornames;
		delete allocs;
	}
	
	return True;
}

MCNameRef MCScreenDC::getdisplayname()
{
	return MCNAME("local Mac");
}

uint2 MCScreenDC::getmaxpoints(void)
{
	return 32767;
}

uint2 MCScreenDC::getvclass(void)
{
	return DirectColor;
}

uint2 MCScreenDC::getdepth(void)
{
	return 32;
}

MCNameRef MCScreenDC::getvendorname(void)
{
	return MCNAME("Mac OS");
}

uint2 MCScreenDC::getpad()
{
	return 32;
}

// This method is no longer relevant - it only ever worked on Mac and
// even then only on mac classic.
MCColor *MCScreenDC::getaccentcolors()
{
	return nil;
}

bool MCScreenDC::platform_displayinfocacheable(void)
{
	return true;
}

// IM-2013-08-01: [[ ResIndependence ]] refactored methods that return device coordinates
uint16_t MCScreenDC::platform_getwidth(void)
{
	MCRectangle t_viewport;
	MCPlatformGetScreenViewport(0, t_viewport);
	return t_viewport . width;
}

uint16_t MCScreenDC::platform_getheight(void)
{
	MCRectangle t_viewport;
	MCPlatformGetScreenViewport(0, t_viewport);
	return t_viewport . height;
}

bool MCScreenDC::platform_getdisplays(bool p_effective, MCDisplay *& r_displays, uint32_t &r_count)
{
	bool t_success;
	t_success = true;
	
	MCDisplay *t_displays;
	t_displays = nil;
	
	uint32_t t_display_count;
	t_display_count = 0;
	
	MCPlatformGetScreenCount(t_display_count);
	
	if (t_success)
		t_success = MCMemoryNewArray(t_display_count, t_displays);
	
	if (t_success)
	{
		for(uindex_t i = 0; i < t_display_count; i++)
		{
			t_displays[i] . index = i;
			MCPlatformGetScreenViewport(i, t_displays[i] . viewport);
			MCPlatformGetScreenWorkarea(i, t_displays[i] . workarea);
			MCPlatformGetScreenPixelScale(i, t_displays[i] . pixel_scale);
		}
	}
	
	if (!t_success)
		MCMemoryDeleteArray(t_displays);

	r_displays = t_displays;
	r_count = t_display_count;
	
	return true;
}

void MCScreenDC::platform_boundrect(MCRectangle &rect, Boolean title, Window_mode mode, Boolean resizable)
{
	MCRectangle srect;
	
	if (mode >= WM_MODAL)
	{
		const MCDisplay *t_display;
		t_display = getnearestdisplay(rect);
		srect = t_display -> workarea;
	}
	else
		srect = MCwbr;
	
	uint2 sr, sw, sb, sh;
	
	// COCOA-TODO: This is Mac specific
	
	if (title && mode <= WM_SHEET && mode != WM_DRAWER)
	{
		// COCOA-TODO: These values should be queryable (once we figure out what
		//   'title' is meant to do...)
        // MW-2014-07-17: [[ Bug 12824 ]] Adjust the height of srect when we adjust the origin.
		if (mode == WM_PALETTE)
        {
			srect.y += 13;
            srect . height -= 13;
        }
		else
		{
			srect.y += 22;
            srect . height -= 22;
        }
		sr = sb = 10;
		sw = 20;
		sh = 12;
	}
	else
		sr = sw = sb = sh = 0;
	
	if (rect.x < srect . x)
		rect.x = srect . x;
	if (rect.x + rect.width > srect.x + srect . width - sr)
	{
		// PM-2015-10-12: [[ Bug 16177 ]] Modify stack's rect only if stack is resizable
		if (rect.width > srect . width - sw && resizable)
			rect.width = srect . width - sw;
		rect.x = srect . x + srect . width - rect.width - sr;
	}
	
	if (rect.y < srect.y)
		rect.y = srect.y;
	if (rect.y + rect.height > srect . y + srect . height - sb)
	{
		// PM-2015-10-12: [[ Bug 16177 ]] Modify stack's rect only if stack is resizable
		if (rect.height > srect . height - sh && resizable)
			rect.height = srect . height - sh;
		rect.y = srect . y + srect . height - rect.height - sb;
	}
}

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

// SN-2015-06-16: [[ Bug 14056 ]] PI_NONE should be a valid cursor type
static MCPlatformStandardCursor theme_cursorlist[PI_NCURSORS] =
{
	kMCPlatformStandardCursorNone, kMCPlatformStandardCursorArrow,
	kMCPlatformStandardCursorArrow, kMCPlatformStandardCursorArrow, kMCPlatformStandardCursorArrow, kMCPlatformStandardCursorWatch, kMCPlatformStandardCursorWatch,
	kMCPlatformStandardCursorCross, kMCPlatformStandardCursorArrow, kMCPlatformStandardCursorIBeam, kMCPlatformStandardCursorArrow, kMCPlatformStandardCursorArrow,
	kMCPlatformStandardCursorArrow, kMCPlatformStandardCursorCross, kMCPlatformStandardCursorWatch, kMCPlatformStandardCursorArrow   
};

void MCScreenDC::resetcursors()
{
	// MW-2010-09-10: Make sure no stacks reference one of the standard cursors.
	MCdispatcher -> clearcursors();

	int32_t t_cursor_size;
	MCPlatformGetSystemProperty(kMCPlatformSystemPropertyMaximumCursorSize, kMCPlatformPropertyTypeInt32, &t_cursor_size);
	MCcursormaxsize = t_cursor_size;
	
	MCPlatformCursorImageSupport t_image_support;
	MCPlatformGetSystemProperty(kMCPlatformSystemPropertyCursorImageSupport, kMCPlatformPropertyTypeCursorImageSupport, &t_image_support);
	MCcursorcanbealpha = MCcursorcanbecolor = MCcursorbwonly = False;
	switch(t_image_support)
	{
	case kMCPlatformCursorImageSupportAlpha:
		MCcursorcanbealpha = True;
	case kMCPlatformCursorImageSupportColor:
		MCcursorcanbecolor = True;
		break;
	case kMCPlatformCursorImageSupportBilevel:
		MCcursorbwonly = False;
		break;
	case kMCPlatformCursorImageSupportMonochrome:
		MCcursorbwonly = True;
		break;
	};
	
	for(uindex_t i = 0; i < PI_NCURSORS; i++)
	{
		freecursor(MCcursors[i]);
		MCcursors[i] = nil;
		
        // SN-2015-06-16: [[ Bug 14056 ]] PI_NONE should be a valid cursor type
		MCImage *im;
		if ((im = (MCImage *)MCdispatcher->getobjid(CT_IMAGE, i)) != NULL)
			MCcursors[i] = im -> createcursor();
		else if (i < PI_BUSY1)
			MCPlatformCreateStandardCursor(theme_cursorlist[i], MCcursors[i]);
		else
			MCPlatformCreateStandardCursor(kMCPlatformStandardCursorWatch, MCcursors[i]);
	}
}

void MCScreenDC::setcursor(Window w, MCCursorRef c)
{
	// Disable cursor setting when we are a drag-target
	if (MCdispatcher -> isdragtarget())
		return;
	
	MCPlatformSetWindowProperty(w, kMCPlatformWindowPropertyCursor, kMCPlatformPropertyTypeCursorRef, &c);
}

MCCursorRef MCScreenDC::createcursor(MCImageBitmap *image, int2 xhot, int2 yhot)
{
    if (image == nil)
        return nil;
    
	MCCursorRef t_cursor;
	MCPlatformCreateCustomCursor(image, MCPointMake(xhot, yhot), t_cursor);
	return t_cursor;
}

void MCScreenDC::freecursor(MCCursorRef c)
{
	if (c == nil)
		return;
	
	MCPlatformReleaseCursor(c);
}

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

bool MCScreenDC::platform_getwindowgeometry(Window w, MCRectangle &drect)
{
	if (w == nil)
		return false;
	MCPlatformGetWindowContentRect(w, drect);
	return true;
}

void MCScreenDC::openwindow(Window w, Boolean override)
{
	MCStack *t_stack;
	t_stack = MCdispatcher -> findstackd(w);
	if (t_stack == nil)
		return;
	
	MCPlatformWindowRef t_parent;
	if (t_stack != nil)
		t_parent = t_stack -> getparentwindow();
		
	if (t_stack -> getmode() != WM_SHEET)
		MCPlatformShowWindow(w);
	else
		MCPlatformShowWindowAsSheet(w, t_parent);
}

void MCScreenDC::closewindow(Window window)
{
	MCPlatformHideWindow(window);
}

void MCScreenDC::destroywindow(Window &window)
{
	MCPlatformReleaseWindow(window);
	window = nil;
}

void MCScreenDC::raisewindow(Window window)
{
	MCPlatformRaiseWindow(window);
}

void MCScreenDC::iconifywindow(Window window)
{
	MCPlatformIconifyWindow(window);
}

void MCScreenDC::uniconifywindow(Window window)
{
	MCPlatformUniconifyWindow(window);
}

void MCScreenDC::setname(Window window, MCStringRef newname)
{
	MCPlatformSetWindowProperty(window, kMCPlatformWindowPropertyTitle, kMCPlatformPropertyTypeMCString, &newname);
}

void MCScreenDC::setinputfocus(Window window)
{
	MCPlatformFocusWindow(window);
}

uintptr_t MCScreenDC::dtouint(Drawable d)
{
	if (d == nil)
		return 0;
	
	MCPlatformWindowRef t_window;
	t_window = (MCPlatformWindowRef)d;
	
	uint32_t t_id;
	MCPlatformGetWindowProperty(t_window, kMCPlatformWindowPropertySystemId, kMCPlatformPropertyTypeUInt32, &t_id);
	
	return t_id;
}

Boolean MCScreenDC::uinttowindow(uintptr_t p_id, Window &w)
{
    // MW-2014-07-15: [[ Bug 12800 ]] Map the windowId to a platform window if one exists.
    MCPlatformWindowRef t_window;
    
    if (!MCPlatformGetWindowWithId(p_id, t_window))
        return False;
    
    w = (Window)t_window;
    
	return True;
}

void *MCScreenDC::GetNativeWindowHandle(Window p_window)
{
	void *t_window;
	t_window = nil;
	
	MCPlatformGetWindowProperty(p_window, kMCPlatformWindowPropertySystemHandle, kMCPlatformPropertyTypePointer, &t_window);
	
	return t_window;
}

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

void MCScreenDC::seticon(uint4 p_icon)
{
}

void MCScreenDC::configurestatusicon(uint32_t icon_id, MCStringRef menu, MCStringRef tooltip)
{
}

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

void MCScreenDC::enactraisewindows(void)
{
	// If the backdrop is already enabled, there is nothing to do.
	if (backdrop_enabled)
		return;
	
	// If raiseWindows mode is active and there is no backdrop then resize the
	// backdrop window and set it.
	if (MCraisewindows)
	{
		MCRectangle t_rect;
		t_rect = MCRectangleMake(0, 0, 0, 0);
		MCPlatformSetWindowProperty(backdrop_window, kMCPlatformWindowPropertyFrameRect, kMCPlatformPropertyTypeRectangle, &t_rect);
		MCPlatformShowWindow(backdrop_window);
        MCPlatformConfigureBackdrop(backdrop_window);
	}
	else
	{
		MCPlatformHideWindow(backdrop_window);
        MCPlatformConfigureBackdrop(nil);
	}
}

void MCScreenDC::enablebackdrop(bool p_hard)
{
	if (backdrop_enabled)
		return;
	
	backdrop_enabled = true;
	
	MCRectangle t_rect;
	MCPlatformGetScreenViewport(0, t_rect);
	MCPlatformSetWindowProperty(backdrop_window, kMCPlatformWindowPropertyContentRect, kMCPlatformPropertyTypeRectangle, &t_rect);
	MCPlatformShowWindow(backdrop_window);
	MCPlatformConfigureBackdrop(backdrop_window);
}

void MCScreenDC::disablebackdrop(bool p_hard)
{
	if (!backdrop_enabled)
		return;
	
	backdrop_enabled = false;
	
	enactraisewindows();
}

void MCScreenDC::configurebackdrop(const MCColor& p_colour, MCPatternRef p_pattern, MCImage *p_badge)
{
	backdrop_pattern = p_pattern;
	backdrop_colour = p_colour;
	
	MCPlatformInvalidateWindow(backdrop_window, nil);
    MCPlatformUpdateWindow(backdrop_window);
}

void MCScreenDC::assignbackdrop(Window_mode p_mode, Window p_window)
{
}

//////////

bool MCScreenDC::isbackdrop(MCPlatformWindowRef p_window)
{
	return backdrop_window == p_window;
}

void MCScreenDC::redrawbackdrop(MCPlatformSurfaceRef p_surface, MCGRegionRef p_region)
{
    // MM-2014-07-31: [[ ThreadedRendering ]] Updated to use new platform surface API.
	MCGContextRef t_context;
    MCGRaster t_raster;
    MCGIntegerRectangle t_bounds;
    t_bounds = MCGRegionGetBounds(p_region);
	if (MCPlatformSurfaceLockGraphics(p_surface, t_bounds, t_context, t_raster))
	{
		MCGraphicsContext *t_gfxcontext;
		/* UNCHECKED */ t_gfxcontext = new (nothrow) MCGraphicsContext(t_context);
		t_gfxcontext -> setforeground(backdrop_colour);
		if (backdrop_pattern != NULL)
			t_gfxcontext -> setfillstyle(FillTiled, backdrop_pattern, 0, 0);
		else
			t_gfxcontext -> setfillstyle(FillSolid, NULL, 0, 0);
		t_gfxcontext -> fillrect(MCRectangleFromMCGIntegerRectangle(MCGRegionGetBounds(p_region)), false);
		delete t_gfxcontext;
		
		MCPlatformSurfaceUnlockGraphics(p_surface, t_bounds, t_context, t_raster);
	}
}

void MCScreenDC::mousedowninbackdrop(uint32_t p_button, uint32_t p_count)
{
	MCdefaultstackptr -> getcard() -> message_with_args(MCM_mouse_down_in_backdrop, p_button + 1);
}

void MCScreenDC::mouseupinbackdrop(uint32_t p_button, uint32_t p_count)
{
	MCdefaultstackptr -> getcard() -> message_with_args(MCM_mouse_up_in_backdrop, p_button + 1);
}

void MCScreenDC::mousereleaseinbackdrop(uint32_t p_button)
{
}

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

void MCScreenDC::grabpointer(Window w)
{
	MCPlatformGrabPointer(w);
}

void MCScreenDC::ungrabpointer()
{
	MCPlatformUngrabPointer();
}

void MCScreenDC::platform_querymouse(int2 &x, int2 &y)
{
	MCPoint t_location;
	MCPlatformGetMousePosition(t_location);
	x = t_location . x;
	y = t_location . y;
}

void MCScreenDC::platform_setmouse(int2 x, int2 y)
{
	MCPoint t_location;
	t_location . x = x;
	t_location . y = y;
	MCPlatformSetMousePosition(t_location);
}

MCStack *MCScreenDC::platform_getstackatpoint(int32_t x, int32_t y)
{
	MCPlatformWindowRef t_window;
	MCPlatformGetWindowAtPoint(MCPointMake(x, y), t_window);
	if (t_window == nil)
		return nil;
	
	return MCdispatcher -> findstackd(t_window);
}

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

MCColorTransformRef MCScreenDC::createcolortransform(const MCColorSpaceInfo& info)
{
	MCPlatformColorTransformRef t_transform;
	MCPlatformCreateColorTransform(info, t_transform);
	return t_transform;
}

void MCScreenDC::destroycolortransform(MCColorTransformRef transform)
{
	MCPlatformReleaseColorTransform((MCPlatformColorTransformRef)transform);
}

bool MCScreenDC::transformimagecolors(MCColorTransformRef transform, MCImageBitmap *image)
{
	return MCPlatformApplyColorTransform((MCPlatformColorTransformRef)transform, image);
}

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

void MCScreenDC::beep()
{
    MCPlatformBeep();
}

void MCScreenDC::getbeep(uint4 which, int4& r_value)
{
	switch (which)
	{
		case P_BEEP_LOUDNESS:
			r_value = 100;
			break;
		case P_BEEP_PITCH:
			r_value = 1440;
			break;
		case P_BEEP_DURATION:
			r_value = 500;
			break;
	}
}

void MCScreenDC::setbeep(uint4 which, int4 beep)
{
}	

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

Boolean MCScreenDC::abortkey()
{
	if (MCabortscript)
		return True;
	
	if (MCPlatformGetAbortKeyPressed())
	{
		if (MCallowinterrupts && !MCdefaultstackptr -> cantabort())
			return True;
		
		MCinterrupt = True;
		
		// OK-2010-04-29: [[Bug]] - cantAbort / allowInterrupts not working on OS X
		return False;
	}
	
	return False;
}

uint2 MCScreenDC::querymods()
{
	if (lockmods)
		return MCmodifierstate;

	MCPlatformModifiers t_state;
	t_state = MCPlatformGetModifiersState();
	
	uint2 state;
	state = 0;
	if ((t_state & kMCPlatformModifierShift) != 0)
		state |= MS_SHIFT;
	if ((t_state & kMCPlatformModifierControl) != 0)
		state |= MS_CONTROL;
	if ((t_state & kMCPlatformModifierAlt) != 0)
		state |= MS_MOD1;
	if ((t_state & kMCPlatformModifierCommand) != 0)
		state |= MS_MOD2;
	if ((t_state & kMCPlatformModifierCapsLock) != 0)
		state |= MS_CAPS_LOCK;
	
	return state;
}

bool MCScreenDC::getkeysdown(MCListRef &r_list)
{	
	MCPlatformKeyCode *t_codes;
	uindex_t t_code_count;
	if (!MCPlatformGetKeyState(t_codes, t_code_count))
		return false;
	
    bool t_success;
    MCAutoListRef t_list;
    t_success = MCListCreateMutable(',', &t_list);
    
	for(uindex_t i = 0; t_success && i < t_code_count; i++)
		t_success = MCListAppendUnsignedInteger(*t_list, t_codes[i]);
	
	free(t_codes);
    if (t_success)
        t_success = MCListCopy(*t_list, r_list);
    
    return t_success;
}

Boolean MCScreenDC::istripleclick()
{
	return tripleclick;
}

Boolean MCScreenDC::getmouse(uint2 button, Boolean& r_abort)
{
	r_abort = False;
	return MCPlatformGetMouseButtonState(button);
}

Boolean MCScreenDC::getmouseclick(uint2 p_button, Boolean& r_abort)
{
	r_abort = False;
	
	MCPoint t_location;
	bool t_clicked;
	t_clicked = MCPlatformGetMouseClick(p_button, t_location);
	
	MCPoint t_clickloc;
	t_clickloc.x = t_location . x;
	t_clickloc.y = t_location . y;
	MCscreen->setclickloc(MCmousestackptr, t_clickloc);
	
	return t_clicked;
}

Boolean MCScreenDC::wait(real8 duration, Boolean dispatch, Boolean anyevent)
{
    MCDeletedObjectsEnterWait(dispatch);
    
	real8 curtime = MCS_time();
	
	if (duration < 0.0)
		duration = 0.0;
	
	real8 exittime = curtime + duration;
	
	Boolean abort = False;
	Boolean done = False;
	
	MCwaitdepth++;
	
	do
	{
		// IM-2014-03-13: [[ revBrowserCEF ]] call additional runloop callbacks
		DoRunloopActions();
		
		// Check for abort.
		if (abortkey())
		{
			abort = True;
			break;
		}
		
		// Dispatch any notify events.
		if (MCNotifyDispatch(dispatch == True))
        {
            if (anyevent)
                break;
        }
		
        // MW-2015-01-08: [[ EventQueue ]] Reinstate event queue poking.
		MCModeQueueEvents();
        
		// Handle pending events
		real8 eventtime = exittime;
		if (handlepending(curtime, eventtime, dispatch) ||
            (dispatch && MCEventQueueDispatch()))
		{
			if (anyevent)
				done = True;
			
			if (MCquit)
			{
				abort = True;
				break;
			}
		}
		
		// MW-2012-09-19: [[ Bug 10218 ]] Make sure we update the screen in case
		//   any engine event handling methods need us to.
		MCRedrawUpdateScreen();
		
		// Get the time now
		curtime = MCS_time();
		
		// And work out how long to sleep for.
		real8 t_sleep;
		t_sleep = 0.0;
		if (curtime >= exittime)
			done = True;
		else if (!done && eventtime > curtime)
			t_sleep = MCMin(eventtime - curtime, exittime - curtime);
		
#ifndef FEATURE_PLATFORM_RECORDER
#ifdef FEATURE_QUICKTIME_EFFECTS
		// If we are recording, then poke QT (if enabled) and reduce sleep.
		if (MCrecording)
		{
			extern void MCQTHandleRecord(void);
			MCQTHandleRecord();
			t_sleep = MCMin(0.1, t_sleep);
		}
#endif
#endif
		
		// IM-2014-06-25: [[ Bug 12671 ]] If there are runloop actions then set a timeout instead of waiting for the next event
		if (HasRunloopActions())
			t_sleep = MCMin(0.01, t_sleep);
        
		// Wait for t_sleep seconds and collect at most one event. If an event
		// is collected and anyevent is True, then we are done.
		if (MCPlatformWaitForEvent(t_sleep, dispatch == False))
        {
            if (anyevent)
                done = True;
        }
		
		s_animation_current_time = CFAbsoluteTimeGetCurrent();
		
		// If 'quit' has been set then we must have got a finalization request
		if (MCquit)
		{
			abort = True;
			break;
		}
	}
	while(!done);
	
	MCwaitdepth--;
	
	// MW-2012-09-19: [[ Bug 10218 ]] Make sure we update the screen in case
	//   any engine event handling methods need us to.
	MCRedrawUpdateScreen();
    
    MCDeletedObjectsLeaveWait(dispatch);
	
	return abort;
}

void MCScreenDC::flushevents(uint2 e)
{
	// Only really the mouseDown / mouseUp / keyDown / keyUp events make sense to
	// flush these days, the remaining event types are quite tied to Mac Classic!
	MCPlatformEventMask t_mask;
	t_mask = 0;
	if (e == FE_MOUSEDOWN)
		t_mask = kMCPlatformEventMouseDown;
	else if (e == FE_MOUSEUP)
		t_mask = kMCPlatformEventMouseUp;
	else if (e == FE_KEYDOWN)
		t_mask = kMCPlatformEventKeyDown;
	else if (e == FE_KEYUP)
		t_mask = kMCPlatformEventKeyUp;
    else if (e == FE_ALL)
        t_mask = kMCPlatformEventMouseDown | kMCPlatformEventMouseUp | kMCPlatformEventKeyDown | kMCPlatformEventKeyUp;
    
    MCPlatformFlushEvents(t_mask);
}

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

void MCScreenDC::clearIME(Window w)
{
	if (!MCactivefield)
		return;
	
	MCPlatformResetTextInputInWindow(MCactivefield -> getstack() -> getwindow());
}

void MCScreenDC::openIME()
{
}

void MCScreenDC::activateIME(Boolean activate)
{
	if (!MCactivefield)
		return;
	
	MCPlatformConfigureTextInputInWindow(MCactivefield -> getstack() -> getwindow(), activate);
}

void MCScreenDC::closeIME()
{
}

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

void MCScreenDC::getsystemappearance(MCSystemAppearance &r_appearance)
{
	MCPlatformGetSystemProperty(kMCPlatformSystemPropertySystemAppearance, kMCPlatformPropertyTypeInt32, &r_appearance);
}

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

extern bool MCListSystemPrinters(MCStringRef &);
extern MCPrinter *MCCreateSystemPrinter(void);

bool MCScreenDC::listprinters(MCStringRef& r_printers)
{
	return MCListSystemPrinters(r_printers);
}

MCPrinter *MCScreenDC::createprinter(void)
{
	return MCCreateSystemPrinter();
}

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

// TD-2013-07-01: [[ DynamicFonts ]]
bool MCScreenDC::loadfont(MCStringRef p_path, bool p_globally, void*& r_loaded_font_handle)
{
	return MCPlatformLoadFont(p_path, p_globally, (MCPlatformLoadedFontRef&)r_loaded_font_handle);
}

bool MCScreenDC::unloadfont(MCStringRef p_path, bool p_globally, void *p_loaded_font_handle)
{
	return MCPlatformUnloadFont(p_path, p_globally, (MCPlatformLoadedFontRef)p_loaded_font_handle);
}

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

class MCSystemScriptEnvironment: public MCScriptEnvironment
{
public:
    // SN-2014-07-23: [[ Bug 12907 ]]
    //  Update as well MCSreenDC::createscriptenvironment (and callees)
	MCSystemScriptEnvironment(MCStringRef p_language)
	{
		m_references = 1;
		MCPlatformScriptEnvironmentCreate(p_language, m_env);
	}
	
	~MCSystemScriptEnvironment(void)
	{
		MCPlatformScriptEnvironmentRelease(m_env);
	}
	
	void Retain(void)
	{
		m_references += 1;
	}
	
	void Release(void)
	{
		m_references -= 1;
		if (m_references == 0)
			delete this;
	}
	
	bool Define(const char *p_name, MCScriptEnvironmentCallback p_callback)
	{
		return MCPlatformScriptEnvironmentDefine(m_env, p_name, (MCPlatformScriptEnvironmentCallback)p_callback);
	}
	
	void Run(MCStringRef p_script, MCStringRef &r_result)
	{
		MCPlatformScriptEnvironmentRun(m_env, p_script, r_result);
	}
	
	char *Call(const char *p_method, const char **p_arguments, uindex_t p_argument_count)
	{
		char *t_result;
		t_result = nil;
		MCPlatformScriptEnvironmentCall(m_env, p_method, p_arguments, p_argument_count, t_result);
		return t_result;
	}

private:
	uint32_t m_references;
	MCPlatformScriptEnvironmentRef m_env;
};

// SN-2014-07-23: [[ Bug 12907 ]]
//  Update as well MCSreenDC::createscriptenvironment (and callees)
MCScriptEnvironment *MCScreenDC::createscriptenvironment(MCStringRef p_language)
{
	return new MCSystemScriptEnvironment(p_language);
}

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

MCDragAction MCScreenDC::dodragdrop(Window w, MCDragActionSet p_allowed_actions, MCImage *p_image, const MCPoint* p_image_offset)
{
	MCPlatformAllowedDragOperations t_operations;
	t_operations = kMCPlatformDragOperationNone;
	if ((p_allowed_actions & DRAG_ACTION_COPY) != 0)
		t_operations |= kMCPlatformDragOperationCopy;
	if ((p_allowed_actions & DRAG_ACTION_MOVE) != 0)
		t_operations |= kMCPlatformDragOperationMove;
	if ((p_allowed_actions & DRAG_ACTION_LINK) != 0)
		t_operations |= kMCPlatformDragOperationLink;
	
	MCImageBitmap *t_image_bitmap;
	t_image_bitmap = nil;
	if (p_image != nil)
	{
		MCImageBitmap *t_bitmap = nil;
		/* UNCHECKED */ p_image -> lockbitmap(t_bitmap, true);
		/* UNCHECKED */ MCImageCopyBitmap(t_bitmap, t_image_bitmap);
		p_image -> unlockbitmap(t_bitmap);
	}
	
	MCPlatformDragOperation t_op;
	MCPlatformDoDragDrop(w, t_operations, t_image_bitmap, p_image_offset, t_op);
	
	MCImageFreeBitmap(t_image_bitmap);
	
	MCDragAction t_action;
	switch(t_op)
	{
		case kMCPlatformDragOperationNone:
			t_action = DRAG_ACTION_NONE;
			break;
		case kMCPlatformDragOperationCopy:
			t_action = DRAG_ACTION_COPY;
			break;
		case kMCPlatformDragOperationLink:
			t_action = DRAG_ACTION_LINK;
			break;
		case kMCPlatformDragOperationMove:
			t_action = DRAG_ACTION_MOVE;
			break;
	}
	
	return t_action;
}

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

// SN-2014-07-23: [[ Bug 12907 ]] File > Import as control > Snapshot from screen
//  Mismatching types - thus the 'unimplemented' MCUICDC::snapshot was called instead of the MCScreenDC one
MCImageBitmap *MCScreenDC::snapshot(MCRectangle &p_rect, uint4 p_window, MCStringRef p_display_name, MCPoint *p_size)
{
	MCImageBitmap *t_bitmap;
	if (p_window == 0)
	{
		if (p_rect . width == 0 || p_rect . height == 0)
			MCPlatformScreenSnapshotOfUserArea(p_size, t_bitmap);
		else
			MCPlatformScreenSnapshot(p_rect, p_size, t_bitmap);
	}
	else
	{
		if (p_rect.width == 0 || p_rect.height == 0)
			MCPlatformScreenSnapshotOfWindow(p_window, p_size, t_bitmap);
		else
			// IM-2014-04-03: [[ Bug 12115 ]] If window and non-empty rect given then call appropriate snapshot function
			MCPlatformScreenSnapshotOfWindowArea(p_window, p_rect, p_size, t_bitmap);
	}
	return t_bitmap;
}

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

void MCScreenDC::controlgainedfocus(MCStack *p_stack, uint32_t p_id)
{
	MCPlatformWindowRef t_window = p_stack -> getwindow();
	if (t_window != nullptr)
	{
		MCPlatformSwitchFocusToView(p_stack -> getwindow(), p_id);
	}
}

void MCScreenDC::controllostfocus(MCStack *p_stack, uint32_t p_id)
{
}

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

void MCScreenDC::hidecursoruntilmousemoves(void)
{
    MCPlatformHideCursorUntilMouseMoves();
}

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

// MW-2014-04-23: [[ Bug 12080 ]] Make sure the HideOnSuspend property of all
//   palettes is in sync with hidePalettes.
void MCStacklist::hidepaletteschanged(void)
{
	if (stacks != NULL)
	{
		MCStacknode *tptr = stacks;
		do
		{
            MCStack *t_stack;
            t_stack = tptr -> getstack();
			
            if (t_stack->getwindow() != nil)
                MCPlatformSetWindowBoolProperty(t_stack -> getwindow(), kMCPlatformWindowPropertyHideOnSuspend, MChidepalettes && t_stack -> getrealmode() == WM_PALETTE);
            
            tptr = tptr->next();
		}
		while (tptr != stacks);
	}
}

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

double MCMacGetAnimationStartTime(void)
{
	return s_animation_start_time;
}

double MCMacGetAnimationCurrentTime(void)
{
	return s_animation_current_time;
}

void MCMacBreakWait(void)
{
	MCPlatformBreakWait();
}

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

void MCResPlatformInitPixelScaling(void)
{
}

bool MCResPlatformSupportsPixelScaling(void)
{
	return true;
}

bool MCResPlatformCanChangePixelScaling(void)
{
	return true;
}

bool MCResPlatformCanSetPixelScale(void)
{
	return false;
}

MCGFloat MCResPlatformGetDefaultPixelScale(void)
{
	return 1.0f;
}

// IM-2014-03-14: [[ HiDPI ]] UI scale is 1.0 on OSX
MCGFloat MCResPlatformGetUIDeviceScale(void)
{
	return 1.0;
}

// IM-2014-01-30: [[ HiDPI ]] Reopen windows when usePixelScale is changed
void MCResPlatformHandleScaleChange(void)
{
	// Global use-pixel-scaling value has been updated, so now we just need to reopen any open stack windows
	MCstacks->reopenallstackwindows();
}

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

MCUIDC *MCCreateScreenDC(void)
{
	return new MCScreenDC;
}

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