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

webview-get-style debugging

Browse Source
This commit is contained in:
Hans Dijkema
2026-07-30 13:41:29 +02:00
parent 31b1e82834
commit 75232b1460
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
wv-element.rkt
+2
View File
@@ -51,9 +51,11 @@
(let ((d* (string->symbol (format "~a" (car d))))) (let ((d* (string->symbol (format "~a" (car d)))))
(webview-set-style! wv element-id (list 'display d*)))) (webview-set-style! wv element-id (list 'display d*))))
(let ((style-hash (webview-get-style wv element-id 'display))) (let ((style-hash (webview-get-style wv element-id 'display)))
(displayln style-hash)
(let ((display-style (hash-ref (if (eq? style-hash #f) (let ((display-style (hash-ref (if (eq? style-hash #f)
(make-hash) (make-hash)
style-hash) 'display #f))) style-hash) 'display #f)))
(displayln display-style)
(if (eq? display-style #f) (if (eq? display-style #f)
#f #f
(string->symbol display-style))))) (string->symbol display-style)))))