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/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
|
||||||
|
@ -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 = \
|
||||||
|
@ -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)
|
||||||
|
@ -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 := \
|
||||||
|
@ -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\")"
|
||||||
|
|
||||||
|
@ -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!
|
||||||
|
@ -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,
|
||||||
|
@ -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
|
||||||
|
@ -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*>
|
||||||
|
@ -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
|
||||||
|
@ -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*>
|
||||||
|
@ -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)
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
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-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;
|
||||||
|
|
@ -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 := \
|
||||||
|
@ -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 := \
|
||||||
|
@ -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 := \
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
|
||||||
|
@ -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.
|
||||||
|
@ -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 := \
|
||||||
|
Loading…
Reference in New Issue
Block a user