class dialog :?kind:filekind -> ?title:string -> ?select:string -> ?parent:GWindow.window -> unit ->object..end
`FILE.signalmethod add_filter : descr:string -> patterns:string list -> unit
method select : ?dir:string -> ?file:string -> unit -> unit