'************************************************************************* ' ' 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 Sub RunTest() '************************************************************************* ' INTERFACE: ' com.sun.star.accessibility.XAccessibleContext '************************************************************************* On Error Goto ErrHndl Dim bOK As Boolean Dim childCount As Long, i As Integer Dim oParent As Object Test.StartMethod("getAccessibleChildCount()") bOK = true childCount = oObj.getAccessibleChildCount() bOK = bOK AND (childCount > -1) Test.MethodTested("getAccessibleChildCount()",bOK) Test.StartMethod("getAccessibleChild()") Dim childContext As Object Dim mCount As Integer bOK = true i = 0 if (childCount > 50) then mCount = 50 else mCount = childCount End If while (i < mCount) childContext = oObj.getAccessibleChild(i).getAccessibleContext() Out.Log(" Child " + i + ": " + childContext.getAccessibleDescription()) bOK = bOK AND utils.at_equals(childContext.getAccessibleParent(), oObj) i = i + 1 wend Test.MethodTested("getAccessibleChild()",bOK) Test.StartMethod("getAccessibleParent()") bOK = true oParent = oObj.getAccessibleParent() bOK = bOK AND NOT isNull(oParent) Test.MethodTested("getAccessibleParent()",bOK) Test.StartMethod("getAccessibleIndexInParent()") Dim idx As Integer Dim parentAC As Object bOK = true idx = oObj.getAccessibleIndexInParent() parentAC = oParent.getAccessibleContext() bOK = bOK AND utils.at_equals(parentAC.getAccessibleChild(idx), oObj) Test.MethodTested("getAccessibleIndexInParent()",bOK) Test.StartMethod("getAccessibleRole()") Dim role As Integer bOK = true role = oObj.getAccessibleRole() Out.Log("The role is " + role) bOK = bOK AND (role > -1) Test.MethodTested("getAccessibleRole()",bOK) Test.StartMethod("getAccessibleDescription()") Dim descr As String bOK = true descr = oObj.getAccessibleDescription() Out.Log("The description is " + descr) bOK = bOK AND NOT isNull(descr) Test.MethodTested("getAccessibleDescription()",bOK) Test.StartMethod("getAccessibleName()") Dim oName As String bOK = true oName = oObj.getAccessibleName() Out.Log("The name is " + oName) bOK = bOK AND NOT isNull(oName) Test.MethodTested("getAccessibleName()",bOK) Test.StartMethod("getAccessibleRelationSet()") Dim oSet As Variant bOK = true oSet = oObj.getAccessibleRelationSet() ' Relationset could be null if not isNull(oSet) then oSet.getRelationCount() end if Test.MethodTested("getAccessibleRelationSet()",bOK) Test.StartMethod("getAccessibleStateSet()") bOK = true oSet = oObj.getAccessibleStateSet() bOK = bOK AND NOT isNull(oSet) if NOT bOK then Out.Log("This object does not support states") Test.MethodTested("getAccessibleStateSet()",bOK) Test.StartMethod("getLocale()") Dim oLoc As Variant bOK = true oLoc = oObj.getLocale() Out.Log("The locale is "+oLoc.Language+", "+oLoc.Country) bOK = bOK AND NOT isNull(oLoc) AND (len(oLoc.Language) > 0) AND (len(oLoc.Country) > 0) Test.MethodTested("getLocale()",bOK) Exit Sub ErrHndl: Test.Exception() bOK = false resume next End Sub