method set_columns = fun (columns1, columns2) ->
    idx_select#store1#clear ();
    idx_select#store2#clear ();
    List.iter
      (fun c -> ignore (idx_select#store1#prepend_data c))
      columns1;
    List.iter
      (fun c -> ignore (idx_select#store2#prepend_data c))
      columns2