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 20 #include <ooo/vba/office/MsoAnimationType.hpp> 21 22 #include"vbaassistant.hxx" 23 24 using namespace com::sun::star; 25 using namespace ooo::vba; 26 27 using namespace ooo::vba::office::MsoAnimationType; 28 29 static constexpr OUStringLiteral g_sName = "Clippit"; 30 ScVbaAssistant(const uno::Reference<XHelperInterface> & rParent,const uno::Reference<uno::XComponentContext> & rContext)31ScVbaAssistant::ScVbaAssistant( const uno::Reference< XHelperInterface >& rParent, const uno::Reference< uno::XComponentContext >& rContext ): ScVbaAssistantImpl_BASE(rParent, rContext) 32 { 33 m_bIsVisible = false; 34 m_nPointsLeft = 795; 35 m_nPointsTop = 248; 36 m_nAnimation = msoAnimationIdle; 37 } 38 ~ScVbaAssistant()39ScVbaAssistant::~ScVbaAssistant() 40 { 41 } 42 getVisible()43sal_Bool SAL_CALL ScVbaAssistant::getVisible() 44 { 45 return m_bIsVisible; 46 } 47 setVisible(sal_Bool bVisible)48void SAL_CALL ScVbaAssistant::setVisible( sal_Bool bVisible ) 49 { 50 m_bIsVisible = bVisible; 51 } 52 getOn()53sal_Bool SAL_CALL ScVbaAssistant::getOn() 54 { 55 return false; 56 } 57 setOn(sal_Bool bOn)58void SAL_CALL ScVbaAssistant::setOn( sal_Bool bOn ) 59 { 60 setVisible( bOn ); 61 } 62 63 ::sal_Int32 SAL_CALL getTop()64ScVbaAssistant::getTop() 65 { 66 return m_nPointsTop; 67 } 68 void SAL_CALL setTop(::sal_Int32 _top)69ScVbaAssistant::setTop( ::sal_Int32 _top ) 70 { 71 m_nPointsTop = _top; 72 } 73 ::sal_Int32 SAL_CALL getLeft()74ScVbaAssistant::getLeft() 75 { 76 return m_nPointsLeft; 77 } 78 void SAL_CALL setLeft(::sal_Int32 _left)79ScVbaAssistant::setLeft( ::sal_Int32 _left ) 80 { 81 m_nPointsLeft = _left; 82 } 83 ::sal_Int32 SAL_CALL getAnimation()84ScVbaAssistant::getAnimation() 85 { 86 return m_nAnimation; 87 } 88 void SAL_CALL setAnimation(::sal_Int32 _animation)89ScVbaAssistant::setAnimation( ::sal_Int32 _animation ) 90 { 91 m_nAnimation = _animation; 92 } 93 94 OUString SAL_CALL Name()95ScVbaAssistant::Name( ) 96 { 97 return g_sName; 98 } 99 100 OUString getServiceImplName()101ScVbaAssistant::getServiceImplName() 102 { 103 return "ScVbaAssistant"; 104 } 105 106 uno::Sequence< OUString > getServiceNames()107ScVbaAssistant::getServiceNames() 108 { 109 static uno::Sequence< OUString > const aServiceNames 110 { 111 "ooo.vba.Assistant" 112 }; 113 return aServiceNames; 114 } 115 116 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */ 117