debug webview-call-js
This commit is contained in:
+1
-1
@@ -763,7 +763,7 @@
|
|||||||
(define/contract (webview-call-js wv js)
|
(define/contract (webview-call-js wv js)
|
||||||
(-> wv-win? string? (or/c string? list? boolean? hash? symbol? number?))
|
(-> wv-win? string? (or/c string? list? boolean? hash? symbol? number?))
|
||||||
(let ((result (rkt-webview-call-js (wv-win-handle wv) js)))
|
(let ((result (rkt-webview-call-js (wv-win-handle wv) js)))
|
||||||
;(displayln result)
|
(displayln result)
|
||||||
(if (webview-call-js-result? result)
|
(if (webview-call-js-result? result)
|
||||||
(if (eq? (car result) 'oke)
|
(if (eq? (car result) 'oke)
|
||||||
(hash-ref (fromJson (cadr result)) 'result #f)
|
(hash-ref (fromJson (cadr result)) 'result #f)
|
||||||
|
|||||||
Reference in New Issue
Block a user