hans/rktplayer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

small changes for testing

Browse Source
This commit is contained in:
Hans Dijkema
2026-04-30 12:17:41 +02:00
parent 65a9db370b
commit 1e10cfdad5
1 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
rktplayer.rkt
+8 -5
View File
@@ -37,7 +37,7 @@
(define rktplayer-window #f) (define rktplayer-window #f)
(define (run) (define (run . no-exit)
(let* ((ini (new ini% [file 'rktplayer])) (let* ((ini (new ini% [file 'rktplayer]))
(context (new wv-context% (context (new wv-context%
[base-path rkt-gui-dir] [base-path rkt-gui-dir]
@@ -47,11 +47,14 @@
) )
(let ((window (new rktplayer% [wv-context context] [log-file log-file]))) (let ((window (new rktplayer% [wv-context context] [log-file log-file])))
(set! rktplayer-window window) (set! rktplayer-window window)
(webview-wait-for-quit) (when (and (not (null? no-exit))
(webview-exit) (not (eq? (car no-exit) #t)))
(exit)) (webview-wait-for-quit)
(webview-exit)
(exit))
)
) )
) )
(run) ;(run)