type Button_Group_Action is new Action with private;
type Button_Group is new Object and Button_Listener with private;
type A_Button_Group_Action is access all Button_Group_Action'Class;
type A_Button_Group_Listener is access procedure( action : A_Button_Group_Action );
type A_Button_Group is access all Button_Group'Class;
Group_Cleared : constant Action_Id;
function Create_Button_Group return A_Button_Group;
procedure Add
( | this | : access Button_Group; |
button | : not null A_Button ); |
procedure Add_Listener
( | this | : access Button_Group; |
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 ); |