type Tile_Library is new Limited_Object with private;
type A_Tile_Library is access all Tile_Library'Class;
function Exists
( | this | : not null access Tile_Library'Class; |
id | : Natural ) return Boolean; |
function Get_Bitmap
( | this | : not null access Tile_Library'Class; |
id | : Natural ) return A_Bitmap; |
function Get_Bitmap_Sync
( | this | : not null access Tile_Library'Class; |
id | : Natural ) return A_Bitmap; |
function Get_Bitmap_At_Slot
( | this | : not null access Tile_Library'Class; |
slot | : Natural ) return A_Bitmap; |
function Get_Clip
( | this | : not null access Tile_Library'Class; |
id | : Natural ) return Clip_Type; |
function Get_Id
( | this | : not null access Tile_Library'Class; |
name | : String ) return Natural; |
function Get_Id_At_Slot
( | this | : not null access Tile_Library'Class; |
slot | : Natural ) return Natural; |
function Get_Name
( | this | : not null access Tile_Library'Class ) return String; |
function Get_Matrix
( | this | : not null access Tile_Library'Class; |
num | : Natural ) return A_Tile_Matrix; |
function Get_Matrix_Count
( | this | : not null access Tile_Library'Class ) return Natural; |
function Get_Progress
( | this | : not null access Tile_Library'Class ) return Natural; |
function Get_Slot_For_ID
( | this | : not null access Tile_Library'Class; |
id | : Natural ) return Natural; |
function Get_Tile_Count
( | this | : not null access Tile_Library'Class ) return Natural; |
function Get_Tile
( | this | : not null access Tile_Library'Class; |
id | : Natural ) return A_Tile; |
function Is_Loaded
( | this | : not null access Tile_Library'Class ) return Boolean; |
procedure Initialize;
procedure Finalize;
function Load_Library
( | name | : String ) return A_Tile_Library; |
function Load_Library_Sync
( | name | : String ) return A_Tile_Library; |
procedure Unload_Library
( | lib | : in out A_Tile_Library ); |