mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
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:
parent
786323491c
commit
ae41252ddd
@ -839,6 +839,7 @@ AC_OUTPUT(
|
||||
src/register/register-gnome/Makefile
|
||||
src/register/register-gnome/test/Makefile
|
||||
src/report/Makefile
|
||||
src/report/report-gnome/Makefile
|
||||
src/report/report-system/test/Makefile
|
||||
src/report/report-system/Makefile
|
||||
src/report/standard-reports/test/Makefile
|
||||
|
@ -1,25 +1,24 @@
|
||||
DIST_SUBDIRS = \
|
||||
NONGUI_SUBDIRS = \
|
||||
doc \
|
||||
pixmaps \
|
||||
bin
|
||||
|
||||
NONGUI_SUBDIRS = \
|
||||
core-utils \
|
||||
gnc-module \
|
||||
test-core \
|
||||
engine \
|
||||
backend \
|
||||
report \
|
||||
scm \
|
||||
quotes
|
||||
quotes \
|
||||
bin
|
||||
|
||||
GUI_SUBDIRS = \
|
||||
GUI_SUBDIRS_1 = \
|
||||
network-utils \
|
||||
calculation \
|
||||
tax \
|
||||
app-utils \
|
||||
gnome-utils \
|
||||
app-file \
|
||||
app-file
|
||||
|
||||
GUI_SUBDIRS_2 = \
|
||||
import-export \
|
||||
dialog-account \
|
||||
register \
|
||||
@ -28,10 +27,12 @@ GUI_SUBDIRS = \
|
||||
business \
|
||||
optional
|
||||
|
||||
DIST_SUBDIRS = $(NONGUI_SUBDIRS) $(GUI_SUBDIRS_1) report $(GUI_SUBDIRS_2)
|
||||
|
||||
if GNUCASH_ENABLE_GUI
|
||||
SUBDIRS = $(DIST_SUBDIRS) $(NONGUI_SUBDIRS) $(GUI_SUBDIRS)
|
||||
SUBDIRS = $(DIST_SUBDIRS)
|
||||
else
|
||||
SUBDIRS = $(DIST_SUBDIRS) $(NONGUI_SUBDIRS)
|
||||
SUBDIRS = $(NONGUI_SUBDIRS) report
|
||||
endif
|
||||
|
||||
noinst_HEADERS = \
|
||||
|
@ -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
|
||||
certain locales. subdir per locale.
|
||||
report/stylesheets predefined style sheet templates
|
||||
report/report-gnome Gnome gui for displaying reports.
|
||||
|
||||
app-utils utils for the gnucash app framework (component
|
||||
mgr, cmd line processing, gettext stuff, etc)
|
||||
|
@ -12,7 +12,9 @@ GNC_TEST_DEPS := \
|
||||
--guile-load-dir ${G_WRAP_MODULE_DIR} \
|
||||
--guile-load-dir ${top_srcdir}/lib \
|
||||
--guile-load-dir ${top_srcdir}/src/scm \
|
||||
--guile-load-dir ${top_srcdir}/src/gnome-utils \
|
||||
--guile-load-dir ${top_srcdir}/src/gnome \
|
||||
--library-dir ${top_srcdir}/src/gnome-utils \
|
||||
--library-dir ${top_srcdir}/src/gnome
|
||||
|
||||
TESTS_ENVIRONMENT := \
|
||||
|
@ -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 \"../business-core\" %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\") \
|
||||
(gw:generate-module \"gw-business-gnome\")"
|
||||
|
||||
|
@ -8,7 +8,7 @@
|
||||
:use-module (g-wrap))
|
||||
|
||||
(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")))
|
||||
(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-business-core")
|
||||
(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-declarations-ccodegen!
|
||||
|
@ -74,7 +74,6 @@ GNCVerifyResult gnc_ok_cancel_dialog_parented(gncUIWidget parent,
|
||||
void gnc_warning_dialog_parented(gncUIWidget parent, const char *message);
|
||||
|
||||
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,
|
||||
const char *title,
|
||||
|
@ -28,6 +28,7 @@ void gnc_info_dialog_parented(GtkWindow *parent, 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);
|
||||
|
||||
#endif
|
||||
|
@ -43,9 +43,16 @@
|
||||
"#include <print-session.h>\n"
|
||||
"#include <gnc-menu-extensions.h>\n"
|
||||
"#include <gnc-html.h>\n"
|
||||
"#include <gnc-gui-query.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
|
||||
mod
|
||||
'<gnc:mdi-info*>
|
||||
|
@ -12,6 +12,7 @@ libgncgnome_la_LIBADD = \
|
||||
${top_builddir}/src/backend/file/libgncmod-backend-file.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-gnome/libgncmod-report-gnome.la \
|
||||
${top_builddir}/src/register/ledger-core/libgncmod-ledger-core.la \
|
||||
${GUILE_LIBS} ${GNOME_LIBDIR} ${GNOMEUI_LIBS} ${GLIB_LIBS}
|
||||
|
||||
@ -51,8 +52,7 @@ libgncgnome_la_SOURCES = \
|
||||
window-main.c \
|
||||
window-main-summarybar.c \
|
||||
window-reconcile.c \
|
||||
window-register.c \
|
||||
window-report.c
|
||||
window-register.c
|
||||
|
||||
gnomeappdir = ${datadir}/gnome/apps/Applications
|
||||
|
||||
@ -91,8 +91,7 @@ noinst_HEADERS = \
|
||||
window-main.h \
|
||||
window-main-summarybar.h \
|
||||
window-reconcile.h \
|
||||
window-register.h \
|
||||
window-report.h
|
||||
window-register.h
|
||||
|
||||
EXTRA_DIST = \
|
||||
.cvsignore \
|
||||
@ -118,6 +117,7 @@ AM_CFLAGS = \
|
||||
-I${top_srcdir}/src/register/register-core \
|
||||
-I${top_srcdir}/src/register/register-gnome \
|
||||
-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/qif-import \
|
||||
${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 \
|
||||
"(set! %load-path (cons \"${G_WRAP_MODULE_DIR}\" %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\") \
|
||||
(gw:generate-module \"gw-gnc\")"
|
||||
BUILT_SOURCES = gw-gnc.scm gw-gnc.h gw-gnc.c
|
||||
|
@ -9,6 +9,9 @@
|
||||
|
||||
(use-modules (g-wrapped gw-engine-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")))
|
||||
(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-engine")
|
||||
(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))
|
||||
|
||||
@ -70,18 +76,6 @@
|
||||
"#include <dialog-scheduledxaction.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
|
||||
mod
|
||||
'<gnc:column-view-edit*>
|
||||
|
@ -1,7 +1,17 @@
|
||||
SUBDIRS=\
|
||||
NONGUI_SUBDIRS = \
|
||||
report-system \
|
||||
standard-reports \
|
||||
utility-reports \
|
||||
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)
|
||||
|
@ -1,4 +1,4 @@
|
||||
TESTS=test-load-module test-link-module
|
||||
TESTS = test-load-module test-link-module
|
||||
|
||||
GNC_TEST_DEPS := \
|
||||
--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 ${top_srcdir}/lib \
|
||||
--guile-load-dir ${top_srcdir}/src/scm \
|
||||
--guile-load-dir ${top_srcdir}/src/gnome-utils \
|
||||
--guile-load-dir ${top_srcdir}/src/gnome \
|
||||
--library-dir ${top_srcdir}/src/gnome-utils \
|
||||
--library-dir ${top_srcdir}/src/gnome
|
||||
|
||||
TESTS_ENVIRONMENT := \
|
||||
@ -20,14 +22,11 @@ TESTS_ENVIRONMENT := \
|
||||
|
||||
EXTRA_DIST = test-load-module
|
||||
|
||||
noinst_PROGRAMS=test-link-module
|
||||
noinst_PROGRAMS = test-link-module
|
||||
|
||||
testit:
|
||||
${TESTS_ENVIRONMENT} gdb guile
|
||||
|
||||
test_link_module_SOURCES=test-link-module.c
|
||||
test_link_module_SOURCES = test-link-module.c
|
||||
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
|
||||
|
2
src/report/report-gnome/.cvsignore
Normal file
2
src/report/report-gnome/.cvsignore
Normal file
@ -0,0 +1,2 @@
|
||||
Makefile
|
||||
Makefile.in
|
62
src/report/report-gnome/Makefile.am
Normal file
62
src/report/report-gnome/Makefile.am
Normal 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
|
65
src/report/report-gnome/gncmod-report-gnome.c
Normal file
65
src/report/report-gnome/gncmod-report-gnome.c
Normal 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;
|
||||
}
|
54
src/report/report-gnome/gw-report-gnome-spec.scm
Normal file
54
src/report/report-gnome/gw-report-gnome-spec.scm
Normal 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)
|
||||
)
|
@ -40,7 +40,7 @@
|
||||
#include "gnc-gui-query.h"
|
||||
#include "gnc-html-history.h"
|
||||
#include "gnc-html.h"
|
||||
#include "gnc-ui.h"
|
||||
/* #include "gnc-ui.h" */
|
||||
#include "option-util.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
|
||||
* creating/managing report-window mdi children
|
||||
@ -125,9 +118,9 @@ gnc_report_window_view_labeler(GnomeMDIChild * child, GtkWidget * current,
|
||||
}
|
||||
|
||||
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;
|
||||
gnc_report_window * w = mc->user_data;
|
||||
|
||||
gnc_mdi_remove_child(gnc_mdi_get_current(), mc);
|
||||
g_free(mc->toolbar_info);
|
||||
@ -361,13 +354,13 @@ gnc_report_window_export_button_cb(GtkWidget * w, gpointer data) {
|
||||
|
||||
|
||||
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;
|
||||
SCM window_type = gh_eval_str("<gnc:report-window*>");
|
||||
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) {
|
||||
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);
|
||||
}
|
||||
}
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
@ -449,16 +443,14 @@ gnc_report_window_refresh (gpointer data)
|
||||
static void
|
||||
gnc_report_window_load_cb(gnc_html * html, URLType type,
|
||||
const gchar * location, const gchar * label,
|
||||
gpointer data) {
|
||||
gpointer data)
|
||||
{
|
||||
gnc_report_window * win = data;
|
||||
int report_id;
|
||||
SCM find_report = gh_eval_str("gnc:find-report");
|
||||
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 inst_report;
|
||||
SCM inst_options;
|
||||
SCM inst_options_ed;
|
||||
|
||||
/* 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
|
||||
@ -596,11 +588,10 @@ close_handler (gpointer user_data)
|
||||
********************************************************************/
|
||||
|
||||
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);
|
||||
GtkObject * tlo;
|
||||
GtkWidget * cframe = NULL;
|
||||
|
||||
report->mc = mc;
|
||||
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 set_editor = gh_eval_str("gnc:report-set-editor-widget!");
|
||||
SCM disp_list;
|
||||
SCM edited, editor;
|
||||
|
||||
gnc_unregister_gui_component_by_data (WINDOW_REPORT_CM_CLASS, win);
|
||||
@ -869,11 +859,11 @@ gnc_options_dialog_close_cb(GNCOptionWin * propertybox,
|
||||
|
||||
|
||||
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_title = gh_eval_str("gnc:report-type");
|
||||
SCM ptr;
|
||||
SCM new_edited;
|
||||
|
||||
char *title = NULL;
|
||||
|
@ -11,7 +11,9 @@ GNC_TEST_DEPS := \
|
||||
--guile-load-dir ${G_WRAP_MODULE_DIR} \
|
||||
--guile-load-dir ${top_srcdir}/lib \
|
||||
--guile-load-dir ${top_srcdir}/src/scm \
|
||||
--guile-load-dir ${top_srcdir}/src/gnome-utils \
|
||||
--guile-load-dir ${top_srcdir}/src/gnome \
|
||||
--library-dir ${top_srcdir}/src/gnome-utils \
|
||||
--library-dir ${top_srcdir}/src/gnome
|
||||
|
||||
TESTS_ENVIRONMENT := \
|
||||
|
@ -10,7 +10,9 @@ GNC_TEST_DEPS := \
|
||||
--guile-load-dir ${top_builddir}/src/scm \
|
||||
--guile-load-dir ${top_builddir}/lib \
|
||||
--guile-load-dir ${G_WRAP_MODULE_DIR} \
|
||||
--guile-load-dir ${top_builddir}/src/gnome-utils \
|
||||
--guile-load-dir ${top_builddir}/src/gnome \
|
||||
--library-dir ${top_builddir}/src/gnome-utils \
|
||||
--library-dir ${top_builddir}/src/gnome
|
||||
|
||||
TESTS_ENVIRONMENT := \
|
||||
|
@ -11,7 +11,9 @@ GNC_TEST_DEPS := \
|
||||
--guile-load-dir ${top_builddir}/src/scm \
|
||||
--guile-load-dir ${top_builddir}/lib \
|
||||
--guile-load-dir ${G_WRAP_MODULE_DIR} \
|
||||
--guile-load-dir ${top_builddir}/src/gnome-utils \
|
||||
--guile-load-dir ${top_builddir}/src/gnome \
|
||||
--library-dir ${top_builddir}/src/gnome-utils \
|
||||
--library-dir ${top_builddir}/src/gnome
|
||||
|
||||
TESTS_ENVIRONMENT := \
|
||||
|
@ -10,7 +10,9 @@ GNC_TEST_DEPS := \
|
||||
--guile-load-dir ${top_builddir}/src/scm \
|
||||
--guile-load-dir ${top_builddir}/lib \
|
||||
--guile-load-dir ${G_WRAP_MODULE_DIR} \
|
||||
--guile-load-dir ${top_builddir}/src/gnome-utils \
|
||||
--guile-load-dir ${top_builddir}/src/gnome \
|
||||
--library-dir ${top_builddir}/src/gnome-utils \
|
||||
--library-dir ${top_builddir}/src/gnome
|
||||
|
||||
|
||||
|
@ -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/utility-reports" 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)
|
||||
|
||||
;; Now we can load a bunch of files.
|
||||
|
@ -13,7 +13,9 @@ GNC_TEST_DEPS := \
|
||||
--guile-load-dir ${top_builddir}/src/scm \
|
||||
--guile-load-dir ${top_builddir}/lib \
|
||||
--guile-load-dir ${G_WRAP_MODULE_DIR} \
|
||||
--guile-load-dir ${top_builddir}/src/gnome-utils \
|
||||
--guile-load-dir ${top_builddir}/src/gnome \
|
||||
--library-dir ${top_builddir}/src/gnome-utils \
|
||||
--library-dir ${top_builddir}/src/gnome
|
||||
|
||||
TESTS_ENVIRONMENT := \
|
||||
|
Loading…
Reference in New Issue
Block a user