>FUNCTION CopyProp >LPARA o1, o2 > >IF TYPE('o1.Name') <> "C" OR TYPE('o2.Name') <> "C" > RETURN .F. >ENDIF > >AMEMBERS(aProps, o1) > >FOR i = 1 TO ALEN(aProps) > IF !ALLTRIM(UPPER(aProps(i)))$"CLASS:PARENTCLASS:BASECLASS:NAME" > uVal = GETPEM(o1,aProps(i)) > IF PEMSTATUS(o2,aProps(i),5) AND; > !PEMSTATUS(o2,aProps(i),1) AND; > PEMSTATUS(o2,aProps(i),3) = TYPE('uVal') AND; > !PEMSTATUS(o2,aProps(i),2) > o2.&aProps(i) = uVal > ENDIF > ENDIF >ENDFOR >>