Fabio,

Please this is a feature.
I use this one down the days where we start with the memberclass* stuff. (There must be an old thread of this)

This one allows you to subclass a member like optionbutton but keep the names like Option1, Option2 .. instead of something strange like myopt1 or so.

See example

CLEAR

=CREATEOBJECT("mygroup")
=CREATEOBJECT("mygroup2")

DEFINE CLASS MyOpt	AS OPTIONBUTTON
 NAME = 'MyOpt'
ENDDEFINE &&MyOpt	AS OPTIONBUTTON


DEFINE CLASS MyOpt2	AS OPTIONBUTTON
 NAME	= 'Option'
ENDDEFINE &&MyOpt2	AS OPTIONBUTTON

DEFINE CLASS mygroup AS OPTIONGROUP
 MEMBERCLASS = 'MyOpt'
 MEMBERCLASSLIBRARY = THIS.CLASSLIBRARY

 BUTTONCOUNT = 0

 PROCEDURE INIT
  THIS.BUTTONCOUNT = 2
  ?THIS.CLASS,THIS.OBJECTS(1).NAME
 ENDPROC &&mygroup.init
ENDDEFINE &&mygroup as optiongroup

DEFINE CLASS mygroup2 AS OPTIONGROUP
 MEMBERCLASS = 'MyOpt2'
 MEMBERCLASSLIBRARY = THIS.CLASSLIBRARY

 BUTTONCOUNT = 0

 PROCEDURE INIT
  THIS.BUTTONCOUNT = 2
  ?THIS.CLASS,THIS.OBJECTS(1).NAME
 ENDPROC &&mygroup2.init
ENDDEFINE &&mygroup as optiongroup

Sp you can mimic your member* stuff in existing classes. O.K.?

HTH
Agnes
>Set the Name property into a class definition change it's Class property to the name value.
>
>

>CLEAR
>
>=CREATEOBJECT("ClassName")
>
>DEFINE CLASS ClassName	AS Custom
>	Name	= 'ObjectName'
>
>   PROCEDURE Init
>	? "Class expected <ClassName>, Observed :"	,this.Class
>        * this not set Class
>	this.Name = "AnotherName"
>	? "Class expected <ClassName>, Observed :"	,this.Class
>ENDDEFINE
>