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