#91535# StoreDocument routine now returns a String

This commit is contained in:
Behrend Cornelius 2001-08-31 14:15:51 +00:00
parent 21aa08b7d7
commit 6b38d974b6

View file

@ -165,7 +165,7 @@ Dim InitPath as String
Dim RefControlName as String
Dim oUcb as object
'Note: The following services have to be called in the following order
' because otherwise Basic does not remove the FolderDialog Service
' because otherwise Basic does not remove the FileDialog Service
oFolderDialog = CreateUnoService("com.sun.star.ui.dialogs.FolderPicker")
oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess")
InitPath = ConvertToUrl(oRefModel.Text)
@ -194,7 +194,7 @@ Dim RefControlName as String
Dim oUcb as object
'Dim ListAny(0)
'Note: The following services have to be called in the following order
' because otherwise Basic does not remove the FileDialog Service
' 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
@ -217,7 +217,7 @@ Dim oUcb as object
End Sub
Function StoreDocument(oDocument as Object, FilterNames() as String, DefaultName as String, DisplayDirectory as String)
Function StoreDocument(oDocument as Object, FilterNames() as String, DefaultName as String, DisplayDirectory as String) as String
Dim NoArgs() as New com.sun.star.beans.PropertyValue
Dim oStoreProperties(0) as New com.sun.star.beans.PropertyValue
Dim oStoreDialog as Object
@ -246,14 +246,12 @@ Dim FilterIndex as Integer
oStoreProperties(0).Value = FilterName
oDocument.StoreAsUrl(sPath, oStoreProperties())
End If
StoreDocument() = True
Else
StoreDocument() = False
End If
StoreDocument() = sPath
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)
@ -264,4 +262,4 @@ Dim MaxIndex as Integer
End Sub
</script:module>
</script:module>