Section Header

    + name := EVENT;

    - comment := "Event generic";

Section Inherit

    - parent_object:OBJECT :=

Section Public

    + destination:INBOX;
        If null, Broad cast message.

    - source:INBOX <-

    - set_destination evt:INBOX <-

    - display <-

Section EVENT

    - string_msg:STRING :=