diff options
| author | Rüdiger Timm <rt@openoffice.org> | 2005-01-28 14:57:24 +0000 |
|---|---|---|
| committer | Rüdiger Timm <rt@openoffice.org> | 2005-01-28 14:57:24 +0000 |
| commit | 011df91d6ef917f040373fbd0f95cb3933b2ca2f (patch) | |
| tree | ca9a8d986461f59e64af41000ecd385552c10c5d /wizards/source | |
| parent | 7bbc13c17c1c79c2a4135413f93fdeac4171a7d0 (diff) | |
INTEGRATION: CWS extras16 (1.30.74); FILE MERGED
2005/01/10 11:41:27 ih 1.30.74.1: #i40009# default document and dialog is closed before opening logfile
Diffstat (limited to 'wizards/source')
| -rw-r--r-- | wizards/source/importwizard/Main.xba | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/wizards/source/importwizard/Main.xba b/wizards/source/importwizard/Main.xba index b26d4c56e..ee230a52b 100644 --- a/wizards/source/importwizard/Main.xba +++ b/wizards/source/importwizard/Main.xba @@ -7,7 +7,7 @@ Public HeaderPreviews(4) as Object Public ImportDialog as Object Public ImportDialogArea as Object Public oFactoryKey as Object - +Public bShowLogFile as Boolean ' If the ProgressPage ist already on Top The Dialog will be immediately closed when this flag is ' set to False @@ -15,6 +15,8 @@ Public bConversionIsRunning as Boolean Public RetValue as Integer Sub Main() + Dim NoArgs() as New com.sun.star.beans.PropertyValue + bShowLogFile=FALSE If Not bDebugWizard Then On Local Error Goto RTError End If @@ -42,6 +44,9 @@ Sub Main() ImportDialog.cmdGoOn.DefaultButton = True ImportDialogArea.GetControl("optSODocuments").SetFocus() RetValue = ImportDialogArea.Execute() + If bShowLogFile=TRUE Then + OpenDocument(sLogUrl, NoArgs()) + End if If RetValue = 0 Then CancelTask() End If |