private with Tiles.Libraries;
package Themes.Ked is
pragma Elaborate_Body;
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_Bitmap;
function Get_ID( this : access Ked_Theme; name : String ) return Natural;
pragma Precondition( name'Length > 0 );
end Themes.Ked;