type Tile_Object is abstract new Object with private;
type A_Tile_Id_Array is access all Tile_Id_Array;
type A_Tile is access all Tile_Object'Class;
procedure Initialize;
procedure Finalize;
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_Anm_Delay
( | this | : not null access Tile_Object'Class ) return Time_Span; |
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 Get_Next_Frame
( | this | : not null access Tile_Object'Class ) return Natural; |
function Get_Frame_List
( | this | : not null access Tile_Object'Class ) return A_Tile_Id_Array; |
function Is_Animated
( | this | : not null access Tile_Object'Class ) return Boolean; |
function Object_Input
( | stream | : access Root_Stream_Type'Class ) return Tile_Object is abstract; |
procedure Object_Output
( | stream | : access Root_Stream_Type'Class; |
obj | : Tile_Object ) is abstract; |
procedure Set_Attribute
( | this | : in out Tile_Object; |
found | : out Boolean; | |
name | : String; | |
val | : String := "" ); |
procedure Set_Id
( | this | : access Tile_Object; |
id | : Natural ); |
procedure Set_Name
( | this | : access Tile_Object; |
name | : String ); |