'************************************************************************* ' ' 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 ' ' Unless required by applicable law or agreed to in writing, ' software distributed under the License is distributed on an ' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY ' KIND, either express or implied. See the License for the ' specific language governing permissions and limitations ' under the License. ' '************************************************************************* ' Be sure that all variables are dimensioned: option explicit Dim bIL_itemStateChanged, bAL_actionPerformed As Boolean Sub RunTest() '************************************************************************* ' INTERFACE: ' com.sun.star.awt.XComboBox '************************************************************************* On Error Goto ErrHndl Dim bOK As Boolean Dim oIListener, oAListener As Object bIL_itemStateChanged = False oIListener = createUnoListener("IL_", "com.sun.star.awt.XItemListener") Test.StartMethod("addItemListener()") oObj.addItemListener(oIListener) bOK = True Test.MethodTested("addItemListener()", bOK) Test.StartMethod("removeItemListener()") oObj.removeItemListener(oIListener) bOK = True Test.MethodTested("removeItemListener()", bOK) bAL_actionPerformed = False oAListener = createUnoListener("AL_", "com.sun.star.awt.XActionListener") Test.StartMethod("addActionListener()") oObj.addActionListener(oAListener) bOK = True Test.MethodTested("addActionListener()", bOK) Test.StartMethod("removeActionListener()") oObj.removeActionListener(oAListener) bOK = True Test.MethodTested("removeActionListener()", bOK) Dim itemCount As Integer Test.StartMethod("getItemCount()") itemCount = oObj.getItemCount() bOK = itemCount > 0 or itemCount = 0 Test.MethodTested("getItemCount()", bOK) Test.StartMethod("addItem()") oObj.addItem("Item1", itemCount) bOK = oObj.getItemCount() = (itemCount + 1) Test.MethodTested("addItem()", bOK) Dim itemNames As Variant itemNames = Array("Item2", "Item3") Dim oldCount As Integer oldCount = oObj.getItemCount() Test.StartMethod("addItems()") oObj.addItems(itemNames(), oldCount) bOK = (oldCount + 2) = oObj.getItemCount() Test.MethodTested("addItems()", bOK) Test.StartMethod("getItem()") bOK = (oObj.getItem(itemCount) = "Item1") Test.MethodTested("getItem()", bOK) Test.StartMethod("getItems()") itemNames = oObj.getItems() Dim i As Integer bOK = True Dim iname As String For i = itemCount to itemCount + 2 iname = "Item" + (i + 1) bOK = bOK and itemNames(i) = iname out.log(iname + " " + itemNames(i)) Next i Test.MethodTested("getItems()", bOK) Test.StartMethod("removeItems()") oObj.removeItems(0, oObj.getItemCount()) bOK = oObj.getItemCount = 0 Test.MethodTested("removeItems()", bOK) Dim lineCount As Integer Test.StartMethod("getDropDownLineCount()") lineCount = oObj.getDropDownLineCount() bOK = True Test.MethodTested("getDropDownLineCount()", bOK) Test.StartMethod("setDropDownLineCount()") oObj.setDropDownLineCount(lineCount + 1) bOK = oObj.getDropDownLineCount() = lineCount + 1 Test.MethodTested("setDropDownLineCount()", bOK) Exit Sub ErrHndl: Test.Exception() bOK = false resume next End Sub Sub IL_itemStateChanged Out.Log("CallBack for ItemListener itemStateChanged was called.") bIL_itemStateChanged = true End Sub Sub AL_actionPerformed Out.Log("CallBack for ActionListener actionPerformed was called.") bAL_actionPerformed = true End Sub