diff options
| -rw-r--r-- | sc/source/ui/vba/vbaapplication.cxx | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/sc/source/ui/vba/vbaapplication.cxx b/sc/source/ui/vba/vbaapplication.cxx index e678d58a67d4..f751ccff7f65 100644 --- a/sc/source/ui/vba/vbaapplication.cxx +++ b/sc/source/ui/vba/vbaapplication.cxx @@ -917,9 +917,18 @@ ScVbaApplication::getPathSeparator() OUString SAL_CALL ScVbaApplication::getOperatingSystem() { - // TODO implement - SAL_WARN("sc", "not implemented"); - return OUString(); + // TODO Solution should contain the version number of the operating system + // too. +#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 |