type Event is abstract new Object with private;
type A_Event is access all Event'Class;
No_Response : constant Response_Type;
function "="
( | l, r | : Event_Id ) return Boolean; |
function To_Event_Id
( | evtName | : String ) return Event_Id; |
function "="
( | l, r | : Event_Type ) return Boolean; |
function Get_Message
( | response | : Response_Type ) return String; |
function Get_Status
( | response | : Response_Type ) return Status; |
procedure Set_Message
( | response | : in out Response_Type; |
msg | : String ); |
procedure Set_Status
( | response | : in out Response_Type; |
stat | : Status ); |
function Get_Name
( | this | : not null access Event'Class ) return String; |
procedure Delete
( | this | : in out A_Event ); |