summaryrefslogtreecommitdiff
path: root/wizards/source/importwizard/DialogModul.xba
diff options
context:
space:
mode:
Diffstat (limited to 'wizards/source/importwizard/DialogModul.xba')
-rw-r--r--wizards/source/importwizard/DialogModul.xba23
1 files changed, 2 insertions, 21 deletions
diff --git a/wizards/source/importwizard/DialogModul.xba b/wizards/source/importwizard/DialogModul.xba
index 43c115d0212f..64b7e4068031 100644
--- a/wizards/source/importwizard/DialogModul.xba
+++ b/wizards/source/importwizard/DialogModul.xba
@@ -62,7 +62,7 @@ Public Const SBAPPLKEY = 9
' Applications(X,6) = True/False (Including Subdirectories)
' Applications(X,7) = "File:///..." (SourceUrl of the templates)
' Applications(X,8) = "File:///..." (TargetUrl of the templates)
-' Applications(X,9) = 0 (Key to the original Index of the Applications)
+' Applications(X,9) = 0 (Key to the original Index of the Applications)
Sub FillStep_Welcome()
@@ -288,7 +288,7 @@ End Function
Sub FillStep_Summary()
-' Todo: Angabe über die Vorlagengruppen,bzw. Template-Exportpfad
+' Todo: Angabe über die Vorlagengruppen,bzw. Template-Exportpfad
With ImportDialog
.SummaryTextbox.Text = MakeSummaryString()
.cbGoOn.Enabled = .SummaryTextbox.Text <> ""
@@ -315,25 +315,6 @@ Sub FillStep_Progress()
End Sub
-Sub DocumentDirSearchDialog()
- CallDirSearchDialog(ImportDialog.DocumentImportPath)
-End Sub
-
-
-Sub StarDocumentDirSearchDialog()
- CallDirSearchDialog(ImportDialog.DocumentExportPath)
-End Sub
-
-
-Sub CallDirSearchDialog(oTargetControl as Object)
-Dim sDirName as String
- sDirName = Application.FileDialog("P", sPathDialogMessage, oTargetControl.Text)
- If Len(sDirName) > 0 Then
- oTargetControl.Text = sDirName
- End If
-End Sub
-
-
Sub SetupMSConfiguration()
iApplSection = 0
Wizardmode = SBMICROSOFTMODE