/src/ocamljs-sanity/main.ml

http://github.com/hhughes/ocaml-frui · OCaml · 10 lines · 8 code · 2 blank · 0 comment · 0 complexity · 36074cc2bc8d7612613ec239540ed82e MD5 · raw file 

    

  1. module D = Dom
    2. 

  2. 

  3. let onload () =
    4. 

  4.   let main = (D.document#getElementById "main" : D.element) in
    5. 

  5.   let text = (D.document#createTextNode "hw_text" : D.text) in
    6. 

  6.   text#_set_data "Hello World!";
    7. 

  7.   ignore (main#appendChild text)
    8. 

  8. ;;
    9. 

  9. 

  10. D.window#_set_onload onload
    11.