Language.xba (3e02b54d) | Language.xba (c881e2b3) |
---|---|
1<?xml version="1.0" encoding="UTF-8"?> 2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3<!--*********************************************************** | 1<?xml version="1.0" encoding="UTF-8"?> 2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3<!--*********************************************************** |
4 * | 4 * |
5 * Licensed to the Apache Software Foundation (ASF) under one 6 * or more contributor license agreements. See the NOTICE file 7 * distributed with this work for additional information 8 * regarding copyright ownership. The ASF licenses this file 9 * to you under the Apache License, Version 2.0 (the 10 * "License"); you may not use this file except in compliance 11 * with the License. You may obtain a copy of the License at | 5 * Licensed to the Apache Software Foundation (ASF) under one 6 * or more contributor license agreements. See the NOTICE file 7 * distributed with this work for additional information 8 * regarding copyright ownership. The ASF licenses this file 9 * to you under the Apache License, Version 2.0 (the 10 * "License"); you may not use this file except in compliance 11 * with the License. You may obtain a copy of the License at |
12 * | 12 * |
13 * http://www.apache.org/licenses/LICENSE-2.0 | 13 * http://www.apache.org/licenses/LICENSE-2.0 |
14 * | 14 * |
15 * Unless required by applicable law or agreed to in writing, 16 * software distributed under the License is distributed on an 17 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 18 * KIND, either express or implied. See the License for the 19 * specific language governing permissions and limitations 20 * under the License. | 15 * Unless required by applicable law or agreed to in writing, 16 * software distributed under the License is distributed on an 17 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 18 * KIND, either express or implied. See the License for the 19 * specific language governing permissions and limitations 20 * under the License. |
21 * | 21 * |
22 ***********************************************************--> 23<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Language" script:language="StarBasic">Option Explicit 24 25 26 27 28Sub LoadLanguage() 29 If InitResources("WebWizard","wwz") Then --- 50 unchanged lines hidden (view full) --- 80 .cbGoOn.Label = GetResText(1003) 81 .lblTemplate.Label = GetResText(1004) 82 .lblStyle.Label = GetResText(1005) 83 .hlnBackground.Label = GetResText(1006) 84 .optTiled.Label = GetRestext(1007) 85 .optArea.Label = GetResText(1008) 86 .chkSaveasTemplate.Label = GetResText(1010) 87 End With | 22 ***********************************************************--> 23<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Language" script:language="StarBasic">Option Explicit 24 25 26 27 28Sub LoadLanguage() 29 If InitResources("WebWizard","wwz") Then --- 50 unchanged lines hidden (view full) --- 80 .cbGoOn.Label = GetResText(1003) 81 .lblTemplate.Label = GetResText(1004) 82 .lblStyle.Label = GetResText(1005) 83 .hlnBackground.Label = GetResText(1006) 84 .optTiled.Label = GetRestext(1007) 85 .optArea.Label = GetResText(1008) 86 .chkSaveasTemplate.Label = GetResText(1010) 87 End With |
88 | 88 |
89 BufferNames() = ArrayfromMultiArray(Layout, 1) 90 DialogModel.lbTemplate.StringItemList() = BufferNames() 91 DialogModel.lbTemplate.SelectedItems() = SelList() 92 93 94 BufferNames() = ArrayfromMultiArray(Style, 1) 95 DialogModel.lbStyles.StringItemList() = BufferNames() 96 DialogModel.lbStyles.SelectedItems() = SelList() | 89 BufferNames() = ArrayfromMultiArray(Layout, 1) 90 DialogModel.lbTemplate.StringItemList() = BufferNames() 91 DialogModel.lbTemplate.SelectedItems() = SelList() 92 93 94 BufferNames() = ArrayfromMultiArray(Style, 1) 95 DialogModel.lbStyles.StringItemList() = BufferNames() 96 DialogModel.lbStyles.SelectedItems() = SelList() |
97 sBitmapPath = SOBitmapPath & "webwizard.bmp" | 97 sBitmapPath = SOBitmapPath & "webwizard.png" |
98 99 DialogModel.ImagePreview.ImageURL = sBitmapPath 100 ToggleOptionButtons(DialogModel, bWithBackGraphic) 101 MainDialog.GetControl("lbTemplate").SetFocus() 102 DialogModel.cbGoOn.DefaultButton = True 103 DialogModel.ImagePreview.BackGroundColor = RGB(0,60,126) 104End Sub</script:module> | 98 99 DialogModel.ImagePreview.ImageURL = sBitmapPath 100 ToggleOptionButtons(DialogModel, bWithBackGraphic) 101 MainDialog.GetControl("lbTemplate").SetFocus() 102 DialogModel.cbGoOn.DefaultButton = True 103 DialogModel.ImagePreview.BackGroundColor = RGB(0,60,126) 104End Sub</script:module> |