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/app-file/gnc-file.c

Browse Source 
(gnc_book_opened): coerce to supress warning for guile 1.3.4.
(gnc_file_new): coerce to supress warning for guile 1.3.4.
(gnc_post_file_open): coerce to supress warning for guile 1.3.4.
(gnc_file_save): coerce to supress warning for guile 1.3.4.
(gnc_file_quit): coerce to supress warning for guile 1.3.4.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5510 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Rob Browning 2001-10-10 23:20:14 +00:00
parent 3925463e29
commit 48fbaeb3cb
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/app-file/gnc-file.c
View File

@ -241,9 +241,10 @@ gnc_add_history (GNCSession * session)
static void static void
gnc_book_opened (void) gnc_book_opened (void)
{ {
/* FIXME: when we drop support older guiles, drop the (char *) coercion. */
gh_call2 (gh_eval_str("gnc:hook-run-danglers"), gh_call2 (gh_eval_str("gnc:hook-run-danglers"),
gh_eval_str("gnc:*book-opened-hook*"), gh_eval_str("gnc:*book-opened-hook*"),
gh_str02scm(gnc_session_get_url(current_session))); gh_str02scm((char *) gnc_session_get_url(current_session)));
} }
void void
@ -262,9 +263,10 @@ gnc_file_new (void)
* disable events so we don't get spammed by redraws. */ * disable events so we don't get spammed by redraws. */
gnc_engine_suspend_events (); gnc_engine_suspend_events ();
/* FIXME: when we drop support older guiles, drop the (char *) coercion. */
gh_call2(gh_eval_str("gnc:hook-run-danglers"), gh_call2(gh_eval_str("gnc:hook-run-danglers"),
gh_eval_str("gnc:*book-closed-hook*"), gh_eval_str("gnc:*book-closed-hook*"),
gh_str02scm(gnc_session_get_url(session))); gh_str02scm((char *) gnc_session_get_url(session)));
gnc_session_destroy (session); gnc_session_destroy (session);
current_session = NULL; current_session = NULL;
@ -348,10 +350,10 @@ gnc_post_file_open (const char * filename)
/* -------------- BEGIN CORE SESSION CODE ------------- */ /* -------------- BEGIN CORE SESSION CODE ------------- */
/* -- this code is almost identical in FileOpen and FileSaveAs -- */ /* -- this code is almost identical in FileOpen and FileSaveAs -- */
/* FIXME: when we drop support older guiles, drop the (char *) coercion. */
gh_call2(gh_eval_str("gnc:hook-run-danglers"), gh_call2(gh_eval_str("gnc:hook-run-danglers"),
gh_eval_str("gnc:*book-closed-hook*"), gh_eval_str("gnc:*book-closed-hook*"),
gh_str02scm(gnc_session_get_url(current_session))); gh_str02scm((char *) gnc_session_get_url(current_session)));
gnc_session_destroy (current_session); gnc_session_destroy (current_session);
current_session = NULL; current_session = NULL;
@ -550,8 +552,9 @@ gnc_file_save (void)
gnc_book_mark_saved (gnc_session_get_book (session)); gnc_book_mark_saved (gnc_session_get_book (session));
/* save the main window state */ /* save the main window state */
/* FIXME: when we drop support older guiles, drop the (char *) coercion. */
gh_call1 (gh_eval_str("gnc:main-window-save-state"), gh_call1 (gh_eval_str("gnc:main-window-save-state"),
gh_str02scm(gnc_session_get_url(current_session))); gh_str02scm((char *) gnc_session_get_url(current_session)));
LEAVE (" "); LEAVE (" ");
} }
@ -679,9 +682,10 @@ gnc_file_quit (void)
* transactions during shutdown would cause massive redraws */ * transactions during shutdown would cause massive redraws */
gnc_engine_suspend_events (); gnc_engine_suspend_events ();
/* FIXME: when we drop support older guiles, drop the (char *) coercion. */
gh_call2(gh_eval_str("gnc:hook-run-danglers"), gh_call2(gh_eval_str("gnc:hook-run-danglers"),
gh_eval_str("gnc:*book-closed-hook*"), gh_eval_str("gnc:*book-closed-hook*"),
gh_str02scm(gnc_session_get_url(session))); gh_str02scm((char *) gnc_session_get_url(session)));
gnc_session_destroy (session); gnc_session_destroy (session);
current_session = NULL; current_session = NULL;