diff options
Diffstat (limited to 'guile/starlet/midi-control/base.scm')
-rw-r--r-- | guile/starlet/midi-control/base.scm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/guile/starlet/midi-control/base.scm b/guile/starlet/midi-control/base.scm index 08310ae..9363e81 100644 --- a/guile/starlet/midi-control/base.scm +++ b/guile/starlet/midi-control/base.scm @@ -33,7 +33,9 @@ send-note-off register-midi-note-callback! register-midi-cc-callback! - remove-midi-callback!)) + remove-midi-callback! + get-parameter-controller + set-parameter-controller!)) (define-class <midi-control-surface> (<object>) @@ -52,7 +54,12 @@ (send-queue #:init-form (make-atomic-box '()) - #:getter get-send-queue)) + #:getter get-send-queue) + + (parameter-controller + #:init-value #f + #:getter get-parameter-controller + #:setter set-parameter-controller!)) (define-class <midi-callback> (<object>) |