generic type Target (<>) is tagged limited private; package Widgets.Buttons.Groups.Simple_Listeners is
type A_Handler is access procedure( object : not null access Target'Class; action : A_Button_Group_Action );
function Listener
( | id | : Action_Id; |
obj | : access Target'Class; | |
handler | : not null A_Handler ) return A_Button_Group_Listener; |