1cdf0e10cSrcweir<?xml version="1.0" encoding="UTF-8"?> 2cdf0e10cSrcweir<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3cdf0e10cSrcweir<script:module xmlns:script="http://openoffice.org/2000/script" script:name="forms_OListBoxModel" script:language="StarBasic"> 4cdf0e10cSrcweir 5cdf0e10cSrcweir 6cdf0e10cSrcweir'************************************************************************* 7cdf0e10cSrcweir' 8*ce3cae9fSAndrew Rist' Licensed to the Apache Software Foundation (ASF) under one 9*ce3cae9fSAndrew Rist' or more contributor license agreements. See the NOTICE file 10*ce3cae9fSAndrew Rist' distributed with this work for additional information 11*ce3cae9fSAndrew Rist' regarding copyright ownership. The ASF licenses this file 12*ce3cae9fSAndrew Rist' to you under the Apache License, Version 2.0 (the 13*ce3cae9fSAndrew Rist' "License"); you may not use this file except in compliance 14*ce3cae9fSAndrew Rist' with the License. You may obtain a copy of the License at 15*ce3cae9fSAndrew Rist' 16*ce3cae9fSAndrew Rist' http://www.apache.org/licenses/LICENSE-2.0 17*ce3cae9fSAndrew Rist' 18*ce3cae9fSAndrew Rist' Unless required by applicable law or agreed to in writing, 19*ce3cae9fSAndrew Rist' software distributed under the License is distributed on an 20*ce3cae9fSAndrew Rist' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 21*ce3cae9fSAndrew Rist' KIND, either express or implied. See the License for the 22*ce3cae9fSAndrew Rist' specific language governing permissions and limitations 23*ce3cae9fSAndrew Rist' under the License. 24cdf0e10cSrcweir' 25cdf0e10cSrcweir'************************************************************************* 26cdf0e10cSrcweir 27cdf0e10cSrcweir 28cdf0e10cSrcweir 29*ce3cae9fSAndrew Rist 30*ce3cae9fSAndrew Rist 31cdf0e10cSrcweir' Be sure that all variables are dimensioned: 32cdf0e10cSrcweiroption explicit 33cdf0e10cSrcweir 34cdf0e10cSrcweir 35cdf0e10cSrcweir' REQUIRED VARIABLES for interface/service tests: 36cdf0e10cSrcweir 37cdf0e10cSrcweir' for XComponent 38cdf0e10cSrcweirGlobal oComponentInstance As Object 39cdf0e10cSrcweir 40cdf0e10cSrcweir' for XPersistObject 41cdf0e10cSrcweirGlobal oPersistInstance As Object 42cdf0e10cSrcweir 43cdf0e10cSrcweir' for XUpdateBroadcaster 44cdf0e10cSrcweirGlobal bCustomUpdate As Boolean 45cdf0e10cSrcweir 46cdf0e10cSrcweirGlobal oForm As Object 47cdf0e10cSrcweirGlobal aList(1) As Variant 48cdf0e10cSrcweir 49cdf0e10cSrcweir 50cdf0e10cSrcweirSub CreateObj() 51cdf0e10cSrcweir 52cdf0e10cSrcweir'************************************************************************* 53cdf0e10cSrcweir' COMPONENT: 54cdf0e10cSrcweir' forms.OListBoxModel 55cdf0e10cSrcweir'************************************************************************* 56cdf0e10cSrcweirOn Error Goto ErrHndl 57cdf0e10cSrcweir Dim bOK As Boolean 58cdf0e10cSrcweir Dim aSelection(0 to 0) As Variant 59cdf0e10cSrcweir Dim oShape As Object, oDrawPage As Object 60cdf0e10cSrcweir 61cdf0e10cSrcweir bOK = true 62cdf0e10cSrcweir 63cdf0e10cSrcweir oDoc = utils.createDocument("swriter", cObjectName) 64cdf0e10cSrcweir 65cdf0e10cSrcweir oShape = toolkittools.addControlToDefaultForm("ListBox", 1000, 1000, 2000, 1000) 66cdf0e10cSrcweir oObj = oShape.getControl() 67cdf0e10cSrcweir oShape = toolkittools.addControlToDefaultForm("ListBox", 1000, 3000, 2000, 1000) 68cdf0e10cSrcweir oComponentInstance = oShape.getControl() 69cdf0e10cSrcweir oShape = toolkittools.addControlToDefaultForm("ListBox", 1000, 5000, 2000, 1000) 70cdf0e10cSrcweir oPersistInstance = oShape.getControl() 71cdf0e10cSrcweir 72cdf0e10cSrcweir 'for UnoControlListBoxModel::SelectedItems 73cdf0e10cSrcweir aList(0) = "Hello" 74cdf0e10cSrcweir aList(1) = "World" 75cdf0e10cSrcweir aSelection(0) = 1 76cdf0e10cSrcweir oObj.DefaultSelection = aSelection() 77cdf0e10cSrcweir oObj.ListSource = aList() 78cdf0e10cSrcweir 79cdf0e10cSrcweir 'get control from document 80cdf0e10cSrcweir oDrawPage = oDoc.DrawPage 81cdf0e10cSrcweir oForm = oDrawPage.Forms.getByName("Standard") 82cdf0e10cSrcweir 83cdf0e10cSrcweir oForm.DataSourceName = "Bibliography" 84cdf0e10cSrcweir oForm.Command = "biblio" 85cdf0e10cSrcweir oForm.CommandType = com.sun.star.sdb.CommandType.TABLE 86cdf0e10cSrcweir 87cdf0e10cSrcweir oObj.DataField = "Author" 88cdf0e10cSrcweir 89cdf0e10cSrcweir oForm.load() 90cdf0e10cSrcweir 91cdf0e10cSrcweir ' for XUpdateBroadcaster 92cdf0e10cSrcweir bCustomUpdate = true 93cdf0e10cSrcweir 94cdf0e10cSrcweirExit Sub 95cdf0e10cSrcweirErrHndl: 96cdf0e10cSrcweir Test.Exception() 97cdf0e10cSrcweirEnd Sub 98cdf0e10cSrcweir 99cdf0e10cSrcweirGlobal sChangedText As String 100cdf0e10cSrcweir 101cdf0e10cSrcweir' for XBoundComponent 102cdf0e10cSrcweirSub prepareCommit() 103cdf0e10cSrcweirOn Error Goto ErrHndl 104cdf0e10cSrcweir Dim items As Variant 105cdf0e10cSrcweir Dim item As Variant 106cdf0e10cSrcweir 107cdf0e10cSrcweir Out.Log("prepareCommit() called.") 108cdf0e10cSrcweir items = oObj.SelectedItems 109cdf0e10cSrcweir if ubound(items()) < 0 then 110cdf0e10cSrcweir item = 0 111cdf0e10cSrcweir else 112cdf0e10cSrcweir if items(0) = 0 then item = 1 else item = 0 113cdf0e10cSrcweir endif 114cdf0e10cSrcweir 115cdf0e10cSrcweir sChangedText = aList(item) 116cdf0e10cSrcweir oObj.SelectedItems = Array(item) 117cdf0e10cSrcweir 118cdf0e10cSrcweir exit sub 119cdf0e10cSrcweirErrHndl: 120cdf0e10cSrcweir Test.Exception() 121cdf0e10cSrcweirEnd Sub 122cdf0e10cSrcweir 123cdf0e10cSrcweir' for XBoundComponent 124cdf0e10cSrcweirFunction checkCommit() As Boolean 125cdf0e10cSrcweirOn Error Goto ErrHndl 126cdf0e10cSrcweir Out.Log("checkCommit() called.") 127cdf0e10cSrcweir Dim rowText As Variant 128cdf0e10cSrcweir 129cdf0e10cSrcweir rowText = oForm.getString(oForm.findColumn("Author")) 130cdf0e10cSrcweir checkCommit() = (rowText = sChangedText) 131cdf0e10cSrcweir 132cdf0e10cSrcweir exit function 133cdf0e10cSrcweirErrHndl: 134cdf0e10cSrcweir Test.Exception() 135cdf0e10cSrcweirEnd Function 136cdf0e10cSrcweir 137cdf0e10cSrcweir' for XUpdateBroadcaster 138cdf0e10cSrcweirSub UpdateComponent() 139cdf0e10cSrcweir Out.Log("UpdateComponent() called.") 140cdf0e10cSrcweir 141cdf0e10cSrcweir Dim items As Variant 142cdf0e10cSrcweir Dim item As Variant 143cdf0e10cSrcweir items = oObj.SelectedItems 144cdf0e10cSrcweir if ubound(items()) < 0 then 145cdf0e10cSrcweir item = 0 146cdf0e10cSrcweir else 147cdf0e10cSrcweir if items(0) = 0 then item = 1 else item = 0 148cdf0e10cSrcweir endif 149cdf0e10cSrcweir oObj.SelectedItems = Array(item) 150cdf0e10cSrcweir 151cdf0e10cSrcweir oObj.commit() 152cdf0e10cSrcweirEnd Sub 153cdf0e10cSrcweir</script:module> 154