tray icon added

2026-04-30 14:50:23 +02:00
parent 58e3ee7a51
commit 57be1f327a
4 changed files with 78 additions and 4 deletions
@@ -170,7 +170,7 @@
          )
        )
      )
-    
+
    (define (update-state st)
      (dbg-rktplayer "state: ~a" st)
      (unless (eq? st state)
@@ -614,6 +614,19 @@
        )
      )

+    (define/public (show-hide)
+      (let ((st (send this window-state)))
+        (if (eq? st 'hidden)
+          (send this present)
+          (send this hide)
+          )
+        )
+      )
+
+    (define/override (can-close?)
+      (show-hide)
+      #f)
+
    (begin
      (dbg-rktplayer "Initalizing gui")
      (dbg-rktplayer "ICON: ~a" (get-field icon this))