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

implement wait-for-element (to be accessable in DOM)

Browse Source
This commit is contained in:
Hans Dijkema
2026-04-15 23:32:13 +02:00
parent cd12da48c1
commit dfe112dd51
1 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
wv-window.rkt
View File

@@ -132,11 +132,23 @@
(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
) )
) )
(define (wait-for-element id)
(webview-call-js wv (string-append
(format "{ let el = document.getElementById('~a');" id)
" while (el === null) { "
" window.setTimeout(function (){ }, 0);"
(format " el = document.getElementById('~a');" id)
" }"
" return true;"
"}")
)
)
(define (connect! id type event callback) (define (connect! id type event callback)
(let ((elem (element id type))) (let ((elem (element id type)))
(send elem add-event-callback! event callback) (send elem add-event-callback! event callback)