1 #include "../xt.h"
2 #include <X11/Xaw/SimpleMenu.h>
3
P_Simplemenu_Add_Global_Actions(Object c)4 static Object P_Simplemenu_Add_Global_Actions (Object c) {
5 Check_Context (c);
6 XawSimpleMenuAddGlobalActions (CONTEXT(c)->context);
7 return Void;
8 }
9
P_Simplemenu_Get_Active_Entry(Object w)10 static Object P_Simplemenu_Get_Active_Entry (Object w) {
11 Check_Widget_Class (w, simpleMenuWidgetClass);
12 return
13 Make_Widget_Foreign (XawSimpleMenuGetActiveEntry (WIDGET(w)->widget));
14 }
15
P_Simplemenu_Clear_Active_Entry(Object w)16 static Object P_Simplemenu_Clear_Active_Entry (Object w) {
17 Check_Widget_Class (w, simpleMenuWidgetClass);
18 XawSimpleMenuClearActiveEntry (WIDGET(w)->widget);
19 return Void;
20 }
21
elk_init_xaw_simplemenu()22 void elk_init_xaw_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 P_Provide(Intern("xaw:simplemenu"));
29 }
30