package Tiles is
type Tile_Object is new Object with private;
type A_Tile_Id_Array is access all Tile_Id_Array;
type A_Tile is access all Tile_Object'Class;
function A_Tile_Id_Array_Input
( | stream | : access Root_Stream_Type'Class ) return A_Tile_Id_Array; |
procedure A_Tile_Id_Array_Output
( | stream | : access Root_Stream_Type'Class; |
tia | : A_Tile_Id_Array ); |
procedure Delete is new Ada.Unchecked_Deallocation
( | Tile_Id_Array, A_Tile_Id_Array ); |
function Create_Tile return A_Tile;
function Get_Attribute
( | this | : access Tile_Object'Class; |
name | : String ) return Value_Ptr; |
function Get_Bitmap
( | this | : access Tile_Object'Class ) return A_Allegro_Bitmap; |
function Get_Id
( | this | : not null access Tile_Object'Class ) return Natural; |
function Get_Name
( | this | : not null access Tile_Object'Class ) return String; |
function Is_Loaded
( | this | : not null access Tile_Object'Class ) return Boolean; |
function Object_Input
( | stream | : access Root_Stream_Type'Class ) return Tile_Object; |
procedure Object_Output
( | stream | : access Root_Stream_Type'Class; |
obj | : Tile_Object ); |
procedure Set_Attribute
( | this | : not null access Tile_Object'Class; |
name | : String; | |
val | : Value_Ptr'Class ); |
procedure Set_Id
( | this | : access Tile_Object; |
id | : Natural ); |
procedure Set_Name
( | this | : access Tile_Object; |
name | : String ); |