cef_init_browser   xtlang

(bind-func cef_init_browser
  (lambda (obj:cef_browser_t*)
    (println "init browser handler")
    (let ((base (tref-ptr obj 0)))
      (tset! base 0 CEF_BROWSER_SIZE)
      (cef_init_base base)
      (tset! obj 1 (convert get_host))
      (tset! obj 2 (convert can_go_back))
      (tset! obj 3 (convert go_back))
      (tset! obj 4 (convert can_go_forward))
      (tset! obj 5 (convert go_forward))
      (tset! obj 6 (convert is_loading))
      (tset! obj 7 (convert reload))
      (tset! obj 8 (convert reload_ignore_cache))
      (tset! obj 9 (convert stop_load))
      (tset! obj 10 (convert get_identifier))
      (tset! obj 11 (convert is_same))
      (tset! obj 12 (convert is_popup))
      (tset! obj 13 (convert has_document))
      (tset! obj 14 (convert get_main_frame))
      (tset! obj 15 (convert get_focused_frame))
      (tset! obj 16 (convert get_frame_byident))
      (tset! obj 17 (convert get_frame))
      (tset! obj 18 (convert get_frame_count))
      (tset! obj 19 (convert get_frame_identifiers))
      (tset! obj 20 (convert get_frame_names))
      (tset! obj 21 (convert send_process_message))
      obj)))