Logging.
This commit is contained in:
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -655,7 +655,7 @@
|
||||
(define (webview-call-js wv js)
|
||||
(-> wv-win? string? (or/c string? list? boolean? hash?))
|
||||
(let ((result (rkt-webview-call-js (wv-win-handle wv) js)))
|
||||
(displayln result)
|
||||
;(displayln result)
|
||||
(if (webview-call-js-result? result)
|
||||
(if (eq? (car result) 'oke)
|
||||
(hash-ref (fromJson (cadr result)) 'result #f)
|
||||
|
||||
Reference in New Issue
Block a user