IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

* src/gnome/window-help.c

Browse Source 
(gnc_help_window_load_topics): coerce away guile 1.3.4 warning.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5546 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Rob Browning 2001-10-10 23:28:27 +00:00
parent 41a5c74c29
commit 78092a0c37
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/gnome/window-help.c
View File

@ -419,12 +419,13 @@ topics_add_children(SCM topics, GtkCTree * tree, GtkCTreeNode * parent,
} }
static void static void
gnc_help_window_load_topics(gnc_help_window * help, const gchar * file) { gnc_help_window_load_topics(gnc_help_window * help, const gchar * file)
{
SCM topics; SCM topics;
SCM load_topics = gh_eval_str("gnc:load-help-topics"); SCM load_topics = gh_eval_str("gnc:load-help-topics");
topics = gh_call1(load_topics, gh_str02scm(file)); /* FIXME: when we drop support older guiles, drop the (char *) coercion. */
topics = gh_call1(load_topics, gh_str02scm((char *) file));
topics_add_children(topics, GTK_CTREE(help->topics_tree), NULL, help); topics_add_children(topics, GTK_CTREE(help->topics_tree), NULL, help);
gtk_ctree_expand_to_depth (GTK_CTREE(help->topics_tree), NULL, 1); gtk_ctree_expand_to_depth (GTK_CTREE(help->topics_tree), NULL, 1);
gtk_widget_show_all(help->topics_tree); gtk_widget_show_all(help->topics_tree);