package DDS.StatusCondition_Impl is

type Ref is limited new DDS.Condition_Impl.Ref and DDS.StatusCondition.Ref with
      record
         Owner : DDS.Entity.Ref_Access;
      end record;

type Ref_Access is access all Ref'Class;

type DDS_StatusCondition_Access is access all DDS_StatusCondition with Storage_Size => 0;

function Get_Enabled_Statuses 
(
Self
: not null access Ref) return DDS.StatusMask;

function Get_Trigger_Value 
(
Self
: access Ref) return DDS.Boolean;

procedure Set_Enabled_Statuses 
(
Self
: not null access Ref;
Mask
: in DDS.StatusMask);

function Get_Entity 
(
Self
: not null access Ref) return access DDS.Entity.Ref'Class;

function Get_Impl_I 
(
Self
: access Ref) return DDS.Condition_Impl.Ref_Access;

function GetInterface 
(
Self
: not null access Ref) return DDS_StatusCondition_Access;

procedure SetInterface 
(
Self
: not null access Ref;
To
: DDS_StatusCondition_Access);