package Widgets.Containers.Game_Screens.Menus.Main is
type Main_Menu_Screen is new Menu_Screen with private;
function Create_Main_Menu_Screen( view : not null access Game_Views.Game_View'Class;
id : String;
gameInProgress : Boolean ) return A_Game_Screen;
private
type Main_Menu_Screen is new Menu_Screen with
record
gameInProgress : Boolean := False;
end record;
procedure Construct( this : access Main_Menu_Screen;
view : not null access Game_Views.Game_View'Class;
id : String;
gameInProgress : Boolean );
procedure Activate( this : access Main_Menu_Screen );
end Widgets.Containers.Game_Screens.Menus.Main;