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.Title is 
  10.  
  11.     -- A title screen simply displays the game's splash screen and waits for 
  12.     -- any key to be pressed before exiting. 
  13.     type Title_Screen is new Game_Screen and Key_Listener with private; 
  14.  
  15.     -- Creats a new title screen. 
  16.     function Create_Title_Screen( view : not null access Game_Views.Game_View'Class; 
  17.                                   id   : String ) return A_Game_Screen; 
  18.  
  19. private 
  20.  
  21.     type Title_Screen is new Game_Screen and Key_Listener with null record; 
  22.  
  23.     procedure Construct( this : access Title_Screen; 
  24.                          view : not null access Game_Views.Game_View'Class; 
  25.                          id   : String ); 
  26.  
  27.     -- Exits the screen on any key press. 
  28.     procedure Handle_Action( this    : access Title_Screen; 
  29.                              action  : A_Key_Action; 
  30.                              handled : out Boolean ); 
  31.  
  32. end Widgets.Containers.Game_Screens.Title;