/src/frui.ml

http://github.com/hhughes/ocaml-frui · OCaml · 17 lines · 14 code · 3 blank · 0 comment · 0 complexity · 6513de478c34e08f32ff8d2f204b7a12 MD5 · raw file 

    

  1. open Logger
    2. 

  2. open Dialog
    3. 

  3. 

  4. module D = Dom
    5. 

  5. module F = Froc
    6. 

  6. module Fd = Froc_dom
    7. 

  7. 

  8. let onload () =
    9. 

  9.   debug "onload";
    10. 

  10.   let main = (D.document#getElementById "main" : D.element) in
    11. 

  11.   let new_dlg = (D.document#createElement "button" : D.button) in
    12. 

  12.   ignore (set_text (new_dlg :> D.element) "add dialog");
    13. 

  13.   ignore (main#appendChild new_dlg);
    14. 

  14.   new_dlg#_set_onclick (fun _ -> ignore (new dialog main ()); true)
    15. 

  15. ;;
    16. 

  16. 

  17. D.window#_set_onload onload
    18.