diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2001-08-21 16:15:07 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2001-08-21 16:15:07 +0000 |
| commit | 0994a0212d520eb57e82b33055bdc7a87bffed8f (patch) | |
| tree | 8dbbda119b9decdbb2e174074f38cf4c4f47b43d /wizards/source/tools | |
| parent | 524d50ec2c4b3d149c6060dba1f2269d55991a9d (diff) | |
#91036# now File/Folderopen Dialogs open with Work Directory as Default
Diffstat (limited to 'wizards/source/tools')
| -rw-r--r-- | wizards/source/tools/ModuleControls.xba | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/wizards/source/tools/ModuleControls.xba b/wizards/source/tools/ModuleControls.xba index d252adda67c6..99b972934a13 100644 --- a/wizards/source/tools/ModuleControls.xba +++ b/wizards/source/tools/ModuleControls.xba @@ -167,6 +167,9 @@ Dim oUcb as object oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess") oFolderDialog = CreateUnoService("com.sun.star.ui.dialogs.FolderPicker") InitPath = ConvertToUrl(oRefModel.Text) + If InitPath = "" Then + InitPath = GetPathSettings("Work") + End If If oUcb.Exists(InitPath) Then oFolderDialog.SetDisplayDirectory(InitPath) End If @@ -193,8 +196,10 @@ Dim oUcb as object 'ListAny(0) = com.sun.star.ui.dialogs.TemplateDescription.FILEOPEN_SIMPLE 'oFileDialog.initialize(ListAny()) AddFiltersToDialog(FilterNames(), oFileDialog) - InitPath = ConvertToUrl(oRefModel.Text) + If InitPath = "" Then + InitPath = GetPathSettings("Work") + End If If oUcb.Exists(InitPath) Then oFileDialog.SetDisplayDirectory(InitPath) End If |