summaryrefslogtreecommitdiff
path: root/wizards
diff options
context:
space:
mode:
authorBehrend Cornelius <bc@openoffice.org>2002-11-20 15:48:32 +0000
committerBehrend Cornelius <bc@openoffice.org>2002-11-20 15:48:32 +0000
commitf04cc6c05a7e2c0b350e34d3340fd08003b4a4ae (patch)
tree962cb318ca840e80b219f67e26e49a48d22ea2e5 /wizards
parentcd8c3058dce2b2fafc3805d307f43d55d03e0931 (diff)
#104755# DisposeDocument inserted
Diffstat (limited to 'wizards')
-rw-r--r--wizards/source/formwizard/FormWizard.xba2
-rw-r--r--wizards/source/formwizard/tools.xba4
2 files changed, 2 insertions, 4 deletions
diff --git a/wizards/source/formwizard/FormWizard.xba b/wizards/source/formwizard/FormWizard.xba
index 2464769f9c2b..38ef1d381419 100644
--- a/wizards/source/formwizard/FormWizard.xba
+++ b/wizards/source/formwizard/FormWizard.xba
@@ -168,7 +168,7 @@ Dim SelList(0) as Integer
oDBConnection.Dispose()
End If
If bDisposeDoc Then
- oDocument.Dispose()
+ DisposeDocument(oDocument)
ElseIf RetValue = 0 Then
RemoveNirwanaShapes()
End If
diff --git a/wizards/source/formwizard/tools.xba b/wizards/source/formwizard/tools.xba
index 63af3bff9393..fddd6e4560b3 100644
--- a/wizards/source/formwizard/tools.xba
+++ b/wizards/source/formwizard/tools.xba
@@ -319,9 +319,7 @@ Function GetFormWizardPaths() as Boolean
End If
End If
End If
- If Not IsNull(oDocument) Then
- oDocument.dispose()
- End If
+ DisposeDocument(oDocument)
GetFormWizardPaths() = False
End Function