type Play_Music_Event is new Event with private;
type Play_Sound_Event is new Event with private;
type Stop_Music_Event is new Event with private;
type A_Play_Music_Event is access all Play_Music_Event'Class;
type A_Play_Sound_Event is access all Play_Sound_Event'Class;
type A_Stop_Music_Event is access all Stop_Music_Event'Class;
PLAY_MUSIC_ID : constant Event_Id := To_Event_Id( "Play_Music" );
PLAY_SOUND_ID : constant Event_Id := To_Event_Id( "Play_Sound" );
STOP_MUSIC_ID : constant Event_Id := To_Event_Id( "Stop_Music" );
function Get_Music_Name
( | this | : not null access Play_Music_Event'Class ) return String; |
function Get_Sound_Name
( | this | : not null access Play_Sound_Event'Class ) return String; |