diff options
author | RĂ¼diger Timm <rt@openoffice.org> | 2003-09-19 07:09:39 +0000 |
---|---|---|
committer | RĂ¼diger Timm <rt@openoffice.org> | 2003-09-19 07:09:39 +0000 |
commit | bd67966266cac9b97a7883556d19d2c6b1d262ef (patch) | |
tree | 7c53f9c3172839db5dbcf8f69b018fcf0835bf78 /wizards/source/tools | |
parent | 31becca662c91cdbafa10a5dc33343ace724b2aa (diff) |
INTEGRATION: CWS fwkq1 (1.30.60); FILE MERGED
2003/08/22 15:31:53 mba 1.30.60.1: #110843#: service name changed
Diffstat (limited to 'wizards/source/tools')
-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> |