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