(bind-func cef_init_client
(lambda (obj:cef_client_t*)
(let ((base (tref-ptr obj 0)))
(tset! base 0 CEF_CLIENT_SIZE)
(cef_init_base base)
(tset! obj 1 (convert get_context_menu_handler))
(tset! obj 2 (convert get_dialog_handler))
(tset! obj 3 (convert get_display_handler))
(tset! obj 4 (convert get_download_handler))
(tset! obj 5 (convert get_drag_handler))
(tset! obj 6 (convert get_find_handler))
(tset! obj 7 (convert get_focus_handler))
(tset! obj 8 (convert get_geolocation_handler))
(tset! obj 9 (convert get_jsdialog_handler))
(tset! obj 10 (convert get_keyboard_handler))
(tset! obj 11 (convert get_life_span_handler))
(tset! obj 12 (convert get_load_handler))
(tset! obj 13 (convert get_render_handler))
(tset! obj 14 (convert get_request_handler))
(tset! obj 15 (convert on_process_message_received))
(println "initialized client")
obj)))