Kaydet (Commit) 50f4e188 authored tarafından Tamas Bunth's avatar Tamas Bunth Kaydeden (comit) Tamás Bunth

oovbaapi: add Application.OperatingSystem property

stub

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

Change-Id: I2ccf17c698eb631e7b5ca420752b2268d2142d2a
Reviewed-on: https://gerrit.libreoffice.org/39208Tested-by: 's avatarJenkins <ci@libreoffice.org>
Reviewed-by: 's avatarTamás Bunth <btomi96@gmail.com>
üst 521d8d91
...@@ -67,6 +67,7 @@ interface XApplication ...@@ -67,6 +67,7 @@ interface XApplication
[attribute, readonly] string LibraryPath; [attribute, readonly] string LibraryPath;
[attribute, readonly] string TemplatesPath; [attribute, readonly] string TemplatesPath;
[attribute, readonly] string PathSeparator; [attribute, readonly] string PathSeparator;
[attribute, readonly] string OperatingSystem;
void setDefaultFilePath([in] string DefaultFilePath) raises(com::sun::star::script::BasicErrorException); void setDefaultFilePath([in] string DefaultFilePath) raises(com::sun::star::script::BasicErrorException);
......
...@@ -914,6 +914,14 @@ ScVbaApplication::getPathSeparator() ...@@ -914,6 +914,14 @@ ScVbaApplication::getPathSeparator()
return OUString( (sal_Unicode) SAL_PATHDELIMITER ); 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 // Helpers for Intersect and Union
namespace { namespace {
......
...@@ -67,6 +67,7 @@ public: ...@@ -67,6 +67,7 @@ public:
virtual OUString SAL_CALL getPathSeparator() override; virtual OUString SAL_CALL getPathSeparator() override;
virtual OUString SAL_CALL getLibraryPath() override; virtual OUString SAL_CALL getLibraryPath() override;
virtual OUString SAL_CALL getTemplatesPath() override; virtual OUString SAL_CALL getTemplatesPath() override;
virtual OUString SAL_CALL getOperatingSystem() override;
virtual OUString SAL_CALL getName() override; virtual OUString SAL_CALL getName() override;
virtual sal_Bool SAL_CALL getDisplayAlerts() override; virtual sal_Bool SAL_CALL getDisplayAlerts() override;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment