sc/source/ui/vba/vbamenuitem.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  */
   9 #include "vbamenuitem.hxx"
  10
  11 using namespace com::sun::star;
  12 using namespace ooo::vba;
  13
  14 ScVbaMenuItem::ScVbaMenuItem( const uno::Reference< ov::XHelperInterface > xParent, const uno::Reference< uno::XComponentContext > xContext, const uno::Reference< XCommandBarControl >& xCommandBarControl ) throw( uno::RuntimeException ) : MenuItem_BASE( xParent, xContext ), m_xCommandBarControl( xCommandBarControl )
  15 {
  16 }
  17
  18 OUString SAL_CALL
  19 ScVbaMenuItem::getCaption() throw ( uno::RuntimeException )
  20 {
  21     return m_xCommandBarControl->getCaption();
  22 }
  23
  24 void SAL_CALL
  25 ScVbaMenuItem::setCaption( const OUString& _caption ) throw (uno::RuntimeException)
  26 {
  27     m_xCommandBarControl->setCaption( _caption );
  28 }
  29
  30 OUString SAL_CALL
  31 ScVbaMenuItem::getOnAction() throw ( uno::RuntimeException )
  32 {
  33     return m_xCommandBarControl->getOnAction();
  34 }
  35
  36 void SAL_CALL
  37 ScVbaMenuItem::setOnAction( const OUString& _onaction ) throw (uno::RuntimeException)
  38 {
  39     m_xCommandBarControl->setOnAction( _onaction );
  40 }
  41
  42 void SAL_CALL
  43 ScVbaMenuItem::Delete( ) throw (script::BasicErrorException, uno::RuntimeException)
  44 {
  45     m_xCommandBarControl->Delete();
  46 }
  47
  48 OUString
  49 ScVbaMenuItem::getServiceImplName()
  50 {
  51     return OUString("ScVbaMenuItem");
  52 }
  53
  54 uno::Sequence<OUString>
  55 ScVbaMenuItem::getServiceNames()
  56 {
  57     static uno::Sequence< OUString > aServiceNames;
  58     if ( aServiceNames.getLength() == 0 )
  59     {
  60         aServiceNames.realloc( 1 );
  61         aServiceNames[ 0 ] = "ooo.vba.excel.MenuItem";
  62     }
  63     return aServiceNames;
  64 }
  65
  66 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */