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