From 30b2c0bcac56b69a9f4fd3f9c3e98cf869664138 Mon Sep 17 00:00:00 2001 From: John Ralls Date: Fri, 26 Aug 2022 11:50:40 -0700 Subject: [PATCH] [options] Provide gnc:register-multichoice-callback-option. Compatibility function for passing symbols or numbers as the default value. Note that this isn't used by GnuCash code and so isn't exercised or tested, it's provided only to simplify user-written code migration. --- bindings/guile/options.scm | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/bindings/guile/options.scm b/bindings/guile/options.scm index 458991f044..50fb66095a 100644 --- a/bindings/guile/options.scm +++ b/bindings/guile/options.scm @@ -339,6 +339,14 @@ (gnc-relative-date-to-time64 (cdr option-value))) option-value)) +(define-public (gnc:register-multichoice-callback-option options section name key docstring default multichoice widget-changed-cb) + (let ((defval (cond ((symbol? default) + (symbol->string default)) + ((number? default) + (number->string default)) + (else default)))) + (gnc-register-multichoice-callback-option (gnc:optiondb options) section name key docstring defval multichoice widget-changed-cb))) + ;; Scheme code for supporting options for the business modules ;; ;; Created by: Derek Atkins