From 120fdc2be7319a8fa081ee3ff792f9090a422c29 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Mon, 4 May 2026 16:05:34 +0200
Subject: [PATCH] handle minimize -> hide

---
 tray.rkt | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/tray.rkt b/tray.rkt
index 79037af..b1ef8c4 100644
--- a/tray.rkt
+++ b/tray.rkt
@@ -3,6 +3,7 @@
 (require racket-webview
          racket/runtime-path
          "translate.rkt"
+         "utils.rkt"
          )
 
 (provide rktplayer-tray%)
@@ -15,6 +16,7 @@
                 )
 
     (define (adjust-menu)
+      (dbg-rktplayer "adjust menu called, window state = ~a" (send rktplayer-gui window-state))
       (let ((mnu (wv-menu 'tray-menu
                           (wv-menu-item 'm-hide-show
                                         (if (eq? (send rktplayer-gui window-state) 'hidden)
@@ -51,7 +53,17 @@
 
     (begin
       (send rktplayer-gui set-window-state-change-callback!
-            (λ () (adjust-menu)))
+            (λ ()
+              (let ((st (send rktplayer-gui window-state)))
+                (if (eq? st 'minimized)
+                    (begin
+                      (dbg-rktplayer "state = ~a, hiding window" st)
+                      (send rktplayer-gui present)
+                      (send rktplayer-gui hide))
+                    (adjust-menu))
+                )
+              )
+            )
       (adjust-menu)
       )