diff options
author | Tom Verbeek <tv@openoffice.org> | 2002-06-26 12:41:33 +0000 |
---|---|---|
committer | Tom Verbeek <tv@openoffice.org> | 2002-06-26 12:41:33 +0000 |
commit | 338669e096dde90b8c0ea2aafb3a8ca4415caf2f (patch) | |
tree | 35fff75668faae77d386b37871adee34285addd2 /wizards/source/template/Correspondence.xba | |
parent | e5aef8f74bfa29dab569924a9e638a5e8e6765d9 (diff) |
#100252# fixed Window handling
Diffstat (limited to 'wizards/source/template/Correspondence.xba')
-rw-r--r-- | wizards/source/template/Correspondence.xba | 9 |
1 files changed, 4 insertions, 5 deletions
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 'database or placeholder + + TemplateDialog.EndExecute() + DialogExited = TRUE If bDBFields Then oDBAccess = GetRegistryKeyContent("org.openoffice.Office.DataAccess/AddressBook/") @@ -89,9 +91,6 @@ Dim oDocSettings as Object Table = oDBAccess.GetByName("Command") End If - TemplateDialog.EndExecute() - DialogExited = TRUE - ParaBreak = com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK oDocument = ThisComponent If bDBFields Then |