/******************************************************************** * window-report.c * * Copyright (C) 1997 Robin D. Clark * * Copyright (C) 1998 Linas Vepstas * * Copyright (C) 1999 Jeremy Collins ( gtk-xmhtml port ) * * Copyright (C) 2000 Dave Peticolas * * Copyright (C) 2000 Bill Gribble * * * * 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 #include #include "dialog-options.hpp" #include "dialog-report-column-view.hpp" #include #include #include #include #include "swig-runtime.h" #include "gnc-guile-utils.h" #include "gnc-ui.h" #include "window-report.h" #include "guile-mappings.h" #include "gnc-plugin-page-report.h" #include "gnc-report.h" /******************************************************************** * ********************************************************************/ void reportWindow(int report_id, GtkWindow *parent) { gnc_set_busy_cursor (nullptr, TRUE); gnc_main_window_open_report(report_id, GNC_MAIN_WINDOW(parent)); gnc_unset_busy_cursor (nullptr); } /******************************************************************** * default parameters editor handling ********************************************************************/ struct report_default_params_data { GncOptionsDialog * win; GncOptionDB * odb; SCM cur_report; }; static void gnc_options_dialog_apply_cb(GncOptionsDialog *opt_dialog, gpointer user_data) { SCM dirty_report = scm_c_eval_string("gnc:report-set-dirty?!"); auto win{static_cast(user_data)}; if (!win) return; auto results = gnc_option_db_commit (win->odb); for (auto iter = results; iter; iter = iter->next) { auto dialog = gtk_message_dialog_new(GTK_WINDOW (win->win), static_cast(0), GTK_MESSAGE_ERROR, GTK_BUTTONS_OK, "%s", (char*)iter->data); gtk_dialog_run(GTK_DIALOG(dialog)); gtk_widget_destroy(dialog); g_free (iter->data); } g_list_free (results); scm_call_2(dirty_report, win->cur_report, SCM_BOOL_T); } static void gnc_options_dialog_help_cb(GncOptionsDialog *opt_dialog, gpointer user_data) { auto prm{static_cast(user_data)}; auto parent = prm->win->get_widget(); auto dialog = gtk_message_dialog_new(GTK_WINDOW(parent), GTK_DIALOG_DESTROY_WITH_PARENT, GTK_MESSAGE_INFO, GTK_BUTTONS_OK, "%s", _("Set the report options you want using this dialog.")); g_signal_connect(G_OBJECT(dialog), "response", (GCallback)gtk_widget_destroy, nullptr); gtk_widget_show(dialog); } static void gnc_options_dialog_close_cb(GncOptionsDialog *opt_dialog, gpointer user_data) { auto win{static_cast(user_data)}; SCM set_editor = scm_c_eval_string("gnc:report-set-editor-widget!"); scm_call_2(set_editor, win->cur_report, SCM_BOOL_F); delete win->win; gnc_option_db_destroy(win->odb); g_free(win); } static gboolean gnc_report_raise_editor(SCM report) { SCM get_editor = scm_c_eval_string("gnc:report-editor-widget"); SCM editor = scm_call_1(get_editor, report); if (editor != SCM_BOOL_F) { #define FUNC_NAME "gnc-report-raise-editor" auto w{static_cast(SWIG_MustGetPtr(editor, SWIG_TypeQuery("_p_GtkWidget"), 1, 0))}; #undef FUNC_NAME gtk_window_present(GTK_WINDOW(w)); return TRUE; } else return FALSE; } GtkWidget * gnc_report_window_default_params_editor(GncOptionDB* odb, SCM report, GtkWindow *parent) { SCM get_report_type = scm_c_eval_string("gnc:report-type"); SCM get_template = scm_c_eval_string("gnc:find-report-template"); SCM get_template_name = scm_c_eval_string("gnc:report-template-name"); SCM ptr; const gchar *title = nullptr; if (gnc_report_raise_editor (report)) return nullptr; else { struct report_default_params_data * prm = g_new0(struct report_default_params_data, 1); prm->odb = odb; prm->cur_report = report; /* Get the title of the report's template. */ ptr = scm_call_1(get_report_type, report); if (ptr != SCM_BOOL_F) { ptr = scm_call_1(get_template, ptr); if (ptr != SCM_BOOL_F) { ptr = scm_call_1(get_template_name, ptr); if (scm_is_string(ptr)) title = gnc_scm_to_utf8_string (ptr); } } /* Don't forget to translate the window title */ prm->win = new GncOptionsDialog((gchar*) (title && *title ? _(title) : ""), parent); g_free ((gpointer *) title); scm_gc_protect_object(prm->cur_report); prm->win->build_contents(prm->odb); prm->win->set_apply_cb(gnc_options_dialog_apply_cb, (gpointer)prm); prm->win->set_help_cb(gnc_options_dialog_help_cb, (gpointer)prm); prm->win->set_close_cb(gnc_options_dialog_close_cb, (gpointer)prm); return prm->win->get_widget(); } } gboolean gnc_report_edit_options(SCM report, GtkWindow *parent) { SCM set_editor = scm_c_eval_string("gnc:report-set-editor-widget!"); SCM get_report_type = scm_c_eval_string("gnc:report-type"); SCM ptr; GncOptionDB* odb; GtkWidget *options_widget = nullptr; /* If the options editor widget already exists we simply raise it */ if (gnc_report_raise_editor (report)) return TRUE; /* Check if this report has options to edit */ odb = gnc_get_report_optiondb(report); if (!odb) { gnc_warning_dialog (parent, "%s", _("There are no options for this report.")); return FALSE; } /* Multi-column type reports need a special options dialog */ ptr = scm_call_1(get_report_type, report); if (scm_is_string(ptr)) { gchar *rpt_type = gnc_scm_to_utf8_string (ptr); if (g_strcmp0 (rpt_type, "d8ba4a2e89e8479ca9f6eccdeb164588") == 0) options_widget = gnc_column_view_edit_options (odb, report); else options_widget = gnc_report_window_default_params_editor (odb, report, parent); g_free (rpt_type); } /* Store the options editor widget for future reuse */ #define FUNC_NAME "gnc-report-edit-options" ptr = SWIG_NewPointerObj (options_widget, SWIG_TypeQuery("_p_GtkWidget"), 0); #undef FUNC_NAME scm_call_2 (set_editor, report, ptr); return TRUE; } GncOptionDB* gnc_get_report_optiondb(SCM report_instance) { SCM get_report_options = scm_c_eval_string("gnc:report-options"); auto scm_dispatch{scm_call_1(get_report_options, report_instance)}; return gnc_get_optiondb_from_dispatcher(scm_dispatch); }