Ask Your Question

Revision history [back]

click to hide/show revision 1
initial version

I've got to the point of something like this:

Sub test()
    oDoc = ThisComponent
    oSheet = oDoc.Sheets(0)
    oForm = oSheet.drawPage.getForms().getByIndex(0)
    oDateField = oForm.getByName("DateField1")
    oListener = createUnoListener("Event_", "com.sun.star.beans.XPropertyChangeListener")
    oDateField.addPropertyChangeListener("", oListener)
End Sub

Sub Event_propertyChange(oEvent)
    Globalscope.BasicLibraries.LoadLibrary( "MRILib" )
    Mri oEvent
End Sub

And it works fine! :)

Now I just would like to know a way to list/detach listeners from object.