type Apply_Tool_Map_Event is new Event with private;
type Import_World_Event is new Event with private;
type Save_World_Event is new Event with private;
type Set_Tool_Event is new Event with private;
type A_Apply_Tool_Map_Event is access all Apply_Tool_Map_Event'Class;
type A_Import_World_Event is access all Import_World_Event'Class;
type A_Save_World_Event is access all Save_World_Event'Class;
type A_Set_Tool_Event is access all Set_Tool_Event'Class;
APPLY_TOOL_MAP_ID : constant Event_Id := To_Event_Id( "Apply_Tool_Map" );
IMPORT_WORLD_ID : constant Event_Id := To_Event_Id( "Import_World" );
SAVE_WORLD_ID : constant Event_Id := To_Event_Id( "Save_World" );
SET_TOOL_ID : constant Event_Id := To_Event_Id( "Set_Tool" );
function Get_Function
( | this | : not null access Apply_Tool_Map_Event'Class ) return Function_Type; |
function Get_Layer
( | this | : not null access Apply_Tool_Map_Event'Class ) return Integer; |
function Get_Modifiers
( | this | : not null access Apply_Tool_Map_Event'Class ) return Modifiers_Array; |
function Get_X
( | this | : not null access Apply_Tool_Map_Event'Class ) return Integer; |
function Get_Y
( | this | : not null access Apply_Tool_Map_Event'Class ) return Integer; |
function Is_First
( | this | : not null access Apply_Tool_Map_Event'Class ) return Boolean; |
function Get_Domain
( | this | : not null access Import_World_Event'Class ) return String; |
function Get_Filename
( | this | : not null access Import_World_Event'Class ) return String; |
function Get_Library_Name
( | this | : not null access Import_World_Event'Class ) return String; |
function Get_Tolerance
( | this | : not null access Import_World_Event'Class ) return Natural; |
function Get_Filename
( | this | : not null access Save_World_Event'Class ) return String; |
function Get_Tool
( | this | : not null access Set_Tool_Event'Class ) return A_Tool; |
procedure Queue_Apply_Tool_Map
( | func | : Function_Type; |
modifiers | : Modifiers_Array; | |
first | : Boolean; | |
x, y | : Integer; | |
layer | : Integer ); |
procedure Queue_Set_Tool
( | tool | : not null A_Tool ); |