package Gn.Entity is type Entity_Record is tagged record name : access String; Class : Class_Enum; Image : access String; end record; type Entity_Access is access all Entity_Record; type Entity_Array is array (Positive range <>) of Entity_Access; end Gn.Entity;