/*
PSPPIRE --- A Graphical User Interface for PSPP
- Copyright (C) 2004, 2005 Free Software Foundation
+ Copyright (C) 2004, 2005, 2006 Free Software Foundation
Written by John Darrington
This program is free software; you can redistribute it and/or modify
#include <config.h>
#include <stdlib.h>
+#include <gettext.h>
+#define _(msgid) gettext (msgid)
+#define N_(msgid) msgid
+#include <math/sort.h>
+
+#include <data/casefile.h>
#include <data/file-handle-def.h>
#include <data/sys-file-reader.h>
#include <data/case.h>
#include <glade/glade.h>
#include <gtk/gtk.h>
+#include <libpspp/str.h>
+
#include <gtksheet/gtksheet.h>
#include "helper.h"
#include "menu-actions.h"
#include "psppire-var-store.h"
#include "psppire-data-store.h"
-#define _(A) A
-#define N_(A) A
+#include "sort-cases-dialog.h"
extern GladeXML *xml;
extern PsppireDict *the_dictionary ;
-extern PsppireCaseArray *the_cases ;
-
static struct file_handle *psppire_handle = 0;
static const gchar handle_name[] = "psppire_handle";
-static const gchar untitled[] = _("Untitled");
+static const gchar untitled[] = N_("Untitled");
-static const gchar window_title[]=_("PSPP Data Editor");
+static const gchar window_title[] = N_("PSPP Data Editor");
+/* Sets the title bar to TEXT */
static void
psppire_set_window_title(const gchar *text)
{
GtkWidget *data_editor = get_widget_assert(xml, "data_editor");
- gchar *title = g_strdup_printf("%s --- %s", text, window_title);
+ gchar *title = g_strdup_printf("%s --- %s", text, gettext(window_title));
gtk_window_set_title(GTK_WINDOW(data_editor), title);
g_free(title);
}
-void
-on_new1_activate (GtkMenuItem *menuitem,
- gpointer user_data)
+/* Clear the active file and set the data and var sheets to
+ reflect this.
+ */
+gboolean
+clear_file(void)
{
- psppire_dict_clear(the_dictionary);
- psppire_case_array_clear(the_cases);
+ PsppireDataStore *data_store ;
+ GtkSheet *data_sheet = GTK_SHEET(get_widget_assert(xml, "data_sheet"));
+ GtkSheet *var_sheet = GTK_SHEET(get_widget_assert(xml, "variable_sheet"));
+
+ gtk_sheet_set_active_cell(data_sheet, -1, -1);
+ gtk_sheet_set_active_cell(var_sheet, 0, 0);
+
+ if ( GTK_WIDGET_REALIZED(GTK_WIDGET(data_sheet)))
+ gtk_sheet_unselect_range(data_sheet);
+
+ if ( GTK_WIDGET_REALIZED(GTK_WIDGET(var_sheet)))
+ gtk_sheet_unselect_range(var_sheet);
+
+ gtk_sheet_moveto(data_sheet, 0, 0, 0.0, 0.0);
+ gtk_sheet_moveto(var_sheet, 0, 0, 0.0, 0.0);
+
+ data_store = PSPPIRE_DATA_STORE(gtk_sheet_get_model(data_sheet));
+
+ psppire_data_store_clear(data_store);
- psppire_set_window_title(untitled);
+ psppire_set_window_title(gettext(untitled));
if (psppire_handle)
fh_free(psppire_handle);
psppire_handle = 0 ;
+
+ return TRUE;
}
-static gboolean
-populate_case_from_reader(struct ccase *c, gpointer aux)
+void
+on_new1_activate (GtkMenuItem *menuitem,
+ gpointer user_data)
{
- struct sfm_reader *reader = aux;
+ clear_file();
+}
+
+
+
+/* Load a system file.
+ Return TRUE if successfull
+*/
+gboolean
+load_system_file(const gchar *file_name)
+{
+ int var_cnt ;
+
+ PsppireVarStore *var_store ;
+ PsppireDataStore *data_store ;
+ struct dictionary *new_dict;
+ struct sfm_read_info ri;
+ struct sfm_reader *reader ;
+
+ GtkWidget *data_sheet = get_widget_assert(xml, "data_sheet");
+ GtkWidget *var_sheet = get_widget_assert(xml, "variable_sheet");
- return sfm_read_case(reader, c);
+ g_assert(data_sheet);
+ g_assert(var_sheet);
+
+ clear_file();
+
+ psppire_handle =
+ fh_create_file (handle_name, file_name, fh_default_properties());
+
+ if ( !psppire_handle )
+ {
+ g_warning("Cannot read handle for reading system file \"%s\"\n",
+ file_name);
+ return FALSE;
+ }
+
+ reader = sfm_open_reader (psppire_handle, &new_dict, &ri);
+
+ if ( ! reader )
+ return FALSE;
+
+ /* FIXME: We need a better way of updating a dictionary than this */
+ the_dictionary = psppire_dict_new_from_dict(new_dict);
+
+ var_store =
+ PSPPIRE_VAR_STORE(gtk_sheet_get_model(GTK_SHEET(var_sheet)));
+
+ psppire_var_store_set_dictionary(var_store, the_dictionary);
+
+
+ data_store =
+ PSPPIRE_DATA_STORE(gtk_sheet_get_model(GTK_SHEET(data_sheet)));
+
+ psppire_data_store_set_dictionary(data_store,
+ the_dictionary);
+
+ psppire_set_window_title(basename(file_name));
+
+ var_cnt = dict_get_next_value_idx(the_dictionary->dict);
+ if ( var_cnt == 0 )
+ return FALSE;
+
+
+ for(;;)
+ {
+ struct ccase c;
+ case_create(&c, var_cnt);
+ if ( 0 == sfm_read_case (reader, &c) )
+ {
+ case_destroy(&c);
+ break;
+ }
+
+ if ( !psppire_case_file_append_case(data_store->case_file, &c) )
+ {
+ g_warning("Cannot write case to casefile\n");
+ break;
+ }
+ case_destroy(&c);
+ }
+
+ sfm_close_reader(reader);
+
+ psppire_case_file_get_case_count(data_store->case_file);
+
+ return TRUE;
}
gtk_file_filter_add_pattern(filter, "*");
gtk_file_chooser_add_filter(GTK_FILE_CHOOSER(dialog), filter);
-
do {
if (gtk_dialog_run (GTK_DIALOG (dialog)) == GTK_RESPONSE_ACCEPT)
{
- PsppireVarStore *var_store ;
- PsppireDataStore *data_store ;
- struct dictionary *new_dict;
- struct sfm_read_info ri;
- struct sfm_reader *reader ;
-
- GtkWidget *data_sheet = get_widget_assert(xml, "data_sheet");
- GtkWidget *var_sheet = get_widget_assert(xml, "variable_sheet");
- gchar *file_name;
-
- g_assert(data_sheet);
- g_assert(var_sheet);
-
- file_name = gtk_file_chooser_get_filename
- (GTK_FILE_CHOOSER (dialog));
-
- if ( psppire_handle )
- fh_free(psppire_handle);
-
- psppire_handle =
- fh_create_file (handle_name, file_name, fh_default_properties());
-
- if ( !psppire_handle )
- {
- g_warning("Cannot read handle for reading system file \"%s\"\n",
- file_name);
- continue;
- }
-
-
- reader = sfm_open_reader (psppire_handle, &new_dict, &ri);
-
- if ( ! reader )
- continue;
-
- the_dictionary = psppire_dict_new_from_dict(new_dict);
-
- var_store =
- PSPPIRE_VAR_STORE(gtk_sheet_get_model(GTK_SHEET(var_sheet)));
-
- psppire_var_store_set_dictionary(var_store, the_dictionary);
-
-
- data_store =
- PSPPIRE_DATA_STORE(gtk_sheet_get_model(GTK_SHEET(data_sheet)));
+ gchar *file_name =
+ gtk_file_chooser_get_filename(GTK_FILE_CHOOSER (dialog));
+ finished = load_system_file(file_name) ;
- psppire_data_store_set_dictionary(data_store,
- the_dictionary);
-
- psppire_case_array_clear(data_store->cases);
-
-
- psppire_set_window_title(basename(file_name));
-
- g_free (file_name);
-
- {
- const int ni = dict_get_next_value_idx(the_dictionary->dict);
- gint case_num;
- if ( ni == 0 )
- goto done;
-
-
- for(case_num=0;;case_num++)
- {
- if (!psppire_case_array_append_case(the_cases,
- populate_case_from_reader,
- reader))
- break;
- }
- }
-
- sfm_close_reader(reader);
- finished = TRUE;
+ g_free(file_name);
}
else
- {
- finished = TRUE;
- }
+ finished = TRUE;
+
} while ( ! finished ) ;
- done:
gtk_widget_destroy (dialog);
}
/* Re initialise HANDLE, by interrogating the user for a new file name */
-static void
+static gboolean
recreate_save_handle(struct file_handle **handle)
{
+ gint response;
GtkWidget *dialog;
GtkWidget *data_editor = get_widget_assert(xml, "data_editor");
GTK_STOCK_SAVE, GTK_RESPONSE_ACCEPT,
NULL);
- if (gtk_dialog_run (GTK_DIALOG (dialog)) == GTK_RESPONSE_ACCEPT)
+ response = gtk_dialog_run (GTK_DIALOG (dialog));
+
+ if (response == GTK_RESPONSE_ACCEPT)
{
char *file_name = gtk_file_chooser_get_filename
(GTK_FILE_CHOOSER (dialog));
-#if 0
+
if ( *handle )
- destroy_file_handle(*handle, 0);
-#endif
- *handle = fh_create_file (handle_name, file_name, fh_default_properties());
+ fh_free(*handle);
+
+ *handle = fh_create_file (handle_name, file_name,
+ fh_default_properties());
psppire_set_window_title(basename(file_name));
}
gtk_widget_destroy (dialog);
+
+ return ( response == GTK_RESPONSE_ACCEPT ) ;
}
void
PsppireDataStore *data_store ;
if ( ! psppire_handle )
- recreate_save_handle(&psppire_handle);
+ {
+ if ( ! recreate_save_handle(&psppire_handle) )
+ return;
+ }
data_sheet = GTK_SHEET(get_widget_assert(xml, "data_sheet"));
data_store = PSPPIRE_DATA_STORE(gtk_sheet_get_model(data_sheet));
GtkSheet *data_sheet ;
PsppireDataStore *data_store ;
- recreate_save_handle(&psppire_handle);
+ if ( ! recreate_save_handle(&psppire_handle) )
+ return ;
+
if ( ! psppire_handle )
return ;
void
-on_cut1_activate (GtkMenuItem *menuitem,
- gpointer user_data)
-{
-
-}
-
-
-void
-on_copy1_activate (GtkMenuItem *menuitem,
- gpointer user_data)
-{
-
-}
-
-
-void
-on_paste1_activate (GtkMenuItem *menuitem,
- gpointer user_data)
-{
-
-}
-
-/* Fill a case with SYSMIS for numeric and whitespace for string
- variables respectively */
-static gboolean
-blank_case(struct ccase *cc, gpointer _dict)
-{
- gint i;
- PsppireDict *dict = _dict;
-
- for(i = 0 ; i < psppire_dict_get_var_cnt(dict); ++i )
- {
- union value *val ;
-
- const struct PsppireVariable *var = psppire_dict_get_variable(dict, i);
-
- gint idx = psppire_variable_get_index(var);
-
- val = case_data_rw(cc, idx) ;
-
- if ( psppire_variable_get_type(var) == ALPHA )
- memset(val->s, ' ', psppire_variable_get_width(var));
- else
- val->f = SYSMIS;
-
- case_unshare(cc);
- }
-
- return TRUE;
-}
-
-
-void
-on_insert1_activate (GtkMenuItem *menuitem,
- gpointer user_data)
+on_clear_activate (GtkMenuItem *menuitem,
+ gpointer user_data)
{
GtkNotebook *notebook = GTK_NOTEBOOK(get_widget_assert(xml, "notebook1"));
gint page = -1;
switch (page)
{
- case PAGE_DATA_SHEET:
- {
- GtkSheet *data_sheet = GTK_SHEET(get_widget_assert(xml, "data_sheet"));
- PsppireDataStore *data_store =
- PSPPIRE_DATA_STORE(gtk_sheet_get_model(data_sheet));
-
- psppire_case_array_insert_case(data_store->cases,
- data_sheet->range.row0,
- blank_case, the_dictionary);
- }
- break;
case PAGE_VAR_SHEET:
- {
- GtkSheet *var_sheet =
- GTK_SHEET(get_widget_assert(xml, "variable_sheet"));
-
- PsppireVarStore *var_store =
- PSPPIRE_VAR_STORE(gtk_sheet_get_model(var_sheet));
-
- psppire_dict_insert_variable(var_store->dict, var_sheet->range.row0, 0);
- }
- break;
- }
-}
-
-void
-on_delete1_activate (GtkMenuItem *menuitem,
- gpointer user_data)
-{
- gint page = -1;
- GtkWidget *notebook = get_widget_assert(xml, "notebook1");
-
- page = gtk_notebook_get_current_page(GTK_NOTEBOOK(notebook));
- switch ( page)
- {
+ break;
case PAGE_DATA_SHEET:
{
GtkSheet *data_sheet = GTK_SHEET(get_widget_assert(xml, "data_sheet"));
PsppireDataStore *data_store =
PSPPIRE_DATA_STORE(gtk_sheet_get_model(data_sheet));
+
- psppire_case_array_delete_cases(data_store->cases,
- data_sheet->range.row0,
- 1 + data_sheet->range.rowi
- - data_sheet->range.row0 );
- }
- break;
- case PAGE_VAR_SHEET:
- {
- GtkSheet *var_sheet =
- GTK_SHEET(get_widget_assert(xml, "variable_sheet"));
-
- PsppireVarStore *var_store =
- PSPPIRE_VAR_STORE(gtk_sheet_get_model(var_sheet));
+ switch ( data_sheet->state )
+ {
+ case GTK_SHEET_ROW_SELECTED:
+ psppire_case_file_delete_cases(data_store->case_file,
+ data_sheet->range.rowi
+ - data_sheet->range.row0 + 1,
+ data_sheet->range.row0);
+ break;
+ case GTK_SHEET_COLUMN_SELECTED:
+ {
+ gint fv;
+ struct PsppireVariable *pv =
+ psppire_dict_get_variable(the_dictionary,
+ data_sheet->range.col0);
+ fv = psppire_variable_get_fv(pv);
+
+
+ psppire_dict_delete_variables(the_dictionary,
+ data_sheet->range.col0,
+ 1);
+
+ psppire_case_file_insert_values(data_store->case_file,
+ -1, fv);
+ }
+ break;
+ default:
+ gtk_sheet_cell_clear(data_sheet,
+ data_sheet->active_cell.row,
+ data_sheet->active_cell.col);
+ break;
+ }
- psppire_dict_delete_variables(var_store->dict,
- var_sheet->range.row0,
- 1 + var_sheet->range.rowi
- - var_sheet->range.row0 );
}
break;
}
-}
+}
void
on_about1_activate(GtkMenuItem *menuitem,
}
-
+/* Set the value labels state from the toolbar's toggle button */
void
-on_toolbars1_activate
- (GtkMenuItem *menuitem,
- gpointer user_data)
+on_togglebutton_value_labels_toggled(GtkToggleToolButton *toggle_tool_button,
+ gpointer user_data)
{
+ GtkSheet *data_sheet = GTK_SHEET(get_widget_assert(xml, "data_sheet"));
+ GtkCheckMenuItem *item =
+ GTK_CHECK_MENU_ITEM(get_widget_assert(xml, "menuitem-value-labels"));
+
+ PsppireDataStore *ds = PSPPIRE_DATA_STORE(gtk_sheet_get_model(data_sheet));
+ gboolean show_value_labels = gtk_toggle_tool_button_get_active(toggle_tool_button);
+
+ gtk_check_menu_item_set_active(item, show_value_labels);
+ psppire_data_store_show_labels(ds, show_value_labels);
}
+/* Set the value labels state from the view menu */
void
-on_value_labels1_activate(GtkCheckMenuItem *menuitem,
+on_value_labels_activate(GtkCheckMenuItem *menuitem,
gpointer user_data)
{
GtkSheet *data_sheet = GTK_SHEET(get_widget_assert(xml, "data_sheet"));
+ GtkToggleToolButton *tb =
+ GTK_TOGGLE_TOOL_BUTTON(get_widget_assert(xml, "togglebutton-value-labels"));
+
PsppireDataStore *ds = PSPPIRE_DATA_STORE(gtk_sheet_get_model(data_sheet));
-
- psppire_data_store_show_labels(ds,
- gtk_check_menu_item_get_active(menuitem));
+
+ gboolean show_value_labels = gtk_check_menu_item_get_active(menuitem);
+
+ gtk_toggle_tool_button_set_active(tb, show_value_labels);
+
+ psppire_data_store_show_labels(ds, show_value_labels);
}
void
static void
switch_menus(gint page)
{
+ GtkWidget *insert_variable = get_widget_assert(xml, "insert-variable");
+ GtkWidget *insert_cases = get_widget_assert(xml, "insert-cases");
+
switch (page)
{
case PAGE_VAR_SHEET:
gtk_widget_hide(menuitems[PAGE_VAR_SHEET]);
gtk_widget_show(menuitems[PAGE_DATA_SHEET]);
+ gtk_widget_set_sensitive(insert_variable, TRUE);
+ gtk_widget_set_sensitive(insert_cases, FALSE);
break;
case PAGE_DATA_SHEET:
gtk_widget_show(menuitems[PAGE_VAR_SHEET]);
gtk_widget_hide(menuitems[PAGE_DATA_SHEET]);
+ gtk_widget_set_sensitive(insert_variable, FALSE);
+ gtk_widget_set_sensitive(insert_cases, TRUE);
break;
default:
g_assert_not_reached();
switch_menus(page_num);
}
-static void
-var_data_selection_init()
+
+/* Initialised things on the variable sheet */
+void
+var_data_selection_init(void)
{
notebook = GTK_NOTEBOOK(get_widget_assert(xml, "notebook1"));
menuitems[PAGE_DATA_SHEET] = get_widget_assert(xml, "data1");
}
-/* Callback which occurs when gtk_main is entered */
-gboolean
-callbacks_on_init(gpointer data)
+
+void
+on_go_to_case_activate(GtkMenuItem *menuitem,
+ gpointer user_data)
{
- psppire_set_window_title(untitled);
+ GtkWidget *dialog = get_widget_assert(xml, "go_to_case_dialog");
+ GtkEntry *entry = GTK_ENTRY(get_widget_assert(xml, "entry_go_to_case"));
+ GtkSheet *data_sheet = GTK_SHEET(get_widget_assert(xml, "data_sheet"));
+
+ gint result = gtk_dialog_run(GTK_DIALOG(dialog));
+
+
+
+ switch (result)
+ {
+ case GTK_RESPONSE_OK:
+ {
+ gint row, column;
+ const gchar *text = gtk_entry_get_text(entry);
+ gint casenum = g_strtod(text, NULL);
- var_data_selection_init();
+ gtk_sheet_get_active_cell(data_sheet, &row, &column);
+ if ( column < 0 ) column = 0;
+ if ( row < 0 ) row = 0;
+
+ gtk_sheet_set_active_cell(data_sheet, casenum, column);
+ }
+ break;
+ default:
+ break;
+ }
- return FALSE;
+ gtk_widget_hide(dialog);
+ gtk_entry_set_text(entry, "");
}
+
+
+
+void
+on_sort_cases_activate (GtkMenuItem *menuitem,
+ gpointer user_data)
+{
+ gint response;
+ PsppireDataStore *data_store ;
+
+ struct sort_criteria criteria;
+ static struct sort_cases_dialog *dialog ;
+
+ GtkSheet *data_sheet = GTK_SHEET(get_widget_assert(xml, "data_sheet"));
+
+ data_store = PSPPIRE_DATA_STORE(gtk_sheet_get_model(data_sheet));
+
+ if ( NULL == dialog)
+ dialog = sort_cases_dialog_create(xml);
+
+ response = sort_cases_dialog_run(dialog, the_dictionary, &criteria);
+
+ switch ( response)
+ {
+ case GTK_RESPONSE_OK:
+ psppire_case_file_sort(data_store->case_file, &criteria);
+ break;
+ }
+}
+
+
+static void
+insert_case(void)
+{
+ gint row, col;
+ PsppireDataStore *data_store ;
+ GtkSheet *data_sheet = GTK_SHEET(get_widget_assert(xml, "data_sheet"));
+
+ data_store = PSPPIRE_DATA_STORE(gtk_sheet_get_model(data_sheet));
+
+ gtk_sheet_get_active_cell(data_sheet, &row, &col);
+
+ psppire_data_store_insert_new_case(data_store, row);
+}
+
+void
+on_insert_case_clicked (GtkButton *button, gpointer user_data)
+{
+ insert_case();
+}
+
+void
+on_insert_cases (GtkMenuItem *menuitem, gpointer user_data)
+{
+ insert_case();
+}
+
+
+void
+on_insert_variable (GtkMenuItem *menuitem, gpointer user_data)
+{
+ gint row, col;
+ GtkSheet *var_sheet = GTK_SHEET(get_widget_assert(xml, "variable_sheet"));
+
+ gtk_sheet_get_active_cell(var_sheet, &row, &col);
+
+ psppire_dict_insert_variable(the_dictionary, row, NULL);
+}
+
+
projects / pspp-builds.git / blobdiff