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

Make the option-path available as a variable

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7098 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Derek Atkins 2002-07-08 16:08:10 +00:00
parent c6ca88665b
commit 69bbffed7a
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/gnome-utils/gnome-utils.scm
View File

@ -18,23 +18,26 @@
(export gnc:new-menu-namer) (export gnc:new-menu-namer)
(export gnc:*add-extension-hook*) (export gnc:*add-extension-hook*)
(export gnc:*kvp-option-path*)
(export gnc:kvp-option-dialog) (export gnc:kvp-option-dialog)
(load-from-path "gnc-menu-extensions.scm") (load-from-path "gnc-menu-extensions.scm")
(define gnc:*kvp-option-path* '("options"))
(define (gnc:kvp-option-dialog id-type slots title changed_cb) (define (gnc:kvp-option-dialog id-type slots title changed_cb)
(let* ((options (gnc:make-kvp-options id-type)) (let* ((options (gnc:make-kvp-options id-type))
(optiondb (gnc:option-db-new options)) (optiondb (gnc:option-db-new options))
(optionwin (gnc:option-dialog-new #t title))) (optionwin (gnc:option-dialog-new #t title)))
(define (apply-cb) (define (apply-cb)
(gnc:options-scm->kvp options slots '("options") #t) (gnc:options-scm->kvp options slots gnc:*kvp-option-path* #t)
(if changed_cb (changed_cb))) (if changed_cb (changed_cb)))
(define (close-cb) (define (close-cb)
(gnc:option-dialog-destroy optionwin) (gnc:option-dialog-destroy optionwin)
(gnc:option-db-destroy optiondb)) (gnc:option-db-destroy optiondb))
(gnc:options-kvp->scm options slots '("options")) (gnc:options-kvp->scm options slots gnc:*kvp-option-path*)
(gnc:option-dialog-set-callbacks optionwin apply-cb close-cb) (gnc:option-dialog-set-callbacks optionwin apply-cb close-cb)
(gnc:option-dialog-build-contents optionwin optiondb))) (gnc:option-dialog-build-contents optionwin optiondb)))