diff options
| -rw-r--r-- | oovbaapi/ooo/vba/excel/XApplication.idl | 1 | ||||
| -rw-r--r-- | sc/source/ui/vba/vbaapplication.cxx | 8 | ||||
| -rw-r--r-- | sc/source/ui/vba/vbaapplication.hxx | 1 |
3 files changed, 10 insertions, 0 deletions
diff --git a/oovbaapi/ooo/vba/excel/XApplication.idl b/oovbaapi/ooo/vba/excel/XApplication.idl index a8de92208937..153ed8bfc952 100644 --- a/oovbaapi/ooo/vba/excel/XApplication.idl +++ b/oovbaapi/ooo/vba/excel/XApplication.idl @@ -67,6 +67,7 @@ interface XApplication [attribute, readonly] string LibraryPath; [attribute, readonly] string TemplatesPath; [attribute, readonly] string PathSeparator; + [attribute, readonly] string OperatingSystem; void setDefaultFilePath([in] string DefaultFilePath) raises(com::sun::star::script::BasicErrorException); diff --git a/sc/source/ui/vba/vbaapplication.cxx b/sc/source/ui/vba/vbaapplication.cxx index 47b94985dd5b..e678d58a67d4 100644 --- a/sc/source/ui/vba/vbaapplication.cxx +++ b/sc/source/ui/vba/vbaapplication.cxx @@ -914,6 +914,14 @@ ScVbaApplication::getPathSeparator() return OUString( (sal_Unicode) SAL_PATHDELIMITER ); } +OUString SAL_CALL +ScVbaApplication::getOperatingSystem() +{ + // TODO implement + SAL_WARN("sc", "not implemented"); + return OUString(); +} + // Helpers for Intersect and Union namespace { diff --git a/sc/source/ui/vba/vbaapplication.hxx b/sc/source/ui/vba/vbaapplication.hxx index cc995d0b471f..49180d214055 100644 --- a/sc/source/ui/vba/vbaapplication.hxx +++ b/sc/source/ui/vba/vbaapplication.hxx @@ -67,6 +67,7 @@ public: virtual OUString SAL_CALL getPathSeparator() override; virtual OUString SAL_CALL getLibraryPath() override; virtual OUString SAL_CALL getTemplatesPath() override; + virtual OUString SAL_CALL getOperatingSystem() override; virtual OUString SAL_CALL getName() override; virtual sal_Bool SAL_CALL getDisplayAlerts() override; |