VCPFldSetText
void VCPFldSetText(Word id, char *s);
//ENDH
/*****************************************************
    Set the text of an editable field in the
    actual form.

    id = user defined id of the field
    *s = char pointer where the new text is located

    Example:
    ========
    VCPFldSetText(FLDRECORD, "New Record");

******************************************************/
void VCPFldSetText(Word id, char *s)
{
	FormPtr frmp;
	FieldPtr fldp;
	FieldAttrType fa;

	frmp=FrmGetActiveForm();
	fldp=FrmGetObjectPtr(frmp, FrmGetObjectIndex(frmp, id));
	FldGetAttributes(fldp, &fa);

	/* if editable, do insert, if not, set poiner */
	if (fa.editable == TRUE){
		FldDelete(fldp, 0, FldGetTextLength(fldp));
		FldInsert(fldp, s, StrLen(s));
	}
	else{
		FldSetTextPtr(fldp, s);
	}

	FldDrawField(fldp);
}
