webview-get-style debugging

2026-07-30 13:30:36 +02:00
parent ac961f5fe0
commit 31b1e82834
2 changed files with 12 additions and 4 deletions
@@ -50,7 +50,13 @@
      (when (not (null? d))
        (let ((d* (string->symbol (format "~a" (car d)))))
          (webview-set-style! wv element-id (list 'display d*))))
-      (string->symbol (hash-ref (webview-get-style wv element-id 'display) 'display)))
+      (let ((style-hash (webview-get-style wv element-id 'display)))
+        (let ((display-style (hash-ref (if (eq? style-hash #f)
+                                           (make-hash)
+                                           style-hash) 'display #f)))
+          (if (eq? display-style #f)
+              #f
+              (string->symbol display-style)))))

    (define/public (visibility . v)
      (when (not (null? v))