/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */

/*

 * This file is part of the LibreOffice project.

 *

 * This Source Code Form is subject to the terms of the Mozilla Public

 * License, v. 2.0. If a copy of the MPL was not distributed with this

 * file, You can obtain one at http://mozilla.org/MPL/2.0/.

 *

 * This file incorporates work covered by the following license notice:

 *

 *   Licensed to the Apache Software Foundation (ASF) under one or more

 *   contributor license agreements. See the NOTICE file distributed

 *   with this work for additional information regarding copyright

 *   ownership. The ASF licenses this file to you under the Apache

 *   License, Version 2.0 (the "License"); you may not use this file

 *   except in compliance with the License. You may obtain a copy of

 *   the License at http://www.apache.org/licenses/LICENSE-2.0 .

 */

#include <scitems.hxx>

#include <sfx2/dispatch.hxx>

#include <svl/numformat.hxx>

#include <vcl/svapp.hxx>

#include <vcl/weld/weld.hxx>

#include <uiitems.hxx>

#include <reffact.hxx>

#include <document.hxx>

#include <globstr.hrc>

#include <scresid.hxx>

#include <sc.hrc>

#include <solvrdlg.hxx>

ScSolverDlg::ScSolverDlg( SfxBindings* pB, SfxChildWindow* pCW, weld::Window* pParent,

                          ScDocument* pDocument,

                          const ScAddress& aCursorPos )

    : ScAnyRefDlgController(pB, pCW, pParent, u"modules/scalc/ui/goalseekdlg.ui"_ustr, u"GoalSeekDialog"_ustr)

    , theFormulaCell(aCursorPos)

    , theVariableCell(aCursorPos)

    , pDoc(pDocument)

    , nCurTab(aCursorPos.Tab())

    , bDlgLostFocus(false)

    , errMsgInvalidVar(ScResId(STR_INVALIDVAR))

    , errMsgInvalidForm(ScResId(STR_INVALIDFORM))

    , errMsgNoFormula(ScResId(STR_NOFORMULA))

    , errMsgInvalidVal(ScResId(STR_INVALIDVAL))

    , m_pEdActive(nullptr)

    , m_xFtFormulaCell(m_xBuilder->weld_label(u"formulatext"_ustr))

    , m_xEdFormulaCell(new formula::RefEdit(m_xBuilder->weld_entry(u"formulaedit"_ustr)))

    , m_xRBFormulaCell(new formula::RefButton(m_xBuilder->weld_button(u"formulabutton"_ustr)))

    , m_xEdTargetVal(m_xBuilder->weld_entry(u"target"_ustr))

    , m_xFtVariableCell(m_xBuilder->weld_label(u"vartext"_ustr))

    , m_xEdVariableCell(new formula::RefEdit(m_xBuilder->weld_entry(u"varedit"_ustr)))

    , m_xRBVariableCell(new formula::RefButton(m_xBuilder->weld_button(u"varbutton"_ustr)))

    , m_xBtnOk(m_xBuilder->weld_button(u"ok"_ustr))

    , m_xBtnCancel(m_xBuilder->weld_button(u"cancel"_ustr))

{

    m_xEdFormulaCell->SetReferences(this, m_xFtFormulaCell.get());

    m_xRBFormulaCell->SetReferences(this, m_xEdFormulaCell.get());

    m_xEdVariableCell->SetReferences(this, m_xFtVariableCell.get());

    m_xRBVariableCell->SetReferences(this, m_xEdVariableCell.get());

    Init();

}

ScSolverDlg::~ScSolverDlg()

{

    if (m_xMessageBox)

        m_xMessageBox->response(RET_CANCEL);

    assert(!m_xMessageBox);

}

void ScSolverDlg::Init()

