IVarPut
(Available in 01 TS COM - TS_COM_DelegateIDispatch)
Purpose
Set a property value
Syntax
oObject:=oDelegateIDispatch:IVarPutArgs( #Item, uValue )
Arguments
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