1. package Applications.Gui.Games.Keen is 
  2.  
  3.     pragma Elaborate_Body; 
  4.  
  5. private 
  6.  
  7.     type Keen_Application is new Game_Application with null record; 
  8.  
  9.     procedure Construct( this : access Keen_Application ); 
  10.  
  11.     procedure Draw_Loading_Screen( this : access Keen_Application; 
  12.                                    dc   : Drawing_Context ); 
  13.  
  14.     function Init( this : access Keen_Application ) return Boolean; 
  15.  
  16. end Applications.Gui.Games.Keen;