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.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-22  |  1009 b   |  29 lines
  1. #include "../xt/xt.h"
  2. #include <X11/Xaw/SimpleMenu.h>
  3.  
  4. static Object P_Simplemenu_Add_Global_Actions (c) Object c; {
  5.    Check_Context (c);
  6.     XawSimpleMenuAddGlobalActions (CONTEXT(c)->context);
  7.     return Void;
  8. }
  9.  
  10. static Object P_Simplemenu_Get_Active_Entry (w) Object w; {
  11.    Check_Widget_Class (w, simpleMenuWidgetClass);
  12.     return
  13.     Make_Widget_Foreign (XawSimpleMenuGetActiveEntry (WIDGET(w)->widget));
  14. }
  15.  
  16. static Object P_Simplemenu_Clear_Active_Entry (w) Object w; {
  17.    Check_Widget_Class (w, simpleMenuWidgetClass);
  18.     XawSimpleMenuClearActiveEntry (WIDGET(w)->widget);
  19.     return Void;
  20. }
  21.  
  22. init_simplemenu () {
  23.     XtResourceList r = 0;
  24.     Define_Class ("simplemenu", simpleMenuWidgetClass, r, 0);
  25.     Define_Primitive (P_Simplemenu_Clear_Active_Entry, "simplemenu-clear-active-entry", 1, 1, EVAL);
  26.     Define_Primitive (P_Simplemenu_Get_Active_Entry, "simplemenu-get-active-entry", 1, 1, EVAL);
  27.     Define_Primitive (P_Simplemenu_Add_Global_Actions, "simplemenu-add-global-actions", 1, 1, EVAL);
  28. }
  29.