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

#include "exec.h"

#include "stack.h"

#include "ans.h"

#include "variable.h"

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

// MW-2014-06-25: [[ Bug 12686 ]] Make sure we first try the defaultStack, then

// the topStack.

static MCPlatformWindowRef compute_sheet_owner(unsigned int p_options)

{

if ((p_options & MCA_OPTION_SHEET) == 0)

return nil;

MCPlatformWindowRef t_window;

t_window = MCdefaultstackptr -> getwindow();

if (t_window != nil && MCPlatformIsWindowVisible(t_window))

return t_window;

t_window = MCtopstackptr -> getwindow();

if (t_window != nil && MCPlatformIsWindowVisible(t_window))

return t_window;

return nil;

}

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

// MM-2012-02-13: Updated to use Cocoa APIs. Code mostly cribbed from plugin dialog stuff

int MCA_folder(MCStringRef p_title, MCStringRef p_prompt, MCStringRef p_initial, unsigned int p_options, MCStringRef &r_value, MCStringRef &r_result)

{

MCPlatformWindowRef t_owner;

t_owner = compute_sheet_owner(p_options);

MCPlatformBeginFolderOrFileDialog(kMCPlatformFileDialogKindFolder, t_owner, p_title, p_prompt, p_initial);

MCPlatformDialogResult t_result;

MCAutoStringRef t_folder;

for(;;)

{

t_result = MCPlatformEndFolderDialog(&t_folder);

if (t_result != kMCPlatformDialogResultContinue)

break;

MCscreen -> wait(REFRESH_INTERVAL, True, True);

}

if (t_result == kMCPlatformDialogResultSuccess)

r_value = MCValueRetain(*t_folder);

return 0;

}

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

static bool filter_to_type_list(MCStringRef p_filter, MCStringRef *&r_types, uint32_t &r_type_count)

{

bool t_success;

t_success = true;

if (t_success)

t_success = p_filter != nil;

uint32_t t_filter_length;

if (t_success)

{

t_filter_length = MCStringGetLength(p_filter);

t_success = t_filter_length >= 4;

}

if (!t_success)

{

r_type_count = 0;

return true;

}

MCStringRef t_types;

if (t_success)

t_success = MCStringCreateMutable(0, t_types);

if (t_success)

t_success = MCStringAppendFormat(t_types, "||", strlen("||"));

if (t_success)

{

uint32_t t_current_pos;

t_current_pos = 0;

for (uint32_t i = 0; t_success && i < t_filter_length / 4; i++)

{

if (i > 0)

t_success = MCStringAppendNativeChar(t_types, ',');

if (t_success)

{

t_success = MCStringAppendSubstring(t_types, p_filter, MCRangeMake(t_current_pos, 4));

t_current_pos += 4;

}

}

}

if (t_success)

t_success = MCMemoryNewArray(1, r_types);

if (t_success)

{

r_types[0] = t_types;

r_type_count = 1;

}

else

{

r_type_count = 0;

MCValueRelease(t_types);

}

return t_success;

}

int MCA_file(MCStringRef p_title, MCStringRef p_prompt, MCStringRef p_filter, MCStringRef p_initial, unsigned int p_options, MCStringRef &r_value, MCStringRef &r_result)

{

MCAutoStringRefArray t_types;

filter_to_type_list(p_filter, t_types.PtrRef(), t_types.CountRef());

MCPlatformWindowRef t_owner;

t_owner = compute_sheet_owner(p_options);

MCPlatformFileDialogKind t_kind;

if ((p_options & MCA_OPTION_PLURAL) != 0)

t_kind = kMCPlatformFileDialogKindOpenMultiple;

else

t_kind = kMCPlatformFileDialogKindOpen;

MCPlatformBeginFolderOrFileDialog(t_kind, t_owner, p_title, p_prompt, p_initial, *t_types, t_types . Count());

MCPlatformDialogResult t_result;

MCAutoStringRef t_file, t_type;

for(;;)

{

MCValueRelease(*t_file);

MCValueRelease(*t_type);

t_result = MCPlatformEndFileDialog(t_kind, &t_file, &t_type);

if (t_result != kMCPlatformDialogResultContinue)

break;

MCscreen -> wait(REFRESH_INTERVAL, True, True);

}

if (t_result == kMCPlatformDialogResultSuccess)

r_value = MCValueRetain(*t_file);

return 0;

}

int MCA_file_with_types(MCStringRef p_title, MCStringRef p_prompt, MCStringRef *p_types, uint4 p_type_count, MCStringRef p_initial, unsigned int p_options, MCStringRef &r_value, MCStringRef &r_result)

