diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2001-11-19 15:24:29 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2001-11-19 15:24:29 +0000 |
| commit | da7bd58fe04af8caff8093b22a6c3f7535aa7929 (patch) | |
| tree | 2140535d416b0eeb8b8014e825dabe51ea48de35 /wizards/source/euro/ConvertRun.xba | |
| parent | 96417befe597c718e0e27fe53cc9eb30b550b9ac (diff) | |
#94155# Preselection improved
Diffstat (limited to 'wizards/source/euro/ConvertRun.xba')
| -rw-r--r-- | wizards/source/euro/ConvertRun.xba | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/wizards/source/euro/ConvertRun.xba b/wizards/source/euro/ConvertRun.xba index aeaab396fe10..fd45e2be09cc 100644 --- a/wizards/source/euro/ConvertRun.xba +++ b/wizards/source/euro/ConvertRun.xba @@ -8,7 +8,6 @@ Public oPreSelRange as Object ' Todo Vorselektion der Listbox ' Mauspointer umschalten: -' Todo: Sinnigkeit von 'DocDisposed' noch einmal überprüfen ' Todo: In der Hilfe sollte ein Hinweis erscheinen, dass immer zwei Nachkommastellen angezeigt werden ' und die resultierende Betrag ebenfalls bis auf zwei Stellen nach dem Komma gerundet wird @@ -17,8 +16,7 @@ Sub Main() If InitResources("Euro Converter", "eur") Then bDoUnProtect = False bPreSelected = True -' DocDisposed = False - oDocument = StarDesktop.CurrentFrame.Controller.Model + oDocument = ThisComponent RetrieveDocumentObjects() ' Statusline, SheetsCollection etc. InitializeConverter(oDocument.CharLocale, 1) GetPreSelectedRange() @@ -246,6 +244,7 @@ Dim OldCurrSymbolList(2) as String Dim OldCurrIndex as Integer Dim OldCurExtension(2) as String oPreSelRange = AddSelectedRangeToSelRangesEnum() + DialogModel.chkComplete.State = Abs(Not(bPreSelected)) If bPreSelected Then DialogModel.optSelRange.State = 1 |