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 / simplemenu.d < prev    next >
Encoding:
Text File  |  1991-12-02  |  647 b   |  21 lines
  1. ;;; -*-Scheme-*-
  2.  
  3. (define-widget-type 'simplemenu "SimpleMenu.h")
  4.  
  5. (define-widget-class 'simplemenu 'simpleMenuWidgetClass)
  6.  
  7. (define-primitive 'simplemenu-add-global-actions '(c)
  8. "   Check_Context (c);
  9.     XawSimpleMenuAddGlobalActions (CONTEXT(c)->context);
  10.     return Void;")
  11.  
  12. (define-primitive 'simplemenu-get-active-entry '(w)
  13. "   Check_Widget_Class (w, simpleMenuWidgetClass);
  14.     return
  15.     Make_Widget_Foreign (XawSimpleMenuGetActiveEntry (WIDGET(w)->widget));")
  16.  
  17. (define-primitive 'simplemenu-clear-active-entry '(w)
  18. "   Check_Widget_Class (w, simpleMenuWidgetClass);
  19.     XawSimpleMenuClearActiveEntry (WIDGET(w)->widget);
  20.     return Void;")
  21.