diff --git a/bindings/guile/business-core.scm b/bindings/guile/business-core.scm index abaec8ce51..c153e8f130 100644 --- a/bindings/guile/business-core.scm +++ b/bindings/guile/business-core.scm @@ -100,7 +100,7 @@ (define (gnc:owner-from-split split result-owner) (define (notnull x) (and (not (null? x)) x)) (issue-deprecation-warning - "gnc:owner-from-split is deprecated. use gnc:split->owner instead.") + "gnc:owner-from-split is deprecated in 4.x. use gnc:split->owner instead.") (let* ((trans (xaccSplitGetParent split)) (invoice (notnull (gncInvoiceGetInvoiceFromTxn trans))) (temp (gncOwnerNew)) diff --git a/bindings/guile/gnc-module.scm b/bindings/guile/gnc-module.scm index 9d916fb8ea..129974360c 100644 --- a/bindings/guile/gnc-module.scm +++ b/bindings/guile/gnc-module.scm @@ -30,6 +30,7 @@ (use-modules (ice-9 match)) (define (deprecate . lst) + ;; 4.x deprecation. remove in 5.x (issue-deprecation-warning (string-concatenate lst))) (define (no-op-deprecation-warning) diff --git a/bindings/guile/utilities.scm b/bindings/guile/utilities.scm index 075b07547e..77189db5f3 100644 --- a/bindings/guile/utilities.scm +++ b/bindings/guile/utilities.scm @@ -154,7 +154,7 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define-public (gnc:substring-replace-from-to s1 s2 s3 start end-after) - (issue-deprecation-warning "gnc:substring-replace-from-to is deprecated.") + (issue-deprecation-warning "gnc:substring-replace-from-to is deprecated in 4.x.") (string-replace-substring s1 s2 s3 0 (string-length s1) (max 0 (1- start)) (and (positive? end-after) (+ (max 0 (1- start)) (1- end-after))))) diff --git a/gnucash/report/eguile-utilities.scm b/gnucash/report/eguile-utilities.scm index 3f78ee8884..e8c12e94ce 100644 --- a/gnucash/report/eguile-utilities.scm +++ b/gnucash/report/eguile-utilities.scm @@ -66,7 +66,7 @@ (let* ((stylesheetpath (find-stylesheet fname)) (templatepath (find-template fname))) ; make sure there's a trailing delimiter - (issue-deprecation-warning "find-file is deprecated. Please use find-stylesheet or find-template instead.") + (issue-deprecation-warning "find-file is deprecated in 4.x. Please use find-stylesheet or find-template instead.") (cond ((access? stylesheetpath R_OK) stylesheetpath) ((access? templatepath R_OK) templatepath) diff --git a/gnucash/report/html-barchart.scm b/gnucash/report/html-barchart.scm index 2f5fe87646..23967a7413 100644 --- a/gnucash/report/html-barchart.scm +++ b/gnucash/report/html-barchart.scm @@ -67,7 +67,7 @@ (define (gnc:make-html-barchart) (issue-deprecation-warning - "(gnc:make-html-barchart) is deprecated. use gnc:make-html-chart instead.") + "(gnc:make-html-barchart) is deprecated in 4.x. use gnc:make-html-chart instead.") (gnc:make-html-barchart-internal '(pixels . -1) '(pixels . -1) #f #f #f #f '() '() '() #f #f #f '() #f #f #f #f #f #f)) diff --git a/gnucash/report/html-linechart.scm b/gnucash/report/html-linechart.scm index 4fca2f9cae..cd79048c0b 100644 --- a/gnucash/report/html-linechart.scm +++ b/gnucash/report/html-linechart.scm @@ -74,7 +74,7 @@ (define (gnc:make-html-linechart) (issue-deprecation-warning - "(gnc:make-html-linechart) is deprecated. use gnc:make-html-chart instead.") + "(gnc:make-html-linechart) is deprecated in 4.x. use gnc:make-html-chart instead.") (gnc:make-html-linechart-internal '(pixels . -1) ;;width '(pixels . -1) ;;height diff --git a/gnucash/report/html-piechart.scm b/gnucash/report/html-piechart.scm index 169312d9f0..3bdc7fd218 100644 --- a/gnucash/report/html-piechart.scm +++ b/gnucash/report/html-piechart.scm @@ -62,7 +62,7 @@ (define (gnc:make-html-piechart) (issue-deprecation-warning - "(gnc:make-html-piechart) is deprecated. use gnc:make-html-chart instead.") + "(gnc:make-html-piechart) is deprecated in 4.x. use gnc:make-html-chart instead.") (gnc:make-html-piechart-internal '(pixels . -1) '(pixels . -1) #f #f #f #f #f #f #f #f #f #f #f)) (define gnc:html-piechart-data diff --git a/gnucash/report/html-scatter.scm b/gnucash/report/html-scatter.scm index 620d612100..f1532d7976 100644 --- a/gnucash/report/html-scatter.scm +++ b/gnucash/report/html-scatter.scm @@ -68,7 +68,7 @@ (define (gnc:make-html-scatter) (issue-deprecation-warning - "(gnc:make-html-scatter) is deprecated. use gnc:make-html-chart instead.") + "(gnc:make-html-scatter) is deprecated in 4.x. use gnc:make-html-chart instead.") (gnc:make-html-scatter-internal '(pixels . -1) '(pixels . -1) #f #f #f #f '() #f #f)) (define gnc:html-scatter-width diff --git a/libgnucash/app-utils/app-utils.scm b/libgnucash/app-utils/app-utils.scm index b6d7f63f49..64d6488029 100644 --- a/libgnucash/app-utils/app-utils.scm +++ b/libgnucash/app-utils/app-utils.scm @@ -309,11 +309,11 @@ ;; Symbols deprecated in 4.x, to remove for 5.x (define-public (gnc:get-debit-string acct-type) - (issue-deprecation-warning "gnc:get-debit-string is deprecated. Please use (gnucash engine)'s gnc-account-get-debit-string instead.") + (issue-deprecation-warning "gnc:get-debit-string is deprecated in 4.x. Please use (gnucash engine)'s gnc-account-get-debit-string instead.") (gnc-account-get-debit-string acct-type)) (define-public (gnc:get-credit-string acct-type) - (issue-deprecation-warning "gnc:get-credit-string is deprecated. Please use (gnucash engine)'s gnc-account-get-credit-string instead.") + (issue-deprecation-warning "gnc:get-credit-string is deprecated in 4.x. Please use (gnucash engine)'s gnc-account-get-credit-string instead.") (gnc-account-get-debit-string acct-type)) (define-public (gnc:config-file-format-version version) - (issue-deprecation-warning "gnc:config-file-format-version is deprecated and will be removed from a future version.") + (issue-deprecation-warning "gnc:config-file-format-version is deprecated in 4.x and will be removed from a future version.") #t)