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)