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

Forgot to delete a file

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5790 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Bill Gribble 2001-11-07 23:06:56 +00:00
parent c8ab2d7a8f
commit 25248022e4
2 changed files with 8 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
po/ChangeLog
View File

@ -18,6 +18,14 @@
* Makefile.in.in: Upgrade to gettext-0.10.40.
2001-11-07 gettextize <bug-gnu-utils@gnu.org>
* Makefile.in.in: Upgrade to gettext-0.10.40.
2001-11-07 gettextize <bug-gnu-utils@gnu.org>
* Makefile.in.in: Upgrade to gettext-0.10.40.
2001-11-06 gettextize <bug-gnu-utils@gnu.org>
* Makefile.in.in: Upgrade to gettext-0.10.40.

67
src/app-file/gnome/gw-app-file-gnome-spec.scm
View File

@ -1,67 +0,0 @@
;;; -*-scheme-*-
(use-modules (g-wrap))
(debug-set! maxdepth 100000)
(debug-set! stack 2000000)
(define-module (g-wrapped gw-app-file-gnome-spec)
:use-module (g-wrap))
(use-modules (g-wrapped gw-engine-spec))
(use-modules (g-wrapped gw-glib-spec))
(let ((mod (gw:new-module "gw-app-file-gnome")))
(define (standard-c-call-gen result func-call-code)
(list (gw:result-get-c-name result) " = " func-call-code ";\n"))
(define (add-standard-result-handlers! type c->scm-converter)
(define (standard-pre-handler result)
(let* ((ret-type-name (gw:result-get-proper-c-type-name result))
(ret-var-name (gw:result-get-c-name result)))
(list "{\n"
" " ret-type-name " " ret-var-name ";\n")))
(gw:type-set-pre-call-result-ccodegen! type standard-pre-handler)
(gw:type-set-post-call-result-ccodegen!
type
(lambda (result)
(let* ((scm-name (gw:result-get-scm-name result))
(c-name (gw:result-get-c-name result)))
(list
(c->scm-converter scm-name c-name)
" }\n")))))
(gw:module-depends-on mod "gw-runtime")
(gw:module-depends-on mod "gw-engine")
(gw:module-depends-on mod "gw-glib")
(gw:module-set-guile-module! mod '(g-wrapped gw-app-file-gnome))
(gw:module-set-declarations-ccodegen!
mod
(lambda (client-only?)
(list
"#include <gnc-file-dialog.h>\n"
"#include <gnc-file-history.h>\n")))
(gw:wrap-function
mod
'gnc:history-get-last
'(<gw:m-chars-callee-owned> gw:const)
"gnc_history_get_last"
'()
"Get the last file opened by the user.")
(gw:wrap-function
mod
'gnc:file-selection-dialog
'(<gw:m-chars-callee-owned> gw:const)
"gnc_file_dialog"
'(((<gw:m-chars-caller-owned> gw:const) title)
((<gw:m-chars-caller-owned> gw:const) filter)
((<gw:m-chars-caller-owned> gw:const) default))
"Lets the user select a file. Dialog has given title, filter,
or default name. Either filter, default, or both should be NULL.")
)