NameSym

(Available in 01 TS COM - TS_COM_IUnknown)

Purpose

Get the name of the object

Syntax

? AsString( oSomeIObject:NameSym )

Description

The 'NameSym' access can be used to identify objects, if this property is to be used, a symbolic name for the object should be passed to the init method.

Example

oSomeIObject1:=SomeIClass{ #One }
oSomeIObject2:=SomeIClass{ #Two }
SomeFunction( oSomeIObject2 )

FUNCTION SomeFunction( oSomeIObject AS SomeIClass )...
   DO CAES
   CASE oSomeIObject:NameSym==#One
      ...
   CASE oSomeIObject:NameSym==#Two
      ...
   END
   RETURN...

Source

ACCESS NameSym CLASS TS_IUnknown
LOCAL symRetVal AS SYMBOL
   TSTrace Enter
   symRetVal:=SELF:_NameSym
   TSTrace Leave
RETURN symRetVal