display/visibility methods did wrong calls to webview-set-style!

This commit is contained in:
2026-04-21 10:53:50 +02:00
parent b3c6994b48
commit 112c60721e

View File

@@ -49,13 +49,13 @@
(define/public (display . d) (define/public (display . d)
(when (not (null? d)) (when (not (null? d))
(let ((d* (string->symbol (format "~a" (car d))))) (let ((d* (string->symbol (format "~a" (car d)))))
(webview-set-style! wv element-id 'display d*))) (webview-set-style! wv element-id (list 'display d*))))
(webview-get-style wv element-id 'display)) (webview-get-style wv element-id 'display))
(define/public (visibility . v) (define/public (visibility . v)
(when (not (null? v)) (when (not (null? v))
(let ((v* (string->symbol (format "~a" (car v))))) (let ((v* (string->symbol (format "~a" (car v)))))
(webview-set-style! wv element-id 'visibility v*))) (webview-set-style! wv element-id (list 'visibility v*))))
(webview-get-style wv element-id 'visibility)) (webview-get-style wv element-id 'visibility))
(define/public (set-style! styles) (define/public (set-style! styles)