1*b1cdbd2cSJim Jagielski /************************************************************** 2*b1cdbd2cSJim Jagielski * 3*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one 4*b1cdbd2cSJim Jagielski * or more contributor license agreements. See the NOTICE file 5*b1cdbd2cSJim Jagielski * distributed with this work for additional information 6*b1cdbd2cSJim Jagielski * regarding copyright ownership. The ASF licenses this file 7*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the 8*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance 9*b1cdbd2cSJim Jagielski * with the License. You may obtain a copy of the License at 10*b1cdbd2cSJim Jagielski * 11*b1cdbd2cSJim Jagielski * http://www.apache.org/licenses/LICENSE-2.0 12*b1cdbd2cSJim Jagielski * 13*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing, 14*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an 15*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16*b1cdbd2cSJim Jagielski * KIND, either express or implied. See the License for the 17*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations 18*b1cdbd2cSJim Jagielski * under the License. 19*b1cdbd2cSJim Jagielski * 20*b1cdbd2cSJim Jagielski *************************************************************/ 21*b1cdbd2cSJim Jagielski 22*b1cdbd2cSJim Jagielski 23*b1cdbd2cSJim Jagielski #include <ooo/vba/excel/XDialog.hpp> 24*b1cdbd2cSJim Jagielski #include "vbadialogs.hxx" 25*b1cdbd2cSJim Jagielski #include "vbadialog.hxx" 26*b1cdbd2cSJim Jagielski 27*b1cdbd2cSJim Jagielski using namespace ::ooo::vba; 28*b1cdbd2cSJim Jagielski using namespace ::com::sun::star; 29*b1cdbd2cSJim Jagielski 30*b1cdbd2cSJim Jagielski void Dummy()31*b1cdbd2cSJim JagielskiScVbaDialogs::Dummy() throw (uno::RuntimeException) 32*b1cdbd2cSJim Jagielski { 33*b1cdbd2cSJim Jagielski } 34*b1cdbd2cSJim Jagielski 35*b1cdbd2cSJim Jagielski uno::Any Item(const uno::Any & aItem)36*b1cdbd2cSJim JagielskiScVbaDialogs::Item( const uno::Any &aItem ) throw (uno::RuntimeException) 37*b1cdbd2cSJim Jagielski { 38*b1cdbd2cSJim Jagielski sal_Int32 nIndex = 0; 39*b1cdbd2cSJim Jagielski aItem >>= nIndex; 40*b1cdbd2cSJim Jagielski uno::Reference< excel::XDialog > aDialog( new ScVbaDialog( uno::Reference< XHelperInterface >( Application(),uno::UNO_QUERY_THROW ), mxContext, m_xModel, nIndex ) ); 41*b1cdbd2cSJim Jagielski return uno::Any( aDialog ); 42*b1cdbd2cSJim Jagielski } 43*b1cdbd2cSJim Jagielski 44*b1cdbd2cSJim Jagielski rtl::OUString& getServiceImplName()45*b1cdbd2cSJim JagielskiScVbaDialogs::getServiceImplName() 46*b1cdbd2cSJim Jagielski { 47*b1cdbd2cSJim Jagielski static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaDialogs") ); 48*b1cdbd2cSJim Jagielski return sImplName; 49*b1cdbd2cSJim Jagielski } 50*b1cdbd2cSJim Jagielski 51*b1cdbd2cSJim Jagielski uno::Sequence< rtl::OUString > getServiceNames()52*b1cdbd2cSJim JagielskiScVbaDialogs::getServiceNames() 53*b1cdbd2cSJim Jagielski { 54*b1cdbd2cSJim Jagielski static uno::Sequence< rtl::OUString > aServiceNames; 55*b1cdbd2cSJim Jagielski if ( aServiceNames.getLength() == 0 ) 56*b1cdbd2cSJim Jagielski { 57*b1cdbd2cSJim Jagielski aServiceNames.realloc( 1 ); 58*b1cdbd2cSJim Jagielski aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.Dialogs" ) ); 59*b1cdbd2cSJim Jagielski } 60*b1cdbd2cSJim Jagielski return aServiceNames; 61*b1cdbd2cSJim Jagielski } 62*b1cdbd2cSJim Jagielski 63*b1cdbd2cSJim Jagielski 64*b1cdbd2cSJim Jagielski 65