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