standard audio pipeline

2026-04-22 19:08:57 +02:00
parent 1fdd7eb204
commit 2db3af084d
5 changed files with 53 additions and 32 deletions
@@ -35,6 +35,8 @@
      )
  )

+(define rktplayer-window #f)
+
 (define (run)
  (let* ((ini (new ini% [file 'rktplayer]))
         (context (new wv-context%
@@ -43,12 +45,11 @@
                       [file-getter my-file-getter]
                       ))
         )
-    (let (
-         (window (new rktplayer% [wv-context context] [log-file log-file]))
-         )
-    (webview-wait-for-quit)
-    (webview-exit)
-    (exit))
+    (let ((window (new rktplayer% [wv-context context] [log-file log-file])))
+      (set! rktplayer-window window)
+      (webview-wait-for-quit)
+      (webview-exit)
+      (exit))
    )
  )