sw/source/ui/vba/vbaglobals.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: vbaglobals.cxx,v $
  10  * $Revision: 1.4 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30 #include <vbahelper/helperdecl.hxx>
  31 #include "vbaglobals.hxx"
  32
  33 #include <comphelper/unwrapargs.hxx>
  34
  35 #include <com/sun/star/lang/XMultiComponentFactory.hpp>
  36 #include <com/sun/star/beans/XPropertySet.hpp>
  37 #include <com/sun/star/container/XNameContainer.hpp>
  38 #include <cppuhelper/bootstrap.hxx>
  39 #include "vbaapplication.hxx"
  40 using namespace ::com::sun::star;
  41 using namespace ::com::sun::star::uno;
  42 using namespace ::ooo::vba;
  43
  44
  45 rtl::OUString sDocCtxName( RTL_CONSTASCII_USTRINGPARAM("WordDocumentContext") );
  46
  47 // =============================================================================
  48 // SwVbaGlobals
  49 // =============================================================================
  50
  51 SwVbaGlobals::SwVbaGlobals(  uno::Sequence< uno::Any > const& aArgs, uno::Reference< uno::XComponentContext >const& rxContext ) : SwVbaGlobals_BASE( uno::Reference< XHelperInterface >(), rxContext, sDocCtxName )
  52 {
  53         OSL_TRACE("SwVbaGlobals::SwVbaGlobals()");
  54         uno::Sequence< beans::PropertyValue > aInitArgs( 2 );
  55         aInitArgs[ 0 ].Name = rtl::OUString::createFromAscii("Application");
  56         aInitArgs[ 0 ].Value = uno::makeAny( getApplication() );
  57         aInitArgs[ 1 ].Name = sDocCtxName;
  58         aInitArgs[ 1 ].Value = uno::makeAny( getXSomethingFromArgs< frame::XModel >( aArgs, 0 ) );
  59
  60         init( aInitArgs );
  61 }
  62
  63 SwVbaGlobals::~SwVbaGlobals()
  64 {
  65         OSL_TRACE("SwVbaGlobals::~SwVbaGlobals");
  66 }
  67
  68 // =============================================================================
  69 // XGlobals
  70 // =============================================================================
  71 uno::Reference<word::XApplication >
  72 SwVbaGlobals::getApplication() throw (uno::RuntimeException)
  73 {
  74         OSL_TRACE("In SwVbaGlobals::getApplication");
  75         if ( !mxApplication.is() )
  76                  mxApplication.set( new SwVbaApplication( mxContext) );
  77
  78         return mxApplication;
  79 }
  80
  81 uno::Reference<word::XSystem > SAL_CALL
  82 SwVbaGlobals::getSystem() throw (uno::RuntimeException)
  83 {
  84         return getApplication()->getSystem();
  85 }
  86
  87 uno::Reference< word::XDocument > SAL_CALL
  88 SwVbaGlobals::getActiveDocument() throw (uno::RuntimeException)
  89 {
  90         return getApplication()->getActiveDocument();
  91 }
  92
  93 uno::Reference< word::XWindow > SAL_CALL
  94 SwVbaGlobals::getActiveWindow() throw (uno::RuntimeException)
  95 {
  96         return getApplication()->getActiveWindow();
  97 }
  98
  99 rtl::OUString SAL_CALL
 100 SwVbaGlobals::getName() throw (uno::RuntimeException)
 101 {
 102         return getApplication()->getName();
 103 }
 104
 105 uno::Reference<word::XOptions > SAL_CALL
 106 SwVbaGlobals::getOptions() throw (uno::RuntimeException)
 107 {
 108         return getApplication()->getOptions();
 109 }
 110
 111 uno::Any SAL_CALL
 112 SwVbaGlobals::CommandBars( const uno::Any& aIndex ) throw (uno::RuntimeException)
 113 {
 114     return getApplication()->CommandBars( aIndex );
 115 }
 116
 117 uno::Any SAL_CALL
 118 SwVbaGlobals::Documents( const uno::Any& index ) throw (uno::RuntimeException)
 119 {
 120     return getApplication()->Documents( index );
 121 }
 122
 123 uno::Any SAL_CALL
 124 SwVbaGlobals::Addins( const uno::Any& index ) throw (uno::RuntimeException)
 125 {
 126     return getApplication()->Addins( index );
 127 }
 128
 129 uno::Any SAL_CALL
 130 SwVbaGlobals::Dialogs( const uno::Any& index ) throw (uno::RuntimeException)
 131 {
 132     return getApplication()->Dialogs( index );
 133 }
 134
 135 uno::Reference<word::XSelection > SAL_CALL
 136 SwVbaGlobals::getSelection() throw (uno::RuntimeException)
 137 {
 138         return getApplication()->getSelection();
 139 }
 140
 141 float SAL_CALL SwVbaGlobals::CentimetersToPoints( float _Centimeters ) throw (uno::RuntimeException)
 142 {
 143     return getApplication()->CentimetersToPoints( _Centimeters );
 144 }
 145
 146 rtl::OUString&
 147 SwVbaGlobals::getServiceImplName()
 148 {
 149         static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("SwVbaGlobals") );
 150         return sImplName;
 151 }
 152
 153 uno::Sequence< rtl::OUString >
 154 SwVbaGlobals::getServiceNames()
 155 {
 156         static uno::Sequence< rtl::OUString > aServiceNames;
 157         if ( aServiceNames.getLength() == 0 )
 158         {
 159                 aServiceNames.realloc( 1 );
 160                 aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.word.Globals" ) );
 161         }
 162         return aServiceNames;
 163 }
 164
 165 uno::Sequence< rtl::OUString >
 166 SwVbaGlobals::getAvailableServiceNames(  ) throw (uno::RuntimeException)
 167 {
 168     static bool bInit = false;
 169     static uno::Sequence< rtl::OUString > serviceNames( SwVbaGlobals_BASE::getAvailableServiceNames() );
 170     if ( !bInit )
 171     {
 172          rtl::OUString names[] = {
 173             ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM ( "ooo.vba.word.Document" ) ),
 174 //            #FIXME #TODO make Application a proper service
 175 //            ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM ( "ooo.vba.word.Application" ) ),
 176         };
 177         sal_Int32 nWordServices = ( sizeof( names )/ sizeof( names[0] ) );
 178         sal_Int32 startIndex = serviceNames.getLength();
 179         serviceNames.realloc( serviceNames.getLength() + nWordServices );
 180         for ( sal_Int32 index = 0; index < nWordServices; ++index )
 181              serviceNames[ startIndex + index ] = names[ index ];
 182         bInit = true;
 183     }
 184     return serviceNames;
 185 }
 186
 187 namespace globals
 188 {
 189 namespace sdecl = comphelper::service_decl;
 190 sdecl::vba_service_class_<SwVbaGlobals, sdecl::with_args<true> > serviceImpl;
 191 extern sdecl::ServiceDecl const serviceDecl(
 192     serviceImpl,
 193     "SwVbaGlobals",
 194     "ooo.vba.word.Globals" );
 195 }
 196