UnRegisterOwner

(Available in 01 TS COM - TS_COM_DelegateISink)

Purpose

CALLBACK: Called when a owner unregisters itself

Arguments

oOwner	OBJECT
lOwner	LOGIC

Description

Can be overridden to detect when a owner object is unregisterd

Important! This is a event send by the library. Normally, it should not be called in/by your application code.

If the 'lOwner' parameter is TRUE the the 'UnRegisterOwner()' method has been invoked by the owner object, if the parameter is FALSE then the method has been called by SELF.

Here the 'UnRegisterOwner()' method is used to free the handled 'ISink' interface when to owner of the 'TS_DelegateISink' object unregisters.

Returns

oDestructor = OBJECT(TS_Destructor|NULL_OBJECT)

Source

METHOD UnRegisterOwner( oOwner AS OBJECT, lOwner AS LOGIC ) AS TS_Destructor PASCAL  ; ...
...CLASS TS_DelegateISink
LOCAL oDestructor AS TS_Destructor
   TSTrace Enter
   SELF:_InvokeHandler:=NULL_OBJECT
   oDestructor:=SUPER:UnRegisterOwner( oOwner, lOwner )
   TSTrace Leave
RETURN oDestructor