/* -*- 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 <com/sun/star/embed/NoVisualAreaSizeException.hpp>

#include <com/sun/star/embed/Aspects.hpp>

#include <com/sun/star/embed/XEmbeddedObject.hpp>

#include <com/sun/star/beans/XPropertySet.hpp>

#include <com/sun/star/uno/XComponentContext.hpp>

#include <toolkit/helper/vclunohelper.hxx>

#include <sot/exchange.hxx>

#include <svl/globalnameitem.hxx>

#include <sfx2/viewfrm.hxx>

#include <svl/stritem.hxx>

#include <svx/svdoole2.hxx>

#include <unotools/moduleoptions.hxx>

#include <svtools/insdlg.hxx>

#include <svtools/embedhlp.hxx>

#include <svtools/strings.hrc>

#include <svtools/svtresid.hxx>

#include <svx/svxdlg.hxx>

#include <comphelper/classids.hxx>

#include <svx/svdpagv.hxx>

#include <svx/svdpage.hxx>

#include <svx/svdundo.hxx>

#include <sfx2/msgpool.hxx>

#include <sfx2/msg.hxx>

#include <scmod.hxx>

#include <sal/log.hxx>

#include <comphelper/diagnose_ex.hxx>

#include <vcl/svapp.hxx>

#include <vcl/weld/MessageDialog.hxx>

#include <vcl/weld/weldutils.hxx>

#include <comphelper/lok.hxx>

#include <comphelper/storagehelper.hxx>

#include <comphelper/propertysequence.hxx>

#include <com/sun/star/embed/EmbedVerbs.hpp>

#include <com/sun/star/beans/PropertyValue.hpp>

#include <com/sun/star/chart2/data/XDataReceiver.hpp>

#include <com/sun/star/chart2/XChartDocument.hpp>

#include <com/sun/star/ui/dialogs/XAsynchronousExecutableDialog.hpp>

#include <com/sun/star/lang/XInitialization.hpp>

#include <com/sun/star/frame/XModel.hpp>

#include <com/sun/star/chart/ChartDataRowSource.hpp>

#include <svtools/dialogclosedlistener.hxx>

#include <officecfg/Office/Common.hxx>

#include <PivotTableDataProvider.hxx>

#include <chart2uno.hxx>

#include <fuinsert.hxx>

#include <tabvwsh.hxx>

#include <sc.hrc>

#include <chartpos.hxx>

#include <docsh.hxx>

#include <document.hxx>

#include <undotab.hxx>

#include <uiitems.hxx>

#include <drawview.hxx>

#include <markdata.hxx>

#include <dpobject.hxx>

#include <memory>

using namespace css;

namespace

{

void lcl_ChartInit(const uno::Reference <embed::XEmbeddedObject>& xObj, ScViewData* pViewData,

                   const OUString& rRangeParam, bool bRangeIsPivotTable)

{

    ScDocShell* pDocShell = pViewData->GetDocShell();

    ScDocument& rScDoc = pDocShell->GetDocument();

    OUString aRangeString(rRangeParam);

    if (aRangeString.isEmpty() && !bRangeIsPivotTable)

    {

        SCCOL nCol1 = 0;

        SCROW nRow1 = 0;

        SCTAB nTab1 = 0;

        SCCOL nCol2 = 0;

        SCROW nRow2 = 0;

        SCTAB nTab2 = 0;

        ScMarkData& rMark = pViewData->GetMarkData();

        if ( !rMark.IsMarked() )

            pViewData->GetView()->MarkDataArea();

        if ( pViewData->GetSimpleArea( nCol1,nRow1,nTab1, nCol2,nRow2,nTab2 ) == SC_MARK_SIMPLE )

        {

            PutInOrder( nCol1, nCol2 );

            PutInOrder( nRow1, nRow2 );

            if (nCol2 >= nCol1 || nRow2 >= nRow1)

            {

                ScDocument& rDoc = pViewData->GetDocument();

                rDoc.LimitChartArea( nTab1, nCol1,nRow1, nCol2,nRow2 );

                ScRange aRange( nCol1, nRow1, nTab1, nCol2, nRow2, nTab2 );

                aRangeString = aRange.Format(rScDoc, ScRefFlags::RANGE_ABS_3D, rScDoc.GetAddressConvention());

            }

        }

    }

    if (aRangeString.isEmpty())

        return;

    // connect to Calc data (if no range string, leave chart alone, with its own data)

    uno::Reference< css::chart2::data::XDataReceiver > xReceiver;

    if( xObj.is())

        xReceiver.set( xObj->getComponent(), uno::UNO_QUERY );

    OSL_ASSERT( xReceiver.is());

    if( !xReceiver.is() )

        return;

    uno::Reference<chart2::data::XDataProvider> xDataProvider;

    if (bRangeIsPivotTable)

    {

        rtl::Reference<sc::PivotTableDataProvider> pPivotTableDataProvider(new sc::PivotTableDataProvider(rScDoc));

        pPivotTableDataProvider->setPivotTableName(aRangeString);

        xDataProvider = pPivotTableDataProvider;

    }

    else

    {

        xDataProvider = new ScChart2DataProvider(&rScDoc);

    }

    xReceiver->attachDataProvider(xDataProvider);

    uno::Reference< util::XNumberFormatsSupplier > xNumberFormatsSupplier( getXWeak(pDocShell->GetModel()), uno::UNO_QUERY );

    xReceiver->attachNumberFormatsSupplier( xNumberFormatsSupplier );

    // Same behavior as with old chart: Always assume data series in columns

    chart::ChartDataRowSource eDataRowSource = chart::ChartDataRowSource_COLUMNS;

    bool bHasCategories = false;

    bool bFirstCellAsLabel = false;

    // use ScChartPositioner to auto-detect column/row headers (like ScChartArray in old version)

    ScRangeListRef aRangeListRef( new ScRangeList );

    aRangeListRef->Parse( aRangeString, rScDoc, rScDoc.GetAddressConvention() );

    if ( !aRangeListRef->empty() )

    {

        rScDoc.LimitChartIfAll( aRangeListRef );               // limit whole columns/rows to used area

        // update string from modified ranges.  The ranges must be in the current formula syntax.

        OUString aTmpStr;

        aRangeListRef->Format( aTmpStr, ScRefFlags::RANGE_ABS_3D, rScDoc, rScDoc.GetAddressConvention() );

        aRangeString = aTmpStr;

        ScChartPositioner aChartPositioner( rScDoc, std::move(aRangeListRef) );

        const ScChartPositionMap* pPositionMap( aChartPositioner.GetPositionMap() );

        if( pPositionMap )

        {

            SCSIZE nRowCount = pPositionMap->GetRowCount();

            if( 1==nRowCount )

                eDataRowSource = chart::ChartDataRowSource_ROWS;

        }

        if ( eDataRowSource == chart::ChartDataRowSource_COLUMNS )

        {

            bHasCategories = aChartPositioner.HasRowHeaders();

            bFirstCellAsLabel = aChartPositioner.HasColHeaders();

        }

        else    // in case the default is changed

        {

            bHasCategories = aChartPositioner.HasColHeaders();

            bFirstCellAsLabel = aChartPositioner.HasRowHeaders();

        }

    }

    uno::Sequence< beans::PropertyValue > aArgs{

        beans::PropertyValue(

            u"CellRangeRepresentation"_ustr, -1,

            uno::Any( aRangeString ), beans::PropertyState_DIRECT_VALUE ),

        beans::PropertyValue(

            u"HasCategories"_ustr, -1,

            uno::Any( bHasCategories ), beans::PropertyState_DIRECT_VALUE ),

        beans::PropertyValue(

            u"FirstCellAsLabel"_ustr, -1,

            uno::Any( bFirstCellAsLabel ), beans::PropertyState_DIRECT_VALUE ),

        beans::PropertyValue(

            u"DataRowSource"_ustr, -1,

            uno::Any( eDataRowSource ), beans::PropertyState_DIRECT_VALUE )

    };

    try

    {

        xReceiver->setArguments( aArgs );

    }

    catch (const lang::IllegalArgumentException&)

    {

        // Can happen for invalid aRangeString, in which case a Chart

        // will be created nevertheless and the range string can be

        // edited.

        TOOLS_WARN_EXCEPTION("sc.ui",

                "lcl_ChartInit - caught IllegalArgumentException might be due to aRangeString: " << aRangeString);

    }

    // don't create chart listener here (range may be modified in chart dialog)

}

}

FuInsertOLE::FuInsertOLE(ScTabViewShell& rViewSh, vcl::Window* pWin, ScDrawView* pViewP,

           SdrModel& rDoc, SfxRequest& rReq)

    : FuPoor(rViewSh, pWin, pViewP, rDoc, rReq)

{

    if( ! rReq.IsAPI() )

        rReq.Done();

    //! initialize DLLs here, so that the factories exist?

    uno::Reference < embed::XEmbeddedObject > xObj;

    uno::Reference < embed::XStorage > xStorage = comphelper::OStorageHelper::GetTemporaryStorage();

    bool bIsFromFile = false;

    OUString aName;

    sal_Int64 nAspect = embed::Aspects::MSOLE_CONTENT;

    OUString aIconMediaType;

    uno::Reference< io::XInputStream > xIconMetaFile;

    const sal_uInt16 nSlot = rReq.GetSlot();

    const SfxGlobalNameItem* pNameItem = rReq.GetArg(SID_INSERT_OBJECT);

    if ( nSlot == SID_INSERT_OBJECT && pNameItem )

    {

        const SvGlobalName& aClassName = pNameItem->GetValue();

        xObj = rViewShell.GetViewFrame().GetObjectShell()->GetEmbeddedObjectContainer().CreateEmbeddedObject( aClassName.GetByteSequence(), aName );

    }

    else if ( nSlot == SID_INSERT_SMATH )

    {

        if ( SvtModuleOptions().IsMathInstalled() )

        {

            xObj = rViewShell.GetViewFrame().GetObjectShell()->GetEmbeddedObjectContainer().CreateEmbeddedObject( SvGlobalName( SO3_SM_CLASSID_60 ).GetByteSequence(), aName );

            rReq.AppendItem( SfxGlobalNameItem( SID_INSERT_OBJECT, SvGlobalName( SO3_SM_CLASSID_60 ) ) );

        }

    }

    else

    {

        SvObjectServerList aServerLst;

        switch ( nSlot )

        {

            case SID_INSERT_OBJECT :

                if (officecfg::Office::Common::Security::Scripting::DisableActiveContent::get())

                {

                    std::unique_ptr<weld::MessageDialog> xError(Application::CreateMessageDialog(

                        nullptr, VclMessageType::Warning, VclButtonsType::Ok,

                        SvtResId(STR_WARNING_ACTIVE_CONTENT_DISABLED)));

                    xError->run();

                    break;

                }

                aServerLst.FillInsertObjects();

                aServerLst.Remove( ScDocShell::Factory().GetClassId() );   // Do not show Starcalc

                //TODO/LATER: currently no inserting of ClassId into SfxRequest!

                [[fallthrough]]; //TODO ???

            case SID_INSERT_FLOATINGFRAME :

            {

                SvxAbstractDialogFactory* pFact = SvxAbstractDialogFactory::Create();

                ScopedVclPtr<SfxAbstractInsertObjectDialog> pDlg(

                        pFact->CreateInsertObjectDialog( rViewShell.GetFrameWeld(), ScModule::get()->GetSlotPool()->GetSlot(nSlot)->GetCommand(),

                        xStorage, &aServerLst ));

                if ( pDlg )

                {

                    pDlg->Execute();

                    xObj = pDlg->GetObject();

                    xIconMetaFile = pDlg->GetIconIfIconified( &aIconMediaType );

                    if ( xIconMetaFile.is() )

                        nAspect = embed::Aspects::MSOLE_ICON;

                    if ( xObj.is() )

                        rViewSh.GetObjectShell()->GetEmbeddedObjectContainer().InsertEmbeddedObject( xObj, aName );

                    // to activate DrawShell (no need to activate Object)

                    bIsFromFile = !pDlg->IsCreateNew();

                }

                break;

            }

        }

    }

    //  SvInsertObjectDialog (everything in one Dialog) are not used anymore

    if (xObj.is())

    {

        pView->UnmarkAll();

        try

        {

            ::svt::EmbeddedObjectRef aObjRef( xObj, nAspect );

            Size aSize;

            MapMode aMap100( MapUnit::Map100thMM );

            MapUnit aMapUnit = MapUnit::Map100thMM;

            if ( nAspect == embed::Aspects::MSOLE_ICON )

            {

                aObjRef.SetGraphicStream( xIconMetaFile, aIconMediaType );

                aSize = aObjRef.GetSize( &aMap100 );

            }

            else

            {

                awt::Size aSz;

                try

                {

                    aSz = xObj->getVisualAreaSize( nAspect );

                }

                catch( embed::NoVisualAreaSizeException& )

                {

                    // the default size will be set later

                }

                aSize = Size( aSz.Width, aSz.Height );

                aMapUnit = VCLUnoHelper::UnoEmbed2VCLMapUnit( xObj->getMapUnit( nAspect ) );

                if (aSize.IsEmpty())

                {

                    // rectangle with balanced edge ratio

                    aSize.setWidth( 5000 );

                    aSize.setHeight( 5000 );

                    Size aTmp = OutputDevice::LogicToLogic(aSize, MapMode(MapUnit::Map100thMM), MapMode(aMapUnit));

                    aSz.Width = aTmp.Width();

                    aSz.Height = aTmp.Height();

                    xObj->setVisualAreaSize( nAspect, aSz );

                    //  re-convert aSize to 1/100th mm to avoid rounding errors in comparison below

                    aSize = OutputDevice::LogicToLogic( aTmp,

                                    MapMode( aMapUnit ), aMap100 );

                }

                else

                    aSize = OutputDevice::LogicToLogic( aSize,

                                    MapMode( aMapUnit ), aMap100 );

            }

            //  initialize chart ?

            if ( SvtModuleOptions().IsChartInstalled() && SotExchange::IsChart( SvGlobalName( xObj->getClassID() ) ) )

                lcl_ChartInit(xObj, &rViewSh.GetViewData(), OUString(), false);

            ScViewData& rData = rViewSh.GetViewData();

            Point aPnt = rViewSh.GetInsertPos();

            if ( rData.GetDocument().IsNegativePage( rData.CurrentTabForData() ) )

                aPnt.AdjustX( -(aSize.Width()) );      // move position to left edge

            tools::Rectangle aRect (aPnt, aSize);

            rtl::Reference<SdrOle2Obj> pObj = new SdrOle2Obj(

                rDoc,

                aObjRef,

                aName,

                aRect);

            SdrPageView* pPV = pView->GetSdrPageView();

            bool bSuccess = pView->InsertObjectAtView(pObj.get(), *pPV);

            if (bSuccess && nAspect != embed::Aspects::MSOLE_ICON)

            {

                //  Math objects change their object size during InsertObject.

                //  New size must be set in SdrObject, or a wrong scale will be set at

                //  ActivateObject.

                try

                {

                    awt::Size aSz = xObj->getVisualAreaSize( nAspect );

                    Size aNewSize( aSz.Width, aSz.Height );

                    aNewSize = OutputDevice::LogicToLogic(aNewSize, MapMode(aMapUnit), MapMode(MapUnit::Map100thMM));

                    if ( aNewSize != aSize )

                    {

                        aRect.SetSize( aNewSize );

                        pObj->SetLogicRect( aRect );

                    }

                }

                catch( embed::NoVisualAreaSizeException& )

                {}

            }

            if ( !rReq.IsAPI() )

            {

                // XXX Activate from macro is deadly !!! ???

                if (bIsFromFile)

                {

                    // Object selected, activate Draw-Shell

                    rViewShell.SetDrawShell( true );

                }

                else if (bSuccess)

                {

                    rViewShell.ActivateObject(pObj.get(), embed::EmbedVerbs::MS_OLEVERB_SHOW);

                }

            }

            rReq.Done();

        }

        catch( uno::Exception& )

        {

            OSL_FAIL( "May need error handling here!" );

        }

    }

    else

        rReq.Ignore();

}

FuInsertChart::FuInsertChart(ScTabViewShell& rViewSh, vcl::Window* pWin, ScDrawView* pViewP,

                             SdrModel& rDoc, SfxRequest& rReq, const Link<css::ui::dialogs::DialogClosedEvent*, void>& rLink)

    : FuPoor(rViewSh, pWin, pViewP, rDoc, rReq)

{

    const SfxItemSet* pReqArgs = rReq.GetArgs();

    if( ! rReq.IsAPI() )

        rReq.Done();

    if (!SvtModuleOptions().IsChartInstalled())

        return;

    // BM/IHA --

    // get range

    OUString aRangeString;

    bool bRangeIsPivotTable = false;

    ScRange aPositionRange;             // cell range for chart positioning

    ScMarkData aMark = rViewSh.GetViewData().GetMarkData();

    if( pReqArgs )

    {

        const SfxPoolItem* pItem;

        if( pReqArgs->HasItem( FN_PARAM_5, &pItem ) )

            aRangeString = static_cast<const SfxStringItem*>(pItem)->GetValue();

        aPositionRange = rViewSh.GetViewData().GetCurPos();

    }

    else

    {

        ScDocument& rDocument = rViewSh.GetViewData().GetDocument();

        ScDPObject* pObject = rDocument.GetDPAtCursor(rViewSh.GetViewData().GetCurX(),

                                                      rViewSh.GetViewData().GetCurY(),

                                                      rViewSh.GetViewData().CurrentTabForData());

        if (pObject)

        {

            aRangeString = pObject->GetName();

            bRangeIsPivotTable = true;

        }

        else

        {

            ScRangeList aRanges;

            if (aMark.IsMarked() || aMark.IsMultiMarked())

            {

                ScMarkData aMultiMark(std::move(aMark));

                aMultiMark.MarkToMulti();

                aMultiMark.FillRangeListWithMarks(&aRanges, false);

            }

            else

            {

                ScViewData& rViewData = rViewSh.GetViewData();

                SCTAB nTab = rViewData.CurrentTabForData();

                SCCOL nStartCol = rViewData.GetCurX();

                SCROW nStartRow = rViewData.GetCurY();

                SCCOL nEndCol = nStartCol;

                SCROW nEndRow = nStartRow;

                rViewData.GetDocument().GetDataArea(nTab, nStartCol, nStartRow, nEndCol, nEndRow,

                                                    true, false);

                aRanges = ScRange(nStartCol, nStartRow, nTab, nEndCol, nEndRow, nTab);

            }

            OUString aStr;

            aRanges.Format( aStr, ScRefFlags::RANGE_ABS_3D, rDocument, rDocument.GetAddressConvention() );

            aRangeString = aStr;

            // get "total" range for positioning

            if ( !aRanges.empty() )

            {

                aPositionRange = aRanges[ 0 ];

                for ( size_t i = 1, nCount = aRanges.size(); i < nCount; ++i )

                {

                    aPositionRange.ExtendTo( aRanges[ i ] );

                }

            }

        }

    }

    // adapted old code

    pView->UnmarkAll();

    OUString aName;

    const sal_Int64 nAspect = embed::Aspects::MSOLE_CONTENT;

    uno::Reference < embed::XEmbeddedObject > xObj =

        rViewShell.GetObjectShell()->GetEmbeddedObjectContainer().CreateEmbeddedObject( SvGlobalName( SO3_SCH_CLASSID_60 ).GetByteSequence(), aName );

    uno::Reference< css::chart2::data::XDataReceiver > xReceiver;

    if( xObj.is())

        xReceiver.set( xObj->getComponent(), uno::UNO_QUERY );

    uno::Reference<chart2::XChartDocument> xChartDoc(xReceiver, uno::UNO_QUERY);

    if (xChartDoc.is())

        xChartDoc->createDefaultChart();

    // lock the model to suppress any internal updates

    uno::Reference< frame::XModel > xChartModel( xReceiver, uno::UNO_QUERY );

    if( xChartModel.is() )

        xChartModel->lockControllers();

    // object size

    Size aSize;

    if (xObj.is())

    {

        awt::Size aSz = xObj->getVisualAreaSize( nAspect );

        aSize = Size( aSz.Width, aSz.Height );

        bool bSizeCh = false;

        if (aSize.IsEmpty())

        {

            aSize.setWidth( 5000 );

            aSize.setHeight( 5000 );

            bSizeCh = true;

        }

        if (bSizeCh)

        {

            MapUnit aMapUnit = VCLUnoHelper::UnoEmbed2VCLMapUnit( xObj->getMapUnit( nAspect ) );

            aSize = OutputDevice::LogicToLogic( aSize, MapMode( MapUnit::Map100thMM ), MapMode( aMapUnit ) );

            aSz.Width = aSize.Width();

            aSz.Height = aSize.Height();

            xObj->setVisualAreaSize( nAspect, aSz );

        }

    }

    ScViewData& rData = rViewSh.GetViewData();

    ScDocShell* pScDocSh = rData.GetDocShell();

    ScDocument& rScDoc   = pScDocSh->GetDocument();

    bool bUndo (rScDoc.IsUndoEnabled());

    if( pReqArgs )

    {

        const SfxPoolItem* pItem;

        sal_uInt16 nToTable = 0;

        if( pReqArgs->HasItem( FN_PARAM_4, &pItem ) )

        {

            if ( auto pUInt16Item = dynamic_cast<const SfxUInt16Item*>( pItem) )

                nToTable = pUInt16Item->GetValue();

            else if ( auto pBoolItem = dynamic_cast<const SfxBoolItem*>( pItem) )

            {

                //  In IDL for Basic FN_PARAM_4 means SfxBoolItem

                //  -> if set new table, else current table

                if ( pBoolItem->GetValue() )

                    nToTable = static_cast<sal_uInt16>(rScDoc.GetTableCount());

                else

                    nToTable = static_cast<sal_uInt16>(rData.CurrentTabForData());

            }

        }

        else

        {

            rReq.AppendItem( SfxUInt16Item( FN_PARAM_4, nToTable ) );

        }

        // Output on new table?

        if ( nToTable == rScDoc.GetTableCount() )

        {

            // Let's go...

            OUString      aTabName;

            SCTAB       nNewTab = rScDoc.GetTableCount();

            rScDoc.CreateValidTabName( aTabName );

            if ( rScDoc.InsertTab( nNewTab, aTabName ) )

            {

                if (bUndo)

                {

                    pScDocSh->GetUndoManager()->AddUndoAction(

                        std::make_unique<ScUndoInsertTab>( *pScDocSh, nNewTab,

                                             true/*bAppend*/, aTabName ) );

                }

                pScDocSh->Broadcast( ScTablesHint( SC_TAB_INSERTED, nNewTab ) );

                rViewSh.SetTabNo( nNewTab, true );

                pScDocSh->PostPaintExtras();            //! done afterwards ???

            }

            else

            {

                OSL_FAIL( "Could not create new table :-/" );

            }

        }

        else if ( nToTable != rData.CurrentTabForData() )

        {

            rViewSh.SetTabNo( nToTable, true );

        }

    }

    lcl_ChartInit(xObj, &rData, aRangeString, bRangeIsPivotTable);         // set source range, auto-detect column/row headers

    //  object position

    // get chart position (from window size and data range)

    Point aStart = rViewSh.GetChartInsertPos( aSize, aPositionRange );

    tools::Rectangle aRect (aStart, aSize);

    rtl::Reference<SdrOle2Obj> pObj = new SdrOle2Obj(

        rDoc,

        svt::EmbeddedObjectRef(xObj, nAspect),

        aName,

        aRect);

    SdrPageView* pPV = pView->GetSdrPageView();

    // #i121334# This call will change the chart's default background fill from white to transparent.

    // Add here again if this is wanted (see task description for details)

    // ChartHelper::AdaptDefaultsForChart( xObj );

