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. private with Tiles.Libraries; 
  10.  
  11. package Themes.Keen is 
  12.  
  13.     pragma Elaborate_Body; 
  14.  
  15. private 
  16.  
  17.     use Tiles.Libraries; 
  18.  
  19.     type Keen_Theme is new Theme with 
  20.         record 
  21.             lib : A_Tile_Library := null; 
  22.         end record; 
  23.  
  24.     procedure Construct( this : access Keen_Theme ); 
  25.  
  26.     procedure Delete( this : in out Keen_Theme ); 
  27.  
  28.     function Get_Bitmap( this : access Keen_Theme; 
  29.                          id   : Natural ) return A_Allegro_Bitmap; 
  30.  
  31.     function Get_ID( this : access Keen_Theme; name : String ) return Natural; 
  32.     pragma Precondition( name'Length > 0 ); 
  33.  
  34.     function Get_Tile( this : access Keen_Theme; id : Natural ) return A_Tile; 
  35.  
  36. end Themes.Keen;