mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

oovbaapi: implement Application.GetOperatingSystem

Browse Source 
Without version number of the system for now.

Documentation:
https://msdn.microsoft.com/en-us/vba/excel-vba/articles/application-operatingsystem-property-excel

Change-Id: I0c76ea3909ecaa3896823136b3a3ebf2a2fdb4d1
Reviewed-on: https://gerrit.libreoffice.org/39383
Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Tamás Bunth <btomi96@gmail.com>
This commit is contained in:
Tamas Bunth
2017-06-29 11:46:31 +02:00
committed by Tamás Bunth
parent 489a6ba4aa
commit 5c5a49eda1
1 changed files with 12 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
sc/source/ui/vba/vbaapplication.cxx
View File

@@ -917,9 +917,18 @@ ScVbaApplication::getPathSeparator()
OUString SAL_CALL OUString SAL_CALL
ScVbaApplication::getOperatingSystem() ScVbaApplication::getOperatingSystem()
{ {
// TODO implement // TODO Solution should contain the version number of the operating system
SAL_WARN("sc", "not implemented"); // too.
return OUString(); #if defined(_WIN32)
return OUString("Windows");
#elif defined(MACOSX)
return OUString("Macintosh");
#elif defined(UNX)
// M. Office is not available on Unix systems, so it is not documented.
return OUString("Unix");
#else
return OUString("Unknown");
#endif
} }
// Helpers for Intersect and Union // Helpers for Intersect and Union