diff --git a/gui.rkt b/gui.rkt index 8a6eeb5..fe66b93 100644 --- a/gui.rkt +++ b/gui.rkt @@ -176,12 +176,23 @@ (dbg-rktplayer "state: ~a" st) (unless (eq? st state) (dbg-rktplayer "Changing to state ~a" st) - (unless (eq? state #f) ; Prevent setting src twice very fast - (if (eq? st 'playing) - (set-play-button "buttons/pause.svg") - (set-play-button "buttons/play.svg") - ) - ) + (let ((el (send this element 'paused))) + (unless (eq? state #f) ; Prevent setting src twice very fast + (cond ((or (eq? st 'playing) (eq? st 'play)) + (set-play-button "buttons/pause.svg") + (send el set-innerHTML! '(span (tr "playing")))) + ((eq? st 'stopped) + (set-play-button "buttons/play.svg") + (send el set-innerHTML! '(span (tr "stopped")))) + ((eq? st 'pauzed) + (set-play-button "buttons/play.svg") + (send el set-innerHTML! '(span ((class "blink")) (tr "paused")))) + (else + (warn-rktplayer "Unkown state for update-state ~a" st) + (send el set-innerHTML! (list 'span + '((class "blink")) + (format "~a: ~a" (tr "Unknown state") st)))) + ))) (set! state st) ) ) diff --git a/gui/rktplayer.html b/gui/rktplayer.html index 7b62d7b..40bf702 100644 --- a/gui/rktplayer.html +++ b/gui/rktplayer.html @@ -49,8 +49,11 @@