diff --git a/src/gnome-utils/gnome-utils.scm b/src/gnome-utils/gnome-utils.scm index 7d93d534af..a5cef2b0df 100644 --- a/src/gnome-utils/gnome-utils.scm +++ b/src/gnome-utils/gnome-utils.scm @@ -18,23 +18,26 @@ (export gnc:new-menu-namer) (export gnc:*add-extension-hook*) +(export gnc:*kvp-option-path*) (export gnc:kvp-option-dialog) (load-from-path "gnc-menu-extensions.scm") +(define gnc:*kvp-option-path* '("options")) + (define (gnc:kvp-option-dialog id-type slots title changed_cb) (let* ((options (gnc:make-kvp-options id-type)) (optiondb (gnc:option-db-new options)) (optionwin (gnc:option-dialog-new #t title))) (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))) (define (close-cb) (gnc:option-dialog-destroy optionwin) (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-build-contents optionwin optiondb)))