/********************************************************************\ * table-gnome.c -- implementation of table object in GNOME * * * * 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 the Free Software Foundation; either version 2 of * * the License, or (at your option) any later version. * * * * This program is distributed in the hope that it will be useful, * * but WITHOUT ANY WARRANTY; without even the implied warranty of * * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * * GNU General Public License for more details. * * * * You should have received a copy of the GNU General Public License* * along with this program; if not, contact: * * * * Free Software Foundation Voice: +1-617-542-5942 * * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * * Boston, MA 02111-1307, USA gnu@gnu.org * * * \********************************************************************/ /* * FILE: * table-gnome.c * * FUNCTION: * Implements the infrastructure for the displayed table. * This is the Gnome implementation. * * HISTORY: * Copyright (c) 1998 Linas Vepstas * Copyright (c) 1998 Rob Browning * Copyright (c) 1999 Heath Martin * Copyright (c) 2000 Heath Martin * Copyright (c) 2000 Dave Peticolas * Copyright (c) 2001 Gnumatic, Inc. */ #include "config.h" #include #include #include #include #include #include "global-options.h" #include "gnucash-sheet.h" #include "gnucash-style.h" #include "table-allgui.h" #include "table-gnome.h" void gnc_table_save_state (Table *table) { GnucashSheet *sheet; GNCHeaderWidths widths; SCM alist; if (!table) return; if (table->ui_data == NULL) return; sheet = GNUCASH_SHEET (table->ui_data); widths = gnc_header_widths_new (); if (!GTK_OBJECT_DESTROYED(GTK_OBJECT(sheet))) gnucash_sheet_get_header_widths (sheet, widths); alist = SCM_EOL; if (gnc_lookup_boolean_option("General", "Save Window Geometry", TRUE)) { GList *node = gnc_table_layout_get_cells (table->layout); for (; node; node = node->next) { BasicCell *cell = node->data; int width; SCM assoc; width = gnc_header_widths_get_width (widths, cell->cell_name); if (width <= 0) continue; if (cell->expandable) continue; assoc = gh_cons (gh_str02scm(cell->cell_name), gh_int2scm(width)); alist = gh_cons (assoc, alist); } } if (!gh_null_p (alist)) gnc_set_option ("__gui", "reg_column_widths", alist); gnc_header_widths_destroy (widths); } static void table_ui_redraw_cb (Table *table) { GnucashSheet *sheet; if (table == NULL) return; if (table->ui_data == NULL) return; sheet = GNUCASH_SHEET (table->ui_data); gnucash_sheet_redraw_help (sheet); } static void table_destroy_cb (Table *table) { GnucashSheet *sheet; if (table == NULL) return; if (table->ui_data == NULL) return; sheet = GNUCASH_SHEET (table->ui_data); gtk_widget_unref (GTK_WIDGET(sheet)); table->ui_data = NULL; } void gnc_table_init_gui (gncUIWidget widget, void *data) { GNCHeaderWidths widths; GnucashSheet *sheet; GnucashRegister *greg; Table *table; SCM alist; g_return_if_fail (widget != NULL); g_return_if_fail (GNUCASH_IS_REGISTER (widget)); g_return_if_fail (data != NULL); greg = GNUCASH_REGISTER (widget); sheet = GNUCASH_SHEET (greg->sheet); table = sheet->table; table->gui_handlers.redraw_help = table_ui_redraw_cb; table->gui_handlers.destroy = table_destroy_cb; table->ui_data = sheet; gtk_widget_ref (GTK_WIDGET(sheet)); /* config the cell-block styles */ widths = gnc_header_widths_new (); if (gnc_lookup_boolean_option("General", "Save Window Geometry", TRUE)) alist = gnc_lookup_option ("__gui", "reg_column_widths", SCM_EOL); else alist = SCM_EOL; while (gh_list_p (alist) && !gh_null_p (alist)) { char *name; SCM assoc; assoc = gh_car (alist); alist = gh_cdr (alist); name = gh_scm2newstr(gh_car (assoc), NULL); if (!name) continue; gnc_header_widths_set_width (widths, name, gh_scm2int(gh_cdr (assoc))); free (name); } gnucash_sheet_create_styles (sheet); gnucash_sheet_set_header_widths (sheet, widths); gnucash_sheet_compile_styles (sheet); gnucash_sheet_table_load (sheet, TRUE); gnucash_sheet_cursor_set_from_table (sheet, TRUE); gnucash_sheet_redraw_all (sheet); gnc_header_widths_destroy (widths); } void gnc_table_refresh_gui (Table * table, gboolean do_scroll) { GnucashSheet *sheet; if (!table) return; if (!table->ui_data) return; g_return_if_fail (GNUCASH_IS_SHEET (table->ui_data)); sheet = GNUCASH_SHEET(table->ui_data); gnucash_sheet_styles_recompile (sheet); gnucash_sheet_table_load (sheet, do_scroll); gnucash_sheet_redraw_all (sheet); } static void gnc_table_refresh_cursor_gnome (Table * table, VirtualCellLocation vcell_loc, gboolean do_scroll) { GnucashSheet *sheet; if (!table || !table->ui_data) return; g_return_if_fail (GNUCASH_IS_SHEET (table->ui_data)); if (gnc_table_virtual_cell_out_of_bounds (table, vcell_loc)) return; sheet = GNUCASH_SHEET (table->ui_data); gnucash_sheet_cursor_set_from_table (sheet, do_scroll); if (gnucash_sheet_block_set_from_table (sheet, vcell_loc)) { gnucash_sheet_recompute_block_offsets (sheet); gnucash_sheet_set_scroll_region (sheet); gnucash_sheet_compute_visible_range (sheet); gnucash_sheet_redraw_all (sheet); } else gnucash_sheet_redraw_block (sheet, vcell_loc); } void gnc_table_show_range (Table *table, VirtualCellLocation start_loc, VirtualCellLocation end_loc) { GnucashSheet *sheet; if (!table || !table->ui_data) return; g_return_if_fail (GNUCASH_IS_SHEET (table->ui_data)); if (gnc_table_virtual_cell_out_of_bounds (table, start_loc)) return; if (gnc_table_virtual_cell_out_of_bounds (table, end_loc)) return; sheet = GNUCASH_SHEET (table->ui_data); gnucash_sheet_show_range (sheet, start_loc, end_loc); } void gnc_table_gnome_init (void) { TableGUIHandlers gui_handlers; gui_handlers.cursor_refresh = gnc_table_refresh_cursor_gnome; gnc_table_set_default_gui_handlers (&gui_handlers); } /* Local Variables: c-basic-offset: 8 End: */