dialog-price-edit-db.c

/********************************************************************\
 * dialog-price-editor.c -- price selector dialog                   *
 * Copyright (C) 2001 Gnumatic, Inc.                                *
 * Author: Dave Peticolas <dave@krondo.com>                         *
 * Copyright (C) 2003,2005 David Hampton                            *
 *                                                                  *
 * 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                   *
\********************************************************************/

#include "config.h"

#include <gtk/gtk.h>
#include <glib/gi18n.h>
#include <libguile.h>
#include "guile-mappings.h"
#include <time.h>

#include "dialog-utils.h"
#include "gnc-amount-edit.h"
#include "gnc-commodity-edit.h"
#include "gnc-general-select.h"
#include "gnc-component-manager.h"
#include "gnc-currency-edit.h"
#include "gnc-date-edit.h"
#include "gnc-engine.h"
#include "gnc-gui-query.h"
#include "gnc-pricedb.h"
#include "gnc-session.h"
#include "gnc-tree-view-price.h"
#include "gnc-ui.h"
#include "gnc-ui-util.h"
#include "guile-util.h"
#include "engine-helpers.h"
#include "swig-runtime.h"


#define DIALOG_PRICE_DB_CM_CLASS "dialog-price-edit-db"
#define GCONF_SECTION "dialogs/edit_prices"

/* This static indicates the debugging module that this .o belongs to.  */
static QofLogModule log_module = GNC_MOD_GUI;


void gnc_prices_dialog_window_destroy_cb (GtkObject *object, gpointer data);
void gnc_prices_dialog_close_cb (GtkDialog *dialog, gpointer data);
void gnc_prices_dialog_response (GtkDialog *dialog, gint response_id, gpointer data);
void gnc_prices_dialog_edit_clicked (GtkWidget *widget, gpointer data);
void gnc_prices_dialog_remove_clicked (GtkWidget *widget, gpointer data);
void gnc_prices_dialog_remove_old_clicked (GtkWidget *widget, gpointer data);
void gnc_prices_dialog_add_clicked (GtkWidget *widget, gpointer data);
void gnc_prices_dialog_get_quotes_clicked (GtkWidget *widget, gpointer data);


typedef struct
{
  GtkWidget * dialog;
  QofSession *session;
  QofBook *book;
  GNCPriceDB *price_db;

  GncTreeViewPrice * price_tree;

  GtkWidget * edit_button;
  GtkWidget * remove_button;
} PricesDialog;


void
gnc_prices_dialog_window_destroy_cb (GtkObject *object, gpointer data)
{
  PricesDialog *pdb_dialog = data;

  ENTER(" ");
  gnc_unregister_gui_component_by_data (DIALOG_PRICE_DB_CM_CLASS, pdb_dialog);

  if (pdb_dialog->dialog) {
    gtk_widget_destroy(pdb_dialog->dialog);
    pdb_dialog->dialog = NULL;
  }

  g_free (pdb_dialog);
  LEAVE(" ");
}

void
gnc_prices_dialog_close_cb (GtkDialog *dialog, gpointer data)
{
  PricesDialog *pdb_dialog = data;

  ENTER(" ");
  gnc_close_gui_component_by_data (DIALOG_PRICE_DB_CM_CLASS, pdb_dialog);
  LEAVE(" ");
}

void
gnc_prices_dialog_response (GtkDialog *dialog, gint response_id, gpointer data)
{
  PricesDialog *pdb_dialog = data;

  ENTER(" ");
  gnc_close_gui_component_by_data (DIALOG_PRICE_DB_CM_CLASS, pdb_dialog);
  LEAVE(" ");
}

void
gnc_prices_dialog_edit_clicked (GtkWidget *widget, gpointer data)
{
  PricesDialog *pdb_dialog = data;
  GList *price_list;

  ENTER(" ");
  price_list = gnc_tree_view_price_get_selected_prices(pdb_dialog->price_tree);
  if (!price_list) {
    LEAVE("no price selected");
    return;
  }
  if (g_list_next(price_list)) {
    g_list_free(price_list);
    LEAVE("too many prices selected");
    return;
  }

  gnc_price_edit_dialog (pdb_dialog->dialog, pdb_dialog->session,
                         price_list->data, GNC_PRICE_EDIT);
  g_list_free(price_list);
  LEAVE(" ");
}

