OnUnRegisterIOwned

 (Available in 01 TS COM - TS_COM_IUnknown)

Purpose

CALLBACK: Called when a owned unregisters itself

Arguments

uoIOwned
OBJECT

Description

Can be overridden to detect when a owned object is unregisterd

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

Returns

Return = TRUE if succeeded

Example

METHOD UnRegisterIOwned( uoIOwned ) AS LOGIC PASCAL CLASS CLASS SomeIClass
   DO CASE
   CASE SELF:_MyIX==uoIOwned
      SELF:_MyIX:=NULL_OBJECT
   CASE SELF:_MyIY==uoIOwned
      SELF:_MyIY:=NULL_OBJECT
   END
   SUPER:UnRegisterIOwned( uoIOwned )
RETURN NIL

Source

METHOD OnUnRegisterIOwned( uoIOwned ) CLASS TS_IUnknown
   TSTrace Enter
   TSTrace Leave
RETURN NIL