Adding upstream version 4:7.4.7.upstream/4%7.4.7upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 657 insertions, 0 deletions

diff --git a/sc/source/core/data/documen5.cxx b/sc/source/core/data/documen5.cxx
new file mode 100644
index 000000000..c4f76433b
--- /dev/null
+++ b/sc/source/core/data/documen5.cxx
@@ -0,0 +1,657 @@
+/* -*- 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/util/XModifiable.hpp>
+#include <com/sun/star/chart/ChartDataRowSource.hpp>
+#include <com/sun/star/chart2/XChartDocument.hpp>
+#include <com/sun/star/chart2/data/XDataProvider.hpp>
+#include <com/sun/star/chart2/data/XDataReceiver.hpp>
+#include <com/sun/star/embed/XEmbeddedObject.hpp>
+
+#include <sfx2/objsh.hxx>
+#include <svx/svditer.hxx>
+#include <svx/svdoole2.hxx>
+#include <svtools/embedhlp.hxx>
+
+#include <document.hxx>
+#include <table.hxx>
+#include <drwlayer.hxx>
+#include <chartlis.hxx>
+#include <chartlock.hxx>
+#include <refupdat.hxx>
+
+#include <miscuno.hxx>
+#include <chart2uno.hxx>
+#include <charthelper.hxx>
+
+using namespace ::com::sun::star;
+
+static void lcl_GetChartParameters( const uno::Reference< chart2::XChartDocument >& xChartDoc,
+            OUString& rRanges, chart::ChartDataRowSource& rDataRowSource,
+            bool& rHasCategories, bool& rFirstCellAsLabel )
+{
+    rHasCategories = rFirstCellAsLabel = false;     // default if not in sequence
+
+    uno::Reference< chart2::data::XDataReceiver > xReceiver( xChartDoc, uno::UNO_QUERY );
+
+    uno::Reference< chart2::data::XDataSource > xDataSource = xReceiver->getUsedData();
+    uno::Reference< chart2::data::XDataProvider > xProvider = xChartDoc->getDataProvider();
+
+    if ( !xProvider.is() )
+        return;
+
+    const uno::Sequence< beans::PropertyValue > aArgs( xProvider->detectArguments( xDataSource ) );
+
+    for (const beans::PropertyValue& rProp : aArgs)
+    {
+        OUString aPropName(rProp.Name);
+
+        if ( aPropName == "CellRangeRepresentation" )
+            rProp.Value >>= rRanges;
+        else if ( aPropName == "DataRowSource" )
+            rDataRowSource = static_cast<chart::ChartDataRowSource>(ScUnoHelpFunctions::GetEnumFromAny( rProp.Value ));
+        else if ( aPropName == "HasCategories" )
+            rHasCategories = ScUnoHelpFunctions::GetBoolFromAny( rProp.Value );
+        else if ( aPropName == "FirstCellAsLabel" )
+            rFirstCellAsLabel = ScUnoHelpFunctions::GetBoolFromAny( rProp.Value );
+    }
+}
+
+static void lcl_SetChartParameters( const uno::Reference< chart2::data::XDataReceiver >& xReceiver,
+            const OUString& rRanges, chart::ChartDataRowSource eDataRowSource,
+            bool bHasCategories, bool bFirstCellAsLabel )
+{
+    if ( !xReceiver.is() )
+        return;
+
+    uno::Sequence< beans::PropertyValue > aArgs{
+        beans::PropertyValue(
+            "CellRangeRepresentation", -1,
+            uno::Any( rRanges ), beans::PropertyState_DIRECT_VALUE ),
+        beans::PropertyValue(
+            "HasCategories", -1,
+            uno::Any( bHasCategories ), beans::PropertyState_DIRECT_VALUE ),
+        beans::PropertyValue(
+            "FirstCellAsLabel", -1,
+            uno::Any( bFirstCellAsLabel ), beans::PropertyState_DIRECT_VALUE ),
+        beans::PropertyValue(
+            "DataRowSource", -1,
+            uno::Any( eDataRowSource ), beans::PropertyState_DIRECT_VALUE )
+    };
+    xReceiver->setArguments( aArgs );
+}
+
+bool ScDocument::HasChartAtPoint( SCTAB nTab, const Point& rPos, OUString& rName )
+{
+    if (mpDrawLayer && nTab < static_cast<SCTAB>(maTabs.size()) && maTabs[nTab])
+    {
+        SdrPage* pPage = mpDrawLayer->GetPage(static_cast<sal_uInt16>(nTab));
+        OSL_ENSURE(pPage,"Page ?");
+
+        SdrObjListIter aIter( pPage, SdrIterMode::DeepNoGroups );
+        SdrObject* pObject = aIter.Next();
+        while (pObject)
+        {
+            if ( pObject->GetObjIdentifier() == SdrObjKind::OLE2 &&
+                 pObject->GetCurrentBoundRect().Contains(rPos) )
+            {
+                // also Chart-Objects that are not in the Collection
+
+                if (IsChart(pObject))
+                {
+                    rName = static_cast<SdrOle2Obj*>(pObject)->GetPersistName();
+                    return true;
+                }
+            }
+            pObject = aIter.Next();
+        }
+    }
+
+    rName.clear();
+    return false;                   // nothing found
+}
+
+void ScDocument::UpdateChartArea( const OUString& rChartName,
+            const ScRange& rNewArea, bool bColHeaders, bool bRowHeaders,
+            bool bAdd )
+{
+    ScRangeListRef aRLR( new ScRangeList(rNewArea) );
+    UpdateChartArea( rChartName, aRLR, bColHeaders, bRowHeaders, bAdd );
+}
+
+uno::Reference< chart2::XChartDocument > ScDocument::GetChartByName( std::u16string_view rChartName )
+{
+    uno::Reference< chart2::XChartDocument > xReturn;
+
+    if (mpDrawLayer)
+    {
+        sal_uInt16 nCount = mpDrawLayer->GetPageCount();
+        SCTAB nSize = static_cast<SCTAB>(maTabs.size());
+        for (sal_uInt16 nTab=0; nTab<nCount && nTab < nSize; nTab++)
+        {
+            SdrPage* pPage = mpDrawLayer->GetPage(nTab);
+            OSL_ENSURE(pPage,"Page ?");
+
+            SdrObjListIter aIter( pPage, SdrIterMode::DeepNoGroups );
+            SdrObject* pObject = aIter.Next();
+            while (pObject)
+            {
+                if ( pObject->GetObjIdentifier() == SdrObjKind::OLE2 &&
+                        static_cast<SdrOle2Obj*>(pObject)->GetPersistName() == rChartName )
+                {
+                    xReturn.set( ScChartHelper::GetChartFromSdrObject( pObject ) );
+                    return xReturn;
+                }
+                pObject = aIter.Next();
+            }
+        }
+    }
+    return xReturn;
+}
+
+void ScDocument::GetChartRanges( std::u16string_view rChartName, ::std::vector< ScRangeList >& rRangesVector, const ScDocument& rSheetNameDoc )
+{
+    rRangesVector.clear();
+    uno::Reference< chart2::XChartDocument > xChartDoc( GetChartByName( rChartName ) );
+    if ( xChartDoc.is() )
+    {
+        std::vector< OUString > aRangeStrings;
+        ScChartHelper::GetChartRanges( xChartDoc, aRangeStrings );
+        for(const OUString & aRangeString : aRangeStrings)
+        {
+            ScRangeList aRanges;
+            aRanges.Parse( aRangeString, rSheetNameDoc, rSheetNameDoc.GetAddressConvention() );
+            rRangesVector.push_back(aRanges);
+        }
+    }
+}
+
+void ScDocument::SetChartRanges( std::u16string_view rChartName, const ::std::vector< ScRangeList >& rRangesVector )
+{
+    uno::Reference< chart2::XChartDocument > xChartDoc( GetChartByName( rChartName ) );
+    if ( !xChartDoc.is() )
+        return;
+
+    sal_Int32 nCount = static_cast<sal_Int32>( rRangesVector.size() );
+    uno::Sequence< OUString > aRangeStrings(nCount);
+    auto aRangeStringsRange = asNonConstRange(aRangeStrings);
+    for( sal_Int32 nN=0; nN<nCount; nN++ )
+    {
+        ScRangeList aScRangeList( rRangesVector[nN] );
+        OUString sRangeStr;
+        aScRangeList.Format( sRangeStr, ScRefFlags::RANGE_ABS_3D, *this, GetAddressConvention() );
+        aRangeStringsRange[nN]=sRangeStr;
+    }
+    ScChartHelper::SetChartRanges( xChartDoc, aRangeStrings );
+}
+
+void ScDocument::GetOldChartParameters( std::u16string_view rName,
+            ScRangeList& rRanges, bool& rColHeaders, bool& rRowHeaders )
+{
+    // used for undo of changing chart source area
+
+    if (!mpDrawLayer)
+        return;
+
+    sal_uInt16 nCount = mpDrawLayer->GetPageCount();
+    for (sal_uInt16 nTab=0; nTab<nCount && nTab < static_cast<SCTAB>(maTabs.size()); nTab++)
+    {
+        SdrPage* pPage = mpDrawLayer->GetPage(nTab);
+        OSL_ENSURE(pPage,"Page ?");
+
+        SdrObjListIter aIter( pPage, SdrIterMode::DeepNoGroups );
+        SdrObject* pObject = aIter.Next();
+        while (pObject)
+        {
+            if ( pObject->GetObjIdentifier() == SdrObjKind::OLE2 &&
+                    static_cast<SdrOle2Obj*>(pObject)->GetPersistName() == rName )
+            {
+                uno::Reference< chart2::XChartDocument > xChartDoc( ScChartHelper::GetChartFromSdrObject( pObject ) );
+                if ( xChartDoc.is() )
+                {
+                    chart::ChartDataRowSource eDataRowSource = chart::ChartDataRowSource_COLUMNS;
+                    bool bHasCategories = false;
+                    bool bFirstCellAsLabel = false;
+                    OUString aRangesStr;
+                    lcl_GetChartParameters( xChartDoc, aRangesStr, eDataRowSource, bHasCategories, bFirstCellAsLabel );
+
+                    rRanges.Parse( aRangesStr, *this, GetAddressConvention());
+                    if ( eDataRowSource == chart::ChartDataRowSource_COLUMNS )
+                    {
+                        rRowHeaders = bHasCategories;
+                        rColHeaders = bFirstCellAsLabel;
+                    }
+                    else
+                    {
+                        rColHeaders = bHasCategories;
+                        rRowHeaders = bFirstCellAsLabel;
+                    }
+                }
+                return;
+            }
+            pObject = aIter.Next();
+        }
+    }
+}
+
+void ScDocument::UpdateChartArea( const OUString& rChartName,
+            const ScRangeListRef& rNewList, bool bColHeaders, bool bRowHeaders,
+            bool bAdd )
+{
+    if (!mpDrawLayer)
+        return;
+
+    for (SCTAB nTab=0; nTab< static_cast<SCTAB>(maTabs.size()) && maTabs[nTab]; nTab++)
+    {
+        SdrPage* pPage = mpDrawLayer->GetPage(static_cast<sal_uInt16>(nTab));
+        OSL_ENSURE(pPage,"Page ?");
+
+        SdrObjListIter aIter( pPage, SdrIterMode::DeepNoGroups );
+        SdrObject* pObject = aIter.Next();
+        while (pObject)
+        {
+            if ( pObject->GetObjIdentifier() == SdrObjKind::OLE2 &&
+                    static_cast<SdrOle2Obj*>(pObject)->GetPersistName() == rChartName )
+            {
+                uno::Reference< chart2::XChartDocument > xChartDoc( ScChartHelper::GetChartFromSdrObject( pObject ) );
+                uno::Reference< chart2::data::XDataReceiver > xReceiver( xChartDoc, uno::UNO_QUERY );
+                if ( xChartDoc.is() && xReceiver.is() )
+                {
+                    ScRangeListRef aNewRanges;
+                    chart::ChartDataRowSource eDataRowSource = chart::ChartDataRowSource_COLUMNS;
+                    bool bHasCategories = false;
+                    bool bFirstCellAsLabel = false;
+                    OUString aRangesStr;
+                    lcl_GetChartParameters( xChartDoc, aRangesStr, eDataRowSource, bHasCategories, bFirstCellAsLabel );
+
+                    bool bInternalData = xChartDoc->hasInternalDataProvider();
+
+                    if ( bAdd && !bInternalData )
+                    {
+                        // append to old ranges, keep other settings
+
+                        aNewRanges = new ScRangeList;
+                        aNewRanges->Parse( aRangesStr, *this, GetAddressConvention());
+                        aNewRanges->insert( aNewRanges->begin(), rNewList->begin(), rNewList->end() );
+                    }
+                    else
+                    {
+                        // directly use new ranges (only eDataRowSource is used from old settings)
+
+                        if ( eDataRowSource == chart::ChartDataRowSource_COLUMNS )
+                        {
+                            bHasCategories = bRowHeaders;
+                            bFirstCellAsLabel = bColHeaders;
+                        }
+                        else
+                        {
+                            bHasCategories = bColHeaders;
+                            bFirstCellAsLabel = bRowHeaders;
+                        }
+                        aNewRanges = rNewList;
+                    }
+
+                    if ( bInternalData && mpShell )
+                    {
+                        // Calc -> DataProvider
+                        uno::Reference< chart2::data::XDataProvider > xDataProvider = new ScChart2DataProvider( this );
+                        xReceiver->attachDataProvider( xDataProvider );
+                        uno::Reference< util::XNumberFormatsSupplier > xNumberFormatsSupplier(
+                                mpShell->GetModel(), uno::UNO_QUERY );
+                        xReceiver->attachNumberFormatsSupplier( xNumberFormatsSupplier );
+                    }
+
+                    OUString sRangeStr;
+                    aNewRanges->Format( sRangeStr, ScRefFlags::RANGE_ABS_3D, *this, GetAddressConvention() );
+
+                    lcl_SetChartParameters( xReceiver, sRangeStr, eDataRowSource, bHasCategories, bFirstCellAsLabel );
+
+                    pChartListenerCollection->ChangeListening( rChartName, aNewRanges );
+
+                    return;         // do not search anymore
+                }
+            }
+            pObject = aIter.Next();
+        }
+    }
+}
+
+void ScDocument::UpdateChart( const OUString& rChartName )
+{
+    if (!mpDrawLayer || bInDtorClear)
+        return;
+    uno::Reference< chart2::XChartDocument > xChartDoc( GetChartByName( rChartName ) );
+    if (xChartDoc && (!mpShell || mpShell->IsEnableSetModified()))
+    {
+        try
+        {
+            uno::Reference< util::XModifiable > xModif( xChartDoc, uno::UNO_QUERY_THROW );
+            if (apTemporaryChartLock)
+                apTemporaryChartLock->AlsoLockThisChart( uno::Reference< frame::XModel >( xModif, uno::UNO_QUERY ) );
+            xModif->setModified( true );
+        }
+        catch ( uno::Exception& )
+        {
+        }
+    }
+
+    // After the update, chart keeps track of its own data source ranges,
+    // the listener doesn't need to listen anymore, except the chart has
+    // an internal data provider.
+    if ( !( xChartDoc.is() && xChartDoc->hasInternalDataProvider() ) && pChartListenerCollection )
+    {
+        pChartListenerCollection->ChangeListening( rChartName, new ScRangeList );
+    }
+}
+
+void ScDocument::RestoreChartListener( const OUString& rName )
+{
+    if (!pChartListenerCollection)
+        return;
+
+    // Read the data ranges from the chart object, and start listening to those ranges again
+    // (called when a chart is saved, because then it might be swapped out and stop listening itself).
+
+    uno::Reference< embed::XEmbeddedObject > xObject = FindOleObjectByName( rName );
+    if ( !xObject.is() )
+        return;
+
+    uno::Reference< util::XCloseable > xComponent = xObject->getComponent();
+    uno::Reference< chart2::XChartDocument > xChartDoc( xComponent, uno::UNO_QUERY );
+    uno::Reference< chart2::data::XDataReceiver > xReceiver( xComponent, uno::UNO_QUERY );
+    if ( !xChartDoc.is() || !xReceiver.is() || xChartDoc->hasInternalDataProvider() )
+        return;
+
+    const uno::Sequence<OUString> aRepresentations( xReceiver->getUsedRangeRepresentations() );
+    ScRangeListRef aRanges = new ScRangeList;
+    for ( const auto& rRepresentation : aRepresentations )
+    {
+        ScRange aRange;
+        ScAddress::Details aDetails(GetAddressConvention(), 0, 0);
+        if ( aRange.ParseAny( rRepresentation, *this, aDetails ) & ScRefFlags::VALID )
+            aRanges->push_back( aRange );
+    }
+
+    pChartListenerCollection->ChangeListening( rName, aRanges );
+}
+
+void ScDocument::UpdateChartRef( UpdateRefMode eUpdateRefMode,
+                                    SCCOL nCol1, SCROW nRow1, SCTAB nTab1,
+                                    SCCOL nCol2, SCROW nRow2, SCTAB nTab2,
+                                    SCCOL nDx, SCROW nDy, SCTAB nDz )
+{
+    if (!mpDrawLayer)
+        return;
+
+    ScChartListenerCollection::ListenersType& rListeners = pChartListenerCollection->getListeners();
+    for (auto const& it : rListeners)
+    {
+        ScChartListener *const pChartListener = it.second.get();
+        ScRangeListRef aRLR( pChartListener->GetRangeList() );
+        ScRangeListRef aNewRLR( new ScRangeList );
+        bool bChanged = false;
+        bool bDataChanged = false;
+        for ( size_t i = 0, nListSize = aRLR->size(); i < nListSize; ++i )
+        {
+            ScRange& rRange = (*aRLR)[i];
+            SCCOL theCol1 = rRange.aStart.Col();
+            SCROW theRow1 = rRange.aStart.Row();
+            SCTAB theTab1 = rRange.aStart.Tab();
+            SCCOL theCol2 = rRange.aEnd.Col();
+            SCROW theRow2 = rRange.aEnd.Row();
+            SCTAB theTab2 = rRange.aEnd.Tab();
+            ScRefUpdateRes eRes = ScRefUpdate::Update(
+                this, eUpdateRefMode,
+                nCol1,nRow1,nTab1, nCol2,nRow2,nTab2,
+                nDx,nDy,nDz,
+                theCol1,theRow1,theTab1,
+                theCol2,theRow2,theTab2 );
+            if ( eRes != UR_NOTHING )
+            {
+                bChanged = true;
+                aNewRLR->push_back( ScRange(
+                    theCol1, theRow1, theTab1,
+                    theCol2, theRow2, theTab2 ));
+                if ( eUpdateRefMode == URM_INSDEL
+                    && !bDataChanged
+                    && (eRes == UR_INVALID ||
+                        ((rRange.aEnd.Col() - rRange.aStart.Col()
+                        != theCol2 - theCol1)
+                    || (rRange.aEnd.Row() - rRange.aStart.Row()
+                        != theRow2 - theRow1)
+                    || (rRange.aEnd.Tab() - rRange.aStart.Tab()
+                        != theTab2 - theTab1))) )
+                {
+                    bDataChanged = true;
+                }
+            }
+            else
+                aNewRLR->push_back( rRange );
+        }
+        if ( bChanged )
+        {
+            // Force the chart to be loaded now, so it registers itself for UNO events.
+            // UNO broadcasts are done after UpdateChartRef, so the chart will get this
+            // reference change.
+
+            uno::Reference<embed::XEmbeddedObject> xIPObj =
+                FindOleObjectByName(pChartListener->GetName());
+
+            svt::EmbeddedObjectRef::TryRunningState( xIPObj );
+
+            // After the change, chart keeps track of its own data source ranges,
+            // the listener doesn't need to listen anymore, except the chart has
+            // an internal data provider.
+            bool bInternalDataProvider = false;
+            if ( xIPObj.is() )
+            {
+                try
+                {
+                    uno::Reference< chart2::XChartDocument > xChartDoc( xIPObj->getComponent(), uno::UNO_QUERY_THROW );
+                    bInternalDataProvider = xChartDoc->hasInternalDataProvider();
+                }
+                catch ( uno::Exception& )
+                {
+                }
+            }
+            if ( bInternalDataProvider )
+            {
+                pChartListener->ChangeListening( aNewRLR, bDataChanged );
+            }
+            else
+            {
+                pChartListener->ChangeListening( new ScRangeList, bDataChanged );
+            }
+        }
+    }
+}
+
+void ScDocument::SetChartRangeList( std::u16string_view rChartName,
+            const ScRangeListRef& rNewRangeListRef )
+{
+    // called from ChartListener
+
+    if (!mpDrawLayer)
+        return;
+
+    for (SCTAB nTab=0; nTab< static_cast<SCTAB>(maTabs.size()) && maTabs[nTab]; nTab++)
+    {
+        SdrPage* pPage = mpDrawLayer->GetPage(static_cast<sal_uInt16>(nTab));
+        OSL_ENSURE(pPage,"Page ?");
+
+        SdrObjListIter aIter( pPage, SdrIterMode::DeepNoGroups );
+        SdrObject* pObject = aIter.Next();
+        while (pObject)
+        {
+            if ( pObject->GetObjIdentifier() == SdrObjKind::OLE2 &&
+                    static_cast<SdrOle2Obj*>(pObject)->GetPersistName() == rChartName )
+            {
+                uno::Reference< chart2::XChartDocument > xChartDoc( ScChartHelper::GetChartFromSdrObject( pObject ) );
+                uno::Reference< chart2::data::XDataReceiver > xReceiver( xChartDoc, uno::UNO_QUERY );
+                if ( xChartDoc.is() && xReceiver.is() )
+                {
+                    chart::ChartDataRowSource eDataRowSource = chart::ChartDataRowSource_COLUMNS;
+                    bool bHasCategories = false;
+                    bool bFirstCellAsLabel = false;
+                    OUString aRangesStr;
+                    lcl_GetChartParameters( xChartDoc, aRangesStr, eDataRowSource, bHasCategories, bFirstCellAsLabel );
+
+                    OUString sRangeStr;
+                    rNewRangeListRef->Format( sRangeStr, ScRefFlags::RANGE_ABS_3D, *this, GetAddressConvention() );
+
+                    lcl_SetChartParameters( xReceiver, sRangeStr, eDataRowSource, bHasCategories, bFirstCellAsLabel );
+
+                    // don't modify pChartListenerCollection here, called from there
+                    return;
+                }
+            }
+            pObject = aIter.Next();
+        }
+    }
+}
+
+bool ScDocument::HasData( SCCOL nCol, SCROW nRow, SCTAB nTab )
+{
+    if ( ValidTab(nTab) && nTab < static_cast<SCTAB>(maTabs.size()) && maTabs[nTab]
+            && nCol < maTabs[nTab]->GetAllocatedColumnsCount())
+        return maTabs[nTab]->HasData( nCol, nRow );
+    else
+        return false;
+}
+
+uno::Reference< embed::XEmbeddedObject >
+    ScDocument::FindOleObjectByName( std::u16string_view rName )
+{
+    if (!mpDrawLayer)
+        return uno::Reference< embed::XEmbeddedObject >();
+
+    //  take the pages here from Draw-Layer, as they might not match with the tables
+    //  (e.g. delete Redo of table; Draw-Redo happens before DeleteTab)
+
+    sal_uInt16 nCount = mpDrawLayer->GetPageCount();
+    for (sal_uInt16 nTab=0; nTab<nCount; nTab++)
+    {
+        SdrPage* pPage = mpDrawLayer->GetPage(nTab);
+        OSL_ENSURE(pPage,"Page ?");
+
+        SdrObjListIter aIter( pPage, SdrIterMode::DeepNoGroups );
+        SdrObject* pObject = aIter.Next();
+        while (pObject)
+        {
+            if ( pObject->GetObjIdentifier() == SdrObjKind::OLE2 )
+            {
+                SdrOle2Obj * pOleObject ( dynamic_cast< SdrOle2Obj * >( pObject ));
+                if( pOleObject &&
+                    pOleObject->GetPersistName() == rName )
+                {
+                    return pOleObject->GetObjRef();
+                }
+            }
+            pObject = aIter.Next();
+        }
+    }
+
+    return uno::Reference< embed::XEmbeddedObject >();
+}
+
+void ScDocument::UpdateChartListenerCollection()
+{
+    assert(pChartListenerCollection);
+
+    bChartListenerCollectionNeedsUpdate = false;
+    if (!mpDrawLayer)
+        return;
+
+    for (SCTAB nTab=0; nTab< static_cast<SCTAB>(maTabs.size()); nTab++)
+    {
+        if (!maTabs[nTab])
+            continue;
+
+        SdrPage* pPage = mpDrawLayer->GetPage(static_cast<sal_uInt16>(nTab));
+        OSL_ENSURE(pPage,"Page ?");
+
+        if (!pPage)
+            continue;
+
+        SdrObjListIter aIter( pPage, SdrIterMode::DeepNoGroups );
+        ScChartListenerCollection::StringSetType& rNonOleObjects =
+            pChartListenerCollection->getNonOleObjectNames();
+
+        for (SdrObject* pObject = aIter.Next(); pObject; pObject = aIter.Next())
+        {
+            if ( pObject->GetObjIdentifier() != SdrObjKind::OLE2 )
+                continue;
+
+            OUString aObjName = static_cast<SdrOle2Obj*>(pObject)->GetPersistName();
+            ScChartListener* pListener = pChartListenerCollection->findByName(aObjName);
+
+            if (pListener)
+                pListener->SetUsed(true);
+            else if (rNonOleObjects.count(aObjName) > 0)
+            {
+                // non-chart OLE object -> don't touch
+            }
+            else
+            {
+                uno::Reference< embed::XEmbeddedObject > xIPObj = static_cast<SdrOle2Obj*>(pObject)->GetObjRef();
+                OSL_ENSURE( xIPObj.is(), "No embedded object is given!");
+                uno::Reference< css::chart2::data::XDataReceiver > xReceiver;
+                if( xIPObj.is())
+                    xReceiver.set( xIPObj->getComponent(), uno::UNO_QUERY );
+
+                // if the object is a chart2::XDataReceiver, we must attach as XDataProvider
+                if( xReceiver.is() &&
+                    !PastingDrawFromOtherDoc())
+                {
+                    // NOTE: this currently does not work as we are
+                    // unable to set the data. So a chart from the
+                    // same document is treated like a chart with
+                    // own data for the time being.
+
+                    // data provider
+                    // number formats supplier
+
+                    // data ?
+                    // how to set?? Defined in XML-file, which is already loaded!!!
+                    // => we have to do this stuff here, BEFORE the chart is actually loaded
+                }
+
+                //  put into list of other ole objects, so the object doesn't have to
+                //  be swapped in the next time UpdateChartListenerCollection is called
+                //TODO: remove names when objects are no longer there?
+                //  (object names aren't used again before reloading the document)
+
+                rNonOleObjects.insert(aObjName);
+            }
+        }
+    }
+    // delete all that are not set SetUsed
+    pChartListenerCollection->FreeUnused();
+}
+
+void ScDocument::AddOLEObjectToCollection(const OUString& rName)
+{
+    assert(pChartListenerCollection);
+    ScChartListenerCollection::StringSetType& rNonOleObjects =
+        pChartListenerCollection->getNonOleObjectNames();
+
+    rNonOleObjects.insert(rName);
+}
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */