X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fui%2Fgui%2Fdata-editor.c;h=f7df21c752e746bec52f647f672db0082e387fba;hb=5ee84736663824fe12474b78dace867e42893a14;hp=8fd9517db535ca94c6efe062bb59752c8880ebd4;hpb=0085c7edf6d3b9c9ee2ce880893023c567886101;p=pspp-builds.git diff --git a/src/ui/gui/data-editor.c b/src/ui/gui/data-editor.c index 8fd9517d..f7df21c7 100644 --- a/src/ui/gui/data-editor.c +++ b/src/ui/gui/data-editor.c @@ -1,5 +1,5 @@ /* PSPPIRE - a graphical user interface for PSPP. - Copyright (C) 2006, 2007 Free Software Foundation + Copyright (C) 2006, 2007, 2008 Free Software Foundation This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -22,7 +22,8 @@ #include #include "window-manager.h" -#include + +#include "psppire-data-editor.h" #include "helper.h" #include "about.h" @@ -36,9 +37,23 @@ #include "select-cases-dialog.h" #include "compute-dialog.h" #include "goto-case-dialog.h" +#include "find-dialog.h" +#include "rank-dialog.h" +#include "recode-dialog.h" #include "comments-dialog.h" #include "variable-info-dialog.h" +#include "descriptives-dialog.h" +#include "crosstabs-dialog.h" +#include "frequencies-dialog.h" +#include "examine-dialog.h" #include "dict-display.h" +#include "regression-dialog.h" +#include "text-data-import-dialog.h" + +#include "oneway-anova-dialog.h" +#include "t-test-independent-samples-dialog.h" +#include "t-test-one-sample.h" +#include "t-test-paired-samples.h" #define _(msgid) gettext (msgid) #define N_(msgid) msgid @@ -46,47 +61,33 @@ #include "data-editor.h" #include "syntax-editor.h" #include -#include +#include +#include #include "window-manager.h" #include "psppire-data-store.h" #include "psppire-var-store.h" +static void on_edit_copy (GtkMenuItem *, gpointer); +static void on_edit_cut (GtkMenuItem *, gpointer); +static void on_edit_paste (GtkAction *a, gpointer data); -static void create_data_sheet_variable_popup_menu (struct data_editor *); -static void create_data_sheet_cases_popup_menu (struct data_editor *); - -static void popup_variable_menu (GtkSheet *, gint, - GdkEventButton *, gpointer data); -static void popup_cases_menu (GtkSheet *, gint, - GdkEventButton *, gpointer data); - -/* Update the data_ref_entry with the reference of the active cell */ -static gint update_data_ref_entry (const GtkSheet *sheet, - gint row, gint col, gpointer data); +static GtkWidget * create_data_sheet_variable_popup_menu (struct data_editor *); +static GtkWidget * create_data_sheet_cases_popup_menu (struct data_editor *); static void register_data_editor_actions (struct data_editor *de); - -static void insert_variable (GtkAction *, gpointer data); +static void on_insert_variable (GtkAction *, gpointer data); static void insert_case (GtkAction *a, gpointer data); -static void delete_cases (GtkAction *a, gpointer data); -static void delete_variables (GtkAction *a, gpointer data); static void toggle_value_labels (GtkToggleAction *a, gpointer data); -/* Switch between the VAR SHEET and the DATA SHEET */ - -static gboolean click2column (GtkWidget *w, gint col, gpointer data); -static gboolean click2row (GtkWidget *w, gint row, gpointer data); - - /* Callback for when the dictionary changes properties*/ static void on_weight_change (GObject *, gint, gpointer); static void on_filter_change (GObject *, gint, gpointer); static void on_split_change (PsppireDict *, gpointer); -static void data_var_select (GtkNotebook *notebook, +static void on_switch_sheet (GtkNotebook *notebook, GtkNotebookPage *page, guint page_num, gpointer user_data); @@ -95,20 +96,20 @@ static void status_bar_activate (GtkCheckMenuItem *, gpointer); static void grid_lines_activate (GtkCheckMenuItem *, gpointer); -static void data_sheet_activate (GtkCheckMenuItem *, gpointer); +static void data_view_activate (GtkCheckMenuItem *, gpointer); -static void variable_sheet_activate (GtkCheckMenuItem *, gpointer ); +static void variable_view_activate (GtkCheckMenuItem *, gpointer ); static void fonts_activate (GtkMenuItem *, gpointer); static void file_quit (GtkCheckMenuItem *, gpointer ); static void -enable_delete_cases (GtkWidget *w, gint var, gpointer data) +enable_delete_cases (GtkWidget *w, gint case_num, gpointer data) { struct data_editor *de = data; - gtk_action_set_visible (de->delete_cases, var != -1); + gtk_action_set_visible (de->delete_cases, case_num != -1); } @@ -155,6 +156,27 @@ transformation_change_callback (bool transformations_pending, static void open_data_file (const gchar *, struct data_editor *); +/* Puts FILE_NAME into the recent list. + If it's already in the list, it moves it to the top +*/ +static void +add_most_recent (const char *file_name) +{ +#if RECENT_LISTS_AVAILABLE + + GtkRecentManager *manager = gtk_recent_manager_get_default(); + gchar *uri = g_filename_to_uri (file_name, NULL, NULL); + + gtk_recent_manager_remove_item (manager, uri, NULL); + + if ( ! gtk_recent_manager_add_item (manager, uri)) + g_warning ("Could not add item %s to recent list\n",uri); + + g_free (uri); +#endif +} + + #if RECENT_LISTS_AVAILABLE @@ -200,24 +222,33 @@ on_recent_files_select (GtkMenuShell *menushell, gpointer user_data) #endif + static void -datum_entry_activate (GtkEntry *entry, gpointer data) +update_paste_menuitems (GtkWidget *w, gboolean x, gpointer data) { - gint row, column; - GtkSheet *data_sheet = GTK_SHEET (data); - PsppireDataStore *store = PSPPIRE_DATA_STORE (gtk_sheet_get_model (data_sheet)); + struct data_editor *de = data; - const char *text = gtk_entry_get_text (entry); + GtkWidget * edit_paste = get_widget_assert (de->xml, "edit_paste"); - gtk_sheet_get_active_cell (data_sheet, &row, &column); + gtk_widget_set_sensitive (edit_paste, x); +} - if ( row == -1 || column == -1) - return; +static void +update_cut_copy_menuitems (GtkWidget *w, gboolean x, gpointer data) +{ + struct data_editor *de = data; - psppire_data_store_set_string (store, text, row, column); + GtkWidget * edit_copy = get_widget_assert (de->xml, "edit_copy"); + GtkWidget * edit_cut = get_widget_assert (de->xml, "edit_cut"); + + gtk_widget_set_sensitive (edit_copy, x); + gtk_widget_set_sensitive (edit_cut, x); } +extern PsppireVarStore *the_var_store; extern struct dataset *the_dataset; +extern PsppireDataStore *the_data_store ; + /* Create a new data editor. @@ -227,10 +258,8 @@ new_data_editor (void) { struct data_editor *de ; struct editor_window *e; - GtkSheet *var_sheet ; - GtkSheet *data_sheet ; PsppireVarStore *vs; - GtkWidget *datum_entry; + GtkWidget *vbox ; de = g_malloc0 (sizeof (*de)); @@ -239,26 +268,28 @@ new_data_editor (void) de->xml = XML_NEW ("data-editor.glade"); - dataset_add_transform_change_callback (the_dataset, - transformation_change_callback, - de); + vbox = get_widget_assert (de->xml, "vbox1"); - var_sheet = GTK_SHEET (get_widget_assert (de->xml, "variable_sheet")); - data_sheet = GTK_SHEET (get_widget_assert (de->xml, "data_sheet")); + de->data_editor = PSPPIRE_DATA_EDITOR (psppire_data_editor_new (the_var_store, the_data_store)); - vs = PSPPIRE_VAR_STORE (gtk_sheet_get_model (var_sheet)); + g_signal_connect (de->data_editor, "data-selection-changed", + G_CALLBACK (update_cut_copy_menuitems), de); - g_assert(vs); /* Traps a possible bug in win32 build */ + g_signal_connect (de->data_editor, "data-available-changed", + G_CALLBACK (update_paste_menuitems), de); - g_signal_connect (G_OBJECT (data_sheet), "activate", - G_CALLBACK (update_data_ref_entry), - de->xml); - datum_entry = get_widget_assert (de->xml, "datum_entry"); + gtk_widget_show (GTK_WIDGET (de->data_editor)); - g_signal_connect (G_OBJECT (datum_entry), "activate", - G_CALLBACK (datum_entry_activate), - data_sheet); + gtk_container_add (GTK_CONTAINER (vbox), GTK_WIDGET (de->data_editor)); + gtk_box_reorder_child (GTK_BOX (vbox) , GTK_WIDGET (de->data_editor), 2); + dataset_add_transform_change_callback (the_dataset, + transformation_change_callback, + de); + + vs = the_var_store; + + g_assert(vs); /* Traps a possible bug in w32 build */ g_signal_connect (vs->dict, "weight-changed", G_CALLBACK (on_weight_change), @@ -275,15 +306,25 @@ new_data_editor (void) connect_help (de->xml); + + g_signal_connect (get_widget_assert (de->xml, "edit_copy"), + "activate", + G_CALLBACK (on_edit_copy), de); + + g_signal_connect (get_widget_assert (de->xml, "edit_cut"), + "activate", + G_CALLBACK (on_edit_cut), de); + + register_data_editor_actions (de); de->toggle_value_labels = gtk_toggle_action_new ("toggle-value-labels", - _("Labels"), - _("Show (hide) value labels"), + _("_Labels"), + _("Show/hide value labels"), "pspp-value-labels"); - g_signal_connect (de->toggle_value_labels, "activate", + g_signal_connect (de->toggle_value_labels, "toggled", G_CALLBACK (toggle_value_labels), de); @@ -302,12 +343,16 @@ new_data_editor (void) _("Delete the cases at the selected position(s)"), "pspp-clear-cases"); - g_signal_connect (de->delete_cases, "activate", - G_CALLBACK (delete_cases), de); + g_signal_connect_swapped (de->delete_cases, "activate", + G_CALLBACK (psppire_data_editor_delete_cases), + de->data_editor); gtk_action_connect_proxy (de->delete_cases, get_widget_assert (de->xml, "edit_clear-cases")); + g_signal_connect (get_widget_assert (de->xml, "edit_paste"), "activate", + G_CALLBACK (on_edit_paste), + de); gtk_action_set_visible (de->delete_cases, FALSE); @@ -317,8 +362,9 @@ new_data_editor (void) _("Delete the variables at the selected position(s)"), "pspp-clear-variables"); - g_signal_connect (de->delete_variables, "activate", - G_CALLBACK (delete_variables), de); + g_signal_connect_swapped (de->delete_variables, "activate", + G_CALLBACK (psppire_data_editor_delete_variables), + de->data_editor); gtk_action_connect_proxy (de->delete_variables, get_widget_assert (de->xml, "edit_clear-variables") @@ -328,12 +374,12 @@ new_data_editor (void) de->insert_variable = gtk_action_new ("insert-variable", - _("Insert Variable"), + _("Insert _Variable"), _("Create a new variable at the current position"), "pspp-insert-variable"); g_signal_connect (de->insert_variable, "activate", - G_CALLBACK (insert_variable), de); + G_CALLBACK (on_insert_variable), de->data_editor); gtk_action_connect_proxy (de->insert_variable, @@ -341,13 +387,13 @@ new_data_editor (void) ); gtk_action_connect_proxy (de->insert_variable, - get_widget_assert (de->xml, "data_insert-variable") + get_widget_assert (de->xml, "edit_insert-variable") ); de->insert_case = gtk_action_new ("insert-case", - _("Insert Case"), + _("Insert Ca_se"), _("Create a new case at the current position"), "pspp-insert-case"); @@ -361,14 +407,14 @@ new_data_editor (void) gtk_action_connect_proxy (de->insert_case, - get_widget_assert (de->xml, "data_insert-case") + get_widget_assert (de->xml, "edit_insert-case") ); de->invoke_goto_dialog = gtk_action_new ("goto-case-dialog", - _("Goto Case"), + _("_Goto Case"), _("Jump to a Case in the Data Sheet"), "gtk-jump-to"); @@ -378,7 +424,7 @@ new_data_editor (void) ); gtk_action_connect_proxy (de->invoke_goto_dialog, - get_widget_assert (de->xml, "data_goto-case") + get_widget_assert (de->xml, "edit_goto-case") ); @@ -388,7 +434,7 @@ new_data_editor (void) de->invoke_weight_cases_dialog = gtk_action_new ("weight-cases-dialog", - _("Weights"), + _("_Weights"), _("Weight cases by variable"), "pspp-weight-cases"); @@ -398,7 +444,7 @@ new_data_editor (void) de->invoke_transpose_dialog = gtk_action_new ("transpose-dialog", - _("Transpose"), + _("_Transpose"), _("Transpose the cases with the variables"), NULL); @@ -410,7 +456,7 @@ new_data_editor (void) de->invoke_split_file_dialog = gtk_action_new ("split-file-dialog", - _("Split"), + _("S_plit"), _("Split the active file"), "pspp-split-file"); @@ -421,7 +467,7 @@ new_data_editor (void) de->invoke_sort_cases_dialog = gtk_action_new ("sort-cases-dialog", - _("Sort"), + _("_Sort"), _("Sort cases in the active file"), "pspp-sort-cases"); @@ -430,7 +476,7 @@ new_data_editor (void) de->invoke_select_cases_dialog = gtk_action_new ("select-cases-dialog", - _("Select Cases"), + _("Select _Cases"), _("Select cases from the active file"), "pspp-select-cases"); @@ -440,31 +486,158 @@ new_data_editor (void) de->invoke_compute_dialog = gtk_action_new ("compute-dialog", - _("Compute"), + _("_Compute"), _("Compute new values for a variable"), "pspp-compute"); g_signal_connect (de->invoke_compute_dialog, "activate", G_CALLBACK (compute_dialog), de); + de->invoke_oneway_anova_dialog = + gtk_action_new ("oneway-anova", + _("Oneway _ANOVA"), + _("Perform one way analysis of variance"), + NULL); + + g_signal_connect (de->invoke_oneway_anova_dialog, "activate", + G_CALLBACK (oneway_anova_dialog), de); + + de->invoke_t_test_independent_samples_dialog = + gtk_action_new ("t-test-independent-samples", + _("_Independent Samples T Test"), + _("Calculate T Test for samples from independent groups"), + NULL); + + g_signal_connect (de->invoke_t_test_independent_samples_dialog, "activate", + G_CALLBACK (t_test_independent_samples_dialog), de); + + + de->invoke_t_test_paired_samples_dialog = + gtk_action_new ("t-test-paired-samples", + _("_Paired Samples T Test"), + _("Calculate T Test for paired samples"), + NULL); + + g_signal_connect (de->invoke_t_test_paired_samples_dialog, "activate", + G_CALLBACK (t_test_paired_samples_dialog), de); + + + de->invoke_t_test_one_sample_dialog = + gtk_action_new ("t-test-one-sample", + _("One _Sample T Test"), + _("Calculate T Test for sample from a single distribution"), + NULL); + + g_signal_connect (de->invoke_t_test_one_sample_dialog, "activate", + G_CALLBACK (t_test_one_sample_dialog), de); + + de->invoke_comments_dialog = gtk_action_new ("commments-dialog", - _("Data File Comments"), + _("Data File _Comments"), _("Commentary text for the data file"), NULL); g_signal_connect (de->invoke_comments_dialog, "activate", G_CALLBACK (comments_dialog), de); + de->invoke_find_dialog = + gtk_action_new ("find-dialog", + _("_Find"), + _("Find Case"), + "gtk-find"); + + g_signal_connect (de->invoke_find_dialog, "activate", + G_CALLBACK (find_dialog), de); + + + de->invoke_rank_dialog = + gtk_action_new ("rank-dialog", + _("Ran_k Cases"), + _("Rank Cases"), + "pspp-rank-cases"); + + g_signal_connect (de->invoke_rank_dialog, "activate", + G_CALLBACK (rank_dialog), de); + + + de->invoke_recode_same_dialog = + gtk_action_new ("recode-same-dialog", + _("Recode into _Same Variables"), + _("Recode values into the same Variables"), + "pspp-recode-same"); + + g_signal_connect (de->invoke_recode_same_dialog, "activate", + G_CALLBACK (recode_same_dialog), de); + + + de->invoke_recode_different_dialog = + gtk_action_new ("recode-different-dialog", + _("Recode into _Different Variables"), + _("Recode values into different Variables"), + "pspp-recode-different"); + + g_signal_connect (de->invoke_recode_different_dialog, "activate", + G_CALLBACK (recode_different_dialog), de); + + de->invoke_variable_info_dialog = gtk_action_new ("variable-info-dialog", - _("Variables"), + _("_Variables"), _("Jump to Variable"), "pspp-goto-variable"); g_signal_connect (de->invoke_variable_info_dialog, "activate", G_CALLBACK (variable_info_dialog), de); + de->invoke_descriptives_dialog = + gtk_action_new ("descriptives-dialog", + _("_Descriptives"), + _("Calculate descriptive statistics (mean, variance, ...)"), + "pspp-descriptives"); + + g_signal_connect (de->invoke_descriptives_dialog, "activate", + G_CALLBACK (descriptives_dialog), de); + + + de->invoke_frequencies_dialog = + gtk_action_new ("frequencies-dialog", + _("_Frequencies"), + _("Generate frequency statistics"), + "pspp-frequencies"); + + g_signal_connect (de->invoke_frequencies_dialog, "activate", + G_CALLBACK (frequencies_dialog), de); + + de->invoke_crosstabs_dialog = + gtk_action_new ("crosstabs-dialog", + _("_Crosstabs"), + _("Generate crosstabulations"), + "pspp-crosstabs"); + + g_signal_connect (de->invoke_crosstabs_dialog, "activate", + G_CALLBACK (crosstabs_dialog), de); + + + de->invoke_examine_dialog = + gtk_action_new ("examine-dialog", + _("_Explore"), + _("Examine Data by Factors"), + "pspp-examine"); + + g_signal_connect (de->invoke_examine_dialog, "activate", + G_CALLBACK (examine_dialog), de); + + + de->invoke_regression_dialog = + gtk_action_new ("regression-dialog", + _("Linear _Regression"), + _("Estimate parameters of the linear model"), + "pspp-regression"); + + g_signal_connect (de->invoke_regression_dialog, "activate", + G_CALLBACK (regression_dialog), de); + e->window = GTK_WINDOW (get_widget_assert (de->xml, "data_editor")); g_signal_connect_swapped (get_widget_assert (de->xml,"file_new_data"), @@ -477,7 +650,6 @@ new_data_editor (void) G_CALLBACK (gtk_action_activate), de->action_data_open); - #if RECENT_LISTS_AVAILABLE { GtkRecentManager *rm = gtk_recent_manager_get_default (); @@ -531,6 +703,11 @@ new_data_editor (void) G_CALLBACK (open_syntax_window), e->window); + g_signal_connect_swapped (get_widget_assert (de->xml,"file_import-text"), + "activate", + G_CALLBACK (gtk_action_activate), + de->invoke_text_import_assistant); + g_signal_connect_swapped (get_widget_assert (de->xml,"file_save"), "activate", G_CALLBACK (gtk_action_activate), @@ -541,6 +718,28 @@ new_data_editor (void) G_CALLBACK (gtk_action_activate), de->action_data_save_as); + gtk_action_connect_proxy (de->invoke_find_dialog, + get_widget_assert (de->xml, "edit_find") + ); + + gtk_action_connect_proxy (de->invoke_find_dialog, + get_widget_assert (de->xml, "button-find") + ); + + gtk_action_connect_proxy (de->invoke_rank_dialog, + get_widget_assert (de->xml, "transform_rank") + ); + + gtk_action_connect_proxy (de->invoke_recode_same_dialog, + get_widget_assert (de->xml, + "transform_recode-same") + ); + + gtk_action_connect_proxy (de->invoke_recode_different_dialog, + get_widget_assert (de->xml, + "transform_recode-different") + ); + gtk_action_connect_proxy (de->invoke_weight_cases_dialog, get_widget_assert (de->xml, "data_weight-cases") ); @@ -565,6 +764,30 @@ new_data_editor (void) get_widget_assert (de->xml, "transform_compute") ); + gtk_action_connect_proxy (de->invoke_t_test_independent_samples_dialog, + get_widget_assert (de->xml, + "indep-t-test") + ); + + + gtk_action_connect_proxy (de->invoke_t_test_paired_samples_dialog, + get_widget_assert (de->xml, + "paired-t-test") + ); + + + gtk_action_connect_proxy (de->invoke_t_test_one_sample_dialog, + get_widget_assert (de->xml, + "one-sample-t-test") + ); + + + gtk_action_connect_proxy (de->invoke_oneway_anova_dialog, + get_widget_assert (de->xml, + "oneway-anova") + ); + + gtk_action_connect_proxy (de->invoke_comments_dialog, get_widget_assert (de->xml, "utilities_comments") ); @@ -573,6 +796,27 @@ new_data_editor (void) get_widget_assert (de->xml, "utilities_variables") ); + gtk_action_connect_proxy (de->invoke_descriptives_dialog, + get_widget_assert (de->xml, "analyze_descriptives") + ); + + gtk_action_connect_proxy (de->invoke_crosstabs_dialog, + get_widget_assert (de->xml, "crosstabs") + ); + + gtk_action_connect_proxy (de->invoke_frequencies_dialog, + get_widget_assert (de->xml, "analyze_frequencies") + ); + + + gtk_action_connect_proxy (de->invoke_examine_dialog, + get_widget_assert (de->xml, "analyze_explore") + ); + + gtk_action_connect_proxy (de->invoke_regression_dialog, + get_widget_assert (de->xml, "linear-regression") + ); + g_signal_connect (get_widget_assert (de->xml,"help_about"), "activate", G_CALLBACK (about_new), @@ -584,36 +828,25 @@ new_data_editor (void) G_CALLBACK (reference_manual), e->window); - g_signal_connect (data_sheet, - "double-click-column", - G_CALLBACK (click2column), - de); - - g_signal_connect (data_sheet, - "select-column", - G_CALLBACK (enable_delete_variables), - de); - g_signal_connect (data_sheet, - "select-row", + g_signal_connect (de->data_editor, + "cases-selected", G_CALLBACK (enable_delete_cases), de); - g_signal_connect (var_sheet, - "double-click-row", - GTK_SIGNAL_FUNC (click2row), - de); - - g_signal_connect_after (var_sheet, - "select-row", + g_signal_connect (de->data_editor, + "variables-selected", G_CALLBACK (enable_delete_variables), de); - g_signal_connect (get_widget_assert (de->xml, "notebook"), + + g_signal_connect (GTK_NOTEBOOK (de->data_editor), "switch-page", - G_CALLBACK (data_var_select), de); + G_CALLBACK (on_switch_sheet), de); + gtk_notebook_set_current_page (GTK_NOTEBOOK (de->data_editor), PSPPIRE_DATA_EDITOR_VARIABLE_VIEW); + gtk_notebook_set_current_page (GTK_NOTEBOOK (de->data_editor), PSPPIRE_DATA_EDITOR_DATA_VIEW); g_signal_connect (get_widget_assert (de->xml, "view_statusbar"), "activate", @@ -628,11 +861,11 @@ new_data_editor (void) g_signal_connect (get_widget_assert (de->xml, "view_data"), "activate", - G_CALLBACK (data_sheet_activate), de); + G_CALLBACK (data_view_activate), de); g_signal_connect (get_widget_assert (de->xml, "view_variables"), "activate", - G_CALLBACK (variable_sheet_activate), de); + G_CALLBACK (variable_view_activate), de); @@ -682,75 +915,21 @@ new_data_editor (void) G_CALLBACK (minimise_all_windows), NULL); - create_data_sheet_variable_popup_menu (de); - create_data_sheet_cases_popup_menu (de); - - g_signal_connect (G_OBJECT (data_sheet), "button-event-column", - G_CALLBACK (popup_variable_menu), de); - - g_signal_connect (G_OBJECT (data_sheet), "button-event-row", - G_CALLBACK (popup_cases_menu), de); - - /* The "switch-page" signal does get emitted unless the page actually - changes. But the state is indeterminate at startup. Therefore we - must explicitly change it to one state, then the other */ - data_editor_select_sheet (de, PAGE_VAR_SHEET); - data_editor_select_sheet (de, PAGE_DATA_SHEET); - - return de; -} - - -/* Callback which occurs when the var sheet's row title - button is double clicked */ -static gboolean -click2row (GtkWidget *w, gint row, gpointer data) -{ - struct data_editor *de = data; - GtkSheetRange visible_range; - - gint current_row, current_column; - - GtkWidget *data_sheet = get_widget_assert (de->xml, "data_sheet"); + de->data_sheet_variable_popup_menu = + GTK_MENU (create_data_sheet_variable_popup_menu (de)); - data_editor_select_sheet (de, PAGE_DATA_SHEET); + de->data_sheet_cases_popup_menu = + GTK_MENU (create_data_sheet_cases_popup_menu (de)); - gtk_sheet_get_active_cell (GTK_SHEET (data_sheet), - ¤t_row, ¤t_column); - gtk_sheet_set_active_cell (GTK_SHEET (data_sheet), current_row, row); + g_object_set (de->data_editor, + "column-menu", de->data_sheet_variable_popup_menu, NULL); - gtk_sheet_get_visible_range (GTK_SHEET (data_sheet), &visible_range); - if ( row < visible_range.col0 || row > visible_range.coli) - { - gtk_sheet_moveto (GTK_SHEET (data_sheet), - current_row, row, 0, 0); - } - - return FALSE; -} - - -/* Callback which occurs when the data sheet's column title - is double clicked */ -static gboolean -click2column (GtkWidget *w, gint col, gpointer data) -{ - struct data_editor *de = data; - - gint current_row, current_column; + g_object_set (de->data_editor, + "row-menu", de->data_sheet_cases_popup_menu, NULL); - GtkWidget *var_sheet = get_widget_assert (de->xml, "variable_sheet"); - - data_editor_select_sheet (de, PAGE_VAR_SHEET); - - gtk_sheet_get_active_cell (GTK_SHEET (var_sheet), - ¤t_row, ¤t_column); - - gtk_sheet_set_active_cell (GTK_SHEET (var_sheet), col, current_column); - - return FALSE; + return de; } @@ -760,9 +939,9 @@ new_data_window (GtkMenuItem *menuitem, gpointer parent) window_create (WINDOW_DATA, NULL); } - +/* Callback for when the datasheet/varsheet is selected */ static void -data_var_select (GtkNotebook *notebook, +on_switch_sheet (GtkNotebook *notebook, GtkNotebookPage *page, guint page_num, gpointer user_data) @@ -774,14 +953,14 @@ data_var_select (GtkNotebook *notebook, switch (page_num) { - case PAGE_VAR_SHEET: + case PSPPIRE_DATA_EDITOR_VARIABLE_VIEW: gtk_widget_hide (view_variables); gtk_widget_show (view_data); gtk_action_set_sensitive (de->insert_variable, TRUE); gtk_action_set_sensitive (de->insert_case, FALSE); gtk_action_set_sensitive (de->invoke_goto_dialog, FALSE); break; - case PAGE_DATA_SHEET: + case PSPPIRE_DATA_EDITOR_DATA_VIEW: gtk_widget_show (view_variables); gtk_widget_hide (view_data); gtk_action_set_sensitive (de->invoke_goto_dialog, TRUE); @@ -791,20 +970,13 @@ data_var_select (GtkNotebook *notebook, g_assert_not_reached (); break; } -} - -void -data_editor_select_sheet (struct data_editor *de, gint page) -{ - gtk_notebook_set_current_page - ( - GTK_NOTEBOOK (get_widget_assert (de->xml,"notebook")), page - ); +#if 0 + update_paste_menuitem (de, page_num); +#endif } - static void status_bar_activate (GtkCheckMenuItem *menuitem, gpointer data) { @@ -822,33 +994,28 @@ static void grid_lines_activate (GtkCheckMenuItem *menuitem, gpointer data) { struct data_editor *de = data; - const bool grid_visible = gtk_check_menu_item_get_active (menuitem); + const gboolean grid_visible = gtk_check_menu_item_get_active (menuitem); - gtk_sheet_show_grid (GTK_SHEET (get_widget_assert (de->xml, - "variable_sheet")), - grid_visible); - - gtk_sheet_show_grid (GTK_SHEET (get_widget_assert (de->xml, "data_sheet")), - grid_visible); + psppire_data_editor_show_grid (de->data_editor, grid_visible); } static void -data_sheet_activate (GtkCheckMenuItem *menuitem, gpointer data) +data_view_activate (GtkCheckMenuItem *menuitem, gpointer data) { struct data_editor *de = data; - data_editor_select_sheet (de, PAGE_DATA_SHEET); + gtk_notebook_set_current_page (GTK_NOTEBOOK (de->data_editor), PSPPIRE_DATA_EDITOR_DATA_VIEW); } static void -variable_sheet_activate (GtkCheckMenuItem *menuitem, gpointer data) +variable_view_activate (GtkCheckMenuItem *menuitem, gpointer data) { struct data_editor *de = data; - data_editor_select_sheet (de, PAGE_VAR_SHEET); + gtk_notebook_set_current_page (GTK_NOTEBOOK (de->data_editor), PSPPIRE_DATA_EDITOR_VARIABLE_VIEW); } @@ -864,23 +1031,13 @@ fonts_activate (GtkMenuItem *menuitem, gpointer data) "data_editor"))); if ( GTK_RESPONSE_OK == gtk_dialog_run (GTK_DIALOG (dialog)) ) { - GtkSheet *data_sheet = - GTK_SHEET (get_widget_assert (de->xml, "data_sheet")); - - GtkSheet *var_sheet = - GTK_SHEET (get_widget_assert (de->xml, "variable_sheet")); - - PsppireDataStore *ds = PSPPIRE_DATA_STORE (gtk_sheet_get_model (data_sheet)); - PsppireVarStore *vs = PSPPIRE_VAR_STORE (gtk_sheet_get_model (var_sheet)); - const gchar *font = gtk_font_selection_dialog_get_font_name (GTK_FONT_SELECTION_DIALOG (dialog)); PangoFontDescription* font_desc = pango_font_description_from_string (font); - psppire_var_store_set_font (vs, font_desc); - psppire_data_store_set_font (ds, font_desc); + psppire_data_editor_set_font (de->data_editor, font_desc); } gtk_widget_hide (dialog); @@ -894,163 +1051,38 @@ toggle_value_labels (GtkToggleAction *ta, gpointer data) { struct data_editor *de = data; - GtkSheet *data_sheet = GTK_SHEET (get_widget_assert (de->xml, "data_sheet")); - - PsppireDataStore *ds = PSPPIRE_DATA_STORE (gtk_sheet_get_model (data_sheet)); - - - psppire_data_store_show_labels (ds, - gtk_toggle_action_get_active (ta)); + g_object_set (de->data_editor, "value-labels", gtk_toggle_action_get_active (ta), NULL); } + static void file_quit (GtkCheckMenuItem *menuitem, gpointer data) { /* FIXME: Need to be more intelligent here. Give the user the opportunity to save any unsaved data. */ + g_object_unref (the_data_store); gtk_main_quit (); } -static void -delete_cases (GtkAction *action, gpointer data) -{ - struct data_editor *de = data; - GtkSheet *data_sheet = - GTK_SHEET (get_widget_assert (de->xml, "data_sheet")); - - GtkSheetRange range; - - PsppireDataStore *data_store = PSPPIRE_DATA_STORE - (gtk_sheet_get_model (data_sheet) ); - - - /* This shouldn't be able to happen, because the action - should be disabled */ - g_return_if_fail (gtk_sheet_get_state (data_sheet) - == GTK_SHEET_ROW_SELECTED ); - - gtk_sheet_get_selected_range (data_sheet, &range); - - gtk_sheet_unselect_range (data_sheet); - - psppire_data_store_delete_cases (data_store, range.row0, - 1 + range.rowi - range.row0); - -} - -static void -delete_variables (GtkAction *a, gpointer data) -{ - struct data_editor *de = data; - GtkSheetRange range; - - GtkNotebook *notebook = GTK_NOTEBOOK (get_widget_assert (de->xml, - "notebook")); - - const gint page = gtk_notebook_get_current_page (notebook); - - GtkSheet *sheet = GTK_SHEET (get_widget_assert (de->xml, - (page == PAGE_VAR_SHEET) ? - "variable_sheet" : - "data_sheet")); - - - gtk_sheet_get_selected_range (sheet, &range); - - switch ( page ) - { - case PAGE_VAR_SHEET: - { - PsppireVarStore *vs = - PSPPIRE_VAR_STORE (gtk_sheet_get_model (sheet)); - - psppire_dict_delete_variables (vs->dict, - range.row0, - 1 + - range.rowi - - range.row0 ); - } - break; - case PAGE_DATA_SHEET: - { - PsppireDataStore *ds = - PSPPIRE_DATA_STORE (gtk_sheet_get_model (sheet)); - - psppire_dict_delete_variables (ds->dict, - range.col0, - 1 + - range.coli - - range.col0 ); - } - break; - }; - - gtk_sheet_unselect_range (sheet); -} static void insert_case (GtkAction *action, gpointer data) { - gint current_row ; struct data_editor *de = data; - GtkSheet *data_sheet = - GTK_SHEET (get_widget_assert (de->xml, "data_sheet")); - - PsppireDataStore *ds = PSPPIRE_DATA_STORE - (gtk_sheet_get_model (data_sheet) ); - - - gtk_sheet_get_active_cell (data_sheet, ¤t_row, NULL); - - if (current_row < 0) current_row = 0; - - psppire_data_store_insert_new_case (ds, current_row); + psppire_data_editor_insert_case (de->data_editor); } -/* Insert a new variable before the current row in the variable sheet, - or before the current column in the data sheet, whichever is selected */ static void -insert_variable (GtkAction *action, gpointer data) +on_insert_variable (GtkAction *action, gpointer data) { - struct data_editor *de = data; - gint posn = -1; - - GtkWidget *notebook = get_widget_assert (de->xml, "notebook"); - - GtkSheet *var_sheet = - GTK_SHEET (get_widget_assert (de->xml, "variable_sheet")); - - PsppireVarStore *vs = PSPPIRE_VAR_STORE - (gtk_sheet_get_model (var_sheet) ); - - switch ( gtk_notebook_get_current_page ( GTK_NOTEBOOK (notebook)) ) - { - case PAGE_VAR_SHEET: - posn = var_sheet->active_cell.row; - break; - case PAGE_DATA_SHEET: - { - GtkSheet *data_sheet = - GTK_SHEET (get_widget_assert (de->xml, "data_sheet")); - - if ( data_sheet->state == GTK_SHEET_COLUMN_SELECTED ) - posn = data_sheet->range.col0; - else - posn = data_sheet->active_cell.col; - } - break; - default: - g_assert_not_reached (); - } - - if ( posn == -1 ) posn = 0; - - psppire_dict_insert_variable (vs->dict, posn, NULL); + PsppireDataEditor *de = PSPPIRE_DATA_EDITOR (data); + psppire_data_editor_insert_variable (de); } + /* Callback for when the dictionary changes its split variables */ static void on_split_change (PsppireDict *dict, gpointer data) @@ -1102,16 +1134,15 @@ on_filter_change (GObject *o, gint filter_index, gpointer data) } else { - GtkSheet *var_sheet = - GTK_SHEET (get_widget_assert (de->xml, "variable_sheet")); + PsppireVarStore *vs = NULL; + struct variable *var ; + gchar *text ; - PsppireVarStore *vs = PSPPIRE_VAR_STORE - (gtk_sheet_get_model (var_sheet) ); + g_object_get (de->data_editor, "var-store", &vs, NULL); - struct variable *var = psppire_dict_get_variable (vs->dict, - filter_index); + var = psppire_dict_get_variable (vs->dict, filter_index); - gchar *text = g_strdup_printf (_("Filter by %s"), var_get_name (var)); + text = g_strdup_printf (_("Filter by %s"), var_get_name (var)); gtk_label_set_text (GTK_LABEL (filter_status_area), text); @@ -1133,16 +1164,15 @@ on_weight_change (GObject *o, gint weight_index, gpointer data) } else { - GtkSheet *var_sheet = - GTK_SHEET (get_widget_assert (de->xml, "variable_sheet")); + struct variable *var ; + PsppireVarStore *vs = NULL; + gchar *text; - PsppireVarStore *vs = PSPPIRE_VAR_STORE - (gtk_sheet_get_model (var_sheet) ); + g_object_get (de->data_editor, "var-store", &vs, NULL); - struct variable *var = psppire_dict_get_variable (vs->dict, - weight_index); + var = psppire_dict_get_variable (vs->dict, weight_index); - gchar *text = g_strdup_printf (_("Weight by %s"), var_get_name (var)); + text = g_strdup_printf (_("Weight by %s"), var_get_name (var)); gtk_label_set_text (GTK_LABEL (weight_status_area), text); @@ -1199,6 +1229,15 @@ register_data_editor_actions (struct data_editor *de) g_signal_connect (de->action_data_new, "activate", G_CALLBACK (new_file), de); + + de->invoke_text_import_assistant = + gtk_action_new ("file_import-text", + _("_Import Text Data"), + _("Import text data file"), + ""); + + g_signal_connect (de->invoke_text_import_assistant, "activate", + G_CALLBACK (text_data_import_assistant), de); } /* Returns true if NAME has a suffix which might denote a PSPP file */ @@ -1238,8 +1277,8 @@ save_file (struct data_editor *de) g_assert (de->file_name); - ds_init_cstr (&file_name, de->file_name); - gen_quoted_string (&file_name); + ds_init_empty (&file_name); + syntax_gen_string (&file_name, ss_cstr (de->file_name)); if ( de->save_as_portable ) { @@ -1336,6 +1375,11 @@ data_save_as_dialog (GtkAction *action, struct data_editor *de) de->save_as_portable = ! gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (button_sys)); + if ( de->save_as_portable) + append_filename_suffix (de, ".por"); + else + append_filename_suffix (de, ".sav"); + save_file (de); window_set_name_from_filename (e, de->file_name); @@ -1374,20 +1418,22 @@ open_data_file (const gchar *file_name, struct data_editor *de) struct getl_interface *sss; struct string filename; - ds_init_cstr (&filename, file_name); - - gen_quoted_string (&filename); + ds_init_empty (&filename); + syntax_gen_string (&filename, ss_cstr (file_name)); sss = create_syntax_string_source ("GET FILE=%s.", ds_cstr (&filename)); - - execute_syntax (sss); ds_destroy (&filename); - window_set_name_from_filename ((struct editor_window *) de, file_name); + if (execute_syntax (sss) ) + { + window_set_name_from_filename ((struct editor_window *) de, file_name); + add_most_recent (file_name); + } } + /* Callback for the data_open action. Prompts for a filename and opens it */ static void @@ -1438,19 +1484,6 @@ open_data_dialog (GtkAction *action, struct data_editor *de) gtk_file_chooser_get_filename (GTK_FILE_CHOOSER (dialog)); open_data_file (de->file_name, de); - -#if RECENT_LISTS_AVAILABLE - { - GtkRecentManager *manager = gtk_recent_manager_get_default(); - gchar *uri = g_filename_to_uri (de->file_name, NULL, NULL); - - if ( ! gtk_recent_manager_add_item (manager, uri)) - g_warning ("Could not add item %s to recent list\n",uri); - - g_free (uri); - } -#endif - } break; default: @@ -1461,121 +1494,9 @@ open_data_dialog (GtkAction *action, struct data_editor *de) } - -/* Update the data_ref_entry with the reference of the active cell */ -static gint -update_data_ref_entry (const GtkSheet *sheet, gint row, gint col, gpointer data) -{ - GladeXML *data_editor_xml = data; - - PsppireDataStore *data_store = - PSPPIRE_DATA_STORE (gtk_sheet_get_model (sheet)); - - g_return_val_if_fail (data_editor_xml, FALSE); - - if (data_store) - { - const struct variable *var = - psppire_dict_get_variable (data_store->dict, col); - - /* The entry where the reference to the current cell is displayed */ - GtkEntry *cell_ref_entry = - GTK_ENTRY (get_widget_assert (data_editor_xml, - "cell_ref_entry")); - GtkEntry *datum_entry = - GTK_ENTRY (get_widget_assert (data_editor_xml, - "datum_entry")); - - if ( var ) - { - gchar *text = g_strdup_printf ("%d: %s", row + FIRST_CASE_NUMBER, - var_get_name (var)); - - gchar *s = pspp_locale_to_utf8 (text, -1, 0); - - g_free (text); - - gtk_entry_set_text (cell_ref_entry, s); - - g_free (s); - } - else - gtk_entry_set_text (cell_ref_entry, ""); - - - if ( var ) - { - gchar *text = - psppire_data_store_get_string (data_store, row, - var_get_dict_index(var)); - g_strchug (text); - - gtk_entry_set_text (datum_entry, text); - - free (text); - } - else - gtk_entry_set_text (datum_entry, ""); - } - - return FALSE; -} - - - - - -static void -do_sort (PsppireDataStore *ds, int var, gboolean descend) -{ - GString *string = g_string_new ("SORT CASES BY "); - - const struct variable *v = - psppire_dict_get_variable (ds->dict, var); - - g_string_append_printf (string, "%s", var_get_name (v)); - - if ( descend ) - g_string_append (string, " (D)"); - - g_string_append (string, "."); - - execute_syntax (create_syntax_string_source (string->str)); - - g_string_free (string, TRUE); -} - - -static void -sort_up (GtkMenuItem *item, gpointer data) -{ - GtkSheet *sheet = data; - GtkSheetRange range; - gtk_sheet_get_selected_range (sheet, &range); - - do_sort (PSPPIRE_DATA_STORE (gtk_sheet_get_model(sheet)), - range.col0, FALSE); - -} - -static void -sort_down (GtkMenuItem *item, gpointer data) -{ - GtkSheet *sheet = data; - GtkSheetRange range; - gtk_sheet_get_selected_range (sheet, &range); - - do_sort (PSPPIRE_DATA_STORE (gtk_sheet_get_model(sheet)), - range.col0, TRUE); -} - - - - -static void +static GtkWidget * create_data_sheet_variable_popup_menu (struct data_editor *de) { - GtkSheet *sheet = GTK_SHEET (get_widget_assert (de->xml, "data_sheet")); GtkWidget *menu = gtk_menu_new (); GtkWidget *sort_ascending = @@ -1584,7 +1505,6 @@ create_data_sheet_variable_popup_menu (struct data_editor *de) GtkWidget *sort_descending = gtk_menu_item_new_with_label (_("Sort Descending")); - GtkWidget *insert_variable = gtk_menu_item_new_with_label (_("Insert Variable")); @@ -1592,10 +1512,6 @@ create_data_sheet_variable_popup_menu (struct data_editor *de) gtk_menu_item_new_with_label (_("Clear")); - gtk_action_connect_proxy (de->insert_variable, - insert_variable ); - - gtk_action_connect_proxy (de->delete_variables, clear_variable ); @@ -1614,26 +1530,31 @@ create_data_sheet_variable_popup_menu (struct data_editor *de) gtk_separator_menu_item_new ()); - g_signal_connect (G_OBJECT (sort_ascending), "activate", - G_CALLBACK (sort_up), sheet); - gtk_menu_shell_append (GTK_MENU_SHELL (menu), sort_ascending); - g_signal_connect (G_OBJECT (sort_descending), "activate", - G_CALLBACK (sort_down), sheet); + g_signal_connect_swapped (G_OBJECT (sort_ascending), "activate", + G_CALLBACK (psppire_data_editor_sort_ascending), + de->data_editor); + + g_signal_connect_swapped (G_OBJECT (sort_descending), "activate", + G_CALLBACK (psppire_data_editor_sort_descending), + de->data_editor); + + g_signal_connect_swapped (G_OBJECT (insert_variable), "activate", + G_CALLBACK (gtk_action_activate), + de->insert_variable); gtk_menu_shell_append (GTK_MENU_SHELL (menu), sort_descending); gtk_widget_show_all (menu); - - de->data_sheet_variable_popup_menu = GTK_MENU(menu); + return menu; } -static void +static GtkWidget * create_data_sheet_cases_popup_menu (struct data_editor *de) { GtkWidget *menu = gtk_menu_new (); @@ -1645,16 +1566,16 @@ create_data_sheet_cases_popup_menu (struct data_editor *de) gtk_menu_item_new_with_label (_("Clear")); - gtk_action_connect_proxy (de->insert_case, - insert_case); - - gtk_action_connect_proxy (de->delete_cases, delete_case); gtk_menu_shell_append (GTK_MENU_SHELL (menu), insert_case); + g_signal_connect_swapped (G_OBJECT (insert_case), "activate", + G_CALLBACK (gtk_action_activate), + de->insert_case); + gtk_menu_shell_append (GTK_MENU_SHELL (menu), gtk_separator_menu_item_new ()); @@ -1665,51 +1586,34 @@ create_data_sheet_cases_popup_menu (struct data_editor *de) gtk_widget_show_all (menu); - - de->data_sheet_cases_popup_menu = GTK_MENU (menu); + return menu; } + + static void -popup_variable_menu (GtkSheet *sheet, gint column, - GdkEventButton *event, gpointer data) +on_edit_paste (GtkAction *a, gpointer data) { struct data_editor *de = data; - PsppireDataStore *data_store = - PSPPIRE_DATA_STORE (gtk_sheet_get_model (sheet)); - - const struct variable *v = - psppire_dict_get_variable (data_store->dict, column); - - if ( v && event->button == 3) - { + psppire_data_editor_clip_paste (de->data_editor); +} - gtk_sheet_select_column (sheet, column); +static void +on_edit_copy (GtkMenuItem *m, gpointer data) +{ + struct data_editor *de = data; - gtk_menu_popup (GTK_MENU (de->data_sheet_variable_popup_menu), - NULL, NULL, NULL, NULL, - event->button, event->time); - } + psppire_data_editor_clip_copy (de->data_editor); } + static void -popup_cases_menu (GtkSheet *sheet, gint row, - GdkEventButton *event, gpointer data) +on_edit_cut (GtkMenuItem *m, gpointer data) { struct data_editor *de = data; - PsppireDataStore *data_store = - PSPPIRE_DATA_STORE (gtk_sheet_get_model (sheet)); - - if ( row <= psppire_data_store_get_case_count (data_store) && - event->button == 3) - { - gtk_sheet_select_row (sheet, row); - - gtk_menu_popup (GTK_MENU (de->data_sheet_cases_popup_menu), - NULL, NULL, NULL, NULL, - event->button, event->time); - } + psppire_data_editor_clip_cut (de->data_editor); }