diff options
| -rw-r--r-- | wizards/source/importwizard/DialogModul.xba | 4 | ||||
| -rw-r--r-- | wizards/source/importwizard/ImportDialog.xdl | 2 | ||||
| -rw-r--r-- | wizards/source/importwizard/Main.xba | 1 |
3 files changed, 4 insertions, 3 deletions
diff --git a/wizards/source/importwizard/DialogModul.xba b/wizards/source/importwizard/DialogModul.xba index 39681fd44..5d7e55258 100644 --- a/wizards/source/importwizard/DialogModul.xba +++ b/wizards/source/importwizard/DialogModul.xba @@ -116,7 +116,7 @@ Dim oNullObject as Object With ImportDialog .chkTemplatePath.Label = sTemplateCheckbox(Index) .chkDocumentPath.State = Abs(Applications(CurOffice,SBDOCCONVERT)) - .chkDocumentSearchSubDir.State = Abs(Applications(CurOffice,SBDOCRECURSIVE)) + .chkDocumentSearchSubDir.State = Abs(Applications(CurOffice,SBDOCRECURSIVE)) .txtDocumentImportPath.Text = ConvertFromUrl(Applications(CurOffice,SBDOCSOURCE)) .txtDocumentExportPath.Text = ConvertFromUrl(Applications(CurOffice,SBDOCTARGET)) .hlnDocuments.Label = sProgressMoreDocs @@ -149,6 +149,7 @@ Dim oNullObject as Object .cmdBack.Enabled = True ImportDialog.Step = 2 End With + ImportDialogArea.GetControl("chkTemplatePath").SetFocus() ToggleNextButton() End Sub @@ -297,6 +298,7 @@ Sub FillStep_Summary() .SummaryHeaderLabel.Label = sSummaryHeader .Step = 3 End With + ImportDialogArea.GetControl("SummaryHeaderLabel").SetFocus() End Sub diff --git a/wizards/source/importwizard/ImportDialog.xdl b/wizards/source/importwizard/ImportDialog.xdl index 3ee8588ea..5cdd8b4ed 100644 --- a/wizards/source/importwizard/ImportDialog.xdl +++ b/wizards/source/importwizard/ImportDialog.xdl @@ -1,6 +1,6 @@ <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd"> - <dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="ImportDialog" dlg:title="ImportDialog" dlg:left="96" dlg:top="28" dlg:width="270" dlg:height="210" dlg:page="1" dlg:help-url="HID:34570"> + <dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="ImportDialog" dlg:title="ImportDialog" dlg:left="96" dlg:top="28" dlg:width="270" dlg:height="210" dlg:page="3" dlg:help-url="HID:34570"> <dlg:bulletinboard> <dlg:text dlg:id="lblTemplateExport" dlg:tab-index="0" dlg:left="12" dlg:top="94" dlg:width="60" dlg:height="8" dlg:page="2" dlg:value="lblTemplateExport"/> <dlg:textfield dlg:id="txtTemplateImportPath" dlg:tab-index="1" dlg:left="73" dlg:top="76" dlg:width="170" dlg:height="12" dlg:page="2" dlg:help-url="HID:34583"> diff --git a/wizards/source/importwizard/Main.xba b/wizards/source/importwizard/Main.xba index ab1552060..6aef91d63 100644 --- a/wizards/source/importwizard/Main.xba +++ b/wizards/source/importwizard/Main.xba @@ -63,7 +63,6 @@ Dim iCurStep as Integer End If bConversionIsRunnig = False iCurStep = ImportDialog.Step - Select Case iCurStep Case 1 FillStep_InputPaths(0, True) |