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

#include "menuparse.h"

#include "group.h"

#include "stacklst.h"

#include "stack.h"

#include "card.h"

#include "graphics_util.h"

#include "redraw.h"

#include "platform.h"

#include "desktop-dc.h"

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

static struct { const char *tag; MCPlatformMenuItemAction action; } s_known_menu_item_tags[] =

{

{ "About", kMCPlatformMenuItemActionAbout },

{ "Preferences", kMCPlatformMenuItemActionPreferences },

{ "Quit", kMCPlatformMenuItemActionQuit },

{ "Undo", kMCPlatformMenuItemActionUndo },

{ "Redo", kMCPlatformMenuItemActionRedo },

{ "Cut", kMCPlatformMenuItemActionCut },

{ "Copy", kMCPlatformMenuItemActionCopy },

{ "Paste", kMCPlatformMenuItemActionPaste },

{ "Select All", kMCPlatformMenuItemActionSelectAll },

{ "Clear", kMCPlatformMenuItemActionClear },

};

static struct { KeySym keysym; MCPlatformAccelerator accelerator; } s_known_accelerators[] =

{

{ XK_Tab, kMCPlatformAcceleratorTabKey },

{ XK_BackSpace, kMCPlatformAcceleratorBackspaceKey },

{ XK_Return, kMCPlatformAcceleratorReturnKey },

{ XK_KP_Enter, kMCPlatformAcceleratorEnterKey },

{ XK_Up, kMCPlatformAcceleratorUpArrowKey },

{ XK_Down, kMCPlatformAcceleratorDownArrowKey },

{ XK_Left, kMCPlatformAcceleratorLeftArrowKey },

{ XK_Right, kMCPlatformAcceleratorRightArrowKey },

{ XK_F1, kMCPlatformAcceleratorF1Key },

{ XK_F2, kMCPlatformAcceleratorF2Key },

{ XK_F3, kMCPlatformAcceleratorF3Key },

{ XK_F4, kMCPlatformAcceleratorF4Key },

{ XK_F5, kMCPlatformAcceleratorF5Key },

{ XK_F6, kMCPlatformAcceleratorF6Key },

{ XK_F7, kMCPlatformAcceleratorF7Key },

{ XK_F8, kMCPlatformAcceleratorF8Key },

{ XK_F9, kMCPlatformAcceleratorF9Key },

{ XK_F10, kMCPlatformAcceleratorF10Key },

{ XK_F11, kMCPlatformAcceleratorF11Key },

{ XK_F12, kMCPlatformAcceleratorF12Key },

{ XK_F13, kMCPlatformAcceleratorF13Key },

{ XK_F14, kMCPlatformAcceleratorF14Key },

{ XK_F15, kMCPlatformAcceleratorF15Key },

{ XK_F16, kMCPlatformAcceleratorF16Key },

{ XK_F17, kMCPlatformAcceleratorF17Key },

{ XK_F18, kMCPlatformAcceleratorF18Key },

{ XK_F19, kMCPlatformAcceleratorF19Key },

{ XK_F20, kMCPlatformAcceleratorF20Key },

{ XK_F21, kMCPlatformAcceleratorF21Key },

{ XK_F22, kMCPlatformAcceleratorF22Key },

{ XK_F23, kMCPlatformAcceleratorF23Key },

{ XK_F24, kMCPlatformAcceleratorF24Key },

{ XK_F25, kMCPlatformAcceleratorF25Key },

{ XK_F26, kMCPlatformAcceleratorF26Key },

{ XK_F27, kMCPlatformAcceleratorF27Key },

{ XK_F28, kMCPlatformAcceleratorF28Key },

{ XK_F29, kMCPlatformAcceleratorF29Key },

{ XK_F30, kMCPlatformAcceleratorF30Key },

{ XK_F31, kMCPlatformAcceleratorF31Key },

{ XK_F32, kMCPlatformAcceleratorF32Key },

{ XK_F33, kMCPlatformAcceleratorF33Key },

{ XK_F34, kMCPlatformAcceleratorF34Key },

{ XK_F35, kMCPlatformAcceleratorF35Key },

{ XK_Insert, kMCPlatformAcceleratorInsertKey },

{ XK_Home, kMCPlatformAcceleratorHomeKey },

{ XK_Begin, kMCPlatformAcceleratorBeginKey },

{ XK_End, kMCPlatformAcceleratorEndKey },

{ XK_Prior, kMCPlatformAcceleratorPageUpKey },

{ XK_Next, kMCPlatformAcceleratorPageDownKey },

{ XK_Scroll_Lock, kMCPlatformAcceleratorScrollLockKey },

{ XK_Pause, kMCPlatformAcceleratorPauseKey },

{ XK_Sys_Req, kMCPlatformAcceleratorSysReqKey },

{ XK_Break, kMCPlatformAcceleratorBreakKey },

};

