CLEAR CLEAR CLASS test clear CLASSLIB test1 CREATE CLASS test OF test1 as custom nowait TEXT TO initcode noshow LPARAMETERS param1 * comment1 ? "code1" * TAG ENDTEXT aselobj[ax] ax[1].writemethod('Init',initcode) ? "1" classsave() USE test1.VCX REPLACE FOR objName=='test' AND NOT ISBLANK(Class); Methods WITH CHRTRAN(Methods,'PARAM1code1','XXXXXXxxxxx') && this destroy the syntax withou change the lines lenght USE ? "of course the old compile code work" =NEWOBJECT("test","test1") CLEAR CLASS test *COMPILE CLASSLIB test1 ? "but CD show the destroyed code" MODIFY CLASS test OF test1 METHOD Init RETURN PROCEDURE classsave RELEASE AX ?? '' ACTIVATE WINDOW (WONTOP()) KEYBOARD '{CTRL+W}' PLAIN DOEVENTS FORCE =NEWOBJECT("test","test1")