sig
  class mlpost_fig :
    ?width:int ->
    ?height:int ->
    ?packing:(GObj.widget -> unit) ->
    ?show:bool ->
    unit ->
    object
      val obj : Gtk.widget Gtk.obj
      method as_widget : Gtk.widget Gtk.obj
      method coerce : GObj.widget
      method destroy : unit -> unit
      method drag : GObj.drag_ops
      method fig : Mlpost.Command.t
      method get_oid : int
      method misc : GObj.misc_ops
      method set_fig : Mlpost.Command.t -> unit
    end
  module Interface :
    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_fig :
        Mlpost_lablgtk.Interface.interface ->
        (unit -> Mlpost.Command.t) -> unit
      val add_fig :
        Mlpost_lablgtk.Interface.interface ->
        ?width:int ->
        ?height:int -> ?title:string -> (unit -> Mlpost.Command.t) -> unit
      val main : Mlpost_lablgtk.Interface.interface -> unit
    end
end