static void
remove_helper(GNCPrice *price, GNCPriceDB *pdb)
{
  gnc_pricedb_remove_price (pdb, price);
}

void
gnc_prices_dialog_remove_clicked (GtkWidget *widget, gpointer data)
{
  PricesDialog *pdb_dialog = data;
  GList *price_list;
  gint length, response;
  GtkWidget *dialog;

  ENTER(" ");
  price_list = gnc_tree_view_price_get_selected_prices(pdb_dialog->price_tree);
  if (!price_list) {
    LEAVE("no price selected");
    return;
  }

  length = g_list_length(price_list);
  if (length > 1) {
    gchar *message;

    message = g_strdup_printf
      (/* Translators: %d is the number of prices. This
          is a ngettext(3) message. */
       ngettext("Are you sure you want to delete the %d selected price?",
                "Are you sure you want to delete the %d selected prices?",
                length),
       length);
    dialog = gtk_message_dialog_new(GTK_WINDOW(pdb_dialog->dialog),
                                    GTK_DIALOG_DESTROY_WITH_PARENT,
                                    GTK_MESSAGE_QUESTION,
                                    GTK_BUTTONS_NONE,
                                    "%s", _("Delete prices?"));
    gtk_message_dialog_format_secondary_text(GTK_MESSAGE_DIALOG(dialog),
                                             "%s", message);
    g_free(message);
    gtk_dialog_add_buttons(GTK_DIALOG(dialog),
                           GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL,
                           GTK_STOCK_DELETE, GTK_RESPONSE_YES,
                           (gchar *)NULL);
    gtk_dialog_set_default_response(GTK_DIALOG(dialog), GTK_RESPONSE_YES);
    response = gnc_dialog_run(GTK_DIALOG(dialog), "pricedb_remove_multiple");
    gtk_widget_destroy(dialog);
  } else {
    response = GTK_RESPONSE_YES;
  }

  if (response == GTK_RESPONSE_YES) {
    g_list_foreach(price_list, (GFunc)remove_helper, pdb_dialog->price_db);
  }
  g_list_free(price_list);
  LEAVE(" ");
}

void
gnc_prices_dialog_remove_old_clicked (GtkWidget *widget, gpointer data)
{
  PricesDialog *pdb_dialog = data;
  GladeXML *xml;
  GtkWidget *dialog, *button, *date, *label;
  gint result;
  gboolean delete_user, delete_last;

  ENTER(" ");
  xml = gnc_glade_xml_new ("price.glade", "Deletion Date");
  dialog = glade_xml_get_widget (xml, "Deletion Date");
  date = glade_xml_get_widget (xml, "date");
  label = glade_xml_get_widget (xml, "date_label");
  gnc_date_make_mnemonic_target (GNC_DATE_EDIT(date), label);
  glade_xml_signal_autoconnect_full(xml, gnc_glade_autoconnect_full_func, pdb_dialog);
  gtk_window_set_transient_for (GTK_WINDOW (dialog), GTK_WINDOW (pdb_dialog->dialog));

  result = gtk_dialog_run (GTK_DIALOG (dialog));
  if (result == GTK_RESPONSE_OK)
  {
    Timespec ts;

    DEBUG("deleting prices");
    ts.tv_sec = gnc_date_edit_get_date (GNC_DATE_EDIT (date));
    ts.tv_nsec = 0;

    button = glade_xml_get_widget (xml, "delete_manual");
    delete_user = gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(button));
    button = glade_xml_get_widget (xml, "delete_last");
    delete_last = gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(button));

    gnc_pricedb_remove_old_prices(pdb_dialog->price_db, ts,
                                  delete_user, delete_last);
  }

  gtk_widget_destroy(dialog);
  LEAVE(" ");
}

void
gnc_prices_dialog_add_clicked (GtkWidget *widget, gpointer data)
{
  PricesDialog *pdb_dialog = data;
  GNCPrice *price = NULL;
  GList *price_list;

  ENTER(" ");
  price_list = gnc_tree_view_price_get_selected_prices(pdb_dialog->price_tree);
  if (price_list) {
    price = price_list->data;
    g_list_free(price_list);
  }
  gnc_price_edit_dialog (pdb_dialog->dialog, pdb_dialog->session,
                         price, GNC_PRICE_NEW);
  LEAVE(" ");
}

