type Event_Listener is limited interface;
type A_Event_Listener is access all Event_Listener'Class;
procedure Handle_Event
( | this | : access Event_Listener; |
evt | : in out A_Event; | |
resp | : out Response_Type ) is abstract; |
function To_String
( | this | : access Event_Listener ) return String is abstract; |