summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBehrend Cornelius <bc@openoffice.org>2002-11-08 12:58:23 +0000
committerBehrend Cornelius <bc@openoffice.org>2002-11-08 12:58:23 +0000
commit532a29a74f87bdf07d599b411091c4976837741e (patch)
treea157c701f73960e3971e990c66237127b1b60401
parent4e44999fc5c766337a4eea743aa364a5a22f8271 (diff)
#104755# Now "DisposeDocument" called instead of "oDocument.dispose()"
-rw-r--r--wizards/source/template/Samples.xba10
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( &quot;Tools&quot; )
If InitResources(&quot;&apos;Template&apos;&quot;, &quot;tpl&quot;) 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,&quot;_default&quot;,0, mFileProperties())
PrepareForEditing() = oNewDocument
-&apos; If IsFatOffice() Then
- &apos; If opened within a FatOffice Environment close doc.
- &apos; Note: Due to a bug in Web office it is not possible to close the doc there
- oDocument.Dispose()
- &apos; 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