Index

Package: Tools

Description

package Tools 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

Tool (abstract)

type Tool is abstract new Object with private;

Ancestors:

Immediate Children:

Primitive operations:

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

Types

Tool_Type

type Tool_Type is (
        Pointer_Tool,
        Paint_Tool,
        Matrix_Tool,
        Entity_Tool,
        Trigger_Tool
    );

Function_Type

type Function_Type is ( Primary, Secondary, Tertiary );

Tool_Context

type Tool_Context is
        record
            func      : Function_Type;
            modifiers : Modifiers_Array;
            first     : Boolean;
            world     : A_World;
            worldX,
            worldY,
            layer     : Integer;
        end record;
Provided to the tool when it is applied, to encapsulate all the information necessary for the tool to apply itself.

A_Tool

type A_Tool is access all Tool'Class;

Subprograms & Entries

Apply (abstract)

procedure Apply
( this: access Tool;
context: Tool_Context ) is abstract;

Get_Type (abstract)

function Get_Type
( this: access Tool ) return Tool_Type is abstract;

Copy

function Copy
( src: A_Tool ) return A_Tool;

Delete

procedure Delete
( this: in out A_Tool );
Deletes the Tool.