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)
(list 'style (send Object entries r))))))))
)
(displayln js-code)
;(displayln js-code)
(let ((r (webview-call-js wv js-code)))
; (format
; (js-code
@@ -1056,7 +1056,7 @@
; " return { id: id, style: r };"
; "}") cl))
; )))
(display "Result: ") (write r) (newline)
;(display "Result: ") (write r) (newline)
(if (eq? r #f)
#f
(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)))
)
)) h)))
(displayln (format "l = ~a" l))
(write l)(newline)
;(displayln (format "l = ~a" l))
;(write l)(newline)
; l = ((volume-meter . #hash((display . none))))
; ((volume-meter . #hash(("display" . "none"))))
(if (symbol? selector)
wv-element.rkt
+2 -2
View File
@@ -53,11 +53,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)))
(displ "style-hash: ") (write style-hash) (newline)
;(displ "style-hash: ") (write style-hash) (newline)
(let ((display-style (hash-ref (if (eq? style-hash #f)
(make-hash)
style-hash) 'display #f)))
(displayln display-style)
;(displayln display-style)
(if (eq? display-style #f)
#f
(string->symbol display-style)))))