type Audio_Player is new Object and Process and Event_Listener with private;
type A_Audio_Player is access all Audio_Player'Class;
procedure Start
( | this | : not null access Audio_Player'Class ); |
procedure Stop
( | this | : not null access Audio_Player'Class ); |
procedure Delete
( | this | : in out A_Audio_Player ); |