static bool map_keysym_to_accelerator(KeySym p_keysym, MCPlatformAccelerator& r_accelerator)

{

for(uindex_t i = 0; i < sizeof(s_known_accelerators) / sizeof(s_known_accelerators[0]); i++)

if (s_known_accelerators[i] . keysym == p_keysym)

{

r_accelerator = s_known_accelerators[i] . accelerator;

return true;

}

// COCOA-TODO: Will require some restructuring in the engine menu code to support unicode

// chars. For now, just map ASCII appropriately. Note that we lowercase the ascii char

// this is because if you want a shift modifier you must specify explicitly.

if (p_keysym >= 32 && p_keysym < 127)

{

r_accelerator = MCS_tolower(p_keysym);

return true;

}

return false;

}

class MCMenuBuilderCallback: public IParseMenuCallback

{

MCPlatformMenuRef m_root_menu;

MCStringRef m_menu_title;

MCPlatformMenuRef *m_menus;

uindex_t m_menu_depth;

MCButton *m_button;

public:

MCMenuBuilderCallback(MCButton *p_button, MCStringRef p_menu_title, MCPlatformMenuRef p_root_menu)

{

m_menu_title = MCValueRetain(p_menu_title);

m_root_menu = p_root_menu;

m_menus = nil;

m_menu_depth = 0;

m_button = p_button;

}

~MCMenuBuilderCallback(void)

{

assert(m_menu_depth == 0);

MCMemoryDeleteArray(m_menus);

MCValueRelease(m_menu_title);

}

MCPlatformMenuRef TopMenu(void)

{

return m_menus[m_menu_depth - 1];

}

// This method takes ownership of the menu.

void PushMenu(MCPlatformMenuRef p_menu)

{

/* UNCHECKED */ MCMemoryResizeArray(m_menu_depth + 1, m_menus, m_menu_depth);

m_menus[m_menu_depth - 1] = p_menu;;

}

void PushNewMenu(void)

{

MCPlatformMenuRef t_menu;

MCPlatformCreateMenu(t_menu);

// If we have a menu already, then we have some work to do.

if (m_menu_depth > 0)

{

MCPlatformMenuRef t_top_menu;

t_top_menu = TopMenu();

// Fetch the number of items.

uindex_t t_item_count;

MCPlatformCountMenuItems(t_top_menu, t_item_count);

// If the top-most menu has no items, add an empty one.

if (t_item_count == 0)

{

MCPlatformAddMenuItem(t_top_menu, UINDEX_MAX);

t_item_count += 1;

}

// Set the last item's submenu.

MCPlatformSetMenuItemProperty(t_top_menu, t_item_count - 1, kMCPlatformMenuItemPropertySubmenu, kMCPlatformPropertyTypeMenuRef, &t_menu);

}

// Push the menu on the stack.

PushMenu(t_menu);

}

void PopMenu(void)

{

MCPlatformReleaseMenu(m_menus[m_menu_depth - 1]);

m_menu_depth -= 1;

}

virtual bool Start(void)

{

MCPlatformRetainMenu(m_root_menu);

PushMenu(m_root_menu);

return true;

}

MCPlatformMenuItemAction ComputeAction(MCStringRef p_item_title, MCStringRef p_item_tag)

{

// First check to see if the item tag is known.

for(uindex_t i = 0; i < sizeof(s_known_menu_item_tags) / sizeof(s_known_menu_item_tags[0]); i++)

if (MCStringIsEqualToCString(p_item_tag, s_known_menu_item_tags[i] . tag, kMCStringOptionCompareCaseless))

return s_known_menu_item_tags[i] . action;

if (m_menu_title != nil)

{

// If the menu title is "Edit" and the item title begins with "Preferences"

// then tag with the preferences action.

if (MCStringIsEqualTo(m_menu_title, MCSTR("Edit"), kMCStringOptionCompareCaseless) &&

MCStringBeginsWith(p_item_title, MCSTR("Preferences"), kMCStringOptionCompareCaseless))

return kMCPlatformMenuItemActionPreferences;

// If the menu title is "Help" and the item title begins with "About"

// then tag with the about action.

if (MCStringIsEqualTo(m_menu_title, MCSTR("Help"), kMCStringOptionCompareCaseless) &&

MCStringBeginsWith(p_item_title, MCSTR("About"), kMCStringOptionCompareCaseless))

return kMCPlatformMenuItemActionAbout;

// MW-2014-04-22: [[ Bug 12252 ]] Special-case 'File > Exit' item - mark it as a quit.

// If the menu title is "File" and the item title is "Exit"

// then tag with the quit action.

if (MCStringIsEqualTo(m_menu_title, MCSTR("File"), kMCStringOptionCompareCaseless) &&

MCStringIsEqualTo(p_item_title, MCSTR("Exit"), kMCStringOptionCompareCaseless))

return kMCPlatformMenuItemActionQuit;

}

// There is no known action tied to the given tag.

return kMCPlatformMenuItemActionNone;

}

virtual bool ProcessItem(MCMenuItem *p_menuitem)

{

// Make sure the depth of menus we are at is the same as the menuitem.

while(p_menuitem -> depth > m_menu_depth - 1)

PushNewMenu();

while(p_menuitem -> depth < m_menu_depth - 1)

PopMenu();

MCAutoStringRefAsUTF8String t_utf_title;

if (!t_utf_title . Lock(p_menuitem -> label))

return false;

// SN-2014-08-05: [[ Bug 13103 ]] The item label must be "-" to be a menu separator,

// not only start with '-'

if (MCStringIsEqualToCString(p_menuitem -> label, "-", kMCStringOptionCompareExact))

MCPlatformAddMenuSeparatorItem(TopMenu(), UINDEX_MAX);

else

{

uindex_t t_item_index;

MCPlatformCountMenuItems(TopMenu(), t_item_index);

MCPlatformAddMenuItem(TopMenu(), UINDEX_MAX);

MCPlatformAccelerator t_item_accelerator;

if (p_menuitem -> accelerator &&

map_keysym_to_accelerator(p_menuitem -> accelerator, t_item_accelerator))

{

if ((p_menuitem -> modifiers & MS_SHIFT) != 0)

t_item_accelerator |= kMCPlatformAcceleratorWithShift;

if ((p_menuitem -> modifiers & MS_CONTROL) != 0)

t_item_accelerator |= kMCPlatformAcceleratorWithControl;

if ((p_menuitem -> modifiers & MS_ALT) != 0)

t_item_accelerator |= kMCPlatformAcceleratorWithAlt;

if ((p_menuitem -> modifiers & MS_MOD2) != 0)

t_item_accelerator |= kMCPlatformAcceleratorWithMeta;

uint2 t_key;

if (isascii(p_menuitem -> accelerator))

t_key = MCS_tolower(p_menuitem -> accelerator);

else

t_key = p_menuitem -> accelerator;

MCstacks -> addaccelerator(m_button, m_button -> getstack(), t_key, p_menuitem -> modifiers);

}

else

t_item_accelerator = kMCPlatformAcceleratorNone;

bool t_item_enabled;

t_item_enabled = !p_menuitem -> is_disabled;

MCPlatformMenuItemHighlight t_item_highlight;

if (p_menuitem -> is_hilited)

{

if (p_menuitem -> is_radio)

t_item_highlight = kMCPlatformMenuItemHighlightDiamond;

else

t_item_highlight = kMCPlatformMenuItemHighlightTick;

}

else

{

t_item_highlight = kMCPlatformMenuItemHighlightNone;

}

MCPlatformMenuItemAction t_action;

t_action = ComputeAction(p_menuitem -> label, p_menuitem -> tag);

// MW-2014-04-22: [[ Bug 12252 ]] If the menuitem didn't have a direct tag, map

// special-cased actions to appropriate tag.

MCStringRef t_tag;

// SN-2014-07-29: [[ Bug 12998 ]] We want to check if the has_tag member, not if the menu item

// contains a tag (which is always true)

t_tag = MCValueRetain(p_menuitem -> tag);

if (!p_menuitem -> has_tag)

{

MCAutoStringRef t_replacement;

if (t_action == kMCPlatformMenuItemActionAbout)

/* UNCHECKED */ MCStringCreateWithCString("About", &t_replacement);

else if (t_action == kMCPlatformMenuItemActionQuit)

/* UNCHECKED */ MCStringCreateWithCString("Quit", &t_replacement);

else if (t_action == kMCPlatformMenuItemActionPreferences)

/* UNCHECKED */ MCStringCreateWithCString("Preferences", &t_replacement);

if (*t_replacement != nil)

MCValueAssign(t_tag, *t_replacement);

}

MCPlatformSetMenuItemProperty(TopMenu(), t_item_index, kMCPlatformMenuItemPropertyTitle, kMCPlatformPropertyTypeMCString, &(p_menuitem -> label));

MCPlatformSetMenuItemProperty(TopMenu(), t_item_index, kMCPlatformMenuItemPropertyTag, kMCPlatformPropertyTypeMCString, &t_tag);

MCPlatformSetMenuItemProperty(TopMenu(), t_item_index, kMCPlatformMenuItemPropertyAction, kMCPlatformPropertyTypeMenuItemAction, &t_action);

MCPlatformSetMenuItemProperty(TopMenu(), t_item_index, kMCPlatformMenuItemPropertyAccelerator, kMCPlatformPropertyTypeAccelerator, &t_item_accelerator);

MCPlatformSetMenuItemProperty(TopMenu(), t_item_index, kMCPlatformMenuItemPropertyEnabled, kMCPlatformPropertyTypeBool, &t_item_enabled);

MCPlatformSetMenuItemProperty(TopMenu(), t_item_index, kMCPlatformMenuItemPropertyHighlight, kMCPlatformPropertyTypeMenuItemHighlight, &t_item_highlight);

MCValueRelease(t_tag);

}

return true;

}

virtual bool End(bool p_has_tags)

{

while(m_menu_depth > 0)

PopMenu();

return true;

}

};

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

