Index

Package: Ked

Description

package Events.Ked is

Classes

Apply_Tool_Map_Event

type Apply_Tool_Map_Event is new Event with private;

Ancestors:

Primitive operations:

Construct
Events.Construct (Inherited)
Events.To_String (Inherited)
Objects.Adjust (Inherited)
Objects.Construct (Inherited)
Objects.Delete (Inherited)
Objects.Object_Read (Inherited)
Objects.Object_Write (Inherited)

Import_World_Event

type Import_World_Event is new Event with private;

Ancestors:

Primitive operations:

Construct
Events.Construct (Inherited)
Events.To_String (Inherited)
Objects.Adjust (Inherited)
Objects.Construct (Inherited)
Objects.Delete (Inherited)
Objects.Object_Read (Inherited)
Objects.Object_Write (Inherited)

Save_World_Event

type Save_World_Event is new Event with private;

Ancestors:

Primitive operations:

Construct (overriding Events.Construct)
Events.To_String (Inherited)
Objects.Adjust (Inherited)
Objects.Construct (Inherited)
Objects.Delete (Inherited)
Objects.Object_Read (Inherited)
Objects.Object_Write (Inherited)

Set_Tool_Event

type Set_Tool_Event is new Event with private;

Ancestors:

Primitive operations:

Adjust (overriding Objects.Adjust)
Construct
Delete (overriding Objects.Delete)
Events.Construct (Inherited)
Events.To_String (Inherited)
Objects.Construct (Inherited)
Objects.Object_Read (Inherited)
Objects.Object_Write (Inherited)

Types

A_Apply_Tool_Map_Event

type A_Apply_Tool_Map_Event is access all Apply_Tool_Map_Event'Class;

A_Import_World_Event

type A_Import_World_Event is access all Import_World_Event'Class;

A_Save_World_Event

type A_Save_World_Event is access all Save_World_Event'Class;

A_Set_Tool_Event

type A_Set_Tool_Event is access all Set_Tool_Event'Class;

Constants & Global variables

APPLY_TOOL_MAP_ID (Events.Event_Id)

APPLY_TOOL_MAP_ID : constant Event_Id := To_Event_Id( "Apply_Tool_Map" );

IMPORT_WORLD_ID (Events.Event_Id)

IMPORT_WORLD_ID   : constant Event_Id := To_Event_Id( "Import_World" );

SAVE_WORLD_ID (Events.Event_Id)

SAVE_WORLD_ID     : constant Event_Id := To_Event_Id( "Save_World" );

SET_TOOL_ID (Events.Event_Id)

SET_TOOL_ID       : constant Event_Id := To_Event_Id( "Set_Tool" );

Subprograms & Entries

Get_Function

function Get_Function
( this: not null access Apply_Tool_Map_Event'Class ) return Function_Type;

Get_Layer

function Get_Layer
( this: not null access Apply_Tool_Map_Event'Class ) return Integer;

Get_Modifiers

function Get_Modifiers
( this: not null access Apply_Tool_Map_Event'Class ) return Modifiers_Array;

Get_X

function Get_X
( this: not null access Apply_Tool_Map_Event'Class ) return Integer;

Get_Y

function Get_Y
( this: not null access Apply_Tool_Map_Event'Class ) return Integer;

Is_First

function Is_First
( this: not null access Apply_Tool_Map_Event'Class ) return Boolean;

Get_Domain

function Get_Domain
( this: not null access Import_World_Event'Class ) return String;

Get_Filename

function Get_Filename
( this: not null access Import_World_Event'Class ) return String;

Get_Library_Name

function Get_Library_Name
( this: not null access Import_World_Event'Class ) return String;

Get_Tolerance

function Get_Tolerance
( this: not null access Import_World_Event'Class ) return Natural;

Get_Filename

function Get_Filename
( this: not null access Save_World_Event'Class ) return String;

Get_Tool

function Get_Tool
( this: not null access Set_Tool_Event'Class ) return A_Tool;

Queue_Apply_Tool_Map

procedure Queue_Apply_Tool_Map
( func: Function_Type;
modifiers: Modifiers_Array;
first: Boolean;
x, y: Integer;
layer: Integer );

Trigger_Import_World

procedure Trigger_Import_World
( filename: String;
libName: String;
domain: String;
tolerance: Natural );

Trigger_Save_World

procedure Trigger_Save_World
( filename: String );
Raises exception on failure.

Queue_Set_Tool

procedure Queue_Set_Tool
( tool: not null A_Tool );