package Widgets.Containers.Game_Screens.Retry is
type Retry_Screen is new Game_Screen with private;
function Create_Retry_Screen( view : not null access Game_Views.Game_View'Class;
id : String;
dialogId : Integer;
levelName : String;
yesText : String;
noText : String ) return A_Game_Screen;
private
type Retry_Screen is new Game_Screen with
record
dialogId : Integer := 0;
end record;
procedure Construct( this : access Retry_Screen;
view : not null access Game_Views.Game_View'Class;
id : String;
dialogId : Integer;
levelName : String;
yesText : String;
noText : String ) ;
procedure Activate( this : access Retry_Screen );
end Widgets.Containers.Game_Screens.Retry;