static MCStringRef s_popup_menupick = nil;

static int2 s_popup_menuitem = 0;

void MCButton::macopenmenu(void)

{

if (m_system_menu == nil)

return;

MCRectangle trect;

int4 tmenux,tmenuy;

tmenux = tmenuy = 0;

switch (menumode)

{

case WM_COMBO:

case WM_OPTION:

trect = MCU_recttoroot(getstack(), rect);

tmenux = trect.x;

tmenuy = trect.y;

break;

case WM_PULLDOWN:

trect = MCU_recttoroot(getstack(), rect);

tmenux = trect.x;

tmenuy = trect.y+trect.height + 1;

break;

case WM_CASCADE:

trect = MCU_recttoroot(getstack(), rect);

tmenux = trect.x + trect.width + 1;

tmenuy = trect.y;

break;

case WM_POPUP:

default:

trect.x = MCmousex + 1;

trect.y = MCmousey + 1;

trect = MCU_recttoroot(MCmousestackptr, trect);

tmenux = trect.x;

tmenuy = trect.y;

break;

}

switch (menumode)

{

case WM_COMBO:

case WM_OPTION:

// MW-2014-07-29: [[ Bug 12990 ]] If menuhistory is not set, then make sure we don't highlight

// an item (Platform layer indices start at 0, so map no item to UINDEX_MAX).

if (MCPlatformPopUpMenu(m_system_menu, MCmousestackptr -> getwindow(), MCPointMake(tmenux, tmenuy), menuhistory == 0 ? UINDEX_MAX : menuhistory - 1))

{

setmenuhistoryprop(s_popup_menuitem + 1);

MCAutoStringRef t_label;

MCPlatformGetMenuItemProperty(m_system_menu, s_popup_menuitem, kMCPlatformMenuItemPropertyTitle, kMCPlatformPropertyTypeMCString, &(&t_label));

MCValueAssign(label, *t_label);

flags |= F_LABEL;

// SN-2014-08-25: [[ Bug 13240 ]] We need to keep the actual popup_menustring,

// in case some menus are nested

MCStringRef t_menupick;

if (s_popup_menupick != NULL)

{

t_menupick = s_popup_menupick;

s_popup_menupick = nil;

}

else

{

// SN-2015-10-05: [[ Bug 16069 ]] s_popup_menupick remains

// NULL if a menu is closed by clicking outside of it

t_menupick = MCValueRetain(kMCEmptyString);

}

Exec_stat es = handlemenupick(t_menupick, nil);

MCValueRelease(t_menupick);

if (es == ES_NOT_HANDLED || es == ES_PASS)

message_with_args(MCM_mouse_up, menubutton);

}

else

message_with_args(MCM_mouse_release, menubutton);

state &= ~(CS_MFOCUSED | CS_ARMED | CS_HILITED);

layer_redrawall();

break;

case WM_PULLDOWN:

case WM_CASCADE:

case WM_POPUP:

// MW-2014-07-29: [[ Bug 12990 ]] Popups always popup without an item selected.

if (MCPlatformPopUpMenu(m_system_menu, MCmousestackptr -> getwindow(), MCPointMake(tmenux, tmenuy), UINDEX_MAX))

{

setmenuhistoryprop(s_popup_menuitem + 1);

// SN-2014-08-25: [[ Bug 13240 ]] We need to keep the actual popup_menustring,

// in case some menus are nested

MCStringRef t_menupick;

if (s_popup_menupick != NULL)

{

t_menupick = s_popup_menupick;

s_popup_menupick = nil;

}

else

{

// SN-2015-10-05: [[ Bug 16069 ]] s_popup_menupick remains

// NULL if a menu is closed by clicking outside of it

t_menupick = MCValueRetain(kMCEmptyString);

}

Exec_stat es = handlemenupick(t_menupick, nil);

MCValueRelease(t_menupick);

if (es == ES_NOT_HANDLED || es == ES_PASS)

message_with_args(MCM_mouse_up, menubutton);

}

state &= ~(CS_MFOCUSED | CS_ARMED | CS_HILITED);

break;

default:

break;

}

if (m_system_menu != nil)

{

MCPlatformReleaseMenu(m_system_menu);

m_system_menu = nil;

}

}

