summaryrefslogtreecommitdiff
path: root/wizards
diff options
context:
space:
mode:
authorRĂ¼diger Timm <rt@openoffice.org>2003-09-19 07:09:39 +0000
committerRĂ¼diger Timm <rt@openoffice.org>2003-09-19 07:09:39 +0000
commitbd67966266cac9b97a7883556d19d2c6b1d262ef (patch)
tree7c53f9c3172839db5dbcf8f69b018fcf0835bf78 /wizards
parent31becca662c91cdbafa10a5dc33343ace724b2aa (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')
-rw-r--r--wizards/source/tools/Misc.xba7
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
&apos; 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(&quot;com.sun.star.ucb.SimpleFileAccess&quot;)
- oSettings = createUnoService(&quot;com.sun.star.frame.Settings&quot;)
- oPathSettings = oSettings.getByName(&quot;PathSettings&quot;)
+ oPathSettings = createUnoService(&quot;com.sun.star.util.PathSettings&quot;)
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>