/********************************************************************\ * 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 * * 51 Franklin Street, Fifth Floor Fax: +1-617-542-2652 * * Boston, MA 02110-1301, USA gnu@gnu.org * * * \********************************************************************/ /* * The Gnucash Cursor Canvas Item * * Based heavily (i.e., cut and pasted from) on the Gnumeric ItemCursor. * * Authors: * Heath Martin * Dave Peticolas */ #include #include "gnucash-color.h" #include "gnucash-cursor.h" #include "gnucash-sheet.h" #include "gnucash-sheetP.h" #include "gnucash-style.h" enum { PROP_0, PROP_SHEET, }; G_DEFINE_TYPE (GnucashCursor, gnucash_cursor, G_TYPE_OBJECT) static void gnucash_cursor_get_pixel_coords (GnucashCursor *cursor, gint *x, gint *y, gint *w, gint *h) { GnucashSheet *sheet = cursor->sheet; VirtualCellLocation vcell_loc; CellDimensions *cd; VirtualCell *vcell; SheetBlock *block; gint col; vcell_loc.virt_row = cursor->row; vcell_loc.virt_col = cursor->col; block = gnucash_sheet_get_block (sheet, vcell_loc); if (!block) return; vcell = gnc_table_get_virtual_cell (sheet->table, vcell_loc); if (!vcell) return; for (col = 0; col < vcell->cellblock->num_cols; col++) { BasicCell *cell; cell = gnc_cellblock_get_cell (vcell->cellblock, 0, col); if (cell && cell->cell_name) break; } *y = block->origin_y; cd = gnucash_style_get_cell_dimensions (block->style, 0, col); if (cd) *x = cd->origin_x; else *x = block->origin_x; for (col = vcell->cellblock->num_cols - 1; col >= 0; col--) { BasicCell *cell; cell = gnc_cellblock_get_cell (vcell->cellblock, 0, col); if (cell && cell->cell_name) break; } *h = block->style->dimensions->height; cd = gnucash_style_get_cell_dimensions (block->style, 0, col); if (cd) *w = cd->origin_x + cd->pixel_width - *x; else *w = block->style->dimensions->width - *x; } void gnucash_cursor_set_style (GnucashCursor *cursor, SheetBlockStyle *style) { g_return_if_fail (cursor != NULL); g_return_if_fail (GNUCASH_IS_CURSOR(cursor)); cursor->style = style; } void gnucash_cursor_get_virt (GnucashCursor *cursor, VirtualLocation *virt_loc) { g_return_if_fail (cursor != NULL); g_return_if_fail (GNUCASH_IS_CURSOR (cursor)); virt_loc->vcell_loc.virt_row = cursor->row; virt_loc->vcell_loc.virt_col = cursor->col; virt_loc->phys_row_offset = cursor->cell.row; virt_loc->phys_col_offset = cursor->cell.col; } void gnucash_cursor_configure (GnucashCursor *cursor) { gint x = 0, y = 0, w = 0, h = 0; g_return_if_fail (cursor != NULL); g_return_if_fail (GNUCASH_IS_CURSOR (cursor)); if (!cursor->sheet) return; g_return_if_fail (GTK_IS_LAYOUT (cursor->sheet)); gnucash_cursor_get_pixel_coords (cursor, &x, &y, &w, &h); cursor->x = x; cursor->y = y; cursor->w = w; cursor->h = h + 2; gnucash_sheet_style_get_cell_pixel_rel_coords (cursor->style, cursor->cell.row, cursor->cell.col, &x, &y, &w, &h); cursor->cell.x = x; cursor->cell.y = y; cursor->cell.w = w; cursor->cell.h = h; } static void gnucash_cursor_set_block (GnucashCursor *cursor, VirtualCellLocation vcell_loc) { GnucashSheet *sheet; g_return_if_fail (cursor != NULL); g_return_if_fail (GNUCASH_IS_CURSOR (cursor)); sheet = cursor->sheet; if (vcell_loc.virt_row < 0 || vcell_loc.virt_row >= sheet->num_virt_rows || vcell_loc.virt_col < 0 || vcell_loc.virt_col >= sheet->num_virt_cols) return; cursor->style = gnucash_sheet_get_style (sheet, vcell_loc); cursor->row = vcell_loc.virt_row; cursor->col = vcell_loc.virt_col; } static void gnucash_cursor_set_cell (GnucashCursor *cursor, gint cell_row, gint cell_col) { SheetBlockStyle *style; g_return_if_fail (cursor != NULL); g_return_if_fail (GNUCASH_IS_CURSOR (cursor)); style = cursor->style; if (cell_row < 0 || cell_row >= style->nrows || cell_col < 0 || cell_col >= style->ncols) return; cursor->cell.row = cell_row; cursor->cell.col = cell_col; } void gnucash_cursor_set (GnucashCursor *cursor, VirtualLocation virt_loc) { GnucashSheet *sheet; g_return_if_fail (cursor != NULL); g_return_if_fail (GNUCASH_IS_CURSOR (cursor)); sheet = cursor->sheet; gnucash_cursor_set_block (cursor, virt_loc.vcell_loc); gnucash_cursor_set_cell (cursor, virt_loc.phys_row_offset, virt_loc.phys_col_offset); gnucash_cursor_configure (cursor); g_object_set (G_OBJECT(sheet->header_item), "cursor_name", cursor->style->cursor->cursor_name, NULL); } static void gnucash_cursor_set_property (GObject *object, guint prop_id, const GValue *value, GParamSpec *pspec) { GnucashCursor *cursor; cursor = GNUCASH_CURSOR (object); switch (prop_id) { case PROP_SHEET: cursor->sheet = GNUCASH_SHEET (g_value_get_object (value)); break; default: break; } } /* Note that g_value_set_object() refs the object, as does * g_object_get(). But g_object_get() only unrefs once when it disgorges * the object, leaving an unbalanced ref, which leaks. So instead of * using g_value_set_object(), use g_value_take_object() which doesn't * ref the object when used in get_property(). */ static void gnucash_cursor_get_property (GObject *object, guint prop_id, GValue *value, GParamSpec *pspec) { GnucashCursor *cursor = GNUCASH_CURSOR (object); switch (prop_id) { case PROP_SHEET: g_value_take_object (value, cursor->sheet); break; default: break; } } static void gnucash_cursor_init (GnucashCursor *instance) { } static void gnucash_cursor_class_init (GnucashCursorClass *klass) { GObjectClass *object_class; object_class = G_OBJECT_CLASS (klass); /* GObject method overrides */ object_class->set_property = gnucash_cursor_set_property; object_class->get_property = gnucash_cursor_get_property; /* properties */ g_object_class_install_property (object_class, PROP_SHEET, g_param_spec_object ("sheet", "Sheet Value", "Sheet Value", GNUCASH_TYPE_SHEET, G_PARAM_READWRITE)); } GnucashCursor * gnucash_cursor_new (GnucashSheet *sheet) { return GNUCASH_CURSOR( g_object_new (gnucash_cursor_get_type(), "sheet", sheet, NULL)); }