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 14:56:05 +02:00
parent af91944aaf
commit 62b2af086a
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
wv-element.rkt
+3 -1
View File
@@ -7,6 +7,8 @@
(provide wv-element%) (provide wv-element%)
(define displ display)
(define wv-element% (define wv-element%
(class object% (class object%
(init-field window (init-field window
@@ -51,7 +53,7 @@
(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)))
(display "style-hash: ") (write style-hash) (newline) (displ "style-hash: ") (write style-hash) (newline)
(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)))