sig   type field = [ `Compact | `Field | `Panel ]   class form :     unit ->     object       method add_field :         ?label:string -> ?field:Wpane.field -> GObj.widget -> unit       method add_label : string -> unit       method add_label_widget : GObj.widget -> unit       method add_newline : unit       method add_row :         ?field:Wpane.field ->         ?xpadding:int -> ?ypadding:int -> GObj.widget -> unit       method add_section : string -> unit       method coerce : GObj.widget       method set_enabled : bool -> unit       method set_visible : bool -> unit       method widget : Widget.widget     end   class ['a] notebook :     ?tabs:Gtk.Tags.position ->     default:'a ->     unit ->     object       method add : ?label:string -> 'a -> GObj.widget -> unit       method coerce : GObj.widget       method connect : ('a -> unit) -> unit       method fire : 'a -> unit       method get : 'a       method lock : (unit -> unit) -> unit       method on_check : 'a -> (bool -> unit) -> unit       method on_event : (unit -> unit) -> unit       method on_focus : 'a -> (bool -> unit) -> unit       method on_value : 'a -> (unit -> unit) -> unit       method send : ('a -> unit) -> unit -> unit       method set : 'a -> unit       method set_enabled : bool -> unit       method set_visible : bool -> unit       method widget : Widget.widget     end   class type entry =     object       method delete : unit -> unit       method update : unit -> unit       method widget : GObj.widget     end   class ['a] warray :     ?dir:Gtk.Tags.orientation ->     ?entry:('a -> Wpane.entry) ->     unit ->     object       method append : 'a -> unit       method coerce : GObj.widget       method get : 'a list       method insert : ?after:'a -> 'a -> unit       method mem : 'a -> bool       method remove : 'a -> unit       method set : 'a list -> unit       method set_enabled : bool -> unit       method set_entry : ('a -> Wpane.entry) -> unit       method set_visible : bool -> unit       method update : unit -> unit       method widget : Widget.widget     end   type 'a action =       [ `ACTION of unit -> unit       | `ALT of 'a       | `APPLY       | `CANCEL       | `DEFAULT of 'a       | `SELECT of 'a ]   class ['a] dialog :     title:string ->     window:GWindow.window ->     ?resize:bool ->     unit ->     object       constraint 'a = [> `APPLY | `CANCEL ]       method add_block : GObj.widget -> unit       method add_row : GObj.widget -> unit       method button :         action:'a Wpane.action ->         ?label:string -> ?icon:Widget.icon -> ?tooltip:string -> unit -> unit       method connect : ('a -> unit) -> unit       method fire : 'a -> unit       method lock : (unit -> unit) -> unit       method on_check : 'a -> (bool -> unit) -> unit       method on_event : (unit -> unit) -> unit       method on_value : 'a -> (unit -> unit) -> unit       method run : unit -> unit       method select : 'a -> unit       method set_enabled : bool -> unit     end end