diff options
| author | Thomas White <taw@physics.org> | 2023-04-29 18:38:44 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2023-04-29 18:38:44 +0200 |
| commit | befc9feebf514736f140b50e46f7076ececd3d88 (patch) | |
| tree | e29d8ca3c834b8a127d55d8f0fa29b8bf0277e0a /guile/starlet/open-sound-control | |
| parent | 55a076a607b5e65f90f98e4e5e9bac5852df1d3e (diff) | |
Add add-sel and toggle-sel
Diffstat (limited to 'guile/starlet/open-sound-control')
| -rw-r--r-- | guile/starlet/open-sound-control/utils.scm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/guile/starlet/open-sound-control/utils.scm b/guile/starlet/open-sound-control/utils.scm index 160d9bc..16ccbaf 100644 --- a/guile/starlet/open-sound-control/utils.scm +++ b/guile/starlet/open-sound-control/utils.scm @@ -73,10 +73,7 @@ (define (osc-select-button server button-method addr led fix) (add-osc-method server button-method "" - (lambda () - (if (selected? fix) - (desel fix) - (sel fix)))) + (lambda () (toggle-sel fix))) (add-and-run-hook! selection-hook |