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
SwVbaEventsHelper(uno::Sequence<css::uno::Any> const & aArgs,uno::Reference<uno::XComponentContext> const & xContext)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
~SwVbaEventsHelper()47cdf0e10cSrcweir SwVbaEventsHelper::~SwVbaEventsHelper()
48cdf0e10cSrcweir {
49cdf0e10cSrcweir }
50cdf0e10cSrcweir
implPrepareEvent(EventQueue & rEventQueue,const EventHandlerInfo & rInfo,const uno::Sequence<uno::Any> &)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
implBuildArgumentList(const EventHandlerInfo &,const uno::Sequence<uno::Any> &)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
implPostProcessEvent(EventQueue &,const EventHandlerInfo &,bool)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
implGetDocumentModuleName(const EventHandlerInfo &,const uno::Sequence<uno::Any> &) const82cdf0e10cSrcweir ::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