Alain,

once again with formatting...

Here's a recursive routine that takes an object reference as an argument and returns it's full containership name:

* FullName.prg  13-Jun-95

* Generate an object's full containership name

* 03-Dec-95 added additional validity testing
* 26-Apr-96 added testing to handle _VFP object which is its own .Parent
* 15-Jan-98 used IsObject()
* 12-Nov-98 added testing for Name property

function FullName( roObject )

if ( IsObject( m.roObject ) and ;
     ( type( "roObject.Name" ) == 'C' ) )
   if ( ( type( "roObject.Parent" ) == 'O' ) and ;
        ( roObject.Name != "Microsoft Visual FoxPro" ) )
      return ( FullName( roObject.Parent ) + "." + roObject.Name )
   else
      return roObject.Name
   endif
else
   return ""
endif

function IsObject
lparameter roObject

return( ( type( "m.roObject" ) == 'O' ) and ( ! isnull( m.roObject ) ) )

>Is there a way to get the entire reference for an object ?
>
>Ex: frmxxx.cntxxx.txtxxx.name