hans/racket-webview
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

display/visibility do return the value of the style, not a hash table with them

Browse Source
This commit is contained in:
Hans Dijkema
2026-04-21 11:50:57 +02:00
parent 6394604167
commit a79e456b39
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
wv-element.rkt
View File

@@ -50,13 +50,13 @@
(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 (list 'display 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) (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 (list 'visibility 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) (define/public (set-style! styles)
(webview-set-style! wv element-id styles)) (webview-set-style! wv element-id styles))