package Widgets.Containers.Game_Screens.Paddle_War is
type Paddle_War_Screen is new Game_Screen with private;
function Create_Paddle_War_Screen( view : not null access Game_Views.Game_View'Class;
id : String ) return A_Game_Screen;
private
type Paddle_War_Screen is new Game_Screen with null record;
procedure Construct( this : access Paddle_War_Screen;
view : not null access Game_Views.Game_View'Class;
id : String );
procedure Activate( this : access Paddle_War_Screen );
end Widgets.Containers.Game_Screens.Paddle_War;