sc/source/ui/vba/vbaassistant.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  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19 #include <sfx2/app.hxx>
  20 #include <svtools/helpopt.hxx>
  21
  22 #include <ooo/vba/office/MsoAnimationType.hpp>
  23
  24 #include"vbaassistant.hxx"
  25
  26 using namespace com::sun::star;
  27 using namespace ooo::vba;
  28
  29 using namespace ooo::vba::office::MsoAnimationType;
  30
  31 ScVbaAssistant::ScVbaAssistant( const uno::Reference< XHelperInterface >& rParent, const uno::Reference< uno::XComponentContext >& rContext ): ScVbaAssistantImpl_BASE(rParent, rContext),
  32 m_sName( "Clippit" )
  33 {
  34     m_bIsVisible = false;
  35     m_nPointsLeft = 795;
  36     m_nPointsTop = 248;
  37     m_nAnimation = msoAnimationIdle;
  38 }
  39
  40 ScVbaAssistant::~ScVbaAssistant()
  41 {
  42 }
  43
  44 sal_Bool SAL_CALL ScVbaAssistant::getVisible() throw (uno::RuntimeException, std::exception)
  45 {
  46     return m_bIsVisible;
  47 }
  48
  49 void SAL_CALL ScVbaAssistant::setVisible( sal_Bool bVisible ) throw (uno::RuntimeException, std::exception)
  50 {
  51     m_bIsVisible = bVisible;
  52 }
  53
  54 sal_Bool SAL_CALL ScVbaAssistant::getOn() throw (uno::RuntimeException, std::exception)
  55 {
  56     return false;
  57 }
  58
  59 void SAL_CALL ScVbaAssistant::setOn( sal_Bool bOn ) throw (uno::RuntimeException, std::exception)
  60 {
  61     setVisible( bOn );
  62 }
  63
  64 ::sal_Int32 SAL_CALL
  65 ScVbaAssistant::getTop() throw (css::uno::RuntimeException, std::exception)
  66 {
  67     return m_nPointsTop;
  68 }
  69 void SAL_CALL
  70 ScVbaAssistant::setTop( ::sal_Int32 _top ) throw (css::uno::RuntimeException, std::exception)
  71 {
  72     m_nPointsTop = _top;
  73 }
  74 ::sal_Int32 SAL_CALL
  75 ScVbaAssistant::getLeft() throw (css::uno::RuntimeException, std::exception)
  76 {
  77     return m_nPointsLeft;
  78 }
  79 void SAL_CALL
  80 ScVbaAssistant::setLeft( ::sal_Int32 _left ) throw (css::uno::RuntimeException, std::exception)
  81 {
  82     m_nPointsLeft = _left;
  83 }
  84 ::sal_Int32 SAL_CALL
  85 ScVbaAssistant::getAnimation() throw (css::uno::RuntimeException, std::exception)
  86 {
  87     return m_nAnimation;
  88 }
  89 void SAL_CALL
  90 ScVbaAssistant::setAnimation( ::sal_Int32 _animation ) throw (css::uno::RuntimeException, std::exception)
  91 {
  92     m_nAnimation = _animation;
  93 }
  94
  95 OUString SAL_CALL
  96 ScVbaAssistant::Name(  ) throw (css::script::BasicErrorException, css::uno::RuntimeException, std::exception)
  97 {
  98     return m_sName;
  99 }
 100
 101 OUString
 102 ScVbaAssistant::getServiceImplName()
 103 {
 104     return OUString("ScVbaAssistant");
 105 }
 106
 107 uno::Sequence< OUString >
 108 ScVbaAssistant::getServiceNames()
 109 {
 110     static uno::Sequence< OUString > aServiceNames;
 111     if ( aServiceNames.getLength() == 0 )
 112     {
 113         aServiceNames.realloc( 1 );
 114         aServiceNames[ 0 ] = "ooo.vba.Assistant";
 115     }
 116     return aServiceNames;
 117 }
 118
 119 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */