>>IF VARTYPE( THISFORM.tmrCheckMousePosition ) = 'O' >>>>
>>IF PEMSTATUS(THISFORM.tmrCheckMousePosition,'O',3) >>>
>CLEAR >X = CREATEOBJECT("XX") >? PEMSTATUS(m.x,"property",5) >? VARTYPE(x.undef) && This work !!!! >? VARTYPE(x.property) && Expected : "U" too ; Error ! this is a BUG > >DEFINE CLASS xx as Custom > PROTECTED property > > PROCEDURE Init > ? PEMSTATUS(m.this,"property",5),VARTYPE(this.property) > >ENDDEFINE >Why did it error on this line?
? VARTYPE(x.property) && Expected : "U" too ; Error ! this is a BUG