void MCButton::macfreemenu(void)

{

if (m_system_menu != nil)

{

MCPlatformReleaseMenu(m_system_menu);

m_system_menu = nil;

}

}

Bool MCButton::macfindmenu(bool p_just_for_accel)

{

if (m_system_menu != nil || p_just_for_accel)

return True;

MCStringRef t_menu_title;

t_menu_title = getlabeltext();

// Get the menu string.

MCStringRef t_menu_string;

t_menu_string = getmenustring();

MCPlatformCreateMenu(m_system_menu);

MCPlatformSetMenuTitle(m_system_menu, t_menu_title);

// Now build the menu from the spec string.

MCMenuBuilderCallback t_callback(this, t_menu_title, m_system_menu);

MCParseMenuString(t_menu_string, &t_callback, menumode);

return True;

}

void MCButton::getmacmenuitemtextfromaccelerator(MCPlatformMenuRef menu, KeySym key, uint1 mods, MCStringRef &r_string, bool issubmenu)

{

}

bool MCButton::macmenuisopen()

{

return m_system_menu != nil;

}

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

// This structure holds info about each currently set main menu.

struct MCMainMenuInfo

{

MCPlatformMenuRef menu;

MCObjectHandle target;

};

static MCPlatformMenuRef s_menubar = nil;

