Object Notification

Object Notification
Interface objectNotifier
Methods
Sub addObjectNotificationReceiver(receiver as objectNotificationReceiver, optional info as Varia
nt = nil)
End Sub
Sub removeObjectNotificationReceiver(receiver As objectNotificationReceiver)
End Sub
End Interface
Interface objectNotificationReceiver
Methods
Sub objectChanged(obj as Object, info as Variant)
End Sub
End Interface

Class ObjectNotifierBox

Methods

Sub addReceiver(receiver as objectNotificationReceiver, info as Variant)
var i as Integer = mReceivers.IndexOf(receiver)
if i = -1 then
mReceivers.Add(receiver)
mInfos.Add(info)
end if
//
End Sub
Sub callReceivers(obj as Object)
For i As Integer = 0 To mReceivers.LastIndex
mReceivers(i).objectChanged(obj, mInfos(i))
Next
//
End Sub
Sub removeReceiver(receiver As objectNotificationReceiver)
var i as Integer = mReceivers.IndexOf(receiver)
if i > -1 then
mReceivers.RemoveAt(i)
mInfos.RemoveAt(i)
end if
//
End Sub

Properties
mInfos() As Variant
mReceivers() As objectNotificationReceiver

End Class