paused handling

2026-05-07 14:37:56 +02:00
parent a1e49de9ea
commit debabf5151
1 changed files with 28 additions and 21 deletions
@@ -474,9 +474,15 @@
                          (get h 150))))
            (mutex-unlock (ao-handle-clear-mutex h))
            (if (eq? elem #f)
+                (if (ao-handle-paused h)
+                    (begin
+                      (dbg-sound "run thread paused")
+                      (sleep 0.1)
+                      )
                    (begin
                      (dbg-sound "nothing in the queue")
                      (sleep 0.01))
+                    )
                (begin
                  (if (eq? (queue-elem-command elem) 'stop)
                      (set! go-on #f)
@@ -767,6 +773,7 @@
      (when (eq? paused #t)
        (mutex-lock (ao-handle-pause-mutex h))
        (set-ao-handle-paused! h #t)
+        (dbg-sound "paused")
        )
      )
  )