>CLEAR >zz = 'pippo' > >xx=CREATEOBJECT('txt') >xx.xvalue = 'cambio' >xx.tag = 'nuovo tag' >=xx.value >ww = 'xx.value' >? '*** next have problems' >xx.value = 7 >STORE 7 TO xx.value >STORE 7 TO (m.ww) >? '*** but internal assign no' >xx.controlsource = 'm.zz' > >DEFINE CLASS txt AS TextBox > xValue = 'prova' > > PROCEDURE xvalue_ACCESS > ? 'ACCESS xvalue',this.xvalue > RETURN this.xvalue > > PROCEDURE xvalue_assign(wValue) > ? 'ASSIGN xvalue',wValue > this.xvalue = m.wValue > > PROCEDURE value_ACCESS > ? 'ACCESS value',this.value > RETURN this.value > > PROCEDURE value_assign(wValue) > ? 'ASSIGN value',wValue > this.value = m.wValue > > PROCEDURE tag_ACCESS > ? 'ACCESS tag',this.tag > RETURN this.tag > > PROCEDURE tag_assign(wValue) > ? 'ASSIGN tag',wValue > this.tag = m.wValue > > PROCEDURE controlsource_ACCESS > ? 'ACCESS controlsource',this.controlsource > RETURN this.controlsource > > PROCEDURE controlsource_assign(wValue) > ? 'ASSIGN controlsource',wValue > this.controlsource = m.wValue > >ENDDEFINE >>