tray icon added

2026-04-30 14:50:23 +02:00
parent 58e3ee7a51
commit 57be1f327a
4 changed files with 78 additions and 4 deletions
@@ -37,6 +37,7 @@
  )

 (define rktplayer-window #f)
+(define rktplayer-tray #f)

 (define (run . no-exit)
  (let* ((ini (new ini% [file 'rktplayer]))
@@ -47,11 +48,12 @@
                       ))
         )
    (let* ((window (new rktplayer% [wv-context context] [log-file log-file]))
-           (tray (new rktplayer-tray% [player-gui window]))
+           (tray (new rktplayer-tray% [rktplayer-gui window]))
           )
      (set! rktplayer-window window)
-      (when (and (not (null? no-exit))
-                 (not (eq? (car no-exit) #t)))
+      (set! rktplayer-tray tray)
+      (when (or (null? no-exit)
+                (not (eq? (car no-exit) #t)))
        (webview-wait-for-quit)
        (webview-exit)
        (exit))