enhancements for the rktplayer

2026-04-28 22:20:36 +02:00
parent f2ae0821d3
commit 042047a355
4 changed files with 20 additions and 13 deletions
@@ -116,7 +116,8 @@
    (define current-track-nr #f)
    
    (define (update-track-nr nr)
-      (unless (eq? playlist #f)
+      (unless (or (eq? playlist #f)
+                  (= (send playlist length) 0))
        (dbg-rktplayer "update-track-nr ~a" nr)
        (let ((id (λ () (send playlist track-id current-track-nr))) ;string->symbol (format "track-~a" (+ current-track-nr 1)))))
              (ct current-track-nr))
@@ -537,7 +538,8 @@
      (update-track-nr #f))

    (define/public (play-track idx)
-      (send player play-track idx))
+      (unless (= (send playlist length) 0)
+        (send player play-track idx)))

    (define/public (pause)
      (send player pause-unpause))