From 6f6ba98dbe271158008e711e203e161a107378dc Mon Sep 17 00:00:00 2001 From: Thomas White Date: Sun, 24 Oct 2021 21:50:33 +0200 Subject: Reset the cue clock when the cue is run --- guile/starlet/clock.scm | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'guile/starlet/clock.scm') diff --git a/guile/starlet/clock.scm b/guile/starlet/clock.scm index 22aba7d..c139d66 100644 --- a/guile/starlet/clock.scm +++ b/guile/starlet/clock.scm @@ -26,6 +26,7 @@ stop-clock! start-clock! reverse-clock! + reset-clock! clock-expired? set-clock-expiration-time! @@ -124,6 +125,13 @@ (set-clock-stopped! clock #f)) +(define-method (reset-clock! (clock )) + (set-start-elapsed-time! clock 0) + (set-start-real-time! clock (time-now)) + (set-clock-reversed! clock #f) + (set-clock-stopped! clock #f)) + + ;; Start the clock running, backwards (define-method (reverse-clock! (clock )) (set-start-elapsed-time! clock (elapsed-time clock)) -- cgit v1.2.3