type A_Handler is access procedure( object : not null access Target'Class; action : A_Menu_Action );
function Listener
( | id | : Action_Id; |
obj | : access Target'Class; | |
handler | : not null A_Handler ) return A_Menu_Listener; |
function Listener
( | obj | : access Target'Class; |
handler | : not null A_Handler ) return A_Menu_Listener; |