package Tools.Trigger_Spawners is
type Trigger_Spawner is new Tool with private;
function Create_Trigger_Spawner return A_Tool;
pragma Postcondition( Create_Trigger_Spawner'Result /= null );
private
type Trigger_Spawner is new Tool with null record;
procedure Apply( this : access Trigger_Spawner;
func : Function_Type;
modifiers : Modifiers_Array;
first : Boolean;
world : not null A_World;
worldX,
worldY,
layer : Integer );
end Tools.Trigger_Spawners;