{

    m_xBtnOk->connect_clicked( LINK( this, ScSolverDlg, BtnHdl ) );

    m_xBtnCancel->connect_clicked( LINK( this, ScSolverDlg, BtnHdl ) );

    Link<formula::RefEdit&,void> aEditLink = LINK( this, ScSolverDlg, GetEditFocusHdl );

    m_xEdFormulaCell->SetGetFocusHdl( aEditLink );

    m_xEdVariableCell->SetGetFocusHdl( aEditLink );

    Link<formula::RefButton&,void> aButtonLink = LINK( this, ScSolverDlg, GetButtonFocusHdl );

    m_xRBFormulaCell->SetGetFocusHdl( aButtonLink );

    m_xRBVariableCell->SetGetFocusHdl( aButtonLink );

    m_xEdTargetVal->connect_focus_in(LINK(this, ScSolverDlg, GetFocusHdl));

    aEditLink = LINK( this, ScSolverDlg, LoseEditFocusHdl );

    m_xEdFormulaCell->SetLoseFocusHdl ( aEditLink );

    m_xEdVariableCell->SetLoseFocusHdl ( aEditLink );

    aButtonLink = LINK( this, ScSolverDlg, LoseButtonFocusHdl );

    m_xRBFormulaCell->SetLoseFocusHdl ( aButtonLink );

    m_xRBVariableCell->SetLoseFocusHdl ( aButtonLink );

    OUString aStr(theFormulaCell.Format(ScRefFlags::ADDR_ABS, nullptr, pDoc->GetAddressConvention()));

    // If Goal Seek settings are stored in the document, restore them

    const ScGoalSeekSettings& rSettings = pDoc->GetGoalSeekSettings();

    if (rSettings.bDefined)

    {

        OUString sFormulaString(rSettings.aFormulaCell.Format(ScRefFlags::ADDR_ABS, nullptr, pDoc->GetAddressConvention()));

        OUString sVariableString(rSettings.aVariableCell.Format(ScRefFlags::ADDR_ABS, nullptr, pDoc->GetAddressConvention()));

        m_xEdFormulaCell->SetText(sFormulaString);

        m_xEdVariableCell->SetText(sVariableString);

        m_xEdTargetVal->set_text(rSettings.sTargetValue);

    }

    else

    {

        m_xEdFormulaCell->SetText( aStr );

    }

    m_xEdFormulaCell->GrabFocus();

    m_pEdActive = m_xEdFormulaCell.get();

}

void ScSolverDlg::Close()

{

    DoClose( ScSolverDlgWrapper::GetChildWindowId() );

}

void ScSolverDlg::SetActive()

{

    if ( bDlgLostFocus )

    {

        bDlgLostFocus = false;

        if( m_pEdActive )

            m_pEdActive->GrabFocus();

    }

    else

    {

        m_xDialog->grab_focus();

    }

    RefInputDone();

}

void ScSolverDlg::SetReference( const ScRange& rRef, ScDocument& rDocP )

{

    if( !m_pEdActive )

        return;

    if ( rRef.aStart != rRef.aEnd )

        RefInputStart(m_pEdActive);

    ScAddress   aAdr = rRef.aStart;

    ScRefFlags      nFmt = ( aAdr.Tab() == nCurTab )

                            ? ScRefFlags::ADDR_ABS

                            : ScRefFlags::ADDR_ABS_3D;

    OUString aStr(aAdr.Format(nFmt, &rDocP, rDocP.GetAddressConvention()));

    m_pEdActive->SetRefString( aStr );

    if (m_pEdActive == m_xEdFormulaCell.get())

        theFormulaCell = aAdr;

    else if (m_pEdActive == m_xEdVariableCell.get())

        theVariableCell = aAdr;

}

void ScSolverDlg::RaiseError( ScSolverErr eError )

{

    OUString sMessage;

    switch (eError)

    {

        case SOLVERR_NOFORMULA:

            sMessage = errMsgNoFormula;

            break;

        case SOLVERR_INVALID_FORMULA:

            sMessage = errMsgInvalidForm;

            break;

        case SOLVERR_INVALID_VARIABLE:

            sMessage = errMsgInvalidVar;

            break;

        case SOLVERR_INVALID_TARGETVALUE:

            sMessage = errMsgInvalidVal;

            break;

    }

    m_xMessageBox.reset(Application::CreateMessageDialog(m_xDialog.get(),

                                                         VclMessageType::Warning, VclButtonsType::Ok,

                                                         sMessage));

    m_xMessageBox->runAsync(m_xMessageBox, [this](sal_Int32 /*nResult*/) {

        m_xEdTargetVal->grab_focus();

        m_xMessageBox.reset();

    });

}

bool ScSolverDlg::IsRefInputMode() const

{

    return m_pEdActive != nullptr;

}

bool ScSolverDlg::CheckTargetValue( const OUString& rStrVal )

