hans/racket-webview
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

window-state and reasen -> symbol

Browse Source
This commit is contained in:
Hans Dijkema
2026-04-30 13:04:55 +02:00
parent b66e577894
commit ff6874f91a
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
wv-tray.rkt
+2 -1
View File
@@ -20,7 +20,8 @@
(let ((event (hash-ref evt 'event 'unknown-event))) (let ((event (hash-ref evt 'event 'unknown-event)))
(cond (cond
[(eq? event 'tray-activated) [(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) [(eq? event 'tray-message-clicked)
(send this message-clicked)] (send this message-clicked)]
wv-window.rkt
+3
View File
@@ -236,6 +236,9 @@
(send settings set! 'height h) (send settings set! 'height h)
) )
(define/public (window-state)
(webview-window-state wv))
(define/public (window-state-changed st) (define/public (window-state-changed st)
#t #t
) )