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