(js (= x y)) does noet work, needs to be (js (== x y))
This commit is contained in:
+4
-4
@@ -822,8 +822,8 @@
|
|||||||
(webview-run-js wv
|
(webview-run-js wv
|
||||||
(with-id->el id el
|
(with-id->el id el
|
||||||
(if (or
|
(if (or
|
||||||
(= (js-dot el type) "checkbox")
|
(== (js-dot el type) "checkbox")
|
||||||
(= (js-dot el type) "radio"))
|
(== (js-dot el type) "radio"))
|
||||||
(set! (js-dot el checked)
|
(set! (js-dot el checked)
|
||||||
(eval
|
(eval
|
||||||
(if (eq? val #f) #f #t)))
|
(if (eq? val #f) #f #t)))
|
||||||
@@ -869,8 +869,8 @@
|
|||||||
(-> wv-win? symbol? (or/c string? boolean?))
|
(-> wv-win? symbol? (or/c string? boolean?))
|
||||||
(let ((v (webview-call-js wv
|
(let ((v (webview-call-js wv
|
||||||
(with-id->el id el
|
(with-id->el id el
|
||||||
(if (or (= (js-dot el type) "checkbox")
|
(if (or (== (js-dot el type) "checkbox")
|
||||||
(= (js-dot el type) "radio"))
|
(== (js-dot el type) "radio"))
|
||||||
(return (js-dot el checked))
|
(return (js-dot el checked))
|
||||||
(return (js-dot el value)))))))
|
(return (js-dot el value)))))))
|
||||||
;(with-id id el
|
;(with-id id el
|
||||||
|
|||||||
Reference in New Issue
Block a user