From 6f08467687d4f87ad051d64b3a73da3eb77ff8be Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 27 Jun 2021 17:42:17 +0200
Subject: Fixture display: Show selection

---
 guile/starlet/state.scm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'guile')

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)
-- 
cgit v1.2.3