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

Change average-balance.scm to use new plot sizes

Browse Source
This commit is contained in:
Robert Fewell
2016-11-28 19:30:09 +00:00
committed by Geert Janssens
parent b060520859
commit d02245267f
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/report/standard-reports/average-balance.scm
View File

@@ -42,6 +42,8 @@
(define optname-price-source (N_ "Price Source"))
(define optname-subacct (N_ "Include Sub-Accounts"))
(define optname-internal (N_ "Exclude transactions between selected accounts"))
(define optname-plot-width (N_ "Plot Width"))
(define optname-plot-height (N_ "Plot Height"))
;;;;;;;;;;;;;;;;;;;;;;;;;
;; Options
@@ -127,8 +129,8 @@
(vector 'GLPlot (N_ "Gain/Loss") (N_ "Gain And Loss.")))))
(gnc:options-add-plot-size!
options gnc:pagename-display (N_ "Plot Width") (N_ "Plot Height")
"d" 400 400)
options gnc:pagename-display
optname-plot-width optname-plot-height "d" (cons 'percent 100.0) (cons 'percent 100.0))
;; Set the general page as default option tab
(gnc:options-set-default-section options gnc:pagename-general)
@@ -462,10 +464,8 @@
;; plot comes first.
(if show-plot?
(let ((barchart (gnc:make-html-barchart))
(width (get-option gnc:pagename-display
(N_ "Plot Width")))
(height (get-option gnc:pagename-display
(N_ "Plot Height")))
(height (get-option gnc:pagename-display optname-plot-height))
(width (get-option gnc:pagename-display optname-plot-width))
(col-labels '())
(col-colors '()))
(if (memq 'AvgBalPlot plot-type)