void
gnc_prices_dialog_get_quotes_clicked (GtkWidget *widget, gpointer data)
{
  PricesDialog *pdb_dialog = data;
  SCM quotes_func;
  SCM book_scm;
  SCM scm_window;

  ENTER(" ");
  quotes_func = scm_c_eval_string ("gnc:book-add-quotes");
  if (!SCM_PROCEDUREP (quotes_func)) {
    LEAVE(" no procedure");
    return;
  }

  book_scm = gnc_book_to_scm (pdb_dialog->book);
  if (SCM_NFALSEP (scm_not (book_scm))) {
    LEAVE("no book");
    return;
  }

  scm_window =  SWIG_NewPointerObj(pdb_dialog->dialog,
                                   SWIG_TypeQuery("_p_GtkWidget"), 0);

  gnc_set_busy_cursor (NULL, TRUE);
  scm_call_2 (quotes_func, scm_window, book_scm);
  gnc_unset_busy_cursor (NULL);

  /* Without this, the summary bar on the accounts tab
   * won't reflect the new prices (bug #522095). */
  gnc_gui_refresh_all ();

  LEAVE(" ");
}


static void
gnc_prices_dialog_selection_changed (GtkTreeSelection *treeselection,
                                     gpointer data)
{
  PricesDialog *pdb_dialog = data;
  GList *price_list;
  gint length;

  ENTER(" ");
  price_list = gnc_tree_view_price_get_selected_prices(pdb_dialog->price_tree);
  length = g_list_length(price_list);

  gtk_widget_set_sensitive (pdb_dialog->edit_button,
                            length == 1);
  gtk_widget_set_sensitive (pdb_dialog->remove_button,
                            length >= 1);
  LEAVE("%d prices selected", length);
}


static gboolean
gnc_price_dialog_filter_ns_func (gnc_commodity_namespace *namespace,
                                 gpointer data)
{
  PricesDialog *pdb_dialog = data;
  const gchar *name;
  static GList *cm_list;
  GList *item;

  /* Never show the template list */
  name = gnc_commodity_namespace_get_name (namespace);
  if (safe_strcmp (name, "template") == 0)
    return FALSE;

  /* See if this namespace has commodities */
  cm_list = gnc_commodity_namespace_get_commodity_list(namespace);
  for (item = cm_list; item; item = g_list_next(item)) {

    /* For each commodity, see if there are prices */
    if (gnc_pricedb_has_prices(pdb_dialog->price_db, item->data, NULL)) {
      return TRUE;
    }
  }

  //  printf("Namespace %s not visible\n", name);
  return FALSE;
}

static gboolean
gnc_price_dialog_filter_cm_func (gnc_commodity *commodity,
                                 gpointer data)
{
  PricesDialog *pdb_dialog = data;

  /* Show any commodity that has prices */
  return gnc_pricedb_has_prices(pdb_dialog->price_db, commodity, NULL);
}

static void
row_activated_cb (GtkTreeView *view, GtkTreePath *path,
                  GtkTreeViewColumn *column, gpointer data)
{
  GtkTreeModel *model;
  GtkTreeIter iter;

  g_return_if_fail(view);

  model = gtk_tree_view_get_model(view);
  if (gtk_tree_model_get_iter(model, &iter, path))
  {
    if (gtk_tree_model_iter_has_child(model, &iter))
    {
      /* There are children, so it's not a price.
       * Just expand or collapse the row. */
      if (gtk_tree_view_row_expanded(view, path))
        gtk_tree_view_collapse_row(view, path);
      else
        gtk_tree_view_expand_row(view, path, FALSE);
    }
    else
      /* It's a price, so click the Edit button. */
      gnc_prices_dialog_edit_clicked(GTK_WIDGET(view), data);
  }
}

