diff --git a/wv-element.rkt b/wv-element.rkt index 2e9af0a..76e2415 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*)))) - (webview-get-style wv element-id 'display)) + (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*)))) - (webview-get-style wv element-id 'visibility)) + (hash-ref (webview-get-style wv element-id 'visibility) 'visibility)) (define/public (set-style! styles) (webview-set-style! wv element-id styles))