From 9bd373af719ff714ad6f15cd372f08fee4a2184f Mon Sep 17 00:00:00 2001 From: Derek Atkins Date: Sun, 7 Jul 2002 03:15:02 +0000 Subject: [PATCH] * gw-engine-spec.scm: wrap gnc_session_get_url(), in preparation for changing the book-opened-hook and book-closed-hook prototypes. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7093 57a11ea4-9604-0410-9ed3-97b8803252fd --- ChangeLog | 4 ++++ src/engine/gw-engine-spec.scm | 8 ++++++++ 2 files changed, 12 insertions(+) diff --git a/ChangeLog b/ChangeLog index 454ec5fd19..0786c7c87b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -7,6 +7,10 @@ This function will clear a sub-tree out of a kvp_frame. * kvp-scm: implement KVP_TYPE_FRAME kvp-values + + * gw-engine-spec.scm: wrap gnc_session_get_url(), in preparation + for changing the book-opened-hook and book-closed-hook + prototypes. 2002-07-05 Derek Atkins diff --git a/src/engine/gw-engine-spec.scm b/src/engine/gw-engine-spec.scm index 2532558292..a6fbd5b965 100644 --- a/src/engine/gw-engine-spec.scm +++ b/src/engine/gw-engine-spec.scm @@ -1414,6 +1414,14 @@ when no longer needed.") '(( session)) "Check for a pending error.") +(gw:wrap-function + ws + 'gnc:session-get-url + '( callee-owned const) + "gnc_session_get_url" + '(( session)) + "Return the URL of the opened session.") + (gw:wrap-function ws 'gnc:session-pop-error