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 :=