static MCButtonHandle *s_menubar_targets = nil;

static uindex_t s_menubar_target_count = 0;

static uindex_t s_menubar_lock_count = 0;

static void populate_menubar_menu_from_button(MCPlatformMenuRef p_menubar, uindex_t p_menubar_index, MCPlatformMenuRef p_menu, MCButton *p_menu_button)

{

MCStringRef t_menu_title;

t_menu_title = p_menu_button -> getlabeltext();

// Get the menu string.

MCStringRef t_menu_string;

t_menu_string = p_menu_button -> getmenustring();

// Get the enabled state.

bool t_menu_enabled;

t_menu_enabled = !p_menu_button -> isdisabled();

// Create the menu.

MCPlatformSetMenuTitle(p_menu, t_menu_title);

MCPlatformSetMenuItemProperty(p_menubar, p_menubar_index, kMCPlatformMenuItemPropertyTitle, kMCPlatformPropertyTypeMCString, &t_menu_title);

MCPlatformSetMenuItemProperty(p_menubar, p_menubar_index, kMCPlatformMenuItemPropertyEnabled, kMCPlatformPropertyTypeBool, &t_menu_enabled);

// Now build the menu from the spec string.

MCMenuBuilderCallback t_callback(p_menu_button, t_menu_title, p_menu);

MCParseMenuString(t_menu_string, &t_callback, WM_PULLDOWN);

}

void MCScreenDC::updatemenubar(Boolean force)

