Add mouse vertical scrolling.
[familia.git] / src / dialogs / openfile_dialog.c
1 #include <gtk/gtk.h>
2 #include <gedcom.h>
3
4 #include "../../config.h"
5
6 #include "openfile_dialog.h"
7
8 #include "../i18n.h"
9
10 void openfile_dialog() {
11         GtkFileChooserDialog *dialog;
12         char *filename = NULL;
13         int result;
14         GtkFileFilter *filter;
15
16         dialog = GTK_FILE_CHOOSER_DIALOG(gtk_file_chooser_dialog_new(_("Open File"),
17                 NULL,
18                 GTK_FILE_CHOOSER_ACTION_OPEN,
19                 GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL,
20                 GTK_STOCK_OPEN, GTK_RESPONSE_ACCEPT,
21                 NULL));
22
23         filter = gtk_file_filter_new();
24         gtk_file_filter_add_pattern(filter, "*.ged");
25         gtk_file_chooser_add_filter(GTK_FILE_CHOOSER(dialog), filter);
26
27         if (gtk_dialog_run (GTK_DIALOG (dialog)) == GTK_RESPONSE_ACCEPT) {
28                 filename = gtk_file_chooser_get_filename(GTK_FILE_CHOOSER(dialog));
29
30                 result = gedcom_parse_file(filename);
31
32                 g_free (filename);
33         }
34
35         gtk_widget_destroy(GTK_WIDGET(dialog));
36 }