[Libreoffice-commits] core.git: oovbaapi/ooo sw/source

[Tor Lillqvist]

 oovbaapi/ooo/vba/word/XApplication.idl |    1 +
 sw/source/ui/vba/vbaapplication.cxx    |    5 +++++
 sw/source/ui/vba/vbaapplication.hxx    |    1 +
 3 files changed, 7 insertions(+)

New commits:
commit 4eb739592d0de1cb02a2604c45b60e9453b532b7
Author: Tor Lillqvist <tml at collabora.com>
Date:   Wed Mar 7 14:34:54 2018 +0200

    Add a (dummy) ooo::vba::word::XApplication::ShowMe() implementation
    
    Some customer VB6 code calls it. It doesn't seem to do anything
    interesting in Word either, so I don't feel that bad for it not doing
    anything in Writer.
    
    Change-Id: I81162fcdd0caa22b19760f8cb40266f7f571d8ce
    Reviewed-on: https://gerrit.libreoffice.org/55069
    Tested-by: Jenkins <ci at libreoffice.org>
    Reviewed-by: Tor Lillqvist <tml at collabora.com>

diff --git a/oovbaapi/ooo/vba/word/XApplication.idl b/oovbaapi/ooo/vba/word/XApplication.idl
index 9de2a98d3483..0d667551e4a3 100644
--- a/oovbaapi/ooo/vba/word/XApplication.idl
+++ b/oovbaapi/ooo/vba/word/XApplication.idl
@@ -46,6 +46,7 @@ interface XApplication : com::sun::star::uno::XInterface
     any Dialogs( [in] any Index );
     any ListGalleries( [in] any aIndex );
     float CentimetersToPoints([in] float Centimeters );
+    void ShowMe();
 };
 
 }; }; };
diff --git a/sw/source/ui/vba/vbaapplication.cxx b/sw/source/ui/vba/vbaapplication.cxx
index 282ca8979bfd..4ffd6766d7af 100644
--- a/sw/source/ui/vba/vbaapplication.cxx
+++ b/sw/source/ui/vba/vbaapplication.cxx
@@ -154,6 +154,11 @@ float SAL_CALL SwVbaApplication::CentimetersToPoints( float Centimeters )
     return VbaApplicationBase::CentimetersToPoints( Centimeters );
 }
 
+void SAL_CALL SwVbaApplication::ShowMe()
+{
+    // No idea what we should or could do
+}
+
 uno::Reference< frame::XModel >
 SwVbaApplication::getCurrentDocument()
 {
diff --git a/sw/source/ui/vba/vbaapplication.hxx b/sw/source/ui/vba/vbaapplication.hxx
index eb9380703316..161a5284d86b 100644
--- a/sw/source/ui/vba/vbaapplication.hxx
+++ b/sw/source/ui/vba/vbaapplication.hxx
@@ -55,6 +55,7 @@ public:
     virtual sal_Int32 SAL_CALL getEnableCancelKey() override;
     virtual void SAL_CALL setEnableCancelKey( sal_Int32 _enableCancelKey ) override;
     virtual float SAL_CALL CentimetersToPoints( float Centimeters ) override;
+    virtual void SAL_CALL ShowMe() override;
     // XHelperInterface
     virtual OUString getServiceImplName() override;
     virtual css::uno::Sequence<OUString> getServiceNames() override;