xref: /trunk/main/sw/source/ui/vba/vbasection.cxx (revision cdf0e10c4e3984b49a9502b011690b615761d4a3)
1*cdf0e10cSrcweir /*************************************************************************
2*cdf0e10cSrcweir  *
3*cdf0e10cSrcweir  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4*cdf0e10cSrcweir  *
5*cdf0e10cSrcweir  * Copyright 2000, 2010 Oracle and/or its affiliates.
6*cdf0e10cSrcweir  *
7*cdf0e10cSrcweir  * OpenOffice.org - a multi-platform office productivity suite
8*cdf0e10cSrcweir  *
9*cdf0e10cSrcweir  * This file is part of OpenOffice.org.
10*cdf0e10cSrcweir  *
11*cdf0e10cSrcweir  * OpenOffice.org is free software: you can redistribute it and/or modify
12*cdf0e10cSrcweir  * it under the terms of the GNU Lesser General Public License version 3
13*cdf0e10cSrcweir  * only, as published by the Free Software Foundation.
14*cdf0e10cSrcweir  *
15*cdf0e10cSrcweir  * OpenOffice.org is distributed in the hope that it will be useful,
16*cdf0e10cSrcweir  * but WITHOUT ANY WARRANTY; without even the implied warranty of
17*cdf0e10cSrcweir  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18*cdf0e10cSrcweir  * GNU Lesser General Public License version 3 for more details
19*cdf0e10cSrcweir  * (a copy is included in the LICENSE file that accompanied this code).
20*cdf0e10cSrcweir  *
21*cdf0e10cSrcweir  * You should have received a copy of the GNU Lesser General Public License
22*cdf0e10cSrcweir  * version 3 along with OpenOffice.org.  If not, see
23*cdf0e10cSrcweir  * <http://www.openoffice.org/license.html>
24*cdf0e10cSrcweir  * for a copy of the LGPLv3 License.
25*cdf0e10cSrcweir  *
26*cdf0e10cSrcweir  ************************************************************************/
27*cdf0e10cSrcweir #include "vbasection.hxx"
28*cdf0e10cSrcweir #include <vbahelper/vbahelper.hxx>
29*cdf0e10cSrcweir #include <tools/diagnose_ex.h>
30*cdf0e10cSrcweir #include "vbapagesetup.hxx"
31*cdf0e10cSrcweir 
32*cdf0e10cSrcweir using namespace ::ooo::vba;
33*cdf0e10cSrcweir using namespace ::com::sun::star;
34*cdf0e10cSrcweir 
35*cdf0e10cSrcweir SwVbaSection::SwVbaSection( const uno::Reference< ooo::vba::XHelperInterface >& rParent, const uno::Reference< uno::XComponentContext >& rContext, const uno::Reference< frame::XModel >& xModel, const uno::Reference< beans::XPropertySet >& xProps ) throw ( uno::RuntimeException ) :
36*cdf0e10cSrcweir     SwVbaSection_BASE( rParent, rContext ), mxModel( xModel ), mxPageProps( xProps )
37*cdf0e10cSrcweir {
38*cdf0e10cSrcweir }
39*cdf0e10cSrcweir 
40*cdf0e10cSrcweir SwVbaSection::~SwVbaSection()
41*cdf0e10cSrcweir {
42*cdf0e10cSrcweir }
43*cdf0e10cSrcweir 
44*cdf0e10cSrcweir ::sal_Bool SAL_CALL SwVbaSection::getProtectedForForms() throw (uno::RuntimeException)
45*cdf0e10cSrcweir {
46*cdf0e10cSrcweir     return sal_False;
47*cdf0e10cSrcweir }
48*cdf0e10cSrcweir 
49*cdf0e10cSrcweir void SAL_CALL SwVbaSection::setProtectedForForms( ::sal_Bool /*_protectedforforms*/ ) throw (uno::RuntimeException)
50*cdf0e10cSrcweir {
51*cdf0e10cSrcweir }
52*cdf0e10cSrcweir 
53*cdf0e10cSrcweir uno::Any SAL_CALL SwVbaSection::Headers(  ) throw (uno::RuntimeException)
54*cdf0e10cSrcweir {
55*cdf0e10cSrcweir     return uno::Any();
56*cdf0e10cSrcweir }
57*cdf0e10cSrcweir 
58*cdf0e10cSrcweir uno::Any SAL_CALL SwVbaSection::Footers(  ) throw (uno::RuntimeException)
59*cdf0e10cSrcweir {
60*cdf0e10cSrcweir     return uno::Any();
61*cdf0e10cSrcweir }
62*cdf0e10cSrcweir 
63*cdf0e10cSrcweir uno::Any SAL_CALL
64*cdf0e10cSrcweir SwVbaSection::PageSetup( ) throw (uno::RuntimeException)
65*cdf0e10cSrcweir {
66*cdf0e10cSrcweir     return uno::makeAny( uno::Reference< word::XPageSetup >( new SwVbaPageSetup( this, mxContext, mxModel, mxPageProps ) ) );
67*cdf0e10cSrcweir }
68*cdf0e10cSrcweir 
69*cdf0e10cSrcweir rtl::OUString&
70*cdf0e10cSrcweir SwVbaSection::getServiceImplName()
71*cdf0e10cSrcweir {
72*cdf0e10cSrcweir     static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("SwVbaSection") );
73*cdf0e10cSrcweir     return sImplName;
74*cdf0e10cSrcweir }
75*cdf0e10cSrcweir 
76*cdf0e10cSrcweir uno::Sequence< rtl::OUString >
77*cdf0e10cSrcweir SwVbaSection::getServiceNames()
78*cdf0e10cSrcweir {
79*cdf0e10cSrcweir     static uno::Sequence< rtl::OUString > aServiceNames;
80*cdf0e10cSrcweir     if ( aServiceNames.getLength() == 0 )
81*cdf0e10cSrcweir     {
82*cdf0e10cSrcweir         aServiceNames.realloc( 1 );
83*cdf0e10cSrcweir         aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.word.Section" ) );
84*cdf0e10cSrcweir     }
85*cdf0e10cSrcweir     return aServiceNames;
86*cdf0e10cSrcweir }
87*cdf0e10cSrcweir 
88