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

Remove more multichoice tooltips missed in #917

Browse Source
This commit is contained in:
Christopher Lam
2021-04-24 10:25:58 +08:00
parent 92dac8284c
commit 66f228440b
3 changed files with 20 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
gnucash/report/reports/standard/balsheet-pnl.scm
View File

@@ -137,40 +137,32 @@ also show overall period profit & loss."))
(define periodlist
(list
(list 'disabled
(cons 'text (G_ "Disabled"))
(cons 'tip (G_ "Disabled")))
(cons 'text (G_ "Disabled")))
(list 'YearDelta
(cons 'text (G_ "Year"))
(cons 'tip (G_ "One Year.")))
(cons 'text (G_ "Year")))
(list 'HalfYearDelta
(cons 'text (G_ "Half Year"))
(cons 'tip (G_ "Half Year.")))
(cons 'text (G_ "Half Year")))
(list 'QuarterDelta
(cons 'text (G_ "Quarter"))
(cons 'tip (G_ "One Quarter.")))
(cons 'text (G_ "Quarter")))
(list 'MonthDelta
(cons 'text (G_ "Month"))
(cons 'tip (G_ "One Month.")))
(cons 'text (G_ "Month")))
(list 'TwoWeekDelta
(cons 'text (G_ "2Week"))
(cons 'tip (G_ "Two Weeks.")))
(cons 'text (G_ "2Week")))
(list 'WeekDelta
(cons 'text (G_ "Week"))
(cons 'tip (G_ "One Week.")))))
(cons 'text (G_ "Week")))))
(define (keylist->vectorlist keylist)
(map
(lambda (item)
(vector
(car item)
(keylist-get-info keylist (car item) 'text)
(keylist-get-info keylist (car item) 'tip)))
(keylist-get-info keylist (car item) 'text)))
keylist))
(define (keylist-get-info keylist key info)

24
gnucash/report/reports/standard/budget-barchart.scm
View File

@@ -62,24 +62,12 @@
(N_ "Select exact period that ends the reporting range."))
(define period-options
(list (vector 'first
(N_ "First")
(N_ "The first period of the budget"))
(vector 'previous
(N_ "Previous")
(N_ "Budget period was before current period, according to report evaluation date"))
(vector 'current
(N_ "Current")
(N_ "Current period, according to report evaluation date"))
(vector 'next
(N_ "Next")
(N_ "Next period, according to report evaluation date"))
(vector 'last
(N_ "Last")
(N_ "Last budget period"))
(vector 'manual
(N_ "Manual period selection")
(N_ "Explicitly select period value with spinner below"))))
(list (vector 'first (N_ "First budget period"))
(vector 'previous (N_ "Previous budget period"))
(vector 'current (N_ "Current budget period"))
(vector 'next (N_ "Next budget period"))
(vector 'last (N_ "Last budget period"))
(vector 'manual (N_ "Manual period selection"))))
(define (options-generator)
(let ((options (gnc:new-options))

24
gnucash/report/reports/standard/budget.scm
View File

@@ -108,24 +108,12 @@
(lambda (new-option)
(gnc:register-option options new-option)))
(period-options
(list (vector 'first
(N_ "First")
(N_ "The first period of the budget"))
(vector 'previous
(N_ "Previous")
(N_ "Budget period was before current period, according to report evaluation date"))
(vector 'current
(N_ "Current")
(N_ "Current period, according to report evaluation date"))
(vector 'next
(N_ "Next")
(N_ "Next period, according to report evaluation date"))
(vector 'last
(N_ "Last")
(N_ "Last budget period"))
(vector 'manual
(N_ "Manual period selection")
(N_ "Explicitly select period value with spinner below"))))
(list (vector 'first (N_ "First budget period"))
(vector 'previous (N_ "Previous budget period"))
(vector 'current (N_ "Current budget period"))
(vector 'next (N_ "Next budget period"))
(vector 'last (N_ "Last budget period"))
(vector 'manual (N_ "Manual period selection"))))
(ui-use-periods #f)
(ui-start-period-type 'current)
(ui-end-period-type 'next))