12 lines
307 B
Scheme
12 lines
307 B
Scheme
;;; -*-Scheme-*-
|
|
|
|
(define-widget-type 'form "Form.h")
|
|
|
|
(define-widget-class 'form 'formWidgetClass)
|
|
|
|
(define-primitive 'form-do-layout '(w enable)
|
|
" Check_Widget_Class (w, formWidgetClass);
|
|
Check_Type (enable, T_Boolean);
|
|
XawFormDoLayout (WIDGET(w)->widget, EQ (enable, True));
|
|
return Void;")
|