type Tool is abstract new Object with private;
type A_Tool is access all Tool'Class;
procedure Apply
( | this | : access Tool; |
func | : Function_Type; | |
modifiers | : Modifiers_Array; | |
first | : Boolean; | |
world | : not null A_World; | |
worldX, worldY, layer | : Integer ) is abstract; |