method private _query_gui_update_answer = fun row query input ->
try
SQL_db.update_query query
input.QGUI.qrygi_name
input.QGUI.qrygi_query
input.QGUI.qrygi_comment;
query_model#update_display row#iter
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)