1*e6ed5fbcSAndrew Rist /************************************************************** 2cdf0e10cSrcweir * 3*e6ed5fbcSAndrew Rist * Licensed to the Apache Software Foundation (ASF) under one 4*e6ed5fbcSAndrew Rist * or more contributor license agreements. See the NOTICE file 5*e6ed5fbcSAndrew Rist * distributed with this work for additional information 6*e6ed5fbcSAndrew Rist * regarding copyright ownership. The ASF licenses this file 7*e6ed5fbcSAndrew Rist * to you under the Apache License, Version 2.0 (the 8*e6ed5fbcSAndrew Rist * "License"); you may not use this file except in compliance 9*e6ed5fbcSAndrew Rist * with the License. You may obtain a copy of the License at 10cdf0e10cSrcweir * 11*e6ed5fbcSAndrew Rist * http://www.apache.org/licenses/LICENSE-2.0 12cdf0e10cSrcweir * 13*e6ed5fbcSAndrew Rist * Unless required by applicable law or agreed to in writing, 14*e6ed5fbcSAndrew Rist * software distributed under the License is distributed on an 15*e6ed5fbcSAndrew Rist * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16*e6ed5fbcSAndrew Rist * KIND, either express or implied. See the License for the 17*e6ed5fbcSAndrew Rist * specific language governing permissions and limitations 18*e6ed5fbcSAndrew Rist * under the License. 19cdf0e10cSrcweir * 20*e6ed5fbcSAndrew Rist *************************************************************/ 21*e6ed5fbcSAndrew Rist 22*e6ed5fbcSAndrew Rist 23cdf0e10cSrcweir #include "vbapages.hxx" 24cdf0e10cSrcweir 25cdf0e10cSrcweir using namespace ::ooo::vba; 26cdf0e10cSrcweir using namespace ::com::sun::star; 27cdf0e10cSrcweir 28cdf0e10cSrcweir ScVbaPages::ScVbaPages( const uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< container::XIndexAccess >& xPages ) throw( lang::IllegalArgumentException ) : ScVbaPages_BASE( xParent, xContext, xPages ) 29cdf0e10cSrcweir { 30cdf0e10cSrcweir } 31cdf0e10cSrcweir 32cdf0e10cSrcweir uno::Type SAL_CALL 33cdf0e10cSrcweir ScVbaPages::getElementType() throw (uno::RuntimeException) 34cdf0e10cSrcweir { 35cdf0e10cSrcweir // return msforms::XPage::static_type(0); 36cdf0e10cSrcweir return uno::XInterface::static_type(0); 37cdf0e10cSrcweir } 38cdf0e10cSrcweir 39cdf0e10cSrcweir uno::Any 40cdf0e10cSrcweir ScVbaPages::createCollectionObject( const css::uno::Any& aSource ) 41cdf0e10cSrcweir { 42cdf0e10cSrcweir return aSource; 43cdf0e10cSrcweir } 44cdf0e10cSrcweir 45cdf0e10cSrcweir rtl::OUString& 46cdf0e10cSrcweir ScVbaPages::getServiceImplName() 47cdf0e10cSrcweir { 48cdf0e10cSrcweir static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaPages") ); 49cdf0e10cSrcweir return sImplName; 50cdf0e10cSrcweir } 51cdf0e10cSrcweir 52cdf0e10cSrcweir uno::Reference< container::XEnumeration > SAL_CALL 53cdf0e10cSrcweir ScVbaPages::createEnumeration() throw (uno::RuntimeException) 54cdf0e10cSrcweir { 55cdf0e10cSrcweir return uno::Reference< container::XEnumeration >(); 56cdf0e10cSrcweir } 57cdf0e10cSrcweir 58cdf0e10cSrcweir uno::Sequence< rtl::OUString > 59cdf0e10cSrcweir ScVbaPages::getServiceNames() 60cdf0e10cSrcweir { 61cdf0e10cSrcweir static uno::Sequence< rtl::OUString > aServiceNames; 62cdf0e10cSrcweir if ( aServiceNames.getLength() == 0 ) 63cdf0e10cSrcweir { 64cdf0e10cSrcweir aServiceNames.realloc( 1 ); 65cdf0e10cSrcweir aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.msform.Pages" ) ); 66cdf0e10cSrcweir } 67cdf0e10cSrcweir return aServiceNames; 68cdf0e10cSrcweir } 69