package Games is
type Game is abstract new Limited_Object and Event_Listener with private;
type A_Game is access all Game'Class;
function Create_Game return A_Game;
procedure Finalize
( | this | : not null access Game'Class ); |
procedure Initialize
( | this | : not null access Game'Class ); |
procedure Delete
( | this | : in out A_Game ); |