private with Tiles.Libraries;
package Themes.Ked is
private
use Tiles.Libraries;
type Ked_Theme is new Theme with
record
lib : A_Tile_Library := null;
end record;
procedure Construct( this : access Ked_Theme );
procedure Delete( this : in out Ked_Theme );
function Get_Bitmap( this : access Ked_Theme;
id : Natural ) return A_Allegro_Bitmap;
function Get_ID( this : access Ked_Theme; name : String ) return Natural;
pragma Precondition( name'Length > 0 );
function Get_Tile( this : access Ked_Theme; id : Natural ) return A_Tile;
end Themes.Ked;