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