Wijzigingen.

2026-08-04 22:31:25 +02:00
parent e54f6f4a5f
commit 186b3bb8d7
6 changed files with 70 additions and 15 deletions
@@ -51,15 +51,23 @@
    (super-new [icon (build-path rkt-gui-dir "rktplayer.png")]
               [tooltip (tr 'racket-music-player)])

+    (define last-state #f)
+
    (begin
      (send rktplayer-gui set-window-state-change-callback!
            (λ ()
              (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))
+                      (if (eq? last-state 'minimized)
+                          (begin
+                            (dbg-rktplayer "state = ~a, presenting window" st)
+                            (send rktplayer-gui present)
+                            (set! last-state 'presented))
+                          (begin
+                            (dbg-rktplayer "state = ~a, hiding window" st)
+                            (send rktplayer-gui hide)
+                            (set! last-state 'minimized))))
                    (adjust-menu))
                )
              )