type Action is abstract new Object with private;
type Action_Listener is limited interface;
type A_Action_Listener is access all Action_Listener'Class;
function "="
( | l, r | : Action_Id ) return Boolean; |
function To_Action_Id
( | actName | : String ) return Action_Id; |
procedure Construct
( | this | : access Action; |
id | : Action_Id; | |
source | : not null access Widgets.Widget'Class ); |
function Get_Source
( | this | : not null access Action'Class ) return access Widgets.Widget'Class; |