Axit

(Available in 01 TS COM - TS_COM_DelegateIDispatchAuto)

Source

METHOD Axit( ) CLASS TS_DelegateIDispatchAuto
   TSTrace Enter
   IF SELF:_AxitRegistered
      SELF:UnRegisterAxit( )
   END
   IF SELF:_DelegateIDispatch<>NULL_OBJECT
      IF SELF:_DeepAxitDestroy
         SELF:_DelegateIDispatch:UnRegisterAxit( )
         SELF:_DelegateIDispatch:Axit( )
      END
      SELF:_DelegateIDispatch:=NULL_OBJECT
   END
   SELF:Destroy( )
   TStrace Leave DESTROY
RETURN NIL