diff options
author | Tor Lillqvist <tml@collabora.com> | 2018-03-07 14:34:54 +0200 |
---|---|---|
committer | Tor Lillqvist <tml@collabora.com> | 2018-05-30 19:29:49 +0200 |
commit | 4eb739592d0de1cb02a2604c45b60e9453b532b7 (patch) | |
tree | dc7db2790de90552ab43fd5df9405eaf3ebac704 | |
parent | 5afbfd215a108a6bd3b3a8379d789663e1022789 (diff) |
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@libreoffice.org>
Reviewed-by: Tor Lillqvist <tml@collabora.com>
-rw-r--r-- | oovbaapi/ooo/vba/word/XApplication.idl | 1 | ||||
-rw-r--r-- | sw/source/ui/vba/vbaapplication.cxx | 5 | ||||
-rw-r--r-- | sw/source/ui/vba/vbaapplication.hxx | 1 |
3 files changed, 7 insertions, 0 deletions
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; |