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

deprecations: remove functions deprecated in 3.x

Browse Source
This commit is contained in:
Christopher Lam 2020-06-22 19:36:52 +08:00
parent 851bc7f8d9
commit 8db13470e2
3 changed files with 0 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
gnucash/report/html-table.scm
View File

@ -204,17 +204,6 @@
(define gnc:html-table-set-caption! (define gnc:html-table-set-caption!
(record-modifier <html-table> 'caption)) (record-modifier <html-table> 'caption))
;; note the following function is now generally unused.
(define (gnc:html-table-col-headers table)
(issue-deprecation-warning "gnc:html-table-col-headers is deprecated. \
use gnc:html-table-multirow-col-headers instead.")
(let ((headers ((record-accessor <html-table> 'col-headers) table)))
(cond
((not headers) #f)
((null? (cdr headers)) (car headers))
(else (gnc:warn "gnc:html-table-col-headers used on a table object \
with multiple rows. returning the first row only.") (car headers)))))
(define (gnc:html-table-set-col-headers! table col-headers) (define (gnc:html-table-set-col-headers! table col-headers)
(gnc:html-table-set-multirow-col-headers! table (list col-headers))) (gnc:html-table-set-multirow-col-headers! table (list col-headers)))
@ -224,14 +213,6 @@ with multiple rows. returning the first row only.") (car headers)))))
(define gnc:html-table-set-multirow-col-headers! (define gnc:html-table-set-multirow-col-headers!
(record-modifier <html-table> 'col-headers)) (record-modifier <html-table> 'col-headers))
(define (gnc:html-table-row-headers table)
(issue-deprecation-warning "gnc:html-table-row-headers is unused.")
((record-accessor <html-table> 'row-headers) table))
(define (gnc:html-table-set-row-headers! table . rest)
(issue-deprecation-warning "gnc:html-table-set-row-headers! is unused.")
(apply (record-modifier <html-table> 'row-headers) table rest))
(define gnc:html-table-style (define gnc:html-table-style
(record-accessor <html-table> 'style)) (record-accessor <html-table> 'style))

3
gnucash/report/report.scm
View File

@ -569,12 +569,9 @@
(export gnc:html-table-set-data!) (export gnc:html-table-set-data!)
(export gnc:html-table-caption) (export gnc:html-table-caption)
(export gnc:html-table-set-caption!) (export gnc:html-table-set-caption!)
(export gnc:html-table-col-headers)
(export gnc:html-table-set-col-headers!) (export gnc:html-table-set-col-headers!)
(export gnc:html-table-multirow-col-headers) (export gnc:html-table-multirow-col-headers)
(export gnc:html-table-set-multirow-col-headers!) (export gnc:html-table-set-multirow-col-headers!)
(export gnc:html-table-row-headers)
(export gnc:html-table-set-row-headers!)
(export gnc:html-table-style) (export gnc:html-table-style)
(export gnc:html-table-set-style-internal!) (export gnc:html-table-set-style-internal!)
(export gnc:html-table-row-styles) (export gnc:html-table-row-styles)

25
gnucash/report/test/test-report-html.scm
View File

@ -637,11 +637,6 @@ HTML Document Title</title></head><body></body>\n\
(test-doc (gnc:make-html-document)) (test-doc (gnc:make-html-document))
(test-table (gnc:make-html-table)) (test-table (gnc:make-html-table))
) )
;; change the default settings just to see what effect it has
;;(gnc:html-table-set-col-headers! test-table #t)
;; -> this make (gnc:html-table-render test-table test-doc) crash
;; col-headers must be #f or a list
(gnc:html-table-set-row-headers! test-table #t)
(gnc:html-table-set-caption! test-table #t) (gnc:html-table-set-caption! test-table #t)
(gnc:html-table-append-row! test-table "Row 1") (gnc:html-table-append-row! test-table "Row 1")
(gnc:html-table-append-row! test-table "Row 2") (gnc:html-table-append-row! test-table "Row 2")
@ -660,11 +655,6 @@ HTML Document Title</title></head><body></body>\n\
(test-doc (gnc:make-html-document)) (test-doc (gnc:make-html-document))
(test-table (gnc:make-html-table)) (test-table (gnc:make-html-table))
) )
;; change the default settings just to see what effect it has
;;(gnc:html-table-set-col-headers! test-table #t)
;; -> this make (gnc:html-table-render test-table test-doc) crash
;; col-headers must be #f or a list
(gnc:html-table-set-row-headers! test-table #t)
(gnc:html-table-set-caption! test-table #t) (gnc:html-table-set-caption! test-table #t)
(gnc:html-table-append-row! test-table "Row 2") (gnc:html-table-append-row! test-table "Row 2")
(gnc:html-table-prepend-row! test-table "Row 1") (gnc:html-table-prepend-row! test-table "Row 1")
@ -687,11 +677,6 @@ HTML Document Title</title></head><body></body>\n\
(test-doc (gnc:make-html-document)) (test-doc (gnc:make-html-document))
(test-table (gnc:make-html-table)) (test-table (gnc:make-html-table))
) )
;; change the default settings just to see what effect it has
;;(gnc:html-table-set-col-headers! test-table #t)
;; -> this make (gnc:html-table-render test-table test-doc) crash
;; col-headers must be #f or a list
(gnc:html-table-set-row-headers! test-table #t)
(gnc:html-table-set-caption! test-table #t) (gnc:html-table-set-caption! test-table #t)
(gnc:html-table-append-row! test-table "Row 1") (gnc:html-table-append-row! test-table "Row 1")
(gnc:html-table-append-row! test-table "Row 2") (gnc:html-table-append-row! test-table "Row 2")
@ -718,11 +703,6 @@ HTML Document Title</title></head><body></body>\n\
(test-doc (gnc:make-html-document)) (test-doc (gnc:make-html-document))
(test-table (gnc:make-html-table)) (test-table (gnc:make-html-table))
) )
;; change the default settings just to see what effect it has
;;(gnc:html-table-set-col-headers! test-table #t)
;; -> this make (gnc:html-table-render test-table test-doc) crash
;; col-headers must be #f or a list
(gnc:html-table-set-row-headers! test-table #t)
(gnc:html-table-set-caption! test-table #t) (gnc:html-table-set-caption! test-table #t)
(gnc:html-table-append-row! test-table "r1c1") (gnc:html-table-append-row! test-table "r1c1")
(gnc:html-table-append-row! test-table '("r2c1" "r2c2" "r2c3")) (gnc:html-table-append-row! test-table '("r2c1" "r2c2" "r2c3"))
@ -747,11 +727,6 @@ HTML Document Title</title></head><body></body>\n\
(test-doc (gnc:make-html-document)) (test-doc (gnc:make-html-document))
(test-table (gnc:make-html-table)) (test-table (gnc:make-html-table))
) )
;; change the default settings just to see what effect it has
;;(gnc:html-table-set-col-headers! test-table #t)
;; -> this make (gnc:html-table-render test-table test-doc) crash
;; col-headers must be #f or a list
(gnc:html-table-set-row-headers! test-table #t)
(gnc:html-table-set-caption! test-table #t) (gnc:html-table-set-caption! test-table #t)
(gnc:html-table-append-row! test-table "Row 1") (gnc:html-table-append-row! test-table "Row 1")
(gnc:html-table-append-row! test-table "Row 2") (gnc:html-table-append-row! test-table "Row 2")