handle minimize -> hide

2026-05-04 16:05:34 +02:00
parent 167ef6d8ac
commit 120fdc2be7
1 changed files with 13 additions and 1 deletions
@@ -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)
      )