{

// Original logic taken from previous port - only update the menubar if

// appropriate.

// If we are inside menuUpdate, we take a different approach.

if (s_menubar_lock_count > 0)

return;

MCGroup *newMenuGroup; //pointer to the menu group

static MCGroup *curMenuGroup = NULL; //current menu bar handle

if (!MCdefaultmenubar) // the menu of first stack opened becomes

MCdefaultmenubar = MCmenubar; // the default menu bar automatically

//get current menu group

if (MCmenubar)

newMenuGroup = MCmenubar;

else

newMenuGroup = MCdefaultmenubar;

//if doesn't need update and not force update then exit

if (newMenuGroup == NULL || (newMenuGroup == curMenuGroup && !force && !curMenuGroup->getstate(CS_NEED_UPDATE)))

return;

// Count the number of menus.

uint2 t_menu_count;

t_menu_count = 0;

newMenuGroup -> count(CT_MENU, NULL, t_menu_count);

// The index of the menu in the menubar.

uindex_t t_menu_index;

t_menu_index = 0;

// We construct the new menubar as we go along.

MCButtonHandle *t_new_menubar_targets;

uindex_t t_new_menubar_target_count;

t_new_menubar_targets = nil;

t_new_menubar_target_count = 0;

// The new menubar menu.

MCPlatformMenuRef t_new_menubar;

MCPlatformCreateMenu(t_new_menubar);

// Loop through and create the menuitems for the main menu. We defer creation

// of the menu itself until it's actually needed.

for(uindex_t t_menu_button_index = 0; t_menu_button_index < t_menu_count; t_menu_button_index++)

{

// Fetch the button representing the menu.

MCButton *t_menu_button;

uint2 t_menu_button_index_i;

t_menu_button_index_i = (uint2)t_menu_button_index;

t_menu_button = (MCButton *)newMenuGroup -> findnum(CT_MENU, t_menu_button_index_i);

if (t_menu_button == NULL)

break;

// Remove any menu shortcuts for the current button.

MCstacks -> deleteaccelerator(t_menu_button, t_menu_button -> getstack());

// Get the menu title.

MCStringRef t_menu_title;

t_menu_title = t_menu_button -> getlabeltext();

// If the menu button is not visible, or has not title then continue.

if (MCStringIsEmpty(t_menu_title) ||

!t_menu_button -> getflag(F_VISIBLE))

continue;

// Create the menu.

MCPlatformMenuRef t_menu;

MCPlatformCreateMenu(t_menu);

// Add a new item to the menubar and configure.

MCPlatformAddMenuItem(t_new_menubar, UINDEX_MAX);

MCPlatformSetMenuItemProperty(t_new_menubar, t_menu_index, kMCPlatformMenuItemPropertySubmenu, kMCPlatformPropertyTypeMenuRef, &t_menu);

// Populate it.

populate_menubar_menu_from_button(t_new_menubar, t_menu_index, t_menu, t_menu_button);

// Setting the submenu of the menu bar will have inc'd the refcount so

// we can release.

MCPlatformReleaseMenu(t_menu);

// Extend the new menubar targets array by one.

/* UNCHECKED */ MCMemoryResizeArrayInit(t_new_menubar_target_count + 1, t_new_menubar_targets, t_new_menubar_target_count);

t_new_menubar_targets[t_menu_index] = t_menu_button->GetHandle();

// Increment the index into the menubar.

t_menu_index++;

}

// Free the existing menubar and release the targets.

if (s_menubar != nil)

{

MCPlatformReleaseMenu(s_menubar);

MCMemoryDeleteArray(s_menubar_targets, s_menubar_target_count);

}

// Update to the new menubar and targets.

s_menubar = t_new_menubar;

s_menubar_targets = t_new_menubar_targets;

s_menubar_target_count = t_new_menubar_target_count;

// Set the menubar.

MCPlatformSetMenubar(s_menubar);

}

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

void MCScreenDC::hidemenu()

{

MCPlatformHideMenubar();

menubarhidden = true ;

// IM-2014-01-24: [[ HiDPI ]] Use refactored method to update display info

cleardisplayinfocache();

}

void MCScreenDC::showmenu()

{

MCPlatformShowMenubar();

menubarhidden = false ;

// IM-2014-01-24: [[ HiDPI ]] Use refactored method to update display info

cleardisplayinfocache();

}

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

struct MenuItemDescriptor

{

MenuItemDescriptor *next;

uint4 depth;

uint4 id;

bool disabled;

bool checked;

const char *name;

uint4 name_length;

const char *tag;

uint4 tag_length;

MenuItemDescriptor *submenu;

};

static void flatten_menu(MenuItemDescriptor *p_menu)

{

MenuItemDescriptor *t_item;

t_item = p_menu;

while(t_item != NULL)

{

if (t_item -> next != NULL && t_item -> next -> depth > t_item -> depth)

{

MenuItemDescriptor *t_first_subitem, *t_last_subitem;

t_first_subitem = t_item -> next;

for(t_last_subitem = t_first_subitem; t_last_subitem -> next != NULL && t_last_subitem -> next -> depth >= t_first_subitem -> depth; t_last_subitem = t_last_subitem -> next)

;

t_item -> submenu = t_first_subitem;

t_item -> next = t_last_subitem -> next;

t_last_subitem -> next = NULL;

flatten_menu(t_item -> submenu);

}

t_item = t_item -> next;

}

}

static MCPlatformMenuRef create_menu(MCPlatformMenuRef p_menu, MenuItemDescriptor *p_items)

