type A_Handler is access procedure( object : not null access Target'Class; action : A_Key_Action );
function Listener
( | key | : Integer; |
modifiers | : Modifiers_Pattern; | |
id | : Action_Id; | |
obj | : access Target'Class; | |
handler | : A_Handler ) return A_Key_Listener; |
function Listener
( | key | : Integer; |
id | : Action_Id; | |
obj | : access Target'Class; | |
handler | : A_Handler ) return A_Key_Listener; |