type Game_Paused_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 A_Game_Paused_Event is access all Game_Paused_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;
GAME_PAUSED_ID : constant Event_Id := To_Event_Id( "Game_Paused" );
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" );
procedure Copy_Value
( | this | : access Game_Var_Changed_Event; |
val | : in out A_Value ); |
procedure Queue_Game_Var_Changed
( | var | : String; |
val | : in out A_Value ); |
procedure Queue_New_Game;