diff options
author | Behrend Cornelius <bc@openoffice.org> | 2002-11-08 12:58:23 +0000 |
---|---|---|
committer | Behrend Cornelius <bc@openoffice.org> | 2002-11-08 12:58:23 +0000 |
commit | 532a29a74f87bdf07d599b411091c4976837741e (patch) | |
tree | a157c701f73960e3971e990c66237127b1b60401 | |
parent | 4e44999fc5c766337a4eea743aa364a5a22f8271 (diff) |
#104755# Now "DisposeDocument" called instead of "oDocument.dispose()"
-rw-r--r-- | wizards/source/template/Samples.xba | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/wizards/source/template/Samples.xba b/wizards/source/template/Samples.xba index 26e7e6be85d1..b6bb3e1d0155 100644 --- a/wizards/source/template/Samples.xba +++ b/wizards/source/template/Samples.xba @@ -37,7 +37,7 @@ Dim mFileProperties(0) as New com.sun.star.beans.PropertyValue BasicLibraries.LoadLibrary( "Tools" ) If InitResources("'Template'", "tpl") then If IsMissing(oDocument) Then - oDocument = ThisComponent + oDocument = ThisComponent End If If oDocument.IsReadOnly then MMessage = GetResText(SAMPLES) @@ -49,11 +49,7 @@ Dim mFileProperties(0) as New com.sun.star.beans.PropertyValue mFileProperties(0).Value = True oNewDocument = StarDesktop.LoadComponentFromURL(DocPath,"_default",0, mFileProperties()) PrepareForEditing() = oNewDocument -' If IsFatOffice() Then - ' If opened within a FatOffice Environment close doc. - ' Note: Due to a bug in Web office it is not possible to close the doc there - oDocument.Dispose() - ' End If + DisposeDocument(oDocument) Else PrepareForEditing() = NULL End If @@ -177,4 +173,4 @@ Sub KillTempFile() End If End Sub -</script:module> +</script:module>
\ No newline at end of file |