?kind:Wfile.filekind -> ?title:string -> ?select:string -> ?parent:GWindow.window -> unit -> object   method add_filter : descr:string -> patterns:string list -> unit   method connect : (string -> unit) -> unit   method fire : string -> unit   method lock : (unit -> unit) -> unit   method on_check : string -> (bool -> unit) -> unit   method on_event : (unit -> unit) -> unit   method on_value : string -> (unit -> unit) -> unit   method select : ?dir:string -> ?file:string -> unit -> unit   method set_enabled : bool -> unit end