webview-get-style debugging

This commit is contained in:
2026-07-30 13:46:13 +02:00
parent 75232b1460
commit 57eb80ce1d
+1 -1
View File
@@ -51,7 +51,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)))
(displayln style-hash) (display "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)))