xref: /aoo4110/main/qadevOOo/tests/basic/ifc/accessibility/XAccessibleEventBroadcaster/accessibility_XAccessibleEventBroadcaster.xba (revision b1cdbd2c)

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="accessibility_XAccessibleEventBroadcaster" script:language="StarBasic">
&apos;*************************************************************************
&apos;*
'
'  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.
'
&apos;*************************************************************************
&apos;*************************************************************************



&apos; Be sure that all variables are dimensioned:
option explicit

&apos;*************************************************************************
&apos; This Interface/Service test depends on the following GLOBAL variables,
&apos; which must be specified in the object creation:

&apos; fireEvent() precedure
&apos; located in component test

&apos;*************************************************************************





Dim oListener1 As Object
Dim oListener2 As Object
Dim bL1called As Boolean
Dim bL2called As Boolean


Sub RunTest()

&apos;*************************************************************************
&apos; INTERFACE:
&apos; com.sun.star.accessibility.XAccessibleEventBroadcaster
&apos;*************************************************************************
On Error Goto ErrHndl
    Dim bOK As Boolean
    Dim isTransient As Boolean
    Dim stateSet As Variant
    bOK = true

    &apos;out.log(&quot;Creating Listeners...&quot;)
    oListener1 = createUNOListener(&quot;EL1_&quot;,&quot;com.sun.star.accessibility.XAccessibleEventListener&quot;)
    oListener2 = createUNOListener(&quot;EL2_&quot;,&quot;com.sun.star.accessibility.XAccessibleEventListener&quot;)
    bOK = bOK AND NOT isNULL(oListener1) AND NOT isNULL(oListener2)
    if NOT bOK then out.log( &quot;ERROR: Cannot create listeners...&quot;)

    if NOT hasUNOInterfaces(oObj,&quot;com.sun.star.accessibility.XAccessibleContext&quot;) then
        &apos;out.log(&quot;Object does not implement XAccessibleContext.&quot;)
        isTransient = false
    else
        stateSet = oObj.getAccessibleStateSet()
        isTransient = stateSet.contains(27)
    End If

    Test.StartMethod(&quot;addEventListener()&quot;)
    bOK = true
    bL1called = false
    bL2called = false
    &apos;out.log(&quot;Adding two listeners...&quot;)
    oObj.com_sun_star_accessibility_XAccessibleEventBroadcaster_addEventListener(oListener1)
    oObj.com_sun_star_accessibility_XAccessibleEventBroadcaster_addEventListener(oListener2)
    &apos;out.log(&quot;fire event&quot;)
    fireEvent()
    wait(500)
    out.log(&quot;Listener1 called: &quot;+bL1called)
    out.log(&quot;Listener2 called: &quot;+bL2called)
    if NOT isTransient then
        bOK = bOK AND bL1called AND bL2called
    else
        &apos;out.log(&quot;Object is transient, listeners aren&apos;t expected to call.&quot;)
        bOK = true
    End If
    Test.MethodTested(&quot;addEventListener()&quot;,bOK)


    Test.StartMethod(&quot;removeEventListener()&quot;)
    bOK = true
    bL1called = false
    bL2called = false
    &apos;out.log(&quot;Removing one listener...&quot;)
    oObj.com_sun_star_accessibility_XAccessibleEventBroadcaster_removeEventListener(oListener1)
    &apos;out.log(&quot;fire event&quot;)
    fireEvent()
    wait(500)
    out.log(&quot;Listener1 called: &quot;+bL1called)
    out.log(&quot;Listener2 called: &quot;+bL2called)
    if NOT isTransient then
        bOK = bOK AND NOT bL1called AND bL2called
    else
        &apos;out.log(&quot;Object is transient, listeners aren&apos;t expected to call.&quot;)
        bOK = true
    End If
    Test.MethodTested(&quot;removeEventListener()&quot;,bOK)

    &apos; Removing the second listener...
    oObj.com_sun_star_accessibility_XAccessibleEventBroadcaster_removeEventListener(oListener2)


Exit Sub
ErrHndl:
    Test.Exception()
    bOK = false
    resume next
End Sub

Sub EL1_notifyEvent(ev As Variant)
    &apos;out.log(&quot;CallBack for Listener1 notifyEvent was called.&quot;)
    bL1called = true
End Sub

Sub EL1_disposing()
End Sub

Sub EL2_notifyEvent(ev As Variant)
    &apos;out.log(&quot;CallBack for Listener2 notifyEvent was called.&quot;)
    bL2called = true
End Sub

Sub EL2_disposing()
End Sub

</script:module>