NoIVarPut

(Available in 01 TS COM - TS_COM_DelegateIDispatchAuto)

Source

METHOD NoIVarPut( symIVar, uValue ) CLASS TS_DelegateIDispatchAuto
LOCAL dwPCount AS DWORD
LOCAL uRetVal AS USUAL
LOCAL aArgs AS ARRAY
LOCAL X AS DWORD
   TSTrace Enter
   IF SELF:_DelegateIDispatch<>NULL_OBJECT .AND. SELF:_DelegateIDispatch:FInit
      dwPCount:=PCOUNT( )
      aArgs:=ArrayCreate( dwPCount-1U )
      aArgs[ 1U ]:=USUAL( _CAST, uValue )
      FOR X:=3U UPTO dwPCount
         aArgs[ X-1U ]:=USUAL( _CAST, _GETMPARAM( X ) )
      NEXT
      uRetVal:=SELF:_DelegateIDispatch:_IVarPut( NULL_SYMBOL ; ...
     ... , symIVar, aArgs, dwPCount-1U )
      IF TS_IsInstanceOf( uRetVal, #TS_DelegateIDispatch )
         uRetVal:=TS_DelegateIDispatchAuto{ NIL, uRetVal, NIL }
      END
   ELSE
      TSTrace Warning "!(SELF:_DelegateIDispatch<>NULL_OBJECT .AND. SELF:_DelegateIDispatch" ; ...
     ... +":FInit)"
      uRetVal:=NIL
   END
   TStrace Leave
RETURN uRetVal