method move_up () =
      match self#selected_rr with
        None -> ()
      |        Some rr ->
          let row = rr#iter in
          match store#get ~row ~column: col_data with
            Then _ | Else _ -> ()
          | _ ->
              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)