webview-get-style debugging

2026-07-30 13:41:29 +02:00
parent 31b1e82834
commit 75232b1460
1 changed files with 2 additions and 0 deletions
@@ -51,9 +51,11 @@
        (let ((d* (string->symbol (format "~a" (car d)))))
          (webview-set-style! wv element-id (list 'display d*))))
      (let ((style-hash (webview-get-style wv element-id 'display)))
+        (displayln style-hash)
        (let ((display-style (hash-ref (if (eq? style-hash #f)
                                           (make-hash)
                                           style-hash) 'display #f)))
+          (displayln display-style)
          (if (eq? display-style #f)
              #f
              (string->symbol display-style)))))