method private _index_gui_answer = fun input ->
    try
      let index = SQL_db.insert_index
                    ~name:input.IGUI.idxgi_name
                    ~columns:input.IGUI.idxgi_columns
                    ~unique:input.IGUI.idxgi_unique
      in
        (* FIXME: use an another method for this *)
        index_model#append_data index
    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)