diff options
Diffstat (limited to 'wizards/source/euro/AutoPilotRun.xba')
-rw-r--r-- | wizards/source/euro/AutoPilotRun.xba | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/wizards/source/euro/AutoPilotRun.xba b/wizards/source/euro/AutoPilotRun.xba index feb788415993..bf33275ab86b 100644 --- a/wizards/source/euro/AutoPilotRun.xba +++ b/wizards/source/euro/AutoPilotRun.xba @@ -23,6 +23,7 @@ Public TotDocCount as Integer Public sTotDocCount as String Public OpenProperties(1) as New com.sun.star.beans.PropertyValue + Sub StartAutoPilot() Dim i As Integer Dim oFactoryKey as Object @@ -37,6 +38,7 @@ Dim oFactoryKey as Object oFactoryKey = GetRegistryKeyContent("org.openoffice.Setup/Office/Factories") DialogModel.chkTextDocuments.Enabled = oFactoryKey.hasbyName("com.sun.star.text.TextDocument") DialogModel.cmdGoOn.DefaultButton = True + DialogModel.lstCurrencies.TabIndex = 12 DialogConvert.GetControl("optWholeDir").SetFocus() DialogConvert.Execute() DialogConvert.Dispose() @@ -182,7 +184,7 @@ End Function Sub SwapExtent() DialogModel.chkRecursive.Enabled = DialogModel.optWholeDir.State = 1 If DialogModel.optWholeDir.State = 1 Then - DialogModel.lblSource.Label = sSOURCEDIR + DialogModel.lblSource.Label = sSOURCEDIR If Not IsNull(SubstFile) Then SubstFile = DialogModel.txtSource.Text DialogModel.txtSource.Text = SubstDir |