diff options
author | Behrend Cornelius <bc@openoffice.org> | 2002-09-03 08:46:05 +0000 |
---|---|---|
committer | Behrend Cornelius <bc@openoffice.org> | 2002-09-03 08:46:05 +0000 |
commit | 3c513867a5f9538014c141a4d9c9867922d53821 (patch) | |
tree | 41b639abd454e9306e5734a1bef685806339956c /wizards/source/tools | |
parent | 17b23e68f3e75c9b9bd3b8964e688044f57770f1 (diff) |
#101991# now storedialog disposed after call
Diffstat (limited to 'wizards/source/tools')
-rw-r--r-- | wizards/source/tools/ModuleControls.xba | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/wizards/source/tools/ModuleControls.xba b/wizards/source/tools/ModuleControls.xba index f9a2561008bd..508239ad97d7 100644 --- a/wizards/source/tools/ModuleControls.xba +++ b/wizards/source/tools/ModuleControls.xba @@ -227,12 +227,14 @@ Dim ListAny(0) as Long Dim UIFilterName as String Dim FilterName as String Dim FilterIndex as Integer - ListAny(0) = com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION_PASSWORD_FILTEROPTIONS + ListAny(0) = com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION_PASSWORD oStoreDialog = CreateUnoService("com.sun.star.ui.dialogs.FilePicker") oStoreDialog.Initialize(ListAny()) AddFiltersToDialog(FilterNames(), oStoreDialog) oStoreDialog.SetDisplayDirectory(DisplayDirectory) oStoreDialog.SetDefaultName(DefaultName) + oStoreDialog.setValue(com.sun.star.ui.dialogs.ExtendedFilePickerElementIds.CHECKBOX_AUTOEXTENSION,0, true) + iAccept = oStoreDialog.Execute() If iAccept = 1 Then sPath = oStoreDialog.Files(0) @@ -255,12 +257,14 @@ Dim FilterIndex as Integer oDocument.StoreAsUrl(sPath, oStoreProperties()) End If End If + oStoreDialog.dispose() StoreDocument() = sPath Exit Function NOSAVING: If Err <> 0 Then ' Msgbox("Document cannot be saved under '" & ConvertFromUrl(sPath) & "'", 48, GetProductName()) sPath = "" + oStoreDialog.dispose() Resume NOERROR NOERROR: End If |