diff options
author | Thomas White <taw@physics.org> | 2021-06-27 17:42:17 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2021-06-27 17:42:17 +0200 |
commit | 6f08467687d4f87ad051d64b3a73da3eb77ff8be (patch) | |
tree | 97b554edcff9bee66755145eeb6146dd5a306c0b /guile/starlet/state.scm | |
parent | 5cdeffe3c4c53c06fcb83769d6a5d8b9c5afdc1b (diff) |
Fixture display: Show selection
Diffstat (limited to 'guile/starlet/state.scm')
-rw-r--r-- | guile/starlet/state.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/guile/starlet/state.scm b/guile/starlet/state.scm index a9aa6b4..82db18b 100644 --- a/guile/starlet/state.scm +++ b/guile/starlet/state.scm @@ -49,6 +49,7 @@ blackout! sel selection-hook + get-selection value->number atomically-overlay-state! update-state!)) @@ -355,6 +356,9 @@ pre-existing contents." (define selection '()) +(define (get-selection) + selection) + (define (sel . fixture-list) (if (nil? fixture-list) |