From 4eb739592d0de1cb02a2604c45b60e9453b532b7 Mon Sep 17 00:00:00 2001 From: Tor Lillqvist Date: Wed, 7 Mar 2018 14:34:54 +0200 Subject: 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 Reviewed-by: 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(+) 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 getServiceNames() override; -- cgit