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

innerHTmL problems. Not synchronous?

Browse Source
This commit is contained in:
Hans Dijkema
2026-04-15 23:16:22 +02:00
parent ca6667ce31
commit 3602d9bb3a
2 changed files with 19 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
racket-webview.rkt
View File

@@ -274,7 +274,7 @@
(if (or (eq? ext 'html) (eq? ext 'htm)) (if (or (eq? ext 'html) (eq? ext 'htm))
(process-html context file-to-serve out) (process-html context file-to-serve out)
(process-file context ext file-to-serve out)) (process-file context ext file-to-serve out))
(dbg-webview "output to output port had been done") (dbg-webview "output to output port has been done")
)) ))
(response/output (response/output
#:code 404 #:code 404

35
wv-window.rkt
View File

@@ -111,25 +111,26 @@
(if (= js-type -1) (if (= js-type -1)
'unknown 'unknown
(string->symbol (string-downcase js-type)))))) (string->symbol (string-downcase js-type))))))
(let ((cl (cond )
((eq? type 'text) wv-input/text%) (let ((cl (cond
((eq? type 'date) wv-input/date%) ((eq? type 'text) wv-input/text%)
((eq? type 'time) wv-input/time%) ((eq? type 'date) wv-input/date%)
((eq? type 'datetime-local) wv-input/datetime%) ((eq? type 'time) wv-input/time%)
((eq? type 'range) wv-input/range%) ((eq? type 'datetime-local) wv-input/datetime%)
((eq? type 'number) wv-input/number%) ((eq? type 'range) wv-input/range%)
((eq? type 'checkbox) wv-input/check%) ((eq? type 'number) wv-input/number%)
((eq? type 'radio) wv-input/radio%) ((eq? type 'checkbox) wv-input/check%)
((eq? type 'color) wv-input/color%) ((eq? type 'radio) wv-input/radio%)
((eq? type 'unknown) (begin ((eq? type 'color) wv-input/color%)
(err-webview "Element with id '~a' not found" ((eq? type 'unknown) (begin
id) (err-webview "Element with id '~a' not found"
wv-element%)) id)
wv-element%))
(else wv-element%) (else wv-element%)
))) )))
(set! elem (new cl [window this] [element-id id])) (set! elem (new cl [window this] [element-id id]))
(hash-set! element-hash id elem)) (hash-set! element-hash id elem))
)) )
(displayln (format "element ~a: ~a" id elem)) (displayln (format "element ~a: ~a" id elem))
elem elem
) )