diff options
Diffstat (limited to 'wizards/source/scriptforge/SF_Utils.xba')
| -rw-r--r-- | wizards/source/scriptforge/SF_Utils.xba | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/wizards/source/scriptforge/SF_Utils.xba b/wizards/source/scriptforge/SF_Utils.xba index cbe07ce2b0ae..2ca9a6fe09d3 100644 --- a/wizards/source/scriptforge/SF_Utils.xba +++ b/wizards/source/scriptforge/SF_Utils.xba @@ -21,7 +21,7 @@ REM ===================================================================== GLOBAL Global _SF_ As Variant ' SF_Root (Basic) object) ''' ScriptForge version -Const SF_Version = "7.3" +Const SF_Version = "7.4" ''' Standard symbolic names for VarTypes ' V_EMPTY = 0 @@ -415,6 +415,11 @@ Dim oDefaultContext As Object .OfficeLocale.Country = Right(sLocale, 2) End If Set _GetUNOService = .OfficeLocale + Case "PackageInformationProvider" + If IsEmpty(.PackageProvider) Or IsNull(.PackageProvider) Then + Set .PackageProvider = GetDefaultContext.getByName("/singletons/com.sun.star.deployment.PackageInformationProvider") + End If + Set _GetUNOService = .PackageProvider Case "PathSettings" If IsEmpty(.PathSettings) Or IsNull(.PathSettings) Then Set .PathSettings = CreateUnoService("com.sun.star.util.PathSettings") |