webview-get-style debugging

2026-07-30 14:56:05 +02:00
parent af91944aaf
commit 62b2af086a
1 changed files with 3 additions and 1 deletions
@@ -7,6 +7,8 @@

 (provide wv-element%)

+(define displ display)
+
 (define wv-element%
  (class object%
    (init-field window
@@ -51,7 +53,7 @@
        (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)))
-        (display "style-hash: ") (write style-hash) (newline)
+        (displ "style-hash: ") (write style-hash) (newline)
        (let ((display-style (hash-ref (if (eq? style-hash #f)
                                           (make-hash)
                                           style-hash) 'display #f)))