diff options
| -rw-r--r-- | wizards/source/euro/AutoPilotRun.xba | 1 | ||||
| -rw-r--r-- | wizards/source/euro/ConvertRun.xba | 1 | ||||
| -rw-r--r-- | wizards/source/euro/DlgConvert.xdl | 4 | ||||
| -rw-r--r-- | wizards/source/euro/Init.xba | 1 |
4 files changed, 4 insertions, 3 deletions
diff --git a/wizards/source/euro/AutoPilotRun.xba b/wizards/source/euro/AutoPilotRun.xba index adc7691ed..bda48c5ee 100644 --- a/wizards/source/euro/AutoPilotRun.xba +++ b/wizards/source/euro/AutoPilotRun.xba @@ -34,6 +34,7 @@ Dim i As Integer InitializeConverter(oLocale, 2) ToggleGoOnButton() DialogModel.cmdGoOn.DefaultButton = True + DialogConvert.GetControl("optWholeDir").SetFocus() DialogConvert.Execute End If End Sub diff --git a/wizards/source/euro/ConvertRun.xba b/wizards/source/euro/ConvertRun.xba index 093387865..9963a9d05 100644 --- a/wizards/source/euro/ConvertRun.xba +++ b/wizards/source/euro/ConvertRun.xba @@ -23,6 +23,7 @@ Sub Main() InitializeConverter(oDocument.CharLocale, 1) GetPreSelectedRange() If GoOn Then + DialogConvert.GetControl("chkComplete").SetFocus() DialogConvert.Execute Else DialogConvert.Dispose diff --git a/wizards/source/euro/DlgConvert.xdl b/wizards/source/euro/DlgConvert.xdl index 34757ad20..284d34835 100644 --- a/wizards/source/euro/DlgConvert.xdl +++ b/wizards/source/euro/DlgConvert.xdl @@ -28,7 +28,7 @@ <dlg:menulist dlg:id="lstSelection" dlg:tab-index="9" dlg:left="170" dlg:top="96" dlg:width="90" dlg:height="52" dlg:page="1" dlg:help-url="HID:34666" dlg:multiselection="true"> <script:event script:event-name="on-itemstatechange" script:location="application" script:macro-name="Euro.ConvertRun.SelectListItem" script:language="StarBasic"/> </dlg:menulist> - <dlg:checkbox dlg:id="chkComplete" dlg:tab-index="10" dlg:left="12" dlg:top="43" dlg:width="129" dlg:height="10" dlg:page="1" dlg:help-url="HID:34661" dlg:value="chkComplete" dlg:checked="false"> + <dlg:checkbox dlg:id="chkComplete" dlg:tab-index="10" dlg:left="12" dlg:top="43" dlg:width="129" dlg:height="10" dlg:page="1" dlg:help-url="HID:34661" dlg:value="chkComplete" dlg:checked="true"> <script:event script:event-name="on-itemstatechange" script:location="application" script:macro-name="Euro.ConvertRun.RetrieveEnableValue" script:language="StarBasic"/> </dlg:checkbox> <dlg:text dlg:id="lblHint" dlg:tab-index="11" dlg:left="6" dlg:top="164" dlg:width="258" dlg:height="22" dlg:value="lblHint" dlg:multiline="true"/> @@ -52,7 +52,7 @@ <dlg:radio dlg:id="optSingleFile" dlg:tab-index="20" dlg:left="12" dlg:top="51" dlg:width="146" dlg:height="10" dlg:page="2" dlg:help-url="HID:34667" dlg:value="optSingleFile"> <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.AutoPilotRun.SwapExtent" script:language="StarBasic"/> </dlg:radio> - <dlg:radio dlg:id="optWholeDir" dlg:tab-index="21" dlg:left="12" dlg:top="65" dlg:width="146" dlg:height="10" dlg:page="2" dlg:help-url="HID:34668" dlg:value="optWholeDir"> + <dlg:radio dlg:id="optWholeDir" dlg:tab-index="21" dlg:left="12" dlg:top="65" dlg:width="146" dlg:height="10" dlg:page="2" dlg:help-url="HID:34668" dlg:value="optWholeDir" dlg:checked="true"> <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.AutoPilotRun.SwapExtent" script:language="StarBasic"/> </dlg:radio> </dlg:radiogroup> diff --git a/wizards/source/euro/Init.xba b/wizards/source/euro/Init.xba index 15087212f..07078776a 100644 --- a/wizards/source/euro/Init.xba +++ b/wizards/source/euro/Init.xba @@ -180,7 +180,6 @@ Sub InitializeResources() .chkRecursive.Label = sInclusiveSubDir sTARGETDIR = GetResText(1206) .lblTarget.Label = STARGETDIR - .optWholeDir.State = 1 .txtSource.Text = ConvertfromUrl(GetPathSettings("Work")) SubstDir = .txtSource.Text .txtTarget.Text = .txtSource.Text |