summaryrefslogtreecommitdiff
path: root/scratch/sc-vba/dead-source/vbanames.cxx
diff options
context:
space:
mode:
Diffstat (limited to 'scratch/sc-vba/dead-source/vbanames.cxx')
-rw-r--r--scratch/sc-vba/dead-source/vbanames.cxx219
1 files changed, 0 insertions, 219 deletions
diff --git a/scratch/sc-vba/dead-source/vbanames.cxx b/scratch/sc-vba/dead-source/vbanames.cxx
deleted file mode 100644
index 457188037..000000000
--- a/scratch/sc-vba/dead-source/vbanames.cxx
+++ /dev/null
@@ -1,219 +0,0 @@
-/*************************************************************************
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * $RCSfile: vbanames.cxx,v $
- *
- * $Revision: 1.1.2.2 $
- *
- * last change: $Author: npower $ $Date: 2007/07/23 11:47:24 $
- *
- * The Contents of this file are made available subject to
- * the terms of GNU Lesser General Public License Version 2.1.
- *
- *
- * GNU Lesser General Public License Version 2.1
- * =============================================
- * Copyright 2005 by Sun Microsystems, Inc.
- * 901 San Antonio Road, Palo Alto, CA 94303, USA
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License version 2.1, as published by the Free Software Foundation.
- *
- * This library 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
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
- * MA 02111-1307 USA
- *
- ************************************************************************/
-#include "helperdecl.hxx"
-
-#include <com/sun/star/table/XCellRange.hpp>
-#include <com/sun/star/sheet/XCellRangeAddressable.hpp>
-
-#include "vbanames.hxx"
-#include "vbaname.hxx"
-#include "vbarange.hxx"
-#include "vbaglobals.hxx"
-#include <vector>
-#include <rangenam.hxx>
-#include <vcl/msgbox.hxx>
-#include "tabvwsh.hxx"
-#include "viewdata.hxx"
-
-using namespace ::org::openoffice;
-using namespace ::com::sun::star;
-
-class NamesEnumeration : public EnumerationHelperImpl
-{
- uno::Reference< frame::XModel > m_xModel;
- uno::WeakReference< vba::XHelperInterface > m_xParent;
- uno::Reference< sheet::XNamedRanges > m_xNames;
-public:
- NamesEnumeration( const uno::Reference< vba::XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< container::XEnumeration >& xEnumeration, const uno::Reference< frame::XModel >& xModel , const uno::Reference< sheet::XNamedRanges >& xNames ) throw ( uno::RuntimeException ) : EnumerationHelperImpl( xContext, xEnumeration ), m_xModel( xModel ), m_xParent( xParent ), m_xNames( xNames ) {}
-
- virtual uno::Any SAL_CALL nextElement( ) throw (container::NoSuchElementException, lang::WrappedTargetException, uno::RuntimeException)
- {
- uno::Reference< sheet::XNamedRange > xNamed( m_xEnumeration->nextElement(), uno::UNO_QUERY_THROW );
- return uno::makeAny( uno::Reference< excel::XName > ( new ScVbaName( m_xParent, m_xContext, xNamed ,m_xNames , m_xModel ) ) );
- }
-
-};
-
-
-ScVbaNames::ScVbaNames(const css::uno::Reference< oo::vba::XHelperInterface >& xParent,
- const css::uno::Reference< css::uno::XComponentContext >& xContext,
- const css::uno::Reference< css::sheet::XNamedRanges >& xNames,
- const css::uno::Reference< css::frame::XModel >& xModel ):
- ScVbaNames_BASE( xParent , xContext , uno::Reference< container::XIndexAccess >( xNames, uno::UNO_QUERY ) ),
- mxModel( xModel ),
- mxNames( xNames )
-{
- m_xNameAccess.set( xNames, uno::UNO_QUERY_THROW );
-}
-
-ScVbaNames::~ScVbaNames()
-{
-}
-
-ScDocument *
-ScVbaNames::getScDocument()
-{
- uno::Reference< frame::XModel > xModel( getModel() , uno::UNO_QUERY_THROW );
- ScTabViewShell * pTabViewShell = getBestViewShell( xModel );
- if ( !pTabViewShell )
- throw uno::RuntimeException( rtl::OUString::createFromAscii("No ViewShell available"), uno::Reference< uno::XInterface >() );
- ScViewData* pViewData = pTabViewShell->GetViewData();
- if ( !pViewData )
- throw uno::RuntimeException( rtl::OUString::createFromAscii("No ViewData available"), uno::Reference< uno::XInterface >() );
- return pViewData->GetDocument();
-}
-
-css::uno::Any
-ScVbaNames::Add( const css::uno::Any& Name ,
- const css::uno::Any& RefersTo,
- const css::uno::Any& /*Visible*/,
- const css::uno::Any& /*MacroType*/,
- const css::uno::Any& /*ShoutcutKey*/,
- const css::uno::Any& /*Category*/,
- const css::uno::Any& NameLocal,
- const css::uno::Any& /*RefersToLocal*/,
- const css::uno::Any& /*CategoryLocal*/,
- const css::uno::Any& RefersToR1C1,
- const css::uno::Any& RefersToR1C1Local ) throw (css::uno::RuntimeException)
-{
-
- rtl::OUString sName;
- uno::Reference< excel::XRange > xRange;
- if ( Name.hasValue() )
- Name >>= sName;
- else if ( NameLocal.hasValue() )
- NameLocal >>= sName;
- if ( sName.getLength() != 0 )
- {
- if ( !ScRangeData::IsNameValid( sName , getScDocument() ) )
- {
- ::rtl::OUString sResult ;
- sal_Int32 nToken = 0;
- sal_Int32 nIndex = 0;
- sResult = sName.getToken( nToken , '!' , nIndex );
- if ( -1 == nIndex )
- sResult = sName;
- else
- sResult = sName.copy( nIndex );
- sName = sResult ;
- if ( !ScRangeData::IsNameValid( sName , getScDocument() ) )
- throw uno::RuntimeException( rtl::OUString::createFromAscii("This Name is a valid ."), uno::Reference< uno::XInterface >() );
- }
- }
- if ( RefersTo.hasValue() || RefersToR1C1.hasValue() || RefersToR1C1Local.hasValue() )
- {
- if ( RefersTo.hasValue() )
- RefersTo >>= xRange;
- if ( RefersToR1C1.hasValue() )
- RefersToR1C1 >>= xRange;
- if ( RefersToR1C1Local.hasValue() )
- RefersToR1C1Local >>= xRange;
- }
-
- if ( xRange.is() )
- {
- ScVbaRange* pRange = dynamic_cast< ScVbaRange* >( xRange.get() );
- uno::Reference< table::XCellRange > thisRange ;
- uno::Any xAny = pRange->getCellRange() ;
- if ( xAny.hasValue() )
- xAny >>= thisRange;
- uno::Reference< sheet::XCellRangeAddressable > thisRangeAdd( thisRange, ::uno::UNO_QUERY_THROW);
- table::CellRangeAddress aAddr = thisRangeAdd->getRangeAddress();
- ScAddress aPos( static_cast< SCCOL >( aAddr.StartColumn ) , static_cast< SCROW >( aAddr.StartRow ) , static_cast< SCTAB >(aAddr.Sheet ) );
- uno::Any xAny2 ;
- String sRangeAdd = xRange->Address( xAny2, xAny2 , xAny2 , xAny2, xAny2 );
- String sTmp;
- sTmp += String::CreateFromAscii("$");
- sTmp += UniString(xRange->getWorksheet()->getName());
- sTmp += String::CreateFromAscii(".");
- sTmp += sRangeAdd;
- if ( mxNames.is() )
- {
- RangeType nType = RT_NAME;
- table::CellAddress aCellAddr( aAddr.Sheet , aAddr.StartColumn , aAddr.StartRow );
- if ( mxNames->hasByName( sName ) )
- mxNames->removeByName(sName);
- mxNames->addNewByName( sName , rtl::OUString(sTmp) , aCellAddr , (sal_Int32)nType);
- }
- }
- return css::uno::Any();
-}
-
-// XEnumerationAccess
-css::uno::Type
-ScVbaNames::getElementType() throw( css::uno::RuntimeException )
-{
- return oo::excel::XName::static_type(0);
-}
-
-uno::Reference< container::XEnumeration >
-ScVbaNames::createEnumeration() throw (uno::RuntimeException)
-{
- if ( mxNames.is() )
- {
- uno::Reference< container::XEnumerationAccess > xAccess( m_xIndexAccess, uno::UNO_QUERY_THROW );
- return xAccess->createEnumeration();
- }
- uno::Reference< container::XEnumerationAccess > xEnumAccess( mxNames, uno::UNO_QUERY_THROW );
- return new NamesEnumeration( this, mxContext, xEnumAccess->createEnumeration(), mxModel , mxNames );
-}
-
-uno::Any
-ScVbaNames::createCollectionObject( const uno::Any& aSource )
-{
- uno::Reference< sheet::XNamedRange > xName( aSource, uno::UNO_QUERY );
- return uno::makeAny( uno::Reference< excel::XName > ( new ScVbaName( getParent(), mxContext, xName, mxNames , mxModel ) ) );
-}
-
-rtl::OUString&
-ScVbaNames::getServiceImplName()
-{
- static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaNames") );
- return sImplName;
-}
-
-css::uno::Sequence<rtl::OUString>
-ScVbaNames::getServiceNames()
-{
- static uno::Sequence< rtl::OUString > aServiceNames;
- if ( aServiceNames.getLength() == 0 )
- {
- aServiceNames.realloc( 1 );
- aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("org.openoffice.excel.NamedRanges" ) );
- }
- return aServiceNames;
-}
-
-
generated by cgit v1.2.3 (git 2.39.1) at 2024-04-16 09:36:59 +0000