home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / lib / xaw / form.d < prev    next >
Encoding:
Text File  |  1991-09-25  |  307 b   |  12 lines
  1. ;;; -*-Scheme-*-
  2.  
  3. (define-widget-type 'form "Form.h")
  4.  
  5. (define-widget-class 'form 'formWidgetClass)
  6.  
  7. (define-primitive 'form-do-layout '(w enable)
  8. "   Check_Widget_Class (w, formWidgetClass);
  9.     Check_Type (enable, T_Boolean);
  10.     XawFormDoLayout (WIDGET(w)->widget, EQ (enable, True));
  11.     return Void;")
  12.