method private _cb__remove_query = fun () ->
    match query_view.qry_view#selection#get_selected_rows with
      | [path] ->
          (* FIXME: use an internal function *)
          let iter  = query_model#get_iter path in
          let query = query_model#get_data iter in
          self#_document_changed ();
          i_bool (query_model#remove iter);
          SQL_db.unlink_query query
      | _ -> ()