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

tray implementation

Browse Source
This commit is contained in:
Hans Dijkema
2026-04-30 12:18:10 +02:00
parent 1e10cfdad5
commit 58e3ee7a51
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
rktplayer.rkt
+4 -1
View File
@@ -2,6 +2,7 @@
(require racket/gui (require racket/gui
"gui.rkt" "gui.rkt"
"tray.rkt"
simple-ini/class simple-ini/class
racket-sound racket-sound
racket-webview racket-webview
@@ -45,7 +46,9 @@
[file-getter my-file-getter] [file-getter my-file-getter]
)) ))
) )
(let ((window (new rktplayer% [wv-context context] [log-file log-file]))) (let* ((window (new rktplayer% [wv-context context] [log-file log-file]))
(tray (new rktplayer-tray% [player-gui window]))
)
(set! rktplayer-window window) (set! rktplayer-window window)
(when (and (not (null? no-exit)) (when (and (not (null? no-exit))
(not (eq? (car no-exit) #t))) (not (eq? (car no-exit) #t)))