1. private with Tiles.Libraries; 
  2.  
  3. package Themes.Keen is 
  4.  
  5.     pragma Elaborate_Body; 
  6.  
  7. private 
  8.  
  9.     use Tiles.Libraries; 
  10.  
  11.     type Keen_Theme is new Theme with 
  12.         record 
  13.             lib : A_Tile_Library := null; 
  14.         end record; 
  15.  
  16.     procedure Construct( this : access Keen_Theme ); 
  17.  
  18.     procedure Delete( this : in out Keen_Theme ); 
  19.  
  20.     function Get_Bitmap( this : access Keen_Theme; 
  21.                          id   : Natural ) return A_Bitmap; 
  22.  
  23.     function Get_ID( this : access Keen_Theme; name : String ) return Natural; 
  24.     pragma Precondition( name'Length > 0 ); 
  25.  
  26. end Themes.Keen;