用ocsigen |创建一个复选框Eliom

Question

我想创建一个窗体外的复选框，只是为了使用Lwt_js_events.clicks绑定一个JS函数。

我试过使用bool_checkbox_one，但我无法弄清楚为此生成〜name：参数的方法。我在这里发现了一些帖子，其中有人解释你实际上不能，而且应该使用raw_版本，但似乎不再存在。我确实发现了一个Html.D.Raw模块，但是我无法弄清楚它是如何工作的，而且这些文档都是过时的。

我想另一件事是使用这样的：

let checkbox = input ~a:([a_input_type `Checkbox] @ 
    (if t.status then [a_checked()] else []))() in 

现在很明显，这不是真的很漂亮，但它的工作原理，但它产生的是正常工作，因为我想要的东西适当的复选框，但是当我打电话Eliom_content .Html.To_dom.of_element在客户端上，我得到一个对象，我无法调用##检查是否勾选了复选框（这看起来可能在bool_checkbox_one上）。 我也尝试使用## hasAttribute来尝试，看看它是否有“检查”，但显然这不是更新时，我勾选复选框，不知道为什么。

无论如何，正确的做法是什么？ 感谢

Answer 1

想出一个办法使用##检查：

Js.to_bool (Js.Unsafe.get elt "checked")) 

Js.Unsafe.get似乎允许得到一个DOM元素的任意属性，并不完全是因为使用适当的复选框，我想好，但它的工作原理。