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 Applications.Gui.Games.Keen is 
  10.  
  11.     pragma Elaborate_Body; 
  12.  
  13. private 
  14.  
  15.     type Keen_Application is new Game_Application with null record; 
  16.  
  17.     procedure Draw_Loading_Screen( this : access Keen_Application ); 
  18.  
  19.     function Initialize( this : access Keen_Application ) return Boolean; 
  20.  
  21.     procedure Load_Resources( this : access Keen_Application ); 
  22.  
  23. end Applications.Gui.Games.Keen;