method private _query_gui_answer = fun input ->
try
let query = SQL_db.insert_query db
~name:input.QGUI.qrygi_name
~comment:input.QGUI.qrygi_comment
~query:input.QGUI.qrygi_query
in
(* FIXME: use an another method for this *)
query_model#append_data query
with
| SQL_db.Duplicated_name name ->
raise (Invalid_input "Name already use")
| SQL_db.Invalid_name name ->
raise (Invalid_input "Invalid name");
| SQL_db.Invalid_args s ->
raise (Invalid_input s)