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