tray implementation

2026-04-30 12:18:10 +02:00
parent 1e10cfdad5
commit 58e3ee7a51
1 changed files with 4 additions and 1 deletions
@@ -2,6 +2,7 @@

 (require racket/gui
         "gui.rkt"
+         "tray.rkt"
         simple-ini/class
         racket-sound
         racket-webview
@@ -45,7 +46,9 @@
                       [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)
      (when (and (not (null? no-exit))
                 (not (eq? (car no-exit) #t)))