'************************************************************************* ' ' 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. ' '************************************************************************* Sub RunTest() '************************************************************************* ' INTERFACE: ' com.sun.star.script.XEventAttacherManager '************************************************************************* On Error Goto ErrHndl Dim bOK As Boolean oObj.insertEntry(0) Test.StartMethod("addScriptListener()") bOK = true Dim oListener1 As Object Dim oListener2 As Object oListener = createUnoListener("CB1_", "com.sun.star.script.XScriptListener") oObj.addScriptListener(oListener) Test.MethodTested("addScriptListener()", bOK) Test.StartMethod("registerScriptEvent()") bOK = true Dim aScriptEvent1 As New com.sun.star.script.ScriptEventDescriptor aScriptEvent1.ListenerType = "ScriptListener" aScriptEvent1.EventMethod = "Test" aScriptEvent1.AddListenerParam = "" aScriptEvent1.ScriptType = "Basic" aScriptEvent1.ScriptCode = "MsgBox ""Script1""" oObj.registerScriptEvent(0, aScriptEvent1) Test.MethodTested("registerScriptEvent()", bOK) Test.StartMethod("registerScriptEvents()") bOK = true Dim aScriptEvent2 As New com.sun.star.script.ScriptEventDescriptor aScriptEvent2.ListenerType = "ScriptListener" aScriptEvent2.EventMethod = "Test" aScriptEvent2.AddListenerParam = "" aScriptEvent2.ScriptType = "Basic" aScriptEvent2.ScriptCode = "MsgBox ""Script2""" Dim aScriptEvent3 As New com.sun.star.script.ScriptEventDescriptor aScriptEvent3.ListenerType = "ScriptListener" aScriptEvent3.EventMethod = "Test" aScriptEvent3.AddListenerParam = "" aScriptEvent3.ScriptType = "Basic" aScriptEvent3.ScriptCode = "MsgBox ""Script3""" Dim aScripts(1) aScripts(0) = aScriptEvent2 aScripts(1) = aScriptEvent3 oObj.registerScriptEvents(0, aScripts()) Test.MethodTested("registerScriptEvents()", bOK) Test.StartMethod("getScriptEvents()") bOK = true allScripts = oObj.getScriptEvents(0) bOK = bOK AND ubound(allScripts) = 2 bOK = bOK AND allScripts(0).ScriptCode = "MsgBox ""Script1""" bOK = bOK AND allScripts(1).ScriptCode = "MsgBox ""Script2""" bOK = bOK AND allScripts(2).ScriptCode = "MsgBox ""Script3""" Test.MethodTested("getScriptEvents()", bOK) Test.StartMethod("insertEntry()") bOK = true oObj.insertEntry(0) allScripts = oObj.getScriptEvents(0) bOK = bOK AND ubound(allScripts) = -1 allScripts = oObj.getScriptEvents(1) bOK = bOK AND ubound(allScripts) = 2 Test.MethodTested("insertEntry()", bOK) Test.StartMethod("removeEntry()") bOK = true oObj.removeEntry(0) allScripts = oObj.getScriptEvents(1) bOK = bOK AND ubound(allScripts) = -1 allScripts = oObj.getScriptEvents(0) bOK = bOK AND ubound(allScripts) = 2 Test.MethodTested("removeEntry()", bOK) Test.StartMethod("attach()") bOK = true oObj.attach(0, oObj, "") Test.MethodTested("attach()", bOK) Test.StartMethod("detach()") bOK = true oObj.detach(0, oObj) Test.MethodTested("detach()", bOK) Test.StartMethod("revokeScriptEvent()") bOK = true oObj.revokeScriptEvent(0, "ScriptListener", "Test", "") allScripts = oObj.getScriptEvents(0) bOK = bOK AND ubound(allScripts) = 1 Test.MethodTested("revokeScriptEvent()", bOK) Test.StartMethod("revokeScriptEvents()") bOK = true oObj.revokeScriptEvents(0) allScripts = oObj.getScriptEvents(0) bOK = bOK AND ubound(allScripts) = -1 Test.MethodTested("revokeScriptEvents()", bOK) Test.StartMethod("removeScriptListener()") bOK = true oObj.removeScriptListener(oListener) Test.MethodTested("removeScriptListener()", bOK) Exit Sub ErrHndl: Test.Exception() bOK = false resume next End Sub