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