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