method selected_columns =
let pathes = view.sv_view#selection#get_selected_rows in
let result =
List.fold_left
(fun acc path ->
let iter = model#get_iter path in
let data = model#get_data ~row:iter in
match data with
| D_Column c -> c :: acc
| _ -> acc)
[]
pathes
in
List.rev result