>************************************************** >*-- Class: converter >*-- ParentClass: textbox >*-- BaseClass: textbox >* >DEFINE CLASS converter AS textbox > > > Height = 24 > Width = 265 > Name = "converter" > realsource = 'dummy.color' > > > PROCEDURE convertfrom > xSource = (This.RealSource) > do case > case &xSource = 'Green' > this.value = 'Vert' > case &xSource = 'Blue' > this.value = 'Bleu' > case &xSource = 'Yellow' > this.value = 'Jaune' > case &xSource = 'White' > this.value = 'Blanc' > EndCase > > ENDPROC > > > PROCEDURE convertto > xSource = This.RealSource > do case > case this.value = 'Vert' > Replace &xSource with 'Green' > case this.value = 'Bleu' > replace &xSource with 'Blue' > case this.value = 'Jaune' > replace &xSource with 'Yellow' > case this.value = 'Blanc' > replace &xSource with 'White' > EndCase > > ENDPROC > > > PROCEDURE Refresh > this.convertfrom() > ENDPROC > > > PROCEDURE Valid > this.convertto() > ENDPROC > > >ENDDEFINE >* >*-- EndDefine: converter >************************************************** >>I hope this help.