IVarPut

 (Available in 01 TS COM - TS_COM_DelegateIDispatch)

Purpose

Set a property value

Syntax

oObject:=oDelegateIDispatch:IVarPutArgs( #Item, uValue )

Arguments

symIVar
SYMBOL

Description

Set a property value will return any properties value. When the property set method does need parameters the 'IVarPutArgs()' method should be used.

Returns

USUAL, Property value

Example

ASSIGN CAItem( uParm ) CLASS SomeClass
RETURN SELF:IVarPutArgs( #Item, uParm )

Source

METHOD IVarPut( symIVar AS SYMBOL, uValue AS USUAL ) AS USUAL PASCAL CLASS TS_DelegateIDispatch
LOCAL uRetVal AS USUAL
LOCAL aArgs AS ARRAY
   TSTrace Enter symIVar
   IF SELF:FInit
      aArgs:=ArrayCreate( 1U )
      aArgs[ 1U ]:=USUAL( _CAST, uValue )
      uRetVal:=SELF:_IVarPut( NULL_SYMBOL, symIVar, aArgs, 1U  ; ...
     ... )
      aArgs:=NULL_ARRAY
   ELSE
      TSTrace Warning "!SELF:FInit"
      uRetVal:=NIL
   END
   TSTrace Leave symIVar
RETURN uRetVal