From ff6874f91add65093e0c09f3ec6db87d05fae4f6 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Thu, 30 Apr 2026 13:04:55 +0200
Subject: [PATCH] window-state and reasen -> symbol

---
 wv-tray.rkt   | 3 ++-
 wv-window.rkt | 3 +++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/wv-tray.rkt b/wv-tray.rkt
index dde1810..542d005 100644
--- a/wv-tray.rkt
+++ b/wv-tray.rkt
@@ -20,7 +20,8 @@
       (let ((event (hash-ref evt 'event 'unknown-event)))
         (cond
           [(eq? event 'tray-activated)
-           (send this activated (hash-ref evt 'reason 'unknown))]
+           (send this activated (string->symbol
+                                 (format "~a" (hash-ref evt 'reason 'unknown))))]
 
           [(eq? event 'tray-message-clicked)
            (send this message-clicked)]
diff --git a/wv-window.rkt b/wv-window.rkt
index 4f9a73c..ab91ea7 100644
--- a/wv-window.rkt
+++ b/wv-window.rkt
@@ -236,6 +236,9 @@
       (send settings set! 'height h)
       )
 
+    (define/public (window-state)
+      (webview-window-state wv))
+
     (define/public (window-state-changed st)
       #t
       )