handle minimize -> hide

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)
       )