From 58e3ee7a51f99dd529b27297d5b2f3cc424afc74 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Thu, 30 Apr 2026 12:18:10 +0200
Subject: [PATCH] tray implementation

---
 rktplayer.rkt | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/rktplayer.rkt b/rktplayer.rkt
index ba60029..eba395c 100644
--- a/rktplayer.rkt
+++ b/rktplayer.rkt
@@ -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)))