m2-GTK4/src/GMenu.def

DEFINITION MODULE FOR "C" GMenu ;

(*
   m2-GTK4 - GMenu and GMenuItem: a concrete GMenuModel.  Mapped onto
   <gio/gmenu.h> (GMenuItem is declared in the same header).

   The easy form names a label and a "detailed action" to activate:

      g_menu_append(fileMenu, "Quit", "app.quit");
      g_menu_append(viewMenu, "Bold", "win.bold");

   where "app." / "win." select the application's or a
   GtkApplicationWindow's action map.  Submenus are built as separate
   GMenu objects and attached with g_menu_append_submenu().

   g_menu_append() passes NIL as the item's target; for an action with
   a parameter use a GMenuItem and set_action_and_target_value().
*)

FROM SYSTEM IMPORT ADDRESS;

EXPORT UNQUALIFIED
   GMenu, GMenuItem,
   g_menu_new, g_menu_append, g_menu_prepend, g_menu_insert,
   g_menu_append_submenu, g_menu_append_item,
   g_menu_remove, g_menu_remove_all,
   g_menu_item_new, g_menu_item_set_label, g_menu_item_set_submenu,
   g_menu_item_set_action_and_target_value;


TYPE
   GMenu = ADDRESS;
   GMenuItem = ADDRESS;

(* GMenu *g_menu_new(void) *)
PROCEDURE g_menu_new () : GMenu;

(* void g_menu_append(GMenu *menu, const gchar *label,
                      const gchar *detailed_action) *)
PROCEDURE g_menu_append (menu: GMenu; label: ARRAY OF CHAR;
                         detailed_action: ARRAY OF CHAR);

(* void g_menu_prepend(GMenu *menu, const gchar *label,
                       const gchar *detailed_action) *)
PROCEDURE g_menu_prepend (menu: GMenu; label: ARRAY OF CHAR;
                          detailed_action: ARRAY OF CHAR);

(* void g_menu_insert(GMenu *menu, gint position, const gchar *label,
                      const gchar *detailed_action) *)
PROCEDURE g_menu_insert (menu: GMenu; position: INTEGER;
                         label: ARRAY OF CHAR;
                         detailed_action: ARRAY OF CHAR);

(* void g_menu_append_submenu(GMenu *menu, const gchar *label,
                              GMenuModel *submenu) *)
PROCEDURE g_menu_append_submenu (menu: GMenu; label: ARRAY OF CHAR;
                                 submenu: ADDRESS);

(* void g_menu_append_item(GMenu *menu, GMenuItem *item) *)
PROCEDURE g_menu_append_item (menu: GMenu; item: ADDRESS);

(* void g_menu_remove(GMenu *menu, gint position) *)
PROCEDURE g_menu_remove (menu: GMenu; position: INTEGER);

(* void g_menu_remove_all(GMenu *menu) *)
PROCEDURE g_menu_remove_all (menu: GMenu);

(* GMenuItem *g_menu_item_new(const gchar *label,
                              const gchar *detailed_action) *)
PROCEDURE g_menu_item_new (label: ARRAY OF CHAR;
                           detailed_action: ARRAY OF CHAR) : GMenuItem;

(* void g_menu_item_set_label(GMenuItem *menu_item, const gchar *label) *)
PROCEDURE g_menu_item_set_label (menu_item: GMenuItem;
                                 label: ARRAY OF CHAR);

(* void g_menu_item_set_submenu(GMenuItem *menu_item, GMenuModel *submenu) *)
PROCEDURE g_menu_item_set_submenu (menu_item: GMenuItem; submenu: ADDRESS);

(* void g_menu_item_set_action_and_target_value(GMenuItem *menu_item,
                                                 const gchar *action_and_target,
                                                 GVariant *target_value) *)
PROCEDURE g_menu_item_set_action_and_target_value (menu_item: GMenuItem;
                                                   action_and_target: ARRAY OF CHAR;
                                                   target_value: ADDRESS);

END GMenu.