r19285 - gnucash/trunk/src/report/report-system - Bug #616606: Add gnc-get-default-report-font-family function callable from scm.

[Phil Longstaff]

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();