diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2002-11-06 14:23:39 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2002-11-06 14:23:39 +0000 |
| commit | bcb3f833e57225e2816a348ecac0b70dad2747a1 (patch) | |
| tree | bba6b4a76ab29466a03387729c41f3bf02b52269 /wizards/source/formwizard/FormWizard.xba | |
| parent | 22c8cc4ed2d29421fe5fc8ab2ce4e90a4738c9d2 (diff) | |
#10710# GetFormWizardPaths Routine added
Diffstat (limited to 'wizards/source/formwizard/FormWizard.xba')
| -rw-r--r-- | wizards/source/formwizard/FormWizard.xba | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/wizards/source/formwizard/FormWizard.xba b/wizards/source/formwizard/FormWizard.xba index ecd888a770b3..2464769f9c2b 100644 --- a/wizards/source/formwizard/FormWizard.xba +++ b/wizards/source/formwizard/FormWizard.xba @@ -81,11 +81,9 @@ Dim SelList(0) as Integer End If oDBContext = CreateUnoService("com.sun.star.sdb.DatabaseContext") oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess") - FormPath = GetOfficeSubPath("Template","wizard/bitmap") - WebWizardPath = GetOfficeSubPath("Template","wizard/web") - WizardPath = GetOfficeSubPath("Template","wizard/") - TexturePath = GetOfficeSubPath("Gallery", "www-back/") - WorkPath = GetPathSettings("Work") + If GetFormWizardPaths() = False Then + Exit Sub + End If oDocument.GetCurrentController().Frame.ComponentWindow.Enable = False oProgressBar.Value = 5 GetDatabaseNames() |