857a334046
Implementation is just a dummy, though. At first I thought that it would work to get the XModel of the "current" document (as returned by getCurrentDocument()), and then get the XFrame of that, and then use the XFrame's getName() and setName(). But, it seems that getCurrentDocument() and what it calls is tightly coupled to StarBasic, and it doesn't do anything sane in the case of Automation clients. Change-Id: I74ded5114ecce06e72862f69d0c06d963e55fd75 Reviewed-on: https://gerrit.libreoffice.org/55064 Tested-by: Jenkins <ci@libreoffice.org> Reviewed-by: Tor Lillqvist <tml@collabora.com>
87 lines
4.6 KiB
C++
87 lines
4.6 KiB
C++
/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
|
|
/*
|
|
* 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_VBAHELPER_VBAAPPLICATIONBASE_HXX
|
|
#define INCLUDED_VBAHELPER_VBAAPPLICATIONBASE_HXX
|
|
|
|
#include <exception>
|
|
#include <memory>
|
|
|
|
#include <com/sun/star/uno/Any.hxx>
|
|
#include <com/sun/star/uno/Reference.hxx>
|
|
#include <com/sun/star/uno/RuntimeException.hpp>
|
|
#include <com/sun/star/uno/Sequence.hxx>
|
|
#include <ooo/vba/XApplicationBase.hpp>
|
|
#include <rtl/ustring.hxx>
|
|
#include <sal/types.h>
|
|
#include <vbahelper/vbadllapi.h>
|
|
#include <vbahelper/vbahelper.hxx>
|
|
#include <vbahelper/vbahelperinterface.hxx>
|
|
|
|
namespace com { namespace sun { namespace star {
|
|
namespace frame { class XModel; }
|
|
namespace uno { class XComponentContext; }
|
|
} } }
|
|
|
|
typedef InheritedHelperInterfaceWeakImpl< ov::XApplicationBase > ApplicationBase_BASE;
|
|
|
|
struct VbaApplicationBase_Impl;
|
|
|
|
class VBAHELPER_DLLPUBLIC VbaApplicationBase : public ApplicationBase_BASE
|
|
{
|
|
std::unique_ptr<VbaApplicationBase_Impl> m_pImpl;
|
|
|
|
protected:
|
|
VbaApplicationBase( const css::uno::Reference< css::uno::XComponentContext >& xContext );
|
|
virtual ~VbaApplicationBase() override;
|
|
|
|
/// @throws css::uno::RuntimeException
|
|
virtual css::uno::Reference< css::frame::XModel > getCurrentDocument() = 0;
|
|
public:
|
|
// XHelperInterface ( parent is itself )
|
|
virtual css::uno::Reference< ov::XHelperInterface > SAL_CALL getParent( ) override { return this; }
|
|
|
|
virtual sal_Bool SAL_CALL getScreenUpdating() override;
|
|
virtual void SAL_CALL setScreenUpdating(sal_Bool bUpdate) override;
|
|
virtual sal_Bool SAL_CALL getDisplayStatusBar() override;
|
|
virtual void SAL_CALL setDisplayStatusBar(sal_Bool bDisplayStatusBar) override;
|
|
virtual sal_Bool SAL_CALL getInteractive() override;
|
|
virtual void SAL_CALL setInteractive( sal_Bool bInteractive ) override;
|
|
virtual sal_Bool SAL_CALL getVisible() override;
|
|
virtual void SAL_CALL setVisible( sal_Bool bVisible ) override;
|
|
virtual OUString SAL_CALL getCaption() override;
|
|
virtual void SAL_CALL setCaption( const OUString& sCaption ) override;
|
|
virtual void SAL_CALL OnKey( const OUString& Key, const css::uno::Any& Procedure ) override;
|
|
virtual css::uno::Any SAL_CALL CommandBars( const css::uno::Any& aIndex ) override;
|
|
virtual OUString SAL_CALL getVersion() override;
|
|
virtual css::uno::Any SAL_CALL getVBE() override;
|
|
|
|
virtual css::uno::Any SAL_CALL Run( const OUString& MacroName, const css::uno::Any& varg1, const css::uno::Any& varg2, const css::uno::Any& varg3, const css::uno::Any& varg4, const css::uno::Any& varg5, const css::uno::Any& varg6, const css::uno::Any& varg7, const css::uno::Any& varg8, const css::uno::Any& varg9, const css::uno::Any& varg10, const css::uno::Any& varg11, const css::uno::Any& varg12, const css::uno::Any& varg13, const css::uno::Any& varg14, const css::uno::Any& varg15, const css::uno::Any& varg16, const css::uno::Any& varg17, const css::uno::Any& varg18, const css::uno::Any& varg19, const css::uno::Any& varg20, const css::uno::Any& varg21, const css::uno::Any& varg22, const css::uno::Any& varg23, const css::uno::Any& varg24, const css::uno::Any& varg25, const css::uno::Any& varg26, const css::uno::Any& varg27, const css::uno::Any& varg28, const css::uno::Any& varg29, const css::uno::Any& varg30 ) override;
|
|
virtual void SAL_CALL OnTime( const css::uno::Any& aEarliestTime, const OUString& aFunction, const css::uno::Any& aLatestTime, const css::uno::Any& aSchedule ) override;
|
|
virtual float SAL_CALL CentimetersToPoints( float Centimeters ) override;
|
|
virtual void SAL_CALL Undo() override;
|
|
virtual void SAL_CALL Quit() override;
|
|
|
|
// XHelperInterface
|
|
virtual OUString getServiceImplName() override;
|
|
virtual css::uno::Sequence<OUString> getServiceNames() override;
|
|
};
|
|
#endif
|
|
|
|
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|