type Audio_Player is new Limited_Object and Process and Event_Listener with private;
type A_Audio_Player is access all Audio_Player'Class;
function Create_Audio_Player
( | corral | : not null A_Corral ) return A_Audio_Player; |
procedure Start
( | this | : not null access Audio_Player'Class ); |
procedure Stop
( | this | : not null access Audio_Player'Class ); |