diff options
Diffstat (limited to 'wizards/source/webwizard/Language.xba')
| -rw-r--r-- | wizards/source/webwizard/Language.xba | 101 |
1 files changed, 0 insertions, 101 deletions
diff --git a/wizards/source/webwizard/Language.xba b/wizards/source/webwizard/Language.xba deleted file mode 100644 index 62701391cfbd..000000000000 --- a/wizards/source/webwizard/Language.xba +++ /dev/null @@ -1,101 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> -<!-- - * This file is part of the LibreOffice project. - * - * This Source Code Form is subject to the terms of the Mozilla Public - * License, v. 2.0. If a copy of the MPL was not distributed with this - * file, You can obtain one at http://mozilla.org/MPL/2.0/. - * - * This file incorporates work covered by the following license notice: - * - * Licensed to the Apache Software Foundation (ASF) under one or more - * contributor license agreements. See the NOTICE file distributed - * with this work for additional information regarding copyright - * ownership. The ASF licenses this file to you under the Apache - * License, Version 2.0 (the "License"); you may not use this file - * except in compliance with the License. You may obtain a copy of - * the License at http://www.apache.org/licenses/LICENSE-2.0 . ---> -<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 |