tray icon behaviour

2026-04-30 12:13:29 +02:00
parent 9dba10ea77
commit 62033eaadc
4 changed files with 28 additions and 11 deletions
@@ -16,7 +16,7 @@
    (define wv #f)
    (define menu-callbacks (make-hash))

-    (define/private (event-handler wv evt)
+    (define (event-handler wv evt)
      (let ((event (hash-ref evt 'event 'unknown-event)))
        (cond
          [(eq? event 'tray-activated)
@@ -104,9 +104,7 @@

    (super-new)

-    (set! wv (webview-tray-create icon (λ (wv evt)
-                                         (send this event-handler wv evt))
-                                  #:tooltip tooltip))
+    (set! wv (webview-tray-create icon event-handler #:tooltip tooltip))

    (unless (eq? menu #f)
      (send this set-menu! menu))))