>>>DEFINE CLASS MyCLASS as Custom >>> PROCEDURE height_assign >>> LPARAMETERS vNewVal >>> *To do: Modify this routine for the Assign method >>> THIS.Height = m.vNewVal >>> WAIT WINDOW "Assignment fired - value "+ STR(vnewval)+". Press any key to continue.." >>> ENDPROC >>>ENDDEFINE >>> >>>* Test program to show anomally >>>PROCEDURE test >>> >>>* create class >>>o = CREATEOBJECT("myclass") >>>* Wait window should appear in assign method >>>o.height = 1 >>>* wait window should not appear in assign method >>>y= o.height+2 >>> >>>Return >>>>>