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.Menus.Main is 
  10.  
  11.     -- The main menu screen represents Keen's main menu. New game, save game, 
  12.     -- configure, quit, etc. 
  13.     type Main_Menu_Screen is new Menu_Screen with private; 
  14.  
  15.     -- Creates a new main menu screen. 
  16.     function Create_Main_Menu_Screen( view           : not null access Game_Views.Game_View'Class; 
  17.                                       id             : String; 
  18.                                       gameInProgress : Boolean ) return A_Game_Screen; 
  19.  
  20. private 
  21.  
  22.     type Main_Menu_Screen is new Menu_Screen with 
  23.         record 
  24.             gameInProgress : Boolean := False; 
  25.         end record; 
  26.  
  27.     procedure Construct( this           : access Main_Menu_Screen; 
  28.                          view           : not null access Game_Views.Game_View'Class; 
  29.                          id             : String; 
  30.                          gameInProgress : Boolean ); 
  31.  
  32.     procedure Activate( this : access Main_Menu_Screen ); 
  33.  
  34. end Widgets.Containers.Game_Screens.Menus.Main;