external add_pattern : [> Gtk.file_filter] Gtk.obj -> string -> unit = "ml_gtk_file_filter_add_pattern"