IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-20 11:48:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

[reports] eradicate gtkhtml hacks

Browse Source 
string of   was used to widen cell to a minimum of 60px. use
min-width style attribute instead.
This commit is contained in:
Christopher Lam 2019-09-29 17:22:34 +08:00
parent 607fd6ff9b
commit 5aa59e0ce1
6 changed files with 37 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnucash/report/standard-reports/balance-sheet.scm
View File

@ -478,13 +478,13 @@
(define (get-total-balance-fn account)
(gnc:account-get-comm-balance-at-date account reportdate #f))
;; Workaround to force gtkhtml into displaying wide
;; enough columns.
(let ((space (make-list tree-depth "     \
          ")))
(gnc:html-table-append-row! left-table space)
(unless report-form?
(gnc:html-table-append-row! right-table space)))
(let ((wide (gnc:make-html-table-cell/markup "text-cell" #f)))
(gnc:html-table-cell-set-style!
wide "text-cell" 'attribute '("style" "min-width:60px"))
(let ((space (make-list tree-depth wide)))
(gnc:html-table-append-row! left-table space)
(unless report-form?
(gnc:html-table-append-row! right-table space))))
(gnc:report-percent-done 80)
(when label-assets?

18
gnucash/report/standard-reports/budget-balance-sheet.scm
View File

@ -675,17 +675,13 @@
)
)
;; Workaround to force gtkhtml into displaying wide
;; enough columns.
(let ((space
(make-list tree-depth "     \
     \
     ")
))
(gnc:html-table-append-row! left-table space)
(if (not report-form?)
(gnc:html-table-append-row! right-table space))
)
(let ((wide (gnc:make-html-table-cell/markup "text-cell" #f)))
(gnc:html-table-cell-set-style!
wide "text-cell" 'attribute '("style" "min-width:60px"))
(let ((space (make-list tree-depth wide)))
(gnc:html-table-append-row! left-table space)
(unless report-form?
(gnc:html-table-append-row! right-table space))))
(gnc:report-percent-done 80)
(if label-assets? (add-subtotal-line left-table (_ "Assets") #f #f))

15
gnucash/report/standard-reports/budget-income-statement.scm
View File

@ -618,16 +618,11 @@
)
)
;; Workaround to force gtkhtml into displaying wide
;; enough columns.
(let ((space
(make-list tree-depth "     \
     \
     ")
))
(gnc:html-table-append-row! inc-table space)
(gnc:html-table-append-row! exp-table space))
(let ((wide (gnc:make-html-table-cell/markup "text-cell" #f)))
(gnc:html-table-cell-set-style!
wide "text-cell" 'attribute '("style" "min-width:60px"))
(gnc:html-table-append-row! inc-table (make-list tree-depth wide))
(gnc:html-table-append-row! exp-table (make-list tree-depth wide)))
(gnc:report-percent-done 80)
(if label-revenue?

12
gnucash/report/standard-reports/equity-statement.scm
View File

@ -562,14 +562,10 @@
(gnc:report-percent-done 30)
;; Workaround to force gtkhtml into displaying wide
;; enough columns.
(gnc:html-table-append-row!
build-table
(make-list 2 "     \
     \
     ")
)
(let ((wide (gnc:make-html-table-cell/markup "text-cell" #f)))
(gnc:html-table-cell-set-style!
wide "text-cell" 'attribute '("style" "min-width:60px"))
(gnc:html-table-append-row! build-table (make-list 2 wide)))
(gnc:report-percent-done 80)

17
gnucash/report/standard-reports/income-statement.scm
View File

@ -571,18 +571,13 @@
)
)
;; Workaround to force gtkhtml into displaying wide
;; enough columns.
(let ((space
(make-list tree-depth "     \
     \
     ")
))
(gnc:html-table-append-row! inc-table space)
(gnc:html-table-append-row! exp-table space)
(gnc:html-table-append-row! tra-table space))
(let ((wide (gnc:make-html-table-cell/markup "text-cell" #f)))
(gnc:html-table-cell-set-style!
wide "text-cell" 'attribute '("style" "min-width:60px"))
(gnc:html-table-append-row! inc-table (make-list tree-depth wide))
(gnc:html-table-append-row! exp-table (make-list tree-depth wide))
(gnc:html-table-append-row! tra-table (make-list tree-depth wide)))
(gnc:report-percent-done 80)
(if label-revenue?
(add-subtotal-line inc-table (_ "Revenues") #f #f))

17
gnucash/report/standard-reports/trial-balance.scm
View File

@ -559,15 +559,14 @@
(let* ((env (gnc:html-acct-table-get-row-env acct-table 0)))
(set! account-cols (get-val env 'account-cols)))
;; Workaround to force gtkhtml into displaying wide
;; enough columns.
(let ((space
(make-list
(+ account-cols
(if (eq? report-variant 'work-sheet) 10 2))
"               ")))
(gnc:html-table-append-row! build-table space)
(set! header-rows (+ header-rows 1)))
(let ((wide (gnc:make-html-table-cell/markup "text-cell" #f))
(ncols (+ account-cols (if (eq? report-variant 'work-sheet) 10 2))))
(gnc:html-table-cell-set-style!
wide "text-cell" 'attribute '("style" "min-width:60px"))
(let ((space (make-list ncols wide)))
(gnc:html-table-append-row! build-table space)
(set! header-rows (1+ header-rows))))
;; add the double-column headers if required
(if (eq? report-variant 'work-sheet)
(let* ((headings