diff --git a/wv-element.rkt b/wv-element.rkt index a4b659f..9bf34d3 100644 --- a/wv-element.rkt +++ b/wv-element.rkt @@ -51,9 +51,11 @@ (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))) + (displayln style-hash) (let ((display-style (hash-ref (if (eq? style-hash #f) (make-hash) style-hash) 'display #f))) + (displayln display-style) (if (eq? display-style #f) #f (string->symbol display-style)))))