From 066484edb3512d348b971d3b7294d62b6deb7348 Mon Sep 17 00:00:00 2001 From: Derek Atkins Date: Mon, 8 Jul 2002 16:18:05 +0000 Subject: [PATCH] make the kvp-options 'public' to make it easier to obtain later git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7099 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/business/business-gnome/business-gnome.scm | 6 ++++++ src/business/business-gnome/business-prefs.scm | 10 ++++------ 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/src/business/business-gnome/business-gnome.scm b/src/business/business-gnome/business-gnome.scm index 066be39412..b82e14c752 100644 --- a/src/business/business-gnome/business-gnome.scm +++ b/src/business/business-gnome/business-gnome.scm @@ -16,6 +16,12 @@ (define new-label "New") (define find-label "Find") +(define gnc:*business-label* (N_ "Business")) +(define gnc:*company-name* (N_ "Company Name")) +(define gnc:*company-addy* (N_ "Company Address")) + +(export gnc:*business-label* gnc:*company-name* gnc:*company-addy*) + (define (add-customer-items) (let ((last-cust (gnc:owner-create)) (cust "Customers")) diff --git a/src/business/business-gnome/business-prefs.scm b/src/business/business-gnome/business-prefs.scm index c69d902656..fdf073af43 100644 --- a/src/business/business-gnome/business-prefs.scm +++ b/src/business/business-gnome/business-prefs.scm @@ -19,15 +19,13 @@ ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org -(define *option-page* (N_ "Business")) - (gnc:register-configuration-option (gnc:make-internal-option "__gui" "invoice_reg_width" 0)) (gnc:register-configuration-option (gnc:make-number-range-option - *option-page* (N_ "Number of Rows") + gnc:*business-label* (N_ "Number of Rows") "a" (N_ "Default number of register rows to display in Invoices.") 10.0 ;; default 1.0 ;; lower bound @@ -38,7 +36,7 @@ (gnc:register-configuration-option (gnc:make-simple-boolean-option - *option-page* (N_ "Tax Included?") + gnc:*business-label* (N_ "Tax Included?") "f" (N_ (string-append "Whether tax is included by default in entries. " "This setting is inherited by new customers and vendors")) @@ -50,12 +48,12 @@ (reg-option (gnc:make-string-option - (N_ "Business") (N_ "Company Name") + gnc:*business-label* gnc:*company-name* "a" (N_ "The name of your business") "")) (reg-option (gnc:make-text-option - (N_ "Business") (N_ "Company Address") + gnc:*business-label* gnc:*company-addy* "b" (N_ "The address of your business") ""))) (gnc:register-kvp-option-generator gnc:id-book book-options-generator)