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