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

display statements removed.

Browse Source
This commit is contained in:
Hans Dijkema
2026-08-04 14:05:43 +02:00
parent d6f555d43f
commit 3d4deed94a
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
racket-webview.rkt
+4 -4
View File
@@ -1042,7 +1042,7 @@
(return (list (list 'id id) (return (list (list 'id id)
(list 'style (send Object entries r)))))))) (list 'style (send Object entries r))))))))
) )
(displayln js-code) ;(displayln js-code)
(let ((r (webview-call-js wv js-code))) (let ((r (webview-call-js wv js-code)))
; (format ; (format
; (js-code ; (js-code
@@ -1056,7 +1056,7 @@
; " return { id: id, style: r };" ; " return { id: id, style: r };"
; "}") cl)) ; "}") cl))
; ))) ; )))
(display "Result: ") (write r) (newline) ;(display "Result: ") (write r) (newline)
(if (eq? r #f) (if (eq? r #f)
#f #f
(let ((h (hash-ref r 'with-ids))) (let ((h (hash-ref r 'with-ids)))
@@ -1067,8 +1067,8 @@
(make-hash (map (λ (e) (cons (to-symbol (car e)) (cadr e))) (cadr style-rec))) (make-hash (map (λ (e) (cons (to-symbol (car e)) (cadr e))) (cadr style-rec)))
) )
)) h))) )) h)))
(displayln (format "l = ~a" l)) ;(displayln (format "l = ~a" l))
(write l)(newline) ;(write l)(newline)
; l = ((volume-meter . #hash((display . none)))) ; l = ((volume-meter . #hash((display . none))))
; ((volume-meter . #hash(("display" . "none")))) ; ((volume-meter . #hash(("display" . "none"))))
(if (symbol? selector) (if (symbol? selector)
wv-element.rkt
+2 -2
View File
@@ -53,11 +53,11 @@
(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*))))
(let ((style-hash (webview-get-style wv element-id 'display))) (let ((style-hash (webview-get-style wv element-id 'display)))
(displ "style-hash: ") (write style-hash) (newline) ;(displ "style-hash: ") (write style-hash) (newline)
(let ((display-style (hash-ref (if (eq? style-hash #f) (let ((display-style (hash-ref (if (eq? style-hash #f)
(make-hash) (make-hash)
style-hash) 'display #f))) style-hash) 'display #f)))
(displayln display-style) ;(displayln display-style)
(if (eq? display-style #f) (if (eq? display-style #f)
#f #f
(string->symbol display-style))))) (string->symbol display-style)))))