method private _cb__up_opt_button_clicked = fun () ->
match sopts_view.sopt_view#selection#get_selected_rows with
| [path] ->
if GTree.Path.get_depth path > 1 then
let path_prev = GTree.Path.copy path in
ignore(GTree.Path.prev path_prev);
i_bool (sopts_store#swap
(sopts_store#get_iter path)
(sopts_store#get_iter path_prev))
| _ ->
()