d1601e5d95
Just a dummy implementation so far. Needed because customer Automation client software seems to access it (through the very obsolete WordBasic API, even). It remains to be seen whether any actual mail merge functionality is needed. Change-Id: I40419da544f61173e4bcf759b887997c7f233b02 Reviewed-on: https://gerrit.libreoffice.org/55727 Tested-by: Jenkins <ci@libreoffice.org> Reviewed-by: Tor Lillqvist <tml@collabora.com>
118 lines
5.7 KiB
C++
118 lines
5.7 KiB
C++
/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4; fill-column: 100 -*- */
|
|
/*
|
|
* This file is part of the LibreOffice project.
|
|
*
|
|
* This Source Code Form is subject to the terms of the Mozilla Public
|
|
* License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
*
|
|
* This file incorporates work covered by the following license notice:
|
|
*
|
|
* Licensed to the Apache Software Foundation (ASF) under one or more
|
|
* contributor license agreements. See the NOTICE file distributed
|
|
* with this work for additional information regarding copyright
|
|
* ownership. The ASF licenses this file to you under the Apache
|
|
* License, Version 2.0 (the "License"); you may not use this file
|
|
* except in compliance with the License. You may obtain a copy of
|
|
* the License at http://www.apache.org/licenses/LICENSE-2.0 .
|
|
*/
|
|
#ifndef INCLUDED_SW_SOURCE_UI_VBA_VBAAPPLICATION_HXX
|
|
#define INCLUDED_SW_SOURCE_UI_VBA_VBAAPPLICATION_HXX
|
|
|
|
#include <vector>
|
|
|
|
#include <ooo/vba/XSink.hpp>
|
|
#include <ooo/vba/XSinkCaller.hpp>
|
|
#include <ooo/vba/word/XApplication.hpp>
|
|
#include <ooo/vba/word/XDocument.hpp>
|
|
#include <ooo/vba/word/XWindow.hpp>
|
|
#include <ooo/vba/word/XSystem.hpp>
|
|
#include <ooo/vba/word/XOptions.hpp>
|
|
#include <ooo/vba/word/XSelection.hpp>
|
|
#include <ooo/vba/word/XAddins.hpp>
|
|
#include <vbahelper/vbahelperinterface.hxx>
|
|
#include <vbahelper/vbaapplicationbase.hxx>
|
|
#include <cppuhelper/implbase.hxx>
|
|
|
|
#include "vbawindow.hxx"
|
|
|
|
typedef cppu::ImplInheritanceHelper< VbaApplicationBase, ooo::vba::word::XApplication, ooo::vba::XSinkCaller > SwVbaApplication_BASE;
|
|
|
|
// This class is currently not a singleton. One instance is created per document with (potential?)
|
|
// StarBasic code in it, I think, and a shared one for all Automation clients connected to the
|
|
// ooo::vba::word::Application (Writer.Application) service. (Of course it probably is not common to
|
|
// have several Automation clients at once.)
|
|
|
|
// Should it be a true singleton? Hard to say. Anyway, it is actually the SwVbaGlobals class that
|
|
// should be a singleton in that case, I think.
|
|
|
|
class SwVbaApplication : public SwVbaApplication_BASE
|
|
{
|
|
std::vector<css::uno::Reference< ooo::vba::XSink >> mvSinks;
|
|
|
|
public:
|
|
explicit SwVbaApplication( css::uno::Reference< css::uno::XComponentContext >& xContext );
|
|
virtual ~SwVbaApplication() override;
|
|
|
|
sal_uInt32 AddSink( const css::uno::Reference< ooo::vba::XSink >& xSink );
|
|
void RemoveSink( sal_uInt32 nNumber );
|
|
|
|
SwVbaWindow* getActiveSwVbaWindow();
|
|
css::uno::Reference< css::uno::XComponentContext > getContext();
|
|
|
|
// XApplication
|
|
virtual OUString SAL_CALL getName() override;
|
|
virtual css::uno::Reference< ooo::vba::word::XSystem > SAL_CALL getSystem() override;
|
|
virtual css::uno::Reference< ov::word::XDocument > SAL_CALL getActiveDocument() override;
|
|
virtual css::uno::Reference< ov::word::XWindow > SAL_CALL getActiveWindow() override;
|
|
virtual css::uno::Reference< ooo::vba::word::XOptions > SAL_CALL getOptions() override;
|
|
virtual css::uno::Reference< ooo::vba::word::XSelection > SAL_CALL getSelection() override;
|
|
virtual css::uno::Reference< ooo::vba::word::XWordBasic > SAL_CALL getWordBasic() override;
|
|
virtual css::uno::Any SAL_CALL CommandBars( const css::uno::Any& aIndex ) override;
|
|
virtual css::uno::Any SAL_CALL Documents( const css::uno::Any& aIndex ) override;
|
|
virtual css::uno::Any SAL_CALL Addins( const css::uno::Any& aIndex ) override;
|
|
virtual css::uno::Any SAL_CALL Dialogs( const css::uno::Any& aIndex ) override;
|
|
virtual css::uno::Any SAL_CALL ListGalleries( const css::uno::Any& aIndex ) override;
|
|
virtual sal_Bool SAL_CALL getDisplayAutoCompleteTips() override;
|
|
virtual void SAL_CALL setDisplayAutoCompleteTips( sal_Bool _displayAutoCompleteTips ) override;
|
|
virtual sal_Int32 SAL_CALL getEnableCancelKey() override;
|
|
virtual void SAL_CALL setEnableCancelKey( sal_Int32 _enableCancelKey ) override;
|
|
virtual sal_Int32 SAL_CALL getWindowState() override;
|
|
virtual void SAL_CALL setWindowState( sal_Int32 _windowstate ) override;
|
|
virtual sal_Int32 SAL_CALL getWidth() override;
|
|
virtual void SAL_CALL setWidth( sal_Int32 _width ) override;
|
|
virtual sal_Int32 SAL_CALL getHeight() override;
|
|
virtual void SAL_CALL setHeight( sal_Int32 _height ) override;
|
|
virtual sal_Int32 SAL_CALL getLeft() override;
|
|
virtual void SAL_CALL setLeft( sal_Int32 _left ) override;
|
|
virtual sal_Int32 SAL_CALL getTop() override;
|
|
virtual void SAL_CALL setTop( sal_Int32 _top ) override;
|
|
virtual OUString SAL_CALL getStatusBar() override;
|
|
virtual void SAL_CALL setStatusBar( const OUString& _statusbar ) override;
|
|
virtual float SAL_CALL CentimetersToPoints( float Centimeters ) override;
|
|
virtual void SAL_CALL ShowMe() override;
|
|
virtual void SAL_CALL Resize( sal_Int32 Width, sal_Int32 Height ) override;
|
|
virtual void SAL_CALL Move( sal_Int32 Left, sal_Int32 Top ) override;
|
|
|
|
// XInterfaceWithIID
|
|
virtual OUString SAL_CALL getIID() override;
|
|
|
|
// XConnectable
|
|
virtual OUString SAL_CALL GetIIDForClassItselfNotCoclass() override;
|
|
virtual ov::TypeAndIID SAL_CALL GetConnectionPoint() override;
|
|
virtual css::uno::Reference<ov::XConnectionPoint> SAL_CALL FindConnectionPoint() override;
|
|
|
|
// XHelperInterface
|
|
virtual OUString getServiceImplName() override;
|
|
virtual css::uno::Sequence<OUString> getServiceNames() override;
|
|
|
|
// XSinkCaller
|
|
virtual void SAL_CALL CallSinks( const OUString& Method, css::uno::Sequence< css::uno::Any >& Arguments ) override;
|
|
|
|
protected:
|
|
virtual css::uno::Reference< css::frame::XModel > getCurrentDocument() override;
|
|
};
|
|
#endif // INCLUDED_SW_SOURCE_UI_VBA_VBAAPPLICATION_HXX
|
|
|
|
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|