sig
  type interface
  val new_interface :
    ?width:int ->
    ?height:int ->
    ?title:string -> unit -> Mlpost_lablgtk.Interface.interface
  val create_text :
    Mlpost_lablgtk.Interface.interface ->
    ?label:string -> string -> (string -> unit) -> unit
  val create_option :
    Mlpost_lablgtk.Interface.interface ->
    ?label:string -> (string * (unit -> unit)) list -> unit
  val remove_pic :
    Mlpost_lablgtk.Interface.interface -> (unit -> Mlpost.Command.t) -> unit
  val add_pic :
    Mlpost_lablgtk.Interface.interface ->
    ?width:int ->
    ?height:int ->
    ?title:string ->
    ?show_corner:bool ->
    ?auto_aspect:Mlpost_lablgtk.auto_aspect ->
    (unit -> Mlpost.Command.t) -> unit
  val main : Mlpost_lablgtk.Interface.interface -> unit
end