Index

Package: Ked

Description

package Events.Ked is
Copyright (c) 2012 Kevin Wellwood All rights reserved. This source code is distributed under the Modified BSD License. For terms and conditions, see license.txt.

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 );