package Game_Views is
type Game_View is abstract new Limited_Object and Event_Listener and Process with private;
type A_Game_View is access all Game_View'Class;
function Create_Game_View
( | display | : not null A_Allegro_Display ) return A_Game_View; |
procedure Initialize
( | this | : not null access Game_View'Class ); |
procedure Finalize
( | this | : not null access Game_View'Class ); |
procedure New_Game
( | this | : not null access Game_View'Class ); |
procedure Ready_For_Play
( | this | : not null access Game_View'Class ); |
procedure Pause_Game
( | this | : not null access Game_View'Class; |
pause | : Boolean ); |
function Is_Game_In_Session
( | this | : not null access Game_View'Class ) return Boolean; |
function Is_Paused
( | this | : not null access Game_View'Class ) return Boolean; |
procedure End_Game
( | this | : not null access Game_View'Class ); |
procedure Quit
( | this | : not null access Game_View'Class ); |
function Get_Display
( | this | : not null access Game_View'Class ) return A_Allegro_Display; |
procedure Unregister
( | this | : not null access Game_View'Class; |
id | : String ); |