type Sound is abstract new Limited_Object with private;
type A_Sound is access all Sound'Class;
function Is_Done
( | this | : not null access Sound'Class ) return Boolean; |
procedure Play
( | this | : access Sound; |
looping | : Boolean ) is abstract; |
procedure Poll
( | this | : access Sound ) is abstract; |
procedure Stop
( | this | : access Sound ) is abstract; |
function Load_Sound
( | filename | : String ) return A_Sound; |
procedure Unload_Sound
( | snd | : in out A_Sound ); |