sig val make : ?set_active:(string -> bool) -> submenu:GMenu.menu -> menu:GMenu.image_menu_item -> dynList:(unit -> string list) -> action:(string -> unit -> unit) -> unit -> unit end