#include "../xt/xt.h"
#include <X11/Xaw/Form.h>

static Object P_Form_Do_Layout (w, enable) Object w, enable; {
   Check_Widget_Class (w, formWidgetClass);
    Check_Type (enable, T_Boolean);
    XawFormDoLayout (WIDGET(w)->widget, EQ (enable, True));
    return Void;
}

init_form () {
    XtResourceList r = 0;
    Define_Class ("form", formWidgetClass, r, 0);
    Define_Primitive (P_Form_Do_Layout, "form-do-layout", 2, 2, EVAL);
}
