Environment: Siren
An EventAssociation is an Association with some special semantics for Siren. It can be created with the '=>' message to a Number, meaning start-time assicoated with event.
accessing
event
Answer the receiver's event (value).
start
Answer the receiver's start (key).
start: aTime
Set the receiver's start (key).
stop
Answer the stop time of the event association.
time
Answer the receiver's start (key).
printing
Append to the argument, aStream, the two elements of the
EventAssociation separated by a double-right arrow (=>).
comparing
Handle events, associations, and time/order sorting.
= anAssociation
If the argument's not an association, compare it to the receiver's value, otherwise answer whether the receiver's key and value are both equal to the argument's.
MetaClass: EventAssociation class