package Widgets.Buttons.Groups is
type Button_Group_Action is new Action with private;
type Button_Group is new Limited_Object and Button_Listener with private;
type A_Button_Group_Action is access all Button_Group_Action'Class;
type Button_Group_Listener is limited interface and Action_Listener;
type A_Button_Group_Listener is access all Button_Group_Listener'Class;
type A_Button_Group is access all Button_Group'Class;
Group_Cleared : constant Action_Id;
procedure Handle_Action
( | this | : access Button_Group_Listener; |
action | : A_Button_Group_Action ) is abstract; |
function Create_Button_Group return A_Button_Group;
procedure Add
( | this | : access Button_Group; |
button | : not null A_Button ); |
procedure Add_Listener
( | this | : not null access Button_Group'Class; |
listener | : not null A_Button_Group_Listener ); |
procedure Clear
( | this | : access Button_Group ); |
procedure Remove_Listener
( | this | : access Button_Group; |
listener | : not null A_Button_Group_Listener ); |
procedure Set_Keep_Selected
( | this | : access Button_Group; |
keep | : Boolean ); |
procedure Unset
( | this | : access Button_Group; |
force | : Boolean := False ); |