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 | 456b4d6704a45eea3c942e0ba2e8b85fc85de0dd (patch) | |
| tree | 7cf4885386e5104604e7dc2eaf5901e702083d3a /wizards/source/euro/ConvertRun.xba | |
| parent | aafc70a29a6ab4878b11110f217287b980fd3e51 (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 8d14fac4efcc..e7995b1a2090 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 |