Work on report/report-gnome module.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@6267 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2001-12-07 08:49:57 +00:00
parent 786323491c
commit ae41252ddd
25 changed files with 265 additions and 64 deletions

View File

@ -839,6 +839,7 @@ AC_OUTPUT(
src/register/register-gnome/Makefile src/register/register-gnome/Makefile
src/register/register-gnome/test/Makefile src/register/register-gnome/test/Makefile
src/report/Makefile src/report/Makefile
src/report/report-gnome/Makefile
src/report/report-system/test/Makefile src/report/report-system/test/Makefile
src/report/report-system/Makefile src/report/report-system/Makefile
src/report/standard-reports/test/Makefile src/report/standard-reports/test/Makefile

View File

@ -1,25 +1,24 @@
DIST_SUBDIRS = \ NONGUI_SUBDIRS = \
doc \ doc \
pixmaps \ pixmaps \
bin
NONGUI_SUBDIRS = \
core-utils \ core-utils \
gnc-module \ gnc-module \
test-core \ test-core \
engine \ engine \
backend \ backend \
report \
scm \ scm \
quotes quotes \
bin
GUI_SUBDIRS = \ GUI_SUBDIRS_1 = \
network-utils \ network-utils \
calculation \ calculation \
tax \ tax \
app-utils \ app-utils \
gnome-utils \ gnome-utils \
app-file \ app-file
GUI_SUBDIRS_2 = \
import-export \ import-export \
dialog-account \ dialog-account \
register \ register \
@ -28,10 +27,12 @@ GUI_SUBDIRS = \
business \ business \
optional optional
DIST_SUBDIRS = $(NONGUI_SUBDIRS) $(GUI_SUBDIRS_1) report $(GUI_SUBDIRS_2)
if GNUCASH_ENABLE_GUI if GNUCASH_ENABLE_GUI
SUBDIRS = $(DIST_SUBDIRS) $(NONGUI_SUBDIRS) $(GUI_SUBDIRS) SUBDIRS = $(DIST_SUBDIRS)
else else
SUBDIRS = $(DIST_SUBDIRS) $(NONGUI_SUBDIRS) SUBDIRS = $(NONGUI_SUBDIRS) report
endif endif
noinst_HEADERS = \ noinst_HEADERS = \

View File

@ -44,6 +44,7 @@ report/utility-reports the multicolumn view, the iframe report, etc.
report/locale-specific-reports reports that should only be loaded in report/locale-specific-reports reports that should only be loaded in
certain locales. subdir per locale. certain locales. subdir per locale.
report/stylesheets predefined style sheet templates report/stylesheets predefined style sheet templates
report/report-gnome Gnome gui for displaying reports.
app-utils utils for the gnucash app framework (component app-utils utils for the gnucash app framework (component
mgr, cmd line processing, gettext stuff, etc) mgr, cmd line processing, gettext stuff, etc)

View File

@ -12,7 +12,9 @@ GNC_TEST_DEPS := \
--guile-load-dir ${G_WRAP_MODULE_DIR} \ --guile-load-dir ${G_WRAP_MODULE_DIR} \
--guile-load-dir ${top_srcdir}/lib \ --guile-load-dir ${top_srcdir}/lib \
--guile-load-dir ${top_srcdir}/src/scm \ --guile-load-dir ${top_srcdir}/src/scm \
--guile-load-dir ${top_srcdir}/src/gnome-utils \
--guile-load-dir ${top_srcdir}/src/gnome \ --guile-load-dir ${top_srcdir}/src/gnome \
--library-dir ${top_srcdir}/src/gnome-utils \
--library-dir ${top_srcdir}/src/gnome --library-dir ${top_srcdir}/src/gnome
TESTS_ENVIRONMENT := \ TESTS_ENVIRONMENT := \

View File

@ -94,7 +94,7 @@ gw-business-gnome.scm gw-business-gnome.c gw-business-gnome.h: .scm-links gw-bus
(set! %load-path (cons \"${PWD}\" %load-path)) \ (set! %load-path (cons \"${PWD}\" %load-path)) \
(set! %load-path (cons \"../business-core\" %load-path)) \ (set! %load-path (cons \"../business-core\" %load-path)) \
(set! %load-path (cons \"../../engine\" %load-path)) \ (set! %load-path (cons \"../../engine\" %load-path)) \
(set! %load-path (cons \"../../gnome\" %load-path)) \ (set! %load-path (cons \"../../gnome-utils\" %load-path)) \
(primitive-load \"./gw-business-gnome-spec.scm\") \ (primitive-load \"./gw-business-gnome-spec.scm\") \
(gw:generate-module \"gw-business-gnome\")" (gw:generate-module \"gw-business-gnome\")"

View File

@ -8,7 +8,7 @@
:use-module (g-wrap)) :use-module (g-wrap))
(use-modules (g-wrapped gw-business-core-spec)) (use-modules (g-wrapped gw-business-core-spec))
(use-modules (g-wrapped gw-gnc-spec)) (use-modules (g-wrapped gw-gnome-utils-spec))
(let ((mod (gw:new-module "gw-business-gnome"))) (let ((mod (gw:new-module "gw-business-gnome")))
(define (standard-c-call-gen result func-call-code) (define (standard-c-call-gen result func-call-code)
@ -35,8 +35,8 @@
(gw:module-depends-on mod "gw-runtime") (gw:module-depends-on mod "gw-runtime")
(gw:module-depends-on mod "gw-business-core") (gw:module-depends-on mod "gw-business-core")
(gw:module-depends-on mod "gw-engine") (gw:module-depends-on mod "gw-engine")
(gw:module-depends-on mod "gw-gnc") (gw:module-depends-on mod "gw-gnome-utils")
(gw:module-set-guile-module! mod '(g-wrapped gw-business-gnome)) (gw:module-set-guile-module! mod '(g-wrapped gw-business-gnome))
(gw:module-set-declarations-ccodegen! (gw:module-set-declarations-ccodegen!

View File

@ -74,7 +74,6 @@ GNCVerifyResult gnc_ok_cancel_dialog_parented(gncUIWidget parent,
void gnc_warning_dialog_parented(gncUIWidget parent, const char *message); void gnc_warning_dialog_parented(gncUIWidget parent, const char *message);
gboolean gnc_verify_dialog(const char *message, gboolean yes_is_default); gboolean gnc_verify_dialog(const char *message, gboolean yes_is_default);
void gnc_error_dialog(const char *message);
int gnc_choose_radio_option_dialog_parented (gncUIWidget parent, int gnc_choose_radio_option_dialog_parented (gncUIWidget parent,
const char *title, const char *title,

View File

@ -28,6 +28,7 @@ void gnc_info_dialog_parented(GtkWindow *parent, const char *message);
void gnc_warning_dialog(const char *message); void gnc_warning_dialog(const char *message);
void gnc_error_dialog(const char *message);
void gnc_error_dialog_parented(GtkWindow *parent, const char *message); void gnc_error_dialog_parented(GtkWindow *parent, const char *message);
#endif #endif

View File

@ -43,9 +43,16 @@
"#include <print-session.h>\n" "#include <print-session.h>\n"
"#include <gnc-menu-extensions.h>\n" "#include <gnc-menu-extensions.h>\n"
"#include <gnc-html.h>\n" "#include <gnc-html.h>\n"
"#include <gnc-gui-query.h>\n"
"#include <gnc-ui.h>\n" "#include <gnc-ui.h>\n"
))) )))
(let ((nnt (gw:wrap-non-native-type
mod
'<gnc:UIWidget>
"gncUIWidget" "const gncUIWidget")))
#t)
(let ((nnt (gw:wrap-non-native-type (let ((nnt (gw:wrap-non-native-type
mod mod
'<gnc:mdi-info*> '<gnc:mdi-info*>

View File

@ -12,6 +12,7 @@ libgncgnome_la_LIBADD = \
${top_builddir}/src/backend/file/libgncmod-backend-file.la \ ${top_builddir}/src/backend/file/libgncmod-backend-file.la \
${top_builddir}/src/import-export/qif-import/libgncmod-qif-import.la \ ${top_builddir}/src/import-export/qif-import/libgncmod-qif-import.la \
${top_builddir}/src/report/report-system/libgncmod-report-system.la \ ${top_builddir}/src/report/report-system/libgncmod-report-system.la \
${top_builddir}/src/report/report-gnome/libgncmod-report-gnome.la \
${top_builddir}/src/register/ledger-core/libgncmod-ledger-core.la \ ${top_builddir}/src/register/ledger-core/libgncmod-ledger-core.la \
${GUILE_LIBS} ${GNOME_LIBDIR} ${GNOMEUI_LIBS} ${GLIB_LIBS} ${GUILE_LIBS} ${GNOME_LIBDIR} ${GNOMEUI_LIBS} ${GLIB_LIBS}
@ -51,8 +52,7 @@ libgncgnome_la_SOURCES = \
window-main.c \ window-main.c \
window-main-summarybar.c \ window-main-summarybar.c \
window-reconcile.c \ window-reconcile.c \
window-register.c \ window-register.c
window-report.c
gnomeappdir = ${datadir}/gnome/apps/Applications gnomeappdir = ${datadir}/gnome/apps/Applications
@ -91,8 +91,7 @@ noinst_HEADERS = \
window-main.h \ window-main.h \
window-main-summarybar.h \ window-main-summarybar.h \
window-reconcile.h \ window-reconcile.h \
window-register.h \ window-register.h
window-report.h
EXTRA_DIST = \ EXTRA_DIST = \
.cvsignore \ .cvsignore \
@ -118,6 +117,7 @@ AM_CFLAGS = \
-I${top_srcdir}/src/register/register-core \ -I${top_srcdir}/src/register/register-core \
-I${top_srcdir}/src/register/register-gnome \ -I${top_srcdir}/src/register/register-gnome \
-I${top_srcdir}/src/report/report-system \ -I${top_srcdir}/src/report/report-system \
-I${top_srcdir}/src/report/report-gnome \
-I${top_srcdir}/src/import-export/binary-import \ -I${top_srcdir}/src/import-export/binary-import \
-I${top_srcdir}/src/import-export/qif-import \ -I${top_srcdir}/src/import-export/qif-import \
${GUILE_INCS} \ ${GUILE_INCS} \
@ -159,6 +159,8 @@ gw-gnc.scm gw-gnc.h gw-gnc.c gw-gnc.html: gw-gnc-spec.scm .scm-links
FLAVOR=gnome guile -c \ FLAVOR=gnome guile -c \
"(set! %load-path (cons \"${G_WRAP_MODULE_DIR}\" %load-path)) \ "(set! %load-path (cons \"${G_WRAP_MODULE_DIR}\" %load-path)) \
(set! %load-path (cons \"../engine\" %load-path)) \ (set! %load-path (cons \"../engine\" %load-path)) \
(set! %load-path (cons \"../gnome-utils\" %load-path)) \
(set! %load-path (cons \"../report/report-gnome\" %load-path)) \
(primitive-load \"./gw-gnc-spec.scm\") \ (primitive-load \"./gw-gnc-spec.scm\") \
(gw:generate-module \"gw-gnc\")" (gw:generate-module \"gw-gnc\")"
BUILT_SOURCES = gw-gnc.scm gw-gnc.h gw-gnc.c BUILT_SOURCES = gw-gnc.scm gw-gnc.h gw-gnc.c

View File

@ -9,6 +9,9 @@
(use-modules (g-wrapped gw-engine-spec)) (use-modules (g-wrapped gw-engine-spec))
(use-modules (g-wrapped gw-glib-spec)) (use-modules (g-wrapped gw-glib-spec))
(use-modules (g-wrapped gw-gnome-utils-spec))
;; FIXME take out when finished creating report-gnome
(use-modules (g-wrapped gw-report-gnome-spec))
(let ((mod (gw:new-module "gw-gnc"))) (let ((mod (gw:new-module "gw-gnc")))
(define (standard-c-call-gen result func-call-code) (define (standard-c-call-gen result func-call-code)
@ -35,6 +38,9 @@
(gw:module-depends-on mod "gw-runtime") (gw:module-depends-on mod "gw-runtime")
(gw:module-depends-on mod "gw-engine") (gw:module-depends-on mod "gw-engine")
(gw:module-depends-on mod "gw-glib") (gw:module-depends-on mod "gw-glib")
(gw:module-depends-on mod "gw-gnome-utils")
;; FIXME take out when finished creating report-gnome
(gw:module-depends-on mod "gw-report-gnome")
(gw:module-set-guile-module! mod '(g-wrapped gw-gnc)) (gw:module-set-guile-module! mod '(g-wrapped gw-gnc))
@ -70,18 +76,6 @@
"#include <dialog-scheduledxaction.h>\n" "#include <dialog-scheduledxaction.h>\n"
"#include <dialog-sxsincelast.h>\n" ))) "#include <dialog-sxsincelast.h>\n" )))
(let ((nnt (gw:wrap-non-native-type
mod
'<gnc:UIWidget>
"gncUIWidget" "const gncUIWidget")))
#t)
(let ((nnt (gw:wrap-non-native-type
mod
'<gnc:report-window*>
"gnc_report_window*" "const gnc_report_window*")))
#t)
(let ((nnt (gw:wrap-non-native-type (let ((nnt (gw:wrap-non-native-type
mod mod
'<gnc:column-view-edit*> '<gnc:column-view-edit*>

View File

@ -1,7 +1,17 @@
SUBDIRS=\ NONGUI_SUBDIRS = \
report-system \ report-system \
standard-reports \ standard-reports \
utility-reports \ utility-reports \
locale-specific \ locale-specific \
stylesheets stylesheets
GUI_SUBDIRS = \
report-gnome
if GNUCASH_ENABLE_GUI
SUBDIRS = $(NONGUI_SUBDIRS) $(GUI_SUBDIRS)
else
SUBDIRS = $(NONGUI_SUBDIRS)
endif
DIST_SUBDIRS = $(NONGUI_SUBDIRS) $(GUI_SUBDIRS)

View File

@ -1,4 +1,4 @@
TESTS=test-load-module test-link-module TESTS = test-load-module test-link-module
GNC_TEST_DEPS := \ GNC_TEST_DEPS := \
--gnc-module-dir ${top_builddir}/src/gnc-module \ --gnc-module-dir ${top_builddir}/src/gnc-module \
@ -12,7 +12,9 @@ GNC_TEST_DEPS := \
--guile-load-dir ${G_WRAP_MODULE_DIR} \ --guile-load-dir ${G_WRAP_MODULE_DIR} \
--guile-load-dir ${top_srcdir}/lib \ --guile-load-dir ${top_srcdir}/lib \
--guile-load-dir ${top_srcdir}/src/scm \ --guile-load-dir ${top_srcdir}/src/scm \
--guile-load-dir ${top_srcdir}/src/gnome-utils \
--guile-load-dir ${top_srcdir}/src/gnome \ --guile-load-dir ${top_srcdir}/src/gnome \
--library-dir ${top_srcdir}/src/gnome-utils \
--library-dir ${top_srcdir}/src/gnome --library-dir ${top_srcdir}/src/gnome
TESTS_ENVIRONMENT := \ TESTS_ENVIRONMENT := \
@ -20,14 +22,11 @@ TESTS_ENVIRONMENT := \
EXTRA_DIST = test-load-module EXTRA_DIST = test-load-module
noinst_PROGRAMS=test-link-module noinst_PROGRAMS = test-link-module
testit: testit:
${TESTS_ENVIRONMENT} gdb guile ${TESTS_ENVIRONMENT} gdb guile
test_link_module_SOURCES=test-link-module.c test_link_module_SOURCES = test-link-module.c
test_link_module_LDADD= \ test_link_module_LDADD= \
${top_srcdir}/src/report/locale-specific/us/libgncmod-locale-reports-us.la ${top_srcdir}/src/report/locale-specific/us/libgncmod-locale-reports-us.la

View File

@ -0,0 +1,2 @@
Makefile
Makefile.in

View File

@ -0,0 +1,62 @@
pkglib_LTLIBRARIES = libgncmod-report-gnome.la libgw-report-gnome.la
AM_CFLAGS = \
-I${top_srcdir}/src \
-I${top_srcdir}/src/gnc-module \
-I${top_srcdir}/src/engine \
-I${top_srcdir}/src/app-utils \
-I${top_srcdir}/src/gnome-utils \
-I${top_srcdir}/src/app-file \
${GUILE_INCS} \
${G_WRAP_COMPILE_ARGS} \
${GLIB_CFLAGS} \
${GNOME_INCLUDEDIR} \
${GNOME_PRINT_CFLAGS}
libgncmod_report_gnome_la_SOURCES = \
gncmod-report-gnome.c \
window-report.c
gncincludedir = ${GNC_INCLUDE_DIR}
gncinclude_HEADERS = \
window-report.h
libgncmod_report_gnome_la_LDFLAGS = -module
libgncmod_report_gnome_la_LIBADD = \
${top_srcdir}/src/gnc-module/libgncmodule.la \
${GUILE_LIBS} \
${GNOME_LIBDIR} \
${GNOMEUI_LIBS} \
${GNOME_PRINT_LIBS} \
${GLIB_LIBS}
libgw_report_gnome_la_SOURCES = gw-report-gnome.c
libgw_report_gnome_la_LDFLAGS = -module
gwmoddir = ${GNC_GWRAP_LIBDIR}
gwmod_DATA = gw-report-gnome.scm gw-report-gnome-spec.scm
noinst_DATA = .scm-links
EXTRA_DIST = \
.cvsignore
.scm-links:
rm -f gnucash g-wrapped
ln -sf . gnucash
ln -sf . g-wrapped
touch .scm-links
gw-report-gnome.scm gw-report-gnome.c gw-report-gnome.h: .scm-links gw-report-gnome-spec.scm
FLAVOR=gnome guile -c \
"(set! %load-path (cons \"${G_WRAP_MODULE_DIR}\" %load-path)) \
(set! %load-path (cons \"${PWD}\" %load-path)) \
(set! %load-path (cons \"${top_srcdir}/src/engine\" %load-path)) \
(set! %load-path (cons \"${top_srcdir}/src/gnome-utils\" %load-path)) \
(primitive-load \"./gw-report-gnome-spec.scm\") \
(gw:generate-module \"gw-report-gnome\")"
BUILT_SOURCES = gw-report-gnome.scm gw-report-gnome.c gw-report-gnome.h
CLEANFILES = gw-report-gnome.scm gw-report-gnome.c gw-report-gnome.h \
gw-report-gnome.html gnucash g-wrapped .scm-links

View File

@ -0,0 +1,65 @@
/*********************************************************************
* gncmod-report-gnome.c
* module definition/initialization for the gnome report infrastructure
*
* Copyright (c) 2001 Linux Developers Group, Inc.
*********************************************************************/
#include <stdio.h>
#include <guile/gh.h>
#include <glib.h>
#include "gnc-module.h"
#include "gnc-module-api.h"
/* version of the gnc module system interface we require */
int gnc_module_system_interface = 0;
/* module versioning uses libtool semantics. */
int gnc_module_current = 0;
int gnc_module_revision = 0;
int gnc_module_age = 0;
char *
gnc_module_path(void) {
return g_strdup("gnucash/report/report-gnome");
}
char *
gnc_module_description(void) {
return g_strdup("Gnome component of Gnucash report generation system");
}
static void
lmod(char * mn)
{
char * form = g_strdup_printf("(use-modules %s)\n", mn);
gh_eval_str(form);
g_free(form);
}
int
gnc_module_init(int refcount) {
if(!gnc_module_load("gnucash/app-utils", 0)) {
return FALSE;
}
if(!gnc_module_load("gnucash/gnome-utils", 0)) {
return FALSE;
}
if(!gnc_module_load("gnucash/app-file", 0)) {
return FALSE;
}
if(!gnc_module_load("gnucash/report/report-system", 0)) {
return FALSE;
}
return TRUE;
}
int
gnc_module_end(int refcount) {
return TRUE;
}

View File

@ -0,0 +1,54 @@
;;; -*-scheme-*-
(use-modules (g-wrap))
(debug-set! maxdepth 100000)
(debug-set! stack 2000000)
(define-module (g-wrapped gw-report-gnome-spec)
:use-module (g-wrap))
(use-modules (g-wrapped gw-engine-spec))
(use-modules (g-wrapped gw-glib-spec))
(use-modules (g-wrapped gw-gnome-utils-spec))
(let ((mod (gw:new-module "gw-report-gnome")))
(define (standard-c-call-gen result func-call-code)
(list (gw:result-get-c-name result) " = " func-call-code ";\n"))
(define (add-standard-result-handlers! type c->scm-converter)
(define (standard-pre-handler result)
(let* ((ret-type-name (gw:result-get-proper-c-type-name result))
(ret-var-name (gw:result-get-c-name result)))
(list "{\n"
" " ret-type-name " " ret-var-name ";\n")))
(gw:type-set-pre-call-result-ccodegen! type standard-pre-handler)
(gw:type-set-post-call-result-ccodegen!
type
(lambda (result)
(let* ((scm-name (gw:result-get-scm-name result))
(c-name (gw:result-get-c-name result)))
(list
(c->scm-converter scm-name c-name)
" }\n")))))
(gw:module-depends-on mod "gw-runtime")
(gw:module-depends-on mod "gw-engine")
(gw:module-depends-on mod "gw-glib")
(gw:module-depends-on mod "gw-gnome-utils")
(gw:module-set-guile-module! mod '(g-wrapped gw-report-gnome))
(gw:module-set-declarations-ccodegen!
mod
(lambda (client-only?)
(list
"#include <window-report.h>\n")))
(let ((nnt (gw:wrap-non-native-type
mod
'<gnc:report-window*>
"gnc_report_window*" "const gnc_report_window*")))
#t)
)

View File

@ -40,7 +40,7 @@
#include "gnc-gui-query.h" #include "gnc-gui-query.h"
#include "gnc-html-history.h" #include "gnc-html-history.h"
#include "gnc-html.h" #include "gnc-html.h"
#include "gnc-ui.h" /* #include "gnc-ui.h" */
#include "option-util.h" #include "option-util.h"
#include "window-report.h" #include "window-report.h"
@ -70,13 +70,6 @@ struct gnc_report_window_s
}; };
/* This static indicates the debugging module that this .o belongs to. */
static short module = MOD_HTML;
static gint last_width = 0;
static gint last_height = 0;
/******************************************************************** /********************************************************************
* REPORT WINDOW FUNCTIONS * REPORT WINDOW FUNCTIONS
* creating/managing report-window mdi children * creating/managing report-window mdi children
@ -125,9 +118,9 @@ gnc_report_window_view_labeler(GnomeMDIChild * child, GtkWidget * current,
} }
static void static void
gnc_report_window_view_destroy(GtkObject * obj, gpointer user_data) { gnc_report_window_view_destroy(GtkObject * obj, gpointer user_data)
{
GNCMDIChildInfo * mc = user_data; GNCMDIChildInfo * mc = user_data;
gnc_report_window * w = mc->user_data;
gnc_mdi_remove_child(gnc_mdi_get_current(), mc); gnc_mdi_remove_child(gnc_mdi_get_current(), mc);
g_free(mc->toolbar_info); g_free(mc->toolbar_info);
@ -361,13 +354,13 @@ gnc_report_window_export_button_cb(GtkWidget * w, gpointer data) {
static int static int
gnc_report_window_params_cb(GtkWidget * w, gpointer data) { gnc_report_window_params_cb(GtkWidget * w, gpointer data)
{
gnc_report_window * report = data; gnc_report_window * report = data;
SCM window_type = gh_eval_str("<gnc:report-window*>");
SCM start_editor = gh_eval_str("gnc:report-edit-options"); SCM start_editor = gh_eval_str("gnc:report-edit-options");
SCM window = gw_wcp_assimilate_ptr(report, window_type);
if(report->cur_report != SCM_BOOL_F) { if(report->cur_report != SCM_BOOL_F)
{
if(gh_call1(start_editor, report->cur_report) == SCM_BOOL_F) { if(gh_call1(start_editor, report->cur_report) == SCM_BOOL_F) {
gnc_warning_dialog(_("There are no options for this report.")); gnc_warning_dialog(_("There are no options for this report."));
} }
@ -375,6 +368,7 @@ gnc_report_window_params_cb(GtkWidget * w, gpointer data) {
gnc_report_window_add_edited_report(report, report->cur_report); gnc_report_window_add_edited_report(report, report->cur_report);
} }
} }
return TRUE; return TRUE;
} }
@ -449,16 +443,14 @@ gnc_report_window_refresh (gpointer data)
static void static void
gnc_report_window_load_cb(gnc_html * html, URLType type, gnc_report_window_load_cb(gnc_html * html, URLType type,
const gchar * location, const gchar * label, const gchar * location, const gchar * label,
gpointer data) { gpointer data)
{
gnc_report_window * win = data; gnc_report_window * win = data;
int report_id; int report_id;
SCM find_report = gh_eval_str("gnc:find-report"); SCM find_report = gh_eval_str("gnc:find-report");
SCM get_options = gh_eval_str("gnc:report-options"); SCM get_options = gh_eval_str("gnc:report-options");
SCM get_editor = gh_eval_str("gnc:report-options-editor");
SCM set_needs_save = gh_eval_str("gnc:report-set-needs-save?!"); SCM set_needs_save = gh_eval_str("gnc:report-set-needs-save?!");
SCM inst_report; SCM inst_report;
SCM inst_options;
SCM inst_options_ed;
/* we get this callback if a new report is requested to be loaded OR /* we get this callback if a new report is requested to be loaded OR
* if any URL is clicked. If an options URL is clicked, we want to * if any URL is clicked. If an options URL is clicked, we want to
@ -596,11 +588,10 @@ close_handler (gpointer user_data)
********************************************************************/ ********************************************************************/
gnc_report_window * gnc_report_window *
gnc_report_window_new(GNCMDIChildInfo * mc) { gnc_report_window_new(GNCMDIChildInfo * mc)
{
gnc_report_window * report = g_new0(gnc_report_window, 1); gnc_report_window * report = g_new0(gnc_report_window, 1);
GtkObject * tlo; GtkObject * tlo;
GtkWidget * cframe = NULL;
report->mc = mc; report->mc = mc;
report->html = gnc_html_new(); report->html = gnc_html_new();
@ -743,7 +734,6 @@ gnc_report_window_destroy(gnc_report_window * win) {
SCM get_editor = gh_eval_str("gnc:report-editor-widget"); SCM get_editor = gh_eval_str("gnc:report-editor-widget");
SCM set_editor = gh_eval_str("gnc:report-set-editor-widget!"); SCM set_editor = gh_eval_str("gnc:report-set-editor-widget!");
SCM disp_list;
SCM edited, editor; SCM edited, editor;
gnc_unregister_gui_component_by_data (WINDOW_REPORT_CM_CLASS, win); gnc_unregister_gui_component_by_data (WINDOW_REPORT_CM_CLASS, win);
@ -869,11 +859,11 @@ gnc_options_dialog_close_cb(GNCOptionWin * propertybox,
GtkWidget * GtkWidget *
gnc_report_window_default_params_editor(SCM options, SCM report) { gnc_report_window_default_params_editor(SCM options, SCM report)
{
SCM get_editor = gh_eval_str("gnc:report-editor-widget"); SCM get_editor = gh_eval_str("gnc:report-editor-widget");
SCM get_title = gh_eval_str("gnc:report-type"); SCM get_title = gh_eval_str("gnc:report-type");
SCM ptr; SCM ptr;
SCM new_edited;
char *title = NULL; char *title = NULL;

View File

@ -11,7 +11,9 @@ GNC_TEST_DEPS := \
--guile-load-dir ${G_WRAP_MODULE_DIR} \ --guile-load-dir ${G_WRAP_MODULE_DIR} \
--guile-load-dir ${top_srcdir}/lib \ --guile-load-dir ${top_srcdir}/lib \
--guile-load-dir ${top_srcdir}/src/scm \ --guile-load-dir ${top_srcdir}/src/scm \
--guile-load-dir ${top_srcdir}/src/gnome-utils \
--guile-load-dir ${top_srcdir}/src/gnome \ --guile-load-dir ${top_srcdir}/src/gnome \
--library-dir ${top_srcdir}/src/gnome-utils \
--library-dir ${top_srcdir}/src/gnome --library-dir ${top_srcdir}/src/gnome
TESTS_ENVIRONMENT := \ TESTS_ENVIRONMENT := \

View File

@ -10,7 +10,9 @@ GNC_TEST_DEPS := \
--guile-load-dir ${top_builddir}/src/scm \ --guile-load-dir ${top_builddir}/src/scm \
--guile-load-dir ${top_builddir}/lib \ --guile-load-dir ${top_builddir}/lib \
--guile-load-dir ${G_WRAP_MODULE_DIR} \ --guile-load-dir ${G_WRAP_MODULE_DIR} \
--guile-load-dir ${top_builddir}/src/gnome-utils \
--guile-load-dir ${top_builddir}/src/gnome \ --guile-load-dir ${top_builddir}/src/gnome \
--library-dir ${top_builddir}/src/gnome-utils \
--library-dir ${top_builddir}/src/gnome --library-dir ${top_builddir}/src/gnome
TESTS_ENVIRONMENT := \ TESTS_ENVIRONMENT := \

View File

@ -11,7 +11,9 @@ GNC_TEST_DEPS := \
--guile-load-dir ${top_builddir}/src/scm \ --guile-load-dir ${top_builddir}/src/scm \
--guile-load-dir ${top_builddir}/lib \ --guile-load-dir ${top_builddir}/lib \
--guile-load-dir ${G_WRAP_MODULE_DIR} \ --guile-load-dir ${G_WRAP_MODULE_DIR} \
--guile-load-dir ${top_builddir}/src/gnome-utils \
--guile-load-dir ${top_builddir}/src/gnome \ --guile-load-dir ${top_builddir}/src/gnome \
--library-dir ${top_builddir}/src/gnome-utils \
--library-dir ${top_builddir}/src/gnome --library-dir ${top_builddir}/src/gnome
TESTS_ENVIRONMENT := \ TESTS_ENVIRONMENT := \

View File

@ -10,7 +10,9 @@ GNC_TEST_DEPS := \
--guile-load-dir ${top_builddir}/src/scm \ --guile-load-dir ${top_builddir}/src/scm \
--guile-load-dir ${top_builddir}/lib \ --guile-load-dir ${top_builddir}/lib \
--guile-load-dir ${G_WRAP_MODULE_DIR} \ --guile-load-dir ${G_WRAP_MODULE_DIR} \
--guile-load-dir ${top_builddir}/src/gnome-utils \
--guile-load-dir ${top_builddir}/src/gnome \ --guile-load-dir ${top_builddir}/src/gnome \
--library-dir ${top_builddir}/src/gnome-utils \
--library-dir ${top_builddir}/src/gnome --library-dir ${top_builddir}/src/gnome

View File

@ -423,6 +423,7 @@ string and 'directories' must be a list of strings."
(gnc:module-load "gnucash/report/standard-reports" 0) (gnc:module-load "gnucash/report/standard-reports" 0)
(gnc:module-load "gnucash/report/utility-reports" 0) (gnc:module-load "gnucash/report/utility-reports" 0)
(gnc:module-load "gnucash/report/locale-specific/us" 0) (gnc:module-load "gnucash/report/locale-specific/us" 0)
(gnc:module-load "gnucash/report/report-gnome" 0)
(gnc:module-load "gnucash/business-gnome" 0) (gnc:module-load "gnucash/business-gnome" 0)
;; Now we can load a bunch of files. ;; Now we can load a bunch of files.

View File

@ -13,7 +13,9 @@ GNC_TEST_DEPS := \
--guile-load-dir ${top_builddir}/src/scm \ --guile-load-dir ${top_builddir}/src/scm \
--guile-load-dir ${top_builddir}/lib \ --guile-load-dir ${top_builddir}/lib \
--guile-load-dir ${G_WRAP_MODULE_DIR} \ --guile-load-dir ${G_WRAP_MODULE_DIR} \
--guile-load-dir ${top_builddir}/src/gnome-utils \
--guile-load-dir ${top_builddir}/src/gnome \ --guile-load-dir ${top_builddir}/src/gnome \
--library-dir ${top_builddir}/src/gnome-utils \
--library-dir ${top_builddir}/src/gnome --library-dir ${top_builddir}/src/gnome
TESTS_ENVIRONMENT := \ TESTS_ENVIRONMENT := \