{

MCPlatformMenuRef t_menu;

if (p_menu == nil)

MCPlatformCreateMenu(t_menu);

else

t_menu = p_menu;

uindex_t t_index;

t_index = 0;

for(MenuItemDescriptor *t_item = p_items; t_item != nil; t_item = t_item -> next)

{

if (t_item -> name_length == 1 && t_item -> name[0] == '-')

MCPlatformAddMenuSeparatorItem(t_menu, t_index);

else

{

MCPlatformAddMenuItem(t_menu, t_index);

MCStringRef t_title, t_tag;

MCStringCreateWithBytes((byte_t*)t_item -> name, t_item -> name_length, kMCStringEncodingNative, false, t_title);

if (t_item -> tag_length != 0)

MCStringCreateWithBytes((byte_t*)t_item -> tag, t_item -> tag_length, kMCStringEncodingNative, false, t_tag);

else

t_tag = MCValueRetain(t_title);

bool t_enabled;

t_enabled = !t_item -> disabled;

MCPlatformSetMenuItemProperty(t_menu, t_index, kMCPlatformMenuItemPropertyTitle, kMCPlatformPropertyTypeMCString, &t_title);

MCPlatformSetMenuItemProperty(t_menu, t_index, kMCPlatformMenuItemPropertyTag, kMCPlatformPropertyTypeMCString, &t_tag);

MCPlatformSetMenuItemProperty(t_menu, t_index, kMCPlatformMenuItemPropertyEnabled, kMCPlatformPropertyTypeBool, &t_enabled);

if (t_item -> submenu != nil)

{

MCPlatformMenuRef t_submenu;

t_submenu = create_menu(nil, t_item -> submenu);

MCPlatformSetMenuItemProperty(t_menu, t_index, kMCPlatformMenuItemPropertySubmenu, kMCPlatformPropertyTypeMenuRef, &t_submenu);

MCPlatformReleaseMenu(t_submenu);

}

MCValueRelease(t_title);

MCValueRelease(t_tag);

}

t_index++;

}

return t_menu;

}

static void free_menu(MenuItemDescriptor *p_items)

{

while(p_items != nil)

{

if (p_items -> submenu != nil)

free_menu(p_items -> submenu);

MenuItemDescriptor *t_next;

t_next = p_items -> next;

free(p_items);

p_items = t_next;

}

}

void MCScreenDC::seticonmenu(MCStringRef p_menu)

{

MenuItemDescriptor *t_items, *t_current_item;

uint4 t_id;

const char *t_menu;

const char *t_menu_ptr;

MCAutoStringRefAsUTF8String temp;

/* UNCHECKED */ temp . Lock(p_menu);

t_menu = strclone(*temp);

t_menu_ptr = t_menu;

t_items = NULL;

t_current_item = NULL;

t_id = 65536;

if (t_menu != NULL)

while(*t_menu != '\0')

{

const char *t_item_start, *t_item_end, *t_item_middle;

t_item_start = t_menu;

t_item_end = strchr(t_item_start, '\n');

if (t_item_end == NULL)

t_item_end = strchr(t_item_start, '\0');

t_item_middle = strchr(t_item_start, '|');

if (t_item_middle > t_item_end)

t_item_middle = NULL;

for(; *t_item_start == '\t'; ++t_item_start)

;

MenuItemDescriptor *t_item;

t_item = new (nothrow) MenuItemDescriptor;

if (t_item == NULL)

break;

if (t_current_item == NULL)

t_items = t_item, t_current_item = t_items;

else

t_current_item -> next = t_item, t_current_item = t_item;

t_item -> next = NULL;

if (*t_item_start == '(')

t_item_start++, t_menu++, t_item -> disabled = true;

else

t_item -> disabled = false;

t_item -> name = t_item_start;

if (t_item_middle == NULL)

{

t_item -> name_length = t_item_end - t_item_start;

t_item -> tag = NULL;

t_item -> tag_length = 0;

}

else

{

t_item -> name_length = t_item_middle - t_item_start;

t_item -> tag = t_item_middle + 1;

t_item -> tag_length = t_item_end - t_item_middle - 1;

}

t_item -> depth = t_item_start - t_menu;

t_item -> submenu = NULL;

t_item -> id = t_id++;

if (*t_item_end == '\0')

t_menu = t_item_end;

else

t_menu = t_item_end + 1;

}

if (t_items != NULL)

flatten_menu(t_items);

MCPlatformRemoveAllMenuItems(icon_menu);

create_menu(icon_menu, t_items);

delete[] t_menu_ptr;

free_menu(t_items);

}

bool MCScreenDC::isiconmenu(MCPlatformMenuRef menu)

{

return menu == icon_menu;

}

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

void MCPlatformHandleMenuUpdate(MCPlatformMenuRef p_menu)

