scene: Improve background music handling.

1 files changed, 22 insertions, 10 deletions

diff --git a/starling/scene.scm b/starling/scene.scm
index cda1e4e..16630ba 100644
--- a/starling/scene.scm
+++ b/starling/scene.scm
@@ -55,21 +55,33 @@
 
 (define-class <scene> (<node>)
   (background-music-source #:getter background-music-source
-                           #:init-form (make-source #:loop? #t))
+                           #:init-thunk make-source)
   (background-music #:accessor background-music #:init-form #f
-                    #:init-keyword #:music)
+                    #:init-keyword #:music #:asset? #t #:watch? #t)
   (background-music-volume #:accessor background-music-volume #:init-form 1.0
-                           #:init-keyword #:music-volume)
+                           #:init-keyword #:music-volume #:watch? #t)
   (background-music-loop? #:accessor background-music-loop? #:init-form #t
-                          #:init-keyword #:music-loop?))
+                          #:init-keyword #:music-loop? #:watch? #t))
+
+(define-method (refresh-background-music (scene <scene>))
+  (let ((source (background-music-source scene)))
+    (if (audio? (background-music scene))
+        (begin
+          (set-source-volume! source (background-music-volume scene))
+          (set-source-loop! source (background-music-loop? scene))
+          (set-source-audio! source (background-music scene))
+          (source-play source))
+        (source-stop (background-music-source scene)))))
+
+(define-method (on-change (scene <scene>) slot-name old new)
+  (case slot-name
+    ((background-music background-music-volume background-music-loop?)
+     (refresh-background-music scene))
+    (else
+     (next-method))))
 
 (define-method (on-enter (scene <scene>))
-  (when (audio? (background-music scene))
-    (set-source-volume! (background-music-source scene)
-                        (background-music-volume scene))
-    (set-source-audio! (background-music-source scene)
-                       (background-music scene))
-    (source-play (background-music-source scene))))
+  (refresh-background-music scene))
 
 (define-method (on-exit (scene <scene>))
   (source-stop (background-music-source scene)))