window-state and reasen -> symbol

2026-04-30 13:04:55 +02:00
parent b66e577894
commit ff6874f91a
2 changed files with 5 additions and 1 deletions
@@ -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)]
@@ -236,6 +236,9 @@
      (send settings set! 'height h)
      )

+    (define/public (window-state)
+      (webview-window-state wv))
+
    (define/public (window-state-changed st)
      #t
      )