diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2001-08-30 12:15:37 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2001-08-30 12:15:37 +0000 |
| commit | 565d8433aff68c5912c63947419ef54053ebdc29 (patch) | |
| tree | 749d11a75c237cc43a843300b9760c2ae097750a /wizards/source/tools | |
| parent | 6eccbb9a0c5f2088b1d522f10af8373aed289ee6 (diff) | |
#91711# Filedialog and folderDialog Routines modified
Diffstat (limited to 'wizards/source/tools')
| -rw-r--r-- | wizards/source/tools/ModuleControls.xba | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/wizards/source/tools/ModuleControls.xba b/wizards/source/tools/ModuleControls.xba index 99b972934a13..defcf3ed9612 100644 --- a/wizards/source/tools/ModuleControls.xba +++ b/wizards/source/tools/ModuleControls.xba @@ -164,8 +164,10 @@ Dim sPath as String Dim InitPath as String Dim RefControlName as String Dim oUcb as object - oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess") + 'Note: The following services have to be called in the following order + ' because otherwise Basic does not remove the FolderDialog Service oFolderDialog = CreateUnoService("com.sun.star.ui.dialogs.FolderPicker") + oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess") InitPath = ConvertToUrl(oRefModel.Text) If InitPath = "" Then InitPath = GetPathSettings("Work") @@ -191,8 +193,10 @@ Dim InitPath as String Dim RefControlName as String Dim oUcb as object 'Dim ListAny(0) - oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess") + 'Note: The following services have to be called in the following order + ' because otherwise Basic does not remove the FileDialog Service oFileDialog = CreateUnoService("com.sun.star.ui.dialogs.FilePicker") + oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess") 'ListAny(0) = com.sun.star.ui.dialogs.TemplateDescription.FILEOPEN_SIMPLE 'oFileDialog.initialize(ListAny()) AddFiltersToDialog(FilterNames(), oFileDialog) @@ -249,7 +253,7 @@ Dim FilterIndex as Integer End Function -Sub AddFiltersToDialog(FilterNames() as String, oDialog as Object) +Sub AddFiltersToDialog(FilterNames() as String, oDialog as Object) Dim i as Integer Dim MaxIndex as Integer MaxIndex = Ubound(FilterNames(), 1) @@ -260,4 +264,4 @@ Dim MaxIndex as Integer End Sub -</script:module>
\ No newline at end of file +</script:module> |