package Widgets.Containers.Game_Screens.Title is
type Title_Screen is new Game_Screen and Key_Listener with private;
function Create_Title_Screen( view : not null access Game_Views.Game_View'Class;
id : String ) return A_Game_Screen;
private
type Title_Screen is new Game_Screen and Key_Listener with null record;
procedure Construct( this : access Title_Screen;
view : not null access Game_Views.Game_View'Class;
id : String );
procedure Handle_Action( this : access Title_Screen;
action : A_Key_Action;
handled : out Boolean );
end Widgets.Containers.Game_Screens.Title;