From 338669e096dde90b8c0ea2aafb3a8ca4415caf2f Mon Sep 17 00:00:00 2001
From: Tom Verbeek <tv@openoffice.org>
Date: Wed, 26 Jun 2002 12:41:33 +0000
Subject: #100252# fixed Window handling

---
 wizards/source/template/Correspondence.xba | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'wizards/source/template/Correspondence.xba')

diff --git a/wizards/source/template/Correspondence.xba b/wizards/source/template/Correspondence.xba
index 33a80f58867b..ca4de2b9d2f1 100644
--- a/wizards/source/template/Correspondence.xba
+++ b/wizards/source/template/Correspondence.xba
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
- <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Correspondence" script:language="StarBasic">Option Explicit
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Correspondence" script:language="StarBasic">Option Explicit
 
 Public msgNoTextmark$, msgError$
 Public sAddressbook$
@@ -17,7 +17,6 @@ Sub Main
 	DialogModel.Optmerge.State = True
 	LoadLanguageCorrespondence()
 	TemplateDialog.Execute
-  TemplateDialog.Dispose
 End Sub
 
 
@@ -65,6 +64,9 @@ Dim oFields as Object
 Dim oDocSettings as Object
 
 	bDBFields = DialogModel.Optmerge.State              &apos;database or placeholder
+	
+	TemplateDialog.EndExecute()
+	DialogExited = TRUE
 
 	If bDBFields Then
 		oDBAccess = GetRegistryKeyContent(&quot;org.openoffice.Office.DataAccess/AddressBook/&quot;)
@@ -89,9 +91,6 @@ Dim oDocSettings as Object
 		Table = oDBAccess.GetByName(&quot;Command&quot;)
 	End If
 
-	TemplateDialog.EndExecute()
-	DialogExited = TRUE
-
 	ParaBreak = com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK
   oDocument = ThisComponent
 	If bDBFields Then
-- 
cgit v1.2.3