static void
gnc_prices_dialog_create (GtkWidget * parent, PricesDialog *pdb_dialog)
{
  GtkWidget *dialog, *scrolled_window;
  GladeXML *xml;
  GtkTreeView *view;
  GtkTreeSelection *selection;

  ENTER(" ");
  xml = gnc_glade_xml_new ("price.glade", "Prices Dialog");

  dialog = glade_xml_get_widget (xml, "Prices Dialog");
  pdb_dialog->dialog = dialog;

  pdb_dialog->session = gnc_get_current_session();
  pdb_dialog->book = qof_session_get_book(pdb_dialog->session);
  pdb_dialog->price_db = gnc_pricedb_get_db(pdb_dialog->book);

  glade_xml_signal_autoconnect_full(xml, gnc_glade_autoconnect_full_func, pdb_dialog);

  /* parent */
  if (parent != NULL)
    gtk_window_set_transient_for (GTK_WINDOW (dialog), GTK_WINDOW (parent));

  /* default to 'close' button */
  gtk_dialog_set_default_response (GTK_DIALOG (dialog), GTK_RESPONSE_CLOSE);

  /* price tree */
  scrolled_window = glade_xml_get_widget (xml, "price_list_window");
  view = gnc_tree_view_price_new(pdb_dialog->book,
                                 "gconf-section", GCONF_SECTION,
                                 "show-column-menu", TRUE,
                                 NULL);
  pdb_dialog->price_tree = GNC_TREE_VIEW_PRICE(view);
  gtk_container_add (GTK_CONTAINER (scrolled_window), GTK_WIDGET(view));
  gnc_tree_view_price_set_filter (pdb_dialog->price_tree,
                                  gnc_price_dialog_filter_ns_func,
                                  gnc_price_dialog_filter_cm_func,
                                  NULL,
                                  pdb_dialog, NULL);

  selection = gtk_tree_view_get_selection (GTK_TREE_VIEW (view));
  gtk_tree_selection_set_mode(selection, GTK_SELECTION_MULTIPLE);
  g_signal_connect (G_OBJECT (selection), "changed",
                    G_CALLBACK (gnc_prices_dialog_selection_changed), pdb_dialog);

  g_signal_connect (G_OBJECT (view), "row-activated",
                    G_CALLBACK (row_activated_cb), pdb_dialog);

  /* buttons */
  {
    GtkWidget *button;

    button = glade_xml_get_widget (xml, "edit_button");
    pdb_dialog->edit_button = button;

    button = glade_xml_get_widget (xml, "remove_button");
    pdb_dialog->remove_button = button;

    if (!gnc_quote_source_fq_installed()) {
      button = glade_xml_get_widget (xml, "get_quotes_button");
      gtk_widget_set_sensitive(button, FALSE);
    }
  }

  gnc_restore_window_size(GCONF_SECTION, GTK_WINDOW(pdb_dialog->dialog));
  LEAVE(" ");
}

static void
close_handler (gpointer user_data)
{
  PricesDialog *pdb_dialog = user_data;

  ENTER(" ");
  gnc_save_window_size(GCONF_SECTION, GTK_WINDOW(pdb_dialog->dialog));

  gtk_widget_destroy (GTK_WIDGET (pdb_dialog->dialog));
  LEAVE(" ");
}

static void
refresh_handler (GHashTable *changes, gpointer user_data)
{
  ENTER(" ");
  LEAVE(" ");
}

static gboolean
show_handler (const char *class, gint component_id,
              gpointer user_data, gpointer iter_data)
{
  PricesDialog *pdb_dialog = user_data;

  ENTER(" ");
  if (!pdb_dialog) {
    LEAVE("no data strucure");
    return(FALSE);
  }

  gtk_window_present (GTK_WINDOW(pdb_dialog->dialog));
  LEAVE(" ");
  return(TRUE);
}

/********************************************************************\
 * gnc_prices_dialog                                                *
 *   opens up a window showing all price information                *
 *                                                                  * 
 * Args:   parent  - the parent of the window to be created         *
 * Return: nothing                                                  *
\********************************************************************/
void
gnc_prices_dialog (GtkWidget * parent)
{
  PricesDialog *pdb_dialog;
  gint component_id;

  ENTER(" ");
  if (gnc_forall_gui_components (DIALOG_PRICE_DB_CM_CLASS, show_handler, NULL)) {
      LEAVE("existing dialog raised");
      return;
  }

  pdb_dialog = g_new0 (PricesDialog, 1);

  gnc_prices_dialog_create (parent, pdb_dialog);

  component_id = gnc_register_gui_component (DIALOG_PRICE_DB_CM_CLASS,
                                             refresh_handler, close_handler,
                                             pdb_dialog);
  gnc_gui_component_set_session (component_id, pdb_dialog->session);

  gtk_widget_grab_focus (GTK_WIDGET(pdb_dialog->price_tree));

  gtk_widget_show (pdb_dialog->dialog);
  LEAVE(" ");
}

---