{

    sal_uInt32 n1 = 0;

    double n2;

    return pDoc->GetFormatTable()->IsNumberFormat( rStrVal, n1, n2 );

}

// Handler:

IMPL_LINK(ScSolverDlg, BtnHdl, weld::Button&, rBtn, void)

{

    if (&rBtn == m_xBtnOk.get())

    {

        theTargetValStr = m_xEdTargetVal->get_text();

        // The following code checks:

        // 1. do the strings contain correct references / defined names?

        // 2. does the formula coordinate refer to a cell containing a formula?

        // 3. has a valid target value been entered?

        const formula::FormulaGrammar::AddressConvention eConv = pDoc->GetAddressConvention();

        ScRefFlags  nRes1 = theFormulaCell .Parse( m_xEdFormulaCell->GetText(),  *pDoc, eConv );

        ScRefFlags  nRes2 = theVariableCell.Parse( m_xEdVariableCell->GetText(), *pDoc, eConv );

        // Remember Goal Seek settings for the next time the dialog opens

        ScGoalSeekSettings aSettings;

        aSettings.bDefined = true;

        aSettings.aFormulaCell = theFormulaCell;

        aSettings.aVariableCell = theVariableCell;

        aSettings.sTargetValue = theTargetValStr;

        pDoc->SetGoalSeekSettings(aSettings);

        if ( (nRes1 & ScRefFlags::VALID) == ScRefFlags::VALID )

        {

            if ( (nRes2 & ScRefFlags::VALID) == ScRefFlags::VALID )

            {

                if ( CheckTargetValue( theTargetValStr ) )

                {

                    CellType eType = pDoc->GetCellType( theFormulaCell.Col(),

                                                        theFormulaCell.Row(),

                                                        theFormulaCell.Tab());

                    if ( CELLTYPE_FORMULA  == eType )

                    {

                        ScSolveParam aOutParam( theFormulaCell,

                                                theVariableCell,

                                                theTargetValStr );

                        ScSolveItem  aOutItem( SCITEM_SOLVEDATA, &aOutParam );

                        SetDispatcherLock( false );

                        SwitchToDocument();

                        GetBindings().GetDispatcher()->ExecuteList(SID_SOLVE,

                                                  SfxCallMode::SLOT | SfxCallMode::RECORD,

                                                  { &aOutItem });

                        response(RET_OK);

                    }

                    else RaiseError( SOLVERR_NOFORMULA );

                }

                else RaiseError( SOLVERR_INVALID_TARGETVALUE );

            }

            else RaiseError( SOLVERR_INVALID_VARIABLE );

        }

        else RaiseError( SOLVERR_INVALID_FORMULA );

    }

    else if (&rBtn == m_xBtnCancel.get())

    {

        response(RET_CANCEL);

    }

}

IMPL_LINK(ScSolverDlg, GetEditFocusHdl, formula::RefEdit&, rCtrl, void)

{

    if (&rCtrl == m_xEdFormulaCell.get())

        m_pEdActive = m_xEdFormulaCell.get();

    else if (&rCtrl == m_xEdVariableCell.get())

        m_pEdActive = m_xEdVariableCell.get();

    if (m_pEdActive)

        m_pEdActive->SelectAll();

}

IMPL_LINK_NOARG(ScSolverDlg, GetFocusHdl, weld::Widget&, void)

{

    m_pEdActive = nullptr;

    m_xEdTargetVal->select_region(0, -1);

}

IMPL_LINK(ScSolverDlg, GetButtonFocusHdl, formula::RefButton&, rCtrl, void)

{

    if (&rCtrl == m_xRBFormulaCell.get())

        m_pEdActive = m_xEdFormulaCell.get();

    else if (&rCtrl == m_xRBVariableCell.get())

        m_pEdActive = m_xEdVariableCell.get();

    if (m_pEdActive)

        m_pEdActive->SelectAll();

}

IMPL_LINK_NOARG(ScSolverDlg, LoseEditFocusHdl, formula::RefEdit&, void)

{

    bDlgLostFocus = !m_xDialog->has_toplevel_focus();

}

IMPL_LINK_NOARG(ScSolverDlg, LoseButtonFocusHdl, formula::RefButton&, void)

{

    bDlgLostFocus = !m_xDialog->has_toplevel_focus();

}

/* vim:set shiftwidth=4 softtabstop=4 expandtab: */