title:string -> window:GWindow.window -> ?resize:bool -> unit -> object   method add_block : GObj.widget -> unit   method add_row : GObj.widget -> unit   method button :     action:([> `APPLY | `CANCEL ] as 'a) Wpane.action ->     ?label:string -> ?icon:Widget.icon -> ?tooltip:string -> unit -> unit   method connect : ('-> unit) -> unit   method fire : '-> unit   method lock : (unit -> unit) -> unit   method on_check : '-> (bool -> unit) -> unit   method on_event : (unit -> unit) -> unit   method on_value : '-> (unit -> unit) -> unit   method run : unit -> unit   method select : '-> unit   method set_enabled : bool -> unit end