diff options
| -rw-r--r-- | wizards/source/tools/Misc.xba | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba index a1c6f5f0a88a..e4891c209a4c 100644 --- a/wizards/source/tools/Misc.xba +++ b/wizards/source/tools/Misc.xba @@ -177,14 +177,13 @@ End Function ' Gets a special configured PathSetting Function GetPathSettings(sPathType as String, Optional bshowall as Boolean, Optional ListIndex as integer) as String -Dim oSettings, oPathSettings as Object +Dim oPathSettings as Object Dim sPath as String Dim PathList() as String Dim MaxIndex as Integer Dim oUcb as Object oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess") - oSettings = createUnoService("com.sun.star.frame.Settings") - oPathSettings = oSettings.getByName("PathSettings") + oPathSettings = createUnoService("com.sun.star.util.PathSettings") If Not IsMissing(bShowall) Then If bShowAll Then ShowPropertyValues(oPathSettings) @@ -807,4 +806,4 @@ Dim oFrame as Object End If End Sub -</script:module>
\ No newline at end of file +</script:module> |