From a79e456b39d2ed6e061a5346295fd060acd93e70 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Tue, 21 Apr 2026 11:50:57 +0200 Subject: [PATCH] display/visibility do return the value of the style, not a hash table with them --- wv-element.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/wv-element.rkt b/wv-element.rkt index 76e2415..09685e8 100644 --- a/wv-element.rkt +++ b/wv-element.rkt @@ -50,13 +50,13 @@ (when (not (null? d)) (let ((d* (string->symbol (format "~a" (car d))))) (webview-set-style! wv element-id (list 'display d*)))) - (hash-ref (webview-get-style wv element-id 'display) 'display)) + (string->symbol (hash-ref (webview-get-style wv element-id 'display) 'display))) (define/public (visibility . v) (when (not (null? v)) (let ((v* (string->symbol (format "~a" (car v))))) (webview-set-style! wv element-id (list 'visibility v*)))) - (hash-ref (webview-get-style wv element-id 'visibility) 'visibility)) + (string->symbol (hash-ref (webview-get-style wv element-id 'visibility) 'visibility))) (define/public (set-style! styles) (webview-set-style! wv element-id styles))