summaryrefslogtreecommitdiff
path: root/wizards/source
diff options
context:
space:
mode:
Diffstat (limited to 'wizards/source')
-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( "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