1*efeef26fSAndrew Rist /************************************************************** 2*efeef26fSAndrew Rist * 3*efeef26fSAndrew Rist * Licensed to the Apache Software Foundation (ASF) under one 4*efeef26fSAndrew Rist * or more contributor license agreements. See the NOTICE file 5*efeef26fSAndrew Rist * distributed with this work for additional information 6*efeef26fSAndrew Rist * regarding copyright ownership. The ASF licenses this file 7*efeef26fSAndrew Rist * to you under the Apache License, Version 2.0 (the 8*efeef26fSAndrew Rist * "License"); you may not use this file except in compliance 9*efeef26fSAndrew Rist * with the License. You may obtain a copy of the License at 10*efeef26fSAndrew Rist * 11*efeef26fSAndrew Rist * http://www.apache.org/licenses/LICENSE-2.0 12*efeef26fSAndrew Rist * 13*efeef26fSAndrew Rist * Unless required by applicable law or agreed to in writing, 14*efeef26fSAndrew Rist * software distributed under the License is distributed on an 15*efeef26fSAndrew Rist * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16*efeef26fSAndrew Rist * KIND, either express or implied. See the License for the 17*efeef26fSAndrew Rist * specific language governing permissions and limitations 18*efeef26fSAndrew Rist * under the License. 19*efeef26fSAndrew Rist * 20*efeef26fSAndrew Rist *************************************************************/ 21*efeef26fSAndrew Rist 22*efeef26fSAndrew Rist 23cdf0e10cSrcweir 24cdf0e10cSrcweir #include "vbaeventshelper.hxx" 25cdf0e10cSrcweir #include <com/sun/star/script/ModuleType.hpp> 26cdf0e10cSrcweir #include <com/sun/star/script/vba/VBAEventId.hpp> 27cdf0e10cSrcweir #include <vbahelper/helperdecl.hxx> 28cdf0e10cSrcweir 29cdf0e10cSrcweir using namespace ::com::sun::star; 30cdf0e10cSrcweir using namespace ::com::sun::star::script::vba::VBAEventId; 31cdf0e10cSrcweir using namespace ::ooo::vba; 32cdf0e10cSrcweir 33cdf0e10cSrcweir // ============================================================================ 34cdf0e10cSrcweir 35cdf0e10cSrcweir SwVbaEventsHelper::SwVbaEventsHelper( uno::Sequence< css::uno::Any > const& aArgs, uno::Reference< uno::XComponentContext > const& xContext ) : 36cdf0e10cSrcweir VbaEventsHelperBase( aArgs, xContext ) 37cdf0e10cSrcweir { 38cdf0e10cSrcweir using namespace ::com::sun::star::script::ModuleType; 39cdf0e10cSrcweir registerEventHandler( DOCUMENT_NEW, DOCUMENT, "Document_New" ); 40cdf0e10cSrcweir registerEventHandler( AUTO_NEW, NORMAL, "AutoNew" ); 41cdf0e10cSrcweir registerEventHandler( DOCUMENT_OPEN, DOCUMENT, "Document_Open" ); 42cdf0e10cSrcweir registerEventHandler( AUTO_OPEN, NORMAL, "AutoOpen" ); 43cdf0e10cSrcweir registerEventHandler( DOCUMENT_CLOSE, DOCUMENT, "Document_Close" ); 44cdf0e10cSrcweir registerEventHandler( AUTO_CLOSE, NORMAL, "AutoClose" ); 45cdf0e10cSrcweir } 46cdf0e10cSrcweir 47cdf0e10cSrcweir SwVbaEventsHelper::~SwVbaEventsHelper() 48cdf0e10cSrcweir { 49cdf0e10cSrcweir } 50cdf0e10cSrcweir 51cdf0e10cSrcweir bool SwVbaEventsHelper::implPrepareEvent( EventQueue& rEventQueue, 52cdf0e10cSrcweir const EventHandlerInfo& rInfo, const uno::Sequence< uno::Any >& /*rArgs*/ ) throw (uno::RuntimeException) 53cdf0e10cSrcweir { 54cdf0e10cSrcweir switch( rInfo.mnEventId ) 55cdf0e10cSrcweir { 56cdf0e10cSrcweir case DOCUMENT_NEW: 57cdf0e10cSrcweir rEventQueue.push_back( AUTO_NEW ); 58cdf0e10cSrcweir break; 59cdf0e10cSrcweir case DOCUMENT_OPEN: 60cdf0e10cSrcweir rEventQueue.push_back( AUTO_OPEN ); 61cdf0e10cSrcweir break; 62cdf0e10cSrcweir case DOCUMENT_CLOSE: 63cdf0e10cSrcweir rEventQueue.push_back( AUTO_CLOSE ); 64cdf0e10cSrcweir break; 65cdf0e10cSrcweir } 66cdf0e10cSrcweir return true; 67cdf0e10cSrcweir } 68cdf0e10cSrcweir 69cdf0e10cSrcweir uno::Sequence< uno::Any > SwVbaEventsHelper::implBuildArgumentList( const EventHandlerInfo& /*rInfo*/, 70cdf0e10cSrcweir const uno::Sequence< uno::Any >& /*rArgs*/ ) throw (lang::IllegalArgumentException) 71cdf0e10cSrcweir { 72cdf0e10cSrcweir // no event handler expects any arguments 73cdf0e10cSrcweir return uno::Sequence< uno::Any >(); 74cdf0e10cSrcweir } 75cdf0e10cSrcweir 76cdf0e10cSrcweir void SwVbaEventsHelper::implPostProcessEvent( EventQueue& /*rEventQueue*/, 77cdf0e10cSrcweir const EventHandlerInfo& /*rInfo*/, bool /*bCancel*/ ) throw (uno::RuntimeException) 78cdf0e10cSrcweir { 79cdf0e10cSrcweir // nothing to do after any event 80cdf0e10cSrcweir } 81cdf0e10cSrcweir 82cdf0e10cSrcweir ::rtl::OUString SwVbaEventsHelper::implGetDocumentModuleName( const EventHandlerInfo& /*rInfo*/, 83cdf0e10cSrcweir const uno::Sequence< uno::Any >& /*rArgs*/ ) const throw (lang::IllegalArgumentException) 84cdf0e10cSrcweir { 85cdf0e10cSrcweir // TODO: get actual codename from document 86cdf0e10cSrcweir return ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "ThisDocument" ) ); 87cdf0e10cSrcweir } 88cdf0e10cSrcweir 89cdf0e10cSrcweir // ============================================================================ 90cdf0e10cSrcweir 91cdf0e10cSrcweir namespace vbaeventshelper 92cdf0e10cSrcweir { 93cdf0e10cSrcweir namespace sdecl = comphelper::service_decl; 94cdf0e10cSrcweir sdecl::class_<SwVbaEventsHelper, sdecl::with_args<true> > serviceImpl; 95cdf0e10cSrcweir extern sdecl::ServiceDecl const serviceDecl( 96cdf0e10cSrcweir serviceImpl, 97cdf0e10cSrcweir "SwVbaEventsHelper", 98cdf0e10cSrcweir "com.sun.star.document.vba.VBATextEventProcessor" ); 99cdf0e10cSrcweir } 100cdf0e10cSrcweir 101cdf0e10cSrcweir // ============================================================================ 102