From f04cc6c05a7e2c0b350e34d3340fd08003b4a4ae Mon Sep 17 00:00:00 2001 From: Behrend Cornelius Date: Wed, 20 Nov 2002 15:48:32 +0000 Subject: #104755# DisposeDocument inserted --- wizards/source/formwizard/FormWizard.xba | 2 +- wizards/source/formwizard/tools.xba | 4 +--- 2 files changed, 2 insertions(+), 4 deletions(-) (limited to 'wizards') 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 -- cgit v1.2.3