1. -- 
  2. -- Copyright (c) 2012 Kevin Wellwood 
  3. -- All rights reserved. 
  4. -- 
  5. -- This source code is distributed under the Modified BSD License. For terms and 
  6. -- conditions, see license.txt. 
  7. -- 
  8.  
  9. package Widgets.Containers.Game_Screens.Retry is 
  10.  
  11.     -- The retry screen is shown when Keen dies, to ask the player if he wants 
  12.     -- to try the level again or return to the map. 
  13.     type Retry_Screen is new Game_Screen with private; 
  14.  
  15.     -- Creates a new retry level screen. 
  16.     function Create_Retry_Screen( view      : not null access Game_Views.Game_View'Class; 
  17.                                   id        : String; 
  18.                                   dialogId  : Integer; 
  19.                                   levelName : String; 
  20.                                   yesText   : String; 
  21.                                   noText    : String ) return A_Game_Screen; 
  22.  
  23. private 
  24.  
  25.     type Retry_Screen is new Game_Screen with 
  26.         record 
  27.             -- the pending dialog id to send with the response event 
  28.             dialogId : Integer := 0; 
  29.         end record; 
  30.  
  31.     procedure Construct( this      : access Retry_Screen; 
  32.                          view      : not null access Game_Views.Game_View'Class; 
  33.                          id        : String; 
  34.                          dialogId  : Integer; 
  35.                          levelName : String; 
  36.                          yesText   : String; 
  37.                          noText    : String ) ; 
  38.  
  39.     procedure Activate( this : access Retry_Screen ); 
  40.  
  41. end Widgets.Containers.Game_Screens.Retry;