some updates, sound library version 0.1.2

2026-04-23 14:09:07 +02:00
parent 65b98fd73c
commit a68db108b6
4 changed files with 14 additions and 5 deletions
@@ -30,7 +30,7 @@
    (define closing #f)
    (define pause #f)
    (define repeat-state 'no-repeat)
-    (define volume 100.0)
+    (define volume (send settings get 'volume 100.0))
    
    (define ao-handle #f)
    (define audio-handle #f)
@@ -284,6 +284,7 @@

    (define/public (set-volume! percentage)
      (set! volume percentage)
+      (send settings set! 'volume percentage)
      (unless (eq? ao-handle #f)
        (ao-set-volume! ao-handle volume))
      )