type End_Game_Event is new Event with private;
type Game_Paused_Event is new Event with private;
type Game_State_Event is new Event with private;
type Game_Var_Changed_Event is new Event with private;
type Loading_Event is new Event with private;
type New_Game_Event is new Event with private;
type Pause_Game_Event is new Event with private;
type Scroll_View_Event is new Event with private;
type View_Ready_Event is new Event with private;
type A_End_Game_Event is access all End_Game_Event'Class;
type A_Game_Paused_Event is access all Game_Paused_Event'Class;
type A_Game_State_Event is access all Game_State_Event'Class;
type A_Game_Var_Changed_Event is access all Game_Var_Changed_Event'Class;
type A_Loading_Event is access all Loading_Event'Class;
type A_New_Game_Event is access all New_Game_Event'Class;
type A_Pause_Game_Event is access all Pause_Game_Event'Class;
type A_Scroll_View_Event is access all Scroll_View_Event'Class;
type A_View_Ready_Event is access all View_Ready_Event'Class;
END_GAME_ID : constant Event_Id := To_Event_Id( "End_Game" );
GAME_PAUSED_ID : constant Event_Id := To_Event_Id( "Game_Paused" );
GAME_STATE_ID : constant Event_Id := To_Event_Id( "Game_State" );
GAME_VAR_CHANGED_ID : constant Event_Id := To_Event_Id( "Game_Var_Changed" );
LOADING_ID : constant Event_Id := To_Event_Id( "Loading" );
NEW_GAME_ID : constant Event_Id := To_Event_Id( "New_Game" );
PAUSE_GAME_ID : constant Event_Id := To_Event_Id( "Pause_Game" );
SCROLL_VIEW_ID : constant Event_Id := To_Event_Id( "Scroll_View" );
VIEW_READY_ID : constant Event_Id := To_Event_Id( "View_Ready" );
procedure Copy_Value
( | this | : access Game_Var_Changed_Event; |
val | : in out A_Value ); |
procedure Queue_End_Game;
procedure Queue_Game_Var_Changed
( | var | : String; |
val | : in out A_Value ); |
procedure Queue_New_Game;