let add () =
let hb = { html_key = Configwin_types.string_to_key "C-a" ;
html_begin = "" ;
html_end = "" ;
}
in
match simple_get Configwin_messages.mAdd (params_hb hb) with
Return_ok -> [hb]
| _ -> []