diff options
author | Michael Stahl <mstahl@redhat.com> | 2012-01-28 20:52:45 +0100 |
---|---|---|
committer | Michael Stahl <mstahl@redhat.com> | 2012-01-28 20:52:45 +0100 |
commit | 2e626373db2412ac22e8c5c27a60d11cd29e875b (patch) | |
tree | 9e9f67205cd5b72f1031721273e1534a3a1e5b0f /wizards/source/webwizard/Language.xba | |
parent | f7ee7bbd5174b084f018c2ec94d8c70c98ee04da (diff) |
replace obsolete "master" branch with README that points at new repoHEADmaster-deletedmaster
Diffstat (limited to 'wizards/source/webwizard/Language.xba')
-rw-r--r-- | wizards/source/webwizard/Language.xba | 84 |
1 files changed, 0 insertions, 84 deletions
diff --git a/wizards/source/webwizard/Language.xba b/wizards/source/webwizard/Language.xba deleted file mode 100644 index 1c6b8c194..000000000 --- a/wizards/source/webwizard/Language.xba +++ /dev/null @@ -1,84 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> -<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Language" script:language="StarBasic">Option Explicit - - - - -Sub LoadLanguage() - If InitResources("WebWizard","wwz") Then - WebWiz_gErrContentNotFound = GetResText(1101) - WebWiz_gErrStyleNotFound = GetResText(1102) - WebWiz_gErrMainTemplateError = GetResText(1103) - WebWiz_gErrWhileReloading = GetResText(1104) - WebWiz_gErrWhileLoadStyles = GetResText(1105) - WebWiz_gErrMainDocumentError = GetResText(1106) - WebWiz_gErrMsg = GetResText(1107) - End If -End Sub - - -Function GetWebWizardPaths() as Boolean -Dim TemplatePath as String - TextureDir = GetOfficeSubPath("Gallery","www-back") - If TextureDir <> "" Then - GraphicsDir = GetOfficeSubPath("Gallery","www-graf/") - If GraphicsDir <> "" Then - BulletDir = GetOfficeSubPath("Gallery", "bullets/") - If BulletDir <> "" Then - PhotosDir = GetPathSettings("Gallery", False, 1) - If PhotosDir <> "" Then - TemplatePath = GetOfficeSubPath("Template", "wizard/web/") - If TemplatePath <> "" Then - SOBitmapPath = GetOfficeSubPath("Template", "../wizard/bitmap") - If SOBitmapPath <> "" Then - GetWebwizardPaths() = True - Exit Function - End If - End If - End If - End If - End If - End If - DisposeDocument(oBaseDocument) - GetWebWizardPaths() = False -End Function - - - -Sub OpenWebDialog() - Dim sBitmapPath as String - Dim BufferNames() as String - Dim SelList(0) as Integer - SelList(0) = 0 - MainDialog = LoadDialog("WebWizard","WebWzrd") - DialogModel = MainDialog.Model - With DialogModel - .cbHelp.Label = GetResText(1000) - .Title = GetResText(1001) - .cbCancel.Label = GetResText(1002) - .cbGoOn.Label = GetResText(1003) - .lblTemplate.Label = GetResText(1004) - .lblStyle.Label = GetResText(1005) - .hlnBackground.Label = GetResText(1006) - .optTiled.Label = GetRestext(1007) - .optArea.Label = GetResText(1008) - .chkSaveasTemplate.Label = GetResText(1010) - End With - - BufferNames() = ArrayfromMultiArray(Layout, 1) - DialogModel.lbTemplate.StringItemList() = BufferNames() - DialogModel.lbTemplate.SelectedItems() = SelList() - - - BufferNames() = ArrayfromMultiArray(Style, 1) - DialogModel.lbStyles.StringItemList() = BufferNames() - DialogModel.lbStyles.SelectedItems() = SelList() - sBitmapPath = SOBitmapPath & "webwizard.bmp" - - DialogModel.ImagePreview.ImageURL = sBitmapPath - ToggleOptionButtons(DialogModel, bWithBackGraphic) - MainDialog.GetControl("lbTemplate").SetFocus() - DialogModel.cbGoOn.DefaultButton = True - DialogModel.ImagePreview.BackGroundColor = RGB(0,60,126) -End Sub</script:module>
\ No newline at end of file |