{

// If the menu is the icon menu, send an 'iconMenuOpening' message.

if (((MCScreenDC *)MCscreen) -> isiconmenu(p_menu))

{

if (MCdefaultstackptr)

MCdefaultstackptr -> getcard() -> message(MCM_icon_menu_opening);

return;

}

// IM-2014-07-23: [[ Bug 12897 ]] If there is no menubar then we don't need to go any further

if (s_menubar == nil)

return;

// We get MenuUpdate callbacks for all menus before they open, however at

// the moment we are only interested in ones directly in the menubar. So

// fetch the menu's parent and see what it is.

MCPlatformMenuRef t_parent_menu;

uindex_t t_parent_menu_index;

MCPlatformGetMenuParent(p_menu, t_parent_menu, t_parent_menu_index);

// SN-2014-11-10: [[ Bug 13836 ]] We can also be the menubar's LiveCode item - in which case an

// update is allowed as well

bool t_update_menubar;

t_update_menubar = p_menu == s_menubar;

// If the parent menu is not the menubar, we aren't interested.

if (t_parent_menu != s_menubar && !t_update_menubar)

return;

// If the button it is 'attached' to still exists, dispatch the menu update

// message (currently mouseDown("")). We do this whilst the menubar is locked

// from updates as we mustn't fiddle about with it too much in this case!

if (t_update_menubar || s_menubar_targets[t_parent_menu_index].IsValid())

{

// MW-2014-06-10: [[ Bug 12590 ]] Make sure we lock screen around the menu update message.

MCRedrawLockScreen();

s_menubar_lock_count += 1;

// SN-2014-11-06: [[ Bug 13836 ]] MCmenubar (or MCdefaultmenubar) should get mouseDown, not the target (it gets menuPick)

if (MCmenubar)

MCmenubar -> message_with_valueref_args(MCM_mouse_down, MCSTR("1"));

else if (MCdefaultmenubar)

MCdefaultmenubar -> message_with_valueref_args(MCM_mouse_down, MCSTR("1"));

s_menubar_lock_count -= 1;

MCRedrawUnlockScreen();

}

// We only send one message - to the group - to rebuild the menus. Therefore,

// after this is done we must rebuild all menubar menus at once.

if (!t_update_menubar)

{

uindex_t t_count;

MCPlatformCountMenuItems(s_menubar, t_count);

for(uindex_t i = 0; i < t_count; i++)

{

MCPlatformMenuRef t_menu;

MCPlatformGetMenuItemProperty(s_menubar, i, kMCPlatformMenuItemPropertySubmenu, kMCPlatformPropertyTypeMenuRef, &t_menu);

// Always remove all items - we can't delete the menu if the button has

// been deleted as it might be referenced by Cocoa still.

MCPlatformRemoveAllMenuItems(t_menu);

// Only rebuild the menu if the button still exists.

if (s_menubar_targets[i].IsValid())

{

MCButton *t_button = s_menubar_targets[i];

MCstacks -> deleteaccelerator(t_button, t_button -> getstack());

populate_menubar_menu_from_button(s_menubar, i, t_menu, t_button);

}

}

}

}

void MCPlatformHandleMenuSelect(MCPlatformMenuRef p_menu, uindex_t p_item_index)

{

// We will get MenuSelect callbacks for all menus. We must build the pick

// string for all menus in the chain not including the top-level menu. Then

// we can use the top-level menu to determine where to send the pick.

// Use a temporary ep to accumulate the result.

MCAutoStringRef t_result;

/* UNCHECKED */ MCStringCreateMutable(0, &t_result);

// Keep track of the current (menu / item) pair we are working on.

MCPlatformMenuRef t_current_menu, t_last_menu;

uindex_t t_current_menu_index, t_last_menu_index;

t_current_menu = p_menu;

t_current_menu_index = p_item_index;

while(t_current_menu != nil)

{

// If the current menu is the menubar, then we are done.

if (t_current_menu == s_menubar)

break;

// Fetch the tag of menu item.

MCAutoStringRef t_item_tag;

MCPlatformGetMenuItemProperty(t_current_menu, t_current_menu_index, kMCPlatformMenuItemPropertyTag, kMCPlatformPropertyTypeMCString, &(&t_item_tag));

// If the ep is not empty, then prepend "|"

if (!MCStringIsEmpty(*t_result))

/* UNCHECKED */ MCStringPrependNativeChar(*t_result, '|');

// Now insert the tag.

/* UNCHECKED */ MCStringPrepend(*t_result, *t_item_tag);

// Store the last menu index.

t_last_menu = t_current_menu;