//        pView->InsertObjectAtView(pObj, *pPV);//this call leads to an immediate redraw and asks the chart for a visual representation

    // use the page instead of the view to insert, so no undo action is created yet

    SdrPage* pPage = pPV->GetPage();

    pPage->InsertObject( pObj.get() );

    pView->UnmarkAllObj();

    pView->MarkObj( pObj.get(), pPV );

    if (rReq.IsAPI())

    {

        if( xChartModel.is() )

            xChartModel->unlockControllers();

    }

    else if (!rViewSh.isLOKMobilePhone())

    {

        //the controller will be unlocked by the dialog when the dialog is told to do so

        // only activate object if not called via API (e.g. macro)

        if (!comphelper::LibreOfficeKit::isActive())

            rViewShell.ActivateObject(pObj.get(), embed::EmbedVerbs::MS_OLEVERB_SHOW);

        //open wizard

        uno::Reference< uno::XComponentContext > xContext(::comphelper::getProcessComponentContext());

        if(xContext.is())

        {

            uno::Reference< lang::XMultiComponentFactory > xMCF( xContext->getServiceManager() );

            if(xMCF.is())

            {

                css::uno::Reference<css::ui::dialogs::XAsynchronousExecutableDialog> xDialog(

                    xMCF->createInstanceWithContext(

                        u"com.sun.star.comp.chart2.WizardDialog"_ustr

                        , xContext), uno::UNO_QUERY);

                uno::Reference< lang::XInitialization > xInit( xDialog, uno::UNO_QUERY );

                if( xChartModel.is() && xInit.is() )

                {

                    css::uno::Reference< css::awt::XWindow > xParent

                        = new weld::TransportAsXWindow(pWin->GetFrameWeld());

                    uno::Sequence<uno::Any> aSeq(comphelper::InitAnyPropertySequence(

                    {

                        {"ParentWindow", uno::Any(xParent)},

                        {"ChartModel", uno::Any(xChartModel)}

                    }));

                    xInit->initialize( aSeq );

                    // try to set the dialog's position so it doesn't hide the chart

                    uno::Reference < beans::XPropertySet > xDialogProps( xDialog, uno::UNO_QUERY );

                    if ( xDialogProps.is() )

                    {

                        try

                        {

                            //get dialog size:

                            awt::Size aDialogAWTSize;

                            if( xDialogProps->getPropertyValue(u"Size"_ustr)

                                >>= aDialogAWTSize )

                            {

                                Size aDialogSize( aDialogAWTSize.Width, aDialogAWTSize.Height );

                                if ( !aDialogSize.IsEmpty() )

                                {

                                    //calculate and set new position

                                    Point aDialogPos = rViewShell.GetChartDialogPos( aDialogSize, aRect );

                                    xDialogProps->setPropertyValue(u"Position"_ustr,

                                        uno::Any( awt::Point(aDialogPos.getX(),aDialogPos.getY()) ) );

                                }

                            }

                            //tell the dialog to unlock controller

                            xDialogProps->setPropertyValue(u"UnlockControllersOnExecute"_ustr,

                                        uno::Any( true ) );

                        }

                        catch( uno::Exception& )

                        {

                            OSL_FAIL( "Chart wizard couldn't be positioned automatically" );

                        }

                    }

                    pView->AddUndo(std::make_unique<SdrUndoNewObj>(*pObj));

                    rViewSh.SetInsertWizardUndoMark();

                    rtl::Reference<::svt::DialogClosedListener> pListener = new ::svt::DialogClosedListener();

                    pListener->SetDialogClosedLink( rLink );

                    xDialog->startExecuteModal( pListener );

                }

                else

                {

                    uno::Reference< lang::XComponent > xComponent( xDialog, uno::UNO_QUERY );

                    if( xComponent.is())

                        xComponent->dispose();

                }

            }

        }

    }

}

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