{

char *license;

MCStack *stacks;

MCFontlist *fonts;

Boolean handling;

real8 starttime;

MCObject *menu;

MCStack *panels;

char *startdir;

char *enginedir;

bool m_drag_source;

bool m_drag_target;

bool m_drag_end_sent;

bool m_showing_mnemonic_underline;

MCExternalHandlerList *m_externals;

MCStack *m_transient_stacks;

static MCImage *imagecache;

static MCPropertyInfo kProperties[];

static MCObjectPropertyTable kPropertyTable;

// AL-2015-02-10: [[ Standalone Inclusions ]] Add resource mapping array to MCDispatch object.

MCArrayRef m_library_mapping;

MCDispatch();

// virtual functions from MCObject

virtual ~MCDispatch();

virtual const MCObjectPropertyTable *getpropertytable(void) const { return &kPropertyTable; }

virtual bool visit_self(MCObjectVisitor *p_visitor);

virtual void timer(MCNameRef mptr, MCParameter *params);

// dummy cut function for checking licensing

virtual Boolean cut(Boolean home);

virtual Exec_stat handle(Handler_type, MCNameRef, MCParameter *params, MCObject *pass_from);

// MCDispatch functions

const char *getl(const MCString &s);

bool getmainstacknames(MCListRef& r_list);

Boolean cl(const MCString &, const MCString &, Boolean doit);

void appendstack(MCStack *sptr);

void removestack(MCStack *sptr);

void destroystack(MCStack *sptr, Boolean needremove);

Boolean openstartup(MCStringRef name, MCStringRef& r_outpath, IO_handle &r_stream);

Boolean openenv(MCStringRef name, MCStringRef env, MCStringRef& r_outpath, IO_handle& r_stream, uint4 offset);

IO_stat readfile(MCStringRef openpath, MCStringRef inname, IO_handle &stream, MCStack *&sptr);

IO_stat loadfile(MCStringRef p_name, MCStack *&sptr);

// MW-2009-06-25: This method should be used to read stacks used from startup.

// Specifically, embedded stacks and ones contained in deployed project info.

IO_stat readstartupstack(IO_handle stream, MCStack*& r_stack);

IO_stat readscriptonlystartupstack(IO_handle stream, uindex_t p_length, MCStack*& r_stack);

// Load the given external from within the app bundle

bool loadexternal(MCStringRef p_external);

void cleanup(IO_handle stream, MCStringRef lname, MCStringRef bname);

IO_stat savestack(MCStack *sptr, const MCStringRef, uint32_t p_version = UINT32_MAX);

IO_stat startup(void);

void wreshape(Window w);

void wredraw(Window w, MCPlatformSurfaceRef surface, MCGRegionRef region);

void wiconify(Window w);

void wuniconify(Window w);

void wclose(Window w);

void wkfocus(Window w);

void wkunfocus(Window w);

Boolean wkdown(Window w, MCStringRef p_string, KeySym key);

void wkup(Window w, MCStringRef p_string, KeySym key);

void wmfocus(Window w, int2 x, int2 y);

void wmunfocus(Window w);

void wmdown(Window w, uint2 which);

void wmdrag(Window w);

void wmup(Window w, uint2 which);

void wdoubledown(Window w, uint2 which);

void wdoubleup(Window w, uint2 which);

void wmfocus_stack(MCStack *stack, int2 x, int2 y);

void wmdown_stack(MCStack *stack, uint2 which);

void wmup_stack(MCStack *stack, uint2 which);

// This method is invoked when this application is acting as a drag-drop

// target and the mouse pointer has entered the given window.

//

void wmdragenter(Window w);

// This method is invoked when this application is acting as a drag-drop

// target and the mouse pointer has moved within the given window to the

// specified location.

//

// The return value is the action that would be performed should a drop

// occur at this point - DRAG_ACTION_NONE indicates the drop would not

// be accepted.

//

MCDragAction wmdragmove(Window w, int2 x, int2 y);

// This method is invoked when this application is acting as a drag-drop

// target and the mouse pointer has left the given window.

//

void wmdragleave(Window w);

// This method is invoked when this application is acting as a drag-drop

// target and the operation has terminated over the given window with an

// indication that a drop should occur (i.e. the operation has not been

// cancelled and the user has released the mouse pointer).

//

// The return value is the action that has been performed.

//

MCDragAction wmdragdrop(Window w);

// This method returns true when this application is acting as a drag-drop

// source.

//

bool isdragsource(void);

// This method returns true when this application is acting as a drag-drop

// target.

//

bool isdragtarget(void);

// Actually perform a paste - if p_explicit is true, then it means its the

// result of a script command rather than short-cut.

bool dopaste(MCObject*& r_object, bool p_explicit = false);

void dodrop(bool p_source);

void kfocusset(Window w);

void property(Window w, Atom atom);

void enter(Window w);

void redraw(Window w, MCRegionRef dirty_region);

MCFontlist *getfontlist();

MCFontStruct *loadfont(MCNameRef fname, uint2 &size, uint2 style, Boolean printer);

MCFontStruct *loadfontwithhandle(MCSysFontHandle, MCNameRef p_name);

// This method iterates through all stacks and ensures none have a reference

// to one of the ones in MCcursors.

void clearcursors(void);

// This method installs the given stack as the new home stack

void changehome(MCStack *stack);

// This method executes the given message in the given encoded stack in an isolated

// environment.

bool isolatedsend(const char *p_stack_data, uint32_t p_stack_data_length, MCStringRef p_message, MCParameter *p_parameters);

// MW-2014-06-24: [[ TransientStack ]] Transient stacks are a generalization of MCtooltip

// allowing controls to create popup windows temporarily by deriving from MCStack and then

// adding to MCdispatch for the time they are in use.

bool is_transient_stack(MCStack *stack);

void add_transient_stack(MCStack *stack);

void remove_transient_stack(MCStack *stack);

#ifdef _WINDOWS_DESKTOP

void freeprinterfonts();

#endif

MCStack *findstackname(MCNameRef);

MCStack *findstackid(uint4 fid);

// IM-2014-07-09: [[ Bug 12225 ]] Find the stack by window ID

MCStack *findstackwindowid(uintptr_t p_win_id);

MCStack *findstackd(Window w);

// IM-2014-07-23: [[ Bug 12930 ]] Replace findchildstack method with iterating method

bool foreachchildstack(MCStack *p_stack, MCStackForEachCallback p_callback, void *p_context);

bool foreachstack(MCStackForEachCallback p_callback, void *p_context);

MCObject *getobjid(Chunk_term type, uint4 inid);

MCObject *getobjname(Chunk_term type, MCNameRef);

MCStack *gethome();

Boolean ismainstack(MCStack *sptr);

void addmenu(MCObject *target);

void removemenu();

void closemenus();

MCObject *getmenu()

{

return menu;

}

void appendpanel(MCStack *sptr);

void removepanel(MCStack *sptr);

// Recreate the fontlist.

void flushfonts(void);

MCStack *getstacks(void)

{

return stacks;

}

// This method is only present in commercial development engines.

bool isolatedsend(const char *p_stack_data, uint32_t p_stack_data_length, const char *p_message, MCParameter *p_parameters);

////////// PROPERTY ACCESSORS

bool GetColor(MCExecContext& ctxt, Properties which, bool effective, MCInterfaceNamedColor& r_color);

void GetDefaultTextFont(MCExecContext& ctxt, MCStringRef& r_font);

void GetDefaultTextSize(MCExecContext& ctxt, uinteger_t& r_size);

void GetDefaultTextStyle(MCExecContext& ctxt, MCInterfaceTextStyle& r_style);

void GetDefaultTextAlign(MCExecContext& ctxt, intenum_t& r_align);

void GetDefaultTextHeight(MCExecContext& ctxt, uinteger_t& r_height);

void GetDefaultForePixel(MCExecContext& ctxt, uinteger_t& r_pixel);

void GetDefaultBackPixel(MCExecContext& ctxt, uinteger_t& r_pixel);

void GetDefaultTopPixel(MCExecContext& ctxt, uinteger_t& r_pixel);

void GetDefaultForeColor(MCExecContext& ctxt, MCInterfaceNamedColor& r_color);

void GetDefaultBackColor(MCExecContext& ctxt, MCInterfaceNamedColor& r_color);

void GetDefaultPattern(MCExecContext& ctxt, uinteger_t*& r_pattern);

// AL-2015-02-10: [[ Standalone Inclusions ]] Add functions to fetch relative paths present

// in the resource mapping array of MCdispatcher.

void addlibrarymapping(MCStringRef p_mapping);

bool fetchlibrarymapping(MCStringRef p_name, MCStringRef &r_path);

virtual bool recomputefonts(MCFontRef parent_font, bool force);

// Try to read a binary stack from the stream. If the return value is

// IO_ERROR, a reason is returned in r_result. If the return value is

// IO_NORMAL, there was no error but the stream did not contain a binary

// stack

IO_stat trytoreadbinarystack(MCStringRef p_openpath,

MCStringRef p_name,

IO_handle &x_stream,

MCObject* p_parent, MCStack* &r_stack,

const char* &r_result);

// Try to read a script-only stack from the stream. If the return value is

// IO_ERROR, a reason is returned in r_result. If the return value is

// IO_NORMAL, there was no error but the stream did not contain a

// script-only stack

IO_stat trytoreadscriptonlystack(MCStringRef p_openpath,

IO_handle &x_stream,

MCObject* p_parent,

MCStack* &r_stack,

const char* &r_result);

// Read a script-only stack from p_size bytes of the stream. If the

// return value is IO_ERROR, a reason is returned in r_result. If

// the return value is IO_NORMAL, there was no error but the stream

// did not contain a script-only stack

IO_stat trytoreadscriptonlystackofsize(MCStringRef p_openpath,

IO_handle &x_stream,

uindex_t p_size,

MCObject* p_parent,

MCStack* &r_stack,

const char* &r_result);

// Determine if the stream contains a script-only stack

bool streamstackisscriptonly(IO_handle stream);

// Integrate a loaded stack into the environemnt, sending reloadStack

// if required.

void processstack(MCStringRef p_openpath, MCStack* &x_stack);

// MW-2012-02-17: [[ LogFonts ]] Actual method which performs a load stack. This

// is wrapped by readfile to handle logical font table.

IO_stat doreadfile(MCStringRef openpath, MCStringRef inname, IO_handle &stream, MCStack *&sptr);

// MW-2012-02-17: [[ LogFonts ]] Actual method which performs a save stack. This

// is wrapped by savestack to handle logical font table.

IO_stat dosavestack(MCStack *sptr, const MCStringRef, uint32_t p_version);

// MW-2014-09-30: [[ ScriptOnlyStack ]] Save a stack if it is marked as script-only.

IO_stat dosavescriptonlystack(MCStack *sptr, const MCStringRef);