let main () =
  ignore (GMain.Main.init ());
  let (ini, bindings) = C.html_config_file_and_option () in
  let param = C.list
      ~f: (fun l -> bindings#set l ; ini#write Configwin_ihm.file_html_config )
      ~eq: (fun hb1 hb2 -> hb1.html_key = hb2.html_key)
      ~edit: edit_hb
      ~add: add
      ~titles: [ Configwin_messages.mKey ; Configwin_messages.html_begin ;
                 Configwin_messages.html_end ]
      Configwin_messages.shortcuts
      (fun hb -> [ Configwin_types.key_to_string hb.html_key ;
                   hb.html_begin ; hb.html_end ])
      bindings#get
  in
  ignore (simple_get ~width: 300 ~height: 400
            Configwin_messages.html_config [param])