Object Notification

Interface objectNotifier
Methods

Sub addObjectNotificationReceiver(receiver as objectNotificationReceiver, optional info as Variant = 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

—-