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