method move_down () =
match self#selected_rr with
None -> ()
| Some rr ->
let row = rr#iter in
match find_iter_below store row with
None -> ()
| Some rr2 ->
let it1 = store#get_iter rr#path in
let it2 = rr2#iter in
ignore (store#swap it1 it2)