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))
      | _ ->
          ()