Index

Package: Buttons

Description

package Widgets.Buttons is

Classes

Button_Action

type Button_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)

Button (abstract)

type Button is abstract new Widget with private;

Ancestors:

Immediate Children:

Primitive operations:

Add_Listener
Add_Listener
Construct
Dispatch_Action
Draw_Content
Get_Min_Height
Get_Min_Width
Objects.Construct (Inherited)
Remove_Listener
Set_Color (overriding Widgets.Set_Color)
To_String
Toggle_State
Widgets.Activate_Popup (Inherited)
Widgets.Bring_To_Front (Inherited)
Widgets.Construct (Inherited)
Widgets.Deactivate_Popup (Inherited)
Widgets.Delete (Inherited)
Widgets.Draw (Inherited)
Widgets.Draw_Content (Inherited)
Widgets.Find_Widget (Inherited)
Widgets.Get_Color (Inherited)
Widgets.Get_Min_Height (Inherited)
Widgets.Get_Min_Width (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_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_Button_Action

type A_Button_Action is access all Button_Action'Class;

Button_Listener (abstract)

type Button_Listener is limited interface and Action_Listener;
This is the interface to implement in order to listen to button actions. When a button action occurs, the listener will be notified of the type of action performed and the button that performed the action.

A_Button_Listener

type A_Button_Listener is access all Button_Listener'Class;

A_Button_Handler

type A_Button_Handler is
        access procedure( action : A_Button_Action );

A_Button

type A_Button is access all Button'Class;

Constants & Global variables

Subprograms & Entries

Handle_Action (abstract)

procedure Handle_Action
( this: access Button_Listener;
action: A_Button_Action ) is abstract;

Add_Listener

procedure Add_Listener
( this: access Button;
listener: not null A_Button_Listener );

Add_Listener

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

Contrast_Text

procedure Contrast_Text
( this: not null access Button'Class;
enabled: Boolean );

Get_State

function Get_State
( this: not null access Button'Class ) return Boolean;

Get_Text

function Get_Text
( this: not null access Button'Class ) return String;

Remove_Listener

procedure Remove_Listener
( this: access Button;
listener: not null A_Button_Listener );

Set_Align

procedure Set_Align
( this: not null access Button'Class;
align: Align_Type );

Set_Color

procedure Set_Color
( this : access Button; purpose : Color_Purpose; color : Color_Type );

Set_Icon

procedure Set_Icon
( this: access Button;
icon: String );

Set_State

procedure Set_State
( this: access Button;
on: Boolean );

Set_Text

procedure Set_Text
( this: access Button;
text: String );

Toggle_State

procedure Toggle_State
( this: access Button );