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

enbale some of the preferences code

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@1508 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Linas Vepstas 1998-12-31 07:47:05 +00:00
parent b19bf7028d
commit a6fddef16a
1 changed files with 36 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
src/scm/startup/prefs.scm
View File

@ -1,42 +1,42 @@
;;;; Preferences... ;; Preferences...
;; (define gnc:*double-entry-restriction* (define gnc:*double-entry-restriction*
;; (gnc:make-config-var (gnc:make-config-var
;; "Determines how the splits in a transaction will be balanced. "Determines how the splits in a transaction will be balanced.
;; The following values have significance: The following values have significance:
;;
;; #f anything goes #f anything goes
;;
;; 'force The sum of all splits in a transaction will be 'force The sum of all splits in a transaction will be
;; forced to be zero, even if this requires the forced to be zero, even if this requires the
;; creation of additional splits. Note that a split creation of additional splits. Note that a split
;; whose value is zero (e.g. a stock price) can exist whose value is zero (e.g. a stock price) can exist
;; by itself. Otherwise, all splits must come in at by itself. Otherwise, all splits must come in at
;; least pairs. least pairs.
;;
;; 'collect splits without parents will be forced into a 'collect splits without parents will be forced into a
;; lost & found account. (Not implemented)" lost & found account. (Not implemented)"
;; (lambda (var value) (lambda (var value)
;; (cond (cond
;; ((eq? value #f) ((eq? value #f)
;; (_gnc_set_force_double_entry_ 0) (xaccConfigSetForceDoubleEntry 0)
;; (list value)) (list value))
;; ((eq? value 'force) ((eq? value 'force)
;; (_gnc_set_force_double_entry_ 1) (xaccConfigSetForceDoubleEntry 1)
;; (list value)) (list value))
;; ((eq? value 'collect) ((eq? value 'collect)
;; (gnc:warn (gnc:warn
;; "gnc:*double-entry-restriction* -- 'collect not supported yet. " "gnc:*double-entry-restriction* -- 'collect not supported yet. "
;; "Ignoring.") "Ignoring.")
;; #f) #f)
;; (else (else
;; (gnc:warn (gnc:warn
;; "gnc:*double-entry-restriction* -- " value " not supported. Ignoring.") "gnc:*double-entry-restriction* -- " value " not supported. Ignoring.")
;; #f))) #f)))
;; eq? eq?
;; #f)) #f))
(define gnc:*arg-show-usage* (define gnc:*arg-show-usage*
(gnc:make-config-var (gnc:make-config-var