type A_Handler1 is access procedure( object : not null access Target'Class );
type A_Handler2 is access procedure( object : not null access Target'Class; action : A_Button_Action );
function Listener
( | id | : Action_Id; |
obj | : access Target'Class; | |
handler | : not null A_Handler1 ) return A_Button_Listener; |
function Listener
( | id | : Action_Id; |
obj | : access Target'Class; | |
handler | : not null A_Handler2 ) return A_Button_Listener; |
function Listener
( | obj | : access Target'Class; |
handler | : not null A_Handler1 ) return A_Button_Listener; |
function Listener
( | obj | : access Target'Class; |
handler | : not null A_Handler2 ) return A_Button_Listener; |