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