type Corral is new Limited_Object and Process with private;
type A_Corral is access all Corral'Class;
function Create_Corral
( | name | : String ) return A_Corral; |
procedure Add_Listener
( | this | : access Corral; |
listener | : not null A_Event_Listener; | |
evtName | : String ); |
procedure Remove_Listener
( | this | : access Corral; |
listener | : not null A_Event_Listener; | |
evtName | : String ); |
procedure Trigger_Event
( | this | : access Corral; |
evt | : in out A_Event; | |
response | : out Response_Type ); |