diff options
| author | Thomas White <taw@physics.org> | 2022-06-11 14:46:02 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2022-06-11 14:46:14 +0200 |
| commit | 07eb061a3dc3350e7f5db26b184bbbf6c3ac029d (patch) | |
| tree | 0f669104c47c6d0b14746769f822aaed5ad8fc50 /guile | |
| parent | ca7a9e2650c825b49ee8801e84b7711c5fb51342 (diff) | |
Fixture display: Clearer indication when a cue is running
Diffstat (limited to 'guile')
| -rw-r--r-- | guile/starlet/playback.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm index 747dee7..5e6038e 100644 --- a/guile/starlet/playback.scm +++ b/guile/starlet/playback.scm @@ -46,7 +46,8 @@ back! reload-cue-list! reassert-current-cue! - state-change-hook)) + state-change-hook + playback-state)) ;; A "playback" is a state which knows how to run cues @@ -366,10 +367,14 @@ 'no-more-cues-in-list))) +(define (playback-state pb) + (atomic-box-ref (state-box pb))) + + (define-method (write (pb <starlet-playback>) port) (format port "#<<starlet-playback> state: ~a current-cue: ~a next-cue: ~a>" - (atomic-box-ref (state-box pb)) + (playback-state pb) (exact->inexact (get-playback-cue-number pb)) (next-cue-number pb))) |