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)]