private package Tiles.Catalogs is
type Catalog is new Object with private;
type A_Catalog is access all Catalog'Class;
procedure Add_Matrix
( | this | : not null access Catalog'Class; |
matrix | : in out A_Tile_Matrix ); |
function Get_Matrix
( | this | : not null access Catalog'Class; |
index | : Natural ) return A_Tile_Matrix; |
function Get_Matrix_Count
( | this | : not null access Catalog'Class ) return Natural; |
procedure Iterate_By_Id
( | this | : not null access Catalog'Class; |
examine | : not null access procedure( tile : not null A_Tile ) ); |
procedure Iterate_By_Slot
( | this | : not null access Catalog'Class; |
examine | : not null access procedure( slot : Positive; | |
tile | : A_Tile ) ); |
function Object_Input
( | stream | : access Root_Stream_Type'Class ) return Catalog; |
procedure Object_Output
( | stream | : access Root_Stream_Type'Class; |
obj | : Catalog ); |
procedure Delete
( | this | : in out A_Catalog ); |