webview-get-style debugging
This commit is contained in:
+1
-1
@@ -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)))
|
||||||
|
|||||||
Reference in New Issue
Block a user