USE (_FOXCODE) IN 0 AGAIN SHARED SELECT foxcode LOCATE FOR type="M" .AND. abbrev="NEW PROPERTY..." IF FOUND() IF DELETED() RECALL ELSE DELETE ENDIF ENDIF LOCATE FOR type="M" .AND. abbrev="NEW METHOD..." IF FOUND() IF DELETED() RECALL ELSE DELETE ENDIF ENDIF LOCATE FOR type="M" .AND. abbrev="EDIT PROPERTY/METHOD..." IF FOUND() IF DELETED() RECALL ELSE DELETE ENDIF ENDIF USE