{

MCPlatformWindowRef t_owner;

t_owner = compute_sheet_owner(p_options);

MCPlatformFileDialogKind t_kind;

if ((p_options & MCA_OPTION_PLURAL) != 0)

t_kind = kMCPlatformFileDialogKindOpenMultiple;

else

t_kind = kMCPlatformFileDialogKindOpen;

MCPlatformBeginFolderOrFileDialog(t_kind, t_owner, p_title, p_prompt, p_initial, p_types, p_type_count);

MCPlatformDialogResult t_result;

MCAutoStringRef t_file, t_type;

for(;;)

{

MCValueRelease(*t_file);

MCValueRelease(*t_type);

t_result = MCPlatformEndFileDialog(t_kind, &t_file, &t_type);

if (t_result != kMCPlatformDialogResultContinue)

break;

MCscreen -> wait(REFRESH_INTERVAL, True, True);

}

if (t_result == kMCPlatformDialogResultSuccess)

{

r_value = MCValueRetain(*t_file);

if (*t_type != nil)

r_result = MCValueRetain(*t_type);

}

return 0;

}

int MCA_ask_file(MCStringRef p_title, MCStringRef p_prompt, MCStringRef p_filter, MCStringRef p_initial, unsigned int p_options, MCStringRef &r_value, MCStringRef &r_result)

{

MCAutoStringRefArray t_types;

filter_to_type_list(p_filter, t_types.PtrRef(), t_types.CountRef());

MCPlatformWindowRef t_owner;

t_owner = compute_sheet_owner(p_options);

MCPlatformBeginFolderOrFileDialog(kMCPlatformFileDialogKindSave, t_owner, p_title, p_prompt, p_initial, *t_types, t_types . Count());

MCPlatformDialogResult t_result;

MCAutoStringRef t_file, t_type;

for(;;)

{

MCValueRelease(*t_file);

MCValueRelease(*t_type);

t_result = MCPlatformEndFileDialog(kMCPlatformFileDialogKindSave, &t_file, &t_type);

if (t_result != kMCPlatformDialogResultContinue)

break;

MCscreen -> wait(REFRESH_INTERVAL, True, True);

}

if (t_result == kMCPlatformDialogResultSuccess)

r_value = MCValueRetain(*t_file);

return 0;

}

int MCA_ask_file_with_types(MCStringRef p_title, MCStringRef p_prompt, MCStringRef *p_types, uint4 p_type_count, MCStringRef p_initial, unsigned int p_options, MCStringRef &r_value, MCStringRef &r_result)

{

MCPlatformWindowRef t_owner;

t_owner = compute_sheet_owner(p_options);

MCPlatformBeginFolderOrFileDialog(kMCPlatformFileDialogKindSave, t_owner, p_title, p_prompt, p_initial, p_types, p_type_count);

MCPlatformDialogResult t_result;

MCAutoStringRef t_file, t_type;

for(;;)

{

MCValueRelease(*t_file);

MCValueRelease(*t_type);

t_result = MCPlatformEndFileDialog(kMCPlatformFileDialogKindSave, &t_file, &t_type);

if (t_result != kMCPlatformDialogResultContinue)

break;

MCscreen -> wait(REFRESH_INTERVAL, True, True);

}

if (t_result == kMCPlatformDialogResultSuccess)

{

r_value = MCValueRetain(*t_file);

// SN-2014-10-31: [[ Bug 13893 ]] MCPlatformEndFileDialog might return a nil value

if (*t_type != nil)

r_result = MCValueRetain(*t_type);

else

r_result = nil;

}

return 0;

}

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

bool MCA_color(MCStringRef p_title, MCColor p_initial, bool as_sheet, bool& r_chosen, MCColor& r_chosen_color)

{

MCPlatformBeginColorDialog(p_title, p_initial);

MCPlatformDialogResult t_result;

MCColor t_new_color;

for(;;)

{

t_result = MCPlatformEndColorDialog(t_new_color);

if (t_result != kMCPlatformDialogResultContinue)

break;

MCscreen -> wait(REFRESH_INTERVAL, True, True);

}

if (t_result == kMCPlatformDialogResultSuccess)

{

r_chosen_color = t_new_color;

r_chosen = true;

MCresult->clear(False);

}

else

{

MCresult->sets(MCcancelstring);

r_chosen = false;

}

// SN-2014-07-23: [[ Bug 12901 ]] Object colors not selectable in inspector

// A bool is expected from MCS_color, not an int defaulting to 0.

return true;

}

// MERG-2013-08-18: Stubs for colorDialogColors. Possibly implement when color dialog moves to Cocoa

void MCA_getcolordialogcolors(MCColor*& r_list, uindex_t& r_count)

{

r_count = 0;

}

void MCA_setcolordialogcolors(MCColor* p_list, uindex_t p_count)

{

}

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