diff options
author | Behrend Cornelius <bc@openoffice.org> | 2001-08-09 15:35:42 +0000 |
---|---|---|
committer | Behrend Cornelius <bc@openoffice.org> | 2001-08-09 15:35:42 +0000 |
commit | 8ee9e2cde5843b631a08f225fe786f11c8db74de (patch) | |
tree | 56972a226cd1bb72819db975ec003d6c893353a5 /wizards/source/importwizard/DialogModul.xba | |
parent | 690027fd98952a7eb263651e6cc91285e269834b (diff) |
#90750# Call of ReadDirectoryRoutine adapted; LogFile handling improved
Diffstat (limited to 'wizards/source/importwizard/DialogModul.xba')
-rw-r--r-- | wizards/source/importwizard/DialogModul.xba | 23 |
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 |