diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2001-12-07 10:15:28 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2001-12-07 10:15:28 +0000 |
| commit | 6e1d7827c9ebe2056841ab7295625384906c27bc (patch) | |
| tree | 394d7bdcdf1d2e55bcab914785a315b23a4e004e /wizards/source/euro/ConvertRun.xba | |
| parent | 6121fb7650a2bee322fd88bc9799b46052737be8 (diff) | |
#95671# Disposing of Dialog improved
Diffstat (limited to 'wizards/source/euro/ConvertRun.xba')
| -rw-r--r-- | wizards/source/euro/ConvertRun.xba | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/wizards/source/euro/ConvertRun.xba b/wizards/source/euro/ConvertRun.xba index 8d14fac4e..e7995b1a2 100644 --- a/wizards/source/euro/ConvertRun.xba +++ b/wizards/source/euro/ConvertRun.xba @@ -17,17 +17,14 @@ Sub Main() bDoUnProtect = False bPreSelected = True oDocument = ThisComponent - Msgbox Vartype(oDocument) - Msgbox oDocument.CharLocale.Language & ";" & oDocument.CharLocale.Country RetrieveDocumentObjects() ' Statusline, SheetsCollection etc. InitializeConverter(oDocument.CharLocale, 1) GetPreSelectedRange() If GoOn Then DialogConvert.GetControl("chkComplete").SetFocus() DialogConvert.Execute - Else - DialogConvert.Dispose End If + DialogConvert.Dispose End If End Sub |