IOwner

(Available in 01 TS COM - TS_COM_IUnknown)

Purpose

Get the object owner

Syntax

IF oSomeIObject:Owner<>NULL_OBJECT

Description

Get the owner of the object

Source

ACCESS IOwner CLASS TS_IUnknown
LOCAL oIOwner AS TS_IUnknown
   TSTrace Enter
   oIOwner:=SELF:_IOwner
   IF oIOwner<>NULL_OBJECT
      IF oIOwner:IsValidObject
         oIOwner:AddRef( )
      ELSE
         oIOwner:=NULL_OBJECT
      END
   END
   TSTrace Leave
RETURN oIOwner