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 | 40a642b5cec0a606a79878dddce276a91fe40d2d (patch) | |
| tree | 3bf69d220cca903871c92b7239eccf0d30c3fa8f /wizards/source/euro/ConvertRun.xba | |
| parent | 38d0102594f3274a6e1ef0d701469b189aecf78d (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 aeaab396f..fd45e2be0 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 |