small changes for testing

2026-04-30 12:17:41 +02:00
parent 65a9db370b
commit 1e10cfdad5
1 changed files with 8 additions and 5 deletions
@@ -37,7 +37,7 @@

 (define rktplayer-window #f)

-(define (run)
+(define (run . no-exit)
  (let* ((ini (new ini% [file 'rktplayer]))
         (context (new wv-context%
                       [base-path rkt-gui-dir]
@@ -47,11 +47,14 @@
         )
    (let ((window (new rktplayer% [wv-context context] [log-file log-file])))
      (set! rktplayer-window window)
+      (when (and (not (null? no-exit))
+                 (not (eq? (car no-exit) #t)))
        (webview-wait-for-quit)
        (webview-exit)
        (exit))
      )
    )
+  )

-(run)
+;(run)