r19285 - gnucash/trunk/src/report/report-system - Bug #616606: Add gnc-get-default-report-font-family function callable from scm.
Phil Longstaff
plongstaff at code.gnucash.org
Tue Jun 22 18:02:01 EDT 2010
Author: plongstaff
Date: 2010-06-22 18:02:01 -0400 (Tue, 22 Jun 2010)
New Revision: 19285
Trac: http://svn.gnucash.org/trac/changeset/19285
Modified:
gnucash/trunk/src/report/report-system/gnc-report.c
gnucash/trunk/src/report/report-system/gnc-report.h
gnucash/trunk/src/report/report-system/html-fonts.scm
gnucash/trunk/src/report/report-system/report-system.i
Log:
Bug #616606: Add gnc-get-default-report-font-family function callable from scm.
Currently returns "Arial" but can be modified to get default GtkWindow font.
Modified: gnucash/trunk/src/report/report-system/gnc-report.c
===================================================================
--- gnucash/trunk/src/report/report-system/gnc-report.c 2010-06-22 20:30:58 UTC (rev 19284)
+++ gnucash/trunk/src/report/report-system/gnc-report.c 2010-06-22 22:02:01 UTC (rev 19285)
@@ -195,3 +195,8 @@
return g_strdup(scm_to_locale_string(value));
}
+gchar*
+gnc_get_default_report_font_family(void)
+{
+ return g_strdup("Arial");
+}
Modified: gnucash/trunk/src/report/report-system/gnc-report.h
===================================================================
--- gnucash/trunk/src/report/report-system/gnc-report.h 2010-06-22 20:30:58 UTC (rev 19284)
+++ gnucash/trunk/src/report/report-system/gnc-report.h 2010-06-22 22:02:01 UTC (rev 19285)
@@ -46,4 +46,6 @@
void gnc_reports_flush_global(void);
GHashTable *gnc_reports_get_global(void);
+gchar* gnc_get_default_report_font_family(void);
+
#endif
Modified: gnucash/trunk/src/report/report-system/html-fonts.scm
===================================================================
--- gnucash/trunk/src/report/report-system/html-fonts.scm 2010-06-22 20:30:58 UTC (rev 19284)
+++ gnucash/trunk/src/report/report-system/html-fonts.scm 2010-06-22 22:02:01 UTC (rev 19285)
@@ -60,7 +60,7 @@
(
(opt-register
(lambda (opt) (gnc:register-option options opt)))
- (font-family "Arial")
+ (font-family (gnc-get-default-report-font-family))
)
(opt-register
(gnc:make-font-option
Modified: gnucash/trunk/src/report/report-system/report-system.i
===================================================================
--- gnucash/trunk/src/report/report-system/report-system.i 2010-06-22 20:30:58 UTC (rev 19284)
+++ gnucash/trunk/src/report/report-system/report-system.i 2010-06-22 22:02:01 UTC (rev 19285)
@@ -11,3 +11,6 @@
SCM gnc_report_find(gint id);
gint gnc_report_add(SCM report);
+
+%newobject gnc_get_default_report_font_family;
+gchar* gnc_get_default_report_font_family();
More information about the gnucash-changes
mailing list