unit ->
object
  method add_item : label:string -> callback:(unit -> unit) -> unit
  method add_separator : unit
  method clear : unit
  method run : unit -> unit
end