Index

Package: Progress_Boards

Description

package Widgets.Progress_Boards is

Classes

PBoard_Action

type PBoard_Action is new Action with private;

Ancestors:

Primitive operations:

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

Progress_Board

type Progress_Board is new Widget and Process with private;

Ancestors:

Primitive operations:

Add_Listener
Add_Listener
Construct
Delete (overriding Widgets.Delete)
Dispatch_Action
Draw_Content (overriding Widgets.Draw_Content)
Get_Min_Height (overriding Widgets.Get_Min_Height)
Get_Min_Width (overriding Widgets.Get_Min_Width)
Get_Process_Name (overriding Processes.Get_Process_Name)
Objects.Construct (Inherited)
Remove_Listener
Set_Ancients
Set_Blue_Key
Set_Green_Key
Set_Location
Set_Next_Life
Set_Yellow_Key
Tick (overriding Processes.Tick)
Widgets.Activate_Popup (Inherited)
Widgets.Bring_To_Front (Inherited)
Widgets.Construct (Inherited)
Widgets.Deactivate_Popup (Inherited)
Widgets.Draw (Inherited)
Widgets.Find_Widget (Inherited)
Widgets.Get_Color (Inherited)
Widgets.Get_View (Inherited)
Widgets.Get_Window (Inherited)
Widgets.Handle_Ancestor_Hidden (Inherited)
Widgets.Handle_Ancestor_Unhidden (Inherited)
Widgets.Handle_Blur (Inherited)
Widgets.Handle_Click (Inherited)
Widgets.Handle_Descendant_Hidden (Inherited)
Widgets.Handle_Descendant_Unhidden (Inherited)
Widgets.Handle_Enter (Inherited)
Widgets.Handle_Exit (Inherited)
Widgets.Handle_Focus (Inherited)
Widgets.Handle_Key_Held (Inherited)
Widgets.Handle_Key_Press (Inherited)
Widgets.Handle_Key_Release (Inherited)
Widgets.Handle_Mouse_Held (Inherited)
Widgets.Handle_Mouse_Move (Inherited)
Widgets.Handle_Mouse_Press (Inherited)
Widgets.Handle_Mouse_Release (Inherited)
Widgets.Handle_Mouse_Scroll (Inherited)
Widgets.Handle_Resize (Inherited)
Widgets.Pack (Inherited)
Widgets.Set_Color (Inherited)
Widgets.Set_Dirty (Inherited)
Widgets.Set_Enabled (Inherited)
Widgets.Set_Focused (Inherited)
Widgets.Set_Parent (Inherited)
Widgets.Set_Visible (Inherited)
Widgets.Set_Zoom (Inherited)
Widgets.To_String (Inherited)
Widgets.Translate_To_Content (Inherited)
Widgets.Translate_To_Window (Inherited)

Types

A_PBoard_Action

type A_PBoard_Action is access all PBoard_Action'Class;

PBoard_Listener (abstract)

type PBoard_Listener is limited interface and Action_Listener;
This is the interface to implement in order to listen to progress board actions. When an action occurs, the listener will be notified of the type of action performed and the progress board that performed the action.

A_PBoard_Listener

type A_PBoard_Listener is access all PBoard_Listener'Class;

A_PBoard_Handler

type A_PBoard_Handler is
        access procedure( action : A_PBoard_Action );

A_Progress_Board

type A_Progress_Board is access all Progress_Board'Class;

Constants & Global variables

Subprograms & Entries

Handle_Action (abstract)

procedure Handle_Action
( this: access PBoard_Listener;
action: A_PBoard_Action ) is abstract;

Create_Progress_Board

function Create_Progress_Board
( view: not null access Game_Views.Game_View'Class;
id: String;
libName: String ) return A_Progress_Board;

Add_Listener

procedure Add_Listener
( this: access Progress_Board;
listener: not null A_PBoard_Listener );

Add_Listener

procedure Add_Listener
( this: access Progress_Board;
handler: not null A_PBoard_Handler );
Adds the handler procedure as a simple listener. The listener can't be removed and can be added multiple times.

Is_Open

function Is_Open
( this: access Progress_Board ) return Boolean;
Returns true if the board is not currently closed. It may be fully open or sliding in either direction.

Remove_Listener

procedure Remove_Listener
( this: access Progress_Board;
listener: not null A_PBoard_Listener );

Set_Ammo

procedure Set_Ammo
( this: access Progress_Board;
ammo: Natural );

Set_Ancients

procedure Set_Ancients
( this: access Progress_Board;
ancients: Natural );

Set_Blue_Key

procedure Set_Blue_Key
( this: access Progress_Board;
blueKey: Boolean );

Set_Drops

procedure Set_Drops
( this: access Progress_Board;
drops: Natural );

Set_Green_Key

procedure Set_Green_Key
( this: access Progress_Board;
greenKey: Boolean );

Set_Lives

procedure Set_Lives
( this: access Progress_Board;
lives: Natural );

Set_Location

procedure Set_Location
( this: access Progress_Board;
location: String );

Set_Next_Life

procedure Set_Next_Life
( this: access Progress_Board;
nextLife: Natural );

Set_Points

procedure Set_Points
( this: access Progress_Board;
points: Natural );

Set_Red_Key

procedure Set_Red_Key
( this: access Progress_Board;
redKey: Boolean );

Set_Scuba

procedure Set_Scuba
( this: access Progress_Board;
scuba: Boolean );

Set_Yellow_Key

procedure Set_Yellow_Key
( this: access Progress_Board;
yellowKey: Boolean );

Show

procedure Show
( this: access Progress_Board;
enabled: Boolean );

Toggle

procedure Toggle
( this: access Progress_Board );
Toggles the open/closed state of the progress board. Calling this is equivalent to this.Show( not this.Is_Open ).