X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fui%2Fgui%2Fdata-sheet.c;h=9a3c0c520062c0f5cfb941384133a748870d12d7;hb=e10bd21c92f8d6a82ed06bec7af9ee40bf5eb727;hp=87dcc5006531b6cddfbad2ee6f0046eab35ea01e;hpb=e294a372f351d7105c21a2db58022af8b119aa64;p=pspp-builds.git diff --git a/src/ui/gui/data-sheet.c b/src/ui/gui/data-sheet.c index 87dcc500..9a3c0c52 100644 --- a/src/ui/gui/data-sheet.c +++ b/src/ui/gui/data-sheet.c @@ -1,7 +1,6 @@ -/* +/* PSPPIRE --- A Graphical User Interface for PSPP Copyright (C) 2004, 2005, 2006 Free Software Foundation - Written by John Darrington 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 @@ -16,9 +15,10 @@ You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA - 02110-1301, USA. + 02110-1301, USA. */ +#include #include #include @@ -29,7 +29,6 @@ #include #include "psppire-dict.h" -#include "psppire-variable.h" #include "psppire-data-store.h" #include "helper.h" @@ -37,115 +36,154 @@ #include #include -#include "menu-actions.h" #include "data-sheet.h" - -extern GladeXML *xml; - - -static gboolean -traverse_callback (GtkSheet * sheet, - gint row, gint col, - gint *new_row, gint *new_column - ) +static gboolean +traverse_callback (GtkSheet * sheet, + gint row, gint col, + gint *new_row, gint *new_column + ) { - PsppireDataStore *data_store = PSPPIRE_DATA_STORE(gtk_sheet_get_model(sheet)); + gint case_count; + gint n_vars; - const gint n_vars = psppire_dict_get_var_cnt(data_store->dict); + PsppireDataStore *data_store = + PSPPIRE_DATA_STORE(gtk_sheet_get_model (sheet)); - if ( *new_column >= n_vars ) - return FALSE; - return TRUE; -} + g_assert (data_store); + n_vars = psppire_dict_get_var_cnt (data_store->dict); + if ( *new_column >= n_vars ) + return FALSE; -/* Callback which occurs when the column title is double clicked */ -static gboolean -click2column(GtkWidget *w, gint col, gpointer data) -{ - gint current_row, current_column; - GtkWidget *var_sheet = get_widget_assert(xml, "variable_sheet"); + case_count = psppire_case_file_get_case_count (data_store->case_file); - select_sheet(PAGE_VAR_SHEET); + if ( *new_row >= case_count ) + { + gint i; - gtk_sheet_get_active_cell(GTK_SHEET(var_sheet), - ¤t_row, ¤t_column); + for ( i = case_count ; i <= *new_row; ++i ) + psppire_data_store_insert_new_case (data_store, i); - gtk_sheet_set_active_cell(GTK_SHEET(var_sheet), col, current_column); + return TRUE; + } - return FALSE; + return TRUE; } + /* Update the data_ref_entry with the reference of the active cell */ -gint -update_data_ref_entry(const GtkSheet *sheet, gint row, gint col) +gint +update_data_ref_entry (const GtkSheet *sheet, gint row, gint col) { + GladeXML *data_editor_xml = NULL; /* FIXME !!!! */ + + /* The entry where the reference to the current cell is displayed */ GtkEntry *cell_ref_entry; - PsppireDataStore *data_store = PSPPIRE_DATA_STORE(gtk_sheet_get_model(sheet)); + PsppireDataStore *data_store = PSPPIRE_DATA_STORE(gtk_sheet_get_model (sheet)); if (data_store) { - const struct PsppireVariable *pv = - psppire_dict_get_variable(data_store->dict, col); + const struct variable *pv = + psppire_dict_get_variable (data_store->dict, col); gchar *text ; gchar *s ; - if ( !xml) + if ( !data_editor_xml) return FALSE; - text = g_strdup_printf("%d: %s", row, - pv ? psppire_variable_get_name(pv) : ""); - - cell_ref_entry = GTK_ENTRY(get_widget_assert(xml, "cell_ref_entry")); + text = g_strdup_printf ("%d: %s", row, + pv ? var_get_name (pv) : ""); + + cell_ref_entry = GTK_ENTRY(get_widget_assert (data_editor_xml, + "cell_ref_entry")); - s = pspp_locale_to_utf8(text, -1, 0); + s = pspp_locale_to_utf8 (text, -1, 0); - g_free(text); + g_free (text); - gtk_entry_set_text(cell_ref_entry, s); + gtk_entry_set_text (cell_ref_entry, s); - g_free(s); + g_free (s); } return FALSE; } +extern PsppireDataStore *the_data_store ; -extern PsppireDataStore *data_store ; + +/* Return the width that an 'M' character would occupy when typeset in WIDGET */ +static guint +calc_m_width (GtkWidget *widget, const PangoFontDescription *font_desc) +{ + PangoRectangle rect; + PangoLayout *layout ; + PangoContext * context; + + context = gtk_widget_create_pango_context (widget); + g_assert (context); + layout = pango_layout_new (context); + g_assert (layout); + + pango_layout_set_text (layout, "M", 1); + + pango_layout_set_font_description (layout, font_desc); + + pango_layout_get_extents (layout, NULL, &rect); + + g_object_unref (G_OBJECT(layout)); + g_object_unref (G_OBJECT(context)); + + return PANGO_PIXELS(rect.width); +} + +void +font_change_callback (GObject *obj, gpointer data) +{ + GtkWidget *sheet = data; + PsppireDataStore *ds = PSPPIRE_DATA_STORE(obj); + + ds->width_of_m = calc_m_width (sheet, ds->font_desc); +} + GtkWidget* psppire_data_sheet_create (gchar *widget_name, gchar *string1, gchar *string2, gint int1, gint int2) { GtkWidget *sheet; - sheet = gtk_sheet_new(G_SHEET_ROW(data_store), - G_SHEET_COLUMN(data_store), "data sheet", 0); + sheet = gtk_sheet_new (G_SHEET_ROW(the_data_store), + G_SHEET_COLUMN(the_data_store), "data sheet", 0); + the_data_store->width_of_m = calc_m_width (sheet, the_data_store->font_desc); - g_signal_connect (GTK_OBJECT (sheet), "activate", - GTK_SIGNAL_FUNC (update_data_ref_entry), + g_signal_connect (G_OBJECT (sheet), "activate", + G_CALLBACK (update_data_ref_entry), 0); - g_signal_connect (GTK_OBJECT (sheet), "traverse", - GTK_SIGNAL_FUNC (traverse_callback), 0); + g_signal_connect (G_OBJECT (sheet), "traverse", + G_CALLBACK (traverse_callback), 0); - g_signal_connect (GTK_OBJECT (sheet), "double-click-column", - GTK_SIGNAL_FUNC (click2column), - 0); + g_signal_connect (G_OBJECT (the_data_store), "font-changed", + G_CALLBACK (font_change_callback), sheet); + + gtk_sheet_set_active_cell (GTK_SHEET(sheet), -1, -1); + + + gtk_sheet_set_model (GTK_SHEET (sheet), G_SHEET_MODEL(the_data_store)); - gtk_sheet_set_active_cell(GTK_SHEET(sheet), -1, -1); - gtk_widget_show(sheet); + gtk_widget_show (sheet); return sheet; }