2 PSPPIRE --- A Graphical User Interface for PSPP
3 Copyright (C) 2006, 2007 Free Software Foundation
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2 of the License, or
8 (at your option) any later version.
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
24 #include <glade/glade.h>
27 #include "window-manager.h"
28 #include <gtksheet/gtksheet.h>
32 #include "psppire-dialog.h"
33 #include "psppire-selector.h"
34 #include "weight-cases-dialog.h"
35 #include "split-file-dialog.h"
36 #include "transpose-dialog.h"
37 #include "sort-cases-dialog.h"
38 #include "compute-dialog.h"
39 #include "variable-info-dialog.h"
40 #include "dict-display.h"
42 #define _(msgid) gettext (msgid)
43 #define N_(msgid) msgid
45 #include "data-editor.h"
46 #include "syntax-editor.h"
47 #include <language/syntax-string-source.h>
48 #include <libpspp/syntax-gen.h>
49 #include "window-manager.h"
51 #include "psppire-data-store.h"
52 #include "psppire-var-store.h"
54 static void register_data_editor_actions (struct data_editor *de);
56 static void insert_variable (GtkCheckMenuItem *m, gpointer data);
60 /* Switch between the VAR SHEET and the DATA SHEET */
62 static gboolean click2column (GtkWidget *w, gint col, gpointer data);
64 static gboolean click2row (GtkWidget *w, gint row, gpointer data);
67 static void select_sheet (struct data_editor *de, guint page_num);
70 /* Callback for when the dictionary changes properties*/
71 static void on_weight_change (GObject *, gint, gpointer);
72 static void on_filter_change (GObject *, gint, gpointer);
73 static void on_split_change (PsppireDict *, gpointer);
75 static void data_var_select (GtkNotebook *notebook,
76 GtkNotebookPage *page,
80 static void status_bar_activate (GtkCheckMenuItem *, gpointer);
82 static void grid_lines_activate (GtkCheckMenuItem *, gpointer);
84 static void data_sheet_activate (GtkCheckMenuItem *, gpointer);
86 static void variable_sheet_activate (GtkCheckMenuItem *, gpointer );
88 static void fonts_activate (GtkMenuItem *, gpointer);
90 static void value_labels_activate (GtkCheckMenuItem *, gpointer);
91 static void value_labels_toggled (GtkToggleToolButton *, gpointer);
94 static void file_quit (GtkCheckMenuItem *, gpointer );
96 static void on_clear_activate (GtkMenuItem *, gpointer);
99 enable_edit_clear (GtkWidget *w, gint row, gpointer data)
101 struct data_editor *de = data;
103 GtkWidget *menuitem = get_widget_assert (de->xml, "edit_clear");
105 gtk_widget_set_sensitive (menuitem, TRUE);
109 disable_edit_clear (GtkWidget *w, gint x, gint y, gpointer data)
111 struct data_editor *de = data;
113 GtkWidget *menuitem = get_widget_assert (de->xml, "edit_clear");
115 gtk_widget_set_sensitive (menuitem, FALSE);
120 static void open_data_file (const gchar *, struct data_editor *);
124 #if RECENT_LISTS_AVAILABLE
127 on_recent_data_select (GtkMenuShell *menushell, gpointer user_data)
131 struct data_editor *de = user_data;
134 gtk_recent_chooser_get_current_uri (GTK_RECENT_CHOOSER (menushell));
136 file = g_filename_from_uri (uri, NULL, NULL);
140 open_data_file (file, de);
146 on_recent_files_select (GtkMenuShell *menushell, gpointer user_data)
150 struct syntax_editor *se ;
153 gtk_recent_chooser_get_current_uri (GTK_RECENT_CHOOSER (menushell));
155 file = g_filename_from_uri (uri, NULL, NULL);
159 se = (struct syntax_editor *)
160 window_create (WINDOW_SYNTAX, file);
162 load_editor_from_file (se, file, NULL);
172 Create a new data editor.
175 new_data_editor (void)
177 struct data_editor *de ;
178 struct editor_window *e;
179 GtkSheet *var_sheet ;
182 de = g_malloc0 (sizeof (*de));
184 e = (struct editor_window *) de;
186 de->xml = XML_NEW ("data-editor.glade");
188 var_sheet = GTK_SHEET (get_widget_assert (de->xml, "variable_sheet"));
190 vs = PSPPIRE_VAR_STORE (gtk_sheet_get_model (var_sheet));
192 g_assert(vs); /* Traps a possible bug in win32 build */
194 g_signal_connect (vs->dict, "weight-changed",
195 G_CALLBACK (on_weight_change),
198 g_signal_connect (vs->dict, "filter-changed",
199 G_CALLBACK (on_filter_change),
202 g_signal_connect (vs->dict, "split-changed",
203 G_CALLBACK (on_split_change),
206 connect_help (de->xml);
209 register_data_editor_actions (de);
211 de->invoke_weight_cases_dialog =
212 gtk_action_new ("weight-cases-dialog",
214 _("Weight cases by variable"),
215 "pspp-weight-cases");
217 g_signal_connect (de->invoke_weight_cases_dialog, "activate",
218 G_CALLBACK (weight_cases_dialog), de);
221 de->invoke_transpose_dialog =
222 gtk_action_new ("transpose-dialog",
224 _("Transpose the cases with the variables"),
228 g_signal_connect (de->invoke_transpose_dialog, "activate",
229 G_CALLBACK (transpose_dialog), de);
233 de->invoke_split_file_dialog =
234 gtk_action_new ("split-file-dialog",
236 _("Split the active file"),
239 g_signal_connect (de->invoke_split_file_dialog, "activate",
240 G_CALLBACK (split_file_dialog), de);
244 de->invoke_sort_cases_dialog =
245 gtk_action_new ("sort-cases-dialog",
247 _("Sort cases in the active file"),
250 g_signal_connect (de->invoke_sort_cases_dialog, "activate",
251 G_CALLBACK (sort_cases_dialog), de);
254 de->invoke_compute_dialog =
255 gtk_action_new ("compute-dialog",
257 _("Compute new values for a variable"),
260 g_signal_connect (de->invoke_compute_dialog, "activate",
261 G_CALLBACK (compute_dialog), de);
263 de->invoke_variable_info_dialog =
264 gtk_action_new ("variable-info-dialog",
266 _("Jump to Variable"),
267 "pspp-goto-variable");
269 g_signal_connect (de->invoke_variable_info_dialog, "activate",
270 G_CALLBACK (variable_info_dialog), de);
272 e->window = GTK_WINDOW (get_widget_assert (de->xml, "data_editor"));
274 g_signal_connect_swapped (get_widget_assert (de->xml,"file_new_data"),
276 G_CALLBACK (gtk_action_activate),
277 de->action_data_new);
279 g_signal_connect_swapped (get_widget_assert (de->xml,"file_open_data"),
281 G_CALLBACK (gtk_action_activate),
282 de->action_data_open);
288 #if RECENT_LISTS_AVAILABLE
290 GtkRecentManager *rm = gtk_recent_manager_get_default ();
291 GtkWidget *recent_data = get_widget_assert (de->xml, "file_recent-data");
292 GtkWidget *recent_files = get_widget_assert (de->xml, "file_recent-files");
294 GtkWidget *menu = gtk_recent_chooser_menu_new_for_manager (rm);
296 GtkRecentFilter *filter = gtk_recent_filter_new ();
298 gtk_recent_filter_add_pattern (filter, "*.sav");
299 gtk_recent_filter_add_pattern (filter, "*.SAV");
301 gtk_recent_chooser_add_filter (GTK_RECENT_CHOOSER (menu), filter);
303 gtk_widget_set_sensitive (recent_data, TRUE);
304 g_signal_connect (menu, "selection-done",
305 G_CALLBACK (on_recent_data_select), de);
307 gtk_menu_item_set_submenu (GTK_MENU_ITEM (recent_data), menu);
310 filter = gtk_recent_filter_new ();
311 menu = gtk_recent_chooser_menu_new_for_manager (rm);
313 gtk_recent_filter_add_pattern (filter, "*.sps");
314 gtk_recent_filter_add_pattern (filter, "*.SPS");
316 gtk_recent_chooser_add_filter (GTK_RECENT_CHOOSER (menu), filter);
318 gtk_widget_set_sensitive (recent_files, TRUE);
319 g_signal_connect (menu, "selection-done",
320 G_CALLBACK (on_recent_files_select), de);
322 gtk_menu_item_set_submenu (GTK_MENU_ITEM (recent_files), menu);
326 g_signal_connect (get_widget_assert (de->xml,"file_new_syntax"),
328 G_CALLBACK (new_syntax_window),
331 g_signal_connect (get_widget_assert (de->xml,"file_open_syntax"),
333 G_CALLBACK (open_syntax_window),
336 g_signal_connect_swapped (get_widget_assert (de->xml,"file_save"),
338 G_CALLBACK (gtk_action_activate),
339 de->action_data_save);
341 g_signal_connect_swapped (get_widget_assert (de->xml,"file_save_as"),
343 G_CALLBACK (gtk_action_activate),
344 de->action_data_save_as);
347 g_signal_connect (get_widget_assert (de->xml,"edit_clear"),
349 G_CALLBACK (on_clear_activate),
353 g_signal_connect (get_widget_assert (de->xml,"data_insert-variable"),
355 G_CALLBACK (insert_variable),
358 gtk_action_connect_proxy (de->invoke_weight_cases_dialog,
359 get_widget_assert (de->xml, "data_weight-cases")
362 gtk_action_connect_proxy (de->invoke_transpose_dialog,
363 get_widget_assert (de->xml, "data_transpose")
366 gtk_action_connect_proxy (de->invoke_split_file_dialog,
367 get_widget_assert (de->xml, "data_split-file")
370 gtk_action_connect_proxy (de->invoke_sort_cases_dialog,
371 get_widget_assert (de->xml, "data_sort-cases")
374 gtk_action_connect_proxy (de->invoke_compute_dialog,
375 get_widget_assert (de->xml, "transform_compute")
378 gtk_action_connect_proxy (de->invoke_variable_info_dialog,
379 get_widget_assert (de->xml, "utilities_variables")
383 g_signal_connect (get_widget_assert (de->xml,"help_about"),
385 G_CALLBACK (about_new),
389 g_signal_connect (get_widget_assert (de->xml,"help_reference"),
391 G_CALLBACK (reference_manual),
396 g_signal_connect (get_widget_assert (de->xml,"data_sheet"),
397 "double-click-column",
398 G_CALLBACK (click2column),
402 g_signal_connect (get_widget_assert (de->xml, "variable_sheet"),
404 GTK_SIGNAL_FUNC (click2row),
408 g_signal_connect (get_widget_assert (de->xml, "variable_sheet"),
410 GTK_SIGNAL_FUNC (enable_edit_clear),
413 g_signal_connect (get_widget_assert (de->xml, "variable_sheet"),
415 GTK_SIGNAL_FUNC (disable_edit_clear),
419 g_signal_connect (get_widget_assert (de->xml, "notebook"),
421 G_CALLBACK (data_var_select), de);
425 g_signal_connect (get_widget_assert (de->xml, "view_statusbar"),
427 G_CALLBACK (status_bar_activate), de);
430 g_signal_connect (get_widget_assert (de->xml, "view_gridlines"),
432 G_CALLBACK (grid_lines_activate), de);
436 g_signal_connect (get_widget_assert (de->xml, "view_data"),
438 G_CALLBACK (data_sheet_activate), de);
440 g_signal_connect (get_widget_assert (de->xml, "view_variables"),
442 G_CALLBACK (variable_sheet_activate), de);
446 g_signal_connect (get_widget_assert (de->xml, "view_fonts"),
448 G_CALLBACK (fonts_activate), de);
452 g_signal_connect (get_widget_assert (de->xml, "view_valuelabels"),
454 G_CALLBACK (value_labels_activate), de);
457 g_signal_connect (get_widget_assert (de->xml, "togglebutton-value-labels"),
459 G_CALLBACK (value_labels_toggled), de);
461 gtk_action_connect_proxy (de->action_data_open,
462 get_widget_assert (de->xml, "button-open")
465 gtk_action_connect_proxy (de->action_data_save,
466 get_widget_assert (de->xml, "button-save")
469 gtk_action_connect_proxy (de->invoke_variable_info_dialog,
470 get_widget_assert (de->xml, "button-goto-variable")
473 gtk_action_connect_proxy (de->invoke_weight_cases_dialog,
474 get_widget_assert (de->xml, "button-weight-cases")
477 gtk_action_connect_proxy (de->invoke_split_file_dialog,
478 get_widget_assert (de->xml, "button-split-file")
481 g_signal_connect (get_widget_assert (de->xml, "file_quit"),
483 G_CALLBACK (file_quit), de);
486 g_signal_connect (get_widget_assert (de->xml, "windows_minimise_all"),
488 G_CALLBACK (minimise_all_windows), NULL);
491 select_sheet (de, PAGE_DATA_SHEET);
497 /* Callback which occurs when the var sheet's row title
498 button is double clicked */
500 click2row (GtkWidget *w, gint row, gpointer data)
502 struct data_editor *de = data;
504 gint current_row, current_column;
506 GtkWidget *data_sheet = get_widget_assert (de->xml, "data_sheet");
508 data_editor_select_sheet (de, PAGE_DATA_SHEET);
510 gtk_sheet_get_active_cell (GTK_SHEET (data_sheet),
511 ¤t_row, ¤t_column);
513 gtk_sheet_set_active_cell (GTK_SHEET (data_sheet), current_row, row);
519 /* Callback which occurs when the data sheet's column title
522 click2column (GtkWidget *w, gint col, gpointer data)
524 struct data_editor *de = data;
526 gint current_row, current_column;
528 GtkWidget *var_sheet = get_widget_assert (de->xml, "variable_sheet");
530 data_editor_select_sheet (de, PAGE_VAR_SHEET);
532 gtk_sheet_get_active_cell (GTK_SHEET (var_sheet),
533 ¤t_row, ¤t_column);
535 gtk_sheet_set_active_cell (GTK_SHEET (var_sheet), col, current_column);
542 new_data_window (GtkMenuItem *menuitem, gpointer parent)
544 window_create (WINDOW_DATA, NULL);
549 select_sheet (struct data_editor *de, guint page_num)
551 GtkWidget *insert_variable = get_widget_assert (de->xml, "data_insert-variable");
552 GtkWidget *insert_cases = get_widget_assert (de->xml, "insert-cases");
554 GtkWidget *view_data = get_widget_assert (de->xml, "view_data");
555 GtkWidget *view_variables = get_widget_assert (de->xml, "view_variables");
560 gtk_widget_hide (view_variables);
561 gtk_widget_show (view_data);
562 gtk_widget_set_sensitive (insert_variable, TRUE);
563 gtk_widget_set_sensitive (insert_cases, FALSE);
565 case PAGE_DATA_SHEET:
566 gtk_widget_show (view_variables);
567 gtk_widget_hide (view_data);
569 gtk_widget_set_sensitive (insert_cases, TRUE);
573 g_assert_not_reached ();
580 data_var_select (GtkNotebook *notebook,
581 GtkNotebookPage *page,
585 struct data_editor *de = user_data;
587 select_sheet (de, page_num);
594 data_editor_select_sheet (struct data_editor *de, gint page)
596 gtk_notebook_set_current_page
598 GTK_NOTEBOOK (get_widget_assert (de->xml,"notebook")), page
604 status_bar_activate (GtkCheckMenuItem *menuitem, gpointer data)
606 struct data_editor *de = data;
607 GtkWidget *statusbar = get_widget_assert (de->xml, "status-bar");
609 if ( gtk_check_menu_item_get_active (menuitem) )
610 gtk_widget_show (statusbar);
612 gtk_widget_hide (statusbar);
617 grid_lines_activate (GtkCheckMenuItem *menuitem, gpointer data)
619 struct data_editor *de = data;
620 const bool grid_visible = gtk_check_menu_item_get_active (menuitem);
622 gtk_sheet_show_grid (GTK_SHEET (get_widget_assert (de->xml,
626 gtk_sheet_show_grid (GTK_SHEET (get_widget_assert (de->xml, "data_sheet")),
633 data_sheet_activate (GtkCheckMenuItem *menuitem, gpointer data)
635 struct data_editor *de = data;
637 data_editor_select_sheet (de, PAGE_DATA_SHEET);
642 variable_sheet_activate (GtkCheckMenuItem *menuitem, gpointer data)
644 struct data_editor *de = data;
646 data_editor_select_sheet (de, PAGE_VAR_SHEET);
651 fonts_activate (GtkMenuItem *menuitem, gpointer data)
653 struct data_editor *de = data;
655 gtk_font_selection_dialog_new (_("Font Selection"));
657 gtk_window_set_transient_for (GTK_WINDOW (dialog),
658 GTK_WINDOW (get_widget_assert (de->xml,
660 if ( GTK_RESPONSE_OK == gtk_dialog_run (GTK_DIALOG (dialog)) )
662 GtkSheet *data_sheet =
663 GTK_SHEET (get_widget_assert (de->xml, "data_sheet"));
665 GtkSheet *var_sheet =
666 GTK_SHEET (get_widget_assert (de->xml, "variable_sheet"));
668 PsppireDataStore *ds = PSPPIRE_DATA_STORE (gtk_sheet_get_model (data_sheet));
669 PsppireVarStore *vs = PSPPIRE_VAR_STORE (gtk_sheet_get_model (var_sheet));
671 const gchar *font = gtk_font_selection_dialog_get_font_name
672 (GTK_FONT_SELECTION_DIALOG (dialog));
674 PangoFontDescription* font_desc =
675 pango_font_description_from_string (font);
677 psppire_var_store_set_font (vs, font_desc);
678 psppire_data_store_set_font (ds, font_desc);
681 gtk_widget_hide (dialog);
685 /* The next two callbacks are mutually co-operative */
687 /* Callback for the value labels menu item */
689 value_labels_activate (GtkCheckMenuItem *menuitem, gpointer data)
691 struct data_editor *de = data;
693 GtkSheet *data_sheet = GTK_SHEET (get_widget_assert (de->xml, "data_sheet"));
695 GtkToggleToolButton *tb =
696 GTK_TOGGLE_TOOL_BUTTON (get_widget_assert (de->xml,
697 "togglebutton-value-labels"));
699 PsppireDataStore *ds = PSPPIRE_DATA_STORE (gtk_sheet_get_model (data_sheet));
701 gboolean show_value_labels = gtk_check_menu_item_get_active (menuitem);
703 gtk_toggle_tool_button_set_active (tb, show_value_labels);
705 psppire_data_store_show_labels (ds, show_value_labels);
709 /* Callback for the value labels tooglebutton */
711 value_labels_toggled (GtkToggleToolButton *toggle_tool_button,
714 struct data_editor *de = data;
716 GtkSheet *data_sheet = GTK_SHEET (get_widget_assert (de->xml, "data_sheet"));
718 GtkCheckMenuItem *item =
719 GTK_CHECK_MENU_ITEM (get_widget_assert (de->xml, "view_valuelabels"));
721 PsppireDataStore *ds = PSPPIRE_DATA_STORE (gtk_sheet_get_model (data_sheet));
723 gboolean show_value_labels =
724 gtk_toggle_tool_button_get_active (toggle_tool_button);
726 gtk_check_menu_item_set_active (item, show_value_labels);
728 psppire_data_store_show_labels (ds, show_value_labels);
733 file_quit (GtkCheckMenuItem *menuitem, gpointer data)
735 /* FIXME: Need to be more intelligent here.
736 Give the user the opportunity to save any unsaved data.
743 /* Callback for when the Clear item in the edit menu is activated */
745 on_clear_activate (GtkMenuItem *menuitem, gpointer data)
747 struct data_editor *de = data;
749 GtkNotebook *notebook = GTK_NOTEBOOK (get_widget_assert (de->xml,
752 switch ( gtk_notebook_get_current_page (notebook) )
756 GtkSheet *var_sheet =
757 GTK_SHEET (get_widget_assert (de->xml, "variable_sheet"));
759 PsppireVarStore *vs = PSPPIRE_VAR_STORE
760 (gtk_sheet_get_model (var_sheet) );
762 /* This shouldn't be able to happen, because the menuitem
763 should be disabled */
764 g_return_if_fail (var_sheet->state == GTK_SHEET_ROW_SELECTED );
766 psppire_dict_delete_variables (vs->dict,
767 var_sheet->range.row0,
769 var_sheet->range.rowi -
770 var_sheet->range.row0 );
773 case PAGE_DATA_SHEET:
776 g_assert_not_reached ();
781 /* Insert a new variable before the current row in the variable sheet,
782 or before the current column in the data sheet, whichever is selected */
784 insert_variable (GtkCheckMenuItem *m, gpointer data)
786 struct data_editor *de = data;
789 GtkWidget *notebook = get_widget_assert (de->xml, "notebook");
791 GtkSheet *var_sheet =
792 GTK_SHEET (get_widget_assert (de->xml, "variable_sheet"));
794 PsppireVarStore *vs = PSPPIRE_VAR_STORE
795 (gtk_sheet_get_model (var_sheet) );
797 switch ( gtk_notebook_get_current_page ( GTK_NOTEBOOK (notebook)) )
800 posn = var_sheet->active_cell.row;
802 case PAGE_DATA_SHEET:
804 GtkSheet *data_sheet =
805 GTK_SHEET (get_widget_assert (de->xml, "data_sheet"));
807 if ( data_sheet->state == GTK_SHEET_COLUMN_SELECTED )
808 posn = data_sheet->range.col0;
810 posn = data_sheet->active_cell.col;
814 g_assert_not_reached ();
817 psppire_dict_insert_variable (vs->dict, posn, NULL);
820 /* Callback for when the dictionary changes its split variables */
822 on_split_change (PsppireDict *dict, gpointer data)
824 struct data_editor *de = data;
826 size_t n_split_vars = dict_get_split_cnt (dict->dict);
828 GtkWidget *split_status_area =
829 get_widget_assert (de->xml, "split-file-status-area");
831 if ( n_split_vars == 0 )
833 gtk_label_set_text (GTK_LABEL (split_status_area), _("No Split"));
839 const struct variable *const * split_vars = dict_get_split_vars (dict->dict);
841 text = g_string_new (_("Split by "));
843 for (i = 0 ; i < n_split_vars - 1; ++i )
845 g_string_append_printf (text, "%s, ", var_get_name (split_vars[i]));
847 g_string_append (text, var_get_name (split_vars[i]));
849 gtk_label_set_text (GTK_LABEL (split_status_area), text->str);
851 g_string_free (text, TRUE);
856 /* Callback for when the dictionary changes its filter variable */
858 on_filter_change (GObject *o, gint filter_index, gpointer data)
860 struct data_editor *de = data;
861 GtkWidget *filter_status_area =
862 get_widget_assert (de->xml, "filter-use-status-area");
864 if ( filter_index == -1 )
866 gtk_label_set_text (GTK_LABEL (filter_status_area), _("Filter off"));
870 GtkSheet *var_sheet =
871 GTK_SHEET (get_widget_assert (de->xml, "variable_sheet"));
873 PsppireVarStore *vs = PSPPIRE_VAR_STORE
874 (gtk_sheet_get_model (var_sheet) );
876 struct variable *var = psppire_dict_get_variable (vs->dict,
879 gchar *text = g_strdup_printf (_("Filter by %s"), var_get_name (var));
881 gtk_label_set_text (GTK_LABEL (filter_status_area), text);
887 /* Callback for when the dictionary changes its weights */
889 on_weight_change (GObject *o, gint weight_index, gpointer data)
891 struct data_editor *de = data;
892 GtkWidget *weight_status_area =
893 get_widget_assert (de->xml, "weight-status-area");
895 if ( weight_index == -1 )
897 gtk_label_set_text (GTK_LABEL (weight_status_area), _("Weights off"));
901 GtkSheet *var_sheet =
902 GTK_SHEET (get_widget_assert (de->xml, "variable_sheet"));
904 PsppireVarStore *vs = PSPPIRE_VAR_STORE
905 (gtk_sheet_get_model (var_sheet) );
907 struct variable *var = psppire_dict_get_variable (vs->dict,
910 gchar *text = g_strdup_printf (_("Weight by %s"), var_get_name (var));
912 gtk_label_set_text (GTK_LABEL (weight_status_area), text);
921 static void data_save_as_dialog (GtkAction *, struct data_editor *de);
922 static void new_file (GtkAction *, struct editor_window *de);
923 static void open_data_dialog (GtkAction *, struct data_editor *de);
924 static void data_save (GtkAction *action, struct data_editor *e);
927 /* Create the GtkActions and connect to their signals */
929 register_data_editor_actions (struct data_editor *de)
931 de->action_data_open =
932 gtk_action_new ("data-open-dialog",
934 _("Open a data file"),
937 g_signal_connect (de->action_data_open, "activate",
938 G_CALLBACK (open_data_dialog), de);
941 de->action_data_save = gtk_action_new ("data-save",
943 _("Save data to file"),
946 g_signal_connect (de->action_data_save, "activate",
947 G_CALLBACK (data_save), de);
951 de->action_data_save_as = gtk_action_new ("data-save-as-dialog",
953 _("Save data to file"),
956 g_signal_connect (de->action_data_save_as, "activate",
957 G_CALLBACK (data_save_as_dialog), de);
959 de->action_data_new =
960 gtk_action_new ("data-new",
965 g_signal_connect (de->action_data_new, "activate",
966 G_CALLBACK (new_file), de);
969 /* Returns true if NAME has a suffix which might denote a PSPP file */
971 name_has_suffix (const gchar *name)
973 if ( g_str_has_suffix (name, ".sav"))
975 if ( g_str_has_suffix (name, ".SAV"))
977 if ( g_str_has_suffix (name, ".por"))
979 if ( g_str_has_suffix (name, ".POR"))
985 /* Append SUFFIX to the filename of DE */
987 append_filename_suffix (struct data_editor *de, const gchar *suffix)
989 if ( ! name_has_suffix (de->file_name))
991 gchar *s = de->file_name;
992 de->file_name = g_strconcat (de->file_name, suffix, NULL);
997 /* Save DE to file */
999 save_file (struct data_editor *de)
1001 struct getl_interface *sss;
1002 struct string file_name ;
1004 g_assert (de->file_name);
1006 ds_init_cstr (&file_name, de->file_name);
1007 gen_quoted_string (&file_name);
1009 if ( de->save_as_portable )
1011 append_filename_suffix (de, ".por");
1012 sss = create_syntax_string_source ("EXPORT OUTFILE=%s.",
1013 ds_cstr (&file_name));
1017 append_filename_suffix (de, ".sav");
1018 sss = create_syntax_string_source ("SAVE OUTFILE=%s.",
1019 ds_cstr (&file_name));
1022 ds_destroy (&file_name);
1024 execute_syntax (sss);
1028 /* Callback for data_save action.
1029 If there's an existing file name, then just save,
1030 otherwise prompt for a file name, then save */
1032 data_save (GtkAction *action, struct data_editor *de)
1037 data_save_as_dialog (action, de);
1041 /* Callback for data_save_as action. Prompt for a filename and save */
1043 data_save_as_dialog (GtkAction *action, struct data_editor *de)
1045 struct editor_window *e = (struct editor_window *) de;
1047 GtkWidget *button_sys;
1049 gtk_file_chooser_dialog_new (_("Save"),
1050 GTK_WINDOW (e->window),
1051 GTK_FILE_CHOOSER_ACTION_SAVE,
1052 GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL,
1053 GTK_STOCK_SAVE, GTK_RESPONSE_ACCEPT,
1056 GtkFileFilter *filter = gtk_file_filter_new ();
1057 gtk_file_filter_set_name (filter, _("System Files (*.sav)"));
1058 gtk_file_filter_add_pattern (filter, "*.sav");
1059 gtk_file_filter_add_pattern (filter, "*.SAV");
1060 gtk_file_chooser_add_filter (GTK_FILE_CHOOSER (dialog), filter);
1062 filter = gtk_file_filter_new ();
1063 gtk_file_filter_set_name (filter, _("Portable Files (*.por) "));
1064 gtk_file_filter_add_pattern (filter, "*.por");
1065 gtk_file_filter_add_pattern (filter, "*.POR");
1066 gtk_file_chooser_add_filter (GTK_FILE_CHOOSER (dialog), filter);
1068 filter = gtk_file_filter_new ();
1069 gtk_file_filter_set_name (filter, _("All Files"));
1070 gtk_file_filter_add_pattern (filter, "*");
1071 gtk_file_chooser_add_filter (GTK_FILE_CHOOSER (dialog), filter);
1074 GtkWidget *button_por;
1075 GtkWidget *vbox = gtk_vbox_new (TRUE, 5);
1077 gtk_radio_button_new_with_label (NULL, _("System File"));
1080 gtk_radio_button_new_with_label
1081 (gtk_radio_button_get_group (GTK_RADIO_BUTTON(button_sys)),
1082 _("Portable File"));
1084 gtk_box_pack_start_defaults (GTK_BOX (vbox), button_sys);
1085 gtk_box_pack_start_defaults (GTK_BOX (vbox), button_por);
1087 gtk_widget_show_all (vbox);
1089 gtk_file_chooser_set_extra_widget (GTK_FILE_CHOOSER(dialog), vbox);
1092 switch (gtk_dialog_run (GTK_DIALOG (dialog)))
1094 case GTK_RESPONSE_ACCEPT:
1096 g_free (de->file_name);
1099 gtk_file_chooser_get_filename (GTK_FILE_CHOOSER (dialog));
1101 de->save_as_portable =
1102 ! gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (button_sys));
1106 window_set_name_from_filename (e, de->file_name);
1113 gtk_widget_destroy (dialog);
1117 /* Callback for data_new action.
1118 Performs the NEW FILE command */
1120 new_file (GtkAction *action, struct editor_window *e)
1122 struct data_editor *de = (struct data_editor *) e;
1124 struct getl_interface *sss =
1125 create_syntax_string_source ("NEW FILE.");
1127 execute_syntax (sss);
1129 g_free (de->file_name);
1130 de->file_name = NULL;
1132 default_window_name (e);
1137 open_data_file (const gchar *file_name, struct data_editor *de)
1139 struct getl_interface *sss;
1140 struct string filename;
1142 ds_init_cstr (&filename, file_name);
1144 gen_quoted_string (&filename);
1146 sss = create_syntax_string_source ("GET FILE=%s.",
1147 ds_cstr (&filename));
1149 execute_syntax (sss);
1150 ds_destroy (&filename);
1152 window_set_name_from_filename ((struct editor_window *) de, file_name);
1156 /* Callback for the data_open action.
1157 Prompts for a filename and opens it */
1159 open_data_dialog (GtkAction *action, struct data_editor *de)
1161 struct editor_window *e = (struct editor_window *) de;
1164 gtk_file_chooser_dialog_new (_("Open"),
1165 GTK_WINDOW (e->window),
1166 GTK_FILE_CHOOSER_ACTION_OPEN,
1167 GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL,
1168 GTK_STOCK_OPEN, GTK_RESPONSE_ACCEPT,
1171 GtkFileFilter *filter = gtk_file_filter_new ();
1172 gtk_file_filter_set_name (filter, _("System Files (*.sav)"));
1173 gtk_file_filter_add_pattern (filter, "*.sav");
1174 gtk_file_filter_add_pattern (filter, "*.SAV");
1175 gtk_file_chooser_add_filter (GTK_FILE_CHOOSER (dialog), filter);
1177 filter = gtk_file_filter_new ();
1178 gtk_file_filter_set_name (filter, _("Portable Files (*.por) "));
1179 gtk_file_filter_add_pattern (filter, "*.por");
1180 gtk_file_filter_add_pattern (filter, "*.POR");
1181 gtk_file_chooser_add_filter (GTK_FILE_CHOOSER (dialog), filter);
1183 filter = gtk_file_filter_new ();
1184 gtk_file_filter_set_name (filter, _("All Files"));
1185 gtk_file_filter_add_pattern (filter, "*");
1186 gtk_file_chooser_add_filter (GTK_FILE_CHOOSER (dialog), filter);
1188 switch (gtk_dialog_run (GTK_DIALOG (dialog)))
1190 case GTK_RESPONSE_ACCEPT:
1192 g_free (de->file_name);
1194 gtk_file_chooser_get_filename (GTK_FILE_CHOOSER (dialog));
1196 open_data_file (de->file_name, de);
1198 #if RECENT_LISTS_AVAILABLE
1200 GtkRecentManager *manager = gtk_recent_manager_get_default();
1201 gchar *uri = g_filename_to_uri (de->file_name, NULL, NULL);
1203 if ( ! gtk_recent_manager_add_item (manager, uri))
1204 g_warning ("Could not add item %s to recent list\n",uri);
1216 gtk_widget_destroy (dialog);