Destroy
(Available in 01 TS COM - TS_COM_DelegateIDispatchAuto)
Source
METHOD Destroy( ) CLASS TS_DelegateIDispatchAuto
TSTrace Enter
IF SELF:_AxitRegistered
SELF:UnRegisterAxit( )
END
IF SELF:_DelegateIDispatch<>NULL_OBJECT
IF SELF:_DeepAxitDestroy
SELF:_DelegateIDispatch:Destroy( )
END
SELF:_DelegateIDispatch:=NULL_OBJECT
END
TStrace Leave DESTROY
RETURN NIL