pricecell-gnome.c

/********************************************************************\
 * 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                   *
 *                                                                  *
\********************************************************************/
 
/* pricecell-gnome.c
 *
 * Implements gnome dependent price cell functions :
 *
 * Often the decimal key in the keypad is not mapped to the correct locale
 * decimal point, the function PriceDirect handle this case.
 */
 
#include <config.h>
 
#include <locale.h>
#include <gdk/gdkkeysyms.h>
 
#include "gnc-locale-utils.h"
#include "gnc-exp-parser.h"
#include "gnc-ui-util.h"
#include "pricecell.h"
#include "pricecell-gnome.h"
#include "gnucash-sheet.h"
#include "gnucash-sheetP.h"
#include "table-allgui.h"
 
#ifdef G_OS_WIN32
# include <gdk/gdkwin32.h>
#endif
 
static gboolean
gnc_price_cell_direct_update (BasicCell *bcell,
                              int *cursor_position,
                              int *start_selection,
                              int *end_selection,
                              void *gui_data)
{
    PriceCell *cell = (PriceCell *) bcell;
    GdkEventKey *event = gui_data;
    struct lconv *lc;
    gboolean is_return;
 
    if (event->type != GDK_KEY_PRESS)
        return FALSE;
 
    lc = gnc_localeconv ();
 
    is_return = FALSE;
 
    switch (event->keyval)
    {
    case GDK_KEY_Escape:
        if (bcell->changed)
        {
            GnucashSheet *sheet = (GnucashSheet *) bcell->gui_private;
            const char *value = gnc_table_get_model_entry (sheet->table, bcell->cell_name);
 
            gnc_basic_cell_set_value_internal (bcell, value);
            bcell->changed = FALSE;
            *cursor_position = 0;
            *start_selection = 0;
            *end_selection = -1;
            return TRUE;
        }
        return FALSE;
 
    case GDK_KEY_Return:
        if (!(event->state &
                (GDK_MODIFIER_INTENT_DEFAULT_MOD_MASK)))
            is_return = TRUE;
        /* fall through */
 
    case GDK_KEY_KP_Enter:
    {
        char *error_loc;
        gnc_numeric amount;
        gboolean parse_ok;
        gboolean changed = FALSE;
 
        if (!cell->need_to_parse)
            return FALSE;
 
        parse_ok = gnc_exp_parser_parse (cell->cell.value,
                                         &amount, &error_loc);
 
        if (parse_ok)
            changed = gnc_price_cell_set_value (cell, amount);
        else if (!cell->cell.value || cell->cell.value[0] == '\0')
            changed = gnc_price_cell_set_value (cell,
                                                gnc_numeric_zero ());
        else
            *cursor_position = error_loc - cell->cell.value;
 
        /* If there is a problem with the parse, swallow
         * the key so we stay put. */
        if (!parse_ok)
            return TRUE;
 
        /* If nothing has changed, let the key cause a
         * cursor activation no matter what. */
        if (!changed)
            return FALSE;
 
        /* If it's not a plain return, stay put. This
         * allows a 'calculator' style operation using
         * keypad enter where you can keep entering more
         * items to add, say. */
        return !is_return;
    }
 
    case GDK_KEY_KP_Decimal:
        break;
 
    default:
        return FALSE;
    }
 
    /* This  point is only reached when the KP_Decimal key is pressed. */
    gnc_basic_cell_insert_decimal(bcell,
                                  cell->print_info.monetary
                                  ? lc->mon_decimal_point[0]
                                  : lc->decimal_point[0],
                                  cursor_position,
                                  start_selection,
                                  end_selection);
 
    cell->need_to_parse = TRUE;
 
    return TRUE;
}
 
BasicCell *
gnc_price_cell_gnome_new (void)
{
    BasicCell *cell;
 
    cell = gnc_price_cell_new ();
 
    cell->direct_update = gnc_price_cell_direct_update;
 
    return cell;
}
 
void
gnc_basic_cell_insert_decimal(BasicCell *bcell,
                              char decimal_point,
                              int *cursor_position,
                              int *start_selection,
                              int *end_selection)
{
    GString *newval_gs;
    gint start, end;
    gchar *buf;
 
    /* allocate space for newval_ptr : oldval + one letter ( the
       decimal_point ) */
    newval_gs = g_string_new("");
 
    start = MIN(*start_selection, *end_selection);
    end = MAX(*start_selection, *end_selection);
 
    /* length in bytes, not chars. do not use g_utf8_strlen. */
    buf = g_malloc0(strlen(bcell->value) + 1);
    g_utf8_strncpy(buf, bcell->value, start);
    g_string_append(newval_gs, buf);
    g_free(buf);
 
    g_string_append_unichar(newval_gs, decimal_point);
 
    buf = g_utf8_offset_to_pointer(bcell->value, end);
    g_string_append(newval_gs, buf);
 
    /* update the cursor position */
    *cursor_position = start + 1;
 
    gnc_basic_cell_set_value_internal (bcell, newval_gs->str);
 
    g_string_free (newval_gs, TRUE);
}